Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

000429,000002:                                                                                                  ## Copyright:   Public domain.
000430,000003:                                                                                                  ## Filename:    ERASABLE_ASSIGNMENTS.agc
000431,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
000432,000005:                                                                                                  ##              It is part of an early development version of the software
000433,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
000434,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
000435,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
000436,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
000437,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
000438,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
000439,000012:                                                                                                  ##              that the code format has been changed to conform to the
000440,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
000441,000014:                                                                                                  ##              original YUL assembler.
000442,000015:                                                                                                  ## Reference:   pp. 10-52
000443,000016:                                                                                                  ## Assembler:   yaYUL
000444,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
000445,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
000446,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
000447,000020:                                                                                                  ##              2017-05-28 HG   Transcribed
000448,000021:                                                                                                  ##              2017-05-30 HG   Add missing variable RUPTSTOR
000449,000022:                                                                                                  ##              2017-06-08 HG   Fix label NEWTIME -> NEWMTIME
000450,000023:                                                                                                  ##                                        ABDCONV -> ABDVCONV
000451,000024:                                                                                                  ##              2017-06-21 RSB  A few comments corrected using 
000452,000025:                                                                                                  ##                              octopus/ProoferComments.
000453,000026: 

Page 10

000455,000028: 
000456,000029: ???????                        A                  EQUALS   0                                     
000457,000030: ???????                        L                  EQUALS   1                                     #  L AND Q ARE BOTH CHANNELS AND REGISTERS.
000458,000031: ???????                        Q                  EQUALS   2                                     
000459,000032: ???????                        EBANK              EQUALS   3                                     
000460,000033: ???????                        FBANK              EQUALS   4                                     
000461,000034: ???????                        Z                  EQUALS   5                                     #  ADJACENT TO FBANK AND BBANK FOR DXCH Z
000462,000035: ???????                        BBANK              EQUALS   6                                     #  (DTCB) AND DXCH FBANK (DTCF).
000463,000036:                                                                                                  #  REGISTER 7 IS A ZERO-SOURCE. USED BY ZL.
000464,000037: 
000465,000038: ???????                        ARUPT              EQUALS   10                                    #  INTERRUPT STORAGE.
000466,000039: ???????                        LRUPT              EQUALS   11                                    
000467,000040: ???????                        QRUPT              EQUALS   12                                    
000468,000041: ???????                        SAMPTIME           EQUALS   13                                    #  SAMPLED TIME 1 & 2.
000469,000042: ???????                        ZRUPT              EQUALS   15                                    #  (13 AND 14 ARE SPARES.)
000470,000043: ???????                        BANKRUPT           EQUALS   16                                    #  USUALLY HOLDS FBANK OR BBANK.
000471,000044: ???????                        BRUPT              EQUALS   17                                    #  RESUME ADDRESS AS WELL.
000472,000045: 
000473,000046: ???????                        CYR                EQUALS   20                                    
000474,000047: ???????                        SR                 EQUALS   21                                    
000475,000048: ???????                        CYL                EQUALS   22                                    
000476,000049: ???????                        EDOP               EQUALS   23                                    #  EDITS INTERPRETIVE OPERATION CODE PAIRS.
000477,000050: 
000478,000051: ???????                        TIME2              EQUALS   24                                    
000479,000052: ???????                        TIME1              EQUALS   25                                    
000480,000053: ???????                        TIME3              EQUALS   26                                    
000481,000054: ???????                        TIME4              EQUALS   27                                    
000482,000055: ???????                        TIME5              EQUALS   30                                    
000483,000056: ???????                        TIME6              EQUALS   31                                    
000484,000057: ???????                        CDUX               EQUALS   32                                    
000485,000058: ???????                        CDUY               EQUALS   33                                    
000486,000059: ???????                        CDUZ               EQUALS   34                                    
000487,000060: ???????                        OPTY               EQUALS   35                                    
000488,000061: ???????                        OPTX               EQUALS   36                                    
000489,000062: ???????                        PIPAX              EQUALS   37                                    
000490,000063: ???????                        PIPAY              EQUALS   40                                    
000491,000064: ???????                        PIPAZ              EQUALS   41                                    
000492,000065: ???????                        BMAGX              EQUALS   42                                    
000493,000066: ???????                        RHCP               EQUALS   42                                    
000494,000067: ???????                        BMAGY              EQUALS   43                                    
000495,000068: ???????                        RHCY               EQUALS   43                                    
000496,000069: ???????                        BMAGZ              EQUALS   44                                    
000497,000070: ???????                        RHCR               EQUALS   44                                    
000498,000071: ???????                        INLINK             EQUALS   45                                    
000499,000072: ???????                        RNRAD              EQUALS   46                                    
000500,000073: ???????                        GYROCTR            EQUALS   47                                    
000501,000074: ???????                        GYROCMD            EQUALS   47                                    
000502,000075: ???????                        CDUXCMD            EQUALS   50                                    
000503,000076: ???????                        CDUYCMD            EQUALS   51                                    
000504,000077: 
000505,000078: 

Page 11

000507,000080: ???????                        CDUZCMD            EQUALS   52                                    
000508,000081: ???????                        OPTYCMD            EQUALS   53                                    
000509,000082: ???????                        OPTXCMD            EQUALS   54                                    
000510,000083: ???????                        EMSD               EQUALS   55                                    
000511,000084: ???????                        THRUST             EQUALS   55                                    
000512,000085: ???????                        LEMONM             EQUALS   56                                    
000513,000086: ???????                        OUTLINK            EQUALS   57                                    
000514,000087: ???????                        ALTM               EQUALS   60                                    
000515,000088: 
000516,000089:                                                                                                  #  VAC-RELATIVE INTERPRETER ASSIGNMENTS:
000517,000090: 
000518,000091: ???????                        LVSQUARE           EQUALS   34D                                   #  SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
000519,000092: ???????                        LV                 EQUALS   36D                                   #  LENGTH OF VECTOR INPUT TO UNIT.
000520,000093: ???????                        X1                 EQUALS   38D                                   #  INTERPRETIVE SPECIAL REGISTERS RELATIVE
000521,000094: ???????                        X2                 EQUALS   39D                                   #  TO THE WORK AREA.
000522,000095: ???????                        S1                 EQUALS   40D                                   
000523,000096: ???????                        S2                 EQUALS   41D                                   
000524,000097: ???????                        QPRET              EQUALS   42D                                   
000525,000098: 
000526,000099: 

Page 12

000528,000101:                                                                                                  #  GENERAL ERASABLE ASSIGNMENTS.
000529,000102: 
000530,000103:    0061                                           SETLOC   61                                    
000531,000104: 
000532,000105:                                                                                                  #           THE FOLLOWING SET COMPRISES THE INTERRUPT TEMPORARY STORAGE POOL.
000533,000106: 
000534,000107:                                                                                                  #           ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
000535,000108:                                                                                                  #  IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
000536,000109: 
000537,000110:    0061                        ITEMP1             ERASE                                          
000538,000111:    0062     0061               WAITEXIT           EQUALS   ITEMP1                                
000539,000112:    0062     0061               EXECTEM1           EQUALS   ITEMP1                                
000540,000113: 
000541,000114:    0062                        ITEMP2             ERASE                                          
000542,000115:    0063     0062               WAITBANK           EQUALS   ITEMP2                                
000543,000116:    0063     0062               EXECTEM2           EQUALS   ITEMP2                                
000544,000117: 
000545,000118:    0063                        ITEMP3             ERASE                                          
000546,000119:    0064     0063               RUPTSTOR           EQUALS   ITEMP3                                
000547,000120:    0064     0063               WAITADR            EQUALS   ITEMP3                                
000548,000121:    0064     0063               NEWPRIO            EQUALS   ITEMP3                                
000549,000122: 
000550,000123:    0064                        ITEMP4             ERASE                                          
000551,000124:    0065     0064               LOCCTR             EQUALS   ITEMP4                                
000552,000125:    0065     0064               WAITTEMP           EQUALS   ITEMP4                                
000553,000126: 
000554,000127:    0065                        ITEMP5             ERASE                                          
000555,000128:    0066     0065               NEWLOC             EQUALS   ITEMP5                                
000556,000129: 
000557,000130:    0066                        ITEMP6             ERASE                                          
000558,000131:                                                                                                  #  NEWLOC+1      EQUALS  ITEMP6          DP ADDRESS.
000559,000132: 
000560,000133:    0067                                           SETLOC   67                                    #  NEWJOB MUST BE IN LOCATION 67.
000561,000134:    0067                        NEWJOB             ERASE                                          #         ----
000562,000135: 
000563,000136:    0070                        RUPTREG1           ERASE                                          
000564,000137:    0071                        RUPTREG2           ERASE                                          
000565,000138:    0072                        RUPTREG3           ERASE                                          
000566,000139:    0073                        RUPTREG4           ERASE                                          
000567,000140:    0074     0073               KEYTEMP1           EQUALS   RUPTREG4                              
000568,000141:    0074     0073               DSRUPTEM           EQUALS   RUPTREG4                              
000569,000142: 
000570,000143: 

Page 13

000572,000145:                                                                                                  #           FLAG & SWITCH RESERVATIONS.
000573,000146: 
000574,000147:    0074                        STATE              ERASE    +7                                    #  120 SWITCHES
000575,000148: 
000576,000149:    0104     0075               FLAGWRD1           EQUALS   STATE      +1                         
000577,000150:    0104     0076               FLAGWRD2           EQUALS   STATE      +2                         
000578,000151:    0104     0077               DAPBOOLS           EQUALS   STATE      +3                         
000579,000152:    0104     0100               FLAGWRD4           EQUALS   STATE      +4                         
000580,000153: 
000581,000154:                                                                                                  #           INTERPRETIVE SWITCH BIT ASSIGNMENTS:
000582,000155: 
000583,000156:    0104                        WMATFLAG           EQUALS   0                                     
000584,000157:    0104                        JSWITCH            EQUALS   1                                     
000585,000158:    0104                        MIDFLAG            EQUALS   2                                     
000586,000159:    0104                        MOONFLAG           EQUALS   3                                     
000587,000160:    0104                        NBSMBIT            EQUALS   4                                     
000588,000161:    0104                        COAROFIN           EQUALS   5                                     
000589,000162:    0104                        IMUSE              EQUALS   7                                     
000590,000163:    0104                        RRUSE              EQUALS   8D                                    
000591,000164:    0104                        RRNBSW             EQUALS   9D                                    
000592,000165:    0104                        LOKONSW            EQUALS   10D                                   
000593,000166:    0104                        CONVSW             EQUALS   60D                                   
000594,000167:    0104                        DONESW             EQUALS   61D                                   
000595,000168:    0104                        ITERSW             EQUALS   62D                                   
000596,000169:    0104                        GUESSW             EQUALS   63D                                   
000597,000170:    0104                        PIESW              EQUALS   64D                                   
000598,000171:    0104                        MOONSW             EQUALS   65D                                   
000599,000172:    0104  0000101               ESCPSW             EQUALS   MOONSW                                #  INCICATE ELLIPTICAL ORBIT FLAG (=0)
000600,000173:    0104  0000101               SMANGLSW           EQUALS   MOONSW                                #  VARIABLE SCALING SWITCH (=0)
000601,000174: 
000602,000175:                                                                                                  #  NOTE THAT FLAGWRD1 AND FLAGWRD2 CORRESPOND TO INTERPRETIVE SWITCHES 15D THROUGH 44D.  DAPBOOLS AND
000603,000176:                                                                                                  #      FLAGWRD4 CORRESPOND TO INTERPRETIVE SWITCHES 45D THROUGH 74D.
000604,000177: 
000605,000178:                                                                                                  #                                          FLAGWORD USAGE  * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000606,000179: 
000607,000180:                                                                                                  #                                                   BIT    INTPR. SWITCH   USAGE
000608,000181:                                                                                                  #                                                   ---    -------------   -----
000609,000182: 
000610,000183:                                                                                                  #                                          FLAGWRD1  1                 29  AVERAGE G FLAG
000611,000184:                                                                                                  #                                                    2                 28  GUIDANCE REFERENCE RELEASE FLAG
000612,000185:                                                                                                  #                                                  3 - 7          27 - 23  NOT USED AT PRESENT
000613,000186:                                                                                                  #                                                    8                 22  GIMBAL LOCK FLAG
000614,000187:                                                                                                  #                                                  9 - 12         21 - 18  NOT USED AT PRESENT
000615,000188:                                                                                                  #                                                   13                 17  EXCESSIVE TUMBLE FLAG
000616,000189:                                                                                                  #                                                   14                 16  TUMBLE MONITOR FLAG
000617,000190:                                                                                                  #                                                   15                 15  NOT USED AT PRESENT
000618,000191: 
000619,000192:                                                                                                  #                                          FLAGWRD2  1                 44  RCS COLD SOAK INHIBIT FLAG
000620,000193:                                                                                                  #                                                    2                 43  DPS COLD SOAK INHIBIT FLAG
000621,000194: 

Page 14

000623,000196:                                                                                                  #                                                      3                 42  RCS TESTING INHIBIT FLAG
000624,000197:                                                                                                  #                                                      4                 41  NOT USED AT PRESENT
000625,000198:                                                                                                  #                                                      5                 40  TIMERS ENABLED FLAG
000626,000199:                                                                                                  #                                                      6                 39  V33 TERMINATION OF UPDATE PROGRAM FLAG
000627,000200:                                                                                                  #                                                      7                 38  ORBITAL INTEGRATION INTEGRATING FLAG
000628,000201:                                                                                                  #                                                      8                 37  ACS FEED TEST FLAG
000629,000202:                                                                                                  #                                                      9                 36  ABORT COMMAND MONITOR ENABLED FLAG
000630,000203:                                                                                                  #                                                     10                 35  ABORT STAGE FLAG
000631,000204:                                                                                                  #                                                     11                 34  KALCMANU ATTITUDE COMPLETE FLAG
000632,000205:                                                                                                  #                                                     12                 33  NO FINAL YAW
000633,000206:                                                                                                  #                                                     13                 32  UPDATE PROCESS FLAG
000634,000207:                                                                                                  #                                                     14                 31  GIMBAL LOCK FLAG
000635,000208:                                                                                                  #                                                     15                 30  DRIFT FLAG
000636,000209: 
000637,000210:                                                                                                  #                                           DAPBOOLS 1 - 15         45 - 59  DEFINED IN LOG SECTION "DAP INTERFACE
000638,000211:                                                                                                  #                                                                            SUBROUTINES".
000639,000212: 
000640,000213:                                                                                                  #                                           FLAGWRD4 1 - 9          74 - 66  NOT USED AT PRESENT
000641,000214:                                                                                                  #                                                     10                 65  OUTSIDE MOONSPHERE (LOCKED AT 0) FLAG
000642,000215:                                                                                                  #                                                     11                 64  LAMBERT QUADRANT FLAG
000643,000216:                                                                                                  #                                                     12                 63  ITERATOR INITIALIZATION FLAG
000644,000217:                                                                                                  #                                                     13                 62  LAMBERT ITERATOR FLAG
000645,000218:                                                                                                  #                                                     14                 61  LAMBERT ROUTINE COMPLETION FLAG
000646,000219:                                                                                                  #                                                     15                 60  LAMBERT ROUTINE CONVERGENCE FLAG
000647,000220: 

Page 15

000649,000222: 
000650,000223:                                                                                                  #           THE FOLLOWING ARE EXECUTIVE TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOB INQUIRIES.
000651,000224: 
000652,000225:    0104                        INTB15+            ERASE                                          #  REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
000653,000226:    0105     0104               DSEXIT             =        INTB15+                               #  RETURN FOR DSPIN
000654,000227:    0105     0104               EXITEM             =        INTB15+                               #  RETURN FOR SCALE FACTOR ROUTINE SELECT
000655,000228:    0105     0104               BLANKRET           =        INTB15+                               #  RETURN FOR 2BLANK
000656,000229: 
000657,000230:    0105                        INTBIT15           ERASE                                          #  SIMILAR TO ABOVE.
000658,000231:    0106     0105               WRDRET             =        INTBIT15                              #  RETURN FOR 5BLANK
000659,000232:    0106     0105               WDRET              =        INTBIT15                              #  RETURN FOR DSPWD
000660,000233:    0106     0105               DECRET             =        INTBIT15                              #  RETURN FOR PUTCOM(DEC LOAD)
000661,000234:    0106     0105               21/22REG           =        INTBIT15                              #  TEMP FOR CHARIN
000662,000235: 
000663,000236:                                                                                                  #           THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
000664,000237: 
000665,000238:    0106                        ADDRWD             ERASE                                          #  12 BIT INTERPRETIVE OPERAND SUB_ADDRESS.
000666,000239: 
000667,000240:    0107                        POLISH             ERASE                                          #  HOLDS CADR MADE FROM POLISH ADDRESS.
000668,000241:    0110     0107               UPDATRET           =        POLISH                                #  RETURN FOR UPDATNN, UPDATVB
000669,000242:    0110     0107               CHAR               =        POLISH                                #  TEMP FOR CHARIN
000670,000243:    0110     0107               ERCNT              =        POLISH                                #  COUNTER FOR ERROR LIGHT RESET
000671,000244:    0110     0107               DECOUNT            =        POLISH                                #  COUNTER FOR SCALING AND DISPLAY (DEC)
000672,000245:    0110     0107               PWRPTR             =        POLISH                                #  ROOTPSRS PWR TABL POINTER
000673,000246: 
000674,000247:    0110                        FIXLOC             ERASE                                          #  WORK AREA ADDRESS.
000675,000248: 
000676,000249:    0111                        OVFIND             ERASE                                          #  SET NON-ZERO ON OVERFLOW.
000677,000250: 
000678,000251:    0112                        VBUF               ERASE    +5                                    #  TEMPORARY STORAGE USED FOR VECTORS.
000679,000252:    0120     0112               SGNON              =        VBUF                                  #  TEMP FOR +,- ON
000680,000253:    0120     0112               NOUNTEM            =        VBUF                                  #  COUNTER FOR MIXNOUN FETCH
000681,000254:    0120     0112               DISTEM             =        VBUF                                  #  COUNTER FOR OCTAL DISPLAY VERBS
000682,000255:    0120     0112               DECTEM             =        VBUF                                  #  COUNTER FOR FETCH (DEC DISPLAY VERBS)
000683,000256: 
000684,000257:    0120     0113               SGNOFF             =        VBUF       +1                         #  TEMP FOR +,- ON
000685,000258:    0120     0113               NVTEMP             =        VBUF       +1                         #  TEMP FOR NVSUB
000686,000259:    0120     0113               SFTEMP1            =        VBUF       +1                         #  STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
000687,000260: 
000688,000261:    0120     0114               CODE               =        VBUF       +2                         #  FOR DSPIN
000689,000262:    0120     0114               SFTEMP2            =        VBUF       +2                         #  STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
000690,000263:    0120     0114               DXCRIT             =        VBUF       +2                         #  ROOTPSRS CRITERION FOR ENDING ITERS HI
000691,000264: 
000692,000265:    0120     0115               MIXTEMP            =        VBUF       +3                         #  FOR MIXNOUN DATA
000693,000266:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
000694,000267:    0120     0115               SIGNRET            =        VBUF       +3                         #  RETURN FOR +,- ON
000695,000268:    0120     0115               DXCRIT+1           =        VBUF       +3                         #  ROOTPSRS CRITERION FOR ENDING ITERS LO
000696,000269: 
000697,000270:    0120     0116               ROOTPS             =        VBUF       +4                         #  ROOTPSRS ROOT HI ORDER
000698,000271: 
000699,000272:    0120     0117               ROOTPS+1           =        VBUF       +5                         #  ROOTPSRS ROOT LO ORDER
000700,000273: 

