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:                                                                                                  ##              2021-05-30 ABS  Added missing BODYFLAG definition.
000454,000027: 

Page 10

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

Page 11

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

Page 12

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

Page 13

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

Page 14

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

Page 15

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

Page 16

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

Page 17

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

Page 18

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

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

000843,000416:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
000844,000417: 

Page 19

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

Page 20

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

Page 21

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

Page 22

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

Page 23

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

Page 24

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

Page 25

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

Page 26

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

Page 27

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

Page 28

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

Page 29

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

Page 30

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

Page 31

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

Page 32

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

Page 33

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

Page 34

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

Page 35

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

Page 36

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

Page 37

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

Page 38

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

Page 39

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

Page 40

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

Page 41

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

Page 42

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

Page 43

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

Page 44

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

Page 45

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

Page 46

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

Page 47

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

Page 48

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

Page 49

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

Page 50

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

Page 51

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

Page 52

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