Source Code

These source code files have been transcribed or otherwise adapted from digitized images of a hardcopy from the private collection of Don Eyles. The digitization was performed by archive.org, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that the original high-quality images are available at archive.org. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

    473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP   NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.

000278,000002:                                                                                                  ## Copyright:    Public domain.
000279,000003:                                                                                                  ## Filename:     ERASABLE_ASSIGNMENTS.agc
000280,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
000281,000005:                                                                                                  ## Assembler:    yaYUL
000282,000006:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
000283,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
000284,000008:                                                                                                  ## Pages:        7-25
000285,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
000286,000010:                                                                                                  ##               2016-10-04 HG   Insert missed statements
000287,000011:                                                                                                  ##               2016-10-12 HG   add missing  THRUST  EQUALS  55
000288,000012:                                                                                                  ##                               fix label   SQRANG -> SQRARG
000289,000013:                                                                                                  ##               2016-10-15 HG   fix label   LASTXMCD -> LASTXCMD  
000290,000014:                                                                                                  ##               2016-10-16 HG   FIX LABEL   SCALSAVE -> SCALSAV                   
000291,000015:                                                                                                  ##               2016-12-07 RSB  Proofed comments with octopus/ProoferComments
000292,000016:                                                                                                  ##                               and made a few changes.
000293,000017:                                                                                                  ##
000294,000018:                                                                                                  ## This source code has been transcribed or otherwise adapted from
000295,000019:                                                                                                  ## digitized images of a hardcopy from the private collection of
000296,000020:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
000297,000021:                                                                                                  ##
000298,000022:                                                                                                  ## Notations on the hardcopy document read, in part:
000299,000023:                                                                                                  ##
000300,000024:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
000301,000025:                                                                                                  ##       NOV 10, 1966
000302,000026:                                                                                                  ##
000303,000027:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
000304,000028:                                                                                                  ##       date of the program revision or the assembly.]
000305,000029:                                                                                                  ##
000306,000030:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent
000307,000031:                                                                                                  ## reduction in image quality) are available online at
000308,000032:                                                                                                  ##       https://www.ibiblio.org/apollo.
000309,000033:                                                                                                  ## The original high-quality digital images are available at archive.org:
000310,000034:                                                                                                  ##       https://archive.org/details/aurora00dapg
000311,000035: 

Page 7

000313,000037: ???????                        A                  EQUALS   0                                     
000314,000038: ???????                        L                  EQUALS   1                                     #  L AND Q ARE BOTH CHANNELS AND REGISTERS.
000315,000039: ???????                        Q                  EQUALS   2                                     
000316,000040: ???????                        EBANK              EQUALS   3                                     
000317,000041: ???????                        FBANK              EQUALS   4                                     
000318,000042: ???????                        Z                  EQUALS   5                                     #  ADJACENT TO FBANK AND BBANK FOR DXCH Z
000319,000043: ???????                        BBANK              EQUALS   6                                     #  (DTCB) AND DXCH FBANK (DTCF).
000320,000044:                                                                                                  #  REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
000321,000045: 
000322,000046: ???????                        ARUPT              EQUALS   10                                    #  INTERRUPT STORAGE.
000323,000047: ???????                        LRUPT              EQUALS   11                                    
000324,000048: ???????                        QRUPT              EQUALS   12                                    
000325,000049: ???????                        SAMPTIME           EQUALS   13                                    #  SAMPLED TIME 1 & 2.
000326,000050: ???????                        ZRUPT              EQUALS   15                                    #  (13 AND 14 ARE SPARES.)
000327,000051: ???????                        BANKRUPT           EQUALS   16                                    #  USUALLY HOLDS FBANK OR BBANK.
000328,000052: ???????                        BRUPT              EQUALS   17                                    #  RESUME ADDRESS AS WELL.
000329,000053: 
000330,000054: ???????                        CYR                EQUALS   20                                    
000331,000055: ???????                        SR                 EQUALS   21                                    
000332,000056: ???????                        CYL                EQUALS   22                                    
000333,000057: ???????                        EDOP               EQUALS   23                                    #  EDITS INTERPRETIVE OPERATION CODE PAIRS.
000334,000058: 
000335,000059: 
000336,000060: ???????                        TIME2              EQUALS   24                                    
000337,000061: ???????                        TIME1              EQUALS   25                                    
000338,000062: ???????                        TIME3              EQUALS   26                                    
000339,000063: ???????                        TIME4              EQUALS   27                                    
000340,000064: ???????                        TIME5              EQUALS   30                                    
000341,000065: ???????                        TIME6              EQUALS   31                                    
000342,000066: ???????                        CDUX               EQUALS   32                                    
000343,000067: ???????                        CDUY               EQUALS   33                                    
000344,000068: ???????                        CDUZ               EQUALS   34                                    
000345,000069: ???????                        OPTY               EQUALS   35                                    
000346,000070: ???????                        OPTX               EQUALS   36                                    
000347,000071: ???????                        PIPAX              EQUALS   37                                    
000348,000072: ???????                        PIPAY              EQUALS   40                                    
000349,000073: ???????                        PIPAZ              EQUALS   41                                    
000350,000074: ???????                        BMAGX              EQUALS   42                                    
000351,000075: ???????                        RHCP               EQUALS   42                                    
000352,000076: ???????                        BMAGY              EQUALS   43                                    
000353,000077: ???????                        RHCY               EQUALS   43                                    
000354,000078: ???????                        BMAGZ              EQUALS   44                                    
000355,000079: ???????                        RHCR               EQUALS   44                                    
000356,000080: ???????                        INLINK             EQUALS   45                                    
000357,000081: ???????                        RNRAD              EQUALS   46                                    
000358,000082: ???????                        GYROCTR            EQUALS   47                                    
000359,000083: ???????                        GYROCMD            EQUALS   47                                    
000360,000084: ???????                        CDUXCMD            EQUALS   50                                    
000361,000085: ???????                        CDUYCMD            EQUALS   51                                    
000362,000086: 

Page 8

000364,000088: ???????                        CDUZCMD            EQUALS   52                                    
000365,000089: ???????                        OPTYCMD            EQUALS   53                                    
000366,000090: ???????                        OPTXCMD            EQUALS   54                                    
000367,000091: ???????                        EMSD               EQUALS   55                                    
000368,000092: ???????                        THRUST             EQUALS   55                                    
000369,000093: ???????                        LEMONM             EQUALS   56                                    
000370,000094: ???????                        OUTLINK            EQUALS   57                                    
000371,000095: ???????                        ALTM               EQUALS   60                                    
000372,000096: 
000373,000097:    0067                                           SETLOC   67                                    #  DECODED REGISTER FOR NIGHT-WATCHMAN ALM.
000374,000098:    0067                        NEWJOB             ERASE                                          
000375,000099: 
000376,000100:    0070                        LVSQUARE           EQUALS   34D                                   #  SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
000377,000101:    0070                        LV                 EQUALS   36D                                   #  LENGTH OF VECTOR INPUT TO UNIT.
000378,000102:    0070                        X1                 EQUALS   38D                                   #  INTERPRETIVE SPECIAL REGISTERS RELATIVE
000379,000103:    0070                        X2                 EQUALS   39D                                   #  TO THE WORK AREA.
000380,000104:    0070                        S1                 EQUALS   40D                                   
000381,000105:    0070                        S2                 EQUALS   41D                                   
000382,000106:    0070                        QPRET              EQUALS   42D                                   
000383,000107: 

Page 9