Page 16

000702,000275:    0120                        BUF                ERASE    +2                                    #  TEMPORARY SCALAR STORAGE.
000703,000276:    0123     0120               INDEXLOC           EQUALS   BUF                                   #  CONTAINS ADDRESS OF SPECIFIED INDEX.
000704,000277:    0123     0120               SWWORD             EQUALS   BUF                                   #  ADDRESS OF SWITCH WORD.
000705,000278: 
000706,000279:    0123     0121               SWBIT              EQUALS   BUF        +1                         #  SWITCH BIT WITHIN SWITCH WORD.
000707,000280: 
000708,000281:    0123     0122               RETROOT            =        BUF        +2                         #  ROOTPSRS RETURN ADDRESS OF USER
000709,000282: 
000710,000283:    0123                        BUF2               ERASE    +1                                    
000711,000284: 
000712,000285:    0125                        MPTEMP             ERASE                                          #  TEMPORARY USED IN MULTIPLY AND SHIFT
000713,000286:    0126     0125               DMPNTEMP           =        MPTEMP                                #  DMPNSUB TEMPORARY
000714,000287: 
000715,000288:    0126                        DOTINC             ERASE                                          #  COMPONENT INCREMENT FOR DOT SUBROUTINE.
000716,000289:    0127     0126               DVSIGN             EQUALS   DOTINC                                #  DETERMINES SIGN OF DDV RESULT.
000717,000290:    0127     0126               ESCAPE             EQUALS   DOTINC                                #  USED IN ARCSIN/ARCCOS.
000718,000291:    0127     0126               ENTRET             =        DOTINC                                #  EXIT FROM ENTER
000719,000292: 
000720,000293:    0127                        DOTRET             ERASE                                          #  RETURN FROM DOT SUBROUTINE.
000721,000294:    0130     0127               DVNORMCT           EQUALS   DOTRET                                #  DIVIDEND NORMALIZATION COUNT IN DDV.
000722,000295:    0130     0127               ESCAPE2            EQUALS   DOTRET                                #  ALTERNATE ARCSIN/ARCCOS SWITCH.
000723,000296:    0130     0127               WDCNT              =        DOTRET                                #  CHAR COUNTER FOR DSPWD
000724,000297:    0130     0127               INREL              =        DOTRET                                #  INPUT BUFFER SELECTOR ( X,Y,Z, REG )
000725,000298: 
000726,000299:    0130                        MATINC             ERASE                                          #  VECTOR INCREMENT IN MXV AND VXM.
000727,000300:    0131     0130               MAXDVSW            EQUALS   MATINC                                #  +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
000728,000301:    0131     0130               POLYCNT            EQUALS   MATINC                                #  POLYNOMIAL LOOP COUNTER
000729,000302:    0131     0130               DSPMMTEM           =        MATINC                                #  DSPCOUNT SAVE FOR DSPMM
000730,000303:    0131     0130               MIXBR              =        MATINC                                #  INDICATOR FOR MIXED OR NORMAL NOUN
000731,000304:    0131     0130               PWRCNT             =        MATINC                                #  ROOTPSRS DER TABL LOOP COUNTER
000732,000305: 
000733,000306:    0131                        TEM1               ERASE                                          #  EXEC TEMP
000734,000307:    0132     0131               POLYRET            =        TEM1                                  
000735,000308:    0132     0131               DSREL              =        TEM1                                  #  REL ADDRESS FOR DSPIN
000736,000309:    0132     0131               DERPTR             =        TEM1                                  #  ROOTPSRS DER TABL POINTER
000737,000310: 
000738,000311:                                                                                                  #           THE FOLLOWING 10 REGISTERS ARE USED FOR TEMPORARY STORAGE OF THE DERIVATIVE COEFFICIENT TABLE OF
000739,000312:                                                                                                  #  SUBROUTINE ROOTPSRS.  THEY MUST REMAIN WITHOUT INTERFERENCE WITH ITS SUBROUTINES WHICH ARE POWRSERS (POLY),
000740,000313:                                                                                                  #  DMPSUB, DMPNSUB, SHORTMP, DDV/BDDV, ABS, AND USPRCADR.
000741,000314: 
000742,000315:    0132                        TEM2               ERASE                                          #  EXEC TEMP
000743,000316:    0133     0132               DSMAG              =        TEM2                                  #  MAGNITUDE STORE FOR DSPIN
000744,000317:    0133     0132               IDADDTEM           =        TEM2                                  #  MIXNOUN INDIRECT ADDRESS STORAGE
000745,000318:    0133     0132               DERCOF-8           =        MPAC       -12                        #  ROOTPSRS DER COF N-4 HI ORDER
000746,000319: 
000747,000320:    0133                        TEM3               ERASE                                          #  EXEC TEMP
000748,000321:    0134     0133               COUNT              =        TEM3                                  #  FOR DSPIN
000749,000322:    0134     0133               DERCOF-7           =        MPAC       -11                        #  ROOTPSRS DER COF N-4 LO ORDER
000750,000323: 
000751,000324:    0134                        TEM4               ERASE                                          #  EXEC TEMP
000752,000325: 

Page 17

000754,000327:    0135     0134               LSTPTR             =        TEM4                                  #  LIST POINTER FOR GRABUSY
000755,000328:    0135     0134               RELRET             =        TEM4                                  #  RETURN FOR RELDSP
000756,000329:    0135     0134               FREERET            =        TEM4                                  #  RETURN FOR FREEDSP
000757,000330:    0135     0134               DERCOF-6           =        MPAC       -10                        #  ROOTPSRS DER COF N-3 HI ORDER
000758,000331: 
000759,000332:    0135                        TEM5               ERASE                                          #  EXEC TEMP
000760,000333:    0136     0135               NOUNADD            =        TEM5                                  #  TEMP STORAGE FOR NOUN ADDRESS
000761,000334:    0136     0135               DERCOF-5           =        MPAC       -7                         #  ROOTPSRS DER COF N-3 LO ORDER
000762,000335: 
000763,000336:    0136                        NNADTEM            ERASE                                          #  TEMP FOR NOUN ADDRESS TABLE ENTRY
000764,000337:    0137     0136               DERCOF-4           =        MPAC       -6                         #  ROOTPSRS DER COF N-2 HI ORDER
000765,000338: 
000766,000339:    0137                        NNTYPTEM           ERASE                                          #  TEMP FOR NOUN TYPE TABLE ENTRY
000767,000340:    0140     0137               DERCOF-3           =        MPAC       -5                         #  ROOTPSRS DER COF N-2 LO ORDER
000768,000341: 
000769,000342:    0140                        IDAD1TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000770,000343:                                                                                                  #  MUST = IDAD2TEM-1, = IDAD3TEM-2.
000771,000344:    0141     0140               DERCOF-2           =        MPAC       -4                         #  ROOTPSRS DER COF N-1 HI ORDER
000772,000345: 
000773,000346:    0141                        IDAD2TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000774,000347:                                                                                                  #  MUST = IDAD1TEM+1, = IDAD3TEM-1.
000775,000348:    0142     0141               DERCOF-1           =        MPAC       -3                         #  ROOTPSRS DER COF N-1 LO ORDER
000776,000349: 
000777,000350:    0142                        IDAD3TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000778,000351:                                                                                                  #  MUST = IDAD1TEM+2, = IDAD2TEM+1.
000779,000352:    0143     0142               DERCOFN            =        MPAC       -2                         #  ROOTPSRS DER COF N   HI ORDER
000780,000353: 
000781,000354:    0143                        RUTMXTEM           ERASE                                          #  TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
000782,000355:    0144     0143               DERCOF+1           =        MPAC       -1                         #  ROOTPSRS DER COF N   LO ORDER
000783,000356: 
000784,000357:                                                                                                  #           STORAGE USED BY THE EXECUTIVE.
000785,000358: 
000786,000359:    0144                        MPAC               ERASE    +6                                    #  MULTI-PURPOSE ACCUMULATOR.
000787,000360:    0153                        MODE               ERASE                                          #  +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
000788,000361:    0154                        LOC                ERASE                                          #  LOCATION ASSOCIATED WITH JOB.
000789,000362:    0155                        BANKSET            ERASE                                          #  USUALLY CONTAINS BBANK SETTING.
000790,000363:    0156                        PUSHLOC            ERASE                                          #  WORD OF PACKED INTERPRETIVE PARAMETERS.
000791,000364:    0157                        PRIORITY           ERASE                                          #  PRIORITY OF PRESENT JOB AND WORK AREA.
000792,000365: 
000793,000366:    0160                                           ERASE    +71D                                  #  SEVEN SETS OF 12 REGISTERS EACH.
000794,000367: 

Page 18

000796,000369:                                                                                                  #  THE FOLLOWING REGISTERS ARE RESERVED FOR PINBALL
000797,000370: 
000798,000371: 
000799,000372: 
000800,000373:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
000801,000374: 
000802,000375:    0270                        DSPCOUNT           ERASE                                          #  DISPLAY POSITION INDICATOR
000803,000376:    0271                        DECBRNCH           ERASE                                          #  +DEC, -DEC, OCT INDICATOR
000804,000377:    0272                        VERBREG            ERASE                                          #  VERB CODE
000805,000378:    0273                        NOUNREG            ERASE                                          #  NOUN CODE
000806,000379:    0274                        XREG               ERASE                                          #  R1 INPUT BUFFER
000807,000380:    0275                        YREG               ERASE                                          #  R2 INPUT BUFFER
000808,000381:    0276                        ZREG               ERASE                                          #  R3 INPUT BUFFER
000809,000382:    0277                        XREGLP             ERASE                                          #  LO PART OF XREG (FOR DEC CONV ONLY)
000810,000383:    0300                        YREGLP             ERASE                                          #  LO PART OF YREG (FOR DEC CONV ONLY)
000811,000384:    0301                        ZREGLP             ERASE                                          #  LO PART OF ZREG (FOR DEC CONV ONLY)
000812,000385:    0302                        MODREG             ERASE                                          #  MODE CODE
000813,000386:    0303                        DSPLOCK            ERASE                                          #  KEYBOARD/SUBROUTINE CALL INTERLOCK
000814,000387:    0304                        REQRET             ERASE                                          #  RETURN REGISTER FOR LOAD
000815,000388:    0305                        LOADSTAT           ERASE                                          #  STATUS INDICATOR FOR LOADTST
000816,000389:    0306                        CLPASS             ERASE                                          #  PASS INDICATOR CLEAR
000817,000390:    0307                        NOUT               ERASE                                          #  ACTIVITY COUNTER FOR DSPTAB
000818,000391:    0310                        NOUNCADR           ERASE                                          #  MACHINE CADR FOR NOUN
000819,000392:    0311                        MONSAVE            ERASE                                          #  N/V CODE FOR MONITOR. (= MONSAVE1-1)
000820,000393:    0312                        MONSAVE1           ERASE                                          #  NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
000821,000394:    0313                        DSPTAB             ERASE    +11D                                  #  0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
000822,000395:    0327                        CADRSTOR           ERASE                                          #  ENDIDLE STORAGE
000823,000396:    0330                        GRABLOCK           ERASE                                          #  INTERNAL INTERLOCK FOR DISPLAY SYSTEM
000824,000397:    0331                        NVQTEM             ERASE                                          #  NVSUB STORAGE FOR CALLING ADDRESS
000825,000398:                                                                                                  #  MUST = NVBNKTEM-1
000826,000399:    0332                        NVBNKTEM           ERASE                                          #  NVSUB STORAGE FOR CALLING BANK
000827,000400:                                                                                                  #  MUST = NVQTEM+1
000828,000401:    0333                        DSPLIST            ERASE    +2                                    #  WAITING LIST FOR DSP SYST INTERNAL USE
000829,000402:    0336                        EXTVBACT           ERASE                                          #  EXTENDED VERB ACTIVITY INTERLOCK
000830,000403:    0337                        DSPTEM1            ERASE    +2                                    #  BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
000831,000404:    0342                        DSPTEM2            ERASE    +2                                    #  BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
000832,000405:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
000833,000406: 
000834,000407: 
000835,000408: 
000836,000409:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
000837,000410: 
000838,000411:    0345                        DSPCNT             ERASE                                          #  COUNTER FOR DSPOUT
000839,000412:                                                                                                  #  RECEPTION OF A BAD MESSAGE IN UPLINK)

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

000841,000414:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
000842,000415: 

Page 19

000844,000417:                                                                                                  #  ASSIGNMENTS FOR T4RUPT PROGRAM
000845,000418: 
000846,000419:    0346                        T4LOC              ERASE                                          
000847,000420:    0347                        DSRUPTSW           ERASE                                          
000848,000421:    0350                        DIDFLG             ERASE                                          
000849,000422:    0351                        ALT                ERASE    +1                                    
000850,000423:    0353                        ALTRATE            ERASE                                          
000851,000424:    0354                        FINALT             ERASE    +1                                    #  (MAY NOT BE REQUIRED FOR FLIGHTS).
000852,000425:    0356                        LGYRO              ERASE                                          
000853,000426:    0357                        FORVEL             ERASE                                          
000854,000427:    0360                        LATVEL             ERASE                                          
000855,000428:    0361                        LASTYCMD           ERASE                                          
000856,000429:    0362                        LASTXCMD           ERASE                                          
000857,000430: 
000858,000431:    0363                        ALTSAVE            ERASE    +1                                    
000859,000432:                                                                                                  #  END OF T4RUPT ASSIGNMENTS
000860,000433: 
000861,000434: 
000862,000435: 
000863,000436:    0365                        IMODES30           ERASE                                          
000864,000437:    0366                        IMODES33           ERASE                                          
000865,000438:    0367                        MODECADR           ERASE    +3                                    
000866,000439:    0373     0367               IMUCADR            EQUALS   MODECADR                              
000867,000440:    0373     0370               AOTCADR            EQUALS   MODECADR   +1                         
000868,000441:    0373     0370               OPTCADR            EQUALS   AOTCADR                               
000869,000442:    0373     0371               RADCADR            EQUALS   MODECADR   +2                         
000870,000443:    0373     0372               ATTCADR            EQUALS   MODECADR   +3                         
000871,000444: 
000872,000445:    0373                        MARKSTAT           ERASE                                          
000873,000446:    0374                        XYMARK             ERASE                                          
000874,000447:    0375                        FLUSHREG           ERASE    +1                                    #  ***TEMPORARY FOR SPECIAL FAKESTRT ENEMA
000875,000448:    0400                                           SETLOC   400                                   
000876,000449: 

Page 20

000878,000451:                                                                                                  #  TEMPORARY PHONY ASSIGNMENTS TO KEEP PINBALL FROM HAVING BAD ASSEMBLIES
000879,000452: 
000880,000453:    0400                        THETAD             ERASE    +2                                    
000881,000454:    0403                        DELVX              ERASE    +5                                    
000882,000455:                                                                                                  #  END OF PHONY ASSIGNMENTS
000883,000456: 
000884,000457: 
000885,000458:                                                                                                  #           DOWNLINK LIST ADDRESS.
000886,000459:    0411                        DNLSTADR           ERASE                                          
000887,000460: 
000888,000461:                                                                                                  #  AGS DUMMY ID WORD
000889,000462:    0412                        AGSWORD            ERASE                                          
000890,000463:                                                                                                  #  RADAR ERASABLE
000891,000464: 
000892,000465:    0413                        RADMODES           ERASE                                          
000893,000466:    0414                        SAMPLIM            ERASE                                          
000894,000467:    0415                        SAMPLSUM           ERASE    +1                                    
000895,000468:    0417     0415               SAMPSUM            EQUALS   SAMPLSUM                              
000896,000469:    0417                        OPTYHOLD           ERASE    +1                                    
000897,000470:    0421                        TIMEHOLD           ERASE    +1                                    
000898,000471:    0423     0415               RRTARGET           EQUALS   SAMPLSUM                              #  HALF UNIT VECTOR IN SM OR NB AXES.
000899,000472:    0423                        TANG               ERASE    +1                                    #  DESIRED TRUNNION AND SHAFT ANGLES.
000900,000473:    0425     0423               MODEA              EQUALS   TANG                                  
000901,000474:    0425                        MODEB              ERASE    +1                                    #  DODES CLOBBERS TANG +2.
000902,000475:    0427     0425               NSAMP              EQUALS   MODEB                                 
000903,000476:    0427                        DESRET             ERASE                                          
000904,000477:    0430     0427               OLDATAGD           EQUALS   DESRET                                #  USED IN DATA READING ROUTINES.
000905,000478:    0430                        DESCOUNT           ERASE                                          
000906,000479:                                                                                                  #  END OF RADAR ERASABLE ASSIGNMENTS
000907,000480: 
000908,000481:    0431                        VAC1USE            ERASE                                          
000909,000482:    0432                        VAC1               ERASE    +42D                                  
000910,000483:    0505                        VAC2USE            ERASE                                          
000911,000484:    0506                        VAC2               ERASE    +42D                                  
000912,000485:    0561                        VAC3USE            ERASE                                          
000913,000486:    0562                        VAC3               ERASE    +42D                                  
000914,000487:    0635                        VAC4USE            ERASE                                          
000915,000488:    0636                        VAC4               ERASE    +42D                                  
000916,000489:    0711                        VAC5USE            ERASE                                          
000917,000490:    0712                        VAC5               ERASE    +42D                                  
000918,000491: 
000919,000492:    0765                        PHASENUM           ERASE                                          
000920,000493: 
000921,000494:                                                                                                  #  KALCMANU-DAP INTERFACE:
000922,000495: 
000923,000496:    0766                        CDUXD              ERASE    +2                                    #  CDU DESIRED REGISTERS:
000924,000497:    0771     0767               CDUYD              EQUALS   CDUXD      +1                         #  SCALED AT PI RADIANS (180 DEGREES)
000925,000498:    0771     0770               CDUZD              EQUALS   CDUXD      +2                         #  (STORED IN 2' COMPLEMENT)
000926,000499: 

Page 21

