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:                                                                                                  ##               2021-05-30 ABS  Fixed NEWLOC+1 line to be a remark.
000294,000018:                                                                                                  ##
000295,000019:                                                                                                  ## This source code has been transcribed or otherwise adapted from
000296,000020:                                                                                                  ## digitized images of a hardcopy from the private collection of
000297,000021:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
000298,000022:                                                                                                  ##
000299,000023:                                                                                                  ## Notations on the hardcopy document read, in part:
000300,000024:                                                                                                  ##
000301,000025:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
000302,000026:                                                                                                  ##       NOV 10, 1966
000303,000027:                                                                                                  ##
000304,000028:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
000305,000029:                                                                                                  ##       date of the program revision or the assembly.]
000306,000030:                                                                                                  ##
000307,000031:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent
000308,000032:                                                                                                  ## reduction in image quality) are available online at
000309,000033:                                                                                                  ##       https://www.ibiblio.org/apollo.
000310,000034:                                                                                                  ## The original high-quality digital images are available at archive.org:
000311,000035:                                                                                                  ##       https://archive.org/details/aurora00dapg
000312,000036: 

Page 7

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

Page 8

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

Page 9

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

Page 10

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

Page 11

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

Page 12

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

Page 13

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

Page 14

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

Page 15

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

Page 16

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

Page 17

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

Page 18

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

Page 19

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

Page 20

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

Page 21

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

Page 22

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

Page 23

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

Page 24

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

Page 25

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

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