000385,000109: 
000386,000110:                                                                                                  #  GENERAL ERASABLE ASSIGNMENTS.
000387,000111: 
000388,000112:    0061                                           SETLOC   61                                    
000389,000113: 
000390,000114:                                                                                                  #  INTERPRETIVE SWITCH RESERVATIONS.
000391,000115: 
000392,000116:    0061                        STATE              ERASE    +3                                    #  60 SWITCHES PRESENTLY.
000393,000117: 
000394,000118:                                                                                                  #  INTERPRETIVE SWITCH BIT ASSIGNMENTS:
000395,000119: 
000396,000120:    0065                        WMATFLAG           EQUALS   0                                     
000397,000121:    0065                        JSWITCH            EQUALS   1                                     
000398,000122:    0065                        MIDFLAG            EQUALS   2                                     
000399,000123:    0065                        MOONFLAG           EQUALS   3                                     
000400,000124:    0065                        NBSMBIT            EQUALS   4                                     
000401,000125:    0065                        COAROFIN           EQUALS   5                                     
000402,000126:    0065                        BODYFLAG           EQUALS   6                                     
000403,000127:    0065                        IMUSE              EQUALS   7                                     
000404,000128:    0065                        RRUSE              EQUALS   8D                                    
000405,000129:    0065                        RRNBSW             EQUALS   9D                                    
000406,000130:    0065                        LOKONSW            EQUALS   10D                                   
000407,000131:                                                                                                  #  END OF SWITCH ASSIGNMENTS
000408,000132: 
000409,000133:                                                                                                  #        THE FOLLOWING SET COMPRISES THE INTERRUPT TEMPORARY STORAGE POO
000410,000134: 
000411,000135:                                                                                                  #        ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
000412,000136:                                                                                                  #  IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
000413,000137: 
000414,000138:    0065                        ITEMP1             ERASE                                          
000415,000139:    0066     0065               WAITEXIT           EQUALS   ITEMP1                                
000416,000140:    0066     0065               EXECTEM1           EQUALS   ITEMP1                                
000417,000141: 
000418,000142:    0066                        ITEMP2             ERASE                                          
000419,000143:    0067     0066               WAITBANK           EQUALS   ITEMP2                                
000420,000144:    0067     0066               EXECTEM2           EQUALS   ITEMP2                                
000421,000145: 
000422,000146:    0070                                           SETLOC   70                                    
000423,000147: 
000424,000148:    0070                        ITEMP3             ERASE                                          
000425,000149:    0071     0070               RUPTSTOR           EQUALS   ITEMP3                                
000426,000150:    0071     0070               WAITADR            EQUALS   ITEMP3                                
000427,000151:    0071     0070               NEWPRIO            EQUALS   ITEMP3                                
000428,000152: 
000429,000153:    0071                        ITEMP4             ERASE                                          
000430,000154:    0072     0071               LOCCTR             EQUALS   ITEMP4                                
000431,000155:    0072     0071               WAITTEMP           EQUALS   ITEMP4                                
000432,000156: 
000433,000157:    0072                        ITEMP5             ERASE                                          

Page 10

000435,000159:    0073     0072               NEWLOC             EQUALS   ITEMP5                                
000436,000160: 
000437,000161:    0073                        ITEMP6             ERASE                                          
000438,000162:    0074     0073               NEWLOC+1           EQUALS   ITEMP6                                #  DP ADDRESS.
000439,000163: 
000440,000164:    0074                        RUPTREG1           ERASE                                          
000441,000165:    0075                        RUPTREG2           ERASE                                          
000442,000166:    0076                        RUPTREG3           ERASE                                          
000443,000167:    0077                        RUPTREG4           ERASE                                          
000444,000168:    0100     0077               KEYTEMP1           EQUALS   RUPTREG4                              
000445,000169:    0100     0077               DSRUPTEM           EQUALS   RUPTREG4                              
000446,000170: 
000447,000171:                                                                                                  #        THE FOLLOWING ARE EXECUTIVE TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOB INQUIRIES.
000448,000172:    0100                        INTB15+            ERASE                                          #  REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
000449,000173:    0101     0100               DSEXIT             =        INTB15+                               #  RETURN FOR DSPIN
000450,000174:    0101     0100               EXITEM             =        INTB15+                               #  RETURN FOR SCALE FACTOR ROUTINE SELECT
000451,000175:    0101     0100               BLANKRET           =        INTB15+                               #  RETURN FOR 2BLANK
000452,000176: 
000453,000177:    0101                        INTBIT15           ERASE                                          #  SIMILAR TO ABOVE.
000454,000178:    0102     0101               WRDRET             =        INTBIT15                              #  RETURN FOR 5BLANK
000455,000179:    0102     0101               WDRET              =        INTBIT15                              #  RETURN FOR DSPWD
000456,000180:    0102     0101               DECRET             =        INTBIT15                              #  RETURN FOR PUTCOM(DEC LOAD)
000457,000181:    0102     0101               21/22REG           =        INTBIT15                              #  TEMP FOR CHARIN
000458,000182: 
000459,000183:                                                                                                  #        THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
000460,000184: 
000461,000185:    0102                        ADDRWD             ERASE                                          #  12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
000462,000186:    0103                        POLISH             ERASE                                          #  HOLDS CADR MADE FROM POLISH ADDRESS.
000463,000187:    0104     0103               UPDATRET           =        POLISH                                #  RETURN FOR UPDATNN, UPDATVB
000464,000188:    0104     0103               CHAR               =        POLISH                                #  TEMP FOR CHARIN
000465,000189:    0104     0103               ERCNT              =        POLISH                                #  COUNTER FOR ERROR LIGHT RESET
000466,000190:    0104     0103               DECOUNT            =        POLISH                                #  COUNTER FOR SCALING AND DISPLAY (DEC)
000467,000191: 
000468,000192:    0104                        FIXLOC             ERASE                                          #  WORK AREA ADDRESS.
000469,000193: 
000470,000194:    0105                        OVFIND             ERASE                                          #  SET NON-ZERO ON OVERFLOW.
000471,000195: 
000472,000196:    0106                        VBUF               ERASE    +5                                    #  TEMPORARY STORAGE USED FOR VECTORS.
000473,000197:    0114     0106               SGNON              =        VBUF                                  #  TEMP FOR +,- ON
000474,000198:    0114     0106               NOUNTEM            =        VBUF                                  #  COUNTER FOR MIXNOUN FETCH
000475,000199:    0114     0106               DISTEM             =        VBUF                                  #  COUNTER FOR OCTAL DISPLAY VERBS
000476,000200:    0114     0106               DECTEM             =        VBUF                                  #  COUNTER FOR FETCH (DEC DISPLAY VERBS)
000477,000201: 
000478,000202:    0114     0107               SGNOFF             =        VBUF       +1                         #  TEMP FOR +,- ON
000479,000203:    0114     0107               NVTEMP             =        VBUF       +1                         #  TEMP FOR NVSUB
000480,000204:    0114     0107               SFTEMP1            =        VBUF       +1                         #  STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
000481,000205: 
000482,000206:    0114     0110               CODE               =        VBUF       +2                         #  FOR DSPIN
000483,000207:    0114     0110               SFTEMP2            =        VBUF       +2                         #  STORAGE FOR SF CONST LO PART(=SFTEMP1+1)

Page 11

