Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

000474,000002:                                                                                                  ## Copyright:   Public domain.
000475,000003:                                                                                                  ## Filename:    ERASABLE_ASSIGNMENTS.agc
000476,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst).
000477,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
000478,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 5.
000479,000007:                                                                                                  ## Assembler:   yaYUL
000480,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
000481,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
000482,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
000483,000011:                                                                                                  ##              2016-10-04 RSB  Completed transcription.
000484,000012:                                                                                                  ##              2016-10-30 MAS  A handful of corrections: EQUALSE->EQUALS
000485,000013:                                                                                                  ##                                                        PIPRFTRN->PIPRETRN
000486,000014:                                                                                                  ##                                   Several instances of TIF->TTF
000487,000015:                                                                                                  ##                                                        GDOPRESS->GDUMPRES
000488,000016:                                                                                                  ##                                                        DRIVEACQ->DRIVFACQ
000489,000017:                                                                                                  ##                                   And some uncommented comments.
000490,000018:                                                                                                  ##              2016-10-31 RSB  Typos.
000491,000019:                                                                                                  ##              2016-11-01 RSB  More typos.
000492,000020:                                                                                                  ##              2016-11-03 RSB  Modified the SBANK= workaround.
000493,000021:                                                                                                  ##              2016-12-03 RSB  Proofed comments using ProoferComments.py,
000494,000022:                                                                                                  ##                              resulting in 91 fixes to them (in 47 total pages).
000495,000023:                                                                                                  ##                              There were some additional fixes to whitespace and
000496,000024:                                                                                                  ##                              ##-style comments that I accidentally noticed
000497,000025:                                                                                                  ##                              along the way.
000498,000026:                                                                                                  ##              2016-12-04 RSB  Another typo discovered with an improved ProoferComments.py.
000499,000027:                                                                                                  ##              2016-12-05 RSB  Final few fixes with improved octopus/ProoferComments.  This
000500,000028:                                                                                                  ##                              file is now completely proofed for textual content of comments.
000501,000029:                                                                                                  ##              2017-06-03 MAS  Replaced an instance of P00H with POOH.
000502,000030:                                                                                                  ##              2021-05-30 ABS  Removed LOWSUPER workaround that is no longer needed.
000503,000031: 

Page 12

000505,000033: 
000506,000034: ???????                        A                  EQUALS   0                                     
000507,000035: ???????                        L                  EQUALS   1                                     #  L AND Q ARE BOTH CHANNELS AND REGISTERS.
000508,000036: ???????                        Q                  EQUALS   2                                     
000509,000037: ???????                        EBANK              EQUALS   3                                     
000510,000038: ???????                        FBANK              EQUALS   4                                     
000511,000039: ???????                        Z                  EQUALS   5                                     #  ADJACENT TO FBANK AND BBANK FOR DXCH Z
000512,000040: ???????                        BBANK              EQUALS   6                                     #  (DTCB) AND DXCH FBANK (DTCF).
000513,000041:                                                                                                  #  REGISTER 7 IS A ZERO-SOURCE. USED BY ZL.
000514,000042: 
000515,000043: ???????                        ARUPT              EQUALS   10                                    #  INTERRUPT STORAGE.
000516,000044: ???????                        LRUPT              EQUALS   11                                    
000517,000045: ???????                        QRUPT              EQUALS   12                                    
000518,000046: ???????                        SAMPTIME           EQUALS   13                                    #  SAMPLED TIME 1 & 2.
000519,000047: ???????                        ZRUPT              EQUALS   15                                    #  (13 AND 14 ARE SPARES.)
000520,000048: ???????                        BANKRUPT           EQUALS   16                                    #  USUALLY HOLDS FBANK OR BBANK.
000521,000049: ???????                        BRUPT              EQUALS   17                                    #  RESUME ADDRESS AS WELL.
000522,000050: 
000523,000051: ???????                        CYR                EQUALS   20                                    
000524,000052: ???????                        SR                 EQUALS   21                                    
000525,000053: ???????                        CYL                EQUALS   22                                    
000526,000054: ???????                        EDOP               EQUALS   23                                    #  EDITS INTERPRETIVE OPERATION CODE PAIRS.
000527,000055: 
000528,000056: ???????                        TIME2              EQUALS   24                                    
000529,000057: ???????                        TIME1              EQUALS   25                                    
000530,000058: ???????                        TIME3              EQUALS   26                                    
000531,000059: ???????                        TIME4              EQUALS   27                                    
000532,000060: ???????                        TIME5              EQUALS   30                                    
000533,000061: ???????                        TIME6              EQUALS   31                                    
000534,000062: ???????                        CDUX               EQUALS   32                                    
000535,000063: ???????                        CDUY               EQUALS   33                                    
000536,000064: ???????                        CDUZ               EQUALS   34                                    
000537,000065: ???????                        OPTY               EQUALS   35                                    
000538,000066: ???????                        OPTX               EQUALS   36                                    
000539,000067: ???????                        PIPAX              EQUALS   37                                    
000540,000068: ???????                        PIPAY              EQUALS   40                                    
000541,000069: ???????                        PIPAZ              EQUALS   41                                    
000542,000070: ???????                        BMAGX              EQUALS   42                                    
000543,000071: ???????                        RHCP               EQUALS   42                                    
000544,000072: ???????                        BMAGY              EQUALS   43                                    
000545,000073: ???????                        RHCY               EQUALS   43                                    
000546,000074: ???????                        BMAGZ              EQUALS   44                                    
000547,000075: ???????                        RHCR               EQUALS   44                                    
000548,000076: ???????                        INLINK             EQUALS   45                                    
000549,000077: ???????                        RNRAD              EQUALS   46                                    
000550,000078: ???????                        GYROCTR            EQUALS   47                                    
000551,000079: ???????                        GYROCMD            EQUALS   47                                    
000552,000080: ???????                        CDUXCMD            EQUALS   50                                    
000553,000081: ???????                        CDUYCMD            EQUALS   51                                    

Page 13

000555,000083: ???????                        CDUZCMD            EQUALS   52                                    
000556,000084: ???????                        OPTYCMD            EQUALS   53                                    
000557,000085: ???????                        OPTXCMD            EQUALS   54                                    
000558,000086: ???????                        EMSD               EQUALS   55                                    
000559,000087: ???????                        THRUST             EQUALS   55                                    
000560,000088: ???????                        LEMONM             EQUALS   56                                    
000561,000089: ???????                        OUTLINK            EQUALS   57                                    
000562,000090: ???????                        ALTM               EQUALS   60                                    
000563,000091: 
000564,000092:                                                                                                  #  VAC-RELATIVE INTERPRETER ASSIGNMENTS:
000565,000093: 
000566,000094: ???????                        LVSQUARE           EQUALS   34D                                   #  SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
000567,000095: ???????                        LV                 EQUALS   36D                                   #  LENGTH OF VECTOR INPUT TO UNIT.
000568,000096: ???????                        X1                 EQUALS   38D                                   #  INTERPRETIVE SPECIAL REGISTERS RELATIVE
000569,000097: ???????                        X2                 EQUALS   39D                                   #  TO THE WORK AREA.
000570,000098: ???????                        S1                 EQUALS   40D                                   
000571,000099: ???????                        S2                 EQUALS   41D                                   
000572,000100: ???????                        QPRET              EQUALS   42D                                   
000573,000101: 

Page 14

000575,000103:                                                                                                  #  GENERAL ERASABLE ASSIGNMENTS.
000576,000104: 
000577,000105:    0061                                           SETLOC   61                                    
000578,000106: 
000579,000107:                                                                                                  #            THE FOLLOWING SET COMPRISES THE INTERRUPT TEMPORARY STORAGE POOL.
000580,000108: 
000581,000109:                                                                                                  #            ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
000582,000110:                                                                                                  #  IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
000583,000111: 
000584,000112:    0061                        ITEMP1             ERASE                                          
000585,000113:    0062     0061               WAITEXIT           EQUALS   ITEMP1                                
000586,000114:    0062     0061               EXECTEM1           EQUALS   ITEMP1                                
000587,000115: 
000588,000116:    0062                        ITEMP2             ERASE                                          
000589,000117:    0063     0062               WAITBANK           EQUALS   ITEMP2                                
000590,000118:    0063     0062               EXECTEM2           EQUALS   ITEMP2                                
000591,000119: 
000592,000120:    0063                        ITEMP3             ERASE                                          
000593,000121:    0064     0063               WAITADR            EQUALS   ITEMP3                                
000594,000122:    0064     0063               NEWPRIO            EQUALS   ITEMP3                                
000595,000123: 
000596,000124:    0064                        ITEMP4             ERASE                                          
000597,000125:    0065     0064               LOCCTR             EQUALS   ITEMP4                                
000598,000126:    0065     0064               WAITTEMP           EQUALS   ITEMP4                                
000599,000127: 
000600,000128:    0065                        ITEMP5             ERASE                                          
000601,000129:    0066     0065               NEWLOC             EQUALS   ITEMP5                                
000602,000130: 
000603,000131:    0066                        ITEMP6             ERASE                                          
000604,000132:                                                                                                  #  NEWLOC+1      EQUALS  ITEMP6          DP ADDRESS.
000605,000133: 
000606,000134:    0067                                           SETLOC   67                                    #  NEWJOB MUST BE IN LOCATION 67.
000607,000135:    0067                        NEWJOB             ERASE                                          #         ----
000608,000136: 
000609,000137:    0070                        RUPTREG1           ERASE                                          
000610,000138:    0071                        RUPTREG2           ERASE                                          
000611,000139:    0072                        RUPTREG3           ERASE                                          
000612,000140:    0073                        RUPTREG4           ERASE                                          
000613,000141:    0074     0073               KEYTEMP1           EQUALS   RUPTREG4                              
000614,000142:    0074     0073               DSRUPTEM           EQUALS   RUPTREG4                              
000615,000143: 
000616,000144:    0074     0070               RCSMONT1           EQUALS   RUPTREG1                              #  FOUR TEMPORARIES USED BY RCSMONIT
000617,000145:    0074     0071               RCSMONT2           EQUALS   RCSMONT1   +1                         #  ROUTINE (PART OF T4RUPT).  THEIR ORDER
000618,000146:    0074     0072               RCSMONT3           EQUALS   RCSMONT1   +2                         #  IS NOT IMPORTANT, & THEY DON'T EVEN HAVE
000619,000147:    0074     0073               RCSMONT4           EQUALS   RCSMONT1   +3                         #  TO BE ADJACENT LOCATIONS.
000620,000148: 

Page 15

000622,000150: 
000623,000151:                                                                                                  #  FLAG & SWITCH RESERVATIONS.
000624,000152: 
000625,000153:    0074                        STATE              ERASE    +7                                    #  120 SWITCHES
000626,000154: 
000627,000155:    0104     0075               FLAGWRD1           EQUALS   STATE      +1                         
000628,000156:    0104     0076               FLAGWRD2           EQUALS   STATE      +2                         
000629,000157:    0104     0077               DAPBOOLS           EQUALS   STATE      +3                         
000630,000158:    0104     0100               FLAGWRD4           EQUALS   STATE      +4                         
000631,000159: 
000632,000160:    0104     0101               LMPJFAIL           EQUALS   STATE      +5                         
000633,000161:    0104     0102               CH5MASK            EQUALS   STATE      +6                         
000634,000162:    0104     0103               CH6MASK            EQUALS   STATE      +7                         
000635,000163: 
000636,000164:                                                                                                  #  INTERPRETIVE SWITCH BIT ASSIGNMENTS:
000637,000165: 
000638,000166:    0104                        WMATFLAG           EQUALS   0                                     
000639,000167:    0104                        JSWITCH            EQUALS   1                                     
000640,000168:    0104                        MIDFLAG            EQUALS   2                                     
000641,000169:    0104                        MOONFLAG           EQUALS   3                                     
000642,000170:    0104                        NBSMBIT            EQUALS   4                                     
000643,000171:    0104                        COAROFIN           EQUALS   5                                     
000644,000172:    0104                        IMUSE              EQUALS   7                                     
000645,000173:    0104                        RRUSE              EQUALS   8D                                    
000646,000174:    0104                        RRNBSW             EQUALS   9D                                    
000647,000175:    0104                        LOKONSW            EQUALS   10D                                   
000648,000176:    0104                        SIVBGONE           EQUALS   26D                                   
000649,000177:    0104                        GRRFLAG            EQUALS   28D                                   
000650,000178:    0104                        CONVSW             EQUALS   60D                                   
000651,000179:    0104                        DONESW             EQUALS   61D                                   
000652,000180:    0104                        ITERSW             EQUALS   62D                                   
000653,000181:    0104                        GUESSW             EQUALS   63D                                   
000654,000182:    0104                        PIESW              EQUALS   64D                                   
000655,000183:    0104                        MOONSW             EQUALS   65D                                   
000656,000184:    0104  0000101               ESCPSW             EQUALS   MOONSW                                
000657,000185:    0104  0000101               SMANGLSW           EQUALS   MOONSW                                
000658,000186:    0104                        BAKTO4             EQUALS   66D                                   
000659,000187:    0104                        DIRECT             EQUALS   67D                                   
000660,000188:    0104                        PASS               EQUALS   68D                                   
000661,000189:    0104                        HC                 EQUALS   69D                                   
000662,000190:    0104                        INTEGRSW           EQUALS   70D                                   
000663,000191: 
000664,000192:    0104                        ENGOFFSW           EQUALS   71D                                   
000665,000193: 
000666,000194:                                                                                                  #  NOTE THAT FLAGWRD1 AND FLAGWRD2 CORRESPOND TO INTERPRETIVE SWITCHES 15D THROUGH 44D.  DAPBOOLS AND
000667,000195:                                                                                                  #      FLAGWRD4 CORRESPOND TO INTERPRETIVE SWITCHES 45D THROUGH 74D.
000668,000196: 
000669,000197:                                                                                                  #               BIT     FLAGWORD   SWITCH   SWITCH    ON-STATE                      OFF-STATE
000670,000198:                                                                                                  #  LOCATION    NUMBER    SYMBOL    NUMBER   SYMBOL    INDICATES                     INDICATES
000671,000199:                                                                                                  #  --------   --------  --------   ------   ------    ---------                     ---------

Page 16

000673,000201:                                                                                                  #  STATE          1                  14               AVAILABLE
000674,000202:                                                                                                  #                 2                  13               AVAILABLE
000675,000203:                                                                                                  #                 3                  12               AVAILABLE
000676,000204:                                                                                                  #                 4                  11               AVAILABLE
000677,000205:                                                                                                  #                 5      LOKONFLG    10     LOKONSW   RADAR LOCK-ON REQUEST         NO RADAR LOCK-ON REQUEST
000678,000206:                                                                                                  #                                                                                      (LOCKED ON 0)
000679,000207:                                                                                                  #                 6                   9     RRNBSW    RADAR TARGET IN NAVIGATION    RADAR TARGET IN STABLE MEMBER
000680,000208:                                                                                                  #                                                        BASE COORDINATES              COORDINATES
000681,000209:                                                                                                  #                 7      RRUSEFLG     8     RRUSE     RENDEZVOUS RADAR IN USE       RENDEZVOUS RADAR NOT IN USE
000682,000210:                                                                                                  #                                                                                      (LOCKED ON 0)
000683,000211:                                                                                                  #                 8      IMUSEFLG     7     IMUSE     IMU IN USE                    IMU NOT IN USE
000684,000212:                                                                                                  #                 9                   6               AVAILABLE
000685,000213:                                                                                                  #                10                   5     COAROFIN  VECTOR IN NAVIGATION BASE     VECTOR IN STABLE MEMBER
000686,000214:                                                                                                  #                                                        COORDINATES                   COORDINATES
000687,000215:                                                                                                  #                11                   4     NBSMBIT   STAR POSITION IN NAVIGATION   STAR POSITION IN STABLE
000688,000216:                                                                                                  #                                                        BASE COORDINATES              MEMBER COORDINATES
000689,000217:                                                                                                  #                12                   3     MOONFLAG  LUNAR ORBIT                   EARTH ORBIT (LOCKED ON 0)
000690,000218:                                                                                                  #                13                   2     MIDFLAG   MID-COURSE ORBIT              EARTH OR LUNAR LOCAL ORBIT
000691,000219:                                                                                                  #                                                                                      (LOCKED ON 0)
000692,000220:                                                                                                  #                14                   1     JSWITCH   W-MATRIX BEING EXTRAPOLATED   STATE VECTOR BEING
000693,000221:                                                                                                  #                                                                                      EXTRAPOLATED (LOCKED ON 0)
000694,000222:                                                                                                  #                15                   0     WMATFLAG  W-MATRIX TO BE EXTRAPOLATED   NO W-MATRIX EXTRAPOLATION
000695,000223:                                                                                                  #                                                                                      (LOCKED ON 0)
000696,000224: 
000697,000225:                                                                                                  #  FLAGWRD1       1                  29               AVERAGE G INTEGRATING         AVERAGE G NOT INTEGRATING
000698,000226:                                                                                                  #                 2                  28               GUIDANCE REFERENCE RELEASE    GUIDANCE REFERENCE RELEASE
000699,000227:                                                                                                  #                                                        HAS OCCURRED                  HAS NOT OCCURRED
000700,000228:                                                                                                  #                                                      _                                                      _
000701,000229:                                                                                                  #                 3                  27               CCC FAILURE.  NO FURTHER      UPLINK ERROR RESET OR NO CCC
000702,000230:                                                                                                  #                                                        UPLINK COMMANDS EXCEPT        FAILURE
000703,000231:                                                                                                  #                                                        ERROR RESET ACCEPTED
000704,000232:                                                                                                  #                 4                  26     SIVBGONE  SIVB JETTISONED               SIVB ATTACHED
000705,000233:                                                                                                  #                 5      ENGINBIT    25               TO DV MONITOR ENGINE SHOULD   TO DV MONITOR ENGINE SHOULD
000706,000234:                                                                                                  #                                                        BE ON                         BE OFF
000707,000235:                                                                                                  #                 6                  24               GO TO ENDOFJOB AT AVGEND      GO TO POOH AT AVGEND
000708,000236:                                                                                                  #                 7                  23               AVAILABLE
000709,000237:                                                                                                  #                 8                  22               FINE ALIGN INHIBITED DUE TO   FINE ALIGN ALLOWED
000710,000238:                                                                                                  #                                                        GIMBAL LOCK
000711,000239:                                                                                                  #                 9                  21               AVAILABLE
000712,000240:                                                                                                  #                10                  20               AVAILABLE
000713,000241:                                                                                                  #                11                  19               AVAILABLE
000714,000242:                                                                                                  #                12                  18               NORMAL RESTART ALLOWED        FAKE START ALLOWED
000715,000243:                                                                                                  #                13                  17               EXCESSIVE TUMBLING            NO EXCESSIVE TUMBLING
000716,000244:                                                                                                  #                14                  16               TUMBLE MONITOR ON             TUMBLE MONITOR OFF
000717,000245:                                                                                                  #                15                  15               AVAILABLE
000718,000246: 

Page 17

