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: 

Page 12

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

Page 13

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

Page 14

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

Page 15

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

Page 16

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

Page 17

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

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

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

Page 18

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

Page 19

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

Page 20

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

Page 21

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

Page 22

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

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

000965,000493:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
000966,000494: 

Page 23

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

Page 24

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

Page 25

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

Page 26

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

Page 27

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

Page 28

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

Page 29

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

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

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

Page 30

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

Page 31

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

Page 32

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

Page 33

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

Page 34

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

Page 35

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

Page 36

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

Page 37

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

Page 38

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

Page 39

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

Page 40

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

Page 41

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

Page 42

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

Page 43

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

Page 44

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

Page 45

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

Page 46

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

Page 47

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

Page 48

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

Page 49

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

Page 50

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

Page 51

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

Page 52

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

Page 53

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

Page 54

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

Page 55

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

Page 56

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

Page 57

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

Page 58

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

The next two lines were not present in the original program listing, and provide a workaround for a discrepancy between the modern and original assembler programs.

002460,001988: 30,2000                                           BANK     30                                    
002461,001989: 30,2000                        LOWSUPER           EQUALS                                         
002462,001990: 

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