000485,000209:    0114     0111               MIXTEMP            =        VBUF       +3                         #  FOR MIXNOUN DATA
000486,000210:    0114     0111               SIGNRET            =        VBUF       +3                         #  RETURN FOR +,- ON
000487,000211: 
000488,000212:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
000489,000213: 
000490,000214:    0114                        BUF                ERASE    +2                                    #  TEMPORARY SCALAR STORAGE.
000491,000215:    0117                        BUF2               ERASE    +1                                    
000492,000216:    0121     0114               INDEXLOC           EQUALS   BUF                                   #  CONTAINS ADDRESS OF SPECIFIED INDEX.
000493,000217:    0121     0114               SWWORD             EQUALS   BUF                                   #  ADDRESS OF SWITCH WORD.
000494,000218:    0121     0115               SWBIT              EQUALS   BUF        +1                         #  SWITCH BIT WITHIN SWITCH WORD.
000495,000219:    0121                        MPTEMP             ERASE                                          #  TEMPORARY USED IN MULTIPLY AND SHIFT.
000496,000220:    0122                        DOTINC             ERASE                                          #  COMPONENT INCREMENT FOR DOT SUBROUTINE.
000497,000221:    0123     0122               DVSIGN             EQUALS   DOTINC                                #  DETERMINES SIGN OF DDV RESULT.
000498,000222:    0123     0122               ESCAPE             EQUALS   DOTINC                                #  USED IN ARCSIN/ARCCOS.
000499,000223:    0123     0122               ENTRET             =        DOTINC                                #  EXIT FROM ENTER
000500,000224: 
000501,000225:    0123                        DOTRET             ERASE                                          #  RETURN FROM DOT SUBROUTINE.
000502,000226:    0124     0123               DVNORMCT           EQUALS   DOTRET                                #  DIVIDEND NORMALIZATION COUNT IN DDV.
000503,000227:    0124     0123               ESCAPE2            EQUALS   DOTRET                                #  ALTERNATE ARCSIN/ARCCOS SWITCH.
000504,000228:    0124     0123               WDCNT              =        DOTRET                                #  CHAR COUNTER FOR DSPWD
000505,000229:    0124     0123               INREL              =        DOTRET                                #  INPUT BUFFER SELECTOR ( X,Y,Z, REG )
000506,000230: 
000507,000231:    0124                        MATINC             ERASE                                          #  VECTOR INCREMENT IN MXV AND VXM.
000508,000232:    0125     0124               MAXDVSW            EQUALS   MATINC                                #  +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
000509,000233:    0125     0124               POLYCNT            EQUALS   MATINC                                #  POLYNOMIAL LOOP COUNTER
000510,000234:    0125     0124               DSPMMTEM           =        MATINC                                #  DSPCOUNT SAVE FOR DSPMM
000511,000235:    0125     0124               MIXBR              =        MATINC                                #  INDICATOR FOR MIXED OR NORMAL NOUN
000512,000236: 
000513,000237:    0125                        TEM1               ERASE                                          #  EXEC TEMP
000514,000238:    0126     0125               POLYRET            =        TEM1                                  
000515,000239:    0126     0125               DSREL              =        TEM1                                  #  REL ADDRESS FOR DSPIN
000516,000240: 
000517,000241:    0126                        TEM2               ERASE                                          #  EXEC TEMP
000518,000242:    0127     0126               DSMAG              =        TEM2                                  #  MAGNITUDE STORE FOR DSPIN
000519,000243:    0127     0126               IDADDTEM           =        TEM2                                  #  MIXNOUN INDIRECT ADDRESS STORAGE
000520,000244: 
000521,000245:    0127                        TEM3               ERASE                                          #  EXEC TEMP
000522,000246:    0130     0127               COUNT              =        TEM3                                  #  FOR DSPIN
000523,000247: 
000524,000248:    0130                        TEM4               ERASE                                          #  EXEC TEMP
000525,000249:    0131     0130               LSTPTR             =        TEM4                                  #  LIST POINTER FOR GRABUSY
000526,000250:    0131     0130               RELRET             =        TEM4                                  #  RETURN FOR RELDSP
000527,000251:    0131     0130               FREERET            =        TEM4                                  #  RETURN FOR FREEDSP
000528,000252: 
000529,000253:    0131                        TEM5               ERASE                                          #  EXEC TEMP
000530,000254:    0132     0131               NOUNADD            =        TEM5                                  #  TEMP STORAGE FOR NOUN ADDRESS
000531,000255: 
000532,000256:    0132                        NNADTEM            ERASE                                          #  TEMP FOR NOUN ADDRESS TABLE ENTRY
000533,000257:    0133                        NNTYPTEM           ERASE                                          #  TEMP FOR NOUN TYPE TABLE ENTRY
000534,000258:    0134                        IDAD1TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)

Page 12

000536,000260:                                                                                                  #  MUST = IDAD2TEM-1, = IDAD3TEM-2.
000537,000261:    0135                        IDAD2TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000538,000262:                                                                                                  #  MUST = IDAD1TEM+1, = IDAD3TEM-1.
000539,000263:    0136                        IDAD3TEM           ERASE                                          #  TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000540,000264:                                                                                                  #  MUST = IDAD1TEM+2, = IDAD2TEM+1.
000541,000265:    0137                        RUTMXTEM           ERASE                                          #  TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
000542,000266: 
000543,000267: 
000544,000268: 
000545,000269:                                                                                                  #        STORAGE USED BY THE EXECUTIVE.
000546,000270: 
000547,000271:    0140                        MPAC               ERASE    +6                                    #  MULTI-PURPOSE ACCUMULATOR.
000548,000272:    0147                        MODE               ERASE                                          #  +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
000549,000273:    0150                        LOC                ERASE                                          #  LOCATION ASSOCIATED WITH JOB.
000550,000274:    0151                        BANKSET            ERASE                                          #  USUALLY CONTAINS BBANK SETTING.
000551,000275:    0152                        PUSHLOC            ERASE                                          #  WORD OF PACKED INTERPRETIVE PARAMETERS.
000552,000276:    0153                        PRIORITY           ERASE                                          #  PRIORITY OF PRESENT JOB AND WORK AREA.
000553,000277: 
000554,000278:    0154                                           ERASE    +71D                                  #  SEVEN SETS OF 12 REGISTERS EACH.
000555,000279: 

Page 13

000557,000281:                                                                                                  #  THE FOLLOWING REGISTERS ARE RESERVED FOR PINBALL
000558,000282: 
000559,000283: 
000560,000284:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
000561,000285: 
000562,000286:    0264                        DSPCOUNT           ERASE                                          #  DISPLAY POSITION INDICATOR
000563,000287:    0265                        DECBRNCH           ERASE                                          #  +DEC, - DEC, OCT INDICATOR
000564,000288:    0266                        VERBREG            ERASE                                          #  VERB CODE
000565,000289:    0267                        NOUNREG            ERASE                                          #  NOUN CODE
000566,000290:    0270                        XREG               ERASE                                          #  R1 INPUT BUFFER
000567,000291:    0271                        YREG               ERASE                                          #  R2 INPUT BUFFER
000568,000292:    0272                        ZREG               ERASE                                          #  R3 INPUT BUFFER
000569,000293:    0273                        XREGLP             ERASE                                          #  LO PART OF XREG (FOR DEC CONV ONLY)
000570,000294:    0274                        YREGLP             ERASE                                          #  LO PART OF YREG (FOR DEC CONV ONLY)
000571,000295:    0275                        ZREGLP             ERASE                                          #  LO PART OF ZREG (FOR DEC CONV ONLY)
000572,000296:    0276                        MODREG             ERASE                                          #  MODE CODE
000573,000297:    0277                        DSPLOCK            ERASE                                          #  KEYBOARD/SUBROUTINE CALL INTERLOCK
000574,000298:    0300                        REQRET             ERASE                                          #  RETURN REGISTER FOR LOAD
000575,000299:    0301                        LOADSTAT           ERASE                                          #  STATUS INDICATOR FOR LOADTST
000576,000300:    0302                        CLPASS             ERASE                                          #  PASS INDICATOR CLEAR
000577,000301:    0303                        NOUT               ERASE                                          #  ACTIVITY COUNTER FOR DSPTAB
000578,000302:    0304                        NOUNCADR           ERASE                                          #  MACHINE CADR FOR NOUN
000579,000303:    0305                        MONSAVE            ERASE                                          #  N/V CODE FOR MONITOR. (= MONSAVE1-1)
000580,000304:    0306                        MONSAVE1           ERASE                                          #  NOUNCADR FOR MONITOR(MATBS) =MONSAVE+1
000581,000305:    0307                        DSPTAB             ERASE    +11D                                  #  0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
000582,000306:    0323                        CADRSTOR           ERASE                                          #  ENDIDLE STORAGE
000583,000307:    0324                        GRABLOCK           ERASE                                          #  INTERNAL INTERLOCK FOR DISPLAY SYSTEM 
000584,000308:    0325                        NVQTEM             ERASE                                          #  NVSUB STORAGE FOR CALLING ADDRESS
000585,000309:                                                                                                  #  MUST = NVBNKTEM-1
000586,000310:    0326                        NVBNKTEM           ERASE                                          #  NVSUB STORAGE FOR CALLING BANK
000587,000311:                                                                                                  #  MUST = NVQTEM+1
000588,000312:    0327                        DSPLIST            ERASE    +2                                    #  WAITING LIST FOR DSP SYST INTERNAL USE
000589,000313:    0332                        EXTVBACT           ERASE                                          #  EXTENDED VERB ACTIVITY INTERLOCK
000590,000314:    0333                        DSPTEM1            ERASE    +2                                    #  BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
000591,000315:    0336                        DSPTEM2            ERASE    +2                                    #  BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
000592,000316:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
000593,000317: 
000594,000318: 
000595,000319: 
000596,000320:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
000597,000321: 
000598,000322:    0341                        DSPCNT             ERASE                                          #  COUNTER FOR DSPOUT
000599,000323:    0342                        UPLOCK             ERASE                                          #  BIT1 = UPLINK INTERLOCK (ACTIVATED BY
000600,000324:                                                                                                  #  RECEPTION OF A BAD MESSAGE IN UPLINK)
000601,000325:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
000602,000326: 
000603,000327: 
000604,000328: 
000605,000329:                                                                                                  #         DAP STORAGE IN NON-SWITCHED ERASABLE.
000606,000330: 

