Source Code

   YAYUL: ASSEMBLE REVISION 5 OF PROGRAM BOREALIS       BY MSTEWART MAR. 27,2017
This is a modern AGC system self-test program, though based on the Apollo-era AURORA 12 program, and was not written by the original AGC developers, but rather by Mike Stewart. All of the original AURORA 12 DAP code added by the DAP Group has been removed, and extensive new system test code has been added in its place. This allows more in-depth testing of CPU behavior, both in AGC software simulations and hardware simulations.

000252,000002:                                                                                                  ## Copyright:   Public domain.
000253,000003:                                                                                                  ## Filename:    ERASABLE_ASSIGNMENTS.agc
000254,000004:                                                                                                  ## Purpose:     This program is designed to extensively test the Apollo Guidance Computer
000255,000005:                                                                                                  ##              (specifically the LM instantiation of it). It is built on top of a heavily
000256,000006:                                                                                                  ##              stripped-down Aurora 12, with all code ostensibly added by the DAP Group
000257,000007:                                                                                                  ##              removed. Instead Borealis expands upon the tests provided by Aurora,
000258,000008:                                                                                                  ##              including corrected tests from Retread 44 and tests from Ron Burkey's
000259,000009:                                                                                                  ##              Validation.
000260,000010:                                                                                                  ## Assembler:   yaYUL
000261,000011:                                                                                                  ## Contact:     Mike Stewart <mastewar1@gmail.com>.
000262,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
000263,000013:                                                                                                  ## Mod history: 2016-12-20 MAS  Created from Aurora 12 (with much DAP stuff removed).
000264,000014:                                                                                                  ##              2016-12-21 MAS  Pulled in erasables for Retread instruction checks.
000265,000015:                                                                                                  ##              2017-01-04 MAS  Added ERESTORE, used by Sunburst's erasable mem check.
000266,000016:                                                                                                  ##              2017-01-15 MAS  Added T4TEMP and LASTIMER for use with timer/EDRUPT tests.
000267,000017: 
000268,000018: ???????                        A                  EQUALS   0                                     
000269,000019: ???????                        L                  EQUALS   1                                     #  L AND Q ARE BOTH CHANNELS AND REGISTERS.
000270,000020: ???????                        Q                  EQUALS   2                                     
000271,000021: ???????                        EBANK              EQUALS   3                                     
000272,000022: ???????                        FBANK              EQUALS   4                                     
000273,000023: ???????                        Z                  EQUALS   5                                     #  ADJACENT TO FBANK AND BBANK FOR DXCH Z
000274,000024: ???????                        BBANK              EQUALS   6                                     #  (DTCB) AND DXCH FBANK (DTCF).
000275,000025:                                                                                                  #  REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
000276,000026: 
000277,000027: ???????                        ARUPT              EQUALS   10                                    #  INTERRUPT STORAGE.
000278,000028: ???????                        LRUPT              EQUALS   11                                    
000279,000029: ???????                        QRUPT              EQUALS   12                                    
000280,000030: ???????                        SAMPTIME           EQUALS   13                                    #  SAMPLED TIME 1 & 2.
000281,000031: ???????                        ZRUPT              EQUALS   15                                    #  (13 AND 14 ARE SPARES.)
000282,000032: ???????                        BANKRUPT           EQUALS   16                                    #  USUALLY HOLDS FBANK OR BBANK.
000283,000033: ???????                        BRUPT              EQUALS   17                                    #  RESUME ADDRESS AS WELL.
000284,000034: 
000285,000035: ???????                        CYR                EQUALS   20                                    
000286,000036: ???????                        SR                 EQUALS   21                                    
000287,000037: ???????                        CYL                EQUALS   22                                    
000288,000038: ???????                        EDOP               EQUALS   23                                    #  EDITS INTERPRETIVE OPERATION CODE PAIRS.
000289,000039: 
000290,000040: 
000291,000041: ???????                        TIME2              EQUALS   24                                    
000292,000042: ???????                        TIME1              EQUALS   25                                    
000293,000043: ???????                        TIME3              EQUALS   26                                    
000294,000044: ???????                        TIME4              EQUALS   27                                    
000295,000045: ???????                        TIME5              EQUALS   30                                    
000296,000046: ???????                        TIME6              EQUALS   31                                    
000297,000047: ???????                        CDUX               EQUALS   32                                    
000298,000048: ???????                        CDUY               EQUALS   33                                    
000299,000049: ???????                        CDUZ               EQUALS   34                                    
000300,000050: ???????                        OPTY               EQUALS   35                                    
000301,000051: ???????                        OPTX               EQUALS   36                                    
000302,000052: ???????                        PIPAX              EQUALS   37                                    
000303,000053: ???????                        PIPAY              EQUALS   40                                    
000304,000054: ???????                        PIPAZ              EQUALS   41                                    
000305,000055: ???????                        BMAGX              EQUALS   42                                    
000306,000056: ???????                        RHCP               EQUALS   42                                    
000307,000057: ???????                        BMAGY              EQUALS   43                                    
000308,000058: ???????                        RHCY               EQUALS   43                                    
000309,000059: ???????                        BMAGZ              EQUALS   44                                    
000310,000060: ???????                        RHCR               EQUALS   44                                    
000311,000061: ???????                        INLINK             EQUALS   45                                    
000312,000062: ???????                        RNRAD              EQUALS   46                                    
000313,000063: ???????                        GYROCTR            EQUALS   47                                    
000314,000064: ???????                        GYROCMD            EQUALS   47                                    
000315,000065: ???????                        CDUXCMD            EQUALS   50                                    
000316,000066: ???????                        CDUYCMD            EQUALS   51                                    
000317,000067: 
000318,000068: ???????                        CDUZCMD            EQUALS   52                                    
000319,000069: ???????                        OPTYCMD            EQUALS   53                                    
000320,000070: ???????                        OPTXCMD            EQUALS   54                                    
000321,000071: ???????                        EMSD               EQUALS   55                                    
000322,000072: ???????                        THRUST             EQUALS   55                                    
000323,000073: ???????                        LEMONM             EQUALS   56                                    
000324,000074: ???????                        OUTLINK            EQUALS   57                                    
000325,000075: ???????                        ALTM               EQUALS   60                                    
000326,000076: 
000327,000077:    0067                                           SETLOC   67                                    #  DECODED REGISTER FOR NIGHT-WATCHMAN ALM.
000328,000078:    0067                        NEWJOB             ERASE                                          
000329,000079: 
000330,000080:    0070                        LVSQUARE           EQUALS   34D                                   #  SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
000331,000081:    0070                        LV                 EQUALS   36D                                   #  LENGTH OF VECTOR INPUT TO UNIT.
000332,000082:    0070                        X1                 EQUALS   38D                                   #  INTERPRETIVE SPECIAL REGISTERS RELATIVE
000333,000083:    0070                        X2                 EQUALS   39D                                   #  TO THE WORK AREA.
000334,000084:    0070                        S1                 EQUALS   40D                                   
000335,000085:    0070                        S2                 EQUALS   41D                                   
000336,000086:    0070                        QPRET              EQUALS   42D                                   
000337,000087: 
000338,000088: 
000339,000089:                                                                                                  #  GENERAL ERASABLE ASSIGNMENTS.
000340,000090: 
000341,000091:    0061                                           SETLOC   61                                    
000342,000092: 
000343,000093:                                                                                                  #  INTERPRETIVE SWITCH RESERVATIONS.
000344,000094: 
000345,000095:    0061                        STATE              ERASE    +3                                    #  60 SWITCHES PRESENTLY.
000346,000096: 
000347,000097:                                                                                                  #  INTERPRETIVE SWITCH BIT ASSIGNMENTS:
000348,000098: 
000349,000099:    0065                        WMATFLAG           EQUALS   0                                     
000350,000100:    0065                        JSWITCH            EQUALS   1                                     
000351,000101:    0065                        MIDFLAG            EQUALS   2                                     
000352,000102:    0065                        MOONFLAG           EQUALS   3                                     
000353,000103:    0065                        NBSMBIT            EQUALS   4                                     
000354,000104:    0065                        COAROFIN           EQUALS   5                                     
000355,000105:    0065                        BODYFLAG           EQUALS   6                                     
000356,000106:    0065                        IMUSE              EQUALS   7                                     
000357,000107:    0065                        RRUSE              EQUALS   8D                                    
000358,000108:    0065                        RRNBSW             EQUALS   9D                                    
000359,000109:    0065                        LOKONSW            EQUALS   10D                                   
000360,000110:                                                                                                  #  END OF SWITCH ASSIGNMENTS
000361,000111: 
000362,000112:                                                                                                  #        THE FOLLOWING SET COMPRISES THE INTERRUPT TEMPORARY STORAGE POO
000363,000113: 
000364,000114:                                                                                                  #        ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
000365,000115:                                                                                                  #  IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
000366,000116: 
000367,000117:    0065                        ITEMP1             ERASE                                          
000368,000118:    0066     0065               WAITEXIT           EQUALS   ITEMP1                                
000369,000119:    0066     0065               EXECTEM1           EQUALS   ITEMP1                                
000370,000120: 
000371,000121:    0066                        ITEMP2             ERASE                                          
000372,000122:    0067     0066               WAITBANK           EQUALS   ITEMP2                                
000373,000123:    0067     0066               EXECTEM2           EQUALS   ITEMP2                                
000374,000124: 
000375,000125:    0070                                           SETLOC   70                                    
000376,000126: 
000377,000127:    0070                        ITEMP3             ERASE                                          
000378,000128:    0071     0070               RUPTSTOR           EQUALS   ITEMP3                                
000379,000129:    0071     0070               WAITADR            EQUALS   ITEMP3                                
000380,000130:    0071     0070               NEWPRIO            EQUALS   ITEMP3                                
000381,000131: 
000382,000132:    0071                        ITEMP4             ERASE                                          
000383,000133:    0072     0071               LOCCTR             EQUALS   ITEMP4                                
000384,000134:    0072     0071               WAITTEMP           EQUALS   ITEMP4                                
000385,000135: 
000386,000136:    0072                        ITEMP5             ERASE                                          
000387,000137:    0073     0072               NEWLOC             EQUALS   ITEMP5                                
000388,000138: 
000389,000139:    0073                        ITEMP6             ERASE                                          
000390,000140:    0074     0073               NEWLOC+1           EQUALS   ITEMP6                                #  DP ADDRESS.
000391,000141: 
000392,000142:    0074                        RUPTREG1           ERASE                                          
000393,000143:    0075                        RUPTREG2           ERASE                                          
000394,000144:    0076                        RUPTREG3           ERASE                                          
000395,000145:    0077                        RUPTREG4           ERASE                                          
000396,000146:    0100     0077               KEYTEMP1           EQUALS   RUPTREG4                              
000397,000147:    0100     0077               DSRUPTEM           EQUALS   RUPTREG4                              
000398,000148: 
000399,000149:                                                                                                  #        THE FOLLOWING ARE EXECUTIVE TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOB INQUIRIES.
000400,000150:    0100                        INTB15+            ERASE                                          #  REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
000401,000151:    0101     0100               DSEXIT             =        INTB15+                               #  RETURN FOR DSPIN
000402,000152:    0101     0100               EXITEM             =        INTB15+                               #  RETURN FOR SCALE FACTOR ROUTINE SELECT
000403,000153:    0101     0100               BLANKRET           =        INTB15+                               #  RETURN FOR 2BLANK
000404,000154: 
000405,000155:    0101                        INTBIT15           ERASE                                          #  SIMILAR TO ABOVE.
000406,000156:    0102     0101               WRDRET             =        INTBIT15                              #  RETURN FOR 5BLANK
000407,000157:    0102     0101               WDRET              =        INTBIT15                              #  RETURN FOR DSPWD
000408,000158:    0102     0101               DECRET             =        INTBIT15                              #  RETURN FOR PUTCOM(DEC LOAD)
000409,000159:    0102     0101               21/22REG           =        INTBIT15                              #  TEMP FOR CHARIN
000410,000160: 
000411,000161:                                                                                                  #        THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
000412,000162: 
000413,000163:    0102                        ADDRWD             ERASE                                          #  12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
000414,000164:    0103                        POLISH             ERASE                                          #  HOLDS CADR MADE FROM POLISH ADDRESS.
000415,000165:    0104     0103               UPDATRET           =        POLISH                                #  RETURN FOR UPDATNN, UPDATVB
000416,000166:    0104     0103               CHAR               =        POLISH                                #  TEMP FOR CHARIN
000417,000167:    0104     0103               ERCNT              =        POLISH                                #  COUNTER FOR ERROR LIGHT RESET
000418,000168:    0104     0103               DECOUNT            =        POLISH                                #  COUNTER FOR SCALING AND DISPLAY (DEC)
000419,000169: 
000420,000170:    0104                        FIXLOC             ERASE                                          #  WORK AREA ADDRESS.
000421,000171: 
000422,000172:    0105                        OVFIND             ERASE                                          #  SET NON-ZERO ON OVERFLOW.
000423,000173: 
000424,000174:    0106                        VBUF               ERASE    +5                                    #  TEMPORARY STORAGE USED FOR VECTORS.
000425,000175:    0114     0106               SGNON              =        VBUF                                  #  TEMP FOR +,- ON
000426,000176:    0114     0106               NOUNTEM            =        VBUF                                  #  COUNTER FOR MIXNOUN FETCH
000427,000177:    0114     0106               DISTEM             =        VBUF                                  #  COUNTER FOR OCTAL DISPLAY VERBS
000428,000178:    0114     0106               DECTEM             =        VBUF                                  #  COUNTER FOR FETCH (DEC DISPLAY VERBS)
000429,000179: 
000430,000180:    0114     0107               SGNOFF             =        VBUF       +1                         #  TEMP FOR +,- ON
000431,000181:    0114     0107               NVTEMP             =        VBUF       +1                         #  TEMP FOR NVSUB
000432,000182:    0114     0107               SFTEMP1            =        VBUF       +1                         #  STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
000433,000183: 
000434,000184:    0114     0110               CODE               =        VBUF       +2                         #  FOR DSPIN
000435,000185:    0114     0110               SFTEMP2            =        VBUF       +2                         #  STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
000436,000186:    0114     0111               MIXTEMP            =        VBUF       +3                         #  FOR MIXNOUN DATA
000437,000187:    0114     0111               SIGNRET            =        VBUF       +3                         #  RETURN FOR +,- ON
000438,000188: 
000439,000189:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
000440,000190: 
000441,000191:    0114                        BUF                ERASE    +2                                    #  TEMPORARY SCALAR STORAGE.
000442,000192:    0117                        BUF2               ERASE    +1                                    
000443,000193:    0121     0114               INDEXLOC           EQUALS   BUF                                   #  CONTAINS ADDRESS OF SPECIFIED INDEX.
000444,000194:    0121     0114               SWWORD             EQUALS   BUF                                   #  ADDRESS OF SWITCH WORD.
000445,000195:    0121     0115               SWBIT              EQUALS   BUF        +1                         #  SWITCH BIT WITHIN SWITCH WORD.
000446,000196:    0121                        MPTEMP             ERASE                                          #  TEMPORARY USED IN MULTIPLY AND SHIFT.
000447,000197:    0122                        DOTINC             ERASE                                          #  COMPONENT INCREMENT FOR DOT SUBROUTINE.
000448,000198:    0123     0122               DVSIGN             EQUALS   DOTINC                                #  DETERMINES SIGN OF DDV RESULT.
000449,000199:    0123     0122               ESCAPE             EQUALS   DOTINC                                #  USED IN ARCSIN/ARCCOS.
000450,000200:    0123     0122               ENTRET             =        DOTINC                                #  EXIT FROM ENTER
000451,000201: 
000452,000202:    0123                        DOTRET             ERASE                                          #  RETURN FROM DOT SUBROUTINE.
000453,000203:    0124     0123               DVNORMCT           EQUALS   DOTRET                                #  DIVIDEND NORMALIZATION COUNT IN DDV.
000454,000204:    0124     0123               ESCAPE2            EQUALS   DOTRET                                #  ALTERNATE ARCSIN/ARCCOS SWITCH.
000455,000205:    0124     0123               WDCNT              =        DOTRET                                #  CHAR COUNTER FOR DSPWD
000456,000206:    0124     0123               INREL              =        DOTRET                                #  INPUT BUFFER SELECTOR ( X,Y,Z, REG )
000457,000207: 
000458,000208:    0124                        MATINC             ERASE                                          #  VECTOR INCREMENT IN MXV AND VXM.
000459,000209:    0125     0124               MAXDVSW            EQUALS   MATINC                                #  +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
000460,000210:    0125     0124               POLYCNT            EQUALS   MATINC                                #  POLYNOMIAL LOOP COUNTER
000461,000211:    0125     0124               DSPMMTEM           =        MATINC                                #  DSPCOUNT SAVE FOR DSPMM
000462,000212:    0125     0124               MIXBR              =        MATINC                                #  INDICATOR FOR MIXED OR NORMAL NOUN
000463,000213: 
000464,000214:    0125                        TEM1               ERASE                                          #  EXEC TEMP
000465,000215:    0126     0125               POLYRET            =        TEM1                                  
000466,000216:    0126     0125               DSREL              =        TEM1                                  #  REL ADDRESS FOR DSPIN
000467,000217: 
000468,000218:    0126                        TEM2               ERASE                                          #  EXEC TEMP
000469,000219:    0127     0126               DSMAG              =        TEM2                                  #  MAGNITUDE STORE FOR DSPIN
000470,000220:    0127     0126               IDADDTEM           =        TEM2                                  #  MIXNOUN INDIRECT ADDRESS STORAGE
000471,000221: 
000472,000222:    0127                        TEM3               ERASE                                          #  EXEC TEMP
000473,000223:    0130     0127               COUNT              =        TEM3                                  #  FOR DSPIN
000474,000224: 
000475,000225:    0130                        TEM4               ERASE                                          #  EXEC TEMP
000476,000226:    0131     0130               LSTPTR             =        TEM4                                  #  LIST POINTER FOR GRABUSY
000477,000227:    0131     0130               RELRET             =        TEM4                                  #  RETURN FOR RELDSP
000478,000228:    0131     0130               FREERET            =        TEM4                                  #  RETURN FOR FREEDSP
000479,000229: 
000480,000230:    0131                        TEM5               ERASE                                          #  EXEC TEMP
000481,000231:    0132     0131               NOUNADD            =        TEM5                                  #  TEMP STORAGE FOR NOUN ADDRESS
000482,000232: 
000483,000233:    0132                        NNADTEM            ERASE                                          #  TEMP FOR NOUN ADDRESS TABLE ENTRY
000484,000234:    0133                        NNTYPTEM           ERASE                                          #  TEMP FOR NOUN TYPE TABLE ENTRY
000485,000235:    0134                        IDAD1TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000486,000236:                                                                                                  #  MUST = IDAD2TEM-1, = IDAD3TEM-2.
000487,000237:    0135                        IDAD2TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000488,000238:                                                                                                  #  MUST = IDAD1TEM+1, = IDAD3TEM-1.
000489,000239:    0136                        IDAD3TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000490,000240:                                                                                                  #  MUST = IDAD1TEM+2, = IDAD2TEM+1.
000491,000241:    0137                        RUTMXTEM           ERASE                                          #  TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
000492,000242: 
000493,000243: 
000494,000244: 
000495,000245:                                                                                                  #        STORAGE USED BY THE EXECUTIVE.
000496,000246: 
000497,000247:    0140                        MPAC               ERASE    +6                                    #  MULTI-PURPOSE ACCUMULATOR.
000498,000248:    0147                        MODE               ERASE                                          #  +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
000499,000249:    0150                        LOC                ERASE                                          #  LOCATION ASSOCIATED WITH JOB.
000500,000250:    0151                        BANKSET            ERASE                                          #  USUALLY CONTAINS BBANK SETTING.
000501,000251:    0152                        PUSHLOC            ERASE                                          #  WORD OF PACKED INTERPRETIVE PARAMETERS.
000502,000252:    0153                        PRIORITY           ERASE                                          #  PRIORITY OF PRESENT JOB AND WORK AREA.
000503,000253: 
000504,000254:    0154                                           ERASE    +71D                                  #  SEVEN SETS OF 12 REGISTERS EACH.
000505,000255: 
000506,000256:                                                                                                  #  THE FOLLOWING REGISTERS ARE RESERVED FOR PINBALL
000507,000257: 
000508,000258: 
000509,000259:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
000510,000260: 
000511,000261:    0264                        DSPCOUNT           ERASE                                          #  DISPLAY POSITION INDICATOR
000512,000262:    0265                        DECBRNCH           ERASE                                          #  +DEC, - DEC, OCT INDICATOR
000513,000263:    0266                        VERBREG            ERASE                                          #  VERB CODE
000514,000264:    0267                        NOUNREG            ERASE                                          #  NOUN CODE
000515,000265:    0270                        XREG               ERASE                                          #  R1 INPUT BUFFER
000516,000266:    0271                        YREG               ERASE                                          #  R2 INPUT BUFFER
000517,000267:    0272                        ZREG               ERASE                                          #  R3 INPUT BUFFER
000518,000268:    0273                        XREGLP             ERASE                                          #  LO PART OF XREG (FOR DEC CONV ONLY)
000519,000269:    0274                        YREGLP             ERASE                                          #  LO PART OF YREG (FOR DEC CONV ONLY)
000520,000270:    0275                        ZREGLP             ERASE                                          #  LO PART OF ZREG (FOR DEC CONV ONLY)
000521,000271:    0276                        MODREG             ERASE                                          #  MODE CODE
000522,000272:    0277                        DSPLOCK            ERASE                                          #  KEYBOARD/SUBROUTINE CALL INTERLOCK
000523,000273:    0300                        REQRET             ERASE                                          #  RETURN REGISTER FOR LOAD
000524,000274:    0301                        LOADSTAT           ERASE                                          #  STATUS INDICATOR FOR LOADTST
000525,000275:    0302                        CLPASS             ERASE                                          #  PASS INDICATOR CLEAR
000526,000276:    0303                        NOUT               ERASE                                          #  ACTIVITY COUNTER FOR DSPTAB
000527,000277:    0304                        NOUNCADR           ERASE                                          #  MACHINE CADR FOR NOUN
000528,000278:    0305                        MONSAVE            ERASE                                          #  N/V CODE FOR MONITOR. (= MONSAVE1-1)
000529,000279:    0306                        MONSAVE1           ERASE                                          #  NOUNCADR FOR MONITOR(MATBS) =MONSAVE+1
000530,000280:    0307                        DSPTAB             ERASE    +11D                                  #  0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
000531,000281:    0323                        CADRSTOR           ERASE                                          #  ENDIDLE STORAGE
000532,000282:    0324                        GRABLOCK           ERASE                                          #  INTERNAL INTERLOCK FOR DISPLAY SYSTEM 
000533,000283:    0325                        NVQTEM             ERASE                                          #  NVSUB STORAGE FOR CALLING ADDRESS
000534,000284:                                                                                                  #  MUST = NVBNKTEM-1
000535,000285:    0326                        NVBNKTEM           ERASE                                          #  NVSUB STORAGE FOR CALLING BANK
000536,000286:                                                                                                  #  MUST = NVQTEM+1
000537,000287:    0327                        DSPLIST            ERASE    +2                                    #  WAITING LIST FOR DSP SYST INTERNAL USE
000538,000288:    0332                        EXTVBACT           ERASE                                          #  EXTENDED VERB ACTIVITY INTERLOCK
000539,000289:    0333                        DSPTEM1            ERASE    +2                                    #  BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
000540,000290:    0336                        DSPTEM2            ERASE    +2                                    #  BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
000541,000291:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
000542,000292: 
000543,000293: 
000544,000294: 
000545,000295:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
000546,000296: 
000547,000297:    0341                        DSPCNT             ERASE                                          #  COUNTER FOR DSPOUT
000548,000298:    0342                        UPLOCK             ERASE                                          #  BIT1 = UPLINK INTERLOCK (ACTIVATED BY
000549,000299:                                                                                                  #  RECEPTION OF A BAD MESSAGE IN UPLINK)
000550,000300:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
000551,000301: 
000552,000302: 
000553,000303: 
000554,000304:                                                                                                  #         DAP STORAGE IN NON-SWITCHED ERASABLE.
000555,000305: 
000556,000306:    0343                        T6LOC              ERASE    +1                                    
000557,000307:    0345     0343               T6ADR              EQUALS   T6LOC                                 
000558,000308:    0345                        T5LOC              ERASE    +1                                    
000559,000309:    0347     0345               T5ADR              EQUALS   T5LOC                                 
000560,000310: 
000561,000311:                                                                                                  #  ASSIGNMENTS FOR T4RUPT PROGRAM
000562,000312:    0347                        T4LOC              ERASE                                          
000563,000313:    0350                        DSRUPTSW           ERASE                                          
000564,000314:    0351                        DIDFLG             ERASE                                          
000565,000315:    0352                        ALT                ERASE    +1                                    
000566,000316:    0354                        ALTRATE            ERASE                                          
000567,000317:    0355                        FINALT             ERASE    +1                                    #  (MAY NOT BE REQUIRED FOR FLIGHTS).
000568,000318:    0357                        LGYRO              ERASE                                          
000569,000319:    0360                        FORVEL             ERASE                                          
000570,000320:    0361                        LATVEL             ERASE                                          
000571,000321:    0362                        LASTYCMD           ERASE                                          
000572,000322:    0363                        LASTXCMD           ERASE                                          
000573,000323: 
000574,000324:    0364                        ALTSAVE            ERASE    +1                                    
000575,000325:    0366                        LMPCMD             ERASE                                          
000576,000326: 
000577,000327:                                                                                                  #  END OF T4RUPT ASSIGNMENTS
000578,000328: 
000579,000329: 
000580,000330: 
000581,000331:    0367                        IMODES30           ERASE                                          
000582,000332:    0370                        IMODES33           ERASE                                          
000583,000333:    0371                        MODECADR           ERASE    +2                                    
000584,000334:    0374     0371               IMUCADR            EQUALS   MODECADR                              
000585,000335:    0374     0372               AOTCADR            EQUALS   MODECADR   +1                         
000586,000336:    0374     0372               OPTCADR            EQUALS   AOTCADR                               
000587,000337:    0374     0373               RADCADR            EQUALS   MODECADR   +2                         
000588,000338: 
000589,000339:    0374                        MARKSTAT           ERASE                                          
000590,000340:    0375                        XYMARK             ERASE                                          
000591,000341:    0400                                           SETLOC   400                                   
000592,000342: 
000593,000343:                                                                                                  #  TEMPORARY PHONY ASSIGNMENTS TO KEEP PINBALL FROM HAVING BAD ASSEMBLIES
000594,000344: 
000595,000345:    0400                        THETAD             ERASE    +2                                    
000596,000346:    0403                        DELVX              ERASE    +5                                    
000597,000347:                                                                                                  #  END OF PHONY ASSIGNMENTS
000598,000348: 
000599,000349: 
000600,000350: 
000601,000351:                                                                                                  #         DOWNLINK LIST ADDRESS.
000602,000352:    0411                        DNLSTADR           ERASE                                          
000603,000353: 
000604,000354:                                                                                                  #  AGS DUMMY ID WORD
000605,000355:    0412                        AGSWORD            ERASE                                          
000606,000356:                                                                                                  #  RADAR ERASABLE
000607,000357: 
000608,000358:    0413                        RADMODES           ERASE                                          
000609,000359:    0414                        SAMPLIM            ERASE                                          
000610,000360:    0415                        SAMPLSUM           ERASE    +1                                    
000611,000361:    0417     0415               SAMPSUM            EQUALS   SAMPLSUM                              
000612,000362:    0417                        OPTYHOLD           ERASE    +1                                    
000613,000363:    0421                        TIMEHOLD           ERASE    +1                                    
000614,000364:    0423     0415               RRTARGET           EQUALS   SAMPLSUM                              #  HALF UNIT VECTOR IN SM OR NB AXES.
000615,000365:    0423                        TANG               ERASE    +1                                    #  DESIRED TRUNNION AND SHAFT ANGLES.
000616,000366:    0425     0423               MODEA              EQUALS   TANG                                  
000617,000367:    0425                        MODEB              ERASE    +1                                    #  DODES CLOBBERS TANG +2.
000618,000368:    0427     0425               NSAMP              EQUALS   MODEB                                 
000619,000369:    0427                        DESRET             ERASE                                          
000620,000370:    0430     0427               OLDATAGD           EQUALS   DESRET                                #  USED IN DATA READING ROUTINES.
000621,000371:    0430                        DESCOUNT           ERASE                                          
000622,000372:                                                                                                  #  END OF RADAR ERASABLE ASSIGNMENTS
000623,000373: 
000624,000374:    0431                        VAC1USE            ERASE                                          
000625,000375:    0432                        VAC1               ERASE    +42D                                  
000626,000376:    0505                        VAC2USE            ERASE                                          
000627,000377:    0506                        VAC2               ERASE    +42D                                  
000628,000378:    0561                        VAC3USE            ERASE                                          
000629,000379:    0562                        VAC3               ERASE    +42D                                  
000630,000380:    0635                        VAC4USE            ERASE                                          
000631,000381:    0636                        VAC4               ERASE    +42D                                  
000632,000382:    0711                        VAC5USE            ERASE                                          
000633,000383:    0712                        VAC5               ERASE    +42D                                  
000634,000384: 
000635,000385:                                                                                                  #  THESE ARE WRITTEN INTO FROM SEVERAL PROGRAMS
000636,000386: 
000637,000387:    0765                        CDUXD              ERASE                                          
000638,000388:    0766                        CDUYD              ERASE                                          
000639,000389:    0767                        CDUZD              ERASE                                          
000640,000390:    1000                                           SETLOC   1000                                  
000641,000391: 
000642,000392:                                                                                                  #  ERASABLE STORAGE FOR AVERAGE G INTEGRATOR
000643,000393: 
000644,000394:    1000                        RN                 ERASE    +5                                    
000645,000395:    1006                        VN                 ERASE    +5                                    
000646,000396:    1014                        NSHIFT             ERASE                                          
000647,000397:    1015                        XSHIFT             ERASE                                          
000648,000398:    1016                        UNITR              ERASE    +5                                    
000649,000399:    1024                        UNITW              ERASE    +5                                    
000650,000400:    1032                        RMAG               ERASE    +1                                    
000651,000401:    1034                        RMAGSQ             ERASE    +1                                    
000652,000402:    1036                        GRAVITY            ERASE    +5                                    
000653,000403:    1044                        DELV               ERASE    +5                                    
000654,000404:    1052                        DELTAT             ERASE    +1                                    
000655,000405:    1054                        RN1                ERASE    +5                                    
000656,000406:    1062                        VN1                ERASE    +5                                    
000657,000407:                                                                                                  #        WAITLIST REPEAT FLAG:
000658,000408: 
000659,000409:    1070                        RUPTAGN            ERASE                                          
000660,000410:    1071     1070               KEYTEMP2           =        RUPTAGN                               #  TEMP FOR KEYRUPT, UPRUPT
000661,000411: 
000662,000412:                                                                                                  #        PHASE TABLE AND RESTART COUNTER.
000663,000413: 
000664,000414:    1071                        -PHASE0            ERASE                                          
000665,000415:    1072                        PHASE0             ERASE                                          
000666,000416:    1073                        -PHASE1            ERASE                                          
000667,000417:    1074                        PHASE1             ERASE                                          
000668,000418:    1075                        -PHASE2            ERASE                                          
000669,000419:    1076                        PHASE2             ERASE                                          
000670,000420:    1077                        -PHASE3            ERASE                                          
000671,000421:    1100                        PHASE3             ERASE                                          
000672,000422:    1101                        -PHASE4            ERASE                                          
000673,000423:    1102                        PHASE4             ERASE                                          
000674,000424:    1103                        -PHASE5            ERASE                                          
000675,000425:    1104                        PHASE5             ERASE                                          
000676,000426: 
000677,000427:                                                                                                  #  ERASABLE FOR SINGLE PRECISION SUBROUTINES.
000678,000428: 
000679,000429:    1105                        HALFY              ERASE                                          
000680,000430:    1106                        ROOTRET            ERASE                                          
000681,000431:    1107                        SQRARG             ERASE                                          
000682,000432:    1110     1105               TEMK               EQUALS   HALFY                                 
000683,000433:    1110     1106               SQ                 EQUALS   ROOTRET                               
000684,000434: 
000685,000435:    1110                        1/PIPADT           ERASE                                          #  IMU COMPENSATION PACKAGE
000686,000436:    1111     1110               OLDBT1             =        1/PIPADT                              
000687,000437: 
000688,000438:                                                                                                  #  ASSIGNMENTS RESERVED EXCLUSIVELY FOR SELF-CHECK
000689,000439:    1111                        SELFERAS           ERASE    1360       -          1377            
000690,000440: 
000691,000441:    1111                        SELFRET            =        1360                                  
000692,000442:    1111                        SMODE              =        1361                                  
000693,000443:    1111                        REDOCTR            =        1362                                  #  KEEPS TRACK OF RESTARTS
000694,000444:    1111                        FAILREG            =        1363                                  
000695,000445:    1111                        SFAIL              =        1364                                  
000696,000446:    1111                        ERCOUNT            =        1365                                  
000697,000447:    1111                        SCOUNT             =        1366                                  
000698,000448:    1111                        SKEEP1             =        1371                                  
000699,000449:    1111                        SKEEP2             =        1372                                  
000700,000450:    1111                        SKEEP3             =        1373                                  
000701,000451:    1111                        SKEEP4             =        1374                                  
000702,000452:    1111                        SKEEP5             =        1375                                  
000703,000453:    1111                        SKEEP6             =        1376                                  
000704,000454:    1111                        SKEEP7             =        1377                                  
000705,000455: 
000706,000456:    1111                        ERESTORE           ERASE                                          
000707,000457:    1112                        LASTIMER           ERASE                                          #  Stores the number of the last timer interrupt
000708,000458:    1113                        T4TEMP             ERASE                                          #  Temporary storage of TIME4 setting for use with
000709,000459:                                                                                                  #  accelerated TIME4 interrupts in self-check
000710,000460: 
000711,000461:                                                                                                  #  ADDRESSES TO BE USED FOR INDEX INSTRUCTION WITHOUT EXTRACODES
000712,000462:    1114                        NDX+0              ERASE                                          
000713,000463:    1115                        NDX+MAX            ERASE                                          
000714,000464:    1116                        NDXKEEP1           ERASE                                          
000715,000465:    1117                        NDXKEEP2           ERASE                                          
000716,000466:    1120                        NDXKEEP3           ERASE                                          
000717,000467:    1121                        NDXSELF1           ERASE                                          
000718,000468:    1122                        NDXSELF2           ERASE                                          
000719,000469: 
000720,000470:                                                                                                  #  WAITLIST TASK LISTS
000721,000471: 
000722,000472: E3,1400                                           SETLOC   1400                                  
000723,000473: 
000724,000474: E3,1400                        LST1               ERASE    +7                                    #  DELTA T'S.
000725,000475: E3,1410                        LST2               ERASE    +17D                                  #  2CADR TASK ADDRESSES.
000726,000476: 
000727,000477:                                                                                                  #  IMU COMPENSATION PARAMETERS:
000728,000478: 
000729,000479: E3,1432                        PBIASX             ERASE                                          #  PIPA BIAS AND PIPA SCALE FACTOR TERMS
000730,000480: E3,1433  E3,1432               PIPABIAS           =        PBIASX                                #        INTERMIXED.
000731,000481: E3,1433                        PIPASCFX           ERASE                                          
000732,000482: E3,1434  E3,1433               PIPASCF            =        PIPASCFX                              
000733,000483: E3,1434                        PBIASY             ERASE                                          
000734,000484: E3,1435                        PIPASCFY           ERASE                                          
000735,000485: E3,1436                        PBIASZ             ERASE                                          
000736,000486: E3,1437                        PIPASCFZ           ERASE                                          
000737,000487: 
000738,000488: E3,1440                        NBDX               ERASE                                          #  GYRO BIAS DRIFTS
000739,000489: E3,1441  E3,1440               GBIASX             =        NBDX                                  
000740,000490: E3,1441                        NBDY               ERASE                                          
000741,000491: E3,1442                        NBDZ               ERASE                                          
000742,000492: 
000743,000493: E3,1443                        ADIAX              ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
000744,000494: E3,1444                        ADIAY              ERASE                                          #  INPUT AXIS
000745,000495: E3,1445                        ADIAZ              ERASE                                          
000746,000496: 
000747,000497: E3,1446                        ADSRAX             ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
000748,000498: E3,1447                        ADSRAY             ERASE                                          #  SPIN REFERENCE AXIS
000749,000499: E3,1450                        ADSRAZ             ERASE                                          
000750,000500: 
000751,000501: E3,1451                        GCOMP              ERASE    +5                                    #  CONTAINS COMPENSATING TORQUES
000752,000502: 
000753,000503: E3,1457                        GCOMPSW            ERASE                                          
000754,000504: E3,1460  E3,1451               COMMAND            EQUALS   GCOMP                                 
000755,000505: E3,1460  E3,1454               CDUIND             EQUALS   GCOMP      +3                         
000756,000506: 
000757,000507:                                                                                                  #  STORAGE FOR RR TASKS.
000758,000508: 
000759,000509: E3,1460                        RRRET              ERASE                                          
000760,000510: E3,1461                        RDES               ERASE                                          
000761,000511: E3,1462                        RRINDEX            ERASE                                          
000762,000512: 
000763,000513:                                                                                                  #  AOT CALIBRATIONS IN AZIMUTH AND ELEVATION AT DETENTS
000764,000514: E3,1463                        AOTAZ              ERASE    +2                                    
000765,000515: E3,1466                        AOTEL              ERASE    +2                                    
000766,000516:                                                                                                  #        ASSIGNMENTS FOR PRESENTLY UNUSED NOUNS.
000767,000517: E3,1471                        AZANG              EQUALS                                         #  DELETE WHEN OPTICAL TRACKER NOUNS GONE.
000768,000518: E3,1471                        ELANG              EQUALS                                         
000769,000519: E3,1471                        DESLOTSY           EQUALS                                         
000770,000520: E3,1471                        DESLOTSX           EQUALS                                         
000771,000521: 
000772,000522: E3,1471                        ROLL               ERASE    +2                                    
000773,000523: E3,1474                        LANDMARK           ERASE    +5                                    
000774,000524: 
000775,000525:                                                                                                  #  THE FOLLOWING REGS ARE USED BY THE STANDBY VERBS
000776,000526: 
000777,000527: E3,1502                        TIMESAV            ERASE    +1                                    
000778,000528: E3,1504                        SCALSAV            ERASE    +1                                    
000779,000529: E3,1506                        TIMAR              ERASE    +1                                    
000780,000530: E3,1510                        TIMEDIFF           ERASE    +1                                    
000781,000531: 
000782,000532: E4,1400                                           SETLOC   2000                                  
000783,000533: 
000784,000534: E4,1400                        AMEMORY            ERASE    +150D                                 
000785,000535:                                                                                                  #        THE FOLLOWING A MEMORY LOCATIONS ARE USED BY MID-COURSE NAVIGATION:
000786,000536: 
000787,000537: E4,1627  E4,1400               RRECT              EQUALS   AMEMORY    +000D                      
000788,000538: E4,1627  E4,1400               RIGNTION           EQUALS   AMEMORY    +000D                      
000789,000539: E4,1627  E4,1406               VRECT              EQUALS   AMEMORY    +006D                      
000790,000540: E4,1627  E4,1406               VIGNTION           EQUALS   AMEMORY    +006D                      
000791,000541: E4,1627  E4,1414               TDELTAV            EQUALS   AMEMORY    +012D                      
000792,000542: E4,1627  E4,1414               NEWDLTAV           EQUALS   AMEMORY    +012D                      
000793,000543: E4,1627  E4,1422               TNUV               EQUALS   AMEMORY    +018D                      
000794,000544: E4,1627  E4,1422               NEWNUV             EQUALS   AMEMORY    +018D                      
000795,000545: E4,1627  E4,1430               RCV                EQUALS   AMEMORY    +024D                      
000796,000546: E4,1627  E4,1430               FOUNDR             EQUALS   AMEMORY    +024D                      
000797,000547: E4,1627  E4,1436               VCV                EQUALS   AMEMORY    +030D                      
000798,000548: E4,1627  E4,1436               FOUNDV             EQUALS   AMEMORY    +030D                      
000799,000549: E4,1627  E4,1444               TC                 EQUALS   AMEMORY    +036D                      
000800,000550: E4,1627  E4,1446               TET                EQUALS   AMEMORY    +038D                      
000801,000551: E4,1627  E4,1450               XKEP               EQUALS   AMEMORY    +040D                      
000802,000552: E4,1627  E4,1452               ALPHAV             EQUALS   AMEMORY    +042D                      
000803,000553: E4,1627  E4,1452               DELR               EQUALS   AMEMORY    +042D                      
000804,000554: E4,1627  E4,1460               BETAV              EQUALS   AMEMORY    +048D                      
000805,000555: E4,1627  E4,1460               DELVEL             EQUALS   AMEMORY    +048D                      
000806,000556: E4,1627  E4,1466               PHIV               EQUALS   AMEMORY    +054D                      
000807,000557: E4,1627  E4,1466               BVECTOR            EQUALS   AMEMORY    +054D                      
000808,000558: E4,1627  E4,1474               PSIV               EQUALS   AMEMORY    +060D                      
000809,000559: E4,1627  E4,1502               FV                 EQUALS   AMEMORY    +066D                      
000810,000560: 
000811,000561: E4,1627  E4,1510               VECTAB             EQUALS   AMEMORY    +072D                      
000812,000562: 
000813,000563: E4,1627  E4,1510               TAVEGON            EQUALS   AMEMORY    +072D                      
000814,000564: E4,1627  E4,1512               TRESUME            EQUALS   AMEMORY    +074D                      
000815,000565: E4,1627  E4,1514               RAVEGON            EQUALS   AMEMORY    +076D                      
000816,000566: E4,1627  E4,1522               VAVEGON            EQUALS   AMEMORY    +082D                      
000817,000567: E4,1627  E4,1530               RIG-4SEC           EQUALS   AMEMORY    +088D                      
000818,000568: E4,1627  E4,1554               ALPHAM             EQUALS   AMEMORY    +108D                      
000819,000569: E4,1627  E4,1556               BETAM              EQUALS   AMEMORY    +110D                      
000820,000570: E4,1627  E4,1560               TAU                EQUALS   AMEMORY    +112D                      
000821,000571: E4,1627  E4,1560               GIVENT             EQUALS   AMEMORY    +112D                      
000822,000572: E4,1627  E4,1562               DT/2               EQUALS   AMEMORY    +114D                      
000823,000573: E4,1627  E4,1564               H                  EQUALS   AMEMORY    +116D                      
000824,000574: E4,1627  E4,1566               TDEC               EQUALS   AMEMORY    +118D                      
000825,000575: E4,1627  E4,1570               FBRANCH            EQUALS   AMEMORY    +120D                      
000826,000576: E4,1627  E4,1571               HBRANCH            EQUALS   AMEMORY    +121D                      
000827,000577: E4,1627  E4,1572               GMODE              EQUALS   AMEMORY    +122D                      
000828,000578: E4,1627  E4,1573               QREADY             EQUALS   AMEMORY    +123D                      
000829,000579: E4,1627  E4,1574               MEASQ              EQUALS   AMEMORY    +124D                      
000830,000580: E4,1627  E4,1576               DELTAQ             EQUALS   AMEMORY    +126D                      
000831,000581: 
000832,000582: E4,1627  E4,1600               MEASMODE           EQUALS   AMEMORY    +128D                      
000833,000583: E4,1627  E4,1601               NVCODE             EQUALS   AMEMORY    +129D                      
000834,000584: E4,1627  E4,1602               MIDEXIT            EQUALS   AMEMORY    +130D                      
000835,000585: E4,1627  E4,1602               DSPRTRN            EQUALS   AMEMORY    +130D                      
000836,000586: E4,1627  E4,1603               INCORPEX           EQUALS   AMEMORY    +131D                      
000837,000587: E4,1627  E4,1604               STEPEXIT           EQUALS   AMEMORY    +132D                      
000838,000588: E4,1627  E4,1605               DIFEQCNT           EQUALS   AMEMORY    +133D                      
000839,000589: E4,1627  E4,1605               NORMGAM            EQUALS   AMEMORY    +133D                      
000840,000590: E4,1627  E4,1606               SCALEA             EQUALS   AMEMORY    +134D                      
000841,000591: E4,1627  E4,1607               SCALEB             EQUALS   AMEMORY    +135D                      
000842,000592: E4,1627  E4,1610               SCALDT             EQUALS   AMEMORY    +136D                      
000843,000593: E4,1627  E4,1611               SCALDELT           EQUALS   AMEMORY    +137D                      
000844,000594: E4,1627  E4,1612               SCALER             EQUALS   AMEMORY    +138D                      
000845,000595: 
000846,000596: E4,1627  E4,1613               YV                 EQUALS   AMEMORY    +139D                      
000847,000597: E4,1627  E4,1621               ZV                 EQUALS   AMEMORY    +145D                      
000848,000598: 
000849,000599: E4,1627                        PBODY              ERASE                                          
000850,000600: E4,1630                        W                  ERASE    +071D                                 
000851,000601: 
000852,000602:                                                                                                  #   THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE  ENTRY AND INITIALIZATION JOB OF THE FCS TEST FOR LEM.
000853,000603: 
000854,000604: E4,1740  E4,1400               FCSCNTR            EQUALS   AMEMORY    +000D                      
000855,000605: 
000856,000606:                                                                                                  #    THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE JETSET TASK.
000857,000607: 
000858,000608:                                                                                                  #  (OPTIMUM PRELAUNCH A C USES JETSTEP-JETSTEP +77D FOR RESTART PROOF)
000859,000609: 
000860,000610: E4,1740  E4,1401               XJBUF              EQUALS   AMEMORY    +001D                      
000861,000611: E4,1740  E4,1402               YZJBUF             EQUALS   AMEMORY    +002D                      
000862,000612: E4,1740  E4,1403               JFBUF              EQUALS   AMEMORY    +003D                      
000863,000613: E4,1740  E4,1404               FCNTR              EQUALS   AMEMORY    +004D                      
000864,000614: E4,1740  E4,1405               THBUF              EQUALS   AMEMORY    +005D                      
000865,000615: E4,1740  E4,1406               OFFTMBUF           EQUALS   AMEMORY    +006D                      
000866,000616: E4,1740  E4,1407               JETSTEP            EQUALS   AMEMORY    +007D                      
000867,000617: E4,1740  E4,1410               NTIMES             EQUALS   AMEMORY    +008D                      
000868,000618: E4,1740  E4,1420               NEXTTIME           EQUALS   AMEMORY    +016D                      
000869,000619: E4,1740  E4,1430               JETONTM            EQUALS   AMEMORY    +024D                      
000870,000620: E4,1740  E4,1440               XJETS              EQUALS   AMEMORY    +032D                      
000871,000621: E4,1740  E4,1450               YZJETS             EQUALS   AMEMORY    +040D                      
000872,000622: E4,1740  E4,1460               JETOFFTM           EQUALS   AMEMORY    +048D                      
000873,000623: 
000874,000624:                                                                                                  #     THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE ENGINE ON-OFF TASK.
000875,000625: 
000876,000626: E4,1740  E4,1470               ENGSTEP            EQUALS   AMEMORY    +056D                      
000877,000627: E4,1740  E4,1471               CYLTIMES           EQUALS   AMEMORY    +057D                      
000878,000628: E4,1740  E4,1474               NEXTCYLT           EQUALS   AMEMORY    +060D                      
000879,000629: E4,1740  E4,1477               ONTIME             EQUALS   AMEMORY    +063D                      
000880,000630: E4,1740  E4,1502               OFFTIME            EQUALS   AMEMORY    +066D                      
000881,000631: E4,1740  E4,1505               OFFTIMER           EQUALS   AMEMORY    +069D                      
000882,000632: 
000883,000633:                                                                                                  #    THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE TRIM TASK.
000884,000634: 
000885,000635: E4,1740  E4,1510               TRIMSTEP           EQUALS   AMEMORY    +072D                      
000886,000636: E4,1740  E4,1511               NUMTIMES           EQUALS   AMEMORY    +073D                      
000887,000637: E4,1740  E4,1525               STEPDLYT           EQUALS   AMEMORY    +085D                      
000888,000638: E4,1740  E4,1541               TRIMONT            EQUALS   AMEMORY    +097D                      
000889,000639: E4,1740  E4,1555               TRIMOFFT           EQUALS   AMEMORY    +109D                      
000890,000640: E4,1740  E4,1571               TRIMIND            EQUALS   AMEMORY    +121D                      
000891,000641: 
000892,000642:                                                                                                  #    THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE THROTTLE TASK.
000893,000643: 
000894,000644: E4,1740  E4,1605               THRTSTEP           EQUALS   AMEMORY    +133D                      
000895,000645: E4,1740  E4,1606               DOTIMES            EQUALS   AMEMORY    +134D                      
000896,000646: E4,1740  E4,1614               DELAY              EQUALS   AMEMORY    +140D                      
000897,000647: E4,1740  E4,1622               THR1TIME           EQUALS   AMEMORY    +146D                      
000898,000648: E4,1740  E4,1630               THCOMM1            EQUALS   AMEMORY    +152D                      
000899,000649: E4,1740  E4,1636               THCOMM2            EQUALS   AMEMORY    +158D                      
000900,000650: 
000901,000651:                                                                                                  #   THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE INTERFACE LOOK TASK.
000902,000652: 
000903,000653: E4,1740  E4,1644               30BUF1             EQUALS   AMEMORY    +164D                      
000904,000654: E4,1740  E4,1650               30BUF0             EQUALS   AMEMORY    +168D                      
000905,000655: E4,1740  E4,1654               QUITLOOK           EQUALS   AMEMORY    +172D                      
000906,000656: E4,1740  E4,1655               CHCNTR             EQUALS   AMEMORY    +173D                      
000907,000657: 
000908,000658: E5,1400                                           SETLOC   2400                                  
000909,000659:                                                                                                  #  THE FOLLOWING ERASABLE LOCATIONS ARE UTILIZED BY THE IN-FLIGHT ALIGNMENT ROUTINES
000910,000660: 
000911,000661: E5,1400                        XSM                ERASE    +17D                                  
000912,000662: E5,1422  E5,1406               YSM                =        XSM        +6                         
000913,000663: E5,1422  E5,1414               ZSM                =        XSM        +12D                       
000914,000664: E5,1422                        XDC                ERASE    +17D                                  
000915,000665: E5,1444  E5,1430               YDC                =        XDC        +6                         
000916,000666: E5,1444  E5,1436               ZDC                =        XDC        +12D                       
000917,000667: E5,1444  E5,1422               XNB                =        XDC                                   
000918,000668: E5,1444  E5,1430               YNB                =        XDC        +6                         
000919,000669: E5,1444  E5,1436               ZNB                =        XDC        +12D                       
000920,000670: E5,1444                        STARAD             ERASE    +17D                                  
000921,000671: E5,1466                        STAR               ERASE    +5                                    
000922,000672: E5,1474                        SAC                ERASE    +1                                    
000923,000673: E5,1476                        PAC                ERASE    +1                                    
000924,000674: E5,1500                        OGC                ERASE    +1                                    
000925,000675: E5,1502                        IGC                ERASE    +1                                    
000926,000676: E5,1504                        MGC                ERASE    +1                                    
000927,000677: E5,1506                        ZPRIME             =        22D                                   
000928,000678: E5,1506                        PDA                =        22D                                   
000929,000679: E5,1506                        COSTH              =        16D                                   
000930,000680: E5,1506                        SINTH              =        18D                                   
000931,000681: E5,1506                        THETA              =        20D                                   
000932,000682: E5,1506                        STARM              =        32D                                   
000933,000683: 
000934,000684: 
000935,000685: 
000936,000686:                                                                                                  #  THE FOLLOWING ERASABLE LOCATIONS ARE UTILIZED BY THE SYSTEM TESTS
000937,000687: E5,1506                        AZIMUTH            ERASE    +1                                    
000938,000688: E5,1510                        LATITUDE           ERASE    +1                                    
000939,000689: 
000940,000690: E5,1512                        EROPTN             ERASE                                          
000941,000691: E5,1513                        ERVECTOR           ERASE    +5                                    
000942,000692: E5,1521                        GYROD              ERASE    +5                                    
000943,000693: E5,1527                        LENGTHOT           ERASE                                          
000944,000694: E5,1530                        LOSVEC             ERASE    +5                                    
000945,000695: E5,1536                        NBPOS              ERASE                                          
000946,000696: E5,1537                        NDXCTR             ERASE                                          
000947,000697: E5,1540                        PIPANO             ERASE                                          
000948,000698: E5,1541                        PIPINDEX           ERASE                                          
000949,000699: E5,1542                        PIPNDX             ERASE    +1                                    
000950,000700: E5,1544                        POSITON            ERASE                                          
000951,000701: E5,1545                        QPLAC              ERASE                                          
000952,000702: 
000953,000703: E5,1546                        QPLACE             ERASE                                          
000954,000704: E5,1547                        QPLACES            ERASE                                          
000955,000705: E5,1550                        RUN                ERASE                                          
000956,000706: E5,1551                        STOREPL            ERASE                                          
000957,000707: E5,1552                        SOUTHDR            ERASE                                          
000958,000708: E5,1553                        TAZEL1             ERASE    +5                                    
000959,000709: E5,1561                        TEMPTIME           ERASE    +1                                    
000960,000710: E5,1563                        TESTNO             ERASE                                          
000961,000711: E5,1564                        TMARK              ERASE    +1                                    
000962,000712: E5,1566                        SHAFTA             ERASE                                          
000963,000713: E5,1567                        TRUNA              ERASE                                          
000964,000714: E5,1570  E5,1776               ZERONDX            =        ERCOMP     +5                         
000965,000715: E5,1570                        GENPL              ERASE    +111D                                 
000966,000716: 
000967,000717: E5,1750  E5,1570               CDUTIMEI           =        GENPL                                 
000968,000718: E5,1750  E5,1572               CDUTIMEF           =        GENPL      +2                         
000969,000719: E5,1750  E5,1574               CDUDANG            =        GENPL      +4                         
000970,000720: E5,1750  E5,1575               CDUREADF           =        GENPL      +5                         
000971,000721: E5,1750  E5,1576               CDUREADI           =        GENPL      +6                         
000972,000722: E5,1750  E5,1577               CDULIMIT           =        GENPL      +7                         
000973,000723: 
000974,000724: E5,1750  E5,1574               TEMPADD            =        GENPL      +4                         
000975,000725: E5,1750  E5,1575               TEMP               =        GENPL      +5                         
000976,000726: E5,1750  E5,1576               NOBITS             =        GENPL      +6                         
000977,000727: E5,1750  E5,1577               CHAN               =        GENPL      +7                         
000978,000728: 
000979,000729: E5,1750  E5,1600               LOS1               =        GENPL      +8D                        
000980,000730: E5,1750  E5,1606               LOS2               =        GENPL      +14D                       
000981,000731: 
000982,000732: E5,1750  E5,1614               CALCDIR            EQUALS   GENPL      +20D                       
000983,000733: E5,1750  E5,1615               CDUFLAG            EQUALS   GENPL      +21D                       
000984,000734: E5,1750  E5,1616               GYTOBETQ           EQUALS   GENPL      +22D                       
000985,000735: E5,1750  E5,1617               OPTNREG            EQUALS   GENPL      +23D                       
000986,000736: E5,1750  E5,1620               SAVE               EQUALS   GENPL      +24D                       #  THREE CONSEC LOC
000987,000737: E5,1750  E5,1623               SFCONST1           EQUALS   GENPL      +27D                       
000988,000738: E5,1750  E5,1624               TIMER              EQUALS   GENPL      +28D                       
000989,000739: 
000990,000740: E5,1750  E5,1626               DATAPL             EQUALS   GENPL      +30D                       
000991,000741: E5,1750  E5,1570               RDSP               EQUALS   GENPL                                 #  FIX LATER   POSSIBLY KEEP1
000992,000742: E5,1750  E5,1670               MASKREG            EQUALS   GENPL      +64D                       
000993,000743: E5,1750  E5,1672               CDUNDX             EQUALS   GENPL      +66D                       
000994,000744: E5,1750  E5,1673               RESULTCT           EQUALS   GENPL      +67D                       
000995,000745: E5,1750  E5,1676               COUNTPL            EQUALS   GENPL      +70D                       
000996,000746: 
000997,000747: E5,1750  E5,1677               CDUANG             EQUALS   GENPL      +71D                       
000998,000748: E5,1750  E5,1570               AINLA              =        GENPL                                 #  110 DEC OR 156 OCT LOCATIONS
000999,000749: 
001000,000750: E5,1750  E5,1570               WANGO              EQUALS   AINLA                                 #  VERT ERATE
001001,000751: E5,1750  E5,1572               WANGI              EQUALS   AINLA      +2D                        #  HO
001002,000752: E5,1750  E5,1574               WANGT              EQUALS   AINLA      +4D                        #  T
001003,000753: E5,1750  E5,1574               TORQNDX            =        WANGT                                 
001004,000754: E5,1750  E5,1576               DRIFTT             EQUALS   AINLA      +6D                        #  EAST AX
001005,000755: E5,1750  E5,1600               ALX1S              EQUALS   AINLA      +8D                        #  IN
001006,000756: E5,1750  E5,1601               CMPX1              EQUALS   AINLA      +9D                        #  IND
001007,000757: E5,1750  E5,1602               ALK                EQUALS   AINLA      +10D                       #  GAINS
001008,000758: E5,1750  E5,1616               VLAUNS             EQUALS   AINLA      +22D                       
001009,000759: E5,1750  E5,1616               THETAX             =        VLAUNS                                
001010,000760: E5,1750  E5,1620               WPLATO             EQUALS   AINLA      +24D                       
001011,000761: E5,1750  E5,1624               INTY               EQUALS   AINLA      +28D                       #  SOUTH PIP INTE
001012,000762: E5,1750  E5,1626               ANGZ               EQUALS   AINLA      +30D                       #  EAST AXIS
001013,000763: E5,1750  E5,1630               INTZ               EQUALS   AINLA      +32D                       #  EAST PIP I
001014,000764: E5,1750  E5,1632               ANGY               EQUALS   AINLA      +34D                       #  SOUTH
001015,000765: E5,1750  E5,1624               THETAN             =        INTY                                  
001016,000766: E5,1750  E5,1634               ANGX               EQUALS   AINLA      +36D                       #  VE
001017,000767: E5,1750  E5,1636               DRIFTO             EQUALS   AINLA      +38D                       #  VERT
001018,000768: E5,1750  E5,1640               DRIFTI             EQUALS   AINLA      +40D                       #  SOU
001019,000769: E5,1750  E5,1644               VLAUN              EQUALS   AINLA      +44D                       #  LAUNCH
001020,000770: E5,1750  E5,1644               FILDELV            =        VLAUN                                 
001021,000771: E5,1750  E5,1646               ACCWD              EQUALS   AINLA      +46D                       #  LAUN
001022,000772: E5,1750  E5,1646               INTVEC             =        ACCWD                                 
001023,000773: E5,1750  E5,1654               POSNV              EQUALS   AINLA      +52D                       #  LAUNC
001024,000774: E5,1750  E5,1656               DPIPAY             EQUALS   AINLA      +54D                       #  SOUTH
001025,000775: E5,1750  E5,1662               DPIPAZ             EQUALS   AINLA      +58D                       #  NORTH PIP INCREMENT
001026,000776: E5,1750  E5,1664               ALTIM              EQUALS   AINLA      +60D                       #  LENG
001027,000777: E5,1750  E5,1665               ALTIMS             EQUALS   AINLA      +61D                       #   INDEX
001028,000778: E5,1750  E5,1666               ALDK               EQUALS   AINLA      +62D                       #   TIME CONSTAN
001029,000779: E5,1750  E5,1704               DELM               EQUALS   AINLA      +76D                       
001030,000780: E5,1750  E5,1714               WPLATI             EQUALS   AINLA      +84D                       
001031,000781: E5,1750  E5,1716               GEOSAVED           EQUALS   AINLA      +86D                       
001032,000782: E5,1750  E5,1717               PREMTRXC           EQUALS   AINLA      +87D                       
001033,000783: E5,1750  E5,1720               PRELMTRX           EQUALS   AINLA      +88D                       
001034,000784: E5,1750  E5,1720               TRANSM1            =        PRELMTRX                              
001035,000785: E5,1750  E5,1742               GEOCOMPS           EQUALS   AINLA      +106D                      
001036,000786: E5,1750  E5,1743               GTSOPNDZ           EQUALS   AINLA      +107D                      
001037,000787: E5,1750  E5,1744               1SECXT             EQUALS   AINLA      +108D                      
001038,000788: E5,1750  E5,1745               GTSWTLST           EQUALS   AINLA      +109D                      
001039,000789: E5,1750  E5,1746               ERECTIME           EQUALS   AINLA      +110D                      
001040,000790: E5,1750  E5,1747               GEOMTRX            EQUALS   AINLA      +111D                      
001041,000791: E5,1750  E5,1771               ERCOMP             EQUALS   AINLA      +129D                      
001042,000792: 
001043,000793: E5,1750  E5,1570               BMEMORY            EQUALS   GENPL                                 
001044,000794: E5,1750     0405               DELVY              EQUALS   DELVX      +2                         
001045,000795: E5,1750     0407               DELVZ              EQUALS   DELVX      +4                         
001046,000796: E7,1400                                           SETLOC   3400                                  
001047,000797: 
001048,000798:                                                                                                  #        DOWNLINK STORAGE.
001049,000799: 
001050,000800: E7,1400                        LDATALST           ERASE                                          
001051,000801: E7,1401                        DNTMGOTO           ERASE                                          
001052,000802: E7,1402                        TMINDEX            ERASE                                          
001053,000803: E7,1403                        DNTMBUFF           ERASE    +21D                                  #  SNAPSHOT BUFFER.
001054,000804: 
001055,000805:                                                                                                  #        RADAR TEST STORAGE.
001056,000806: 
001057,000807: E7,1431                        RTSTDEX            ERASE                                          
001058,000808: E7,1432                        RTSTMAX            ERASE                                          #  66 FOR HI SPEED, 6 FOR LOW SPEED RR,
001059,000809:                                                                                                  #  AND 18 FOR LOW SPEED LR.
001060,000810: E7,1433                        RTSTBASE           ERASE                                          #  USED FOR CYCLIC SAMPLING.
001061,000811: E7,1434                        RTSTLOC            ERASE                                          #  GOES 0(6)RTSTMAX
001062,000812: E7,1435  E7,1434               RSTKLOC            EQUALS   RTSTLOC                               
001063,000813: E7,1435                        RSAMPDT            ERASE                                          #  PNZ FOR CYCLIC SAMPLING, -1 FOR HI SPEED
001064,000814:                                                                                                  #  INSERT +0 HERE MANUALLY TO TERMINATE TST
001065,000815: E7,1436                        RFAILCNT           ERASE                                          
001066,000816: E7,1437                        RSTACK             ERASE    +71D                                  #  BUFFERS FOR RADAR TESTING.
001067,000817: 
001068,000818:                                                                                                  #  AGS INITIALIZATION
001069,000819: E7,1547                        AGSBUFF            ERASE    +27D                                  
001070,000820:                                                                                                  #        STORAGE FOR INBIT SCANNER.
001071,000821: 
001072,000822: E7,1603                        LAST30             ERASE    +2                                    #  LAST SAMPLED INBITS.
001073,000823: E7,1606                        MSGCNT             ERASE                                          

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