000928,000501: 
000929,000502:    0771                        DELCDUX            ERASE    +2                                    #  NEGATIVE OF DESIRED 100MS CDU INCREMENT:
000930,000503:    0774     0772               DELCDUY            EQUALS   DELCDUX    +1                         #  SCALED AT PI RADIANS (180 DEGREES)
000931,000504:    0774     0773               DELCDUZ            EQUALS   DELCDUX    +2                         #  (STORED IN 2' COMPLEMENT)
000932,000505: 
000933,000506:    0774                        OMEGAPD            ERASE    +2                                    #  ATTITUDE MANEUVER DESIRED RATES
000934,000507:    0777     0775               OMEGAQD            EQUALS   OMEGAPD    +1                         #  (NOT EXPLICITLY REFERENCED IN GTS CNTRL)
000935,000508:    0777     0776               OMEGARD            EQUALS   OMEGAPD    +2                         #  SCALED AT PI/4 RADIANS/SECOND
000936,000509: 
000937,000510:    1000                                           SETLOC   1000                                  
000938,000511:    1000                        T5ADR              ERASE    +1                                    #  GENADR OF NEXT LM DAP T5RUPT. * 2CADR *
000939,000512:                                                                                                  #  BBCON  OF NXT LM DAP T5RUPT. * 2CADR *
000940,000513: 
000941,000514:    1002                        T6NEXT             ERASE    +1                                    #  LIST OF TIME6 DT-S FOR JET LIST PROGRAM
000942,000515: 
000943,000516:    1004                        T6NEXTJT           ERASE    +2                                    #  LIST OF JET POLICIES FOR JTLST PROGRAM
000944,000517: 
000945,000518:    1007                        DELAYCTR           ERASE                                          #  COUNTER FOR MINIMUM IMPULSE USE OF RHC
000946,000519: 

Page 22

000948,000521:                                                                                                  #  ERASABLE ASSIGNMENTS FOR AVERAGE G INTEGRATOR:
000949,000522: 
000950,000523:    1010                        RN                 ERASE    +5                                    
000951,000524:    1016                        VN                 ERASE    +5                                    
000952,000525:    1024                        GDT/2              ERASE    +5                                    
000953,000526:    1032                        UNITR              ERASE    +5                                    
000954,000527:    1040                        UNITW              ERASE    +5                                    
000955,000528:    1046                        RMAG               ERASE    +1                                    
000956,000529: 
000957,000530:    1050     0403               DELV               EQUALS   DELVX                                 
000958,000531:    1050                        RN1                ERASE    +5                                    
000959,000532:    1056                        VN1                ERASE    +5                                    
000960,000533:    1064                        GDT1/2             ERASE    +5                                    
000961,000534:    1072                        AVGEXIT            ERASE    +1                                    
000962,000535:    1074                        AVGOUTF            ERASE    +1                                    
000963,000536:    1076     1074               DVMNEXIT           =        AVGOUTF                               
000964,000537:                                                                                                  #  WAITLIST REPEAT FLAG:
000965,000538: 
000966,000539:    1076                        RUPTAGN            ERASE                                          
000967,000540:    1077     1076               KEYTEMP2           =        RUPTAGN                               #  TEMP FOR KEYRUPT, UPRUPT
000968,000541: 
000969,000542:                                                                                                  #  PHASE TABLE AND RESTART COUNTER.
000970,000543: 

Page 23

000972,000545:                                                                                                  #  THE FOLLOWING ARE TO LOCATED IN UNSWITCHED ERRASSIBLE
000973,000546: 
000974,000547:                                                                                                  #  TBASE(I) ARE USED IN WAITLIST RESTARTS
000975,000548:                                                                                                  #  PHSPRDT(I) ARE USED TO STORE EITHER PRIORITY OR DELTA TIME FOR VARIABLE RESTARTS
000976,000549:                                                                                                  #  PHASE(I) AND -PHASE(I) ARE USED TO STORE THE PHASE INFORMATION AND PHASE INFORMATION COMPLEMENTED FOR EACH OF TH
000977,000550:                                                                                                  #  GROUPS
000978,000551: 
000979,000552:    1077                        -PHASE1            ERASE                                          
000980,000553:    1100                        PHASE1             ERASE                                          
000981,000554:    1101                        -PHASE2            ERASE                                          
000982,000555:    1102                        PHASE2             ERASE                                          
000983,000556:    1103                        -PHASE3            ERASE                                          
000984,000557:    1104                        PHASE3             ERASE                                          
000985,000558:    1105                        -PHASE4            ERASE                                          
000986,000559:    1106                        PHASE4             ERASE                                          
000987,000560:    1107                        -PHASE5            ERASE                                          
000988,000561:    1110                        PHASE5             ERASE                                          
000989,000562:    1111                        -PHASE6            ERASE                                          
000990,000563:    1112                        PHASE6             ERASE                                          
000991,000564: 
000992,000565:    1113                        TBASE1             ERASE                                          
000993,000566:    1114                        PHSPRDT1           ERASE                                          
000994,000567:    1115                        TBASE2             ERASE                                          
000995,000568:    1116                        PHSPRDT2           ERASE                                          
000996,000569:    1117                        TBASE3             ERASE                                          
000997,000570:    1120                        PHSPRDT3           ERASE                                          
000998,000571:    1121                        TBASE4             ERASE                                          
000999,000572:    1122                        PHSPRDT4           ERASE                                          
001000,000573:    1123                        TBASE5             ERASE                                          
001001,000574:    1124                        PHSPRDT5           ERASE                                          
001002,000575:    1125                        TBASE6             ERASE                                          
001003,000576:    1126                        PHSPRDT6           ERASE                                          
001004,000577: 
001005,000578:                                                                                                  #  ERASABLE FOR SINGLE PRECISION SUBROUTINES.
001006,000579: 
001007,000580:    1127                        HALFY              ERASE                                          
001008,000581:    1130                        ROOTRET            ERASE                                          
001009,000582:    1131                        SQRARG             ERASE                                          
001010,000583: 
001011,000584:    1132     1127               TEMK               EQUALS   HALFY                                 
001012,000585:    1132     1130               SQ                 EQUALS   ROOTRET                               
001013,000586: 
001014,000587:                                                                                                  #           ERASABLE ASSIGNMETNS FOR LMP ROUTINES
001015,000588: 
001016,000589:    1132                        LMPCMD             ERASE    +7                                    #  CIRCULAR BUFFER OF LAST 8 COMMANDS.
001017,000590:    1142                        LMPIN              ERASE                                          #  POINTS TO NEXT AVAILABLE INPUT SLOT.
001018,000591:    1143                        LMPOUT             ERASE                                          #  POINTS TO NEXT OUTPUT LOCATION IN BUFFER
001019,000592:    1144                        LMPOUTT            ERASE                                          #  INTERRIM STORAGE FOR THE ABOVE.
001020,000593:    1145                        LMPRET             ERASE                                          #  2CADR RETURN ADDRESS FOR SUBROUTINES.
001021,000594:    1146                        LMPBBANK           ERASE                                          
001022,000595:    1147                        SAVDT              ERASE                                          
001023,000596: 

Page 24

001025,000598:    1150                        LONGCADR           ERASE    +1                                    #  UNSWITCHED ERASABLE FOR LONGCALC
001026,000599:    1152                        LONGTIME           ERASE    +1                                    
001027,000600: 
001028,000601:    1154                        CMEMORY            ERASE    +10D                                  
001029,000602: 
001030,000603:    1167     1154               TEMX               EQUALS   CMEMORY                               
001031,000604:    1167     1155               TEMY               EQUALS   CMEMORY    +1D                        
001032,000605:    1167     1156               TEMZ               EQUALS   CMEMORY    +2D                        
001033,000606:    1167     1157               TEMXY              EQUALS   CMEMORY    +3D                        
001034,000607:    1167     1160               PIPAGE             EQUALS   CMEMORY    +4D                        
001035,000608: 
001036,000609: 
001037,000610:    1167     1154               TEMTPREL           EQUALS   TEMX                                  #  DP TEMP FOR GYROCOMP TERMINATE TIME. MP2
001038,000611: 
001039,000612:    1167     1163               1/PIPADT           EQUALS   CMEMORY    +7D                        
001040,000613:    1167     1163               OLDBT1             EQUALS   1/PIPADT                              
001041,000614:                                                                                                  #  SERVICER RESTARTS
001042,000615: 
001043,000616:    1167     1161               STORASE            EQUALS   CMEMORY    +5D                        
001044,000617:    1167     1162               RTSPLOSH           EQUALS   CMEMORY    +6D                        
001045,000618:                                                                                                  #    STORAGE FOR FOR MISSION TIMER/PHASE REGISTER PAIRS.
001046,000619: 
001047,000620:    1167                        MTIMER4            ERASE                                          
001048,000621:    1170                        MTIMER3            ERASE                                          
001049,000622:    1171                        MTIMER2            ERASE                                          
001050,000623:    1172                        MTIMER1            ERASE                                          
001051,000624:    1173                        MPHASE4            ERASE                                          
001052,000625:    1174                        MPHASE3            ERASE                                          
001053,000626:    1175                        MPHASE2            ERASE                                          
001054,000627:    1176                        MPHASE1            ERASE                                          
001055,000628:    1177                        MTIMER4T           ERASE    +3                                    #  RESTART STORAGE AREAS FOR THE ABOVE.
001056,000629:    1203                        MPHASE4T           ERASE    +3                                    
001057,000630:    1207                        MDUETEMP           ERASE                                          
001058,000631:    1210                        NEWMTIME           ERASE                                          #  T1 AT MAINTENANCE TASK AFTER NEXT.
001059,000632:    1211                        NEWTIMET           ERASE                                          #  RESTART STORAGE FOR THE ABOVE.
001060,000633:    1212                        MINH               ERASE                                          
001061,000634:    1213                        STATECTR           ERASE                                          #  TIMER FOR INTERNAL STATE VECTOR UPDATES.
001062,000635: 
001063,000636:    1214                        UPPHASE            ERASE                                          #  NEW PHASE AS SENT UP THE UPLINK.
001064,000637:    1215                        UPDT               ERASE                                          #  NEW DT AS SENT UP THE UPLINK.
001065,000638:    1216                        UPINDEX            ERASE                                          #  INDEX OF TIMER MODIFIED BY UPLINK.
001066,000639:    1217                        UPGET              ERASE    +1                                    #  GET FOR UPLINK REQUEST.
001067,000640: 
001068,000641:    1221                        MRETURN            ERASE                                          #  RETURN REGISTER.
001069,000642: 
001070,000643:                                                                                                  #  PMEMORY ASSIGNMENTS
001071,000644: 
001072,000645:    1222                        PMEMORY            ERASE    +89D                                  
001073,000646:    1354     1222               REFRRECT           EQUALS   PMEMORY    +00D                       #  STATE VECTORS FOR ORBITAL INTEGRATION
001074,000647: 

Page 25

001076,000649:    1354     1230               REFVRECT           EQUALS   PMEMORY    +06D                       
001077,000650:    1354     1236               DELTAV             EQUALS   PMEMORY    +12D                       #  STATE DEVIATIONS
001078,000651: 
001079,000652:    1354     1244               NUV                EQUALS   PMEMORY    +18D                       
001080,000653:    1354     1252               REFRCV             EQUALS   PMEMORY    +24D                       
001081,000654:    1354     1260               REFVCV             EQUALS   PMEMORY    +30D                       
001082,000655:    1354     1266               REFTC              =        REFTCV                                
001083,000656:    1354     1266               REFTCV             EQUALS   PMEMORY    +36D                       
001084,000657:    1354     1270               TE                 EQUALS   PMEMORY    +38D                       #  TET,TIME CORRESPONDING TO LEM STATE
001085,000658:    1354     1272               REFXKEP            EQUALS   PMEMORY    +40D                       #  ROOT TO KEPLER EQUATIONS
001086,000659:    1354     1274               REFSMMAT           EQUALS   PMEMORY    +42D                       #  TRANSFORMATION MATRIX BETWEEN SM AND REF
001087,000660:    1354     1316               PIPRETRN           EQUALS   PMEMORY    +60D                       
001088,000661:    1354     1320               PIPTIME            EQUALS   PMEMORY    +62D                       
001089,000662:    1354     1322               DVSELECT           EQUALS   PMEMORY    +64D                       
001090,000663:    1354     1332               MASS               EQUALS   PMEMORY    +72D                       
001091,000664:    1354     1342               CDUTEMP            EQUALS   PMEMORY    +80D                       #  VECTOR USED IN FINDCDUD
001092,000665: 
001093,000666:    1354     1334               /ACF/              EQUALS   PMEMORY    +74D                       
001094,000667:    1354     1336               /AF/               EQUALS   PMEMORY    +76D                       
001095,000668:    1354     1335               PCNTF              EQUALS   PMEMORY    +75D                       
001096,000669:    1354     1340               STATIME            EQUALS   PMEMORY    +78D                       #  DP DOWNLINK TIME-DONT VIOLATE THESE REGS
001097,000670:    1354     1342               ALMCADR            EQUALS   PMEMORY    +80D                       #  DP
001098,000671:                                                                                                  #  ASSIGNMENTS RESERVED EXCLUSIVELY FOR SELF-CHECK
001099,000672:    1354                        SELFERAS           ERASE    1355       -          1377            
001100,000673: 
001101,000674:    1354                        ERESTORE           =        1355                                  
001102,000675:    1354                        SELFRET            =        1356                                  
001103,000676:    1354                        SMODE              =        1357                                  
001104,000677:    1354                        REDOCTR            =        1360                                  #  KEEPS TRACK OF RESTARTS
001105,000678:    1354                        SFAIL              =        1361                                  #  SFAIL,ERCOUNT,FAILREG(S) USED BY NOUN 31
001106,000679:    1354                        ERCOUNT            =        1362                                  #                         FOR ALARMS.
001107,000680:    1354                        FAILREG            =        1363                                  #  FAILREG,+1,+2 USED BY NOUN 50 FOR ALARMS
001108,000681:    1354                        SCOUNT             =        1366                                  
001109,000682:    1354                        SKEEP1             =        1371                                  
001110,000683:    1354                        SKEEP2             =        1372                                  
001111,000684:    1354                        SKEEP3             =        1373                                  
001112,000685:    1354                        SKEEP4             =        1374                                  
001113,000686:    1354                        SKEEP5             =        1375                                  
001114,000687:    1354                        SKEEP6             =        1376                                  
001115,000688:    1354                        SKEEP7             =        1377                                  
001116,000689: 
001117,000690:                                                                                                  #  WAITLIST TASK LISTS
001118,000691: 
001119,000692: E3,1400                                           SETLOC   1400                                  
001120,000693: 
001121,000694: E3,1400                        LST1               ERASE    +7                                    #  DELTA T'S.
001122,000695: E3,1410                        LST2               ERASE    +17D                                  #  2CADR TASK ADDRESSES.
001123,000696: 
001124,000697: E3,1432                        LONGBASE           ERASE    +1                                    #  ERASABLE FOR LONGCALL
001125,000698: E3,1434                        LONGEXIT           ERASE    +1                                    
001126,000699: 

Page 26

001128,000701:                                                                                                  #           IMU COMPENSATION PARAMETERS:
001129,000702: 
001130,000703: E3,1436                        PBIASX             ERASE                                          #  PIPA BIAS AND PIPA SCALE FACTOR TERMS
001131,000704: E3,1437  E3,1436               PIPABIAS           =        PBIASX                                #      INTERMIXED.
001132,000705: E3,1437                        PIPASCFX           ERASE                                          
001133,000706: E3,1440  E3,1437               PIPASCF            =        PIPASCFX                              
001134,000707: E3,1440                        PBIASY             ERASE                                          
001135,000708: E3,1441                        PIPASCFY           ERASE                                          
001136,000709: 
001137,000710: E3,1442                        PBIASZ             ERASE                                          
001138,000711: E3,1443                        PIPASCFZ           ERASE                                          
001139,000712: 
001140,000713: E3,1444                        NBDX               ERASE                                          #  GYRO BIAS DRIFTS
001141,000714: E3,1445  E3,1444               GBIASX             =        NBDX                                  
001142,000715: E3,1445                        NBDY               ERASE                                          
001143,000716: E3,1446                        NBDZ               ERASE                                          
001144,000717: 
001145,000718: E3,1447                        ADIAX              ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
001146,000719: E3,1450                        ADIAY              ERASE                                          #      INPUT AXIS
001147,000720: E3,1451                        ADIAZ              ERASE                                          
001148,000721: 
001149,000722: E3,1452                        ADSRAX             ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
001150,000723: E3,1453                        ADSRAY             ERASE                                          #      SPIN REFERENCE AXIS
001151,000724: E3,1454                        ADSRAZ             ERASE                                          
001152,000725: 
001153,000726: E3,1455                        GCOMP              ERASE    +5                                    #  CONTAINS COMPENSATING TORQUES
001154,000727: 
001155,000728: E3,1463                        GCOMPSW            ERASE                                          
001156,000729: E3,1464  E3,1455               COMMAND            EQUALS   GCOMP                                 
001157,000730: E3,1464  E3,1460               CDUIND             EQUALS   GCOMP      +3                         
001158,000731: 
001159,000732:                                                                                                  #           STORAGE FOR RR TASKS.
001160,000733: 
001161,000734: E3,1464                        RRRET              ERASE                                          
001162,000735: E3,1465                        RDES               ERASE                                          
001163,000736: E3,1466                        RRINDEX            ERASE                                          
001164,000737: 
001165,000738:                                                                                                  #  AOT CALIBRATIONS IN AZIMUTH AND ELEVATION AT DETENTS
001166,000739: E3,1467                        AOTAZ              ERASE    +2                                    
001167,000740: E3,1472                        AOTEL              ERASE    +2                                    
001168,000741:                                                                                                  #           ASSIGNMENTS FOR PRESENTLY UNUSED NOUNS.
001169,000742: E3,1475                        AZANG              EQUALS                                         #  DELETE WHEN OPTICAL TRACKER NOUNS GONE.
001170,000743: E3,1475                        ELANG              EQUALS                                         
001171,000744: E3,1475                        DESLOTSY           EQUALS                                         
001172,000745: E3,1475                        DESLOTSX           EQUALS                                         
001173,000746: 
001174,000747: E3,1475                        ROLL               ERASE    +2                                    
001175,000748: E3,1500                        LANDMARK           ERASE    +5                                    
001176,000749: 
001177,000750:                                                                                                  #  THE FOLLOWING REGS ARE USED BY THE STANDBY VERBS
001178,000751: 

Page 27