Page 14

000608,000332:    0343                        T6LOC              ERASE    +1                                    
000609,000333:    0345     0343               T6ADR              EQUALS   T6LOC                                 
000610,000334:    0345                        T5LOC              ERASE    +1                                    
000611,000335:    0347     0345               T5ADR              EQUALS   T5LOC                                 
000612,000336: 

Page 15

000614,000338:                                                                                                  #  ASSIGNMENTS FOR T4RUPT PROGRAM
000615,000339:    0347                        T4LOC              ERASE                                          
000616,000340:    0350                        DSRUPTSW           ERASE                                          
000617,000341:    0351                        DIDFLG             ERASE                                          
000618,000342:    0352                        ALT                ERASE    +1                                    
000619,000343:    0354                        ALTRATE            ERASE                                          
000620,000344:    0355                        FINALT             ERASE    +1                                    #  (MAY NOT BE REQUIRED FOR FLIGHTS).
000621,000345:    0357                        LGYRO              ERASE                                          
000622,000346:    0360                        FORVEL             ERASE                                          
000623,000347:    0361                        LATVEL             ERASE                                          
000624,000348:    0362                        LASTYCMD           ERASE                                          
000625,000349:    0363                        LASTXCMD           ERASE                                          
000626,000350: 
000627,000351:    0364                        ALTSAVE            ERASE    +1                                    
000628,000352:    0366                        LMPCMD             ERASE                                          
000629,000353: 
000630,000354:                                                                                                  #  END OF T4RUPT ASSIGNMENTS
000631,000355: 
000632,000356: 
000633,000357: 
000634,000358:    0367                        IMODES30           ERASE                                          
000635,000359:    0370                        IMODES33           ERASE                                          
000636,000360:    0371                        MODECADR           ERASE    +2                                    
000637,000361:    0374     0371               IMUCADR            EQUALS   MODECADR                              
000638,000362:    0374     0372               AOTCADR            EQUALS   MODECADR   +1                         
000639,000363:    0374     0372               OPTCADR            EQUALS   AOTCADR                               
000640,000364:    0374     0373               RADCADR            EQUALS   MODECADR   +2                         
000641,000365: 
000642,000366:    0374                        MARKSTAT           ERASE                                          
000643,000367:    0375                        XYMARK             ERASE                                          
000644,000368:    0400                                           SETLOC   400                                   
000645,000369: 

Page 16

000647,000371:                                                                                                  #  TEMPORARY PHONY ASSIGNMENTS TO KEEP PINBALL FROM HAVING BAD ASSEMBLIES
000648,000372: 
000649,000373:    0400                        THETAD             ERASE    +2                                    
000650,000374:    0403                        DELVX              ERASE    +5                                    
000651,000375:                                                                                                  #  END OF PHONY ASSIGNMENTS
000652,000376: 
000653,000377: 
000654,000378: 
000655,000379:                                                                                                  #         DOWNLINK LIST ADDRESS.
000656,000380:    0411                        DNLSTADR           ERASE                                          
000657,000381: 
000658,000382:                                                                                                  #  AGS DUMMY ID WORD
000659,000383:    0412                        AGSWORD            ERASE                                          
000660,000384:                                                                                                  #  RADAR ERASABLE
000661,000385: 
000662,000386:    0413                        RADMODES           ERASE                                          
000663,000387:    0414                        SAMPLIM            ERASE                                          
000664,000388:    0415                        SAMPLSUM           ERASE    +1                                    
000665,000389:    0417     0415               SAMPSUM            EQUALS   SAMPLSUM                              
000666,000390:    0417                        OPTYHOLD           ERASE    +1                                    
000667,000391:    0421                        TIMEHOLD           ERASE    +1                                    
000668,000392:    0423     0415               RRTARGET           EQUALS   SAMPLSUM                              #  HALF UNIT VECTOR IN SM OR NB AXES.
000669,000393:    0423                        TANG               ERASE    +1                                    #  DESIRED TRUNNION AND SHAFT ANGLES.
000670,000394:    0425     0423               MODEA              EQUALS   TANG                                  
000671,000395:    0425                        MODEB              ERASE    +1                                    #  DODES CLOBBERS TANG +2.
000672,000396:    0427     0425               NSAMP              EQUALS   MODEB                                 
000673,000397:    0427                        DESRET             ERASE                                          
000674,000398:    0430     0427               OLDATAGD           EQUALS   DESRET                                #  USED IN DATA READING ROUTINES.
000675,000399:    0430                        DESCOUNT           ERASE                                          
000676,000400:                                                                                                  #  END OF RADAR ERASABLE ASSIGNMENTS
000677,000401: 
000678,000402:    0431                        VAC1USE            ERASE                                          
000679,000403:    0432                        VAC1               ERASE    +42D                                  
000680,000404:    0505                        VAC2USE            ERASE                                          
000681,000405:    0506                        VAC2               ERASE    +42D                                  
000682,000406:    0561                        VAC3USE            ERASE                                          
000683,000407:    0562                        VAC3               ERASE    +42D                                  
000684,000408:    0635                        VAC4USE            ERASE                                          
000685,000409:    0636                        VAC4               ERASE    +42D                                  
000686,000410:    0711                        VAC5USE            ERASE                                          
000687,000411:    0712                        VAC5               ERASE    +42D                                  
000688,000412: 
000689,000413:                                                                                                  #  UNSWITCHED ERASABLE STORAGE ASSIGNMENTS FOR THE DAP
000690,000414: 
000691,000415:    0765                        DAPBOOLS           ERASE                                          
000692,000416:    0766                        T6NEXT             ERASE    +1                                    
000693,000417:    0770                        T6NEXTJT           ERASE    +2                                    
000694,000418: 
000695,000419:    0773                        DELAYCTR           ERASE                                          
000696,000420:                                                                                                  #  THESE ARE WRITTEN INTO FROM SEVERAL PROGRAMS
000697,000421: 

Page 17