000720,000248:                                                                                                  #  FLAGWRD2       1                  44               RCS COLD SOAK INHIBIT         RCS COLD SOAK ALLOWED
000721,000249:                                                                                                  #                                                                                      (CAN BE SET TO 0 ONLY BY
000722,000250:                                                                                                  #                                                                                      UPDATE V73)
000723,000251:                                                                                                  #                 2                  43               DPS COLD SOAK INHIBIT         DPS COLD SOAK ALLOWED
000724,000252:                                                                                                  #                 3                  42               RCS TESTING INHIBIT           RCS TESTING ALLOWED (CAN BE
000725,000253:                                                                                                  #                                                                                      SET TO 0 ONLY BY UPDATE V73)
000726,000254:                                                                                                  #                 4                  41               TRIM GIMBAL DISENABLED DUE    TRIM GIMBAL ALLOWED
000727,000255:                                                                                                  #                                                        TO THROTTLING
000728,000256:                                                                                                  #                 5                  40               MISSION PHASE TIMERS ENABLED  MISSION PHASE TIMERS NOT 
000729,000257:                                                                                                  #                                                                                      ENABLED
000730,000258:                                                                                                  #                 6                  39               V33 VERIFICATION OF UPDATE    V33 VERIFICATION OF UPDATE
000731,000259:                                                                                                  #                                                        PROGRAM WHEN INVERTED         PROGRAM WHEN INVERTED
000732,000260:                                                                                                  #                 7                  38               ORBITAL INTEGRATION           ORBITAL INTEGRATION NOT
000733,000261:                                                                                                  #                                                        INTEGRATING                   INTEGRATING
000734,000262:                                                                                                  #                 8                  37               ASC FEED TEST IN PROCESS      ASC FEED TEST NOT IN PROCESS
000735,000263:                                                                                                  #                 9                  36               ABORT COMMAND MONITOR ENABLED ABORT COMMAND MONITOR NOT
000736,000264:                                                                                                  #                                                                                      ENABLED
000737,000265:                                                                                                  #                10                  35               ABORT COMMAND RECEIVED AND    ABORT COMMAND NOT RECEIVED OR
000738,000266:                                                                                                  #                                                        ACCEPTED                      NOT ACCEPTED
000739,000267:                                                                                                  #                11                  34               KALCMANU IN PROCESS           KALCMANU NOT IN PROCESS
000740,000268:                                                                                                  #                12                  33               IGNORE FINAL YAW              FINAL YAW ADJUSTMENT REQUIRED
000741,000269:                                                                                                  #                13                  32               START UPDATE PROCESS FOR      UPDATE PROCESS FOR DESIRED CDU
000742,000270:                                                                                                  #                                                        DESIRED CDU ANGLES IN         ANGLES CONTINUES DURING 
000743,000271:                                                                                                  #                                                        KALCMANU                      KALCMANU
000744,000272:                                                                                                  #                14                  31               NO FINAL YAW REQUIRED FOR     FINAL YAW REQUIRED FOR THREE
000745,000273:                                                                                                  #                                                        THREE AXIS ALIGNMENT          AXIS ALIGNMENT
000746,000274:                                                                                                  #                15                  30               SPACECRAFT IN NON-ACCELERATED SPACECRAFT IN ACCELERATED
000747,000275:                                                                                                  #                                                        FLIGHT                        FLIGHT
000748,000276: 
000749,000277:                                                                                                  #  DAPBOOLS     1 - 15             45 - 39            DEFINED IN LOG SECTION "DAP INTERFACE SUBROUTINES"
000750,000278: 
000751,000279:                                                                                                  #  FLAGWRD4       1                  74               AVAILABLE
000752,000280:                                                                                                  #                 2                  73               AVAILABLE
000753,000281:                                                                                                  #                 3                  72               AVAILABLE
000754,000282:                                                                                                  #                 4                  71     ENGOFFSW  ENGINE OFF COMMAND HAS BEEN   ENGINE OFF COMMAND HAS NOT
000755,000283:                                                                                                  #                                                        SENT AND FURTHER COMMANDS     BEEN SENT AND COMMAND IS
000756,000284:                                                                                                  #                                                        ARE PROHIBITED                ALLOWED
000757,000285:                                                                                                  #                 5                  70     INTEGRSW  IGNITION STATE DELAYED        NORMAL IGNITION STATE
000758,000286:                                                                                                  #                 6                  69     HC        RCO NOT CONTROLLED            RCO CONSTRAINED
000759,000287:                                                                                                  #                 7                  68     PASS      BYPASS TCO CALC IN ASCENT     DO TCO CALCULATION
000760,000288:                                                                                                  #                 8                  67     DIRECT    ASCENT EQ SET FOR MP 13       ASCENT EQ SET FOR MP 4
000761,000289:                                                                                                  #                 9                  66     BAKTO4    TGO ESTIMATOR USED IN MP4     TGO ESTIMATOR USED IN ASCENT
000762,000290:                                                                                                  #                                                                                      STEERING

RSB 2016 — Yes, the following three lines are all 10/65 in the program listing.

000764,000292:                                                                                                  #                10                  65     MOONSW    INSIDE MOONSPHERE             OUTSIDE MOONSPHERE
000765,000293:                                                                                                  #                                                                                      (LOCKED ON 0)
000766,000294:                                                                                                  #                10                  65     ESCPSW    HYPERBOLIC TRAJECTORY         ELLIPTICAL ORBIT  (LOCKED ON 0)                   

Page 18

000768,000296:                                                                                                  #                10                  65     SMANGLSW  NORMALIZED TIME               TIME SCALED +7 (LOCKED ON 0)
000769,000297:                                                                                                  #                11                  64     PIESW     TRANSFER ANGLE GREATER THAN   TRANSFER ANGLE LESS THAN
000770,000298:                                                                                                  #                                                        180 DEGREES                   180 DEGREES
000771,000299:                                                                                                  #                12                  63     GUESSW    GUESS IS AVAILABLE            LAMBERT COMPUTES GUESS
000772,000300:                                                                                                  #                13                  62     ITERSW    FIRST LAMBERT ITERATION       OTHER THAN FIRST LAMBERT
000773,000301:                                                                                                  #                                                                                      ITERATION
000774,000302:                                                                                                  #                14                  61     DONESW    LAMBERT ROUTINE COMPLETION    LAMBERT ROUTINE NOT COMPLETE
000775,000303:                                                                                                  #                15                  60     CONVSW    LAMBERT ROUTINE               LAMBERT ROUTINE CONVERGENCE
000776,000304:                                                                                                  #                                                        NON-CONVERGENCE
000777,000305: 

Page 19

000779,000307: 
000780,000308:                                                                                                  #  THE FOLLOWING ARE EXECUTIVE TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOB INQUIRIES.
000781,000309: 
000782,000310:    0104                        INTB15+            ERASE                                          #  REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
000783,000311:    0105     0104               DSEXIT             =        INTB15+                               #  RETURN FOR DSPIN
000784,000312:    0105     0104               EXITEM             =        INTB15+                               #  RETURN FOR SCALE FACTOR ROUTINE SELECT
000785,000313:    0105     0104               BLANKRET           =        INTB15+                               #  RETURN FOR 2BLANK
000786,000314: 
000787,000315:    0105                        INTBIT15           ERASE                                          #  SIMILAR TO ABOVE.
000788,000316:    0106     0105               WRDRET             =        INTBIT15                              #  RETURN FOR 5BLANK
000789,000317:    0106     0105               WDRET              =        INTBIT15                              #  RETURN FOR DSPWD
000790,000318:    0106     0105               DECRET             =        INTBIT15                              #  RETURN FOR PUTCOM(DEC LOAD)
000791,000319:    0106     0105               21/22REG           =        INTBIT15                              #  TEMP FOR CHARIN
000792,000320: 
000793,000321:                                                                                                  #  THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
000794,000322: 
000795,000323:    0106                        ADDRWD             ERASE                                          #  12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
000796,000324: 
000797,000325:    0107                        POLISH             ERASE                                          #  HOLDS CADR MADE FROM POLISH ADDRESS.
000798,000326:    0110     0107               UPDATRET           =        POLISH                                #  RETURN FOR UPDATNN, UPDATVB
000799,000327:    0110     0107               CHAR               =        POLISH                                #  TEMP FOR CHARIN
000800,000328:    0110     0107               ERCNT              =        POLISH                                #  COUNTER FOR ERROR LIGHT RESET
000801,000329:    0110     0107               DECOUNT            =        POLISH                                #  COUNTER FOR SCALING AND DISPLAY (DEC)
000802,000330:    0110     0107               PWRPTR             =        POLISH                                #  ROOTPSRS PWR TABL POINTER
000803,000331: 
000804,000332:    0110                        FIXLOC             ERASE                                          #  WORK AREA ADDRESS.
000805,000333: 
000806,000334:    0111                        OVFIND             ERASE                                          #  SET NON-ZERO ON OVERFLOW.
000807,000335: 
000808,000336:    0112                        VBUF               ERASE    +5                                    #  TEMPORARY STORAGE USED FOR VECTORS.
000809,000337:    0120     0112               SGNON              =        VBUF                                  #  TEMP FOR +,- ON
000810,000338:    0120     0112               NOUNTEM            =        VBUF                                  #  COUNTER FOR MIXNOUN FETCH
000811,000339:    0120     0112               DISTEM             =        VBUF                                  #  COUNTER FOR OCTAL DISPLAY VERBS
000812,000340:    0120     0112               DECTEM             =        VBUF                                  #  COUNTER FOR FETCH (DEC DISPLAY VERBS)
000813,000341: 
000814,000342:    0120     0113               SGNOFF             =        VBUF       +1                         #  TEMP FOR +,- ON
000815,000343:    0120     0113               NVTEMP             =        VBUF       +1                         #  TEMP FOR NVSUB
000816,000344:    0120     0113               SFTEMP1            =        VBUF       +1                         #  STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
000817,000345: 
000818,000346:    0120     0114               CODE               =        VBUF       +2                         #  FOR DSPIN
000819,000347:    0120     0114               SFTEMP2            =        VBUF       +2                         #  STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
000820,000348:    0120     0114               DXCRIT             =        VBUF       +2                         #  ROOTPSRS CRITERION FOR ENDING ITERS HI
000821,000349: 
000822,000350:    0120     0115               MIXTEMP            =        VBUF       +3                         #  FOR MIXNOUN DATA
000823,000351:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
000824,000352:    0120     0115               SIGNRET            =        VBUF       +3                         #  RETURN FOR +,- ON
000825,000353:    0120     0115               DXCRIT+1           =        VBUF       +3                         #  ROOTPSRS CRITERION FOR ENDING ITERS LO
000826,000354: 
000827,000355:    0120     0116               ROOTPS             =        VBUF       +4                         #  ROOTPSRS ROOT HI ORDER
000828,000356: 
000829,000357:    0120     0117               ROOTPS+1           =        VBUF       +5                         #  ROOTPSRS ROOT LO ORDER
000830,000358: 

Page 20

000832,000360:    0120                        BUF                ERASE    +2                                    #  TEMPORARY SCALAR STORAGE.
000833,000361:    0123     0120               INDEXLOC           EQUALS   BUF                                   #  CONTAINS ADDRESS OF SPECIFIED INDEX.
000834,000362:    0123     0120               SWWORD             EQUALS   BUF                                   #  ADDRESS OF SWITCH WORD.
000835,000363: 
000836,000364:    0123     0121               SWBIT              EQUALS   BUF        +1                         #  SWITCH BIT WITHIN SWITCH WORD.
000837,000365: 
000838,000366:    0123     0122               RETROOT            =        BUF        +2                         #  ROOTPSRS RETURN ADDRESS OF USER
000839,000367: 
000840,000368:    0123                        BUF2               ERASE    +1                                    
000841,000369: 
000842,000370:    0125                        MPTEMP             ERASE                                          #  TEMPORARY USED IN MULTIPLY AND SHIFT
000843,000371:    0126     0125               DMPNTEMP           =        MPTEMP                                #  DMPNSUB TEMPORARY
000844,000372: 
000845,000373:    0126                        DOTINC             ERASE                                          #  COMPONENT INCREMENT FOR DOT SUBROUTINE.
000846,000374:    0127     0126               DVSIGN             EQUALS   DOTINC                                #  DETERMINES SIGN OF DDV RESULT.
000847,000375:    0127     0126               ESCAPE             EQUALS   DOTINC                                #  USED IN ARCSIN/ARCCOS.
000848,000376:    0127     0126               ENTRET             =        DOTINC                                #  EXIT FROM ENTER
000849,000377: 
000850,000378:    0127                        DOTRET             ERASE                                          #  RETURN FROM DOT SUBROUTINE.
000851,000379:    0130     0127               DVNORMCT           EQUALS   DOTRET                                #  DIVIDEND NORMALIZATION COUNT IN DDV.
000852,000380:    0130     0127               ESCAPE2            EQUALS   DOTRET                                #  ALTERNATE ARCSIN/ARCCOS SWITCH.
000853,000381:    0130     0127               WDCNT              =        DOTRET                                #  CHAR COUNTER FOR DSPWD
000854,000382:    0130     0127               INREL              =        DOTRET                                #  INPUT BUFFER SELECTOR ( X,Y,Z, REG )
000855,000383: 
000856,000384:    0130                        MATINC             ERASE                                          #  VECTOR INCREMENT IN MXV AND VXM.
000857,000385:    0131     0130               MAXDVSW            EQUALS   MATINC                                #  +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
000858,000386:    0131     0130               POLYCNT            EQUALS   MATINC                                #  POLYNOMIAL LOOP COUNTER
000859,000387:    0131     0130               DSPMMTEM           =        MATINC                                #  DSPCOUNT SAVE FOR DSPMM
000860,000388:    0131     0130               MIXBR              =        MATINC                                #  INDICATOR FOR MIXED OR NORMAL NOUN
000861,000389:    0131     0130               PWRCNT             =        MATINC                                #  ROOTPSRS DER TABL LOOP COUNTER
000862,000390: 
000863,000391:    0131                        TEM1               ERASE                                          #  EXEC TEMP
000864,000392:    0132     0131               POLYRET            =        TEM1                                  
000865,000393:    0132     0131               DSREL              =        TEM1                                  #  REL ADDRESS FOR DSPIN
000866,000394:    0132     0131               DERPTR             =        TEM1                                  #  ROOTPSRS DER TABL POINTER
000867,000395: 
000868,000396:                                                                                                  #           THE FOLLOWING 10 REGISTERS ARE USED FOR TEMPORARY STORAGE OF THE DERIVATIVE COEFFICIENT TABLE OF
000869,000397:                                                                                                  #  SUBROUTINE ROOTPSRS.  THEY MUST REMAIN WITHOUT INTERFERENCE WITH ITS SUBROUTINES WHICH ARE POWRSERS (POLY),
000870,000398:                                                                                                  #  DMPSUB, DMPNSUB, SHORTMP, DDV/BDDV, ABS, AND USPRCADR.
000871,000399: 
000872,000400:    0132                        TEM2               ERASE                                          #  EXEC TEMP
000873,000401:    0133     0132               DSMAG              =        TEM2                                  #  MAGNITUDE STORE FOR DSPIN
000874,000402:    0133     0132               IDADDTEM           =        TEM2                                  #  MIXNOUN INDIRECT ADDRESS STORAGE
000875,000403:    0133     0132               DERCOF+8           =        MPAC       -12                        #  ROOTPSRS DER COF N-4 HI ORDER
000876,000404: 
000877,000405:    0133                        TEM3               ERASE                                          #  EXEC TEMP
000878,000406:    0134     0133               COUNT              =        TEM3                                  #  FOR DSPIN
000879,000407:    0134     0133               DERCOF-7           =        MPAC       -11                        #  ROOTPSRS DER COF N-4 LO ORDER
000880,000408: 
000881,000409:    0134                        TEM4               ERASE                                          #  EXEC TEMP

Page 21

000883,000411:    0135     0134               LSTPTR             =        TEM4                                  #  LIST POINTER FOR GRABUSY
000884,000412:    0135     0134               RELRET             =        TEM4                                  #  RETURN FOR RELDSP
000885,000413:    0135     0134               FREERET            =        TEM4                                  #  RETURN FOR FREEDSP
000886,000414:    0135     0134               DERCOF-6           =        MPAC       -10                        #  ROOTPSRS DER COF N-3 HI ORDER
000887,000415: 
000888,000416:    0135                        TEM5               ERASE                                          #  EXEC TEMP
000889,000417:    0136     0135               NOUNADD            =        TEM5                                  #  TEMP STORAGE FOR NOUN ADDRESS
000890,000418:    0136     0135               DERCOF-5           =        MPAC       -7                         #  ROOTPSRS DER COF N-3 LO ORDER
000891,000419: 
000892,000420:    0136                        NNADTEM            ERASE                                          #  TEMP FOR NOUN ADDRESS TABLE ENTRY
000893,000421:    0137     0136               DERCOF-4           =        MPAC       -6                         #  ROOTPSRS DER COF N-2 HI ORDER
000894,000422: 
000895,000423:    0137                        NNTYPTEM           ERASE                                          #  TEMP FOR NOUN TYPE TABLE ENTRY
000896,000424:    0140     0137               DERCOF-3           =        MPAC       -5                         #  ROOTPSRS DER COF N-2 LO ORDER
000897,000425: 
000898,000426:    0140                        IDAD1TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
000899,000427:                                                                                                  #  MUST = IDAD2TEM-1, = IDAD3TEM-2.
000900,000428:    0141     0140               DERCOF-2           =        MPAC       -4                         #  ROOTPSRS DER COF N-1 HI ORDER
000901,000429: 
000902,000430:    0141                        IDAD2TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
000903,000431:                                                                                                  #  MUST = IDAD1TEM+1, = IDAD3TEM-1.
000904,000432:    0142     0141               DERCOF-1           =        MPAC       -3                         #  ROOTPSRS DER COF N-1 LO ORDER
000905,000433: 
000906,000434:    0142                        IDAD3TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
000907,000435:                                                                                                  #  MUST = IDAD1TEM+2, = IDAD2TEM+1.
000908,000436:    0143     0142               DERCOFN            =        MPAC       -2                         #  ROOTPSRS DER COF N   HI ORDER
000909,000437: 
000910,000438:    0143                        RUTMXTEM           ERASE                                          #  TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
000911,000439:    0144     0143               DERCOF+1           =        MPAC       -1                         #  ROOTPSRS DER COF N   LO ORDER
000912,000440: 
000913,000441:                                                                                                  #  STORAGE USED BY THE EXECUTIVE.
000914,000442: 
000915,000443:    0144                        MPAC               ERASE    +6                                    #  MULTI-PURPOSE ACCUMULATOR.
000916,000444:    0153                        MODE               ERASE                                          #  +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
000917,000445:    0154                        LOC                ERASE                                          #  LOCATION ASSOCIATED WITH JOB.
000918,000446:    0155                        BANKSET            ERASE                                          #  USUALLY CONTAINS BBANK SETTING.
000919,000447:    0156                        PUSHLOC            ERASE                                          #  WORD OF PACKED INTERPRETIVE PARAMETERS.
000920,000448:    0157                        PRIORITY           ERASE                                          #  PRIORITY OF PRESENT JOB AND WORK AREA.
000921,000449: 
000922,000450:    0160                                           ERASE    +71D                                  #  SEVEN SETS OF 12 REGISTERS EACH.
000923,000451: 

Page 22

000925,000453:                                                                                                  #  THE FOLLOWING REGISTERS ARE RESERVED FOR PINBALL
000926,000454: 
000927,000455:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
000928,000456: 
000929,000457:    0270                        DSPCOUNT           ERASE                                          #  DISPLAY POSITION INDICATOR
000930,000458:    0271                        DECBRNCH           ERASE                                          #  +DEC, -DEC, OCT INDICATOR
000931,000459:    0272                        VERBREG            ERASE                                          #  VERB CODE
000932,000460:    0273                        NOUNREG            ERASE                                          #  NOUN CODE
000933,000461:    0274                        XREG               ERASE                                          #  R1 INPUT BUFFER
000934,000462:    0275                        YREG               ERASE                                          #  R2 INPUT BUFFER
000935,000463:    0276                        ZREG               ERASE                                          #  R3 INPUT BUFFER
000936,000464:    0277                        XREGLP             ERASE                                          #  LO PART OF XREG (FOR DEC CONV ONLY)
000937,000465:    0300                        YREGLP             ERASE                                          #  LO PART OF YREG (FOR DEC CONV ONLY)
000938,000466:    0301                        ZREGLP             ERASE                                          #  LO PART OF ZREG (FOR DEC CONV ONLY)
000939,000467:    0302                        MODREG             ERASE                                          #  MODE CODE
000940,000468:    0303                        DSPLOCK            ERASE                                          #  KEYBOARD/SUBROUTINE CALL INTERLOCK
000941,000469:    0304                        REQRET             ERASE                                          #  RETURN REGISTER FOR LOAD
000942,000470:    0305                        LOADSTAT           ERASE                                          #  STATUS INDICATOR FOR LOADTST
000943,000471:    0306                        CLPASS             ERASE                                          #  PASS INDICATOR CLEAR
000944,000472:    0307                        NOUT               ERASE                                          #  ACTIVITY COUNTER FOR DSPTAB
000945,000473:    0310                        NOUNCADR           ERASE                                          #  MACHINE CADR FOR NOUN
000946,000474:    0311                        MONSAVE            ERASE                                          #  N/V CODE FOR MONITOR. (= MONSAVE1-1)
000947,000475:    0312                        MONSAVE1           ERASE                                          #  NOUNCADR FOR MONITOR (MATBS) =MONSAVE +1
000948,000476:    0313                        DSPTAB             ERASE    +11D                                  #  0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
000949,000477:    0327                        CADRSTOR           ERASE                                          #  ENDIDLE STORAGE
000950,000478:    0330                        GRABLOCK           ERASE                                          #  INTERNAL INTERLOCK FOR DISPLAY SYSTEM
000951,000479:    0331                        NVQTEM             ERASE                                          #  NVSUB STORAGE FOR CALLING ADDRESS
000952,000480:                                                                                                  #  MUST = NVBNKTEM-1
000953,000481:    0332                        NVBNKTEM           ERASE                                          #  NVSUB STORAGE FOR CALLING BANK
000954,000482:                                                                                                  #  MUST = NVQTEM+1
000955,000483:    0333                        DSPLIST            ERASE    +2                                    #  WAITING LIST FOR DSP SYST INTERNAL USE
000956,000484:    0336                        EXTVBACT           ERASE                                          #  EXTENDED VERB ACTIVITY INTERLOCK
000957,000485:    0337                        DSPTEM1            ERASE    +2                                    #  BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
000958,000486:    0342                        DSPTEM2            ERASE    +2                                    #  BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
000959,000487:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
000960,000488: 
000961,000489:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION 
000962,000490: 
000963,000491:    0345                        DSPCNT             ERASE                                          #  COUNTER FOR DSPOUT
000964,000492:                                                                                                  #  RECEPTION OF A BAD MESSAGE IN UPLINK)