001180,000753: 
001181,000754: E3,1506                        TIMESAV            ERASE    +1                                    
001182,000755: E3,1510                        SCALSAV            ERASE    +1                                    
001183,000756: E3,1512                        TIMAR              ERASE    +1                                    
001184,000757: E3,1514                        TIMEDIFF           ERASE    +1                                    
001185,000758: 
001186,000759:                                                                                                  #  THE FOLLOWING MAY BE PLACED IN SWITCHED ERRASSIBLE
001187,000760: 
001188,000761:                                                                                                  #  PHSNAME(I) AND PHSBB(I) STORE THE 2CADR FOR VARIABLE RESTARTS FOR EACH OF THE GROUPS
001189,000762: E3,1516                        PHSNAME1           ERASE                                          
001190,000763: E3,1517                        PHSBB1             ERASE                                          
001191,000764: E3,1520                        PHSNAME2           ERASE                                          
001192,000765: E3,1521                        PHSBB2             ERASE                                          
001193,000766: E3,1522                        PHSNAME3           ERASE                                          
001194,000767: E3,1523                        PHSBB3             ERASE                                          
001195,000768: 
001196,000769: E3,1524                        PHSNAME4           ERASE                                          
001197,000770: E3,1525                        PHSBB4             ERASE                                          
001198,000771: E3,1526                        PHSNAME5           ERASE                                          
001199,000772: E3,1527                        PHSBB5             ERASE                                          
001200,000773: E3,1530                        PHSNAME6           ERASE                                          
001201,000774: E3,1531                        PHSBB6             ERASE                                          
001202,000775: 
001203,000776: E3,1532                        BCDU               ERASE    +2                                    
001204,000777: E3,1535                        MIS                ERASE    +17D                                  
001205,000778: E3,1557                        MFS                ERASE    +17D                                  
001206,000779: E3,1601                        TMIS               ERASE    +17D                                  
001207,000780: E3,1623  E3,1601               TMFI               EQUALS   TMIS                                  
001208,000781: E3,1623                        COF                ERASE    +5                                    
001209,000782: E3,1631                        CPHI               ERASE                                          
001210,000783: E3,1632                        CTHETA             ERASE                                          
001211,000784: E3,1633                        CPSI               ERASE                                          
001212,000785: E3,1634  E3,1557               MFI                EQUALS   MFS                                   
001213,000786: E3,1634                        COFSKEW            ERASE    +5                                    
001214,000787: E3,1642                        AM                 ERASE    +1                                    
001215,000788: E3,1644  E3,1601               MFISYM             EQUALS   TMIS                                  
001216,000789: E3,1644                        CAM                ERASE    +1                                    
001217,000790: E3,1646  E3,1607               C2SQP              EQUALS   K2                                    
001218,000791: E3,1646  E3,1611               C2SQM              EQUALS   K2         +2                         
001219,000792: 
001220,000793: E3,1646  E3,1613               C2PP               EQUALS   K2         +4                         
001221,000794: E3,1646  E3,1615               C2MP               EQUALS   K3                                    
001222,000795: E3,1646  E3,1617               C1PP               EQUALS   K3         +2                         
001223,000796: E3,1646  E3,1621               C1MP               EQUALS   K3         +4                         
001224,000797: E3,1646  E3,1601               P21                EQUALS   K1                                    
001225,000798: E3,1646  E3,1603               D21                EQUALS   K1         +2                         
001226,000799: E3,1646  E3,1605               G21                EQUALS   K1         +4                         
001227,000800: E3,1646                        RAD                ERASE    +1                                    
001228,000801: E3,1650                        RSQ                ERASE    +1                                    
001229,000802: E3,1652  E3,1557               E1                 EQUALS   MFS                                   
001230,000803: E3,1652  E3,1565               E2                 EQUALS   MFS        +6                         
001231,000804: E3,1652  E3,1634               IG                 EQUALS   COFSKEW                               
001232,000805: E3,1652  E3,1615               OGF                EQUALS   TMIS       +12D                       
001233,000806: 

Page 28

001235,000808: E3,1652  E3,1601               K1                 EQUALS   TMIS                                  
001236,000809: E3,1652  E3,1607               K2                 EQUALS   TMIS       +6                         
001237,000810: E3,1652  E3,1615               K3                 EQUALS   TMIS       +12D                       
001238,000811: E3,1652  E3,1557               KEL                EQUALS   MFS                                   
001239,000812: E3,1652                        RATEINDX           ERASE                                          
001240,000813: E3,1653                        SPNDX              ERASE                                          
001241,000814: E3,1654                        MYNDX              ERASE                                          
001242,000815: E3,1655  E3,1634               BRATE              EQUALS   COFSKEW                               
001243,000816: E3,1655  E3,1644               TM                 EQUALS   CAM                                   
001244,000817: E3,1655  E3,1601               NCDU               EQUALS   TMIS                                  
001245,000818: E3,1655  E3,1604               NEXTIME            EQUALS   TMIS       +3                         
001246,000819: E3,1655     0771               DELDCDU            EQUALS   DELCDUX                               
001247,000820: E3,1655     0772               DELDCDU1           EQUALS   DELCDUY                               
001248,000821: E3,1655     0773               DELDCDU2           EQUALS   DELCDUZ                               
001249,000822: E3,1655  E3,1605               TTEMP              EQUALS   TMIS       +4                         
001250,000823: E3,1655                        POINTVSM           ERASE    +5                                    
001251,000824: E3,1663                        SCAXIS             ERASE    +5                                    
001252,000825: E3,1671                        RTN                ERASE                                          
001253,000826: E3,1672                        TAG5               ERASE                                          
001254,000827: E3,1673                        TF                 ERASE    +1                                    
001255,000828: 
001256,000829: E3,1675                        COGAVAIL           ERASE    +1                                    
001257,000830: E3,1677                        SPLOC              ERASE    +2                                    
001258,000831: E3,1702                        UNR1               ERASE    +5                                    
001259,000832: E3,1710                        R0VEC              ERASE    +5                                    
001260,000833: E3,1716                        V0VEC              ERASE    +5                                    
001261,000834: E3,1724                        UNNORM             ERASE    +5                                    
001262,000835: E3,1732                        INDEP              ERASE    +1                                    
001263,000836: E3,1734                        TWEEKIT            ERASE    +1                                    
001264,000837: E3,1736                        DEPVAR             ERASE    +1                                    
001265,000838: E3,1740                        PREVDEP            ERASE    +1                                    
001266,000839: E3,1742                        DELDEP             ERASE    +1                                    
001267,000840: E3,1744                        DELINDEP           ERASE    +1                                    
001268,000841: E3,1746                        MININDEP           EQUALS   22D                                   
001269,000842: E3,1746                        MAXINDEP           EQUALS   26D                                   
001270,000843:                                                                                                  #  RESTRTCS-RESTRTCS +77D IS USED FOR RESTART PROTECTION DURING PRELAUNCH
001271,000844: 
001272,000845: E3,1746                        RESTRTCS           =        1600                                  
001273,000846: 
001274,000847:                                                                                                  #  ERASABLE FOR MISSION PHASE TWO
001275,000848: E3,1746                        TGRR               ERASE    +1                                    #   TIME OF GUIDANCE REFERENCE RELEASE
001276,000849: E3,1750                        TLIFTOFF           ERASE    +1                                    #   TIME OF LIFTOFF
001277,000850: E3,1752                        TPRELTER           ERASE    +1                                    #   TIME OF GYROCOMPASSING TERMINATION
001278,000851: E3,1754                        SAVEDT             ERASE    +1                                    #   TEMPORARY FOR MP 2
001279,000852: 
001280,000853: E3,1756                        DT-LIFT            ERASE    +1                                    #   DT FROM GRR TO LIFTOFF
001281,000854: E3,1760                        DT-DFITM           ERASE                                          #   DT FROM GRR TO DFI T/M CALIBRATION
001282,000855: E3,1761  E3,1760               ABORTNDX           EQUALS   DT-DFITM                              
001283,000856: E3,1761                        DT-LETJT           ERASE    +1                                    #   DT FROM LIFTOFF TO POST-LET JETTISON
001284,000857: E3,1763                        AZGR               ERASE    +1                                    #   PAD 37B VERTICAL TO REF X-Z PLANE.
001285,000858: E3,1765                        TILT               ERASE    +1                                    #   Y ABOUT Z IN REVS.
001286,000859: E3,1767                        ZSMAZ              ERASE    +1                                    #   Z FROM NORTH IN REVS.
001287,000860: 

Page 29

001289,000862: E3,1771                        TEPHEM             ERASE    +2                                    #  TP CS FROM 00:00:00 JULY 1 TO 00:00:00
001290,000863:                                                                                                  #  OF LAUNCH DAY.
001291,000864: E3,1774                        MP6TO7             ERASE                                          #  ERASABLE FOR MP6
001292,000865: E3,1775                        MP8TO9             ERASE                                          #  ERASABLE FOR MISSION PHASE 8
001293,000866: 

Page 30

001295,000868:                                                                                                  #  ERASABLE ASSIGNMENTS FOR EBANK 4
001296,000869: 
001297,000870: 
001298,000871: 
001299,000872: E4,1400                                           SETLOC   2000                                  
001300,000873: 
001301,000874: E4,1400                        AMEMORY            ERASE    +150D                                 
001302,000875:                                                                                                  #           THE FOLLOWING A MEMORY LOCATIONS ARE USED BY MID-COURSE NAVIGATION
001303,000876: 
001304,000877:                                                                                                  #  CAUTION: ORBITAL INTEGRATION REGISTERS RAVEGON, VAVEGON AND SECOND DPS GUIDANCE REGISTERS TPIP, TTF/4,
001305,000878:                                                                                                  #  TTF/4TMP, TULLG ARE ALL IN USE SIMULTANEOUSLY AND MUST NOT CONFLICT.
001306,000879: 
001307,000880: E4,1627  E4,1400               RRECT              EQUALS   AMEMORY    +000D                      
001308,000881: E4,1627  E4,1400               RIGNTION           EQUALS   AMEMORY    +000D                      
001309,000882: E4,1627  E4,1406               VRECT              EQUALS   AMEMORY    +006D                      
001310,000883: E4,1627  E4,1406               VIGNTION           EQUALS   AMEMORY    +006D                      
001311,000884: E4,1627  E4,1414               TDELTAV            EQUALS   AMEMORY    +012D                      
001312,000885: E4,1627  E4,1414               NEWDLTAV           EQUALS   AMEMORY    +012D                      
001313,000886: E4,1627  E4,1422               TNUV               EQUALS   AMEMORY    +018D                      
001314,000887: E4,1627  E4,1422               NEWNUV             EQUALS   AMEMORY    +018D                      
001315,000888: E4,1627  E4,1430               RCV                EQUALS   AMEMORY    +024D                      
001316,000889: E4,1627  E4,1430               FOUNDR             EQUALS   AMEMORY    +024D                      
001317,000890: E4,1627  E4,1436               VCV                EQUALS   AMEMORY    +030D                      
001318,000891: E4,1627  E4,1436               FOUNDV             EQUALS   AMEMORY    +030D                      
001319,000892: E4,1627  E4,1444               TC                 EQUALS   AMEMORY    +036D                      
001320,000893: E4,1627  E4,1446               TET                EQUALS   AMEMORY    +038D                      
001321,000894: E4,1627  E4,1450               XKEP               EQUALS   AMEMORY    +040D                      
001322,000895: E4,1627  E4,1452               ALPHAV             EQUALS   AMEMORY    +042D                      
001323,000896: E4,1627  E4,1452               DELR               EQUALS   AMEMORY    +042D                      
001324,000897: E4,1627  E4,1460               BETAV              EQUALS   AMEMORY    +048D                      
001325,000898: E4,1627  E4,1460               DELVEL             EQUALS   AMEMORY    +048D                      
001326,000899: E4,1627  E4,1466               PHIV               EQUALS   AMEMORY    +054D                      
001327,000900: 
001328,000901: E4,1627  E4,1466               BVECTOR            EQUALS   AMEMORY    +054D                      
001329,000902: E4,1627  E4,1474               PSIV               EQUALS   AMEMORY    +060D                      
001330,000903: E4,1627  E4,1502               FV                 EQUALS   AMEMORY    +066D                      
001331,000904: 
001332,000905: E4,1627  E4,1510               VECTAB             EQUALS   AMEMORY    +072D                      
001333,000906: 
001334,000907: E4,1627  E4,1510               TAVEGON            EQUALS   AMEMORY    +072D                      
001335,000908: E4,1627  E4,1512               TRESUME            EQUALS   AMEMORY    +074D                      
001336,000909: E4,1627  E4,1514               RAVEGON            EQUALS   AMEMORY    +076D                      #  SEE CAUTION ABOVE
001337,000910: E4,1627  E4,1522               VAVEGON            EQUALS   AMEMORY    +082D                      #  SEE CAUTION ABOVE
001338,000911: E4,1627  E4,1530               RIG-2SEC           EQUALS   AMEMORY    +088D                      
001339,000912: E4,1627  E4,1554               ALPHAM             EQUALS   AMEMORY    +108D                      
001340,000913: E4,1627  E4,1556               BETAM              EQUALS   AMEMORY    +110D                      
001341,000914: E4,1627  E4,1560               TAU                EQUALS   AMEMORY    +112D                      
001342,000915: E4,1627  E4,1560               GIVENT             EQUALS   AMEMORY    +112D                      
001343,000916: E4,1627  E4,1562               DT/2               EQUALS   AMEMORY    +114D                      
001344,000917: E4,1627  E4,1564               H                  EQUALS   AMEMORY    +116D                      
001345,000918: E4,1627  E4,1566               TDEC               EQUALS   AMEMORY    +118D                      
001346,000919: 

Page 31

001348,000921: E4,1627  E4,1570               FBRANCH            EQUALS   AMEMORY    +120D                      
001349,000922: E4,1627  E4,1571               HBRANCH            EQUALS   AMEMORY    +121D                      
001350,000923: E4,1627  E4,1572               GMODE              EQUALS   AMEMORY    +122D                      
001351,000924: E4,1627  E4,1573               QREADY             EQUALS   AMEMORY    +123D                      
001352,000925: E4,1627  E4,1574               MEASQ              EQUALS   AMEMORY    +124D                      
001353,000926: E4,1627  E4,1576               DELTAQ             EQUALS   AMEMORY    +126D                      
001354,000927: 
001355,000928: E4,1627  E4,1600               MEASMODE           EQUALS   AMEMORY    +128D                      
001356,000929: E4,1627  E4,1601               NVCODE             EQUALS   AMEMORY    +129D                      
001357,000930: E4,1627  E4,1602               MIDEXIT            EQUALS   AMEMORY    +130D                      
001358,000931: E4,1627  E4,1602               DSPRTRN            EQUALS   AMEMORY    +130D                      
001359,000932: E4,1627  E4,1603               INCORPEX           EQUALS   AMEMORY    +131D                      
001360,000933: E4,1627  E4,1604               STEPEXIT           EQUALS   AMEMORY    +132D                      
001361,000934: E4,1627  E4,1605               DIFEQCNT           EQUALS   AMEMORY    +133D                      
001362,000935: 
001363,000936: E4,1627  E4,1605               NORMGAM            EQUALS   AMEMORY    +133D                      
001364,000937: E4,1627  E4,1606               SCALEA             EQUALS   AMEMORY    +134D                      
001365,000938: E4,1627  E4,1607               SCALEB             EQUALS   AMEMORY    +135D                      
001366,000939: E4,1627  E4,1613               YV                 EQUALS   AMEMORY    +139D                      
001367,000940: E4,1627  E4,1621               ZV                 EQUALS   AMEMORY    +145D                      
001368,000941: 

Page 32

001370,000943:                                                                                                  #  VARIABLES FOR SECOND DPS GUIDANCE
001371,000944: 
001372,000945:                                                                                                  #  CAUTION: ORBITAL INTEGRATION REGISTERS RAVEGON, VAVEGON AND SECOND DPS GUIDANCE REGISTERS TPIP, TTF/4,
001373,000946:                                                                                                  #  TTF/4TMP, TULLG ARE ALL IN USE SIMULTANEOUSLY AND MUST NOT CONFLICT.
001374,000947: 
001375,000948:                                                                                                  #  2DPS PRESENTLY RECEIVES CERTAIN VARIABLES FROM THE ORBITAL INTEGRATION PROGRAM IN REGISTERS USED IN COMMON BY
001376,000949:                                                                                                  #  THE TWO PROGRAMS. THESE VARIABLES ARE TET, RIGNTION, VIGNTION. 2DPS CAREFULLY TRANSFERS THESE VARIABLES TO
001377,000950:                                                                                                  #  REGISTERS OF PROGRAM CALCRVG BEFORE WRITING INTO THE REGISTERS IN WHICH THESE VARIABLES ARRIVE.
001378,000951: 
001379,000952:                                                                                                  #  SOME TIME SHARING OF 2DPS REGISTERS BY 2DPS VARIABLES HAS BEEN ARRANGED. MORE IS POSSIBLE.
001380,000953:                                                                                                  #  BUT IT BECOMES INCREASINGLY DIFFICULT TO PROVE RESTARTABILITY.
001381,000954: 
001382,000955: E4,1627  E4,1400               E2DPS              =        AMEMORY                               
001383,000956: 
001384,000957:                                                                                                  #  CONTROL VARIABLES
001385,000958: 
001386,000959: E4,1627  E4,1400               NDX2DPS            =        E2DPS                                 
001387,000960: E4,1627  E4,1401               NDXBR              =        NDX2DPS    +1                         
001388,000961: E4,1627  E4,1402               FLPASS0            =        NDXBR      +1                         
001389,000962: E4,1627  E4,1403               COUNTFC            =        FLPASS0    +1                         
001390,000963: E4,1627  E4,1404               COUNTFCT           =        COUNTFC    +1                         
001391,000964: 
001392,000965:                                                                                                  #  ADDRESS VARIABLES
001393,000966: 
001394,000967: E4,1627  E4,1405               AVGXTEMP           =        COUNTFCT   +1                         
001395,000968: E4,1627  E4,1406               RETNTLZ            =        AVGXTEMP   +1                         
001396,000969: E4,1627  E4,1407               RETXIGN1           =        RETNTLZ    +1                         
001397,000970: E4,1627  E4,1410               RETTHRT            =        RETXIGN1   +1                         
001398,000971: 
001399,000972:                                                                                                  #  COORDINATE FRAME VECTORS AND MATRICES
001400,000973: 
001401,000974: E4,1627  E4,1411               CLT/2              =        RETTHRT    +1                         
001402,000975: 
001403,000976:                                                                                                  #  TABLES
001404,000977: 
001405,000978: E4,1627  E4,1433               TABLTTF            =        CLT/2      +22                        
001406,000979: 
001407,000980:                                                                                                  #  STATE VARIABLES
001408,000981: 
001409,000982: E4,1627  E4,1444               PIPTIMET           =        TABLTTF    +11                        
001410,000983: E4,1627  E4,1446               TPIP               =        PIPTIMET   +2                         #  SEE CAUTION ABOVE
001411,000984: E4,1627  E4,1450               TPIPOLD            =        TPIP       +2                         
001412,000985: E4,1627  E4,1452               TTF/4              =        TPIPOLD    +2                         #  SEE CAUTION ABOVE
001413,000986: 
001414,000987: E4,1627  E4,1454               TTF/4TMP           =        TTF/4      +2                         #  SEE CAUTION ABOVE
001415,000988: E4,1627  E4,1456               TULLG              =        TTF/4TMP   +2                         #  SEE CAUTION ABOVE
001416,000989: E4,1627  E4,1460               R                  =        TULLG      +2                         
001417,000990: E4,1627  E4,1466               RLENGTH            =        R          +6                         
001418,000991: E4,1627  E4,1470               V                  =        RLENGTH    +2                         
001419,000992: E4,1627  E4,1476               VL                 =        V          +6                         
001420,000993: E4,1627  E4,1504               RP2                =        VL         +6                         
001421,000994: 