000699,000423:    0774                        CDUXD              ERASE                                          
000700,000424:    0775                        CDUYD              ERASE                                          
000701,000425:    0776                        CDUZD              ERASE                                          
000702,000426:    1000                                           SETLOC   1000                                  
000703,000427: 
000704,000428:                                                                                                  #  ERASABLE STORAGE FOR AVERAGE G INTEGRATOR
000705,000429: 
000706,000430:    1000                        RN                 ERASE    +5                                    
000707,000431:    1006                        VN                 ERASE    +5                                    
000708,000432:    1014                        NSHIFT             ERASE                                          
000709,000433:    1015                        XSHIFT             ERASE                                          
000710,000434:    1016                        UNITR              ERASE    +5                                    
000711,000435:    1024                        UNITW              ERASE    +5                                    
000712,000436:    1032                        RMAG               ERASE    +1                                    
000713,000437:    1034                        RMAGSQ             ERASE    +1                                    
000714,000438:    1036                        GRAVITY            ERASE    +5                                    
000715,000439:    1044                        DELV               ERASE    +5                                    
000716,000440:    1052                        DELTAT             ERASE    +1                                    
000717,000441:    1054                        RN1                ERASE    +5                                    
000718,000442:    1062                        VN1                ERASE    +5                                    
000719,000443:                                                                                                  #        WAITLIST REPEAT FLAG:
000720,000444: 
000721,000445:    1070                        RUPTAGN            ERASE                                          
000722,000446:    1071     1070               KEYTEMP2           =        RUPTAGN                               #  TEMP FOR KEYRUPT, UPRUPT
000723,000447: 
000724,000448:                                                                                                  #        PHASE TABLE AND RESTART COUNTER.
000725,000449: 
000726,000450:    1071                        -PHASE0            ERASE                                          
000727,000451:    1072                        PHASE0             ERASE                                          
000728,000452:    1073                        -PHASE1            ERASE                                          
000729,000453:    1074                        PHASE1             ERASE                                          
000730,000454:    1075                        -PHASE2            ERASE                                          
000731,000455:    1076                        PHASE2             ERASE                                          
000732,000456:    1077                        -PHASE3            ERASE                                          
000733,000457:    1100                        PHASE3             ERASE                                          
000734,000458:    1101                        -PHASE4            ERASE                                          
000735,000459:    1102                        PHASE4             ERASE                                          
000736,000460:    1103                        -PHASE5            ERASE                                          
000737,000461:    1104                        PHASE5             ERASE                                          
000738,000462: 
000739,000463:                                                                                                  #  ERASABLE FOR SINGLE PRECISION SUBROUTINES.
000740,000464: 
000741,000465:    1105                        HALFY              ERASE                                          
000742,000466:    1106                        ROOTRET            ERASE                                          
000743,000467:    1107                        SQRARG             ERASE                                          
000744,000468:    1110     1105               TEMK               EQUALS   HALFY                                 
000745,000469:    1110     1106               SQ                 EQUALS   ROOTRET                               
000746,000470: 
000747,000471:    1110                        1/PIPADT           ERASE                                          #  IMU COMPENSATION PACKAGE
000748,000472:    1111     1110               OLDBT1             =        1/PIPADT                              
000749,000473: 

Page 18

000751,000475:                                                                                                  #  ASSIGNMENTS RESERVED EXCLUSIVELY FOR SELF-CHECK
000752,000476:    1111                        SELFERAS           ERASE    1360       -          1377            
000753,000477: 
000754,000478:    1111                        SELFRET            =        1360                                  
000755,000479:    1111                        SMODE              =        1361                                  
000756,000480:    1111                        REDOCTR            =        1362                                  #  KEEPS TRACK OF RESTARTS
000757,000481:    1111                        FAILREG            =        1363                                  
000758,000482:    1111                        SFAIL              =        1364                                  
000759,000483:    1111                        ERCOUNT            =        1365                                  
000760,000484:    1111                        SCOUNT             =        1366                                  
000761,000485:    1111                        SKEEP1             =        1371                                  
000762,000486:    1111                        SKEEP2             =        1372                                  
000763,000487:    1111                        SKEEP3             =        1373                                  
000764,000488:    1111                        SKEEP4             =        1374                                  
000765,000489:    1111                        SKEEP5             =        1375                                  
000766,000490:    1111                        SKEEP6             =        1376                                  
000767,000491:    1111                        SKEEP7             =        1377                                  
000768,000492: 
000769,000493:                                                                                                  #  WAITLIST TASK LISTS
000770,000494: 
000771,000495: E3,1400                                           SETLOC   1400                                  
000772,000496: 
000773,000497: E3,1400                        LST1               ERASE    +7                                    #  DELTA T'S.
000774,000498: E3,1410                        LST2               ERASE    +17D                                  #  2CADR TASK ADDRESSES.
000775,000499: 
000776,000500:                                                                                                  #  IMU COMPENSATION PARAMETERS:
000777,000501: 
000778,000502: E3,1432                        PBIASX             ERASE                                          #  PIPA BIAS AND PIPA SCALE FACTOR TERMS
000779,000503: E3,1433  E3,1432               PIPABIAS           =        PBIASX                                #        INTERMIXED.
000780,000504: E3,1433                        PIPASCFX           ERASE                                          
000781,000505: E3,1434  E3,1433               PIPASCF            =        PIPASCFX                              
000782,000506: E3,1434                        PBIASY             ERASE                                          
000783,000507: E3,1435                        PIPASCFY           ERASE                                          
000784,000508: E3,1436                        PBIASZ             ERASE                                          
000785,000509: E3,1437                        PIPASCFZ           ERASE                                          
000786,000510: 
000787,000511: E3,1440                        NBDX               ERASE                                          #  GYRO BIAS DRIFTS
000788,000512: E3,1441  E3,1440               GBIASX             =        NBDX                                  
000789,000513: E3,1441                        NBDY               ERASE                                          
000790,000514: E3,1442                        NBDZ               ERASE                                          
000791,000515: 
000792,000516: E3,1443                        ADIAX              ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
000793,000517: E3,1444                        ADIAY              ERASE                                          #  INPUT AXIS
000794,000518: E3,1445                        ADIAZ              ERASE                                          
000795,000519: 
000796,000520: E3,1446                        ADSRAX             ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
000797,000521: E3,1447                        ADSRAY             ERASE                                          #  SPIN REFERENCE AXIS
000798,000522: E3,1450                        ADSRAZ             ERASE                                          
000799,000523: 
000800,000524: E3,1451                        GCOMP              ERASE    +5                                    #  CONTAINS COMPENSATING TORQUES
000801,000525: 

Page 19

000803,000527: E3,1457                        GCOMPSW            ERASE                                          
000804,000528: E3,1460  E3,1451               COMMAND            EQUALS   GCOMP                                 
000805,000529: E3,1460  E3,1454               CDUIND             EQUALS   GCOMP      +3                         
000806,000530: 
000807,000531:                                                                                                  #  STORAGE FOR RR TASKS.
000808,000532: 
000809,000533: E3,1460                        RRRET              ERASE                                          
000810,000534: E3,1461                        RDES               ERASE                                          
000811,000535: E3,1462                        RRINDEX            ERASE                                          
000812,000536: 
000813,000537:                                                                                                  #  AOT CALIBRATIONS IN AZIMUTH AND ELEVATION AT DETENTS
000814,000538: E3,1463                        AOTAZ              ERASE    +2                                    
000815,000539: E3,1466                        AOTEL              ERASE    +2                                    
000816,000540:                                                                                                  #        ASSIGNMENTS FOR PRESENTLY UNUSED NOUNS.
000817,000541: E3,1471                        AZANG              EQUALS                                         #  DELETE WHEN OPTICAL TRACKER NOUNS GONE.
000818,000542: E3,1471                        ELANG              EQUALS                                         
000819,000543: E3,1471                        DESLOTSY           EQUALS                                         
000820,000544: E3,1471                        DESLOTSX           EQUALS                                         
000821,000545: 
000822,000546: E3,1471                        ROLL               ERASE    +2                                    
000823,000547: E3,1474                        LANDMARK           ERASE    +5                                    
000824,000548: 
000825,000549:                                                                                                  #  THE FOLLOWING REGS ARE USED BY THE STANDBY VERBS
000826,000550: 
000827,000551: E3,1502                        TIMESAV            ERASE    +1                                    
000828,000552: E3,1504                        SCALSAV            ERASE    +1                                    
000829,000553: E3,1506                        TIMAR              ERASE    +1                                    
000830,000554: E3,1510                        TIMEDIFF           ERASE    +1                                    
000831,000555: 
000832,000556: E4,1400                                           SETLOC   2000                                  
000833,000557: 
000834,000558: E4,1400                        AMEMORY            ERASE    +150D                                 
000835,000559:                                                                                                  #        THE FOLLOWING A MEMORY LOCATIONS ARE USED BY MID-COURSE NAVIGATION:
000836,000560: 
000837,000561: E4,1627  E4,1400               RRECT              EQUALS   AMEMORY    +000D                      
000838,000562: E4,1627  E4,1400               RIGNTION           EQUALS   AMEMORY    +000D                      
000839,000563: E4,1627  E4,1406               VRECT              EQUALS   AMEMORY    +006D                      
000840,000564: E4,1627  E4,1406               VIGNTION           EQUALS   AMEMORY    +006D                      
000841,000565: E4,1627  E4,1414               TDELTAV            EQUALS   AMEMORY    +012D                      
000842,000566: E4,1627  E4,1414               NEWDLTAV           EQUALS   AMEMORY    +012D                      
000843,000567: E4,1627  E4,1422               TNUV               EQUALS   AMEMORY    +018D                      
000844,000568: E4,1627  E4,1422               NEWNUV             EQUALS   AMEMORY    +018D                      
000845,000569: E4,1627  E4,1430               RCV                EQUALS   AMEMORY    +024D                      
000846,000570: E4,1627  E4,1430               FOUNDR             EQUALS   AMEMORY    +024D                      
000847,000571: E4,1627  E4,1436               VCV                EQUALS   AMEMORY    +030D                      
000848,000572: E4,1627  E4,1436               FOUNDV             EQUALS   AMEMORY    +030D                      
000849,000573: E4,1627  E4,1444               TC                 EQUALS   AMEMORY    +036D                      
000850,000574: E4,1627  E4,1446               TET                EQUALS   AMEMORY    +038D                      
000851,000575: E4,1627  E4,1450               XKEP               EQUALS   AMEMORY    +040D                      
000852,000576: E4,1627  E4,1452               ALPHAV             EQUALS   AMEMORY    +042D                      