RSB 2016 — Yes, the line above has no opening (.

000966,000494:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
000967,000495: 

Page 23

000969,000497:                                                                                                  #  ASSIGNMENTS FOR T4RUPT PROGRAM
000970,000498:    0346                        T4LOC              ERASE                                          
000971,000499:    0347                        DSRUPTSW           ERASE                                          
000972,000500:    0350                        DIDFLG             ERASE                                          
000973,000501:    0351                        ALT                ERASE    +1                                    
000974,000502:    0353                        ALTRATE            ERASE                                          
000975,000503:    0354                        FINALT             ERASE    +1                                    #  (MAY NOT BE REQUIRED FOR FLIGHTS).
000976,000504:    0356                        LGYRO              ERASE                                          
000977,000505:    0357                        FORVEL             ERASE                                          
000978,000506:    0360                        LATVEL             ERASE                                          
000979,000507:    0361                        LASTYCMD           ERASE                                          
000980,000508:    0362                        LASTXCMD           ERASE                                          
000981,000509: 
000982,000510:    0363                        ALTSAVE            ERASE    +1                                    
000983,000511:                                                                                                  #  END OF T4RUPT ASSIGNMENTS
000984,000512: 
000985,000513:    0365                        IMODES30           ERASE                                          
000986,000514:    0366                        IMODES33           ERASE                                          
000987,000515:    0367                        MODECADR           ERASE    +3                                    
000988,000516:    0373     0367               IMUCADR            EQUALS   MODECADR                              
000989,000517:    0373     0370               AOTCADR            EQUALS   MODECADR   +1                         
000990,000518:    0373     0370               OPTCADR            EQUALS   AOTCADR                               
000991,000519:    0373     0371               RADCADR            EQUALS   MODECADR   +2                         
000992,000520:    0373     0372               ATTCADR            EQUALS   MODECADR   +3                         
000993,000521: 
000994,000522:    0373                        MARKSTAT           ERASE                                          
000995,000523:    0374                        XYMARK             ERASE                                          
000996,000524:    0375                        DB                 ERASE                                          
000997,000525: 
000998,000526:                                                                                                  #  START CODING FOR MODULE 3 REMAKE, AUGUST 1967***START CODING FOR MODULE 3 REMAKE, AUGUST 1967******************
000999,000527: 
001000,000528:    0376                        /TEMP1/            ERASE                                          
001001,000529: 
001002,000530:    0377                        SMARTFLG           ERASE                                          #  ANY PNZ VALUE REQUESTS SMARTJOB.
001003,000531:                                                                                                  #  **END CODING FOR MODULE 3 REMAKE, AUGUST 1967****END CODING FOR MODULE  3 REMAKE, AUGUST 1967******************
001004,000532: 
001005,000533:    0400                                           SETLOC   400                                   
001006,000534: 
001007,000535:    0400                        THETAD             ERASE    +2                                    
001008,000536:    0403                        DELVX              ERASE    +5                                    
001009,000537: 
001010,000538:                                                                                                  #  DOWNLINK LIST ADDRESS.
001011,000539:    0411                        DNLSTADR           ERASE                                          
001012,000540: 
001013,000541:                                                                                                  #  RADAR ERASABLE

Page 24

001015,000543:    0412                        RADMODES           ERASE                                          
001016,000544:    0413                        SAMPLIM            ERASE                                          
001017,000545:    0414                        SAMPLSUM           ERASE    +1                                    
001018,000546:    0416     0414               SAMPSUM            EQUALS   SAMPLSUM                              
001019,000547:    0416                        OPTYHOLD           ERASE    +1                                    
001020,000548:    0420                        TIMEHOLD           ERASE    +1                                    
001021,000549:    0422     0414               RRTARGET           EQUALS   SAMPLSUM                              #  HALF UNIT VECTOR IN SM OR NB AXES.
001022,000550:    0422                        TANG               ERASE    +1                                    #  DESIRED TRUNNION AND SHAFT ANGLES.
001023,000551:    0424     0422               MODEA              EQUALS   TANG                                  
001024,000552:    0424                        MODEB              ERASE    +1                                    #  DODES CLOBBERS TANG +2.
001025,000553:    0426     0424               NSAMP              EQUALS   MODEB                                 
001026,000554:    0426                        DESRET             ERASE                                          
001027,000555:    0427     0426               OLDATAGD           EQUALS   DESRET                                #  USED IN DATA READING ROUTINES.
001028,000556:    0427                        DESCOUNT           ERASE                                          
001029,000557:                                                                                                  #  END OF RADAR ERASABLE ASSIGNMENTS
001030,000558: 
001031,000559:    0430                        VAC1USE            ERASE                                          
001032,000560:    0431                        VAC1               ERASE    +42D                                  
001033,000561:    0504                        VAC2USE            ERASE                                          
001034,000562:    0505                        VAC2               ERASE    +42D                                  
001035,000563:    0560                        VAC3USE            ERASE                                          
001036,000564:    0561                        VAC3               ERASE    +42D                                  
001037,000565:    0634                        VAC4USE            ERASE                                          
001038,000566:    0635                        VAC4               ERASE    +42D                                  
001039,000567:    0710                        VAC5USE            ERASE                                          
001040,000568:    0711                        VAC5               ERASE    +42D                                  
001041,000569: 
001042,000570:    0764                        PHASENUM           ERASE                                          
001043,000571: 
001044,000572:    0765                        1/PIPADT           ERASE                                          #  TIME BASE OR DT FOR IMU COMP IN C.S.
001045,000573:    0766     0765               OLDBT1             EQUALS   1/PIPADT                              #  ADJACENT TO PHASENUM FOR DOWNLINK.
001046,000574: 
001047,000575:                                                                                                  #  KALCMANU-DAP INTERFACE:
001048,000576: 
001049,000577:    0766                        CDUXD              ERASE    +2                                    #  CDU DESIRED REGISTERS:
001050,000578:    0771     0767               CDUYD              EQUALS   CDUXD      +1                         #  SCALED AT PI RADIANS (180 DEGREES)
001051,000579:    0771     0770               CDUZD              EQUALS   CDUXD      +2                         #  (STORED IN 2' COMPLEMENT)
001052,000580: 
001053,000581:    0771                        DELCDUX            ERASE    +2                                    #  NEGATIVE OF DESIRED 100MS CDU INCREMENT:
001054,000582:    0774     0772               DELCDUY            EQUALS   DELCDUX    +1                         #  SCALED AT PI RADIANS (180 DEGREES)
001055,000583:    0774     0773               DELCDUZ            EQUALS   DELCDUX    +2                         #  (STORED IN 2' COMPLEMENT)
001056,000584: 
001057,000585:    0774                        OMEGAPD            ERASE    +2                                    #  ATTITUDE MANEUVER DESIRED RATES
001058,000586:    0777     0775               OMEGAQD            EQUALS   OMEGAPD    +1                         #  (NOT EXPLICITLY REFERENCED IN GTS CNTRL)
001059,000587:    0777     0776               OMEGARD            EQUALS   OMEGAPD    +2                         #  SCALED AT PI/4 RADIANS/SECOND
001060,000588: 
001061,000589:    1000                                           SETLOC   1000                                  
001062,000590:    1000                        T5ADR              ERASE    +1                                    #  GENADR OF NEXT LM DAP T5RUPT. * 2CADR *

Page 25

001064,000592:                                                                                                  #  BBCON  OF NXT LM DAP T5RUPT. * 2CADR *
001065,000593:    1002                        T6NEXT             ERASE    +1                                    #  LIST OF TIME6 DT-S FOR JET LIST PROGRAM
001066,000594: 
001067,000595:    1004                        T6NEXTJT           ERASE    +2                                    #  LIST OF JET POLICIES FOR JTLST PROGRAM
001068,000596: 
001069,000597:    1007                        DELAYCTR           ERASE                                          #  COUNTER FOR MINIMUM IMPULSE USE OF RHC
001070,000598: 

Page 26

001072,000600:                                                                                                  #  ERASABLE ASSIGNMENTS FOR AVERAGE G INTEGRATOR:
001073,000601: 
001074,000602:    1010                        RN                 ERASE    +5                                    
001075,000603:    1016                        VN                 ERASE    +5                                    
001076,000604:    1024                        GDT/2              ERASE    +5                                    
001077,000605:    1032                        UNITR              ERASE    +5                                    
001078,000606:    1040                        UNITW              ERASE    +5                                    
001079,000607:    1046                        RMAG               ERASE    +1                                    
001080,000608:    1050     0403               DELV               EQUALS   DELVX                                 
001081,000609:    1050                        RN1                ERASE    +5                                    
001082,000610:    1056                        VN1                ERASE    +5                                    
001083,000611:    1064                        GDT1/2             ERASE    +5                                    
001084,000612:    1072                        AVGEXIT            ERASE    +1                                    
001085,000613:    1074                        AVGOUTF            ERASE    +1                                    
001086,000614:    1076     1074               DVMNEXIT           =        AVGOUTF                               
001087,000615:                                                                                                  #  WAITLIST REPEAT FLAG:
001088,000616: 
001089,000617:    1076                        RUPTAGN            ERASE                                          
001090,000618:    1077     1076               KEYTEMP2           =        RUPTAGN                               #  TEMP FOR KEYRUPT, UPRUPT
001091,000619: 
001092,000620:                                                                                                  #  PHASE TABLE AND RESTART COUNTER.
001093,000621: 

Page 27

001095,000623:                                                                                                  #  THE FOLLOWING ARE TO LOCATED IN UNSWITCHED ERRASSIBLE
001096,000624: 
001097,000625:                                                                                                  #  TBASE(I) ARE USED IN WAITLIST RESTARTS
001098,000626:                                                                                                  #  PHSPRDT(I) ARE USED TO STORE EITHER PRIORITY OR DELTA TIME FOR VARIABLE RESTARTS
001099,000627:                                                                                                  #  PHASE(I) AND -PHASE(I) ARE USED TO STORE THE PHASE INFORMATION AND PHASE INFORMATION COMPLEMENTED FOR EACH OF TH
001100,000628:                                                                                                  #  GROUPS
001101,000629: 
001102,000630:    1077                        -PHASE1            ERASE                                          
001103,000631:    1100                        PHASE1             ERASE                                          
001104,000632:    1101                        -PHASE2            ERASE                                          
001105,000633:    1102                        PHASE2             ERASE                                          
001106,000634:    1103                        -PHASE3            ERASE                                          
001107,000635:    1104                        PHASE3             ERASE                                          
001108,000636:    1105                        -PHASE4            ERASE                                          
001109,000637:    1106                        PHASE4             ERASE                                          
001110,000638:    1107                        -PHASE5            ERASE                                          
001111,000639:    1110                        PHASE5             ERASE                                          
001112,000640:    1111                        -PHASE6            ERASE                                          
001113,000641:    1112                        PHASE6             ERASE                                          
001114,000642: 
001115,000643:    1113                        TBASE1             ERASE                                          
001116,000644:    1114                        PHSPRDT1           ERASE                                          
001117,000645:    1115                        TBASE2             ERASE                                          
001118,000646:    1116                        PHSPRDT2           ERASE                                          
001119,000647:    1117                        TBASE3             ERASE                                          
001120,000648:    1120                        PHSPRDT3           ERASE                                          
001121,000649:    1121                        TBASE4             ERASE                                          
001122,000650:    1122                        PHSPRDT4           ERASE                                          
001123,000651:    1123                        TBASE5             ERASE                                          
001124,000652:    1124                        PHSPRDT5           ERASE                                          
001125,000653:    1125                        TBASE6             ERASE                                          
001126,000654:    1126                        PHSPRDT6           ERASE                                          
001127,000655: 
001128,000656:    1127                        RSTRTWRD           ERASE                                          #  EACH BIT INDICATES RESTARTABILITY OF A 
001129,000657:                                                                                                  #  PARTICULAR MISSION PHASE.
001130,000658:                                                                                                  #    ON BIT = YES IT IS RESTARTABLE.
001131,000659:                                                                                                  #  BIT NO. = MISSION PHASE NO.
001132,000660: 
001133,000661:                                                                                                  #  ERASABLE FOR SINGLE PRECISION SUBROUTINES.
001134,000662: 
001135,000663:    1130                        HALFY              ERASE                                          
001136,000664:    1131                        ROOTRET            ERASE                                          
001137,000665:    1132                        SQRARG             ERASE                                          
001138,000666:    1133     1130               TEMK               EQUALS   HALFY                                 
001139,000667:    1133     1131               SQ                 EQUALS   ROOTRET                               
001140,000668: 
001141,000669:                                                                                                  #  ERASABLE ASSIGNMETNS FOR LMP ROUTINES
001142,000670: 
001143,000671:    1133                        LMPCMD             ERASE    +7                                    #  CIRCULAR BUFFER OF LAST 8 COMMANDS.
001144,000672:    1143                        LMPIN              ERASE                                          #  POINTS TO NEXT AVAILABLE INPUT SLOT.

Page 28

001146,000674:    1144                        LMPOUT             ERASE                                          #  POINTS TO NEXT OUTPUT LOCATION IN BUFFER
001147,000675:    1145                        LMPOUTT            ERASE                                          #  INTERRIM STORAGE FOR THE ABOVE.
001148,000676:    1146                        LMPRET             ERASE                                          #  2CADR RETURN ADDRESS FOR SUBROUTINES.
001149,000677:    1147                        LMPBBANK           ERASE                                          
001150,000678:    1150                        SAVDT              ERASE                                          
001151,000679: 
001152,000680:    1151                        LONGCADR           ERASE    +1                                    #  UNSWITCHED ERASABLE FOR LONGCALC
001153,000681:    1153                        LONGTIME           ERASE    +1                                    
001154,000682: 
001155,000683:    1155                        CMEMORY            ERASE    +4                                    
001156,000684: 
001157,000685:    1162     1155               TEMX               EQUALS   CMEMORY                               
001158,000686:    1162     1156               TEMY               EQUALS   CMEMORY    +1D                        
001159,000687:    1162     1157               TEMZ               EQUALS   CMEMORY    +2D                        
001160,000688:    1162     1160               TEMXY              EQUALS   CMEMORY    +3D                        
001161,000689:    1162     1161               PIPAGE             EQUALS   CMEMORY    +4D                        
001162,000690: 
001163,000691:    1162                        JETRESET           ERASE                                          #  MAINTAINED BY RCSMONIT.
001164,000692:    1163                        THISCH32           ERASE                                          #  DITTO
001165,000693: 
001166,000694:                                                                                                  #  STORAGE FOR FOR MISSION TIMER/PHASE REGISTER PAIRS.
001167,000695: 
001168,000696:    1164                        MTIMER4            ERASE                                          
001169,000697:    1165                        MTIMER3            ERASE                                          
001170,000698:    1166                        MTIMER2            ERASE                                          
001171,000699:    1167                        MTIMER1            ERASE                                          
001172,000700:    1170                        MPHASE4            ERASE                                          
001173,000701:    1171                        MPHASE3            ERASE                                          
001174,000702:    1172                        MPHASE2            ERASE                                          
001175,000703:    1173                        MPHASE1            ERASE                                          
001176,000704:    1174                        MTIMER4T           ERASE    +3                                    #  RESTART STORAGE AREAS FOR THE ABOVE.
001177,000705:    1200                        MDUETEMP           ERASE                                          
001178,000706:    1201                        STATECTR           ERASE                                          #  TIMER FOR INTERNAL STATE VECTOR UPDATES.
001179,000707: 
001180,000708:    1202                        UPPHASE            ERASE                                          #  NEW PHASE AS SENT UP THE UPLINK.
001181,000709:    1203                        UPDT               ERASE                                          #  NEW DT AS SENT UP THE UPLINK.
001182,000710:    1204                        UPINDEX            ERASE                                          #  INDEX OF TIMER MODIFIED BY UPLINK.
001183,000711:    1205                        UPGET              ERASE    +1                                    #  GET FOR UPLINK REQUEST.
001184,000712: 
001185,000713:    1207                        MRETURN            ERASE                                          #  RETURN REGISTER.
001186,000714: 
001187,000715:                                                                                                  #  PMEMORY ASSIGNMENTS
001188,000716: 
001189,000717:    1210                        PMEMORY            ERASE    +85D                                  
001190,000718:    1336     1210               REFRRECT           EQUALS   PMEMORY    +00D                       #  STATE VECTORS FOR ORBITAL INTEGRATION
001191,000719:    1336     1216               REFVRECT           EQUALS   PMEMORY    +06D                       

Page 29

001193,000721:    1336     1224               DELTAV             EQUALS   PMEMORY    +12D                       #  STATE DEVIATIONS
001194,000722:    1336     1232               NUV                EQUALS   PMEMORY    +18D                       
001195,000723:    1336     1240               REFRCV             EQUALS   PMEMORY    +24D                       
001196,000724:    1336     1246               REFVCV             EQUALS   PMEMORY    +30D                       
001197,000725:    1336     1254               REFTC              =        REFTCV                                
001198,000726:    1336     1254               REFTCV             EQUALS   PMEMORY    +36D                       
001199,000727:    1336     1256               TE                 EQUALS   PMEMORY    +38D                       #  TET,TIME CORRESPONDING TO LEM STATE
001200,000728:    1336     1260               REFXKEP            EQUALS   PMEMORY    +40D                       #  ROOT TO KEPLER EQUATIONS
001201,000729:    1336     1262               REFSMMAT           EQUALS   PMEMORY    +42D                       #  TRANSFORMATION MATRIX BETWEEN SM AND REF
001202,000730:    1336     1304               PIPRETRN           EQUALS   PMEMORY    +60D                       
001203,000731:    1336     1304               TDECTEMP           EQUALS   PIPRETRN                              
001204,000732:    1336     1306               PIPTIME            EQUALS   PMEMORY    +62D                       
001205,000733:    1336     1310               DVSELECT           EQUALS   PMEMORY    +64D                       
001206,000734:    1336     1311               TEVENT             EQUALS   PMEMORY    +65D                       
001207,000735:    1336     1320               MASS               EQUALS   PMEMORY    +72D                       
001208,000736:    1336     1330               CDUTEMP            EQUALS   PMEMORY    +80D                       #  VECTOR USED IN FINDCDUD
001209,000737: 
001210,000738:    1336     1322               /ACF/              EQUALS   PMEMORY    +74D                       
001211,000739:    1336     1324               /AF/               EQUALS   PMEMORY    +76D                       
001212,000740:    1336     1323               PCNTF              EQUALS   PMEMORY    +75D                       
001213,000741:    1336     1326               STATIME            EQUALS   PMEMORY    +78D                       #  DP DOWNLINK TIME-DONT VIOLATE THESE REGS
001214,000742:    1336                        SLOSHCTR           ERASE                                          #  ERASABLE USED BY GIMBLMON FOR A COUNTR

In the hardcopy, there is a hand-drawn arrow pointing to the word "on".

001216,000744:    1337                        STARTDVC           ERASE                                          #  VALUE FOR DVCNTR FOR ENGINE ON
001217,000745:    1340                        STOPDVC            ERASE                                          #  VALUE FOR DVCNTR FOR ENGINE OFF
001218,000746:    1341                        SETDVCNT           ERASE                                          #  CONTENTS WILL BE LOADED INTO DVCNTR
001219,000747:    1342                        RSDTTEMP           ERASE                                          #  SP TEMP USED FOR RESTART DT'S.
001220,000748:    1343                        TPRELTER           ERASE    +1                                    #  TIME OF PRELAUNCH TERMINATION
001221,000749: 
001222,000750:    1345                        DAPOFFDT           ERASE                                          #  TIME FROM TIG+26 IN MP11 TO TURN DAP OFF
001223,000751:    1346                        OLDDVSEL           ERASE                                          
001224,000752: 

Page 30

001226,000754:                                                                                                  #  ASSIGNMENTS RESERVED EXCLUSIVELY FOR SELF-CHECK
001227,000755: 
001228,000756:    1347                        SELFERAS           ERASE    1353       -          1377            
001229,000757:    1347                        ERESTORE           EQUALS   1353                                  
001230,000758:    1347                        SELFRET            EQUALS   1354                                  
001231,000759:    1347                        SMODE              EQUALS   1355                                  
001232,000760:    1347                        REDOCTR            EQUALS   1356                                  #  DO NOT CHANGE THE ORDER OF REGISTERS RE-
001233,000761:    1347                        SFAIL              EQUALS   1357                                  #  DOCTR THRU SCOUNT (NOUNS AND DOWNLINK).
001234,000762:    1347                        FAILREG            EQUALS   1360                                  
001235,000763:    1347                        ALMCADR            EQUALS   1363                                  
001236,000764:    1347                        ERCOUNT            EQUALS   1365                                  
001237,000765:    1347                        SCOUNT             =        1366                                  
001238,000766:    1347                        SKEEP1             =        1371                                  
001239,000767:    1347                        SKEEP2             =        1372                                  
001240,000768:    1347                        SKEEP3             =        1373                                  
001241,000769:    1347                        SKEEP4             =        1374                                  
001242,000770:    1347                        SKEEP5             =        1375                                  
001243,000771:    1347                        SKEEP6             =        1376                                  
001244,000772:    1347                        SKEEP7             =        1377                                  
001245,000773: 
001246,000774:                                                                                                  #  WAITLIST TASK LISTS
001247,000775: 
001248,000776: E3,1400                                           SETLOC   1400                                  
001249,000777: 
001250,000778: E3,1400                        LST1               ERASE    +7                                    #  DELTA T'S.
001251,000779: E3,1410                        LST2               ERASE    +17D                                  #  2CADR TASK ADDRESSES.
001252,000780: 
001253,000781: E3,1432                        LONGBASE           ERASE    +1                                    #  ERASABLE FOR LONGCALL
001254,000782: E3,1434                        LONGEXIT           ERASE    +1                                    
001255,000783: 
001256,000784:                                                                                                  #  IMU COMPENSATION PARAMETERS:
001257,000785: 
001258,000786: E3,1436                        PBIASX             ERASE                                          #  PIPA BIAS AND PIPA SCALE FACTOR TERMS
001259,000787: E3,1437  E3,1436               PIPABIAS           =        PBIASX                                #      INTERMIXED.
001260,000788: E3,1437                        PIPASCFX           ERASE                                          
001261,000789: E3,1440  E3,1437               PIPASCF            =        PIPASCFX                              
001262,000790: E3,1440                        PBIASY             ERASE                                          
001263,000791: E3,1441                        PIPASCFY           ERASE                                          
001264,000792: E3,1442                        PBIASZ             ERASE                                          
001265,000793: E3,1443                        PIPASCFZ           ERASE                                          
001266,000794: 
001267,000795: E3,1444                        NBDX               ERASE                                          #  GYRO BIAS DRIFTS
001268,000796: E3,1445  E3,1444               GBIASX             =        NBDX                                  
001269,000797: E3,1445                        NBDY               ERASE                                          
001270,000798: E3,1446                        NBDZ               ERASE                                          
001271,000799: 
001272,000800: E3,1447                        ADIAX              ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
001273,000801: E3,1450                        ADIAY              ERASE                                          #      INPUT AXIS
001274,000802: E3,1451                        ADIAZ              ERASE                                          
001275,000803: 

Page 31

001277,000805: E3,1452                        ADSRAX             ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
001278,000806: E3,1453                        ADSRAY             ERASE                                          #      SPIN REFERENCE AXIS
001279,000807: E3,1454                        ADSRAZ             ERASE                                          
001280,000808: 
001281,000809: E3,1455                        GCOMP              ERASE    +5                                    #  CONTAINS COMPENSATING TORQUES
001282,000810: 
001283,000811: E3,1463                        GCOMPSW            ERASE                                          
001284,000812: E3,1464  E3,1455               COMMAND            EQUALS   GCOMP                                 
001285,000813: E3,1464  E3,1460               CDUIND             EQUALS   GCOMP      +3                         
001286,000814: 
001287,000815:                                                                                                  #  STORAGE FOR RR TASKS.
001288,000816: 
001289,000817: E3,1464                        RRRET              ERASE                                          
001290,000818: E3,1465                        RDES               ERASE                                          
001291,000819: E3,1466                        RRINDEX            ERASE                                          
001292,000820: 
001293,000821:                                                                                                  #  AOT CALIBRATIONS IN AZIMUTH AND ELEVATION AT DETENTS
001294,000822: E3,1467                        AOTAZ              ERASE    +2                                    
001295,000823: E3,1472                        AOTEL              ERASE    +2                                    
001296,000824:                                                                                                  #  ASSIGNMENTS FOR PRESENTLY UNUSED NOUNS.
001297,000825: E3,1475                        AZANG              EQUALS                                         #  DELETE WHEN OPTICAL TRACKER NOUNS GONE.
001298,000826: E3,1475                        ELANG              EQUALS                                         
001299,000827: E3,1475                        DESLOTSY           EQUALS                                         
001300,000828: E3,1475                        DESLOTSX           EQUALS                                         
001301,000829: 
001302,000830: E3,1475                        ROLL               ERASE    +2                                    
001303,000831: E3,1500                        LANDMARK           ERASE    +5                                    
001304,000832: 
001305,000833:                                                                                                  #  THE FOLLOWING REGS ARE USED BY THE STANDBY VERBS
001306,000834: 
001307,000835: E3,1506                        TIMESAV            ERASE    +1                                    
001308,000836: E3,1510                        SCALSAV            ERASE    +1                                    
001309,000837: E3,1512                        TIMAR              ERASE    +1                                    
001310,000838: E3,1514                        TIMEDIFF           ERASE    +1                                    
001311,000839: 
001312,000840:                                                                                                  #  THE FOLLOWING MAY BE PLACED IN SWITCHED ERRASSIBLE
001313,000841: 
001314,000842:                                                                                                  #  PHSNAME(I) AND PHSBB(I) STORE THE 2CADR FOR VARIABLE RESTARTS FOR EACH OF THE GROUPS
001315,000843: E3,1516                        PHSNAME1           ERASE                                          
001316,000844: E3,1517                        PHSBB1             ERASE                                          
001317,000845: E3,1520                        PHSNAME2           ERASE                                          
001318,000846: E3,1521                        PHSBB2             ERASE                                          
001319,000847: E3,1522                        PHSNAME3           ERASE                                          
001320,000848: E3,1523                        PHSBB3             ERASE                                          
001321,000849: E3,1524                        PHSNAME4           ERASE                                          
001322,000850: E3,1525                        PHSBB4             ERASE                                          
001323,000851: E3,1526                        PHSNAME5           ERASE                                          
001324,000852: E3,1527                        PHSBB5             ERASE                                          
001325,000853: E3,1530                        PHSNAME6           ERASE                                          
001326,000854: E3,1531                        PHSBB6             ERASE                                          
001327,000855: 

Page 32

001329,000857: E3,1532                        BCDU               ERASE    +2                                    
001330,000858: E3,1535                        MIS                ERASE    +17D                                  
001331,000859: E3,1557                        MFS                ERASE    +17D                                  
001332,000860: E3,1601                        TMIS               ERASE    +17D                                  
001333,000861: E3,1623  E3,1601               TMFI               EQUALS   TMIS                                  
001334,000862: E3,1623                        COF                ERASE    +5                                    
001335,000863: E3,1631                        CPHI               ERASE                                          
001336,000864: E3,1632                        CTHETA             ERASE                                          
001337,000865: E3,1633                        CPSI               ERASE                                          
001338,000866: E3,1634  E3,1557               MFI                EQUALS   MFS                                   
001339,000867: E3,1634                        COFSKEW            ERASE    +5                                    
001340,000868: E3,1642                        AM                 ERASE    +1                                    
001341,000869: E3,1644  E3,1601               MFISYM             EQUALS   TMIS                                  
001342,000870: E3,1644                        CAM                ERASE    +1                                    
001343,000871: E3,1646  E3,1607               C2SQP              EQUALS   K2                                    
001344,000872: E3,1646  E3,1611               C2SQM              EQUALS   K2         +2                         
001345,000873: E3,1646  E3,1613               C2PP               EQUALS   K2         +4                         
001346,000874: E3,1646  E3,1615               C2MP               EQUALS   K3                                    
001347,000875: E3,1646  E3,1617               C1PP               EQUALS   K3         +2                         
001348,000876: E3,1646  E3,1621               C1MP               EQUALS   K3         +4                         
001349,000877: E3,1646  E3,1601               P21                EQUALS   K1                                    
001350,000878: E3,1646  E3,1603               D21                EQUALS   K1         +2                         
001351,000879: E3,1646  E3,1605               G21                EQUALS   K1         +4                         
001352,000880: E3,1646                        RAD                ERASE    +1                                    
001353,000881: E3,1650                        RSQ                ERASE    +1                                    
001354,000882: E3,1652  E3,1557               E1                 EQUALS   MFS                                   
001355,000883: E3,1652  E3,1565               E2                 EQUALS   MFS        +6                         
001356,000884: E3,1652  E3,1634               IG                 EQUALS   COFSKEW                               
001357,000885: E3,1652  E3,1615               OGF                EQUALS   TMIS       +12D                       
001358,000886: E3,1652  E3,1601               K1                 EQUALS   TMIS                                  
001359,000887: E3,1652  E3,1607               K2                 EQUALS   TMIS       +6                         
001360,000888: E3,1652  E3,1615               K3                 EQUALS   TMIS       +12D                       
001361,000889: E3,1652  E3,1557               KEL                EQUALS   MFS                                   
001362,000890: E3,1652                        RATEINDX           ERASE                                          
001363,000891: E3,1653                        SPNDX              ERASE                                          
001364,000892: E3,1654                        MYNDX              ERASE                                          
001365,000893: E3,1655  E3,1634               BRATE              EQUALS   COFSKEW                               
001366,000894: E3,1655  E3,1644               TM                 EQUALS   CAM                                   
001367,000895: E3,1655  E3,1601               NCDU               EQUALS   TMIS                                  
001368,000896: E3,1655  E3,1604               NEXTIME            EQUALS   TMIS       +3                         
001369,000897: E3,1655     0771               DELDCDU            EQUALS   DELCDUX                               
001370,000898: E3,1655     0772               DELDCDU1           EQUALS   DELCDUY                               
001371,000899: E3,1655     0773               DELDCDU2           EQUALS   DELCDUZ                               
001372,000900: E3,1655  E3,1605               TTEMP              EQUALS   TMIS       +4                         
001373,000901: E3,1655                        POINTVSM           ERASE    +5                                    
001374,000902: E3,1663                        SCAXIS             ERASE    +5                                    
001375,000903: E3,1671                        TF                 ERASE    +1                                    
001376,000904: E3,1673                        COGAVAIL           ERASE    +1                                    
001377,000905: E3,1675                        SPLOC              ERASE    +2                                    
001378,000906: E3,1700                        UNR1               ERASE    +5                                    

Page 33

001380,000908: E3,1706                        R0VEC              ERASE    +5                                    
001381,000909: E3,1714  E4,1723               V0VEC              EQUALS   VDVECT                                
001382,000910: E3,1714                        UNNORM             ERASE    +5                                    
001383,000911: E3,1722                        INDEP              ERASE    +1                                    
001384,000912: E3,1724                        TWEEKIT            ERASE    +1                                    
001385,000913: E3,1726                        DEPVAR             ERASE    +1                                    
001386,000914: E3,1730                        PREVDEP            ERASE    +1                                    
001387,000915: E3,1732                        DELDEP             ERASE    +1                                    
001388,000916: E3,1734                        DELINDEP           ERASE    +1                                    
001389,000917: E3,1736                        MININDEP           EQUALS   22D                                   
001390,000918: E3,1736                        MAXINDEP           EQUALS   26D                                   
001391,000919:                                                                                                  #  RESTRTCS-RESTRTCS +77D IS USED FOR RESTART PROTECTION DURING PRELAUNCH
001392,000920: 
001393,000921: E3,1736                        RESTRTCS           =        1600                                  
001394,000922: 
001395,000923:                                                                                                  #  ERASABLE FOR MISSION PHASE TWO
001396,000924: E3,1736                        TGRR               ERASE    +1                                    #  TIME OF GUIDANCE REFERENCE RELEASE
001397,000925: E3,1740                        TLIFTOFF           ERASE    +1                                    #  TIME OF LIFTOFF
001398,000926: E3,1742                        DT-LIFT            ERASE                                          #  DT FROM GRR TO LIFTOFF
001399,000927: E3,1743  E3,1742               ABORTNDX           EQUALS   DT-LIFT                               
001400,000928: E3,1743                        DT-LETJT           ERASE    +1                                    #  DT FROM LIFTOFF TO POST-LET JETTISON
001401,000929: E3,1745                        AZGR               ERASE    +1                                    #  PAD 37B VERTICAL TO REF X-Z PLANE.
001402,000930: E3,1747                        TILT               ERASE    +1                                    #  Y ABOUT Z IN REVS.
001403,000931: E3,1751                        ZSMAZ              ERASE    +1                                    #  Z FROM NORTH IN REVS.
001404,000932: E3,1753                        TEPHEM             ERASE    +2                                    #  TP CS FROM 00:00:00 JULY 1 TO 00:00:00
001405,000933: E3,1756                        AZ0                ERASE    +1                                    #  ANGLE BETWEEN GREENWICH AND X-Z PLANE
001406,000934: E3,1760                        P37BLAT            ERASE    +1                                    #  LAUNCH PAD LATITUDE
001407,000935: E3,1762                        P37BLONG           ERASE    +1                                    #  LAUNCH PAD LONGITUDE
001408,000936:                                                                                                  #   OF LAUNCH DAY.
001409,000937: E3,1764                        DELVBUF            ERASE    +5                                    #  HOLDS VEL CORR WHEN L/O CAUGHT BY DVMON.
001410,000938: E3,1772  E3,1764               GLIFTOFF           EQUALS   DELVBUF                               #  WRITTEN OVER VIA DELVBUF AFTER GRR SET
001411,000939: 
001412,000940: E3,1772                        MP6TO7             ERASE                                          #  ERASABLE FOR MP6
001413,000941: E3,1773                        MP8TO9             ERASE                                          #  ERASABLE FOR MISSION PHASE 8
001414,000942: 
001415,000943: E3,1774                        RSBB&Q             ERASE    +1                                    #  WILL BE FILLED WITH BB AND Q ON RESTART.
001416,000944: 

Page 34

001418,000946:                                                                                                  #  ERASABLE ASSIGNMENTS FOR EBANK 4
001419,000947: 
001420,000948: E4,1400                                           SETLOC   2000                                  
001421,000949: 
001422,000950: E4,1400                        AMEMORY            ERASE    +150D                                 
001423,000951:                                                                                                  #  THE FOLLOWING A MEMORY LOCATIONS ARE USED BY MID-COURSE NAVIGATION
001424,000952: 
001425,000953:                                                                                                  #  CAUTION: ORBITAL INTEGRATION REGISTERS RAVEGON, VAVEGON AND SECOND DPS GUIDANCE REGISTERS TPIP, TTF/4,
001426,000954:                                                                                                  #  TTF/4TMP, TULLG ARE ALL IN USE SIMULTANEOUSLY AND MUST NOT CONFLICT.
001427,000955: 
001428,000956: E4,1627  E4,1400               RRECT              EQUALS   AMEMORY    +000D                      
001429,000957: E4,1627  E4,1400               RIGNTION           EQUALS   AMEMORY    +000D                      
001430,000958: E4,1627  E4,1406               VRECT              EQUALS   AMEMORY    +006D                      
001431,000959: E4,1627  E4,1406               VIGNTION           EQUALS   AMEMORY    +006D                      
001432,000960: E4,1627  E4,1414               TDELTAV            EQUALS   AMEMORY    +012D                      
001433,000961: E4,1627  E4,1414               NEWDLTAV           EQUALS   AMEMORY    +012D                      
001434,000962: E4,1627  E4,1422               TNUV               EQUALS   AMEMORY    +018D                      
001435,000963: E4,1627  E4,1422               NEWNUV             EQUALS   AMEMORY    +018D                      
001436,000964: E4,1627  E4,1430               RCV                EQUALS   AMEMORY    +024D                      
001437,000965: E4,1627  E4,1430               FOUNDR             EQUALS   AMEMORY    +024D                      
001438,000966: E4,1627  E4,1436               VCV                EQUALS   AMEMORY    +030D                      
001439,000967: E4,1627  E4,1436               FOUNDV             EQUALS   AMEMORY    +030D                      
001440,000968: E4,1627  E4,1444               TC                 EQUALS   AMEMORY    +036D                      
001441,000969: E4,1627  E4,1446               TET                EQUALS   AMEMORY    +038D                      
001442,000970: E4,1627  E4,1450               XKEP               EQUALS   AMEMORY    +040D                      
001443,000971: E4,1627  E4,1452               ALPHAV             EQUALS   AMEMORY    +042D                      
001444,000972: E4,1627  E4,1452               DELR               EQUALS   AMEMORY    +042D                      
001445,000973: E4,1627  E4,1460               BETAV              EQUALS   AMEMORY    +048D                      
001446,000974: E4,1627  E4,1460               DELVEL             EQUALS   AMEMORY    +048D                      
001447,000975: E4,1627  E4,1466               PHIV               EQUALS   AMEMORY    +054D                      
001448,000976: E4,1627  E4,1466               BVECTOR            EQUALS   AMEMORY    +054D                      
001449,000977: E4,1627  E4,1474               PSIV               EQUALS   AMEMORY    +060D                      
001450,000978: E4,1627  E4,1502               FV                 EQUALS   AMEMORY    +066D                      
001451,000979: 
001452,000980: E4,1627  E4,1510               VECTAB             EQUALS   AMEMORY    +072D                      
001453,000981: 
001454,000982: E4,1627  E4,1510               TAVEGON            EQUALS   AMEMORY    +072D                      
001455,000983: E4,1627  E4,1512               TRESUME            EQUALS   AMEMORY    +074D                      
001456,000984: E4,1627  E4,1514               RAVEGON            EQUALS   AMEMORY    +076D                      
001457,000985: E4,1627  E4,1522               VAVEGON            EQUALS   AMEMORY    +082D                      
001458,000986: E4,1627  E4,1530               RIG-2SEC           EQUALS   AMEMORY    +088D                      
001459,000987: E4,1627  E4,1554               ALPHAM             EQUALS   AMEMORY    +108D                      
001460,000988: E4,1627  E4,1556               BETAM              EQUALS   AMEMORY    +110D                      
001461,000989: E4,1627  E4,1560               TAU                EQUALS   AMEMORY    +112D                      
001462,000990: E4,1627  E4,1560               GIVENT             EQUALS   AMEMORY    +112D                      
001463,000991: E4,1627  E4,1562               DT/2               EQUALS   AMEMORY    +114D                      
001464,000992: E4,1627  E4,1564               H                  EQUALS   AMEMORY    +116D                      
001465,000993: E4,1627  E4,1566               TDEC               EQUALS   AMEMORY    +118D                      

Page 35

001467,000995: E4,1627  E4,1566               ENGOFFDT           EQUALS   TDEC                                  
001468,000996: E4,1627  E4,1570               FBRANCH            EQUALS   AMEMORY    +120D                      
001469,000997: E4,1627  E4,1571               HBRANCH            EQUALS   AMEMORY    +121D                      
001470,000998: E4,1627  E4,1572               GMODE              EQUALS   AMEMORY    +122D                      
001471,000999: E4,1627  E4,1573               QREADY             EQUALS   AMEMORY    +123D                      
001472,001000: E4,1627  E4,1574               MEASQ              EQUALS   AMEMORY    +124D                      
001473,001001: E4,1627  E4,1576               DELTAQ             EQUALS   AMEMORY    +126D                      
001474,001002: 
001475,001003: E4,1627  E4,1600               MEASMODE           EQUALS   AMEMORY    +128D                      
001476,001004: E4,1627  E4,1601               NVCODE             EQUALS   AMEMORY    +129D                      
001477,001005: E4,1627  E4,1602               MIDEXIT            EQUALS   AMEMORY    +130D                      
001478,001006: E4,1627  E4,1602               DSPRTRN            EQUALS   AMEMORY    +130D                      
001479,001007: E4,1627  E4,1603               INCORPEX           EQUALS   AMEMORY    +131D                      
001480,001008: E4,1627  E4,1604               STEPEXIT           EQUALS   AMEMORY    +132D                      
001481,001009: E4,1627  E4,1605               DIFEQCNT           EQUALS   AMEMORY    +133D                      
001482,001010: E4,1627  E4,1605               NORMGAM            EQUALS   AMEMORY    +133D                      
001483,001011: E4,1627  E4,1606               SCALEA             EQUALS   AMEMORY    +134D                      
001484,001012: E4,1627  E4,1607               SCALEB             EQUALS   AMEMORY    +135D                      
001485,001013: E4,1627  E4,1613               YV                 EQUALS   AMEMORY    +139D                      
001486,001014: E4,1627  E4,1621               ZV                 EQUALS   AMEMORY    +145D                      
001487,001015: 

Page 36

001489,001017:                                                                                                  #  VARIABLES FOR SECOND DPS GUIDANCE
001490,001018: 
001491,001019:                                                                                                  #  CAUTION: ORBITAL INTEGRATION REGISTERS RAVEGON, VAVEGON AND SECOND DPS GUIDANCE REGISTERS TPIP, TTF/4,
001492,001020:                                                                                                  #  TTF/4TMP, TULLG ARE ALL IN USE SIMULTANEOUSLY AND MUST NOT CONFLICT.
001493,001021: 
001494,001022:                                                                                                  #  2DPS PRESENTLY RECEIVES CERTAIN VARIABLES FROM THE ORBITAL INTEGRATION PROGRAM IN REGISTERS USED IN COMMON BY
001495,001023:                                                                                                  #  THE TWO PROGRAMS, THESE VARIABLES ARE TET, RIGNTION, VIGNTION. 2DPS CAREFULLY TRANSFERS THESE VARIABLES TO
001496,001024:                                                                                                  #  REGISTERS OF PROGRAM CALCRVG BEFORE WRITING INTO THE REGISTERS IN WHICH THESE VARIABLES ARRIVE.
001497,001025: 
001498,001026:                                                                                                  #  SOME TIME SHARING OF 2DPS REGISTERS BY 2DPS VARIABLES HAS BEEN ARRANGED. MORE IS POSSIBLE.
001499,001027:                                                                                                  #  BUT IT BECOMES INCREASINGLY DIFFICULT TO PROVE RESTARTABILITY.
001500,001028: 
001501,001029: E4,1627  E4,1400               E2DPS              =        AMEMORY                               
001502,001030: 
001503,001031:                                                                                                  #  CONTROL VARIABLES
001504,001032: 
001505,001033: E4,1627  E4,1400               NDX2DPS            =        E2DPS                                 
001506,001034: E4,1627  E4,1401               NDXBR              =        NDX2DPS    +1                         
001507,001035: E4,1627  E4,1402               FLPASS0            =        NDXBR      +1                         
001508,001036: E4,1627  E4,1403               COUNTFC            =        FLPASS0    +1                         
001509,001037: E4,1627  E4,1404               COUNTFCT           =        COUNTFC    +1                         
001510,001038: 
001511,001039:                                                                                                  #  ADDRESS VARIABLES
001512,001040: 
001513,001041: E4,1627  E4,1405               AVGXTEMP           =        COUNTFCT   +1                         
001514,001042: E4,1627  E4,1406               RETNTLZ            =        AVGXTEMP   +1                         
001515,001043: E4,1627  E4,1407               RETXIGN1           =        RETNTLZ    +1                         
001516,001044: E4,1627  E4,1410               RETTHRT            =        RETXIGN1   +1                         
001517,001045: 
001518,001046:                                                                                                  #  COORDINATE FRAME VECTORS AND MATRICES
001519,001047: 
001520,001048: E4,1627  E4,1411               CLT/2              =        RETTHRT    +1                         
001521,001049: 
001522,001050:                                                                                                  #  TABLES
001523,001051: 
001524,001052: E4,1627  E4,1433               TABLTTF            =        CLT/2      +22                        
001525,001053: 
001526,001054:                                                                                                  #  STATE VARIABLES
001527,001055: 
001528,001056: E4,1627  E4,1444               PIPTIMET           =        TABLTTF    +11                        
001529,001057: E4,1627  E4,1446               TPIP               =        PIPTIMET   +2                         #  SEE CAUTION ABOVE
001530,001058: E4,1627  E4,1450               TPIPOLD            =        TPIP       +2                         
001531,001059: E4,1627  E4,1452               TTF/4              =        TPIPOLD    +2                         #  SEE CAUTION ABOVE
001532,001060: E4,1627  E4,1454               TTF/4TMP           =        TTF/4      +2                         #  SEE CAUTION ABOVE
001533,001061: E4,1627  E4,1456               TULLG              =        TTF/4TMP   +2                         #  SEE CAUTION ABOVE
001534,001062: E4,1627  E4,1460               R                  =        TULLG      +2                         
001535,001063: E4,1627  E4,1466               V                  =        R          +6                         
001536,001064: E4,1627  E4,1474               VL                 =        V          +6                         
001537,001065: E4,1627  E4,1502               RP2                =        VL         +6                         
001538,001066: E4,1627  E4,1504               MAP2               =        RP2        +2                         

Page 37

001540,001068: E4,1627  E4,1506               RC                 =        MAP2       +2                         
001541,001069: E4,1627  E4,1510               RS                 =        RC         +2                         
001542,001070: E4,1627  E4,1510               RTEMP              =        RS                                    
001543,001071: E4,1627  E4,1516               VS                 =        RS         +6                         
001544,001072: E4,1627  E4,1516               VTEMP              =        VS                                    
001545,001073: E4,1627  E4,1524               CRS2               =        VS         +6                         
001546,001074: E4,1627  E4,1526               SRS2               =        CRS2       +2                         
001547,001075: E4,1627  E4,1530               TRS2               =        SRS2       +2                         
001548,001076: E4,1627  E4,1532               ASPRT              =        TRS2       +2                         
001549,001077: E4,1627  E4,1532               GDOTM1T            =        ASPRT                                 
001550,001078: 
001551,001079:                                                                                                  #  AFC CALCULATION VARIABLES, QUADRATIC AND LINEAR
001552,001080: 
001553,001081: E4,1627  E4,1540               ACS                =        ASPRT      +6                         
001554,001082: E4,1627  E4,1546               AFCS               =        ACS        +6                         
001555,001083: E4,1627  E4,1554               AFC                =        AFCS       +6                         
001556,001084: E4,1627  E4,1562               /AFC/              =        AFC        +6                         
001557,001085: E4,1627  E4,1564               /AFC/OLD           =        /AFC/      +2                         
001558,001086: E4,1627  E4,1566               UNAFC/2            =        /AFC/OLD   +2                         
001559,001087: E4,1627  E4,1574               UNAFC/20           =        UNAFC/2    +6                         
001560,001088: E4,1627  E4,1574               ADLINS             =        UNAFC/20                              
001561,001089: E4,1627  E4,1602               GDUMPRES           =        UNAFC/20   +6                         
001562,001090: E4,1627  E4,1602               ADELLINS           =        GDUMPRES                              
001563,001091: E4,1627  E4,1610               GDOTM1             =        GDUMPRES   +6                         
001564,001092: E4,1627  E4,1610               TTFLIN/4           =        GDOTM1                                
001565,001093: 
001566,001094:                                                                                                  #  ASSIGNMENTS WITHIN THE WORK AREA
001567,001095: 
001568,001096: E4,1627                        PDUM               =        6                                     
001569,001097: E4,1627                        RDUM               =        10                                    
001570,001098: E4,1627                        VDUM               =        16                                    
001571,001099: E4,1627                        ADUM               =        40                                    #  ONLY ADUM CAN USE THE AREA DESTROYED BY
001572,001100: E4,1627                        JDUM               =        24                                    #  TAKING THE UNIT OF RDUM IN SUBR GDUMCL.
001573,001101: E4,1627                        GDUM               =        32                                    #  PLACE GDUM TO PRESERVE /RDUM/ FOR OTHERS
001574,001102: 
001575,001103:                                                                                                  #  COMPLETES SECOND DPS ERASABLES (EXCEPT FOR CPT6/2 WHICH IS ASSIGNED ELSEWHERE)
001576,001104: 

Page 38

001578,001106:                                                                                                  #  ERASABLES FOR ASCENT GUIDANCE
001579,001107: 
001580,001108: 
001581,001109:                                                                                                  #  ERASABLES FOR PREAPS2
001582,001110: 
001583,001111: E4,1627  E4,1400               PAXIS1             EQUALS   AMEMORY                               #  VECTOR
001584,001112: E4,1627  E4,1406               QAXIS              EQUALS   AMEMORY    +6D                        #  VECTOR
001585,001113: E4,1627  E4,1414               SAXIS              EQUALS   AMEMORY    +12D                       #  VECTOR
001586,001114: E4,1627  E4,1422               AT                 EQUALS   AMEMORY    +18D                       #  DP    *  DO       *
001587,001115: E4,1627  E4,1424               VE                 EQUALS   AMEMORY    +20D                       #  DP    *  NOT      *
001588,001116: E4,1627  E4,1426               TBUP               EQUALS   AMEMORY    +22D                       #  DP    *  CHANGE    *
001589,001117: E4,1627  E4,1430               ATMEAS             EQUALS   AMEMORY    +24D                       #  VECTOR* THE ORDER *
001590,001118: E4,1627  E4,1436               KR1                EQUALS   AMEMORY    +30D                       #  DP    *  OF       *
001591,001119: E4,1627  E4,1440               RDOTD              EQUALS   AMEMORY    +32D                       #  DP    *  THESE    *
001592,001120: E4,1627  E4,1442               YDOTD              EQUALS   AMEMORY    +34D                       #  DP    *  LOCATIONS*
001593,001121: E4,1627  E4,1444               ZDOTD              EQUALS   AMEMORY    +36D                       #  DP    *************
001594,001122: E4,1627  E4,1446               RRETURN            EQUALS   AMEMORY    +38D                       #  DP
001595,001123: E4,1627  E4,1450               ASCRET             EQUALS   AMEMORY    +40D                       #  SP
001596,001124: 
001597,001125:                                                                                                  #  ERASABLES FOR ASCENT
001598,001126: 
001599,001127: E4,1627  E4,1451               LAMPRIO            EQUALS   AMEMORY    +41D                       #  SP
001600,001128: E4,1627  E4,1452               TCO                EQUALS   AMEMORY    +42D                       #  DP
001601,001129: E4,1627  E4,1454               TREF               EQUALS   AMEMORY    +44D                       #  DP
001602,001130: E4,1627  E4,1456               VTO                EQUALS   AMEMORY    +46D                       #  
001603,001131: E4,1627  E4,1460               KR                 EQUALS   AMEMORY    +48D                       #  DP
001604,001132: E4,1627  E4,1464               YCONS              EQUALS   AMEMORY    +52D                       #  DP
001605,001133: E4,1627  E4,1466               YDOT               EQUALS   AMEMORY    +54D                       #  DP
001606,001134: E4,1627  E4,1470               LAXIS              EQUALS   AMEMORY    +56D                       #  VECTOR
001607,001135: E4,1627  E4,1476               ZAXIS              EQUALS   AMEMORY    +62D                       #  VECTOR
001608,001136: E4,1627  E4,1504               ZDOT               EQUALS   AMEMORY    +68D                       #  DP
001609,001137: E4,1627  E4,1506               TIME               EQUALS   AMEMORY    +70D                       #  DP
001610,001138: E4,1627  E4,1510               GEFF               EQUALS   AMEMORY    +72D                       #  DP
001611,001139: E4,1627  E4,1512               PCONS              EQUALS   AMEMORY    +74D                       #  DP
001612,001140: 
001613,001141:                                                                                                  #  ***  THE REGISTERS AMEMORY +76D THRU AMEMORY +87D CONTAIN RAVEGON AND VAVEGON, AND MUST NOT BE USED BY THE
001614,001142:                                                                                                  #  ASCENT EQUATIONS.  *********
001615,001143: 
001616,001144: E4,1627  E4,1530               PRATE              EQUALS   AMEMORY    +88D                       #  DP
001617,001145: E4,1627  E4,1532               H1                 EQUALS   AMEMORY    +90D                       #  VECTOR
001618,001146: E4,1627  E4,1540               TGO                EQUALS   AMEMORY    +96D                       #  DP
001619,001147: E4,1627  E4,1542               TFL                EQUALS   AMEMORY    +98D                       #  DP
001620,001148: E4,1627  E4,1546               RDOT               EQUALS   AMEMORY    +102D                      #  DP
001621,001149: E4,1627  E4,1550               RY                 EQUALS   AMEMORY    +104D                      #  DP
001622,001150: E4,1627  E4,1552               URCO               EQUALS   AMEMORY    +106D                      #  VECTOR
001623,001151: 

Page 39

001625,001153:                                                                                                  #  ERASABLES FOR THRUST MAGNITUDE FILTER
001626,001154: 
001627,001155: E4,1627  E4,1430               1/DV1              EQUALS   ATMEAS                                
001628,001156: E4,1627  E4,1432               1/DV2              EQUALS   ATMEAS     +2                         
001629,001157: E4,1627  E4,1434               1/DV3              EQUALS   ATMEAS     +4                         
001630,001158: E4,1627  E4,1737               RCOV               =        RD                                    
001631,001159:                                                                                                  #  MORE OF THESE ARE IN E7.
001632,001160: 

Page 40

001634,001162:                                                                                                  #  ERASABLES USED IN ORBITAL INTEGRATION
001635,001163: 
001636,001164: E4,1627                        PBODY              ERASE                                          #  USED IN ORBITAL INTEGRATION
001637,001165: E4,1630  E4,1630               W                  EQUALS   PBODY      +1                         #  UNUSED IN 206, BUT REFERRED TO BY
001638,001166:                                                                                                  #  ORBITAL INTEGRATION
001639,001167: 
001640,001168: E4,1630                        AVMIDRTN           ERASE    +1                                    #  RETURN ADDRESS FROM AVETOMID OR MIDTOAVE
001641,001169: 
001642,001170: 
001643,001171:                                                                                                  #  THE FOLLOWING ARE USED BY FINDCDUD
001644,001172: 
001645,001173: E4,1632                        AXISD              ERASE    +5                                    #  VECTOR
001646,001174: E4,1640                        AXIS               ERASE    +5                                    #  VECTOR
001647,001175: E4,1646                        COSCDU             ERASE    +5                                    #  VECTOR
001648,001176: E4,1654                        SINCDU             ERASE    +5                                    #  VECTOR
001649,001177: E4,1662     1304               RETSAVE            =        PIPRETRN                              
001650,001178:                                                                                                  #  ERASABLES FOR MISSION PHASES 7,9,11,13
001651,001179: 
001652,001180:                                                                                                  #  MISSION PHASE 7
001653,001181: 
001654,001182: E4,1662                        DT2TEMP            ERASE                                          
001655,001183: E4,1663                        DT2TEMPD           ERASE    +1                                    
001656,001184: 
001657,001185:                                                                                                  #  MISSION PHASE 9
001658,001186: 
001659,001187: E4,1665  E4,1662               SHJUMP1            EQUALS   DT2TEMP                               #  HOLDS ADDRESS FOR NEXT COMPUTATION
001660,001188: E4,1665                        TDI                ERASE    +1                                    #  DESCENT INJECTION CUTOFF TIME
001661,001189: E4,1667  E4,1663               TTHRUST            EQUALS   DT2TEMPD                              #  DPS1 MANEUVER THRUST TIME
001662,001190: E4,1667                        TIGN               ERASE    +1                                    #  DPS1 IGNITION TIME
001663,001191: E4,1671                        UNITVG             ERASE    +5                                    #  UNIT VECTOR OF VELOCITY-TO-BE-GAINED
001664,001192:                                                                                                  #  MISSION PHASES 11 AND 13
001665,001193: 
001666,001194: E4,1677  E4,1662               MPRETRN            EQUALS   DT2TEMP                               
001667,001195: E4,1677  E4,1663               DT11TEMP           EQUALS   DT2TEMPD                              
001668,001196: 

Page 41

001670,001198:                                                                                                  #  ERASABLE STORAGE FOR UPDATES  -  NON SHARABLE
001671,001199: 
001672,001200: E4,1677                        STBUFF             ERASE    +15                                   
001673,001201: E4,1715                        STCOUNT            ERASE                                          
001674,001202: E4,1716                        UPOLDMOD           ERASE                                          
001675,001203: E4,1717                        UPTEMP             ERASE                                          
001676,001204: E4,1720                        UPTEMP1            ERASE                                          
001677,001205: E4,1721                        UPVERB             ERASE                                          
001678,001206: E4,1722                        COMPNUMB           ERASE                                          
001679,001207: 
001680,001208: 
001681,001209:                                                                                                  #  ERASABLE STORAGE FOR DOWNLINK  -  LIMITED SHARING POSSIBLE
001682,001210: 
001683,001211: E4,1723                        VDVECT             ERASE    +5                                    #  VELOCITY DESIRED
001684,001212: E4,1731  E4,1723               DOWN2DPS           =        VDVECT                                
001685,001213: E4,1731                        VGVECT             ERASE    +5                                    #  VELOCITY TO BE GAINED
001686,001214: E4,1737                        RD                 ERASE    +5                                    #  POSITION DESIRED
001687,001215: E4,1745                        TTGO               ERASE    +1                                    #  TIME TO GO IN CENTISECONDS.
001688,001216: 
001689,001217:                                                                                                  #  EBANK 4 NON SHARABLE ERASABLE LOAD STORAGE
001690,001218: 
001691,001219: E4,1747                        E4LOAD             ERASE    2351       -          2377            
001692,001220: 
001693,001221: E4,1747  E4,1751               MPDTO8             EQUALS   E4LOAD                                #  DELTA TIME FROM MP7 TO MP8
001694,001222: 
001695,001223: E4,1747  E4,1752               MP9-11DT           EQUALS   E4LOAD     +1                         #  DELTA TIME FROM MP9 TO MP11
001696,001224: 
001697,001225: E4,1747  E4,1753               MP11TO13           EQUALS   E4LOAD     +2                         #  DELTA TIME FROM MP11 TO MP13
001698,001226: 
001699,001227: E4,1747  E4,1754               RP                 EQUALS   E4LOAD     +3                         #  DP TARGET PARAMETER FOR DPS1 BURN
001700,001228: 
001701,001229: E4,1747  E4,1756               CPT6/2             EQUALS   E4LOAD     +5                         #  VECTOR TARGET PARAMETER FOR DPS2 BURN
001702,001230: 
001703,001231: E4,1747  E4,1764               R1VEC              EQUALS   E4LOAD     +13                        #  VECTOR TARGET PARAMETER FOR APS2 BURN
001704,001232: 
001705,001233: E4,1747  E4,1772               TINT               EQUALS   E4LOAD     +21                        #  DP TARGET PARAMETER FOR APS2 BURN
001706,001234: 
001707,001235: E4,1747  E4,1774               RCO                EQUALS   E4LOAD     +23                        #  DP TARGET PARAMETER FOR APS2 TURN
001708,001236: 
001709,001237: E4,1747  E4,1776               TIGNTION           EQUALS   E4LOAD     +25                        #  DP TIME OF STATE (VPATCHER).
001710,001238: 

Page 42

001712,001240:                                                                                                  #  ERASABLES FOR MASS UPDATE (A PART OF AVERAGE G) AND THROTTLE CONTROL
001713,001241: 
001714,001242:                                                                                                  #  INITIAL VALUES FOR MASS: THESE ERASABLES ARE SACROSANCT.
001715,001243: 
001716,001244: E4,1747                        LEMMASS2           ERASE    3776       -          3777            
001717,001245: 
001718,001246: E4,1747     0144               LEMMASS1           =        MPAC                                  #  *******TEMPORARY************************
001719,001247: 
001720,001248:                                                                                                  #  ERASABLES FOR MASS UPDATE ROUTINE
001721,001249: 
001722,001250: E4,1747  E5,1544               EVEX               =        SAVERASE   +30D                       
001723,001251: E4,1747  E5,1544               VEXDEX             =        EVEX                                  
001724,001252: E4,1747  E5,1545               PREFORCE           =        EVEX       +1                         
001725,001253: E4,1747  E5,1547               VEXNOM             =        EVEX       +3                         
001726,001254: E4,1747  E5,1551               DELAREA            =        EVEX       +5                         
001727,001255: E4,1747  E5,1553               AREARATE           =        EVEX       +7                         
001728,001256: E4,1747  E5,1555               NEGVEX             =        EVEX       +11                        
001729,001257: E4,1747  E5,1557               DAREATMP           =        EVEX       +13                        
001730,001258: E4,1747  E5,1561               MASSTEMP           =        EVEX       +15                        
001731,001259: E4,1747  E5,1563               MINIMASS           =        EVEX       +17                        
001732,001260: 
001733,001261: E4,1747  E5,1565               ETHROT             =        SAVERASE   +47D                       
001734,001262: E4,1747  E5,1565               FOLD               =        ETHROT                                
001735,001263: E4,1747  E5,1567               FCOLD              =        ETHROT     +2                         
001736,001264: E4,1747  E5,1570               FC                 =        ETHROT     +3                         
001737,001265: E4,1747  E5,1572               PIF                =        ETHROT     +5                         
001738,001266: E4,1747  E5,1574               PIFPSET            =        ETHROT     +7                         
001739,001267: E4,1747  E5,1574               RTNHOLD            =        ETHROT     +7                         
001740,001268: E4,1747  E5,1576               FWEIGHT            =        ETHROT     +11                        
001741,001269: 

Page 43

001743,001271:                                                                                                  #  THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE  ENTRY AND INITIALIZATION JOB OF THE FCS TEST FOR LEM.
001744,001272: 
001745,001273: E4,1747  E4,1400               FCSCNTR            EQUALS   AMEMORY    +000D                      
001746,001274: 
001747,001275:                                                                                                  #  THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE JETSET TASK.
001748,001276: 
001749,001277:                                                                                                  #  (OPTIMUM PRELAUNCH A C USES JETSTEP-JETSTEP +77D FOR RESTART PROOF)
001750,001278: 
001751,001279: E4,1747  E4,1401               XJBUF              EQUALS   AMEMORY    +001D                      
001752,001280: E4,1747  E4,1402               YZJBUF             EQUALS   AMEMORY    +002D                      
001753,001281: E4,1747  E4,1403               JFBUF              EQUALS   AMEMORY    +003D                      
001754,001282: E4,1747  E4,1404               FCNTR              EQUALS   AMEMORY    +004D                      
001755,001283: E4,1747  E4,1405               THBUF              EQUALS   AMEMORY    +005D                      
001756,001284: E4,1747  E4,1406               OFFTMBUF           EQUALS   AMEMORY    +006D                      
001757,001285: E4,1747  E4,1407               JETSTEP            EQUALS   AMEMORY    +007D                      
001758,001286: E4,1747  E4,1410               NTIMES             EQUALS   AMEMORY    +008D                      
001759,001287: E4,1747  E4,1420               NEXTTIME           EQUALS   AMEMORY    +016D                      
001760,001288: E4,1747  E4,1430               JETONTM            EQUALS   AMEMORY    +024D                      
001761,001289: E4,1747  E4,1440               XJETS              EQUALS   AMEMORY    +032D                      
001762,001290: E4,1747  E4,1450               YZJETS             EQUALS   AMEMORY    +040D                      
001763,001291: E4,1747  E4,1460               JETOFFTM           EQUALS   AMEMORY    +048D                      
001764,001292: 
001765,001293:                                                                                                  #  THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE ENGINE ON-OFF TASK.
001766,001294: 
001767,001295: E4,1747  E4,1470               ENGSTEP            EQUALS   AMEMORY    +056D                      
001768,001296: E4,1747  E4,1471               CYLTIMES           EQUALS   AMEMORY    +057D                      
001769,001297: E4,1747  E4,1474               NEXTCYLT           EQUALS   AMEMORY    +060D                      
001770,001298: E4,1747  E4,1477               ONTIME             EQUALS   AMEMORY    +063D                      
001771,001299: E4,1747  E4,1502               OFFTIME            EQUALS   AMEMORY    +066D                      
001772,001300: E4,1747  E4,1505               OFFTIMER           EQUALS   AMEMORY    +069D                      
001773,001301: 
001774,001302:                                                                                                  #  THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE TRIM TASK.
001775,001303: 
001776,001304: E4,1747  E4,1510               TRIMSTEP           EQUALS   AMEMORY    +072D                      
001777,001305: E4,1747  E4,1511               NUMTIMES           EQUALS   AMEMORY    +073D                      
001778,001306: E4,1747  E4,1525               STEPDLYT           EQUALS   AMEMORY    +085D                      
001779,001307: E4,1747  E4,1541               TRIMONT            EQUALS   AMEMORY    +097D                      
001780,001308: E4,1747  E4,1555               TRIMOFFT           EQUALS   AMEMORY    +109D                      
001781,001309: E4,1747  E4,1571               TRIMIND            EQUALS   AMEMORY    +121D                      
001782,001310: 
001783,001311:                                                                                                  #  THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE THROTTLE TASK.
001784,001312: 
001785,001313: E4,1747  E4,1605               THRTSTEP           EQUALS   AMEMORY    +133D                      
001786,001314: E4,1747  E4,1606               DOTIMES            EQUALS   AMEMORY    +134D                      
001787,001315: E4,1747  E4,1614               DELAY              EQUALS   AMEMORY    +140D                      
001788,001316: E4,1747  E4,1622               THR1TIME           EQUALS   AMEMORY    +146D                      
001789,001317: E4,1747  E4,1630               THCOMM1            EQUALS   AMEMORY    +152D                      

Page 44

001791,001319: E4,1747  E4,1636               THCOMM2            EQUALS   AMEMORY    +158D                      
001792,001320: 
001793,001321:                                                                                                  #  THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE INTERFACE LOOK TASK. 
001794,001322: 
001795,001323: E4,1747  E4,1644               30BUF1             EQUALS   AMEMORY    +164D                      
001796,001324: E4,1747  E4,1650               30BUF0             EQUALS   AMEMORY    +168D                      
001797,001325: E4,1747  E4,1654               QUITLOOK           EQUALS   AMEMORY    +172D                      
001798,001326: E4,1747  E4,1655               CHCNTR             EQUALS   AMEMORY    +173D                      
001799,001327: 
001800,001328: E5,1400                                           SETLOC   2400                                  
001801,001329:                                                                                                  #  THE FOLLOWING ERASABLE LOCATIONS ARE UTILIZED BY THE IN-FLIGHT ALIGNMENT ROUTINES
001802,001330: 
001803,001331: E5,1400                        XSM                ERASE    +17D                                  
001804,001332: E5,1422  E5,1406               YSM                =        XSM        +6                         
001805,001333: E5,1422  E5,1414               ZSM                =        XSM        +12D                       
001806,001334: E5,1422                        XDC                ERASE    +17D                                  
001807,001335: E5,1444  E5,1430               YDC                =        XDC        +6                         
001808,001336: E5,1444  E5,1436               ZDC                =        XDC        +12D                       
001809,001337: E5,1444  E5,1422               XNB                =        XDC                                   
001810,001338: E5,1444  E5,1430               YNB                =        XDC        +6                         
001811,001339: E5,1444  E5,1436               ZNB                =        XDC        +12D                       
001812,001340: E5,1444                        STARAD             ERASE    +17D                                  
001813,001341: E5,1466                        STAR               ERASE    +5                                    
001814,001342: E5,1474                        SAC                ERASE    +1                                    
001815,001343: E5,1476                        PAC                ERASE    +1                                    
001816,001344: E5,1500                        OGC                ERASE    +1                                    
001817,001345: E5,1502                        IGC                ERASE    +1                                    
001818,001346: E5,1504                        MGC                ERASE    +1                                    
001819,001347: E5,1506                        ZPRIME             =        22D                                   
001820,001348: E5,1506                        PDA                =        22D                                   
001821,001349: E5,1506                        COSTH              =        16D                                   
001822,001350: E5,1506                        SINTH              =        18D                                   
001823,001351: E5,1506                        THETA              =        20D                                   
001824,001352: E5,1506                        STARM              =        32D                                   
001825,001353: 
001826,001354: 
001827,001355:                                                                                                  #  THE FOLLOWING ERASABLE LOCATIONS ARE UTILIZED BY THE SYSTEM TESTS
001828,001356: 
001829,001357: E5,1506                        AZIMUTH            ERASE    +1                                    
001830,001358: E5,1510                        LATITUDE           ERASE    +1                                    
001831,001359: 
001832,001360: E5,1512                        EROPTN             ERASE                                          
001833,001361: E5,1513                        ERVECTOR           ERASE    +5                                    
001834,001362: E5,1521                        GYROD              ERASE    +5                                    
001835,001363: E5,1527                        LENGTHOT           ERASE                                          
001836,001364: E5,1530                        LOSVEC             ERASE    +5                                    
001837,001365: E5,1536                        NBPOS              ERASE                                          
001838,001366: E5,1537                        NDXCTR             ERASE                                          
001839,001367: E5,1540                        PIPANO             ERASE                                          

Page 45

001841,001369: E5,1541                        PIPINDEX           ERASE                                          
001842,001370: E5,1542                        PIPNDX             ERASE    +1                                    
001843,001371: E5,1544                        POSITON            ERASE                                          
001844,001372: E5,1545                        QPLAC              ERASE                                          
001845,001373: E5,1546                        QPLACE             ERASE                                          
001846,001374: E5,1547                        QPLACES            ERASE                                          
001847,001375: E5,1550                        RUN                ERASE                                          
001848,001376: E5,1551                        STOREPL            ERASE                                          
001849,001377: E5,1552                        SOUTHDR            ERASE                                          
001850,001378: E5,1553                        TAZEL1             ERASE    +5                                    
001851,001379: E5,1561                        TEMPTIME           ERASE    +1                                    
001852,001380: E5,1563                        TESTNO             ERASE                                          
001853,001381: E5,1564                        TMARK              ERASE    +1                                    
001854,001382: E5,1566                        SHAFTA             ERASE                                          
001855,001383: E5,1567                        TRUNA              ERASE                                          
001856,001384: E5,1570                        GENPL              ERASE    +134D                                 
001857,001385: 
001858,001386: E5,1777  E5,1570               CDUTIMEI           =        GENPL                                 
001859,001387: E5,1777  E5,1572               CDUTIMEF           =        GENPL      +2                         
001860,001388: E5,1777  E5,1574               CDUDANG            =        GENPL      +4                         
001861,001389: E5,1777  E5,1575               CDUREADF           =        GENPL      +5                         
001862,001390: E5,1777  E5,1576               CDUREADI           =        GENPL      +6                         
001863,001391: E5,1777  E5,1577               CDULIMIT           =        GENPL      +7                         
001864,001392: 
001865,001393: E5,1777  E5,1574               TEMPADD            =        GENPL      +4                         
001866,001394: E5,1777  E5,1575               TEMP               =        GENPL      +5                         
001867,001395: E5,1777  E5,1576               NOBITS             =        GENPL      +6                         
001868,001396: E5,1777  E5,1577               CHAN               =        GENPL      +7                         
001869,001397: 
001870,001398: E5,1777  E5,1600               LOS1               =        GENPL      +8D                        
001871,001399: E5,1777  E5,1606               LOS2               =        GENPL      +14D                       
001872,001400: 
001873,001401: E5,1777  E5,1614               CALCDIR            EQUALS   GENPL      +20D                       
001874,001402: E5,1777  E5,1615               CDUFLAG            EQUALS   GENPL      +21D                       
001875,001403: E5,1777  E5,1616               GYTOBETQ           EQUALS   GENPL      +22D                       
001876,001404: E5,1777  E5,1617               OPTNREG            EQUALS   GENPL      +23D                       
001877,001405: E5,1777  E5,1620               SAVE               EQUALS   GENPL      +24D                       #  THREE CONSEC LOC
001878,001406: E5,1777  E5,1623               SFCONST1           EQUALS   GENPL      +27D                       
001879,001407: E5,1777  E5,1624               TIMER              EQUALS   GENPL      +28D                       
001880,001408: 
001881,001409: E5,1777  E5,1626               DATAPL             EQUALS   GENPL      +30D                       
001882,001410: E5,1777  E5,1570               RDSP               EQUALS   GENPL                                 #  FIX LATER     POSSIBLY KEEP1
001883,001411: E5,1777  E5,1670               MASKREG            EQUALS   GENPL      +64D                       
001884,001412: E5,1777  E5,1672               CDUNDX             EQUALS   GENPL      +66D                       
001885,001413: E5,1777  E5,1673               RESULTCT           EQUALS   GENPL      +67D                       
001886,001414: E5,1777  E5,1676               COUNTPL            EQUALS   GENPL      +70D                       
001887,001415: 
001888,001416: E5,1777  E5,1677               CDUANG             EQUALS   GENPL      +71D                       
001889,001417: E5,1777  E5,1570               AINLA              =        GENPL                                 #  110 DEC OR 156 OCT LOCATIONS
001890,001418: 

Page 46

001892,001420: E5,1777  E5,1570               WANGO              EQUALS   AINLA                                 #  VERT ERATE
001893,001421: E5,1777  E5,1572               WANGI              EQUALS   AINLA      +2D                        #  HORIZONTAL ERATE
001894,001422: E5,1777  E5,1574               WANGT              EQUALS   AINLA      +4D                        #  T
001895,001423: E5,1777  E5,1574               TORQNDX            =        WANGT                                 
001896,001424: E5,1777  E5,1576               DRIFTT             EQUALS   AINLA      +6D                        
001897,001425: E5,1777  E5,1600               ALX1S              EQUALS   AINLA      +8D                        
001898,001426: E5,1777  E5,1601               CMPX1              EQUALS   AINLA      +9D                        #  IND
001899,001427: E5,1777  E5,1602               ALK                EQUALS   AINLA      +10D                       #  GAINS
001900,001428: E5,1777  E5,1616               VLAUNS             EQUALS   AINLA      +22D                       
001901,001429: E5,1777  E5,1616               THETAX             =        VLAUNS                                
001902,001430: E5,1777  E5,1620               WPLATO             EQUALS   AINLA      +24D                       
001903,001431: E5,1777  E5,1624               INTY               EQUALS   AINLA      +28D                       #  SOUTH PIP INTE
001904,001432: E5,1777  E5,1626               ANGZ               EQUALS   AINLA      +30D                       #  EAST AXIS
001905,001433: E5,1777  E5,1630               INTZ               EQUALS   AINLA      +32D                       #  EAST PIP I
001906,001434: E5,1777  E5,1632               ANGY               EQUALS   AINLA      +34D                       #  SOUTH
001907,001435: E5,1777  E5,1624               THETAN             =        INTY                                  
001908,001436: E5,1777  E5,1634               ANGX               EQUALS   AINLA      +36D                       #  VE
001909,001437: E5,1777  E5,1636               DRIFTO             EQUALS   AINLA      +38D                       #  VERT
001910,001438: E5,1777  E5,1640               DRIFTI             EQUALS   AINLA      +40D                       #  SOU
001911,001439: E5,1777  E5,1644               VLAUN              EQUALS   AINLA      +44D                       
001912,001440: E5,1777  E5,1644               FILDELV            =        VLAUN                                 
001913,001441: E5,1777  E5,1646               ACCWD              EQUALS   AINLA      +46D                       
001914,001442: E5,1777  E5,1646               INTVEC             =        ACCWD                                 
001915,001443: E5,1777  E5,1654               POSNV              EQUALS   AINLA      +52D                       
001916,001444: E5,1777  E5,1656               DPIPAY             EQUALS   AINLA      +54D                       #  SOUTH
001917,001445: E5,1777  E5,1662               DPIPAZ             EQUALS   AINLA      +58D                       #  NORTH PIP INCREMENT
001918,001446: E5,1777  E5,1664               ALTIM              EQUALS   AINLA      +60D                       
001919,001447: E5,1777  E5,1665               ALTIMS             EQUALS   AINLA      +61D                       #  INDEX
001920,001448: E5,1777  E5,1666               ALDK               EQUALS   AINLA      +62D                       #  TIME CONSTAN
001921,001449: E5,1777  E5,1704               DELM               EQUALS   AINLA      +76D                       
001922,001450: E5,1777  E5,1714               WPLATI             EQUALS   AINLA      +84D                       
001923,001451: E5,1777  E5,1716               GEOSAVED           EQUALS   AINLA      +86D                       
001924,001452: E5,1777  E5,1717               PREMTRXC           EQUALS   AINLA      +87D                       
001925,001453: E5,1777  E5,1720               PRELMTRX           EQUALS   AINLA      +88D                       
001926,001454: E5,1777  E5,1720               TRANSM1            =        PRELMTRX                              
001927,001455: E5,1777  E5,1742               GEOCOMPS           EQUALS   AINLA      +106D                      
001928,001456: E5,1777  E5,1743               OLDGT              EQUALS   AINLA      +107D                      
001929,001457: E5,1777  E5,1744               1SECXT             EQUALS   AINLA      +108D                      
001930,001458: E5,1777  E5,1745               GTSWTLST           EQUALS   AINLA      +109D                      
001931,001459: E5,1777  E5,1746               ERECTIME           EQUALS   AINLA      +110D                      
001932,001460: E5,1777  E5,1747               GEOMTRX            EQUALS   AINLA      +111D                      
001933,001461: E5,1777  E5,1771               ERCOMP             EQUALS   AINLA      +129D                      
001934,001462: E5,1777  E5,1777               ZERONDX            EQUALS   AINLA      +135D                      
001935,001463: 
001936,001464: E5,1777  E5,1570               BMEMORY            EQUALS   GENPL                                 
001937,001465: E5,1777     0405               DELVY              EQUALS   DELVX      +2                         
001938,001466: E5,1777     0407               DELVZ              EQUALS   DELVX      +4                         
001939,001467: 

Page 47

001941,001469:                                                                                                  #  TUMBLE MONITOR
001942,001470: 
001943,001471: E5,1777  E6,1411               PCDUX              EQUALS   E                                     
001944,001472: E5,1777  E6,1412               PCDUY              EQUALS   EDOT(2)                               
001945,001473: E5,1777  E6,1413               PCDUZ              EQUALS   ER                                    
001946,001474: E5,1777  E6,1416               DCDUY              EQUALS   OMEGAQ                                
001947,001475: E5,1777  E6,1420               DCDUZ              EQUALS   OMEGAR                                
001948,001476: E5,1777  E6,1422               OMEGA              EQUALS   EDOTP                                 
001949,001477: E7,1400                                           SETLOC   3400                                  
001950,001478: 
001951,001479:                                                                                                  #  DOWNLINK STORAGE.
001952,001480: 
001953,001481: E7,1400                        LDATALST           ERASE                                          
001954,001482: E7,1401                        DNTMGOTO           ERASE                                          
001955,001483: E7,1402                        TMINDEX            ERASE                                          
001956,001484: E7,1403                        DNCDUCNT           ERASE                                          
001957,001485: E7,1404                        DNCDUN             ERASE                                          #  DNCDUN +1 CDU SAMPLES ARE DOWNLINKED.
001958,001486: E7,1405                        CDULMIT            ERASE                                          
001959,001487: E7,1406                        DNQ                ERASE                                          #  RETURN ADDRESS OF DOWNLINK SUBROUTINES
001960,001488: E7,1407                        DNTMBUFF           ERASE    +21D                                  #  SNAPSHOT BUFFER.
001961,001489: 
001962,001490:                                                                                                  #  ************************************************************************
001963,001491:                                                                                                  #  ERASABLE INJECTION PARAMETERS FOR MISSION PHASE 4. PRELOADED.
001964,001492: 
001965,001493: E7,1435                        RINJECT            ERASE    +1                                    #  INJECTION RADIUS DESIRED.  THIS QUANTITY
001966,001494:                                                                                                  #  DETERMINES THE PERIGEE.  MUST BE IN METERS * 2(-25)
001967,001495: 
001968,001496: E7,1437                        VINJECT            ERASE    +1                                    #  INJECTION VELOCITY DESIRED.  THIS QUANTI
001969,001497:                                                                                                  #  TY DETERMINES APOGEE.  MUST BE IN METERS/CENTISECONDS * 2(-7)
001970,001498: 
001971,001499:                                                                                                  #  ************************************************************************
001972,001500: 
001973,001501:                                                                                                  #  RADAR TEST STORAGE.
001974,001502: E7,1441                        RTSTDEX            ERASE                                          
001975,001503: E7,1442                        RTSTMAX            ERASE                                          #  66 FOR HI SPEED, 6 FOR LOW SPEED RR,
001976,001504:                                                                                                  #  AND 18 FOR LOW SPEED LR.
001977,001505: E7,1443                        RTSTBASE           ERASE                                          #  USED FOR CYCLIC SAMPLING.
001978,001506: E7,1444                        RTSTLOC            ERASE                                          #  GOES 0(6)RTSTMAX
001979,001507: E7,1445  E7,1444               RSTKLOC            =        RTSTLOC                               
001980,001508: E7,1445                        RSAMPDT            ERASE                                          #  PNZ FOR CYCLIC SAMPLING, -1 FOR HI SPEED
001981,001509:                                                                                                  #  INSERT +0 HERE MANUALLY TO TERMINATE TST
001982,001510: E7,1446                        RFAILCNT           ERASE                                          
001983,001511: E7,1447                        RSTACK             ERASE    +71D                                  #  BUFFERS FOR RADAR TESTING.
001984,001512: 
001985,001513:                                                                                                  #  STORAGE FOR INBIT SCANNER.
001986,001514: 
001987,001515: E7,1557                        LAST30             ERASE    +2                                    #  LAST SAMPLED INBITS.
001988,001516: E7,1562                        MSGCNT             ERASE                                          
001989,001517: 

Page 48

001991,001519:                                                                                                  #  THE COMPTORK REGISTERS ARE REDUNDANT WITH THETAN FOR DOWNLINK PURPOSES.
001992,001520: 
001993,001521: E7,1563                        COMPTORK           ERASE    +5                                    #  V, S, E GYROCOMPASS GYRO TORQUES.
001994,001522: 
001995,001523: E7,1571                        VTO-DPS            ERASE    +1                                    #  FOR MP 4
001996,001524: 
001997,001525: E7,1573                        VTAILOFF           ERASE    +1                                    #  FOR MP 9
001998,001526: 
001999,001527: E7,1575                        VTO-APS            ERASE    +1                                    #  FOR MP 13
002000,001528: E7,1577                        TGONOM             ERASE    +1                                    #  FOR MP 13
002001,001529: E7,1601                        COS27              ERASE    +1                                    #  FOR MP 13
002002,001530: E7,1603                        SIN27              ERASE    +1                                    #  FOR MP 13
002003,001531: E7,1605                        VCONOM             ERASE    +5                                    #  FOR MP 13
002004,001532: E7,1613                        RCOTEMPV           ERASE    +5                                    #  FOR MP 13
002005,001533: 
002006,001534: E7,1621                        TAG5               ERASE    +1                                    #  FOR MP 13
002007,001535: 
002008,001536: E7,1623                        ABDVCONV           ERASE    +2                                    #  FOR MP 11
002009,001537: 
002010,001538: E7,1626                        KT                 ERASE    +1                                    #  FOR MP 4 & 13.
002011,001539: 
002012,001540:                                                                                                  #  BMEMORY USED FOR CONSECUTIVE ASSIGNMENTS FOR SERVICER RESTART
002013,001541: 
002014,001542: E7,1630                        SAVERASE           EQUALS   2506                                  
002015,001543: E7,1630  E5,1506               DVTOTAL            EQUALS   SAVERASE   +000D                      
002016,001544: E7,1630  E5,1511               DVCNTR             EQUALS   SAVERASE   +003D                      
002017,001545: E7,1630  E5,1512               PIPCTR             EQUALS   SAVERASE   +004D                      
002018,001546: E7,1630  E5,1513               VR                 EQUALS   SAVERASE   +005D                      
002019,001547: E7,1630  E5,1522               VGCNTR             EQUALS   SAVERASE   +012D                      
002020,001548: E7,1630  E5,1523               ERRORSJM           EQUALS   SAVERASE   +013D                      
002021,001549: E7,1630  E5,1531               DIFFANG            EQUALS   SAVERASE   +019D                      
002022,001550: E7,1630  E5,1533               STREXIT            EQUALS   SAVERASE   +021D                      
002023,001551: 
002024,001552: 
002025,001553: E7,1630  E5,1534               ABDELV             EQUALS   SAVERASE   +022D                      
002026,001554: E7,1630  E5,1536               SWITCH             EQUALS   SAVERASE   +24D                       
002027,001555: E7,1630  E5,1537               NEGXDV             EQUALS   SAVERASE   +25D                       
002028,001556: 

Page 49

002030,001558:                                                                                                  #  EBANK-6 ASSIGNMENTS.
002031,001559: 
002032,001560:                                                                                                  #  (DIGITAL AUTOPILOT USES ALL OF EBANK-6)
002033,001561: 
002034,001562: E6,1400                                           SETLOC   3000                                  
002035,001563: 
002036,001564:                                                                                                  #  AXIS TRANSFORMATION MATRIX - PILOT TO GIMBAL AXES:
002037,001565: 
002038,001566: E6,1400                        MR12               ERASE                                          #  SCALED AT 2   THESE FOUR P-G MATRIX ELE-
002039,001567: E6,1401                        MR22               ERASE                                          #  SCALED AT 1   MENTS ARE IN THIS ORDER TO
002040,001568: E6,1402                        MR13               ERASE                                          #  SCALED AT 2   COMPUTE RATE HOLD DELCDUS
002041,001569: E6,1403                        MR23               ERASE                                          #  SCALED AT 1   WITH AN INDEXED LOOP
002042,001570: 
002043,001571:                                                                                                  #  AXIS TRANSFORMATION MATRIX - GIMBAL TO PILOT AXES:
002044,001572: 
002045,001573: E6,1404                        M11                ERASE                                          #  SCALED AT 1
002046,001574: E6,1405                        M21                ERASE                                          #  SCALED AT 1
002047,001575: E6,1406                        M31                ERASE                                          
002048,001576: E6,1407  E6,1401               M22                EQUALS   MR22                                  #  SCALED AT 1
002049,001577: E6,1407  E6,1403               M32                EQUALS   MR23                                  #  SCALED AT 1
002050,001578: 
002051,001579:                                                                                                  #  ANGLE MEASUREMENTS.
002052,001580: E6,1407                        EDOT               ERASE    +1                                    #  ERROR IN ANGULAR RATE:
002053,001581: E6,1411  E6,1410               EDOT(R)            EQUALS   EDOT       +1                         #  SCALED DOWN TO PI/16 RADIANS/SECOND
002054,001582: 
002055,001583: E6,1411                        E                  ERASE    +1                                    #  ANGLE ERROR SCALED AT PI RADIANS
002056,001584: E6,1413  E6,1412               EDOT(2)            EQUALS   E          +1                         #  ERROR RATE SQUARED SCALED AT PI(2)/16
002057,001585: E6,1413  E6,1411               EQ                 EQUALS   E                                     #  THIS PAIR OF NAMES IS USED TO REFER TO
002058,001586: E6,1413  E6,1412               EDOT(2)Q           EQUALS   EDOT(2)                               #  THE ABOVE ERASABLES AS Q-AXIS DATA
002059,001587: E6,1413                        ER                 ERASE    +1                                    #  THIS PAIR OF NAMES REFERS TO LOCATIONS
002060,001588: E6,1415  E6,1414               EDOT(2)R           EQUALS   ER         +1                         #  FOR THE R-AXIS DATA: INTERCHANGES WITH Q
002061,001589: 
002062,001590: E6,1415                        OMEGAP             ERASE    +4                                    #  BODY-AXIS ROT. RATES SCALED AT PI/4 AND
002063,001591: E6,1422  E6,1416               OMEGAQ             EQUALS   OMEGAP     +1                         #  BODY-AXIS ACCELERATIONS SCALED AT PI/8
002064,001592: E6,1422  E6,1417               ALPHAQ             EQUALS   OMEGAP     +2                         #  (IN DESCENT) OR PI/2 (IN ASCENT)
002065,001593: E6,1422  E6,1420               OMEGAR             EQUALS   OMEGAP     +3                         #  THESE W,A PAIRS ARE NEEDED, ALPHAP HAS
002066,001594: E6,1422  E6,1421               ALPHAR             EQUALS   OMEGAP     +4                         #  NO USE IN THE DIGITAL AUTOPILOT
002067,001595: 
002068,001596: E6,1422                        EDOTP              ERASE    +2                                    #  ERRORS IN ANGULAR RATE:
002069,001597: E6,1425  E6,1423               EDOTQ              EQUALS   EDOTP      +1                         #  EDOT = 3MEGA - OMEGA(DESIRED)
002070,001598: E6,1425  E6,1424               EDOTR              EQUALS   EDOTP      +2                         #  SCALED AT PI/4 RADIANS/SECOND
002071,001599: 
002072,001600: E6,1425  E6,1423               QRATEDIF           EQUALS   EDOTQ                                 #  ALTERNATIVE NAMES:
002073,001601: E6,1425  E6,1424               RRATEDIF           EQUALS   EDOTR                                 #  DELETE WHEN NO. OF REFERENCES = 0
002074,001602: 
002075,001603: E6,1425                        OLDXFORP           ERASE    +3                                    #  STORED CDU READINGS FOR P AND Q,R RATE
002076,001604: E6,1431  E6,1426               OLDYFORP           EQUALS   OLDXFORP   +1                         #  DERIVATIONS: SCALED AT PI RADIANS (2'S)
002077,001605: E6,1431  E6,1427               OLDYFORQ           EQUALS   OLDXFORP   +2                         #  (THERE MUST BE TWO REGISTERS FOR CDUY
002078,001606: E6,1431  E6,1430               OLDZFORQ           EQUALS   OLDXFORP   +3                         #  SINCE P AND Q,R ARE NOT IN PHASE)
002079,001607: 

Page 50

002081,001609:                                                                                                  #  RHC INPUTS SCALED AT PI/4 RAD/SEC.
002082,001610: 
002083,001611: E6,1431                        PCOM               ERASE                                          
002084,001612: E6,1432                        RCOM               ERASE                                          
002085,001613: E6,1433                        YCOM               ERASE                                          
002086,001614: 
002087,001615:                                                                                                  #  RHC COUNTER REGISTERS.
002088,001616: 
002089,001617: E6,1434                        P-RHCCTR           EQUALS   43                                    
002090,001618: E6,1434                        Q-RHCCTR           EQUALS   42                                    
002091,001619: E6,1434                        R-RHCCTR           EQUALS   44                                    
002092,001620: 
002093,001621:                                                                                                  #  OTHER VARIABLES.
002094,001622: 
002095,001623: E6,1434                        TJETSIGN           ERASE                                          #  =+/-BIT1 TO SHOW SIGN OF P-AXIS ROTATION
002096,001624: E6,1435                        PRATECOM           ERASE                                          
002097,001625: E6,1436                        EDOTGEN            ERASE                                          
002098,001626: E6,1437                        RATEDIF            ERASE                                          
002099,001627: E6,1440                        1/2JTSP            ERASE                                          
002100,001628: E6,1441                        FPQR               ERASE                                          
002101,001629: E6,1442                        MINRA              ERASE                                          
002102,001630: E6,1443                        MINRASQ            ERASE                                          
002103,001631: E6,1444                        HDAP               ERASE                                          
002104,001632: E6,1445  E6,1444               FCT1               EQUALS   HDAP                                  
002105,001633: E6,1445                        U                  ERASE                                          
002106,001634: E6,1446                        DENOM              ERASE                                          
002107,001635: E6,1447                        RATIO              ERASE                                          
002108,001636: E6,1450                        L,PVT-CG           ERASE                                          
002109,001637: E6,1451                        TEMPINER           ERASE                                          
002110,001638: E6,1452                        IXX                ERASE                                          
002111,001639: E6,1453                        IYY                ERASE                                          
002112,001640: E6,1454                        IZZ                ERASE                                          
002113,001641: E6,1455                        4JETTORK           ERASE                                          
002114,001642: E6,1456                        JETTORK4           ERASE                                          
002115,001643: E6,1457                        COSMG              ERASE                                          
002116,001644: E6,1460     0062               DELTAP             EQUALS   ITEMP2                                
002117,001645: E6,1460                        FPQRMIN            ERASE                                          
002118,001646: E6,1461                        NJET               ERASE                                          
002119,001647: E6,1462                        PRATEDIF           ERASE                                          
002120,001648: E6,1463                        LASTPER            ERASE                                          #  THESE 6 REG USED FOR ATT ERR DISPLAY
002121,001649: E6,1464                        LASTQER            ERASE                                          
002122,001650: E6,1465                        LASTRER            ERASE                                          
002123,001651: E6,1466                        PERROR             ERASE                                          
002124,001652: E6,1467                        QERROR             ERASE                                          
002125,001653: E6,1470                        RERROR             ERASE                                          
002126,001654: 
002127,001655:                                                                                                  #  JET STATE CHANGE VARIABLES- TIME (TOFJTCHG),JET BITS WRITTEN NOW
002128,001656:                                                                                                  #    (JTSONNOW), AND JET BITS WRITTEN AT T6 RUPT (JTSATCHG).
002129,001657: 
002130,001658: E6,1471                        JTSONNOW           ERASE                                          

Page 51

002132,001660: E6,1472                        JTSATCHG           ERASE                                          
002133,001661: E6,1473                        ADDT6JTS           ERASE                                          
002134,001662: E6,1474                        ADDTLT6            ERASE                                          
002135,001663: E6,1475                        TOFJTCHG           ERASE                                          
002136,001664: 
002137,001665: E6,1476                        URGLMS             ERASE    +1                                    #  THESE TWO ADJACENT REGISTERS HOLD THE
002138,001666: E6,1500  E6,1476               URGLM1             EQUALS   URGLMS                                #  ASCENT OR DESCENT 4-JET URGENCY LIMIT
002139,001667: E6,1500  E6,1477               URGLM2             EQUALS   URGLMS     +1                         #  SCALED AT 2(+9) AND 2(+4) SECS, RESPECT.
002140,001668: 
002141,001669: E6,1500                        -2JETLIM           ERASE    +1                                    #  RATE COMMAND 4-JET RATE DIFFERENCE LIMIT
002142,001670: E6,1502  E6,1501               -RATEDB            EQUALS   -2JETLIM   +1                         #  AND RATE DEADBAND FOR ASCENT OR DESCENT
002143,001671: 
002144,001672:                                                                                                  #  Q,R AXIS ERASABLES
002145,001673: 
002146,001674: E6,1502     0062               DELQ               EQUALS   ITEMP2                                
002147,001675: E6,1502                        URGENCYQ           ERASE    +1                                    
002148,001676: E6,1504                        URGENCYR           ERASE    +1                                    
002149,001677: E6,1506     0066               URGLIMIT           =        ITEMP6                                
002150,001678: E6,1506                        A+B                ERASE                                          
002151,001679: E6,1507                        A-B                ERASE                                          
002152,001680: E6,1510                        TERMA              ERASE                                          
002153,001681: E6,1511                        TERMB              ERASE    +1                                    
002154,001682: E6,1513                        INVACCSQ           ERASE    +1                                    
002155,001683: E6,1515                        DISPLACT           ERASE                                          #  FLAG FOR EIGHTBALL ATT. ERROR DISPLAY.
002156,001684: 
002157,001685: E6,1516                        POLTEST            ERASE                                          
002158,001686: 

Page 52

002160,001688:                                                                                                  #  TRIM GIMBAL CONTROL LAW ERASABLES:
002161,001689: 
002162,001690:                                                                                                  #  THE FOLLOWING ASSIGNMENTS OF RUPTREGS AND ITEMPS HAS BEEN MADE IN AN EFFORT TO OPTIMIZE USE OF ERASABLES:
002163,001691: 
002164,001692: E6,1517     0070               K2THETA            EQUALS   RUPTREG1                              #  D.P. K(2)THETA AND "NEGUSUM"
002165,001693: E6,1517     0071               ETHETA             EQUALS   RUPTREG2                              #  S.P. ERROR ANGLE SCALED AT PI/64 RADIANS
002166,001694: E6,1517     0072               A2CNTRAL           EQUALS   RUPTREG3                              #  D.P. ALPHA(2) SCALED AT PI(2)/64 R/S(2)
002167,001695: E6,1517     0072               SF1                EQUALS   RUPTREG3                              #  S.P. VARIABLE SCALE FACTORS WHICH ARE
002168,001696: E6,1517     0073               SF2                EQUALS   RUPTREG4                              #  S.P. - REALLY SINGLE BITS (OR ZERO)
002169,001697: E6,1517     0061               OMEGA.K            EQUALS   ITEMP1                                #  D.P. OMEGA*K SUPERCEDES K AND K(2)
002170,001698: E6,1517     0061               KCENTRAL           EQUALS   ITEMP1                                #  S.P. K FROM KQ OR KR FIRST AT PI/2(8)
002171,001699: E6,1517     0062               K2CNTRAL           EQUALS   ITEMP2                                #  S.P. K(2) FROM Q OR R 1ST AT PI(2)/2(16)
002172,001700: E6,1517     0063               WCENTRAL           EQUALS   ITEMP3                                #  S.P. OMEGA SCALED AT PI/4 RADIANS/SECOND
002173,001701: E6,1517     0064               ACENTRAL           EQUALS   ITEMP4                                #  S.P. ALPHA SCALED AT PI/8 RAD/SEC(2)
002174,001702: E6,1517     0065               DEL                EQUALS   ITEMP5                                #  S.P. SGN(FUNCTION)
002175,001703: E6,1517     0066               QRCNTR             EQUALS   ITEMP6                                #  S.P. COUNTER: Q,Y=0, R,Z=2
002176,001704: 
002177,001705:                                                                                                  #  THE ABOVE QUANTITIES ARE ONLY NEEDED ON A VERY TEMPORARY BASIS AND HAVE BEEN PROVEN TO BE NON-CONFLICTING.
002178,001706: 
002179,001707: E6,1517                        TJSR               ERASE                                          
002180,001708: E6,1520                        MULTFLAG           ERASE                                          #  INDICATOR FOR SPDPMULT ROUTINE
002181,001709: 
002182,001710: E6,1521                        FUNCTION           ERASE    +1                                    #  D.P. WORD FOR DRIVE FUNCTIONS
002183,001711: 
002184,001712: E6,1523                        NEGUQ              ERASE    +2                                    #  NEGATIVE OF Q-AXIS GIMBAL DRIVE
002185,001713: E6,1526  E6,1525               NEGUR              EQUALS   NEGUQ      +2                         #  NEGATIVE OF R-AXIS GIMBAL DRIVE
002186,001714: 
002187,001715: E6,1526                        KQ                 ERASE    +3                                    #  .3ACCDOTQ SCALED AT PI/2(8)
002188,001716: E6,1532  E6,1527               KQ2                EQUALS   KQ         +1                         #  KQ2 = KQ*KQ
002189,001717: E6,1532  E6,1530               KRDAP              EQUALS   KQ         +2                         #  .3 ACCDOTR SCALED AT PI/2(8)
002190,001718: E6,1532  E6,1531               KR2                EQUALS   KQ         +3                         #  KR2 = KR*KR
002191,001719: 
002192,001720: E6,1532                        ACCDOTQ            ERASE    +3                                    #  Q-JERK SCALED AT PI/2(7) UNSIGNED
002193,001721: E6,1536  E6,1533               QACCDOT            EQUALS   ACCDOTQ    +1                         #  Q-JERK SCALED AT PI/2(7) SIGNED
002194,001722: E6,1536  E6,1534               ACCDOTR            EQUALS   ACCDOTQ    +2                         #  R-JERK SCALED AT PI/2(7) UNSIGNED
002195,001723: E6,1536  E6,1535               RACCDOT            EQUALS   ACCDOTQ    +3                         #  R-JERK SCALED AT PI/2(7) SIGNED
002196,001724: 
002197,001725: E6,1536  E6,1467               QDIFF              EQUALS   QERROR                                #  ATTITUDE ERRORS:
002198,001726: E6,1536  E6,1470               RDIFF              EQUALS   RERROR                                #  SCALED AT PI RADIANS
002199,001727: 
002200,001728: E6,1536                        TIMEOFFQ           ERASE                                          #  TIMES TO GO UNTIL TRIM GIMBAL TURN-OFF,
002201,001729: E6,1537                        TIMEOFFR           ERASE                                          #  ZERO MEANS NO ACTION, SCALED AS WAITLIST
002202,001730: 

Page 53

002204,001732:                                                                                                  #  KALMAN FILTER ERASABLES.
002205,001733: 
002206,001734: E6,1540                        STORCDUY           ERASE                                          #  THIS S.P. PAIR IS USED TO SAVE CDUY,Z
002207,001735: E6,1541                        STORCDUZ           ERASE                                          #  FOR THE GTS RUPT
002208,001736: 
002209,001737: E6,1542     0072               CDU                EQUALS   RUPTREG3                              #  RUPTREG3,4 USED AS D.P. WORD FOR CDU
002210,001738:                                                                                                  #  VALUE WITHIN FILTER IS COMP AT 2PI RAD
002211,001739: 
002212,001740: E6,1542     0061               CDUDOT             EQUALS   ITEMP1                                #  ITEMP1,2 USED AS D.P. WORD FOR CDUDOT
002213,001741:                                                                                                  #  VALUE WITHIN FILTER SCALED AT PI/4
002214,001742: 
002215,001743: E6,1542     0063               CDU2DOT            EQUALS   ITEMP3                                #  ITEMP3,4 USED AS D.P. WORD FOR CDU2DOT
002216,001744:                                                                                                  #  VALUE WITHIN FILTER SCALED AT PI/8
002217,001745: 
002218,001746: E6,1542                        DT                 ERASE                                          #  TIME ELAPSED SCALED AT 1/8: NOMINAL=50MS
002219,001747: E6,1543                        DAPTIME            ERASE                                          #  USED TO RECORD LAST TIME FROM CHANNEL 4
002220,001748: 
002221,001749: E6,1544                        STEERADR           ERASE                                          #  DTCALC SWITCH IN FILTER INITIALIZATION
002222,001750: 
002223,001751: E6,1545                        DPDIFF             ERASE    +1                                    #  D.P. WEIGHTING VECTOR FACTOR AT PI
002224,001752: E6,1547                        WPOINTER           ERASE                                          #  POINTER TO WEIGHTING VECTOR TABLE
002225,001753: E6,1550                        W0                 ERASE    +2                                    #  THETA WEIGHT
002226,001754: E6,1553  E6,1551               W1                 EQUALS   W0         +1                         #  OMEGA WEIGHT
002227,001755: E6,1553  E6,1552               W2                 EQUALS   W1         +1                         #  ALPHA WEIGHT
002228,001756: 
002229,001757: E6,1553                        CDUYFIL            ERASE    +1                                    #  Y-AXIS D.P. FILTERED THETA AT 2PI
002230,001758: E6,1555                        CDUZFIL            ERASE    +1                                    #  Z-AXIS D.P. FILTERED THETA AT 2PI
002231,001759: E6,1557                        DCDUYFIL           ERASE    +1                                    #  Y-AXIS D.P. FILTERED OMEGA AT PI/4
002232,001760: E6,1561                        DCDUZFIL           ERASE    +1                                    #  Z-AXIS D.P. FILTERED OMEGA AT PI/4
002233,001761: E6,1563                        D2CDUYFL           ERASE    +1                                    #  Y-AXIS D.P. FILTERED ALPHA AT PI/8
002234,001762: E6,1565                        D2CDUZFL           ERASE    +1                                    #  Z-AXIS D.P. FILTERED ALPHA AT PI/8
002235,001763: E6,1567                        Y3DOT              ERASE                                          #  Y-AXIS S.P. JERK AT PI/2(7)
002236,001764: E6,1570                        CDU3DOT            ERASE                                          #                    LOOP REGISTER (SPACER)
002237,001765: E6,1571                        Z3DOT              ERASE                                          #  Z-AXIS S.P. JERK AT PI/2(7)
002238,001766: 
002239,001767: E6,1572                        PFILTADR           ERASE    +1                                    #  2CADR FOR FILTER RUPT 30 MS AFTER P-AXIS
002240,001768: E6,1574                        PFRPTLST           ERASE    +7                                    #  POST FILTER RUPT LIST
002241,001769:                                                                                                  #  TORQUE VECTOR RECONSTRUCTION VARIABLES:
002242,001770: 
002243,001771: E6,1604                        JETRATE            ERASE    +2                                    #  WEIGHTED RATES DUE TO JETS APPLIED IN
002244,001772: E6,1607  E6,1605               JETRATEQ           EQUALS   JETRATE    +1                         #  THE LAST CONTROL SAMPLE PERIOD OF 100 MS
002245,001773: E6,1607  E6,1606               JETRATER           EQUALS   JETRATE    +2                         #  SCALED AT PI/4 RADIANS/SECOND
002246,001774: 
002247,001775: E6,1607                        NO.QJETS           ERASE    +1                                    #  NUMBER OF Q AND R JETS THAT ARE GIVEN
002248,001776: E6,1611  E6,1610               NO.RJETS           EQUALS   NO.QJETS   +1                         #  BY THE JET SELECT LOGIC
002249,001777: 
002250,001778: E6,1611                        TP                 ERASE    +1                                    #  TIME CALCULATED BY TJETLAW FOR P, QR
002251,001779: E6,1613  E6,1612               TQR                EQUALS   TP         +1                         #  SCALED AS TIME6, THEN TQR RESCALED TO 1
002252,001780: 
002253,001781: E6,1613                        1JACC              ERASE    +4                                    #  ACCELERATIONS DUE TO 1 JET TORQUING

Page 54

002255,001783: E6,1620  E6,1614               1JACCQ             EQUALS   1JACC      +1                         #  SCALED AT PI/4 RADIANS/SECOND
002256,001784: E6,1620  E6,1615               1JACCR             EQUALS   1JACC      +2                         
002257,001785: E6,1620  E6,1616               1JACCU             EQUALS   1JACC      +3                         #  FOR U,V-AXES THE SCALE FACTOR IS DIFF:
002258,001786: E6,1620  E6,1617               1JACCV             EQUALS   1JACC      +4                         #  SCALED AT PI/2 RADIANS/SECOND (FOR ASC)
002259,001787: 
002260,001788: E6,1620                        INERCTR            ERASE                                          
002261,001789: E6,1621                        INERCTRX           ERASE                                          
002262,001790: 
002263,001791:                                                                                                  #  ASCENT VARIABLES:
002264,001792: 
002265,001793: E6,1622                        SAVRATEQ           ERASE    +1                                    #  UN-WEIGHTED JETRATE FOR LAST CSP BEFORE
002266,001794: E6,1624  E6,1623               SAVRATER           EQUALS   SAVRATEQ   +1                         #  AOSTASK.  INITIAL VALUES FOR SJMRATES.
002267,001795: 
002268,001796: E6,1624                        SUMRATEQ           ERASE    +1                                    #  SUM OF UN-WEIGHTED JETRATE TERMS
002269,001797: E6,1626  E6,1625               SUMRATER           EQUALS   SUMRATEQ   +1                         #  SCALED AT PI/4 RADIANS/SECOND
002270,001798: 
002271,001799: E6,1626                        OLDWFORQ           ERASE    +1                                    #  OMEGA VALUE 2 SECONDS AGO
002272,001800: E6,1630  E6,1627               OLDWFORR           EQUALS   OLDWFORQ   +1                         #  SCALED AT PI/4 RADIANS/SECOND
002273,001801: 
002274,001802: E6,1630                        DBMINIMP           ERASE    +1                                    #  MINIMUM IMPULSE DEADBANDS (EQUAL IN DESC
002275,001803: E6,1632  E6,1631               MINIMPDB           EQUALS   DBMINIMP   +1                         #  AT .3 DEG, 0,-DB RESPECTIVELY FOR ASC)
002276,001804: E6,1632                        DBMNMPAX           ERASE                                          #  P-AXIS VALUE: SCALED AT PI RADIANS.
002277,001805: 
002278,001806: E6,1633                        .5ACCMNE           ERASE    +4                                    #  (1/2)(1/ACCMIN) WHICH IS THE INVERSE OF
002279,001807: E6,1640  E6,1634               .5ACCMNQ           EQUALS   .5ACCMNE   +1                         #  THE MINIMUM ACCELERATION (A CONSTANT FOR
002280,001808: E6,1640  E6,1635               .5ACCMNR           EQUALS   .5ACCMNE   +2                         #  DESCENT AND A VARIABLE FOR ASCENT DAP)
002281,001809: E6,1640  E6,1636               .5ACCMNU           EQUALS   .5ACCMNE   +3                         #  SCALED AT 2(+8)/PI
002282,001810: E6,1640  E6,1637               .5ACCMNV           EQUALS   .5ACCMNE   +4                         #  IN UNITS OF SECONDS(2)/RADIAN
002283,001811: 
002284,001812: E6,1640                        WFORP              ERASE    +1                                    #  W = K/(NOMINAL DT)
002285,001813: E6,1642  E6,1641               WFORQR             EQUALS   WFORP      +1                         #  SCALED AT 16
002286,001814: 
002287,001815: E6,1642                        (1-K)              ERASE    +1                                    #  1-K SCALED AT 1
002288,001816: E6,1644  E6,1643               (1-K)/8            EQUALS   (1-K)      +1                         #  1-K SCALED AT 8
002289,001817: 
002290,001818: E6,1644                        1/NJTSQ            ERASE    +3                                    #  1/NJETACC FOR EACH AXIS
002291,001819: E6,1650  E6,1645               1/NJTSR            EQUALS   1/NJTSQ    +1                         #  FOR DESCENT THIS IS ALWAYS 1/2JTS
002292,001820: E6,1650  E6,1646               1/NJTSU            EQUALS   1/NJTSQ    +2                         #  FOR ASCENT WITH HIGH OFFSET: 1/4JTS
002293,001821: E6,1650  E6,1647               1/NJTSV            EQUALS   1/NJTSQ    +3                         #  SCALED AT 2(8)/PI SEC(2)/RAD
002294,001822: 
002295,001823: E6,1650                        KCOEFCTR           ERASE                                          #  COUNTER FOR ASCENT DAP
002296,001824: 
002297,001825: E6,1651                        DLCDUIDX           ERASE                                          #  SAVE RATE INDEX, = 1, 0
002298,001826: E6,1652                        PJUMPADR           ERASE    +1                                    
002299,001827: E6,1654  E6,1653               QJUMPADR           EQUALS   PJUMPADR   +1                         #  IN THE LM DAP T5RUPTS TO SKIP P-AXIS
002300,001828: E6,1654                        CH5TEMP            ERASE                                          
002301,001829: E6,1655                        -.06R/S2           ERASE                                          #  DESCENT VAL.=0, ASCENT VAL.= -.06 RAD/S
002302,001830: 
002303,001831: E6,1656                        100MSPTQ           ERASE                                          

Page 55

002305,001833: E6,1657  E6,1656               QR.1ST0Q           =        100MSPTQ                              
002306,001834: E6,1657                        NO.PJETS           ERASE                                          
002307,001835: 
002308,001836: 
002309,001837:                                                                                                  #  THE FOLLOWING LM DAP ERASABLES ARE ZEROED IN THE STARTDAP SECTION OF THE DAPIDLER PROGRAM AND THE COASTASC
002310,001838:                                                                                                  #  SECTION OF THE AOSTASK.  THE ORDER MUST BE PRESERVED FOR THE INDEXING METHODS WHICH ARE EMPLOYED IN THOSE
002311,001839:                                                                                                  #  SECTIONS AND ELSEWHERE.
002312,001840: 
002313,001841: E6,1660                        AOSQ               ERASE    +3                                    #  ASCENT OFFSET ACCELERATION ESTIMATES:
002314,001842: E6,1664  E6,1661               AOSR               EQUALS   AOSQ       +1                         #  ESTIMATED EVERY 2 SECONDS BY AOSTASK.
002315,001843: E6,1664  E6,1662               AOSU               EQUALS   AOSQ       +2                         #  U,V-AXES ACCS FORMED BY VECTOR ADDITION.
002316,001844: E6,1664  E6,1663               AOSV               EQUALS   AOSQ       +3                         #  SCALED AT PI/2 RADIANS/SECOND(2).
002317,001845: 
002318,001846: E6,1664                        AOSQTERM           ERASE    +1                                    #  (.1-.05K)AOS
002319,001847: E6,1666  E6,1665               AOSRTERM           EQUALS   AOSQTERM   +1                         #  SCALED AT PI/4 RADIANS/SECOND.
002320,001848: 
002321,001849: E6,1666                        NJ+Q               ERASE    +7                                    #  2 JET OVER-RIDE FLAGS:
002322,001850: E6,1676  E6,1667               NJ-Q               EQUALS   NJ+Q       +1                         #  WHENEVER THE OFFSET ACCELERATION ABOUT
002323,001851: E6,1676  E6,1670               NJ+R               EQUALS   NJ+Q       +2                         #  AN AXIS IS SO HIGH THAT 2 JETS COULD NOT
002324,001852: E6,1676  E6,1671               NJ-R               EQUALS   NJ+Q       +3                         #  CONTROL ATTITUDE SUCCESSFULLY, THEN NJ
002325,001853: E6,1676  E6,1672               NJ+U               EQUALS   NJ+Q       +4                         #  FOR THAT AXIS (IN THE DIRECTION OPPOSING
002326,001854: E6,1676  E6,1673               NJ-U               EQUALS   NJ+Q       +5                         #  AOS) IS SET TO 1.  OTHERWISE, THE VALUE
002327,001855: E6,1676  E6,1674               NJ+V               EQUALS   NJ+Q       +6                         #  IS ZERO.  THESE FLAGS PREVENT TWO JETS
002328,001856: E6,1676  E6,1675               NJ-V               EQUALS   NJ+Q       +7                         #  FROM BEING REQUESTED TO FIGHT THE AOS.
002329,001857: 
002330,001858: E6,1676                        1/NET+2Q           ERASE    +15D                                  
002331,001859: E6,1716  E6,1677               1/NET+4Q           EQUALS   1/NET+2Q   +1                         
002332,001860: E6,1716  E6,1700               1/NET-2Q           EQUALS   1/NET+2Q   +2                         
002333,001861: E6,1716  E6,1701               1/NET-4Q           EQUALS   1/NET+2Q   +3                         
002334,001862: E6,1716  E6,1702               1/NET+2R           EQUALS   1/NET+2Q   +4                         
002335,001863: E6,1716  E6,1703               1/NET+4R           EQUALS   1/NET+2Q   +5                         
002336,001864: E6,1716  E6,1704               1/NET-2R           EQUALS   1/NET+2Q   +6                         
002337,001865: E6,1716  E6,1705               1/NET-4R           EQUALS   1/NET+2Q   +7                         
002338,001866: E6,1716  E6,1706               1/NET+1U           EQUALS   1/NET+2Q   +8D                        
002339,001867: E6,1716  E6,1707               1/NET+2U           EQUALS   1/NET+2Q   +9D                        
002340,001868: E6,1716  E6,1710               1/NET-1U           EQUALS   1/NET+2Q   +10D                       
002341,001869: E6,1716  E6,1711               1/NET-2U           EQUALS   1/NET+2Q   +11D                       
002342,001870: E6,1716  E6,1712               1/NET+1V           EQUALS   1/NET+2Q   +12D                       
002343,001871: E6,1716  E6,1713               1/NET+2V           EQUALS   1/NET+2Q   +13D                       
002344,001872: E6,1716  E6,1714               1/NET-1V           EQUALS   1/NET+2Q   +14D                       
002345,001873: E6,1716  E6,1715               1/NET-2V           EQUALS   1/NET+2Q   +15D                       
002346,001874: E6,1716                        SIGNTAG            ERASE                                          
002347,001875: E6,1717  E6,1706               1/NETACS           EQUALS   1/NET+1U                              
002348,001876: 
002349,001877: E6,1717                        1/ACCQ             ERASE    +1                                    #  INVERSE NET ACCELERATIONS FOR URGENCY.
002350,001878: E6,1721  E6,1720               1/ACCR             EQUALS   1/ACCQ     +1                         #  SCALED AT 2(+8)/PI SECONDS(2)/RADIAN.
002351,001879: 
002352,001880: E6,1721                        1/AMINQ            ERASE    +1                                    #  INVERSE MIN ACCELERATIONS FOR URGENCY.
002353,001881: E6,1723  E6,1722               1/AMINR            EQUALS   1/AMINQ    +1                         #  SCALED AT 2(+8)/PI SECONDS(2)/RADIAN.
002354,001882: 

Page 56

002356,001884: E6,1723                        1/AMINU            ERASE                                          
002357,001885: E6,1724                        1/AMINV            ERASE                                          
002358,001886: 
002359,001887: E6,1725                        URGRATQ            ERASE    +1                                    #  URGENCY FUNCTION CORRECTION FACTOR RATIO
002360,001888: E6,1727  E6,1726               URGRATR            EQUALS   URGRATQ    +1                         #  SCALED AT 1.
002361,001889: E6,1727                        SRTEMP             ERASE                                          #  SCRATCH CELLS FOR DAPSQRT
002362,001890: E6,1730                        SQRTTEMP           ERASE                                          #  SCRATCH CELLS FOR DAPSQRT
002363,001891: E6,1731                        SQRTTEMQ           ERASE                                          #  SCRATCH CELLS FOR DAPSQRT
002364,001892: 
002365,001893: E6,1732                        AOSCOUNT           ERASE                                          
002366,001894: E6,1733  E6,1727               QUOTTEMP           EQUALS   SRTEMP                                #  SCRATCH CELL FOR Q,R-AXIS TJETLAW.
002367,001895: 
002368,001896: E6,1733                        QACDOTMP           ERASE    +2                                    #  Q(R)ACCDOT VALUES STORED HERE BETWEEN
002369,001897: E6,1736  E6,1735               RACDOTMP           EQUALS   QACDOTMP   +2                         #  GTS,DGTS BEFORE THE FILTER CAN USE THEM
002370,001898: 
002371,001899:                                                                                                  #  SPACING BETWEEN RACDOTMP AND QACDOTMP IS USED IN INDEXING.
002372,001900: 
002373,001901: E6,1736                        PASSCTR            ERASE                                          #  COUNT REQUIRED KALMAN FILTER PASSES LEFT
002374,001902: E6,1737                        SLECTLAW           ERASE                                          #  CONTROL FLOW SWITCHING CELL.
002375,001903: E6,1740                        HOLDCDUY           ERASE    +1                                    #  TWO CELLS HOLD CDUS DURING INITIAL RATE
002376,001904: E6,1742  E6,1741               HOLDCDUZ           EQUALS   HOLDCDUY   +1                         #  CALCULATION IN KALMAN FILTER.
002377,001905: E6,1742                        STEERAD2           ERASE                                          #  CONTROL FLOW SWITCHING CELL.
002378,001906: E6,1743                        COUNTBOX           ERASE                                          #  LOAD FOR INITIALIZING PASSCTR.
002379,001907: 
002380,001908:                                                                                                  #  START CODING FOR MODULE 3 REMAKE, AUGUST 1967***START CODING FOR MODULE 3 REMAKE, AUGUST 1967*******************
002381,001909: 
002382,001910: E6,1744                        TRIMCNTR           ERASE                                          #  COUNTER TO ENSURE A GTS PASS SHORTLY
002383,001911:                                                                                                  #    BEFORE THROTTLE-UP, (LOADED NEGATIVE)
002384,001912: E6,1745                        GTSMNITR           ERASE                                          #  FLAG TO FORCE A GTS PASS SOON AFTER DPS
002385,001913:                                                                                                  #    ENGINE-ON. (LOADED +0)
002386,001914: 
002387,001915:                                                                                                  #  PARAMETERS IN ERASABLE LOAD:
002388,001916: 
002389,001917: E6,1746                        FORCETRM           ERASE                                          #  PLACED IN TRIMCNTR WHEN DPS TURNED ON.
002390,001918: E6,1747                        DRIVELIM           ERASE                                          #  MAX GIMBAL DRIVE TIME SCALED AT 16 SEC.
002391,001919: E6,1750                        DRIVFACQ           ERASE    +2                                    #  RESCALING AND DAMPING FACTORS FOR GIMBAL
002392,001920: E6,1753  E6,1752               DRIVFACR           =        DRIVFACQ   +2                         #    DRIVE TIMES.
002393,001921: E6,1753                        QGIMTIMR           ERASE    +1                                    #  GIMBAL DRIVE TIMERS
002394,001922: E6,1755  E6,1754               RGIMTIMR           =        QGIMTIMR   +1                         
002395,001923: E6,1755                        MAXTIME            ERASE                                          
002396,001924: E6,1756                        /TEMP2/            ERASE                                          
002397,001925: E6,1757                        /TEMP3/            ERASE    +1                                    
002398,001926: E6,1761                        /TEMP5/            ERASE    +1                                    
002399,001927: E6,1763                        TMINAPS            ERASE                                          
002400,001928: E6,1764                        SIMPCNTR           ERASE                                          #  POSITIVE FOR GTS SIMPCTRL, DECISECONDS
002401,001929: E6,1765                        SIMPINIT           ERASE                                          #  INITIALIZES SIMPCNTR.  DECISECONDS
002402,001930: E6,1766                        BIGBOX             ERASE                                          #  USED FOR PASSCTR DURING FORCED SIMPCNTRL
002403,001931: 
002404,001932:                                                                                                  #  **END CODING FOR MODULE 3 REMAKE, AUGUST 1967*****END CODING FOR MODULE 3 REMAKE, AUGUST 1967*******************
002405,001933: 

Page 57

002407,001935:                                                                                                  #  ITEMP AND RUPTREG ASSIGNMENTS IN LM DAP:
002408,001936: 
002409,001937:                                                                                                  #  FOR EIGHTBAL SECTION:
002410,001938: 
002411,001939: E6,1767     0061               AXISCNTR           EQUALS   ITEMP1                                #  LOOPCTR AND VARIABLE INDEXER.
002412,001940: E6,1767     0062               TEMPERR            EQUALS   ITEMP2                                #  TEMPORARY STORAGE FOR BOUNDED ERROR.
002413,001941: 
002414,001942:                                                                                                  #  FOR P-AXIS PROGRAM:
002415,001943: 
002416,001944: E6,1767     0065               REL                EQUALS   ITEMP5                                #  TABLE INDEX USED BY P JET SELECT ROUTINE
002417,001945: E6,1767     0066               CTR                EQUALS   ITEMP6                                #  TABLE ENTRY COUNTER USED BY P JET SELECT
002418,001946: 
002419,001947:                                                                                                  #  FOR POLTYPEP PROGRAM:
002420,001948: 
002421,001949: E6,1767     0070               TRANONLY           EQUALS   RUPTREG1                              #  FLAG FOR PURE TRANSLATION REQUESTS
002422,001950: E6,1767     0071               ANYTRANS           EQUALS   RUPTREG2                              #  FLAG TO INDICATE DIRECTION OF TRAN..
002423,001951: E6,1767     0072               TRANSNOW           EQUALS   RUPTREG3                              #  FLAG TO INDICATE TRANS. W/ ROT. POSSIBLE
002424,001952: E6,1767     0073               TRANSAVE           EQUALS   RUPTREG4                              #  FLAG AND HOLDER FOR SAVED TRANS. POLICY
002425,001953: E6,1767     0061               NETACNDX           EQUALS   ITEMP1                                #  INDEX TO INDICATE AXIS, NO., AND DIRECT.
002426,001954: E6,1767     0062               TJETADR            EQUALS   ITEMP2                                #  GENADR OF RETURN TO TJETLAW
002427,001955: E6,1767     0063               POLRELOC           EQUALS   ITEMP3                                #  POLICY TABLE INDEX (RELATIVE ADDRESS)
002428,001956: E6,1767     0064               LOOPCTR            EQUALS   ITEMP4                                #  NUMBER OF ALTERNATE POLICIES.
002429,001957: E6,1767     0065               THISPOLY           EQUALS   ITEMP5                                #  STORED POLICY TO ELIMINATE INDEXING.
002430,001958: E6,1767     0066               1/NETACC           EQUALS   ITEMP6                                #  INV. NET ACC. FOR TJETLAW.
002431,001959: 
002432,001960: E6,1767     0066               1/NJETAC           =        1/NETACC                              
002433,001961: 
002434,001962: E6,1767  E6,1676               1/2JTSQ            =        1/NET+2Q                              
002435,001963: E6,1767  E6,1702               1/2JTSR            =        1/NET+2R                              
002436,001964: E6,1767  E6,1707               1/2JETSU           =        1/NET+2U                              
002437,001965: E6,1767  E6,1713               1/2JETSV           =        1/NET+2V                              
002438,001966: 
002439,001967: 
002440,001968:                                                                                                  #  FOR AOSTASK PROGRAM:
002441,001969: 
002442,001970: E6,1767     0061               K                  EQUALS   ITEMP1                                
002443,001971: E6,1767     0061               .1-.05K            EQUALS   ITEMP1                                
002444,001972: E6,1767     0062               COEFFA             EQUALS   ITEMP2                                
002445,001973: E6,1767     0062               .5-.5COF           EQUALS   ITEMP2                                
002446,001974: 
002447,001975:                                                                                                  #  MPAC DESIGNATIONS FOR AOSJOB:
002448,001976: 
002449,001977: E6,1767     0144               JOBAXES            EQUALS   MPAC                                  #  ADJACENT ENTRY INDEXER.
002450,001978: E6,1767     0145               NJPLACE            EQUALS   MPAC       +1                         #  ONE APART ENTRY INDEXER.
002451,001979: E6,1767     0146               TABPLACE           EQUALS   MPAC       +2                         #  THREE APART ENTRY INDEXER.
002452,001980: E6,1767     0147               TEMPAOS            EQUALS   MPAC       +3                         #  - AOS TEMPORARY STORAGE (SCALED AT PI/2)
002453,001981: E6,1767     0150               TEMPACC            EQUALS   MPAC       +4                         #  JET ACCELERATION TEMP.  (SCALED AT PI/2)
002454,001982: E6,1767     0151               TEMPNET            EQUALS   MPAC       +5                         #  NET ACCELERATION TEMP.  (SCALED AT PI/2)
002455,001983: E6,1767     0152               ABVLAOSQ           EQUALS   MPAC       +6                         #  -ABVAL(AOSQ) SCALED AT PI/2 RAD/SEC(2).

Page 58

002457,001985: E6,1767     0153               ABVLAOSR           EQUALS   MPAC       +7                         #  -ABVAL(AOSR) SCALED AT PI/2 RAD/SEC(2).

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