Page 33

001423,000996: E4,1627  E4,1506               MAP2               =        RP2        +2                         
001424,000997: E4,1627  E4,1510               RC                 =        MAP2       +2                         
001425,000998: 
001426,000999: E4,1627  E4,1512               RS                 =        RC         +2                         
001427,001000: E4,1627  E4,1512               RTEMP              =        RS                                    
001428,001001: E4,1627  E4,1520               VS                 =        RS         +6                         
001429,001002: E4,1627  E4,1520               VTEMP              =        VS                                    
001430,001003: E4,1627  E4,1526               CRS2               =        VS         +6                         
001431,001004: E4,1627  E4,1530               SRS2               =        CRS2       +2                         
001432,001005: E4,1627  E4,1532               TRS2               =        SRS2       +2                         
001433,001006: E4,1627  E4,1534               ASPRT              =        TRS2       +2                         
001434,001007: 
001435,001008:                                                                                                  #  AFC CALCULATION VARIABLES, QUADRATIC AND LINEAR
001436,001009: 
001437,001010: E4,1627  E4,1542               ACS                =        ASPRT      +6                         
001438,001011: E4,1627  E4,1550               AFCS               =        ACS        +6                         
001439,001012: E4,1627  E4,1556               AFC                =        AFCS       +6                         
001440,001013: E4,1627  E4,1564               /AFC/              =        AFC        +6                         
001441,001014: E4,1627  E4,1566               /AFC/OLD           =        /AFC/      +2                         
001442,001015: E4,1627  E4,1570               UNAFC/2            =        /AFC/OLD   +2                         
001443,001016: E4,1627  E4,1576               UNAFC/20           =        UNAFC/2    +6                         
001444,001017: E4,1627  E4,1604               ALINS              =        UNAFC/20   +6                         
001445,001018: E4,1627  E4,1604               GDUMPRES           =        ALINS                                 
001446,001019: E4,1627  E4,1612               JLINS              =        ALINS      +6                         
001447,001020: E4,1627  E4,1612               GDOTM1             =        JLINS                                 
001448,001021: 
001449,001022:                                                                                                  #  ASSIGNMENTS WITHIN THE WORK AREA
001450,001023: 
001451,001024: E4,1627                        PDUM               =        6                                     
001452,001025: E4,1627                        RDUM               =        10                                    
001453,001026: E4,1627                        VDUM               =        16                                    
001454,001027: E4,1627                        ADUM               =        40                                    #  ONLY ADUM CAN USE THE AREA DESTROYED BY
001455,001028: E4,1627                        JDUM               =        24                                    #  TAKING THE UNIT OF RDUM IN SUBR GDUMCL.
001456,001029: E4,1627                        GDUM               =        32                                    #  PLACE GDUM TO PRESERVE /RDUM/ FOR OTHERS
001457,001030: 
001458,001031:                                                                                                  #           COMPLETES SECOND DPS ERASABLES (EXCEPT FOR CPT6/2 WHICH IS ASSIGNED ELSEWHERE)
001459,001032: 

Page 34

001461,001034:                                                                                                  #  ERASABLES FOR ASCENT GUIDANCE
001462,001035: 
001463,001036: 
001464,001037: 
001465,001038:                                                                                                  #  ERASABLES FOR PREAPS2
001466,001039: 
001467,001040: E4,1627  E4,1400               PAXIS1             EQUALS   AMEMORY                               #  VECTOR
001468,001041: E4,1627  E4,1406               QAXIS              EQUALS   AMEMORY    +6D                        #  VECTOR
001469,001042: 
001470,001043: E4,1627  E4,1414               SAXIS              EQUALS   AMEMORY    +12D                       #  VECTOR
001471,001044: E4,1627  E4,1422               AT                 EQUALS   AMEMORY    +18D                       #  DP    *  DO       *
001472,001045: E4,1627  E4,1424               1/VE               EQUALS   AMEMORY    +20D                       #  DP    *  NOT      *
001473,001046: E4,1627  E4,1426               TBUP               EQUALS   AMEMORY    +22D                       #  DP    *  CHANGE    *
001474,001047: E4,1627  E4,1430               ATMEAS             EQUALS   AMEMORY    +24D                       #  (4)   *  THE      *
001475,001048: E4,1627  E4,1434               KR                 EQUALS   AMEMORY    +28D                       #  DP    *  ORDER    *
001476,001049: E4,1627  E4,1436               KR1                EQUALS   AMEMORY    +30D                       #  DP    *  OF       *
001477,001050: E4,1627  E4,1440               RDOTD              EQUALS   AMEMORY    +32D                       #  DP    *  THESE    *
001478,001051: E4,1627  E4,1442               YDOTD              EQUALS   AMEMORY    +34D                       #  DP    *  LOCATIONS*
001479,001052: E4,1627  E4,1444               ZDOTD              EQUALS   AMEMORY    +36D                       #  DP    *************
001480,001053: E4,1627  E4,1446               RRETURN            EQUALS   AMEMORY    +38D                       #  DP
001481,001054: E4,1627  E4,1450               ASCRET             EQUALS   AMEMORY    +40D                       #  SP
001482,001055: 
001483,001056: 
001484,001057: 
001485,001058:                                                                                                  #  ERASABLES FOR ASCENT
001486,001059: 
001487,001060: E4,1627  E4,1451               LAMPRIO            EQUALS   AMEMORY    +41D                       #  SP
001488,001061: E4,1627  E4,1452               TCO                EQUALS   AMEMORY    +42D                       #  DP
001489,001062: E4,1627  E4,1454               TREF               EQUALS   AMEMORY    +44D                       #  DP
001490,001063: E4,1627  E4,1456               UT                 EQUALS   AMEMORY    +46D                       #  VECTOR
001491,001064: E4,1627  E4,1464               YCONS              EQUALS   AMEMORY    +52D                       #  DP
001492,001065: E4,1627  E4,1466               YDOT               EQUALS   AMEMORY    +54D                       #  DP
001493,001066: 
001494,001067: E4,1627  E4,1470               LAXIS              EQUALS   AMEMORY    +56D                       #  VECTOR
001495,001068: E4,1627  E4,1476               ZAXIS              EQUALS   AMEMORY    +62D                       #  VECTOR
001496,001069: E4,1627  E4,1504               ZDOT               EQUALS   AMEMORY    +68D                       #  DP
001497,001070: E4,1627  E4,1506               TIME               EQUALS   AMEMORY    +70D                       #  DP
001498,001071: E4,1627  E4,1510               GEFF               EQUALS   AMEMORY    +72D                       #  DP
001499,001072: E4,1627  E4,1512               PCONS              EQUALS   AMEMORY    +74D                       #  DP
001500,001073: 
001501,001074:                                                                                                  #  ***  THE REGISTERS AMEMORY +76D THRU AMEMORY +87D CONTAIN RAVEGON AND VAVEGON, AND MUST NOT BE USED BY THE
001502,001075:                                                                                                  #  ASCENT EQUATIONS. *********
001503,001076: 
001504,001077: E4,1627  E4,1530               PRATE              EQUALS   AMEMORY    +88D                       #  DP
001505,001078: E4,1627  E4,1532               H1                 EQUALS   AMEMORY    +90D                       #  VECTOR
001506,001079: E4,1627  E4,1540               RCOV               EQUALS   AMEMORY    +96D                       #  VECTOR
001507,001080: E4,1627  E4,1546               RDOT               EQUALS   AMEMORY    +102D                      #  DP
001508,001081: E4,1627  E4,1550               RY                 EQUALS   AMEMORY    +104D                      #  DP
001509,001082: E4,1627  E4,1552               URCO               EQUALS   AMEMORY    +106D                      #  VECTOR
001510,001083: 

Page 35

001512,001085:                                                                                                  #  ERASABLES FOR THRUST MAGNITUDE FILTER
001513,001086: 
001514,001087: E4,1627  E4,1560               1/DV1              EQUALS   AMEMORY    +112D                      #  DP
001515,001088: E4,1627  E4,1562               1/DV2              EQUALS   AMEMORY    +114D                      #  DP
001516,001089: E4,1627  E4,1564               ABDVCONV           EQUALS   AMEMORY    +116D                      #  DP
001517,001090: E4,1627  E4,1566               TFL                EQUALS   AMEMORY    +118D                      #  DP
001518,001091: 
001519,001092: 
001520,001093: 
001521,001094:                                                                                                  #  SWITCHES USED BY ASCENT GUIDANCE
001522,001095: E4,1627                        HC                 EQUALS   59D                                   
001523,001096: E4,1627                        PASS               EQUALS   58D                                   
001524,001097: E4,1627                        DIRECT             EQUALS   57D                                   
001525,001098: 

Page 36

001527,001100:                                                                                                  #  ERASABLES USED IN ORBITAL INTEGRATION
001528,001101: 
001529,001102: E4,1627                        PBODY              ERASE                                          #  USED IN ORBITAL INTEGRATION
001530,001103: E4,1630  E4,1630               W                  EQUALS   PBODY      +1                         #  UNUSED IN 206, BUT REFERRED TO BY
001531,001104:                                                                                                  #  ORBITAL INTEGRATION
001532,001105: 
001533,001106: E4,1630                        AVMIDRTN           ERASE    +1                                    #  RETURN ADDRESS FROM AVETOMID OR MIDTOAVE
001534,001107: 
001535,001108: 
001536,001109: 
001537,001110:                                                                                                  #  THE FOLLOWING ARE USED BY FINDCDUD
001538,001111: 
001539,001112: E4,1632                        AXISD              ERASE    +5                                    #  VECTOR
001540,001113: E4,1640                        AXIS               ERASE    +5                                    #  VECTOR
001541,001114: E4,1646                        COSCDU             ERASE    +5                                    #  VECTOR
001542,001115: E4,1654                        SINCDU             ERASE    +5                                    #  VECTOR
001543,001116: E4,1662  0000047               RETSAVE            EQUALS   X2                                    #  SAVE QPRET IN UNUSED X2
001544,001117: 
001545,001118: 
001546,001119: 
001547,001120:                                                                                                  #  ERASABLES FOR MISSION PHASES 7,9,11,13
001548,001121: 
001549,001122:                                                                                                  #  MISSION PHASE 7
001550,001123: 
001551,001124: E4,1662                        DT2TEMP            ERASE                                          
001552,001125: E4,1663                        DT2TEMPD           ERASE    +1                                    
001553,001126: 
001554,001127:                                                                                                  #  MISSION PHASE 9
001555,001128: 
001556,001129: E4,1665  E4,1662               SHJUMP1            EQUALS   DT2TEMP                               
001557,001130: E4,1665                        TDI                ERASE    +1                                    
001558,001131: E4,1667  E4,1663               TTHRUST            EQUALS   DT2TEMPD                              
001559,001132: E4,1667                        TIGN               ERASE    +1                                    
001560,001133: E4,1671                        UNITVG             ERASE    +5                                    
001561,001134: 
001562,001135:                                                                                                  #  MISSION PHASES 11 AND 13
001563,001136: 
001564,001137: E4,1677  E4,1662               MPRETRN            EQUALS   DT2TEMP                               
001565,001138: E4,1677  E4,1663               DT11TEMP           EQUALS   DT2TEMPD                              
001566,001139: 

Page 37

001568,001141:                                                                                                  #  ERASABLE STORAGE FOR UPDATES  -  NON SHARABLE
001569,001142: 
001570,001143: E4,1677                        STBUFF             ERASE    +15                                   
001571,001144: E4,1715                        STCOUNT            ERASE                                          
001572,001145: E4,1716                        UPOLDMOD           ERASE                                          
001573,001146: E4,1717                        UPTEMP             ERASE                                          
001574,001147: E4,1720                        UPTEMP1            ERASE                                          
001575,001148: E4,1721                        UPVERB             ERASE                                          
001576,001149: E4,1722                        COMPNUMB           ERASE                                          
001577,001150: 
001578,001151: 
001579,001152: 
001580,001153:                                                                                                  #  ERASABLE STORAGE FOR DOWNLINK  -  LIMITED SHARING POSSIBLE
001581,001154: 
001582,001155: E4,1723                        TEVENT             ERASE    +1                                    #  TIME OF GRR,LIFTOFF,ENGINE ON/OFF
001583,001156: E4,1725                        VDVECT             ERASE    +5                                    #  VELOCITY DESIRED
001584,001157: E4,1733                        VGVECT             ERASE    +5                                    #  VELOCITY TO BE GAINED
001585,001158: E4,1741                        RD                 ERASE    +5                                    #  POSITION DESIRED
001586,001159: E4,1747                        TTGO               ERASE    +1                                    #  TIME TO GO IN CENTISECONDS.
001587,001160: 
001588,001161: E4,1751  E4,1747               TGO                EQUALS   TTGO                                  #  TEMPORY DEFINITION, TO BE MOVED.
001589,001162: 
001590,001163:                                                                                                  #  EBANK 4 NON SHARABLE ERASABLE LOAD STORAGE
001591,001164: 
001592,001165: E4,1751                        E4LOAD             ERASE    2351       -          2377            
001593,001166: 
001594,001167: 
001595,001168: E4,1751  E4,1752               MPDTO8             EQUALS   E4LOAD     +1                         #  DELTA TIME FROM MP7 TO MP8
001596,001169: 
001597,001170: E4,1751  E4,1752               MP9-11DT           EQUALS   E4LOAD     +1                         #  DELTA TIME FROM MP9 TO MP11
001598,001171: 
001599,001172: E4,1751  E4,1753               MP11TO13           EQUALS   E4LOAD     +2                         #  DELTA TIME FROM MP11 TO MP13
001600,001173: 
001601,001174: E4,1751  E4,1754               RP                 EQUALS   E4LOAD     +3                         #  DP TARGET PARAMETER FOR DPS1 BURN
001602,001175: 
001603,001176: E4,1751  E4,1756               CPT6/2             EQUALS   E4LOAD     +5                         #  VECTOR TARGET PARAMETER FOR DPS2 BURN
001604,001177: 
001605,001178: E4,1751  E4,1764               R1VEC              EQUALS   E4LOAD     +13                        #  VECTOR TARGET PARAMETER FOR APS2 BURN
001606,001179: 
001607,001180: E4,1751  E4,1772               TINT               EQUALS   E4LOAD     +21                        #  DP TARGET PARAMETER FOR APS2 BURN
001608,001181: 
001609,001182: E4,1751  E4,1774               RCO                EQUALS   E4LOAD     +23                        #  DP TARGET PARAMETER FOR APS2 BURN
001610,001183: 
001611,001184:                                                                                                  #                                         E4LOAD +25 THRU E4LOAD +27 ARE STILL AVAILABLE
001612,001185: 

Page 38

001614,001187:                                                                                                  #  ERASABLES FOR MASS UPDATE (A PART OF AVERAGE G) AND THROTTLE CONTROL
001615,001188: 
001616,001189:                                                                                                  #  INITIAL VALUES FOR MASS
001617,001190: 
001618,001191: E4,1751  E5,1540               MASSES             =        SAVERASE   +26D                       
001619,001192: E4,1751  E5,1540               LEMMASS1           =        MASSES                                #  MASS OF LEM JUST AFTER SIVB SEPARATION
001620,001193: E4,1751  E5,1542               LEMMASS2           =        MASSES     +2                         #  MASS OF LEM JUST AFTER DPS SEPARATION
001621,001194: 
001622,001195:                                                                                                  #  ERASABLES FOR MASS UPDATE ROUTINE
001623,001196: 
001624,001197: E4,1751  E5,1544               EVEX               =        SAVERASE   +30D                       
001625,001198: E4,1751  E5,1544               VEXDEX             =        EVEX                                  
001626,001199: E4,1751  E5,1545               PREFORCE           =        EVEX       +1                         
001627,001200: E4,1751  E5,1547               VEXNOM             =        EVEX       +3                         
001628,001201: E4,1751  E5,1551               DELAREA            =        EVEX       +5                         
001629,001202: E4,1751  E5,1553               AREARATE           =        EVEX       +7                         
001630,001203: E4,1751  E5,1555               NEGVEX             =        EVEX       +11                        
001631,001204: E4,1751  E5,1557               DAREATMP           =        EVEX       +13                        
001632,001205: E4,1751  E5,1561               MASSTEMP           =        EVEX       +15                        
001633,001206: 
001634,001207:                                                                                                  #  ERASABLES FOR THROTTLE CONTROL
001635,001208: 
001636,001209: E4,1751  E5,1557               ETHROT             =        SAVERASE   +41D                       
001637,001210: E4,1751  E5,1557               FOLD               =        ETHROT                                
001638,001211: E4,1751  E5,1561               FCOLD              =        ETHROT     +2                         
001639,001212: E4,1751  E5,1562               FC                 =        ETHROT     +3                         
001640,001213: E4,1751  E5,1564               PIF                =        ETHROT     +5                         
001641,001214: E4,1751  E5,1566               RTNHOLD            =        ETHROT     +7                         
001642,001215: 

Page 39