Page 20

000854,000578: E4,1627  E4,1452               DELR               EQUALS   AMEMORY    +042D                      
000855,000579: E4,1627  E4,1460               BETAV              EQUALS   AMEMORY    +048D                      
000856,000580: E4,1627  E4,1460               DELVEL             EQUALS   AMEMORY    +048D                      
000857,000581: E4,1627  E4,1466               PHIV               EQUALS   AMEMORY    +054D                      
000858,000582: E4,1627  E4,1466               BVECTOR            EQUALS   AMEMORY    +054D                      
000859,000583: E4,1627  E4,1474               PSIV               EQUALS   AMEMORY    +060D                      
000860,000584: E4,1627  E4,1502               FV                 EQUALS   AMEMORY    +066D                      
000861,000585: 
000862,000586: E4,1627  E4,1510               VECTAB             EQUALS   AMEMORY    +072D                      
000863,000587: 
000864,000588: E4,1627  E4,1510               TAVEGON            EQUALS   AMEMORY    +072D                      
000865,000589: E4,1627  E4,1512               TRESUME            EQUALS   AMEMORY    +074D                      
000866,000590: E4,1627  E4,1514               RAVEGON            EQUALS   AMEMORY    +076D                      
000867,000591: E4,1627  E4,1522               VAVEGON            EQUALS   AMEMORY    +082D                      
000868,000592: E4,1627  E4,1530               RIG-4SEC           EQUALS   AMEMORY    +088D                      
000869,000593: E4,1627  E4,1554               ALPHAM             EQUALS   AMEMORY    +108D                      
000870,000594: E4,1627  E4,1556               BETAM              EQUALS   AMEMORY    +110D                      
000871,000595: E4,1627  E4,1560               TAU                EQUALS   AMEMORY    +112D                      
000872,000596: E4,1627  E4,1560               GIVENT             EQUALS   AMEMORY    +112D                      
000873,000597: E4,1627  E4,1562               DT/2               EQUALS   AMEMORY    +114D                      
000874,000598: E4,1627  E4,1564               H                  EQUALS   AMEMORY    +116D                      
000875,000599: E4,1627  E4,1566               TDEC               EQUALS   AMEMORY    +118D                      
000876,000600: E4,1627  E4,1570               FBRANCH            EQUALS   AMEMORY    +120D                      
000877,000601: E4,1627  E4,1571               HBRANCH            EQUALS   AMEMORY    +121D                      
000878,000602: E4,1627  E4,1572               GMODE              EQUALS   AMEMORY    +122D                      
000879,000603: E4,1627  E4,1573               QREADY             EQUALS   AMEMORY    +123D                      
000880,000604: E4,1627  E4,1574               MEASQ              EQUALS   AMEMORY    +124D                      
000881,000605: E4,1627  E4,1576               DELTAQ             EQUALS   AMEMORY    +126D                      
000882,000606: 
000883,000607: E4,1627  E4,1600               MEASMODE           EQUALS   AMEMORY    +128D                      
000884,000608: E4,1627  E4,1601               NVCODE             EQUALS   AMEMORY    +129D                      
000885,000609: E4,1627  E4,1602               MIDEXIT            EQUALS   AMEMORY    +130D                      
000886,000610: E4,1627  E4,1602               DSPRTRN            EQUALS   AMEMORY    +130D                      
000887,000611: E4,1627  E4,1603               INCORPEX           EQUALS   AMEMORY    +131D                      
000888,000612: E4,1627  E4,1604               STEPEXIT           EQUALS   AMEMORY    +132D                      
000889,000613: E4,1627  E4,1605               DIFEQCNT           EQUALS   AMEMORY    +133D                      
000890,000614: E4,1627  E4,1605               NORMGAM            EQUALS   AMEMORY    +133D                      
000891,000615: E4,1627  E4,1606               SCALEA             EQUALS   AMEMORY    +134D                      
000892,000616: E4,1627  E4,1607               SCALEB             EQUALS   AMEMORY    +135D                      
000893,000617: E4,1627  E4,1610               SCALDT             EQUALS   AMEMORY    +136D                      
000894,000618: E4,1627  E4,1611               SCALDELT           EQUALS   AMEMORY    +137D                      
000895,000619: E4,1627  E4,1612               SCALER             EQUALS   AMEMORY    +138D                      
000896,000620: 
000897,000621: E4,1627  E4,1613               YV                 EQUALS   AMEMORY    +139D                      
000898,000622: E4,1627  E4,1621               ZV                 EQUALS   AMEMORY    +145D                      
000899,000623: 
000900,000624: E4,1627                        PBODY              ERASE                                          
000901,000625: E4,1630                        W                  ERASE    +071D                                 
000902,000626: 

Page 21

000904,000628:                                                                                                  #   THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE  ENTRY AND INITIALIZATION JOB OF THE FCS TEST FOR LEM.
000905,000629: 
000906,000630: E4,1740  E4,1400               FCSCNTR            EQUALS   AMEMORY    +000D                      
000907,000631: 
000908,000632:                                                                                                  #    THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE JETSET TASK.
000909,000633: 
000910,000634:                                                                                                  #  (OPTIMUM PRELAUNCH A C USES JETSTEP-JETSTEP +77D FOR RESTART PROOF)
000911,000635: 
000912,000636: E4,1740  E4,1401               XJBUF              EQUALS   AMEMORY    +001D                      
000913,000637: E4,1740  E4,1402               YZJBUF             EQUALS   AMEMORY    +002D                      
000914,000638: E4,1740  E4,1403               JFBUF              EQUALS   AMEMORY    +003D                      
000915,000639: E4,1740  E4,1404               FCNTR              EQUALS   AMEMORY    +004D                      
000916,000640: E4,1740  E4,1405               THBUF              EQUALS   AMEMORY    +005D                      
000917,000641: E4,1740  E4,1406               OFFTMBUF           EQUALS   AMEMORY    +006D                      
000918,000642: E4,1740  E4,1407               JETSTEP            EQUALS   AMEMORY    +007D                      
000919,000643: E4,1740  E4,1410               NTIMES             EQUALS   AMEMORY    +008D                      
000920,000644: E4,1740  E4,1420               NEXTTIME           EQUALS   AMEMORY    +016D                      
000921,000645: E4,1740  E4,1430               JETONTM            EQUALS   AMEMORY    +024D                      
000922,000646: E4,1740  E4,1440               XJETS              EQUALS   AMEMORY    +032D                      
000923,000647: E4,1740  E4,1450               YZJETS             EQUALS   AMEMORY    +040D                      
000924,000648: E4,1740  E4,1460               JETOFFTM           EQUALS   AMEMORY    +048D                      
000925,000649: 
000926,000650:                                                                                                  #     THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE ENGINE ON-OFF TASK.
000927,000651: 
000928,000652: E4,1740  E4,1470               ENGSTEP            EQUALS   AMEMORY    +056D                      
000929,000653: E4,1740  E4,1471               CYLTIMES           EQUALS   AMEMORY    +057D                      
000930,000654: E4,1740  E4,1474               NEXTCYLT           EQUALS   AMEMORY    +060D                      
000931,000655: E4,1740  E4,1477               ONTIME             EQUALS   AMEMORY    +063D                      
000932,000656: E4,1740  E4,1502               OFFTIME            EQUALS   AMEMORY    +066D                      
000933,000657: E4,1740  E4,1505               OFFTIMER           EQUALS   AMEMORY    +069D                      
000934,000658: 
000935,000659:                                                                                                  #    THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE TRIM TASK.
000936,000660: 
000937,000661: E4,1740  E4,1510               TRIMSTEP           EQUALS   AMEMORY    +072D                      
000938,000662: E4,1740  E4,1511               NUMTIMES           EQUALS   AMEMORY    +073D                      
000939,000663: E4,1740  E4,1525               STEPDLYT           EQUALS   AMEMORY    +085D                      
000940,000664: E4,1740  E4,1541               TRIMONT            EQUALS   AMEMORY    +097D                      
000941,000665: E4,1740  E4,1555               TRIMOFFT           EQUALS   AMEMORY    +109D                      
000942,000666: E4,1740  E4,1571               TRIMIND            EQUALS   AMEMORY    +121D                      
000943,000667: 
000944,000668:                                                                                                  #    THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE THROTTLE TASK.
000945,000669: 
000946,000670: E4,1740  E4,1605               THRTSTEP           EQUALS   AMEMORY    +133D                      
000947,000671: E4,1740  E4,1606               DOTIMES            EQUALS   AMEMORY    +134D                      
000948,000672: E4,1740  E4,1614               DELAY              EQUALS   AMEMORY    +140D                      
000949,000673: E4,1740  E4,1622               THR1TIME           EQUALS   AMEMORY    +146D                      
000950,000674: E4,1740  E4,1630               THCOMM1            EQUALS   AMEMORY    +152D                      
000951,000675: E4,1740  E4,1636               THCOMM2            EQUALS   AMEMORY    +158D                      
000952,000676: 
000953,000677:                                                                                                  #   THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE INTERFACE LOOK TASK.
000954,000678: 