001644,001217: 
001645,001218: 
001646,001219:                                                                                                  #   THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE  ENTRY AND INITIALIZATION JOB OF THE FCS TEST FOR LEM.
001647,001220: 
001648,001221: E4,1751  E4,1400               FCSCNTR            EQUALS   AMEMORY    +000D                      
001649,001222: 
001650,001223:                                                                                                  #    THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE JETSET TASK.
001651,001224: 
001652,001225:                                                                                                  #  (OPTIMUM PRELAUNCH A C USES JETSTEP-JETSTEP +77D FOR RESTART PROOF)
001653,001226: 
001654,001227: E4,1751  E4,1401               XJBUF              EQUALS   AMEMORY    +001D                      
001655,001228: E4,1751  E4,1402               YZJBUF             EQUALS   AMEMORY    +002D                      
001656,001229: E4,1751  E4,1403               JFBUF              EQUALS   AMEMORY    +003D                      
001657,001230: 
001658,001231: E4,1751  E4,1404               FCNTR              EQUALS   AMEMORY    +004D                      
001659,001232: E4,1751  E4,1405               THBUF              EQUALS   AMEMORY    +005D                      
001660,001233: E4,1751  E4,1406               OFFTMBUF           EQUALS   AMEMORY    +006D                      
001661,001234: E4,1751  E4,1407               JETSTEP            EQUALS   AMEMORY    +007D                      
001662,001235: E4,1751  E4,1410               NTIMES             EQUALS   AMEMORY    +008D                      
001663,001236: E4,1751  E4,1420               NEXTTIME           EQUALS   AMEMORY    +016D                      
001664,001237: E4,1751  E4,1430               JETONTM            EQUALS   AMEMORY    +024D                      
001665,001238: E4,1751  E4,1440               XJETS              EQUALS   AMEMORY    +032D                      
001666,001239: E4,1751  E4,1450               YZJETS             EQUALS   AMEMORY    +040D                      
001667,001240: E4,1751  E4,1460               JETOFFTM           EQUALS   AMEMORY    +048D                      
001668,001241: 
001669,001242:                                                                                                  #      THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE ENGINE ON-OFF TASK.
001670,001243: 
001671,001244: E4,1751  E4,1470               ENGSTEP            EQUALS   AMEMORY    +056D                      
001672,001245: E4,1751  E4,1471               CYLTIMES           EQUALS   AMEMORY    +057D                      
001673,001246: E4,1751  E4,1474               NEXTCYLT           EQUALS   AMEMORY    +060D                      
001674,001247: E4,1751  E4,1477               ONTIME             EQUALS   AMEMORY    +063D                      
001675,001248: E4,1751  E4,1502               OFFTIME            EQUALS   AMEMORY    +066D                      
001676,001249: E4,1751  E4,1505               OFFTIMER           EQUALS   AMEMORY    +069D                      
001677,001250: 
001678,001251:                                                                                                  #     THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE TRIM TASK.
001679,001252: 
001680,001253: E4,1751  E4,1510               TRIMSTEP           EQUALS   AMEMORY    +072D                      
001681,001254: 
001682,001255: E4,1751  E4,1511               NUMTIMES           EQUALS   AMEMORY    +073D                      
001683,001256: E4,1751  E4,1525               STEPDLYT           EQUALS   AMEMORY    +085D                      
001684,001257: E4,1751  E4,1541               TRIMONT            EQUALS   AMEMORY    +097D                      
001685,001258: E4,1751  E4,1555               TRIMOFFT           EQUALS   AMEMORY    +109D                      
001686,001259: E4,1751  E4,1571               TRIMIND            EQUALS   AMEMORY    +121D                      
001687,001260: 
001688,001261:                                                                                                  #     THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE THROTTLE TASK.
001689,001262: 
001690,001263: E4,1751  E4,1605               THRTSTEP           EQUALS   AMEMORY    +133D                      
001691,001264: E4,1751  E4,1606               DOTIMES            EQUALS   AMEMORY    +134D                      
001692,001265: E4,1751  E4,1614               DELAY              EQUALS   AMEMORY    +140D                      
001693,001266: E4,1751  E4,1622               THR1TIME           EQUALS   AMEMORY    +146D                      
001694,001267: E4,1751  E4,1630               THCOMM1            EQUALS   AMEMORY    +152D                      
001695,001268: 

Page 40

001697,001270: E4,1751  E4,1636               THCOMM2            EQUALS   AMEMORY    +158D                      
001698,001271: 
001699,001272:                                                                                                  #   THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE INTERFACE LOOK TASK.
001700,001273: 
001701,001274: E4,1751  E4,1644               30BUF1             EQUALS   AMEMORY    +164D                      
001702,001275: E4,1751  E4,1650               30BUF0             EQUALS   AMEMORY    +168D                      
001703,001276: E4,1751  E4,1654               QUITLOOK           EQUALS   AMEMORY    +172D                      
001704,001277: E4,1751  E4,1655               CHCNTR             EQUALS   AMEMORY    +173D                      
001705,001278: 
001706,001279: E5,1400                                           SETLOC   2400                                  
001707,001280:                                                                                                  #  THE FOLLOWING ERASABLE LOCATIONS ARE UTILIZED BY THE IN-FLIGHT ALIGNMENT ROUTINES
001708,001281: 
001709,001282: E5,1400                        XSM                ERASE    +17D                                  
001710,001283: E5,1422  E5,1406               YSM                =        XSM        +6                         
001711,001284: E5,1422  E5,1414               ZSM                =        XSM        +12D                       
001712,001285: E5,1422                        XDC                ERASE    +17D                                  
001713,001286: E5,1444  E5,1430               YDC                =        XDC        +6                         
001714,001287: E5,1444  E5,1436               ZDC                =        XDC        +12D                       
001715,001288: E5,1444  E5,1422               XNB                =        XDC                                   
001716,001289: E5,1444  E5,1430               YNB                =        XDC        +6                         
001717,001290: 
001718,001291: E5,1444  E5,1436               ZNB                =        XDC        +12D                       
001719,001292: E5,1444                        STARAD             ERASE    +17D                                  
001720,001293: E5,1466                        STAR               ERASE    +5                                    
001721,001294: E5,1474                        SAC                ERASE    +1                                    
001722,001295: E5,1476                        PAC                ERASE    +1                                    
001723,001296: E5,1500                        OGC                ERASE    +1                                    
001724,001297: E5,1502                        IGC                ERASE    +1                                    
001725,001298: E5,1504                        MGC                ERASE    +1                                    
001726,001299: E5,1506                        ZPRIME             =        22D                                   
001727,001300: E5,1506                        PDA                =        22D                                   
001728,001301: E5,1506                        COSTH              =        16D                                   
001729,001302: E5,1506                        SINTH              =        18D                                   
001730,001303: E5,1506                        THETA              =        20D                                   
001731,001304: E5,1506                        STARM              =        32D                                   
001732,001305: 
001733,001306: 
001734,001307: 
001735,001308:                                                                                                  #  THE FOLLOWING ERASABLE LOCATIONS ARE UTILIZED BY THE SYSTEM TESTS
001736,001309: 
001737,001310: E5,1506                        AZIMUTH            ERASE    +1                                    
001738,001311: E5,1510                        LATITUDE           ERASE    +1                                    
001739,001312: 
001740,001313: E5,1512                        EROPTN             ERASE                                          
001741,001314: E5,1513                        ERVECTOR           ERASE    +5                                    
001742,001315: E5,1521                        GYROD              ERASE    +5                                    
001743,001316: E5,1527                        LENGTHOT           ERASE                                          
001744,001317: E5,1530                        LOSVEC             ERASE    +5                                    
001745,001318: E5,1536                        NBPOS              ERASE                                          
001746,001319: E5,1537                        NDXCTR             ERASE                                          
001747,001320: E5,1540                        PIPANO             ERASE                                          
001748,001321: 

Page 41

001750,001323: E5,1541                        PIPINDEX           ERASE                                          
001751,001324: E5,1542                        PIPNDX             ERASE    +1                                    
001752,001325: 
001753,001326: E5,1544                        POSITON            ERASE                                          
001754,001327: E5,1545                        QPLAC              ERASE                                          
001755,001328: E5,1546                        QPLACE             ERASE                                          
001756,001329: E5,1547                        QPLACES            ERASE                                          
001757,001330: E5,1550                        RUN                ERASE                                          
001758,001331: E5,1551                        STOREPL            ERASE                                          
001759,001332: E5,1552                        SOUTHDR            ERASE                                          
001760,001333: E5,1553                        TAZEL1             ERASE    +5                                    
001761,001334: E5,1561                        TEMPTIME           ERASE    +1                                    
001762,001335: E5,1563                        TESTNO             ERASE                                          
001763,001336: E5,1564                        TMARK              ERASE    +1                                    
001764,001337: E5,1566                        SHAFTA             ERASE                                          
001765,001338: E5,1567                        TRUNA              ERASE                                          
001766,001339: E5,1570                        GENPL              ERASE    +134D                                 
001767,001340: 
001768,001341: E5,1777  E5,1570               CDUTIMEI           =        GENPL                                 
001769,001342: E5,1777  E5,1572               CDUTIMEF           =        GENPL      +2                         
001770,001343: E5,1777  E5,1574               CDUDANG            =        GENPL      +4                         
001771,001344: E5,1777  E5,1575               CDUREADF           =        GENPL      +5                         
001772,001345: E5,1777  E5,1576               CDUREADI           =        GENPL      +6                         
001773,001346: E5,1777  E5,1577               CDULIMIT           =        GENPL      +7                         
001774,001347: 
001775,001348: E5,1777  E5,1574               TEMPADD            =        GENPL      +4                         
001776,001349: E5,1777  E5,1575               TEMP               =        GENPL      +5                         
001777,001350: E5,1777  E5,1576               NOBITS             =        GENPL      +6                         
001778,001351: E5,1777  E5,1577               CHAN               =        GENPL      +7                         
001779,001352: 
001780,001353: E5,1777  E5,1600               LOS1               =        GENPL      +8D                        
001781,001354: E5,1777  E5,1606               LOS2               =        GENPL      +14D                       
001782,001355: 
001783,001356: E5,1777  E5,1614               CALCDIR            EQUALS   GENPL      +20D                       
001784,001357: E5,1777  E5,1615               CDUFLAG            EQUALS   GENPL      +21D                       
001785,001358: E5,1777  E5,1616               GYTOBETQ           EQUALS   GENPL      +22D                       
001786,001359: E5,1777  E5,1617               OPTNREG            EQUALS   GENPL      +23D                       
001787,001360: E5,1777  E5,1620               SAVE               EQUALS   GENPL      +24D                       #  THREE CONSEC LOC
001788,001361: E5,1777  E5,1623               SFCONST1           EQUALS   GENPL      +27D                       
001789,001362: E5,1777  E5,1624               TIMER              EQUALS   GENPL      +28D                       
001790,001363: 
001791,001364: E5,1777  E5,1626               DATAPL             EQUALS   GENPL      +30D                       
001792,001365: E5,1777  E5,1570               RDSP               EQUALS   GENPL                                 #  FIX LATER    POSSIBLY KEEP1
001793,001366: E5,1777  E5,1670               MASKREG            EQUALS   GENPL      +64D                       
001794,001367: E5,1777  E5,1672               CDUNDX             EQUALS   GENPL      +66D                       
001795,001368: E5,1777  E5,1673               RESULTCT           EQUALS   GENPL      +67D                       
001796,001369: E5,1777  E5,1676               COUNTPL            EQUALS   GENPL      +70D                       
001797,001370: 
001798,001371: E5,1777  E5,1677               CDUANG             EQUALS   GENPL      +71D                       
001799,001372: E5,1777  E5,1570               AINLA              =        GENPL                                 #  110 DEC OR 156 OCT LOCATIONS
001800,001373: 

Page 42

001802,001375: E5,1777  E5,1570               WANGO              EQUALS   AINLA                                 #  VERT ERATE
001803,001376: E5,1777  E5,1572               WANGI              EQUALS   AINLA      +2D                        #  HORIZONTAL ERATE
001804,001377: E5,1777  E5,1574               WANGT              EQUALS   AINLA      +4D                        #  T
001805,001378: E5,1777  E5,1574               TORQNDX            =        WANGT                                 
001806,001379: E5,1777  E5,1576               DRIFTT             EQUALS   AINLA      +6D                        
001807,001380: E5,1777  E5,1600               ALX1S              EQUALS   AINLA      +8D                        
001808,001381: E5,1777  E5,1601               CMPX1              EQUALS   AINLA      +9D                        #  IND
001809,001382: E5,1777  E5,1602               ALK                EQUALS   AINLA      +10D                       #  GAINS
001810,001383: E5,1777  E5,1616               VLAUNS             EQUALS   AINLA      +22D                       
001811,001384: E5,1777  E5,1616               THETAX             =        VLAUNS                                
001812,001385: E5,1777  E5,1620               WPLATO             EQUALS   AINLA      +24D                       
001813,001386: E5,1777  E5,1624               INTY               EQUALS   AINLA      +28D                       #  SOUTH PIP INTE
001814,001387: E5,1777  E5,1626               ANGZ               EQUALS   AINLA      +30D                       #  EAST AXIS
001815,001388: E5,1777  E5,1630               INTZ               EQUALS   AINLA      +32D                       #  EAST PIP I
001816,001389: E5,1777  E5,1632               ANGY               EQUALS   AINLA      +34D                       #  SOUTH
001817,001390: E5,1777  E5,1624               THETAN             =        INTY                                  
001818,001391: E5,1777  E5,1634               ANGX               EQUALS   AINLA      +36D                       #  VE
001819,001392: E5,1777  E5,1636               DRIFTO             EQUALS   AINLA      +38D                       #  VERT
001820,001393: E5,1777  E5,1640               DRIFTI             EQUALS   AINLA      +40D                       #  SOU
001821,001394: E5,1777  E5,1644               VLAUN              EQUALS   AINLA      +44D                       
001822,001395: E5,1777  E5,1644               FILDELV            =        VLAUN                                 
001823,001396: E5,1777  E5,1646               ACCWD              EQUALS   AINLA      +46D                       
001824,001397: E5,1777  E5,1646               INTVEC             =        ACCWD                                 
001825,001398: E5,1777  E5,1654               POSNV              EQUALS   AINLA      +52D                       
001826,001399: E5,1777  E5,1656               DPIPAY             EQUALS   AINLA      +54D                       #  SOUTH
001827,001400: E5,1777  E5,1662               DPIPAZ             EQUALS   AINLA      +58D                       #  NORTH PIP INCREMENT
001828,001401: E5,1777  E5,1664               ALTIM              EQUALS   AINLA      +60D                       
001829,001402: E5,1777  E5,1665               ALTIMS             EQUALS   AINLA      +61D                       #   INDEX
001830,001403: E5,1777  E5,1666               ALDK               EQUALS   AINLA      +62D                       #   TIME CONSTAN
001831,001404: E5,1777  E5,1704               DELM               EQUALS   AINLA      +76D                       
001832,001405: E5,1777  E5,1714               WPLATI             EQUALS   AINLA      +84D                       
001833,001406: E5,1777  E5,1716               GEOSAVED           EQUALS   AINLA      +86D                       
001834,001407: 
001835,001408: E5,1777  E5,1717               PREMTRXC           EQUALS   AINLA      +87D                       
001836,001409: E5,1777  E5,1720               PRELMTRX           EQUALS   AINLA      +88D                       
001837,001410: E5,1777  E5,1720               TRANSM1            =        PRELMTRX                              
001838,001411: E5,1777  E5,1742               GEOCOMPS           EQUALS   AINLA      +106D                      
001839,001412: E5,1777  E5,1743               GTSOPNDZ           EQUALS   AINLA      +107D                      
001840,001413: E5,1777  E5,1744               1SECXT             EQUALS   AINLA      +108D                      
001841,001414: E5,1777  E5,1745               GTSWTLST           EQUALS   AINLA      +109D                      
001842,001415: E5,1777  E5,1746               ERECTIME           EQUALS   AINLA      +110D                      
001843,001416: E5,1777  E5,1747               GEOMTRX            EQUALS   AINLA      +111D                      
001844,001417: E5,1777  E5,1771               ERCOMP             EQUALS   AINLA      +129D                      
001845,001418: E5,1777  E5,1777               ZERONDX            EQUALS   AINLA      +135D                      
001846,001419: 
001847,001420: 
001848,001421: 
001849,001422: E5,1777  E5,1570               BMEMORY            EQUALS   GENPL                                 
001850,001423: E5,1777     0405               DELVY              EQUALS   DELVX      +2                         
001851,001424: E5,1777     0407               DELVZ              EQUALS   DELVX      +4                         
001852,001425: 

Page 43

001854,001427:                                                                                                  #           TUMBLE MONITOR
001855,001428: 
001856,001429: E5,1777  E6,1411               PCDUX              EQUALS   E                                     
001857,001430: E5,1777  E6,1412               PCDUY              EQUALS   EDOT(2)                               
001858,001431: E5,1777  E6,1413               PCDUZ              EQUALS   ER                                    
001859,001432: E5,1777  E6,1417               DCDUY              EQUALS   OMEGAQ                                
001860,001433: E5,1777  E6,1421               DCDUZ              EQUALS   OMEGAR                                
001861,001434: E5,1777  E6,1423               OMEGA              EQUALS   EDOTP                                 
001862,001435: E7,1400                                           SETLOC   3400                                  
001863,001436: 
001864,001437:                                                                                                  #           DOWNLINK STORAGE.
001865,001438: 
001866,001439: E7,1400                        LDATALST           ERASE                                          
001867,001440: E7,1401                        DNTMGOTO           ERASE                                          
001868,001441: 
001869,001442: E7,1402                        TMINDEX            ERASE                                          
001870,001443: E7,1403                        DNQ                ERASE                                          #  RETURN ADDRESS OF DOWNLINK SUBROUTINES
001871,001444: E7,1404                        DNTMBUFF           ERASE    +21D                                  #  SNAPSHOT BUFFER.
001872,001445: 
001873,001446:                                                                                                  #           RADAR TEST STORAGE.
001874,001447: 
001875,001448: E7,1432                        RTSTDEX            ERASE                                          
001876,001449: E7,1433                        RTSTMAX            ERASE                                          #  66 FOR HI SPEED, 6 FOR LOW SPEED RR,
001877,001450:                                                                                                  #  AND 18 FOR LOW SPEED LR.
001878,001451: E7,1434                        RTSTBASE           ERASE                                          #  USED FOR CYCLIC SAMPLING.
001879,001452: E7,1435                        RTSTLOC            ERASE                                          #  GOES 0(6)RTSTMAX
001880,001453: E7,1436  E7,1435               RSTKLOC            EQUALS   RTSTLOC                               
001881,001454: E7,1436                        RSAMPDT            ERASE                                          #  PNZ FOR CYCLIC SAMPLING, -1 FOR HI SPEED
001882,001455:                                                                                                  #  INSERT +0 HERE MANUALLY TO TERMINATE TST
001883,001456: E7,1437                        RFAILCNT           ERASE                                          
001884,001457: E7,1440                        RSTACK             ERASE    +71D                                  #  BUFFERS FOR RADAR TESTING.
001885,001458: 
001886,001459:                                                                                                  #  AGS INITIALIZATION
001887,001460: E7,1550                        AGSBUF             ERASE    +27D                                  
001888,001461:                                                                                                  #           STORAGE FOR INBIT SCANNER.
001889,001462: 
001890,001463: E7,1604                        LAST30             ERASE    +2                                    #  LAST SAMPLED INBITS.
001891,001464: E7,1607                        MSGCNT             ERASE                                          
001892,001465: 
001893,001466:                                                                                                  #  THE COMPTORK REGISTERS ARE REDUNDANT WITH THETAN FOR DOWNLINK PURPOSES.
001894,001467: 
001895,001468: E7,1610                        COMPTORK           ERASE    +5                                    #  V, S, E GYROCOMPASS GYRO TORQUES.
001896,001469: 
001897,001470:                                                                                                  #             BMEMORY USED FOR CONSECUTIVE ASSIGNMENTS FOR SERVICER RESTART
001898,001471: E7,1616                        SAVERASE           EQUALS   2506                                  
001899,001472: E7,1616  E5,1506               DVTOTAL            EQUALS   SAVERASE   +000D                      
001900,001473: E7,1616  E5,1511               DVCNTR             EQUALS   SAVERASE   +003D                      
001901,001474: E7,1616  E5,1512               PIPCTR             EQUALS   SAVERASE   +004D                      
001902,001475: E7,1616  E5,1513               VR                 EQUALS   SAVERASE   +005D                      
001903,001476: E7,1616  E5,1522               VGCNTR             EQUALS   SAVERASE   +012D                      
001904,001477: E7,1616  E5,1523               ERRORSUM           EQUALS   SAVERASE   +013D                      
001905,001478: 

Page 44

001907,001480: E7,1616  E5,1531               DIFFANG            EQUALS   SAVERASE   +019D                      
001908,001481: E7,1616  E5,1533               STREXIT            EQUALS   SAVERASE   +021D                      
001909,001482: 
001910,001483: 
001911,001484: E7,1616  E5,1534               ABDELV             EQUALS   SAVERASE   +022D                      
001912,001485: E7,1616  E5,1536               SWITCH             EQUALS   SAVERASE   +24D                       
001913,001486: E7,1616  E5,1537               NEGXDV             EQUALS   SAVERASE   +25D                       
001914,001487: 

Page 45

001916,001489:                                                                                                  #  DIGITAL AUTOPILOT ERASABLE TAKES UP EBANK 6:
001917,001490: 
001918,001491:                                                                                                  #  THESE TWO ARE GOING TO MOVE WHEN KALCMANU COMES INTO SUNBURST:
001919,001492: 
001920,001493: E6,1400                                           SETLOC   3000                                  
001921,001494: 
001922,001495:                                                                                                  #  AXIS TRANSFORMATION MATRIX - PILOT TO GIMBAL AXES:
001923,001496: 
001924,001497: E6,1400                        MR12               ERASE                                          #  SCALED AT 2   THESE FOUR P-G MATRIX ELE-
001925,001498: E6,1401                        MR22               ERASE                                          #  SCALED AT 1   MENTS ARE IN THIS ORDER TO
001926,001499: E6,1402                        MR13               ERASE                                          #  SCALED AT 2   COMPUTE RATE HOLD DELCDUS
001927,001500: E6,1403                        MR23               ERASE                                          #  SCALED AT 1   WITH AN INDEXED LOOP
001928,001501: 
001929,001502:                                                                                                  #  AXIS TRANSFORMATION MATRIX - GIMBAL TO PILOT AXES:
001930,001503: 
001931,001504: E6,1404                        M11                ERASE                                          #  SCALED AT 1
001932,001505: E6,1405                        M21                ERASE                                          #  SCALED AT 1
001933,001506: E6,1406                        M31                ERASE                                          
001934,001507: E6,1407  E6,1401               M22                EQUALS   MR22                                  #  SCALED AT 1
001935,001508: E6,1407  E6,1403               M32                EQUALS   MR23                                  #  SCALED AT 1
001936,001509: 
001937,001510:                                                                                                  #  ANGLE MEASUREMENTS.
001938,001511: 
001939,001512: E6,1407                        EDOT               ERASE    +1                                    #  ERROR IN ANGULAR RATE:
001940,001513: E6,1411  E6,1410               EDOT(R)            EQUALS   EDOT       +1                         #  SCALED DOWN TO PI/16 RADIANS/SECOND
001941,001514: 
001942,001515: E6,1411                        E                  ERASE    +1                                    #  ANGLE ERROR SCALED AT PI RADIANS
001943,001516: E6,1413  E6,1412               EDOT(2)            EQUALS   E          +1                         #  ERROR RATE SQUARED SCALED AT PI(2)/16
001944,001517: E6,1413  E6,1411               EQ                 EQUALS   E                                     #  THIS PAIR OF NAMES IS USED TO REFER TO
001945,001518: E6,1413  E6,1412               EDOT(2)Q           EQUALS   EDOT(2)                               #  THE ABOVE ERASABLES AS Q-AXIS DATA
001946,001519: E6,1413                        ER                 ERASE    +1                                    #  THIS PAIR OF NAMES REFERS TO LOCATIONS
001947,001520: E6,1415  E6,1414               EDOT(2)R           EQUALS   ER         +1                         #  FOR THE R-AXIS DATA: INTERCHANGES WITH Q
001948,001521: 
001949,001522: E6,1415                        DB                 ERASE                                          #  ANGLE DEADBAND SCALED AT PI RADIANS
001950,001523: 
001951,001524: E6,1416                        OMEGAP             ERASE    +4                                    #  BODY-AXIS ROT. RATES SCALED AT PI/4 AND
001952,001525: E6,1423  E6,1417               OMEGAQ             EQUALS   OMEGAP     +1                         #  BODY-AXIS ACCELERATIONS SCALED AT PI/8
001953,001526: E6,1423  E6,1420               ALPHAQ             EQUALS   OMEGAP     +2                         #  (IN DESCENT) OR PI/2 (IN ASCENT)
001954,001527: E6,1423  E6,1421               OMEGAR             EQUALS   OMEGAP     +3                         #  THESE W,A PAIRS ARE NEEDED, ALPHAP HAS
001955,001528: E6,1423  E6,1422               ALPHAR             EQUALS   OMEGAP     +4                         #  NO USE IN THE DIGITAL AUTOPILOT
001956,001529: 
001957,001530: E6,1423                        EDOTP              ERASE    +2                                    #  ERRORS IN ANGULAR RATE:
001958,001531: E6,1426  E6,1424               EDOTQ              EQUALS   EDOTP      +1                         #  EDOT = 3MEGA - OMEGA(DESIRED)
001959,001532: E6,1426  E6,1425               EDOTR              EQUALS   EDOTP      +2                         #  SCALED AT PI/4 RADIANS/SECOND
001960,001533: 
001961,001534: E6,1426  E6,1424               QRATEDIF           EQUALS   EDOTQ                                 #  ALTERNATIVE NAMES:
001962,001535: E6,1426  E6,1425               RRATEDIF           EQUALS   EDOTR                                 #  DELETE WHEN NO. OF REFERENCES = 0
001963,001536: 
001964,001537: E6,1426                        OLDXFORP           ERASE    +3                                    #  STORED CDU READINGS FOR P AND Q,R RATE
001965,001538: E6,1432  E6,1427               OLDYFORP           EQUALS   OLDXFORP   +1                         #  DERIVATIONS: SCALED AT PI RADIANS (2'S)
001966,001539: 

Page 46

001968,001541: E6,1432  E6,1430               OLDYFORQ           EQUALS   OLDXFORP   +2                         #  (THERE MUST BE TWO REGISTERS FOR CDUY
001969,001542: E6,1432  E6,1431               OLDZFORQ           EQUALS   OLDXFORP   +3                         #  SINCE P AND Q,R ARE NOT IN PHASE)
001970,001543: 
001971,001544:                                                                                                  #  RHC INPUTS SCALED AT PI/4 RAD/SEC.
001972,001545: 
001973,001546: E6,1432                        PCOM               ERASE                                          
001974,001547: E6,1433                        RCOM               ERASE                                          
001975,001548: E6,1434                        YCOM               ERASE                                          
001976,001549: 
001977,001550:                                                                                                  #  RHC COUNTER REGISTERS.
001978,001551: 
001979,001552: E6,1435                        P-RHCCTR           EQUALS   43                                    
001980,001553: E6,1435                        Q-RHCCTR           EQUALS   42                                    
001981,001554: E6,1435                        R-RHCCTR           EQUALS   44                                    
001982,001555: 
001983,001556:                                                                                                  #  OTHER VARIABLES.
001984,001557: 
001985,001558: E6,1435                        TJETSIGN           ERASE                                          #  =+/-BIT1 TO SHOW SIGN OF P-AXIS ROTATION
001986,001559: E6,1436                        PRATECOM           ERASE                                          
001987,001560: E6,1437                        EDOTGEN            ERASE                                          
001988,001561: E6,1440                        RATEDIF            ERASE                                          
001989,001562: E6,1441                        1/2JTSP            ERASE                                          
001990,001563: E6,1442                        FPQR               ERASE                                          
001991,001564: E6,1443                        MINRA              ERASE                                          
001992,001565: E6,1444                        MINRASQ            ERASE                                          
001993,001566: E6,1445                        HDAP               ERASE                                          
001994,001567: E6,1446  E6,1445               FCT1               EQUALS   HDAP                                  
001995,001568: E6,1446                        U                  ERASE                                          
001996,001569: E6,1447                        DENOM              ERASE                                          
001997,001570: E6,1450                        RATIO              ERASE                                          
001998,001571: E6,1451                        L,PVT-CG           ERASE                                          
001999,001572: E6,1452                        IXX                ERASE                                          
002000,001573: 
002001,001574: E6,1453                        IYY                ERASE                                          
002002,001575: E6,1454                        IZZ                ERASE                                          
002003,001576: E6,1455                        4JETTORK           ERASE                                          
002004,001577: E6,1456                        JETTORK4           ERASE                                          
002005,001578: E6,1457                        COSMG              ERASE                                          
002006,001579: E6,1460     0062               DELTAP             EQUALS   ITEMP2                                
002007,001580: E6,1460                        FPQRMIN            ERASE                                          
002008,001581: E6,1461                        NJET               ERASE                                          
002009,001582: E6,1462                        PRATEDIF           ERASE                                          
002010,001583: E6,1463                        LASTPER            ERASE                                          #  THESE 6 REG USED FOR ATT ERR DISPLAY
002011,001584: E6,1464                        LASTQER            ERASE                                          
002012,001585: E6,1465                        LASTRER            ERASE                                          
002013,001586: E6,1466                        PERROR             ERASE                                          
002014,001587: E6,1467                        QERROR             ERASE                                          
002015,001588: E6,1470                        RERROR             ERASE                                          
002016,001589: 
002017,001590:                                                                                                  #  JET STATE CHANGE VARIABLES- TIME (TOFJTCHG),JET BITS WRITTEN NOW
002018,001591:                                                                                                  #    (JTSONNOW), AND JET BITS WRITTEN AT T6 RUPT (JTSATCHG).
002019,001592: 

Page 47

002021,001594: E6,1471                        JTSONNOW           ERASE                                          
002022,001595: E6,1472                        JTSATCHG           ERASE                                          
002023,001596: E6,1473                        ADDT6JTS           ERASE                                          
002024,001597: E6,1474                        ADDTLT6            ERASE                                          
002025,001598: E6,1475                        TOFJTCHG           ERASE                                          
002026,001599: 
002027,001600: E6,1476                        -RATEDB            ERASE                                          
002028,001601: E6,1477                        -2JETLIM           ERASE                                          
002029,001602: 
002030,001603:                                                                                                  #  RCS FAILURE MONITOR ERASABLE . PROGRAM ON T4RUPT 4 TIMES/SECOND
002031,001604: 
002032,001605:                                                                                                  #  *** FAILSW CAPABILITY FOR CHECKOUT ONLY ***
002033,001606: 
002034,001607: E6,1500                        FAILSW             ERASE                                          #  IF POSITIVE NO RCSMONIT, OTHERWISE 0
002035,001608: 
002036,001609: E6,1501                        LASTFAIL           ERASE                                          #  LAST FAILURE CHANNEL RECORD, -0 INITIAL
002037,001610: E6,1502                        CH5MASK            ERASE                                          #  MASKS FOR TURNING ON P/Q,R JETS
002038,001611: E6,1503                        CH6MASK            ERASE                                          #  IN OUTPUT CHANNELS 5 AND 6
002039,001612: E6,1504     0061               FAILCTR            EQUALS   ITEMP1                                #  BIT POSITION COUNTER (INTERNAL)
002040,001613: E6,1504     0062               FAILTEMP           EQUALS   ITEMP2                                #  TEMPORARY RECORD OF FAILED BITS
002041,001614: 
002042,001615:                                                                                                  #  Q,R AXIS ERASABLES
002043,001616: 
002044,001617: E6,1504     0062               DELQ               EQUALS   ITEMP2                                
002045,001618: E6,1504     0063               DELTAR             EQUALS   ITEMP3                                
002046,001619: E6,1504                        URGENCYQ           ERASE    +1                                    
002047,001620: E6,1506                        URGENCYR           ERASE    +1                                    
002048,001621: E6,1510     0066               URGLIMIT           =        ITEMP6                                
002049,001622: E6,1510                        A+B                ERASE                                          
002050,001623: E6,1511                        A-B                ERASE                                          
002051,001624: E6,1512                        TERMA              ERASE                                          
002052,001625: E6,1513                        TERMB              ERASE                                          
002053,001626: E6,1514                        DISPLACT           ERASE                                          #  FLAG FOR EIGHTBALL ATT. ERROR DISPLAY.
002054,001627: 
002055,001628: E6,1515                        POLTEST            ERASE                                          
002056,001629: 

Page 48

002058,001631:                                                                                                  #  TRIM GIMBAL CONTROL LAW ERASABLES:
002059,001632: 
002060,001633:                                                                                                  #  THE FOLLOWING ASSIGNMENTS OF RUPTREGS AND ITEMPS HAS BEEN MADE IN AN EFFORT TO OPTIMIZE USE OF ERASABLES:
002061,001634: 
002062,001635: E6,1516     0070               K2THETA            EQUALS   RUPTREG1                              #  D.P. K(2)THETA AND "NEGUSUM"
002063,001636: E6,1516     0071               ETHETA             EQUALS   RUPTREG2                              #  S.P. ERROR ANGLE SCALED AT PI/64 RADIANS
002064,001637: E6,1516     0072               A2CNTRAL           EQUALS   RUPTREG3                              #  D.P. ALPHA(2) SCALED AT PI(2)/64 R/S(2)
002065,001638: E6,1516     0072               SF1                EQUALS   RUPTREG3                              #  S.P. VARIABLE SCALE FACTORS WHICH ARE
002066,001639: E6,1516     0073               SF2                EQUALS   RUPTREG4                              #  S.P. - REALLY SINGLE BITS (OR ZERO)
002067,001640: E6,1516     0061               OMEGA.K            EQUALS   ITEMP1                                #  D.P. OMEGA*K SUPERCEDES K AND K(2)
002068,001641: E6,1516     0061               KCENTRAL           EQUALS   ITEMP1                                #  S.P. K FROM KQ OR KR FIRST AT PI/2(8)
002069,001642: E6,1516     0062               K2CNTRAL           EQUALS   ITEMP2                                #  S.P. K(2) FROM Q OR R 1ST AT PI(2)/2(16)
002070,001643: E6,1516     0063               WCENTRAL           EQUALS   ITEMP3                                #  S.P. OMEGA SCALED AT PI/4 RADIANS/SECOND
002071,001644: E6,1516     0064               ACENTRAL           EQUALS   ITEMP4                                #  S.P. ALPHA SCALED AT PI/8 RAD/SEC(2)
002072,001645: E6,1516     0065               DEL                EQUALS   ITEMP5                                #  S.P. SGN(FUNCTION)
002073,001646: E6,1516     0066               QRCNTR             EQUALS   ITEMP6                                #  S.P. COUNTER: Q,Y=0, R,Z=2
002074,001647: 
002075,001648:                                                                                                  #  THE ABOVE QUANTITIES ARE ONLY NEEDED ON A VERY TEMPORARY BASIS AND HAVE BEEN PROVEN TO BE NON-CONFLICTING.
002076,001649: 
002077,001650: E6,1516                        TJSR               ERASE                                          
002078,001651: E6,1517                        MULTFLAG           ERASE                                          #  INDICATOR FOR SPDPMULT ROUTINE
002079,001652: 
002080,001653: E6,1520                        FUNCTION           ERASE    +1                                    #  D.P. WORD FOR DRIVE FUNCTIONS
002081,001654: 
002082,001655: E6,1522                        NEGUQ              ERASE    +2                                    #  NEGATIVE OF Q-AXIS GIMBAL DRIVE
002083,001656: E6,1525  E6,1523               THRSTCMD           EQUALS   NEGUQ      +1                         #  THRUST COMMAND AT 16384 LBS (SEPARATOR)
002084,001657: E6,1525  E6,1524               NEGUR              EQUALS   NEGUQ      +2                         #  NEGATIVE OF R-AXIS GIMBAL DRIVE
002085,001658: 
002086,001659: E6,1525                        KQ                 ERASE    +3                                    #  .3ACCDOTQ SCALED AT PI/2(8)
002087,001660: E6,1531  E6,1526               KQ2                EQUALS   KQ         +1                         #  KQ2 = KQ*KQ
002088,001661: E6,1531  E6,1527               KRDAP              EQUALS   KQ         +2                         #  .3 ACCDOTR SCALED AT PI/2(8)
002089,001662: E6,1531  E6,1530               KR2                EQUALS   KQ         +3                         #  KR2 = KR*KR
002090,001663: 
002091,001664: E6,1531                        ACCDOTQ            ERASE    +3                                    #  Q-JERK SCALED AT PI/2(7) UNSIGNED
002092,001665: E6,1535  E6,1532               QACCDOT            EQUALS   ACCDOTQ    +1                         #  Q-JERK SCALED AT PI/2(7) SIGNED
002093,001666: E6,1535  E6,1533               ACCDOTR            EQUALS   ACCDOTQ    +2                         #  R-JERK SCALED AT PI/2(7) UNSIGNED
002094,001667: E6,1535  E6,1534               RACCDOT            EQUALS   ACCDOTQ    +3                         #  R-JERK SCALED AT PI/2(7) SIGNED
002095,001668: 
002096,001669: E6,1535  E6,1467               QDIFF              EQUALS   QERROR                                #  ATTITUDE ERRORS:
002097,001670: E6,1535  E6,1470               RDIFF              EQUALS   RERROR                                #  SCALED AT PI RADIANS
002098,001671: 
002099,001672: E6,1535                        TIMEOFFQ           ERASE                                          #  TIMES TO GO UNTIL TRIM GIMBAL TURN-OFF,
002100,001673: E6,1536                        TIMEOFFR           ERASE                                          #  ZERO MEANS NO ACTION, SCALED AS WAITLIST
002101,001674: 

Page 49