Page 22

000956,000680: E4,1740  E4,1644               30BUF1             EQUALS   AMEMORY    +164D                      
000957,000681: E4,1740  E4,1650               30BUF0             EQUALS   AMEMORY    +168D                      
000958,000682: E4,1740  E4,1654               QUITLOOK           EQUALS   AMEMORY    +172D                      
000959,000683: E4,1740  E4,1655               CHCNTR             EQUALS   AMEMORY    +173D                      
000960,000684: 
000961,000685: E5,1400                                           SETLOC   2400                                  
000962,000686:                                                                                                  #  THE FOLLOWING ERASABLE LOCATIONS ARE UTILIZED BY THE IN-FLIGHT ALIGNMENT ROUTINES
000963,000687: 
000964,000688: E5,1400                        XSM                ERASE    +17D                                  
000965,000689: E5,1422  E5,1406               YSM                =        XSM        +6                         
000966,000690: E5,1422  E5,1414               ZSM                =        XSM        +12D                       
000967,000691: E5,1422                        XDC                ERASE    +17D                                  
000968,000692: E5,1444  E5,1430               YDC                =        XDC        +6                         
000969,000693: E5,1444  E5,1436               ZDC                =        XDC        +12D                       
000970,000694: E5,1444  E5,1422               XNB                =        XDC                                   
000971,000695: E5,1444  E5,1430               YNB                =        XDC        +6                         
000972,000696: E5,1444  E5,1436               ZNB                =        XDC        +12D                       
000973,000697: E5,1444                        STARAD             ERASE    +17D                                  
000974,000698: E5,1466                        STAR               ERASE    +5                                    
000975,000699: E5,1474                        SAC                ERASE    +1                                    
000976,000700: E5,1476                        PAC                ERASE    +1                                    
000977,000701: E5,1500                        OGC                ERASE    +1                                    
000978,000702: E5,1502                        IGC                ERASE    +1                                    
000979,000703: E5,1504                        MGC                ERASE    +1                                    
000980,000704: E5,1506                        ZPRIME             =        22D                                   
000981,000705: E5,1506                        PDA                =        22D                                   
000982,000706: E5,1506                        COSTH              =        16D                                   
000983,000707: E5,1506                        SINTH              =        18D                                   
000984,000708: E5,1506                        THETA              =        20D                                   
000985,000709: E5,1506                        STARM              =        32D                                   
000986,000710: 
000987,000711: 
000988,000712: 
000989,000713:                                                                                                  #  THE FOLLOWING ERASABLE LOCATIONS ARE UTILIZED BY THE SYSTEM TESTS
000990,000714: E5,1506                        AZIMUTH            ERASE    +1                                    
000991,000715: E5,1510                        LATITUDE           ERASE    +1                                    
000992,000716: 
000993,000717: E5,1512                        EROPTN             ERASE                                          
000994,000718: E5,1513                        ERVECTOR           ERASE    +5                                    
000995,000719: E5,1521                        GYROD              ERASE    +5                                    
000996,000720: E5,1527                        LENGTHOT           ERASE                                          
000997,000721: E5,1530                        LOSVEC             ERASE    +5                                    
000998,000722: E5,1536                        NBPOS              ERASE                                          
000999,000723: E5,1537                        NDXCTR             ERASE                                          
001000,000724: E5,1540                        PIPANO             ERASE                                          
001001,000725: E5,1541                        PIPINDEX           ERASE                                          
001002,000726: E5,1542                        PIPNDX             ERASE    +1                                    
001003,000727: E5,1544                        POSITON            ERASE                                          
001004,000728: E5,1545                        QPLAC              ERASE                                          
001005,000729: 

Page 23

001007,000731: E5,1546                        QPLACE             ERASE                                          
001008,000732: E5,1547                        QPLACES            ERASE                                          
001009,000733: E5,1550                        RUN                ERASE                                          
001010,000734: E5,1551                        STOREPL            ERASE                                          
001011,000735: E5,1552                        SOUTHDR            ERASE                                          
001012,000736: E5,1553                        TAZEL1             ERASE    +5                                    
001013,000737: E5,1561                        TEMPTIME           ERASE    +1                                    
001014,000738: E5,1563                        TESTNO             ERASE                                          
001015,000739: E5,1564                        TMARK              ERASE    +1                                    
001016,000740: E5,1566                        SHAFTA             ERASE                                          
001017,000741: E5,1567                        TRUNA              ERASE                                          
001018,000742: E5,1570  E5,1776               ZERONDX            =        ERCOMP     +5                         
001019,000743: E5,1570                        GENPL              ERASE    +111D                                 
001020,000744: 
001021,000745: E5,1750  E5,1570               CDUTIMEI           =        GENPL                                 
001022,000746: E5,1750  E5,1572               CDUTIMEF           =        GENPL      +2                         
001023,000747: E5,1750  E5,1574               CDUDANG            =        GENPL      +4                         
001024,000748: E5,1750  E5,1575               CDUREADF           =        GENPL      +5                         
001025,000749: E5,1750  E5,1576               CDUREADI           =        GENPL      +6                         
001026,000750: E5,1750  E5,1577               CDULIMIT           =        GENPL      +7                         
001027,000751: 
001028,000752: E5,1750  E5,1574               TEMPADD            =        GENPL      +4                         
001029,000753: E5,1750  E5,1575               TEMP               =        GENPL      +5                         
001030,000754: E5,1750  E5,1576               NOBITS             =        GENPL      +6                         
001031,000755: E5,1750  E5,1577               CHAN               =        GENPL      +7                         
001032,000756: 
001033,000757: E5,1750  E5,1600               LOS1               =        GENPL      +8D                        
001034,000758: E5,1750  E5,1606               LOS2               =        GENPL      +14D                       
001035,000759: 
001036,000760: E5,1750  E5,1614               CALCDIR            EQUALS   GENPL      +20D                       
001037,000761: E5,1750  E5,1615               CDUFLAG            EQUALS   GENPL      +21D                       
001038,000762: E5,1750  E5,1616               GYTOBETQ           EQUALS   GENPL      +22D                       
001039,000763: E5,1750  E5,1617               OPTNREG            EQUALS   GENPL      +23D                       
001040,000764: E5,1750  E5,1620               SAVE               EQUALS   GENPL      +24D                       #  THREE CONSEC LOC
001041,000765: E5,1750  E5,1623               SFCONST1           EQUALS   GENPL      +27D                       
001042,000766: E5,1750  E5,1624               TIMER              EQUALS   GENPL      +28D                       
001043,000767: 
001044,000768: E5,1750  E5,1626               DATAPL             EQUALS   GENPL      +30D                       
001045,000769: E5,1750  E5,1570               RDSP               EQUALS   GENPL                                 #  FIX LATER   POSSIBLY KEEP1
001046,000770: E5,1750  E5,1670               MASKREG            EQUALS   GENPL      +64D                       
001047,000771: E5,1750  E5,1672               CDUNDX             EQUALS   GENPL      +66D                       
001048,000772: E5,1750  E5,1673               RESULTCT           EQUALS   GENPL      +67D                       
001049,000773: E5,1750  E5,1676               COUNTPL            EQUALS   GENPL      +70D                       
001050,000774: 
001051,000775: E5,1750  E5,1677               CDUANG             EQUALS   GENPL      +71D                       
001052,000776: E5,1750  E5,1570               AINLA              =        GENPL                                 #  110 DEC OR 156 OCT LOCATIONS
001053,000777: 
001054,000778: E5,1750  E5,1570               WANGO              EQUALS   AINLA                                 #  VERT ERATE
001055,000779: E5,1750  E5,1572               WANGI              EQUALS   AINLA      +2D                        #  HO
001056,000780: E5,1750  E5,1574               WANGT              EQUALS   AINLA      +4D                        #  T

Page 24

001058,000782: E5,1750  E5,1574               TORQNDX            =        WANGT                                 
001059,000783: E5,1750  E5,1576               DRIFTT             EQUALS   AINLA      +6D                        #  EAST AX
001060,000784: E5,1750  E5,1600               ALX1S              EQUALS   AINLA      +8D                        #  IN
001061,000785: E5,1750  E5,1601               CMPX1              EQUALS   AINLA      +9D                        #  IND
001062,000786: E5,1750  E5,1602               ALK                EQUALS   AINLA      +10D                       #  GAINS
001063,000787: E5,1750  E5,1616               VLAUNS             EQUALS   AINLA      +22D                       
001064,000788: E5,1750  E5,1616               THETAX             =        VLAUNS                                
001065,000789: E5,1750  E5,1620               WPLATO             EQUALS   AINLA      +24D                       
001066,000790: E5,1750  E5,1624               INTY               EQUALS   AINLA      +28D                       #  SOUTH PIP INTE
001067,000791: E5,1750  E5,1626               ANGZ               EQUALS   AINLA      +30D                       #  EAST AXIS
001068,000792: E5,1750  E5,1630               INTZ               EQUALS   AINLA      +32D                       #  EAST PIP I
001069,000793: E5,1750  E5,1632               ANGY               EQUALS   AINLA      +34D                       #  SOUTH
001070,000794: E5,1750  E5,1624               THETAN             =        INTY                                  
001071,000795: E5,1750  E5,1634               ANGX               EQUALS   AINLA      +36D                       #  VE
001072,000796: E5,1750  E5,1636               DRIFTO             EQUALS   AINLA      +38D                       #  VERT
001073,000797: E5,1750  E5,1640               DRIFTI             EQUALS   AINLA      +40D                       #  SOU
001074,000798: E5,1750  E5,1644               VLAUN              EQUALS   AINLA      +44D                       #  LAUNCH
001075,000799: E5,1750  E5,1644               FILDELV            =        VLAUN                                 
001076,000800: E5,1750  E5,1646               ACCWD              EQUALS   AINLA      +46D                       #  LAUN
001077,000801: E5,1750  E5,1646               INTVEC             =        ACCWD                                 
001078,000802: E5,1750  E5,1654               POSNV              EQUALS   AINLA      +52D                       #  LAUNC
001079,000803: E5,1750  E5,1656               DPIPAY             EQUALS   AINLA      +54D                       #  SOUTH
001080,000804: E5,1750  E5,1662               DPIPAZ             EQUALS   AINLA      +58D                       #  NORTH PIP INCREMENT
001081,000805: E5,1750  E5,1664               ALTIM              EQUALS   AINLA      +60D                       #  LENG
001082,000806: E5,1750  E5,1665               ALTIMS             EQUALS   AINLA      +61D                       #   INDEX
001083,000807: E5,1750  E5,1666               ALDK               EQUALS   AINLA      +62D                       #   TIME CONSTAN
001084,000808: E5,1750  E5,1704               DELM               EQUALS   AINLA      +76D                       
001085,000809: E5,1750  E5,1714               WPLATI             EQUALS   AINLA      +84D                       
001086,000810: E5,1750  E5,1716               GEOSAVED           EQUALS   AINLA      +86D                       
001087,000811: E5,1750  E5,1717               PREMTRXC           EQUALS   AINLA      +87D                       
001088,000812: E5,1750  E5,1720               PRELMTRX           EQUALS   AINLA      +88D                       
001089,000813: E5,1750  E5,1720               TRANSM1            =        PRELMTRX                              
001090,000814: E5,1750  E5,1742               GEOCOMPS           EQUALS   AINLA      +106D                      
001091,000815: E5,1750  E5,1743               GTSOPNDZ           EQUALS   AINLA      +107D                      
001092,000816: E5,1750  E5,1744               1SECXT             EQUALS   AINLA      +108D                      
001093,000817: E5,1750  E5,1745               GTSWTLST           EQUALS   AINLA      +109D                      
001094,000818: E5,1750  E5,1746               ERECTIME           EQUALS   AINLA      +110D                      
001095,000819: E5,1750  E5,1747               GEOMTRX            EQUALS   AINLA      +111D                      
001096,000820: E5,1750  E5,1771               ERCOMP             EQUALS   AINLA      +129D                      
001097,000821: 

Page 25

001099,000823: E5,1750  E5,1570               BMEMORY            EQUALS   GENPL                                 
001100,000824: E5,1750     0405               DELVY              EQUALS   DELVX      +2                         
001101,000825: E5,1750     0407               DELVZ              EQUALS   DELVX      +4                         
001102,000826: E7,1400                                           SETLOC   3400                                  
001103,000827: 
001104,000828:                                                                                                  #        DOWNLINK STORAGE.
001105,000829: 
001106,000830: E7,1400                        LDATALST           ERASE                                          
001107,000831: E7,1401                        DNTMGOTO           ERASE                                          
001108,000832: E7,1402                        TMINDEX            ERASE                                          
001109,000833: E7,1403                        DNTMBUFF           ERASE    +21D                                  #  SNAPSHOT BUFFER.
001110,000834: 
001111,000835:                                                                                                  #        RADAR TEST STORAGE.
001112,000836: 
001113,000837: E7,1431                        RTSTDEX            ERASE                                          
001114,000838: E7,1432                        RTSTMAX            ERASE                                          #  66 FOR HI SPEED, 6 FOR LOW SPEED RR,
001115,000839:                                                                                                  #  AND 18 FOR LOW SPEED LR.
001116,000840: E7,1433                        RTSTBASE           ERASE                                          #  USED FOR CYCLIC SAMPLING.
001117,000841: E7,1434                        RTSTLOC            ERASE                                          #  GOES 0(6)RTSTMAX
001118,000842: E7,1435  E7,1434               RSTKLOC            EQUALS   RTSTLOC                               
001119,000843: E7,1435                        RSAMPDT            ERASE                                          #  PNZ FOR CYCLIC SAMPLING, -1 FOR HI SPEED
001120,000844:                                                                                                  #  INSERT +0 HERE MANUALLY TO TERMINATE TST
001121,000845: E7,1436                        RFAILCNT           ERASE                                          
001122,000846: E7,1437                        RSTACK             ERASE    +71D                                  #  BUFFERS FOR RADAR TESTING.
001123,000847: 
001124,000848:                                                                                                  #  AGS INITIALIZATION
001125,000849: E7,1547                        AGSBUFF            ERASE    +27D                                  
001126,000850:                                                                                                  #        STORAGE FOR INBIT SCANNER.
001127,000851: 
001128,000852: E7,1603                        LAST30             ERASE    +2                                    #  LAST SAMPLED INBITS.
001129,000853: E7,1606                        MSGCNT             ERASE                                          

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