002103,001676:                                                                                                  #  KALMAN FILTER ERASABLES.
002104,001677: 
002105,001678: E6,1537                        STORCDUY           ERASE                                          #  THIS S.P. PAIR IS USED TO SAVE CDUY,Z
002106,001679: E6,1540                        STORCDUZ           ERASE                                          #  FOR THE GTS RUPT
002107,001680: 
002108,001681: E6,1541     0072               CDU                EQUALS   RUPTREG3                              #  RUPTREG3,4 USED AS D.P. WORD FOR CDU
002109,001682:                                                                                                  #  VALUE WITHIN FILTER IS COMP AT 2PI RAD
002110,001683: 
002111,001684: E6,1541     0061               CDUDOT             EQUALS   ITEMP1                                #  ITEMP1,2 USED AS D.P. WORD FOR CDUDOT
002112,001685:                                                                                                  #  VALUE WITHIN FILTER SCALED AT PI/4
002113,001686: 
002114,001687: E6,1541     0063               CDU2DOT            EQUALS   ITEMP3                                #  ITEMP3,4 USED AS D.P. WORD FOR CDU2DOT
002115,001688:                                                                                                  #  VALUE WITHIN FILTER SCALED AT PI/8
002116,001689: 
002117,001690: E6,1541                        DT                 ERASE                                          #  TIME ELAPSED SCALED AT 1/8: NOMINAL=50MS
002118,001691: E6,1542                        DAPTIME            ERASE                                          #  USED TO RECORD LAST TIME FROM CHANNEL 4
002119,001692: 
002120,001693: E6,1543                        STEERADR           ERASE                                          #  DTCALC SWITCH IN FILTER INITIALIZATION
002121,001694: 
002122,001695: E6,1544                        DPDIFF             ERASE    +1                                    #  D.P. WEIGHTING VECTOR FACTOR AT PI
002123,001696: E6,1546                        WPOINTER           ERASE                                          #  POINTER TO WEIGHTING VECTOR TABLE
002124,001697: E6,1547                        W0                 ERASE    +2                                    #  THETA WEIGHT
002125,001698: E6,1552  E6,1550               W1                 EQUALS   W0         +1                         #  OMEGA WEIGHT
002126,001699: E6,1552  E6,1551               W2                 EQUALS   W1         +1                         #  ALPHA WEIGHT
002127,001700: 
002128,001701: E6,1552                        CDUYFIL            ERASE    +1                                    #  Y-AXIS D.P. FILTERED THETA AT 2PI
002129,001702: 
002130,001703: E6,1554                        CDUZFIL            ERASE    +1                                    #  Z-AXIS D.P. FILTERED THETA AT 2PI
002131,001704: E6,1556                        DCDUYFIL           ERASE    +1                                    #  Y-AXIS D.P. FILTERED OMEGA AT PI/4
002132,001705: E6,1560                        DCDUZFIL           ERASE    +1                                    #  Z-AXIS D.P. FILTERED OMEGA AT PI/4
002133,001706: E6,1562                        D2CDUYFL           ERASE    +1                                    #  Y-AXIS D.P. FILTERED ALPHA AT PI/8
002134,001707: E6,1564                        D2CDUZFL           ERASE    +1                                    #  Z-AXIS D.P. FILTERED ALPHA AT PI/8
002135,001708: E6,1566                        Y3DOT              ERASE                                          #  Y-AXIS S.P. JERK AT PI/2(7)
002136,001709: E6,1567                        CDU3DOT            ERASE                                          #                    LOOP REGISTER (SPACER)
002137,001710: E6,1570                        Z3DOT              ERASE                                          #  Z-AXIS S.P. JERK AT PI/2(7)
002138,001711: 
002139,001712: E6,1571                        PFILTADR           ERASE    +1                                    #  2CADR FOR FILTER RUPT 30 MS AFTER P-AXIS
002140,001713: E6,1573                        PFRPTLST           ERASE    +7                                    #  POST FILTER RUPT LIST
002141,001714:                                                                                                  #  TORQUE VECTOR RECONSTRUCTION VARIABLES:
002142,001715: 
002143,001716: E6,1603                        JETRATE            ERASE    +2                                    #  WEIGHTED RATES DUE TO JETS APPLIED IN
002144,001717: E6,1606  E6,1604               JETRATEQ           EQUALS   JETRATE    +1                         #  THE LAST CONTROL SAMPLE PERIOD OF 100 MS
002145,001718: E6,1606  E6,1605               JETRATER           EQUALS   JETRATE    +2                         #  SCALED AT PI/4 RADIANS/SECOND
002146,001719: 
002147,001720: E6,1606                        NO.QJETS           ERASE    +1                                    #  NUMBER OF Q AND R JETS THAT ARE GIVEN
002148,001721: E6,1610  E6,1607               NO.RJETS           EQUALS   NO.QJETS   +1                         #  BY THE JET SELECT LOGIC
002149,001722: 
002150,001723: E6,1610                        TP                 ERASE    +1                                    #  TIME CALCULATED BY TJETLAW FOR P, QR
002151,001724: E6,1612  E6,1611               TQR                EQUALS   TP         +1                         #  SCALED AS TIME6, THEN TQR RESCALED TO 1
002152,001725: 
002153,001726: E6,1612                        1JACC              ERASE    +4                                    #  ACCELERATIONS DUE TO 1 JET TORQUING
002154,001727: 

Page 50

002156,001729: E6,1617  E6,1613               1JACCQ             EQUALS   1JACC      +1                         #  SCALED AT PI/4 RADIANS/SECOND
002157,001730: E6,1617  E6,1614               1JACCR             EQUALS   1JACC      +2                         
002158,001731: E6,1617  E6,1615               1JACCU             EQUALS   1JACC      +3                         #  FOR U,V-AXES THE SCALE FACTOR IS  DIFF:
002159,001732: E6,1617  E6,1616               1JACCV             EQUALS   1JACC      +4                         #  SCALED AT PI/2 RADIANS/SECOND (FOR ASC)
002160,001733: 
002161,001734: E6,1617                        INERCTR            ERASE                                          
002162,001735: E6,1620                        INERCTRX           ERASE                                          
002163,001736:                                                                                                  #  ASCENT VARIABLES:
002164,001737: 
002165,001738: E6,1621                        SUMRATEQ           ERASE    +1                                    #  SUM OF UN-WEIGHTED JETRATE TERMS
002166,001739: E6,1623  E6,1622               SUMRATER           EQUALS   SUMRATEQ   +1                         #  SCALED AT PI/4 RADIANS/SECOND
002167,001740: 
002168,001741: E6,1623                        OLDWFORQ           ERASE    +1                                    #  OMEGA VALUE 2 SECONDS AGO
002169,001742: E6,1625  E6,1624               OLDWFORR           EQUALS   OLDWFORQ   +1                         #  SCALED AT PI/4 RADIANS/SECOND
002170,001743: 
002171,001744: E6,1625                        DBMINIMP           ERASE    +1                                    #  MINIMUM IMPULSE DEADBANDS (EQUAL IN DESC
002172,001745: E6,1627  E6,1626               MINIMPDB           EQUALS   DBMINIMP   +1                         #  AT .3 DEG, 0,-DB RESPECTIVELY FOR ASC)
002173,001746:                                                                                                  #  SCALED AT PI RADIANS
002174,001747: 
002175,001748: E6,1627                        .5ACCMNE           ERASE    +4                                    #  (1/2)(1/ACCMIN) WHICH IS THE INVERSE OF
002176,001749: E6,1634  E6,1630               .5ACCMNQ           EQUALS   .5ACCMNE   +1                         #  THE MINIMUM ACCELERATION (A CONSTANT FOR
002177,001750: E6,1634  E6,1631               .5ACCMNR           EQUALS   .5ACCMNE   +2                         #  DESCENT AND A VARIABLE FOR ASCENT DAP)
002178,001751: E6,1634  E6,1632               .5ACCMNU           EQUALS   .5ACCMNE   +3                         #  SCALED AT 2(+8)/PI
002179,001752: E6,1634  E6,1633               .5ACCMNV           EQUALS   .5ACCMNE   +4                         #  IN UNITS OF SECONDS(2)/RADIAN
002180,001753: 
002181,001754: E6,1634                        WFORP              ERASE    +1                                    #  W = K/(NOMINAL DT)
002182,001755: E6,1636  E6,1635               WFORQR             EQUALS   WFORP      +1                         #  SCALED AT 16
002183,001756: 
002184,001757: E6,1636                        (1-K)              ERASE    +1                                    #  1-K SCALED AT 1
002185,001758: E6,1640  E6,1637               (1-K)/8            EQUALS   (1-K)      +1                         #  1-K SCALED AT 8
002186,001759: 
002187,001760: E6,1640                        1/NJTSQ            ERASE    +3                                    #  1/NJETACC FOR EACH AXIS
002188,001761: 
002189,001762: E6,1644  E6,1641               1/NJTSR            EQUALS   1/NJTSQ    +1                         #  FOR DESCENT THIS IS ALWAYS 1/2JTS
002190,001763: E6,1644  E6,1642               1/NJTSU            EQUALS   1/NJTSQ    +2                         #  FOR ASCENT WITH HIGH OFFSET: 1/4JTS
002191,001764: E6,1644  E6,1643               1/NJTSV            EQUALS   1/NJTSQ    +3                         #  SCALED AT 2(8)/PI SEC(2)/RAD
002192,001765: 
002193,001766: E6,1644                        KCOEFCTR           ERASE                                          #  COUNTER FOR ASCENT DAP
002194,001767: 
002195,001768: 
002196,001769: 
002197,001770: E6,1645                        DLCDUIDX           ERASE                                          #  SAVE RATE INDEX, = 1, 0
002198,001771: E6,1646                        PJUMPADR           ERASE                                          
002199,001772: E6,1647                        QJUMPADR           ERASE                                          
002200,001773: E6,1650                        100MSPTQ           ERASE                                          
002201,001774: E6,1651  E6,1650               QR.1ST0Q           =        100MSPTQ                              
002202,001775: E6,1651                        NO.PJETS           ERASE                                          
002203,001776: 
002204,001777: 
002205,001778:                                                                                                  #  THE FOLLOWING LM DAP ERASABLES ARE ZEROED IN THE STARTDAP SECTION OF THE DAPIDLER PROGRAM AND THE COASTASC
002206,001779: 

Page 51

002208,001781:                                                                                                  #  SECTION OF THE AOSTASK.  THE ORDER MUST BE PRESERVED FOR THE INDEXING METHODS WHICH ARE EMPLOYED IN THOSE
002209,001782:                                                                                                  #  SECTIONS AND ELSEWHERE.
002210,001783: 
002211,001784: E6,1652                        AOSQ               ERASE    +3                                    #  ASCENT OFFSET ACCELERATION ESTIMATES:
002212,001785: E6,1656  E6,1653               AOSR               EQUALS   AOSQ       +1                         #  ESTIMATED EVERY 2 SECONDS BY AOSTASK.
002213,001786: E6,1656  E6,1654               AOSU               EQUALS   AOSQ       +2                         #  U,V-AXES ACCS FORMED BY VECTOR ADDITION.
002214,001787: E6,1656  E6,1655               AOSV               EQUALS   AOSQ       +3                         #  SCALED AT PI/2 RADIANS/SECOND(2).
002215,001788: 
002216,001789: E6,1656                        AOSQTERM           ERASE    +1                                    #  (.1-.05K)AOS
002217,001790: E6,1660  E6,1657               AOSRTERM           EQUALS   AOSQTERM   +1                         #  SCALED AT PI/4 RADIANS/SECOND.
002218,001791: 
002219,001792: E6,1660                        NJ+Q               ERASE    +7                                    #  2 JET OVER-RIDE FLAGS:
002220,001793: E6,1670  E6,1661               NJ-Q               EQUALS   NJ+Q       +1                         #  WHENEVER THE OFFSET ACCELERATION ABOUT
002221,001794: E6,1670  E6,1662               NJ+R               EQUALS   NJ+Q       +2                         #  AN AXIS IS SO HIGH THAT 2 JETS COULD NOT
002222,001795: 
002223,001796: E6,1670  E6,1663               NJ-R               EQUALS   NJ+Q       +3                         #  CONTROL ATTITUDE SUCCESSFULLY, THEN NJ
002224,001797: E6,1670  E6,1664               NJ+U               EQUALS   NJ+Q       +4                         #  FOR THAT AXIS (IN THE DIRECTION OPPOSING
002225,001798: E6,1670  E6,1665               NJ-U               EQUALS   NJ+Q       +5                         #  AOS) IS SET TO 1.  OTHERWISE, THE VALUE
002226,001799: E6,1670  E6,1666               NJ+V               EQUALS   NJ+Q       +6                         #  IS ZERO.  THESE FLAGS PREVENT TWO JETS
002227,001800: E6,1670  E6,1667               NJ-V               EQUALS   NJ+Q       +7                         #  FROM BEING REQUESTED TO FIGHT THE AOS.
002228,001801: 
002229,001802: E6,1670                        1/NET+2Q           ERASE    +15D                                  
002230,001803: E6,1710  E6,1671               1/NET+4Q           EQUALS   1/NET+2Q   +1                         
002231,001804: E6,1710  E6,1672               1/NET-2Q           EQUALS   1/NET+2Q   +2                         
002232,001805: E6,1710  E6,1673               1/NET-4Q           EQUALS   1/NET+2Q   +3                         
002233,001806: E6,1710  E6,1674               1/NET+2R           EQUALS   1/NET+2Q   +4                         
002234,001807: E6,1710  E6,1675               1/NET+4R           EQUALS   1/NET+2Q   +5                         
002235,001808: E6,1710  E6,1676               1/NET-2R           EQUALS   1/NET+2Q   +6                         
002236,001809: E6,1710  E6,1677               1/NET-4R           EQUALS   1/NET+2Q   +7                         
002237,001810: E6,1710  E6,1700               1/NET+1U           EQUALS   1/NET+2Q   +8D                        
002238,001811: E6,1710  E6,1701               1/NET+2U           EQUALS   1/NET+2Q   +9D                        
002239,001812: E6,1710  E6,1702               1/NET-1U           EQUALS   1/NET+2Q   +10D                       
002240,001813: E6,1710  E6,1703               1/NET-2U           EQUALS   1/NET+2Q   +11D                       
002241,001814: E6,1710  E6,1704               1/NET+1V           EQUALS   1/NET+2Q   +12D                       
002242,001815: E6,1710  E6,1705               1/NET+2V           EQUALS   1/NET+2Q   +13D                       
002243,001816: E6,1710  E6,1706               1/NET-1V           EQUALS   1/NET+2Q   +14D                       
002244,001817: E6,1710  E6,1707               1/NET-2V           EQUALS   1/NET+2Q   +15D                       
002245,001818: E6,1710                        SIGNTAG            ERASE                                          
002246,001819: 
002247,001820: E6,1711  E6,1700               1/NETACS           EQUALS   1/NET+1U                              
002248,001821: 
002249,001822: E6,1711                        1/ACCQ             ERASE    +1                                    #  INVERSE NET ACCELERATIONS FOR URGENCY.
002250,001823: E6,1713  E6,1712               1/ACCR             EQUALS   1/ACCQ     +1                         #  SCALED AT 2(+8)/PI SECONDS(2)/RADIAN.
002251,001824: 
002252,001825: E6,1713                        1/AMINQ            ERASE    +1                                    #  INVERSE MIN ACCELERATIONS FOR URGENCY.
002253,001826: E6,1715  E6,1714               1/AMINR            EQUALS   1/AMINQ    +1                         #  SCALED AT 2(+8)/PI SECONDS(2)/RADIAN.
002254,001827: 
002255,001828: E6,1715                        1/AMINU            ERASE                                          
002256,001829: E6,1716                        1/AMINV            ERASE                                          
002257,001830: 
002258,001831: E6,1717                        URGRATQ            ERASE    +1                                    #  URGENCY FUNCTION CORRECTION FACTOR RATIO
002259,001832: E6,1721  E6,1720               URGRATR            EQUALS   URGRATQ    +1                         #  SCALED AT 1.
002260,001833: 

Page 52

002262,001835:                                                                                                  #  ITEMP AND RUPTREG ASSIGNMENTS IN LM DAP:
002263,001836: 
002264,001837:                                                                                                  #  FOR EIGHTBAL SECTION:
002265,001838: 
002266,001839: E6,1721     0061               AXISCNTR           EQUALS   ITEMP1                                #  LOOPCTR AND VARIABLE INDEXER.
002267,001840: E6,1721     0062               TEMPERR            EQUALS   ITEMP2                                #  TEMPORARY STORAGE FOR BOUNDED ERROR.
002268,001841: 
002269,001842:                                                                                                  #  FOR P-AXIS PROGRAM:
002270,001843: 
002271,001844: E6,1721     0065               REL                EQUALS   ITEMP5                                #  TABLE INDEX USED BY P JET SELECT ROUTINE
002272,001845: E6,1721     0066               CTR                EQUALS   ITEMP6                                #  TABLE ENTRY COUNTER USED BY P JET SELECT
002273,001846: 
002274,001847:                                                                                                  #  FOR POLTYPEP PROGRAM:
002275,001848: 
002276,001849: E6,1721     0070               TRANONLY           EQUALS   RUPTREG1                              #  FLAG FOR PURE TRANSLATION REQUESTS
002277,001850: E6,1721     0071               ANYTRANS           EQUALS   RUPTREG2                              #  FLAG TO INDICATE DIRECTION OF TRAN..
002278,001851: E6,1721     0072               TRANSNOW           EQUALS   RUPTREG3                              #  FLAG TO INDICATE TRANS. W/ ROT. POSSIBLE
002279,001852: E6,1721     0073               TRANSAVE           EQUALS   RUPTREG4                              #  FLAG AND HOLDER FOR SAVED TRANS. POLICY
002280,001853: E6,1721     0061               NETACNDX           EQUALS   ITEMP1                                #  INDEX TO INDICATE AXIS, NO., AND DIRECT.
002281,001854: 
002282,001855: E6,1721     0062               TJETADR            EQUALS   ITEMP2                                #  GENADR OF RETURN TO TJETLAW
002283,001856: E6,1721     0063               POLRELOC           EQUALS   ITEMP3                                #  POLICY TABLE INDEX (RELATIVE ADDRESS)
002284,001857: E6,1721     0064               LOOPCTR            EQUALS   ITEMP4                                #  NUMBER OF ALTERNATE POLICIES.
002285,001858: E6,1721     0065               THISPOLY           EQUALS   ITEMP5                                #  STORED POLICY TO ELIMINATE INDEXING.
002286,001859: E6,1721     0066               1/NETACC           EQUALS   ITEMP6                                #  INV. NET ACC. FOR TJETLAW.
002287,001860: 
002288,001861: E6,1721     0066               1/NJETAC           =        1/NETACC                              
002289,001862: 
002290,001863: E6,1721  E6,1670               1/2JTSQ            =        1/NET+2Q                              
002291,001864: E6,1721  E6,1674               1/2JTSR            =        1/NET+2R                              
002292,001865: E6,1721  E6,1701               1/2JETSU           =        1/NET+2U                              
002293,001866: E6,1721  E6,1705               1/2JETSV           =        1/NET+2V                              
002294,001867: 
002295,001868: 
002296,001869: 
002297,001870:                                                                                                  #  FOR AOSTASK PROGRAM:
002298,001871: 
002299,001872: E6,1721     0061               K                  EQUALS   ITEMP1                                
002300,001873: E6,1721     0061               .1-.05K            EQUALS   ITEMP1                                
002301,001874: E6,1721     0062               COEFFA             EQUALS   ITEMP2                                
002302,001875: E6,1721     0062               .5-.5COF           EQUALS   ITEMP2                                
002303,001876: 
002304,001877:                                                                                                  #  MPAC DESIGNATIONS FOR AOSJOB:
002305,001878: 
002306,001879: E6,1721     0144               JOBAXES            EQUALS   MPAC                                  #  ADJACENT ENTRY INDEXER.
002307,001880: E6,1721     0145               NJPLACE            EQUALS   MPAC       +1                         #  ONE APART ENTRY INDEXER.
002308,001881: E6,1721     0146               TABPLACE           EQUALS   MPAC       +2                         #  THREE APART ENTRY INDEXER.
002309,001882: E6,1721     0147               TEMPAOS            EQUALS   MPAC       +3                         #  - AOS TEMPORARY STORAGE (SCALED AT PI/2)
002310,001883: E6,1721     0150               TEMPACC            EQUALS   MPAC       +4                         #  JET ACCELERATION TEMP.  (SCALED AT PI/2)
002311,001884: E6,1721     0151               TEMPNET            EQUALS   MPAC       +5                         #  NET ACCELERATION TEMP.  (SCALED AT PI/2)

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