Source Code

000450,000002: ## Copyright: Public domain. 000451,000003: ## Filename: ASSEMBLY_AND_OPERATION_INFORMATION.agc 000452,000004: ## Purpose: Part of the source code for Solarium build 55. This 000453,000005: ## is for the Command Module's (CM) Apollo Guidance 000454,000006: ## Computer (AGC), for Apollo 6. 000455,000007: ## Assembler: yaYUL --block1 000456,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com> 000457,000009: ## Website: www.ibiblio.org/apollo/index.html 000458,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/ 000459,000011: ## Mod history: 2009-09-11 JL Created. 000460,000012: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments, 000461,000013: ## and fixed errors found. 000462,000014: ## 2017-03-14 RSB Comment-text fixes noted in proofing Luminary 116. 000463,000015:

Page 12

000465,000017: 
000466,000018:                                                                                                  #  COUNTER AND SPECIAL REGISTER TAGS
000467,000019:                                                                                                  #  ------- --- ------- -------- ----
000468,000020: 
000469,000021: ???????                        A                  EQUALS   0                                     
000470,000022: ???????                        Q                  EQUALS   1                                     
000471,000023: ???????                        Z                  EQUALS   2                                     
000472,000024: ???????                        LP                 EQUALS   3                                     
000473,000025: ???????                        IN0                EQUALS   4                                     
000474,000026: ???????                        IN1                EQUALS   5                                     
000475,000027: ???????                        IN2                EQUALS   6                                     
000476,000028: ???????                        IN3                EQUALS   7                                     
000477,000029: ???????                        OUT0               EQUALS   10                                    
000478,000030: ???????                        OUT1               EQUALS   11                                    
000479,000031: ???????                        OUT2               EQUALS   12                                    
000480,000032: ???????                        OUT4               EQUALS   14                                    
000481,000033: ???????                        BANKREG            EQUALS   15                                    
000482,000034: ???????                        RELINT             EQUALS   16                                    
000483,000035: ???????                        INHINT             EQUALS   17                                    
000484,000036: ???????                        CYR                EQUALS   20                                    
000485,000037: ???????                        SR                 EQUALS   21                                    
000486,000038: ???????                        CYL                EQUALS   22                                    
000487,000039: ???????                        SL                 EQUALS   23                                    
000488,000040: ???????                        ZRUPT              EQUALS   24                                    
000489,000041: ???????                        BRUPT              EQUALS   25                                    
000490,000042: ???????                        ARUPT              EQUALS   26                                    
000491,000043: ???????                        QRUPT              EQUALS   27                                    
000492,000044: 
000493,000045: ???????                        BANKRUPT           EQUALS   30                                    
000494,000046: ???????                        OVRUPT             EQUALS   31                                    
000495,000047: ???????                        LPRUPT             EQUALS   32                                    
000496,000048: ???????                        DSRUPTSW           EQUALS   33                                    #  T4RUPT PHASE COUNT GOES 7(-1)0
000497,000049: 
000498,000050: ???????                        OVCTR              EQUALS   34                                    
000499,000051: ???????                        TIME2              EQUALS   35                                    
000500,000052: ???????                        TIME1              EQUALS   36                                    
000501,000053: ???????                        TIME3              EQUALS   37                                    
000502,000054: ???????                        TIME4              EQUALS   40                                    
000503,000055: ???????                        UPLINK             EQUALS   41                                    
000504,000056: ???????                        OUTCR1             EQUALS   42                                    
000505,000057: ???????                        OUTCR2             EQUALS   43                                    
000506,000058: ???????                        PIPAX              EQUALS   44                                    
000507,000059: ???????                        PIPAY              EQUALS   45                                    
000508,000060: ???????                        PIPAZ              EQUALS   46                                    
000509,000061: ???????                        CDUX               EQUALS   47                                    
000510,000062: ???????                        CDUY               EQUALS   50                                    
000511,000063: ???????                        CDUZ               EQUALS   51                                    
000512,000064: ???????                        OPTX               EQUALS   52                                    
000513,000065: ???????                        OPTY               EQUALS   53                                    
000514,000066: 

Page 13

000516,000068:                                                                                                  #           INTERPRETIVE SPECIAL REGISTERS CONTAINED IN THE WORK AREA.
000517,000069: 
000518,000070: ???????                        VAC                EQUALS   32D                                   #  RELATIVE TO FIXLOC
000519,000071: ???????  0000040               VACX               EQUALS   VAC                                   
000520,000072: ???????  0000042               VACY               EQUALS   VAC        +          2               
000521,000073: ???????  0000044               VACZ               EQUALS   VAC        +          4               
000522,000074: ???????                        X1                 EQUALS   38D                                   #  INDEXES ARE RELATIVE TO FIXLOC
000523,000075: ???????                        X2                 EQUALS   39D                                   
000524,000076: ???????                        S1                 EQUALS   40D                                   #  AND SO ARE STEP REGISTERS
000525,000077: ???????                        S2                 EQUALS   41D                                   
000526,000078: ???????                        QPRET              EQUALS   42D                                   #  AS IS QPRET
000527,000079: 

Page 14

000529,000081:    0060                                           SETLOC   60                                    
000530,000082: 
000531,000083:                                                                                                  #           THE FOLLOWING REGISTERS ARE USED BY THE INTERPRETER, AND MAY BE USED BY A BASIC JOB OR BASIC
000532,000084:                                                                                                  #  PORTIONS OF AN INTERPRETIVE JOB (SOME RESTRICTIONS APPEAR WITH RTB FOLLOWED BY TC DANZIG, BUT THE NINE REGISTERS
000533,000085:                                                                                                  #  VBUF AND BUF ARE AVAILABLE THEN). THE REGISTERS ARE NOT SAVED IN THEIR ENTIRETY DURING CHANGE JOB (MOST OF THEM
000534,000086:                                                                                                  #  ARE IGNORED), SO THAT THESE MUST BE USED ONLY AS TEMPORARIES BETWEEN ANY CCS NEWJOBS.
000535,000087: 
000536,000088:    0060                        NNADTEM            EQUALS   54                                    #  TEMP FOR NOUN ADDRESS TABLE ENTRY.
000537,000089:    0060                        NNTYPTEM           EQUALS   55                                    #  TEMP FOR NOUN TYPE TABLE ENTRY.
000538,000090:    0060                        IDAD1TEM           EQUALS   56                                    #  TEMP FOR INDIR ADRES TABLE ENTRY(MIXNN)
000539,000091:                                                                                                  #  MUST = IDAD2TEM-1, = IDAD3TEM-2.
000540,000092:    0060                        IDAD2TEM           EQUALS   57                                    #  TEMP FOR INDIR ADRES TABLE ENTRY(MIXNN)
000541,000093:                                                                                                  #  MUST = IDAD1TEM+1, = IDAD3TEM-1.
000542,000094:    0060                        IDAD3TEM           ERASE                                          #  TEMP FOR INDIR ADRES TABLE ENTRY(MIXNN)
000543,000095:                                                                                                  #  MUST = IDAD1TEM+2, = IDAD2TEM+1.
000544,000096: 
000545,000097: 
000546,000098: 
000547,000099:    0061                        BANKSET            ERASE                                          #  STORAGE FOR BANK BITS OF OBJECT PROGRAM
000548,000100:    0062                        ADDRWD             ERASE                                          #  THIS WILL CONTAIN A PROPER 12 BIT ADDR
000549,000101:    0063                        ORDER              ERASE                                          #  STORAGE FOR RIGHT-HAND OPERATORS
000550,000102:    0064     0063               UPDATRET           =        ORDER                                 #  RETURN FOR UPDATNN, UPDATVB
000551,000103:    0064     0063               CHAR               =        ORDER                                 #  TEMP FOR CHARIN
000552,000104:    0064     0063               ERCNT              =        ORDER                                 #  COUNTER FOR ERROR LIGHT RESET
000553,000105:    0064     0063               DECOUNT            =        ORDER                                 #  COUNTER FOR SCALING AND DISPLAY (DEC)
000554,000106:    0064                        TEM11              ERASE                                          
000555,000107:    0065     0064               SGNON              =        TEM11                                 #  TEMP FOR +,- ON
000556,000108:    0065     0064               NOUNTEM            =        TEM11                                 #  COUNTER FOR MIXNOUN FETCH
000557,000109:    0065     0064               DISTEM             =        TEM11                                 #  COUNTER FOR OCTAL DISPLAY VERBS
000558,000110:    0065     0064               DECTEM             =        TEM11                                 #  COUNTER FOR FETCH (DEC DISPLAY VERBS)
000559,000111:    0065     0064               DECTEM1            =        TEM11                                 #  TEMP FOR NUM
000560,000112:    0065                        MODE               ERASE                                          #  DENOTES VECTOR, DP, OR TP.
000561,000113:    0066     0065               ENTRET             =        MODE                                  #  EXIT FROM ENTER
000562,000114:    0066                        LOADIND            ERASE                                          #  LOAD INDICATOR
000563,000115:    0067     0066               NEWEQIND           EQUALS   LOADIND                               
000564,000116:    0067     0066               MONTEM             =        NEWEQIND                              #  TEMP RETURN FOR MONITOR
000565,000117:    0067                        FIXLOC             ERASE                                          #  ADDRESS OF CURRENT VAC AREA
000566,000118:    0070                        VACLOC             ERASE                                          #  ADDRESS OF CURRENT VAC (= FIXLOC+32D)
000567,000119:    0071                        VBUF               ERASE    +5                                    #  6 WORD TEMPORARY BLOCK FOR VXV, MXV, ETC
000568,000120:    0077     0071               TEMQS              EQUALS   VBUF                                  #  TEMP STORAGE FOR SWCALL ROUTINE
000569,000121:    0077     0072               BANKTEM            EQUALS   VBUF       +1                         #  LIKEWISE
000570,000122:    0077     0073               B                  EQUALS   VBUF       +2                         #  ARGUMENT STORAGE IN FUNCTIONS
000571,000123:    0077     0073               PROGREG            =        VBUF       +2                         #  FOR GO EXEC PROGRAM
000572,000124:    0077     0073               MIXTEMP            =        VBUF       +2                         #  FOR MIXNOUN DATA
000573,000125:    0077     0073               SIGNRET            =        VBUF       +2                         #  RETURN FOR +,- ON
000574,000126:                                                                                                  #  ALSO PROGREG+1, PROGREG+2.  MIXTEMP+1, MIXTEMP+2.
000575,000127:    0077     0075               ESCAPE2            EQUALS   VBUF       +4                         #  NEGATIVE ARGUMENT SWITCH IN ARCCOS
000576,000128:    0077     0075               TAG1               EQUALS   VBUF       +4                         #  USED FOR PICKING UP INDEX AND STEP REGS
000577,000129:    0077     0076               TEMQ3              EQUALS   VBUF       +5                         #  RETURN FROM DDV AND SQRTDIV
000578,000130:    0077     0076               POLISH             EQUALS   VBUF       +5                         #  TEMPORARY STORAGE FOR COMPLETE ADDRESSES

Page 15

000580,000132:    0077     0076               WDCNT              =        VBUF       +5                         #  CHAR COUNTER FOR DSPWD
000581,000133:    0077     0076               INREL              =        VBUF       +5                         #  INPUT BUFFER SELECTOR ( X,Y,Z, REG )
000582,000134:    0077                        BUF                ERASE    +2                                    #  USED BY DMP1, SQRTDIV
000583,000135:    0102     0077               LOGTEM             EQUALS   BUF                                   #  LOG SUBROUTINE TEMP.
000584,000136:    0102     0101               SGNDMAX            EQUALS   BUF        +2                         #  USED IN TPAGREE
000585,000137:    0102     0101               TEM3               EQUALS   BUF        +2                         
000586,000138:    0102     0101               GCOMPSW            EQUALS   BUF        +2                         
000587,000139:    0102                        TEM2               ERASE                                          
000588,000140:    0103     0102               DSREL              =        TEM2                                  #  REL ADDRESS FOR DSPIN(TEM2 USED BY DAD1)
000589,000141:    0103                        TEM4               ERASE                                          
000590,000142:    0104     0103               TEMQ               EQUALS   TEM4                                  #  RETURN FROM TPAGREE
000591,000143:    0104     0103               DSMAG              =        TEM4                                  #  MAGNITUDE STORE FOR DSPIN
000592,000144:    0104     0103               IDADDTEM           =        TEM4                                  #  MIXNOUN INDIRECT ADDRESS STORAGE
000593,000145:    0104                        TEM5               ERASE                                          
000594,000146:    0105     0104               TEMQ2              EQUALS   TEM5                                  
000595,000147:    0105     0104               BASE               =        TEM5                                  
000596,000148:    0105     0104               COUNT              =        TEM5                                  #  FOR DSPIN  (TEM5 IS USED BY DAD)
000597,000149:    0105                        TEM8               ERASE                                          
000598,000150:    0106     0105               TEM6               EQUALS   TEM8                                  #  ERASABLE ASSIGNMENTS BY EQUALS
000599,000151:    0106                        TEM9               ERASE                                          
000600,000152:    0107     0106               WRDRET             =        TEM9                                  #  RETURN FOR 5BLANK
000601,000153:    0107     0106               WDRET              =        TEM9                                  #  RETURN FOR DSPWD
000602,000154:    0107     0106               DECRET             =        TEM9                                  #  RETURN FOR PUTCOM(DEC LOAD)
000603,000155:    0107     0106               21/22REG           =        TEM9                                  #  TEMP FOR CHARIN
000604,000156:    0107                        TEM10              ERASE                                          
000605,000157:    0110     0107               IND                EQUALS   TEM10                                 #  USED IN CROSS ROUTINE
000606,000158:    0110     0107               MIXBR              =        TEM10                                 #  INDICATOR FOR MIXED OR NORMAL NOUN
000607,000159:    0110     0107               DSPMMTEM           =        TEM10                                 #  DSPCOUNT SAVE FOR DSPMM
000608,000160:    0110                        DVSW               ERASE                                          #  (THIS CAN PROBABLY BE EQUATED)
000609,000161:    0111     0110               SGNOFF             =        DVSW                                  #  TEMP FOR +,- ON
000610,000162:    0111     0110               NVTEMP             =        DVSW                                  #  TEMP FOR NVSUB
000611,000163:    0111     0110               SFTEMP1            =        DVSW                                  #  STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
000612,000164:    0111     0110               DECTEM2            =        DVSW                                  #  TEMP FOR NUM
000613,000165:    0111                        BRANCHQ            ERASE                                          #  (DITTO)
000614,000166:    0112     0111               CODE               =        BRANCHQ                               #  FOR DSPIN
000615,000167:    0112     0111               SFTEMP2            =        BRANCHQ                               #  STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
000616,000168:    0112                        COMPON             ERASE                                          #  (DITTO)
000617,000169:    0113     0112               DSEXIT             =        COMPON                                #  RETURN FOR DSPIN
000618,000170:    0113     0112               EXITEM             =        COMPON                                #  RETURN FOR SCALE FACTOR ROUTINE SELECT
000619,000171:    0113     0112               BLANKRET           =        COMPON                                #  RETURN FOR 2BLANK
000620,000172:    0113                        ARETURN            ERASE                                          #  RETURN ADDRESS FOR ARCSIN/ARCCOS.
000621,000173:    0114     0113               LSTPTR             =        ARETURN                               #  LIST POINTER FOR GRABUSY
000622,000174:    0114     0113               RELRET             =        ARETURN                               #  RETURN FOR RELDSP
000623,000175:    0114     0113               FREERET            =        ARETURN                               #  RETURN FOR FREEDSP
000624,000176: 
000625,000177:    0114                        ESCAPE             ERASE                                          #  ARCSIN/ARCCOS SWITCH
000626,000178:    0115     0114               CADRTEM            =        ESCAPE                                #  TEMP STORAGE FOR GRAB ROUTINES
000627,000179: 
000628,000180:                                                                                                  #        THE FOLLOWING REGISTERS ARE USED EXCLUSIVELY BY THE EXECUTIVE.

Page 16

000630,000182:    0115                        MPAC               ERASE    +2                                    #  MULTIPLE-PRECISION ACCUMULATOR
000631,000183:    0120                        LOC                ERASE                                          #  LOCATION COUNTER FOR OPERATOR WORDS
000632,000184:    0121                        ADRLOC             ERASE                                          #  LOCATION COUNTER FOR OPERAND ADDRESSES
000633,000185:    0122                        OVFIND             ERASE                                          #  0 FOR NO OVERFLOW, NON-ZERO OTHERWISE
000634,000186:    0123                        PUSHLOC            ERASE                                          #  NEXT AVAILABLE ENTRY IN PUSH-DOWN LIST
000635,000187:    0124                        PRIORITY           ERASE                                          #  PRIORITY OF CURRENT JOB
000636,000188: 
000637,000189:    0125                                           ERASE    +55D                                  #  EIGHT JOBS POSSIBLE
000638,000190: 
000639,000191:    0215                        NEWJOB             ERASE                                          #  SET NON-ZERO TO SIGNAL EXECUTIVE RUPT
000640,000192: 
000641,000193:    0216                        VAC1USE            ERASE                                          #  SEE EXECUTIVE PROGRAMS FOR USE OF THESE
000642,000194:    0217                        VAC1               ERASE    +42D                                  #  REGISTERS
000643,000195:    0272                        VAC2USE            ERASE                                          
000644,000196:    0273                        VAC2               ERASE    +42D                                  
000645,000197:    0346                        VAC3USE            ERASE                                          
000646,000198:    0347                        VAC3               ERASE    +42D                                  
000647,000199:    0422                        VAC4USE            ERASE                                          
000648,000200:    0423                        VAC4               ERASE    +42D                                  
000649,000201:    0476                        VAC5USE            ERASE                                          
000650,000202:    0477                        VAC5               ERASE    +42D                                  
000651,000203: 
000652,000204:                                                                                                  #        THE FOLLOWING REGISTERS ARE USED EXCLUSIVELY BY THE WAITLISTER.
000653,000205: 
000654,000206:    0552                        LST1               ERASE    +6                                    #  DELTA T'S.
000655,000207:    0561                        LST2               ERASE    +7                                    #  TASK CADRS.
000656,000208:    0571                        RUPTAGN            ERASE                                          #  WAITLIST ADDITIONAL TASK INDICATOR.
000657,000209: 
000658,000210:    0572     0571               KEYTEMP2           =        RUPTAGN                               #  TEMP FOR KEYRUPT, UPRUPT
000659,000211: 
000660,000212:                                                                                                  #        THE FOLLOWING GROUP OF REGISTERS MAY BE USED AS TEMPORARY STORAGE BY ANY INTERRUPT PROGRAM OR BY ANY
000661,000213:                                                                                                  #  PROGRAM WHICH INHIBITS INTERRUPT. CARE MUST BE TAKEN, HOWEVER, TO SEE THAT THEY ARE NOT USED DURING A CALL
000662,000214:                                                                                                  #  TO THE EXECUTIVE (FOR EXAMPLE), FOR THE EXECUTIVE MAY USE THEM AS TEMPORARIES TOO.
000663,000215: 
000664,000216:    0572                        EXECTEM1           ERASE                                          #  THESE REGISTERS, EXECTEM1-3, MAY BE USED
000665,000217:    0573     0572               RUPTSTOR           =        EXECTEM1                              
000666,000218:    0573     0572               IN1HITEM           =        EXECTEM1                              #  INTERRUPT TEMP FOR STANDBY PREP
000667,000219:    0573                        EXECTEM2           ERASE                                          #  AS SCRATCH STORAGE BY ANY PROGRAM WHICH
000668,000220:    0574     0573               PROG               EQUALS   EXECTEM2                              
000669,000221:    0574     0573               IN1LOTEM           =        EXECTEM2                              #  INTERRUPT TEMP FOR STANDBY PREP
000670,000222:    0574                        EXECTEM3           ERASE                                          #  INHIBITS INTERRUPTS
000671,000223:    0575     0574               ITEMP3             EQUALS   EXECTEM3                              
000672,000224:    0575     0574               SRRUPT             EQUALS   EXECTEM3                              #  SHORT STORAGE FOR SR DURING INTERRUPT.
000673,000225:    0575     0574               LOOKRET            =        EXECTEM3                              #  INTERRUPT TEMP FOR STANDBY PREP
000674,000226:    0575                        EXECTEM4           ERASE                                          
000675,000227:    0576                        EXECTEM5           ERASE                                          #  BANK RETURN FROM PHASE CONTROL.
000676,000228:    0577                        NEWPRIO            ERASE                                          #  PRIORITY OF NEW JOB
000677,000229:    0600     0577               NVAL               =        NEWPRIO                               
000678,000230:    0600     0577               DELT               =        NVAL                                  
000679,000231:    0600     0577               ITEMP1             =        NEWPRIO                               

Page 17

000681,000233:    0600                        WTEXIT             ERASE                                          
000682,000234:    0601     0600               ITEMP2             =        WTEXIT                                
000683,000235:    0601     0600               KEYTEMP1           =        WTEXIT                                #  TEMP FOR KEYRUPT, UPRUPT
000684,000236:    0601     0600               DSRUPTEM           =        WTEXIT                                #  TEMP FOR DSPOUT
000685,000237:    0601                        LOCCTR             ERASE                                          #  USED TO LOCATE STORAGE FOR CORE REGISTRS
000686,000238:    0602     0601               PHASDATA           EQUALS   LOCCTR                                
000687,000239: 
000688,000240:                                                                                                  #  ERASABLE ASSIGNMENTS SPECIFIC TO PINBALL
000689,000241: 
000690,000242:    0602                        VERBREG            ERASE                                          #  VERB CODE
000691,000243:    0603                        NOUNREG            ERASE                                          #  NOUN CODE
000692,000244:    0604                        XREG               ERASE                                          #  R1 INPUT BUFFER
000693,000245:    0605                        YREG               ERASE                                          #  R2 INPUT BUFFER
000694,000246:    0606                        ZREG               ERASE                                          #  R3 INPUT BUFFER
000695,000247:    0607                        XREGLP             ERASE                                          #  LO PART OF XREG (FOR DEC CONV ONLY)
000696,000248:    0610                        YREGLP             ERASE                                          #  LO PART OF YREG (FOR DEC CONV ONLY)
000697,000249:    0611                        ZREGLP             ERASE                                          #  LO PART OF ZREG (FOR DEC CONV ONLY)
000698,000250:    0612                        MODREG             ERASE                                          #  MODE CODE
000699,000251:    0613                        REQRET             ERASE                                          #  RETURN REGISTER FOR LOAD
000700,000252:    0614                        DSPCOUNT           ERASE                                          #  DISPLAY POSITION INDICATOR
000701,000253:    0615                        DECBRNCH           ERASE                                          #  +DEC, - DEC, OCT INDICATOR
000702,000254:    0616                                           SETLOC   616                                   #  NEEDED FOR PINBALL AUTO CHECK
000703,000255:    0616                        DSPTEM1            ERASE    +2                                    #  BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
000704,000256:    0621     0616               LANDMARK           EQUALS   DSPTEM1                               
000705,000257:    0621     0616               V75TEMP            EQUALS   DSPTEM1                               
000706,000258:    0621                        DSPTEM2            ERASE    +2                                    #  BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
000707,000259:    0624                        NOUNADD            ERASE                                          #  MACHINE ADDRESS FOR NOUN
000708,000260:    0625                        MONSAVE            ERASE                                          #  N/V CODE FOR MONITOR. ALSO ACTIVITY
000709,000261:    0626                        MONSAVE1           ERASE                                          #  NOUNADD STORAGE FOR MONITOR WITH MATBS
000710,000262:    0627                        CADRSTOR           ERASE                                          #  ENDIDLE STORAGE
000711,000263:    0630                        GRABLOCK           ERASE                                          #  INTERNAL INTERLOCK FOR DISPLAY SYSTEM
000712,000264:    0631                        NVSBCADR           ERASE                                          #  NVSUB STORAGE FOR CALLING CADR
000713,000265:    0632                        LOADSTAT           ERASE                                          #  STATUS INDICATOR FOR LOADTST
000714,000266:    0633                        CLPASS             ERASE                                          #  PASS INDICATOR FOR CLEAR
000715,000267:    0634                        DSPLIST            ERASE    +2                                    #  WAITING LIST FOR DSP SYST INTERNAL USE
000716,000268: 
000717,000269: 
000718,000270: 
000719,000271:                                                                                                  #  LONG-TERM STORAGE USED DURING INTERUPT, NOT USED BY EXECUTIVE, WAITLIST, ETC.
000720,000272: 
000721,000273:    0637                        RUPTREG1           ERASE                                          
000722,000274:    0640     0637               KSAMPTEM           EQUALS   RUPTREG1                              
000723,000275:    0640                        RUPTREG2           ERASE                                          
000724,000276:    0641     0640               OSAMPTEM           EQUALS   RUPTREG2                              
000725,000277:    0641                        RUPTREG3           ERASE                                          
000726,000278:    0642                        RUPTREG4           ERASE                                          
000727,000279: 
000728,000280:                                                                                                  #  MISCELLANEOUS RESERVATIONS
000729,000281: 
000730,000282:    0643                        SAMPTIME           ERASE    +1                                    #  SAMPLED TIME FOR PINBALL REFERENCE.
000731,000283: 

Page 18

000733,000285: 
000734,000286:                                                                                                  #        INTERPRETER SWITCH ASSIGNMENTS.
000735,000287: 
000736,000288:    0645                        STATE              ERASE    +2                                    #  45 SWITCHES USED BY INTERPRETIVE PROGS.
000737,000289: 
000738,000290:    0650     0645               DSPLOCK            EQUALS   STATE                                 #  BIT 4
000739,000291:    0650     0645               EXTVBACT           EQUALS   STATE                                 #  BIT 3
000740,000292:    0650     0645               UPLOCK             EQUALS   STATE                                 #  BIT 2
000741,000293:    0650     0646               FLAGWRD1           EQUALS   STATE      +1                         
000742,000294:    0650     0647               FLAGWRD2           EQUALS   STATE      +2                         
000743,000295: 
000744,000296:    0650                        JSWITCH            EQUALS   1                                     #  FREE-FALL INTEGRATION.
000745,000297:    0650                        ABORTSIG           EQUALS   2                                     #  SET WHEN GROUND ABORT V72 IS RECEIVED.
000746,000298:    0650                        TFF2FLAG           EQUALS   3                                     #  TOM D. NAMED THIS
000747,000299:    0650                        BIASFLAG           EQUALS   4                                     #  CAUSES DELV TO BE ZEROED AFTER 1/PIPA
000748,000300:    0650                        NBSMBIT            EQUALS   5                                     #  IN-FLIGHT ALIGNMENT.
000749,000301:    0650                        GONEPAST           EQUALS   6                                     #   RE-ENTRY
000750,000302:    0650                        RELVELSW           EQUALS   7D                                    #  RE-ENTRY.
000751,000303:    0650                        EGSW               EQUALS   8D                                    #  RE-ENTRY.
000752,000304:    0650                        HUNTSW1            EQUALS   9D                                    #  RE-ENTRY.
000753,000305:    0650                        HIND               EQUALS   10D                                   #  ENTRY.
000754,000306:    0650                        VERIFLAG           EQUALS   10D                                   
000755,000307:                                                                                                  # DSKYFLAG       EQUALS  11D             GUARDS AGAINST DOUBLE KEYBOARD ENTRIES.
000756,000308:                                                                                                  # DSPLOCK        EQUALS  12D             KEYBOARD/SUBROUTINE CALL INTERLOCK
000757,000309:                                                                                                  # EXTVBACT       EQUALS  13D             EXTENDED VERB ACTIVITY
000758,000310:                                                                                                  # UPLOCK         EQUALS  14D             UPLINK INTERLOCK (ACTIVATED BY RECPTION
000759,000311:                                                                                                  #                                        OF A BAD CODE IN UPLINK)
000760,000312: 
000761,000313:    0650                        INRLSW             EQUALS   15D                                   #  PROGSTALL NOT USED DURING ENTRY.
000762,000314:    0650                        PRGSW              EQUALS   15D                                   #  USED BY PRGSTALL.
000763,000315: 
000764,000316:    0650                        COASTFLG           EQUALS   17D                                   #  17 TO 47 ARE 501 SEQUENCE CONTROL FLAGS.
000765,000317:    0650                        UPDATFLG           EQUALS   18D                                   
000766,000318:    0650                        SOAKFLAG           EQUALS   19D                                   
000767,000319:    0650                        SHTDNFLG           EQUALS   20D                                   
000768,000320:    0650                        ACTIVFLG           EQUALS   21D                                   
000769,000321:    0650                        INTPFLAG           EQUALS   22D                                   
000770,000322:    0650                        INITFLAG           EQUALS   23D                                   
000771,000323:    0650                        S4BSMFLG           EQUALS   24D                                   
000772,000324:    0650                        INT1FLAG           EQUALS   25D                                   
000773,000325:    0650                        MONITFLG           EQUALS   26D                                   
000774,000326:    0650                        DVMONFLG           EQUALS   27D                                   
000775,000327:    0650                        STEERFLG           EQUALS   28D                                   
000776,000328:    0650                        ENTRYFLG           EQUALS   29D                                   
000777,000329:    0650                        LIFTFLAG           EQUALS   30D                                   
000778,000330:    0650                        TUMBFLAG           EQUALS   31D                                   
000779,000331: 
000780,000332:    0650                        DRIFTFLG           EQUALS   33D                                   
000781,000333:    0650                        CDUXFLAG           EQUALS   34D                                   
000782,000334:    0650                        BACKFLAG           EQUALS   35D                                   
000783,000335:    0650                        ROLLFLAG           EQUALS   36D                                   

Page 19

000785,000337:    0650                        CALCFLAG           EQUALS   37D                                   
000786,000338:    0650                        DOMANFLG           EQUALS   38D                                   
000787,000339:    0650                        NEGFLAG            EQUALS   39D                                   
000788,000340:    0650                        BEGINFLG           EQUALS   40D                                   
000789,000341:    0650                        SPS4FLAG           EQUALS   41D                                   
000790,000342:    0650                        SPS3FLAG           EQUALS   42D                                   
000791,000343:    0650                        SPS2FLAG           EQUALS   43D                                   
000792,000344:    0650                        SPS1FLAG           EQUALS   44D                                   
000793,000345:    0650                        TABTFLAG           EQUALS   45D                                   
000794,000346:    0650                        ABRTFLAG           EQUALS   46D                                   
000795,000347:    0650                        ARRSTFLG           EQUALS   47D                                   
000796,000348: 
000797,000349:                                                                                                  #        STORAGE USED BY PHASE CONTROL.
000798,000350: 
000799,000351:    0650                        PHASETAB           ERASE    +5                                    #  PHASE VALUES FOR 6 PROGRAMS
000800,000352:    0656     0650               PHASE1             EQUALS   PHASETAB                              
000801,000353:    0656     0651               PHASE2             EQUALS   PHASETAB   +1                         
000802,000354:    0656     0652               PHASE3             EQUALS   PHASETAB   +2                         
000803,000355:    0656     0653               PHASE4             EQUALS   PHASETAB   +3                         
000804,000356:    0656     0654               PHASE5             EQUALS   PHASETAB   +4                         
000805,000357:    0656     0655               PHASE6             EQUALS   PHASETAB   +5                         
000806,000358:    0656                        PHASEBAR           ERASE    +5                                    #  COMPLEMENTED COPY.
000807,000359:    0664     0656               -PHASE1            EQUALS   PHASEBAR                              
000808,000360:    0664                        TBASE2             ERASE                                          
000809,000361:    0665                        TBASE3             ERASE                                          
000810,000362:    0666                        TBASE4             ERASE                                          
000811,000363:    0667                        TBASE5             ERASE                                          #   SHOULD COMPLETE THIS SET.
000812,000364: 
000813,000365:                                                                                                  #        THE FOLLOWING REGISTERS ARE USED BY THE DOWNRUPT PROGRAM.
000814,000366: 
000815,000367:    0670                        TELCOUNT           ERASE                                          #  ENDPULSE FREQUENCY MONITORING COUNTER.
000816,000368:    0671                        LDATALST           ERASE                                          
000817,000369:    0672                        DNLSTADR           ERASE                                          #  BASE ADDRESS OF APPROPRIATE TM LIST.
000818,000370:    0673                        DNTMGOTO           ERASE                                          #  ADDRESS OF CURRENT DOWNLINK PHASE.
000819,000371:    0674                        TMINDEX            ERASE                                          #  STEPS THROUGH THE DOWNLIST
000820,000372:    0675                        TMMARKER           ERASE                                          
000821,000373:    0676                        MARKERCT           ERASE                                          
000822,000374: 
000823,000375:                                                                                                  #        THE FOLLOWING STORAGE IS USED BY T4RUPT.
000824,000376: 
000825,000377:    0677                        CDUIND             ERASE                                          #  IMU CDU STATUS INDICATOR AND INDEXER.
000826,000378:    0700                        THETAD             ERASE    +2                                    #  SET OF THREE DEISRED ANGLES IN 2S COMPL.
000827,000379:    0703                        OPTIND             ERASE                                          #  OPTICS CDU STATUS INDICATOR AND INDEXER.
000828,000380:    0704                        DESOPTX            ERASE    +1                                    #  DESIRED OPTICS CDU ANGLES.
000829,000381: 
000830,000382:    0706                        DSPCNT             ERASE                                          #  STEPS THROUGH K-RELAY SLOTS IN DSPTAB.
000831,000383:    0707                        NOUT               ERASE                                          #  HOLDS NUMBER OF RELAY WORDS TO CHANGE.
000832,000384:    0710                        DSPTAB             ERASE    +13D                                  #  HOLDS STATE OF ALL RELAYS AND CHANGE INF
000833,000385: 
000834,000386:    0726                        OLDERR             ERASE                                          #  LAST-SAMPLED SYSTEM ERROR BITS.

Page 20

000836,000388:                                                                                                  #        THE BITS OF OLDERR HAVE THE FOLLOWING MEANINGS:
000837,000389: 
000838,000390:                                                                                                  #  BIT  1 = 1 IF THE PILOTS ATTITUDE BUTTON IS DEPRESSED.
000839,000391:                                                                                                  #  BIT  2 = 1 IF RESTART FAILED (AND DID A FRESH START).
000840,000392:                                                                                                  #  BIT  3 = 1 IF BIT 4 OF OUT1 WAS NOT INVERTED LAST NWJOB.
000841,000393:                                                                                                  #  BIT  4 = 1 TO INHIBIT IMU FAIL FOR 5 SECONDS AFTER COARSE ALIGN.
000842,000394:                                                                                                  #  BIT  5 = 1 IF CURTAINS CALLED (IMU MODING FAILURE, ETC.)
000843,000395:                                                                                                  #  BIT 10 = 1 IF CDU FAIL IS ON IN FINE ALIGN.
000844,000396:                                                                                                  #  BIT 11 = 1 IF PIPA FAIL IS ON.
000845,000397:                                                                                                  #  BIT 12 = 1 IF IMU FAIL IS ON IN ANY MODE BUT COARSE ALIGN.
000846,000398: 
000847,000399:                                                                                                  #        IN FLIGHT 501, BITS 2, 5, 11, AND 12 INHIBIT MAINTENANCE OF THE NIGHT WATCHMAN ALARM
000848,000400:                                                                                                  #  SO THAT IF THEY ARE PRESENT FOR 2 CONSECUTIVE NWJOBS, G & N FAIL WILL BE SENT TO THE MCP.
000849,000401: 
000850,000402:    0727                        WASKSET            ERASE                                          #  LAST SETTING OF IMU MODE SWITCHES.
000851,000403:    0730                        WASOPSET           ERASE                                          #  LAST SETTING OF OPTICS MODE SWITCHES.
000852,000404: 
000853,000405:    0731                        DESKSET            ERASE                                          #  DESIRED SETTING OF IMU MODE SWITCHES.
000854,000406:    0732                        DESOPSET           ERASE                                          #  DESIRED OPTICS MODES.
000855,000407: 
000856,000408:                                                                                                  #        THE FOLLOWING REGISTERS ARE USED BY THE MODE SWITCHING AND MARK PROGRAMS.
000857,000409: 
000858,000410:    0733                        IMUCADR            ERASE                                          #  USED BY IMUSTALL.
000859,000411:    0734     0733               MODECADR           EQUALS   IMUCADR                               #  FOR INDEXING PURPOSES.
000860,000412:    0734                        OPTCADR            ERASE                                          #  USED BY OPTSTALL.
000861,000413: 
000862,000414:    0735                        MARKSTAT           ERASE                                          #  MARK BUTTON STATUS REGISTER.
000863,000415: 

Page 21

000865,000417: 
000866,000418:                                                                                                  #        THE FOLLOWING STORAGE IS RESERVED FOR IMU COMPENSATION PARAMETERS.
000867,000419: 
000868,000420:    0736                        PBIASX             ERASE                                          #  PIPA BIAS AND SCALE FACTOR TERMS
000869,000421:    0737     0736               PIPABIAS           EQUALS   PBIASX                                #  INTERMIXED.
000870,000422:    0737                        PIPASCFX           ERASE                                          
000871,000423:    0740     0737               PIPASCF            EQUALS   PIPASCFX                              
000872,000424:    0740                        PBIASY             ERASE                                          
000873,000425:    0741                        PIPASCFY           ERASE                                          
000874,000426:    0742                        PBIASZ             ERASE                                          
000875,000427:    0743                        PIPASCFZ           ERASE                                          
000876,000428: 
000877,000429:    0744                        GBIASX             ERASE                                          #  GYRO BIAS DRIFTS.
000878,000430:    0745                        GBIASY             ERASE                                          
000879,000431:    0746                        GBIASZ             ERASE                                          
000880,000432: 
000881,000433:    0747                        ADIAX              ERASE                                          #  ACCELERATION SENSITIVE DRIFT ALONG THE
000882,000434:    0750                        ADIAY              ERASE                                          #  INPUT AXIS.
000883,000435:    0751                        ADIAZ              ERASE                                          
000884,000436: 
000885,000437:    0752                        ADSRAX             ERASE                                          #  ACCELERATION SENSITIVE DRIFT
000886,000438:    0753                        ADSRAY             ERASE                                          #  ALONG THE SPIN-REFERENCE AXIS.
000887,000439:    0754                        ADSRAZ             ERASE                                          
000888,000440: 
000889,000441:    0755                        1/PIPADT           ERASE                                          #  DELTA TIME FOR 1/PIPA.
000890,000442: 
000891,000443:    0756     0755               OLDBT1             EQUALS   1/PIPADT                              #  TIME1 STORAGE DURING FREE-FALL COMP.
000892,000444: 
000893,000445:    0756                        GCOMP              ERASE    +5                                    #  CONTAINS COMPENSATING GYRO TORQUES.
000894,000446: 
000895,000447:                                                                                                  #        THE FOLLOWING INTERLOCK REGISTER IS USED BY THE GYRO ROUTINES.
000896,000448: 
000897,000449:    0764                        LGYRO              ERASE                                          #  ZERO IF GYROS AVAILABLE - ADDRESS OF
000898,000450:                                                                                                  #  COMMANDS IF IN USE
000899,000451: 

Page 22

000901,000453: 
000902,000454:                                                                                                  #        THE FOLLOWING STORAGE CONTAINS REFERENCE VARIABLES FOR SEVERAL MISSION PROGRAMS. INCLUDED HERE ARE
000903,000455:                                                                                                  #  POSITION, VELOCITY, THEIR ASSOCIATED TIME, AND IMU STABLE MEMBER ORIENTATION (WHEN THE IMU IS ALIGNED).
000904,000456: 
000905,000457:    0765                        REFRRECT           ERASE    +5                                    #  REFERENCE RECTIFICATION VECTORS.
000906,000458:    0773                        REFVRECT           ERASE    +5                                    
000907,000459:    1001                        DELTAV             ERASE    +5                                    #  REFERENCE DEVIATION VECTORS.
000908,000460:    1007                        NUV                ERASE    +5                                    
000909,000461:    1015                        REFRCV             ERASE    +5                                    #  REFERENCE CONIC POSITION VECTOR.
000910,000462: 
000911,000463:    1023                        REFVCV             ERASE    +5                                    #  REFERENCE CONIC VELOCITY VECTOR.
000912,000464:    1031                        REFTC              ERASE    +1                                    #  REFERENCE TIME SINCE RECTIFICATION.
000913,000465:    1033                        TE                 ERASE    +1                                    #  TIME CORRESPONDING TO POSITION AND VEL.
000914,000466: 
000915,000467:    1035                        REFXKEP            ERASE    +1                                    #  REFERENCE CONIC VARIABLE X.
000916,000468:    1037                        PBODY              ERASE                                          
000917,000469: 
000918,000470:    1040                        NSHIFT             ERASE                                          #  AVERAGE G INTEGRATOR PARAMETERS REQUIR-
000919,000471:    1041                        XSHIFT             ERASE                                          #  ING PERMANENT STORAGE
000920,000472:    1042                        CALCG              ERASE                                          
000921,000473:    1043                        UNITW              ERASE    +5                                    
000922,000474: 
000923,000475:    1051     0765               RN                 EQUALS   REFRRECT                              #  SYMBOLS FOR POSITION AND VELOCITY
000924,000476:    1051     0765               RPIP               EQUALS   REFRRECT                              #  DURING ACCELERATED PHASES.
000925,000477:    1051     0773               VN                 EQUALS   REFVRECT                              
000926,000478:    1051     0773               VPIP               EQUALS   REFVRECT                              
000927,000479: 
000928,000480:    1051     1001               DELV               EQUALS   DELTAV                                #  PIPA DATA DURING ACCELERATED PHASES.
000929,000481:    1051     1001               DELVX              EQUALS   DELV                                  
000930,000482:    1051     1003               DELVY              EQUALS   DELV       +2                         
000931,000483:    1051     1005               DELVZ              EQUALS   DELV       +4                         
000932,000484:    1051     1007               GRAVITY            EQUALS   NUV                                   #  AVERAGE G INTEGRATOR VARIABLES
000933,000485:    1051     1015               UNITR              EQUALS   REFRCV                                
000934,000486:    1051     1023               RMAG               EQUALS   REFVCV                                
000935,000487:    1051     1025               RMAGSQ             EQUALS   REFVCV     +2                         
000936,000488:    1051     1027               DELTAT             EQUALS   REFVCV     +4                         
000937,000489: 
000938,000490:    1051     1031               TEMX               EQUALS   REFTC                                 
000939,000491:    1051     1032               TEMY               EQUALS   REFTC      +1                         
000940,000492:    1051     1033               TEMZ               EQUALS   TE                                    
000941,000493:    1051     1034               TEMXY              EQUALS   TE         +1                         
000942,000494:    1051     1035               PIPAGE             EQUALS   REFXKEP                               
000943,000495: 
000944,000496:    1051                        REFSMMAT           ERASE    +17D                                  #  REFERENCE TO SM MATRIX
000945,000497:    1073                        DTEPOCH            ERASE    +1                                    
000946,000498: 
000947,000499:    1075                        REDOCNTR           ERASE                                          #  RESTART DATA SAVED IN THESE REGISTERS
000948,000500:    1076                        REDOTIME           ERASE    +1                                    
000949,000501: 

Page 23

000951,000503: 
000952,000504:                                                                                                  #        THE FOLLOWING STORAGE IS TIME-SHARED BY MISSION PROGRAMS UNDER THE SUPERVISION OF MASTER COMTROL. IT IS
000953,000505:                                                                                                  #  ORGANIZED INTO THREE PARTS REFERRED TO AS A MEMORY, B MEMORY, AND C MEMORY. A PARTICULAR MISSION PHASE IS
000954,000506:                                                                                                  #  ASSIGNED TO ONE OF THE SEGMENTS IN SUCH A WAY THAT NO OTHER MISSION PHASE USING THE SAME SEGMENT WILL EVER RUN
000955,000507:                                                                                                  #  CONCURRENTLY; E.G., RE-ENTRY WILL NEVER RUN CONCURRENT WITH TVC. THE NUMBER OF AREAS (3) IS DETERMINED BY THE
000956,000508:                                                                                                  #  MAXIMUM NUMBER OF DISTINCT MISSION PROGRAMS WHICH RUN SIMULTANEOUSLY.
000957,000509: 
000958,000510:                                                                                                  #        A MEMORY IS USED BY NAVIGATION PROGRAMS; MID-COURSE DURING FREE-FALL PORTIONS OF THE MISSION AND 
000959,000511:                                                                                                  #  AVERAGE G INTEGRATION DURING ACCELERATED PHASES. GUIDANCE PROGRAMS SUCH AS TVC USE B MEMORY TOGETHER WITH THEIR 
000960,000512:                                                                                                  #  ASSOCIATED ALIGNMENTS. THE C MEMORY PORTION IS USED THROUGHOUT MOST OF THE MISSION FOR THE MIDCOURSE ERROR
000961,000513:                                                                                                  #  TRANSITION MATRIX W, AND LATER BY RE-ENTRY AFTER THE LAST MEASUREMENT HAS BEEN INCORPORATED. THE EXCEPTION IS
000962,000514:                                                                                                  #  SYSTEM TEST, ASSIGNED TO A MEMORY, WHICH NEVER RUNS CONCURRENTLY WITH MISSION PROGRAMS.
000963,000515: 
000964,000516:    1100                        AMEMORY            ERASE    +139D                                 
000965,000517:    1314                        BMEMORY            ERASE    +164D                                 
000966,000518:    1561                        CMEMORY            ERASE    +71D                                  
000967,000519: 
000968,000520: 
000969,000521: 
000970,000522:                                                                                                  #        STORAGE USED TO SAVE T1+2 DURING STANDBY.
000971,000523: 
000972,000524:    1671     1100               TIME2SAV           EQUALS   AMEMORY    +000D                      
000973,000525:    1671     1101               TIME1SAV           EQUALS   AMEMORY    +001D                      
000974,000526:    1671     1102               IN1HISAV           EQUALS   AMEMORY    +002D                      
000975,000527:    1671     1103               IN1LOSAV           EQUALS   AMEMORY    +003D                      
000976,000528:    1671     1104               IN1HIDIF           EQUALS   AMEMORY    +004D                      
000977,000529:    1671     1105               IN1LODIF           EQUALS   AMEMORY    +005D                      
000978,000530: 
000979,000531:                                                                                                  #        THE FOLLOWING A MEMORY LOCATIONS ARE USED BY MID-COURSE NAVIGATION:
000980,000532: 
000981,000533:    1671     1100               RRECT              EQUALS   AMEMORY    +000D                      
000982,000534:    1671     1100               RIGNTION           EQUALS   AMEMORY    +000D                      
000983,000535:    1671     1106               VRECT              EQUALS   AMEMORY    +006D                      
000984,000536:    1671     1106               VIGNTION           EQUALS   AMEMORY    +006D                      
000985,000537:    1671     1114               TDELTAV            EQUALS   AMEMORY    +012D                      
000986,000538:    1671     1114               NEWDLTAV           EQUALS   AMEMORY    +012D                      
000987,000539:    1671     1114               YV                 EQUALS   AMEMORY    +012D                      
000988,000540:    1671     1122               TNUV               EQUALS   AMEMORY    +018D                      
000989,000541:    1671     1122               -UPADR             EQUALS   TNUV                                  
000990,000542:    1671     1123               STCNTR             EQUALS   TNUV       +1                         
000991,000543:    1671     1122               NEWNUV             EQUALS   AMEMORY    +018D                      
000992,000544:    1671     1122               ZV                 EQUALS   AMEMORY    +018D                      
000993,000545:    1671     1130               RCV                EQUALS   AMEMORY    +024D                      
000994,000546:    1671     1130               FOUNDR             EQUALS   AMEMORY    +024D                      
000995,000547:    1671     1136               VCV                EQUALS   AMEMORY    +030D                      
000996,000548:    1671     1136               FOUNDV             EQUALS   AMEMORY    +030D                      
000997,000549:    1671     1144               TC                 EQUALS   AMEMORY    +036D                      
000998,000550:    1671     1146               TET                EQUALS   AMEMORY    +038D                      
000999,000551:    1671     1150               XKEP               EQUALS   AMEMORY    +040D                      
001000,000552:    1671     1152               ALPHAV             EQUALS   AMEMORY    +042D                      

Page 24

001002,000554:    1671     1152               DELR               EQUALS   AMEMORY    +042D                      
001003,000555:    1671     1160               BETAV              EQUALS   AMEMORY    +048D                      
001004,000556:    1671     1160               DELVEL             EQUALS   AMEMORY    +048D                      
001005,000557:    1671     1160               UVL                EQUALS   AMEMORY    +048D                      
001006,000558:    1671     1166               PHIV               EQUALS   AMEMORY    +054D                      
001007,000559:    1671     1166               STARMEAS           EQUALS   AMEMORY    +054D                      
001008,000560:    1671     1174               LNDMRKV            EQUALS   AMEMORY    +060D                      
001009,000561:    1671     1174               PSIV               EQUALS   AMEMORY    +060D                      
001010,000562:    1671     1202               ROTLMV             EQUALS   AMEMORY    +066D                      
001011,000563:    1671     1202               FV                 EQUALS   AMEMORY    +066D                      
001012,000564: 
001013,000565:    1671     1210               VECTAB             EQUALS   AMEMORY    +072D                      
001014,000566: 
001015,000567:    1671     1210               TAVEGON            EQUALS   AMEMORY    +072D                      
001016,000568:    1671     1212               TRESUME            EQUALS   AMEMORY    +074D                      
001017,000569:    1671     1214               RAVEGON            EQUALS   AMEMORY    +076D                      
001018,000570:    1671     1220               BVECTOR            EQUALS   AMEMORY    +080D                      
001019,000571:    1671     1220               UNE                EQUALS   AMEMORY    +080D                      
001020,000572:    1671     1222               VAVEGON            EQUALS   AMEMORY    +082D                      
001021,000573:    1671     1230               UNP                EQUALS   AMEMORY    +088D                      
001022,000574:    1671     1230               RIG-4SEC           EQUALS   AMEMORY    +088D                      
001023,000575:    1671     1236               ERADSQ/4           EQUALS   AMEMORY    +094D                      
001024,000576:    1671     1240               ERAD/2             EQUALS   AMEMORY    +096D                      
001025,000577:    1671     1254               ALPHAM             EQUALS   AMEMORY    +108D                      
001026,000578:    1671     1256               BETAM              EQUALS   AMEMORY    +110D                      
001027,000579:    1671     1256               LONGDES            EQUALS   AMEMORY    +110D                      
001028,000580:    1671     1260               TAU                EQUALS   AMEMORY    +112D                      
001029,000581:    1671     1260               GIVENT             EQUALS   AMEMORY    +112D                      
001030,000582:    1671     1260               DLONG              EQUALS   AMEMORY    +112D                      
001031,000583:    1671     1262               DT/2               EQUALS   AMEMORY    +114D                      
001032,000584:    1671     1262               LAT                EQUALS   AMEMORY    +114D                      
001033,000585:    1671     1264               H                  EQUALS   AMEMORY    +116D                      
001034,000586:    1671     1264               LONG               EQUALS   AMEMORY    +116D                      
001035,000587:    1671     1266               TDEC               EQUALS   AMEMORY    +118D                      
001036,000588:    1671     1270               AZ                 EQUALS   AMEMORY    +120D                      
001037,000589:    1671     1270               FBRANCH            EQUALS   AMEMORY    +120D                      
001038,000590:    1671     1271               HBRANCH            EQUALS   AMEMORY    +121D                      
001039,000591:    1671     1272               GMODE              EQUALS   AMEMORY    +122D                      
001040,000592:    1671     1272               NUMBTEMP           EQUALS   AMEMORY    +122D                      
001041,000593:    1671     1273               NUMBOPT            EQUALS   AMEMORY    +123D                      
001042,000594:    1671     1274               VARIANCE           EQUALS   AMEMORY    +124D                      
001043,000595:    1671     1274               HMAG               EQUALS   AMEMORY    +124D                      
001044,000596:    1671     1276               MEASQ              EQUALS   AMEMORY    +126D                      
001045,000597:    1671     1276               COTGAM             EQUALS   AMEMORY    +126D                      
001046,000598:    1671     1276               DELTAQ             EQUALS   AMEMORY    +126D                      
001047,000599: 
001048,000600:    1671     1300               MEASMODE           EQUALS   AMEMORY    +128D                      
001049,000601:    1671     1300               SITENUMB           EQUALS   AMEMORY    +128D                      
001050,000602:    1671     1301               NVCODE             EQUALS   AMEMORY    +129D                      
001051,000603:    1671     1302               MIDEXIT            EQUALS   AMEMORY    +130D                      

Page 25

001053,000605:    1671     1302               DSPRTRN            EQUALS   AMEMORY    +130D                      
001054,000606:    1671     1303               WMATFLAG           EQUALS   AMEMORY    +131D                      
001055,000607:    1671     1303               INCORPEX           EQUALS   AMEMORY    +131D                      
001056,000608:    1671     1304               STEPEXIT           EQUALS   AMEMORY    +132D                      
001057,000609:    1671     1305               DIFEQCNT           EQUALS   AMEMORY    +133D                      
001058,000610:    1671     1305               NORMGAM            EQUALS   AMEMORY    +133D                      
001059,000611:    1671     1306               SCALEA             EQUALS   AMEMORY    +134D                      
001060,000612:    1671     1307               SCALEB             EQUALS   AMEMORY    +135D                      
001061,000613:    1671     1310               SCALEDT            EQUALS   AMEMORY    +136D                      
001062,000614:    1671     1311               SCALDELT           EQUALS   AMEMORY    +137D                      
001063,000615:    1671     1312               SCALER             EQUALS   AMEMORY    +138D                      
001064,000616: 
001065,000617:    1671     1313               FFFLAGS            EQUALS   AMEMORY    +139D                      
001066,000618: 
001067,000619: 
001068,000620: 
001069,000621:                                                                                                  #        A MEMORY ASSIGNMENTS FOR UPDATE ROUTINE
001070,000622: 
001071,000623:    1671     1100               STBUFF             EQUALS   AMEMORY    +000D                      
001072,000624:    1671     1116               UPOLDMD            EQUALS   AMEMORY    +014D                      
001073,000625:    1671     1117               COMPNUMB           EQUALS   AMEMORY    +015D                      
001074,000626: 
001075,000627: 
001076,000628: 
001077,000629:                                                                                                  #        ENTRY ITEMS IN A MEMORY TO BE INCLUDED IN DOWN-LINK.
001078,000630: 
001079,000631:    1671     1100               FX                 EQUALS   AMEMORY    +0                         #  SHARES THIS LOC WITH RRECT.
001080,000632:    1671     1106               PREDANG            EQUALS   AMEMORY    +06D                       #  SHARES THIS LOC WITH VRECT.
001081,000633:    1671     1107               JJ                 EQUALS   AMEMORY    +07D                       #  SHARES THIS LOC WITH VRECT.
001082,000634:    1671     1110               THETAH             EQUALS   AMEMORY    +08D                       #  SHARES THIS LOC WITH VRECT.
001083,000635:    1671     1112               LATANG             EQUALS   AMEMORY    +010D                      #  SHARES THIS LOC WITH VRECT.
001084,000636:    1671     1222               L/D                EQUALS   AMEMORY    +082D                      #  SHARES THIS LOC WITH VAVEGON.
001085,000637:    1671     1224               DIFF               EQUALS   AMEMORY    +084D                      #  SHARES THIS LOC WITH VAVEGON.
001086,000638:                                                                                                  #  END OF ENTRY ITEMS.
001087,000639: 
001088,000640: 
001089,000641:                                                                                                  #        A MEMORY ASSIGNMENTS FOR ROTATING EARTH ROUTINE.
001090,000642: 
001091,000643:    1671     1114               RTINIT             EQUALS   AMEMORY    +012D                      
001092,000644:    1671     1122               RTEAST             EQUALS   AMEMORY    +018D                      
001093,000645:    1671     1130               RTNORM             EQUALS   AMEMORY    +024D                      
001094,000646:    1671     1214               RT                 EQUALS   AMEMORY    +076D                      #  SHARES THIS LOCATION WITH RAVEGON
001095,000647:    1671     1144               DTEAROT            EQUALS   AMEMORY    +036D                      
001096,000648: 
001097,000649: 
001098,000650: 
001099,000651:                                                                                                  #        A MEMORY TEMPORARIES USED BY PRELAUNCH
001100,000652: 
001101,000653:    1671     1243               PTEMP              EQUALS   AMEMORY    +99D                       
001102,000654: 

Page 26

001104,000656: 
001105,000657:                                                                                                  #        A MEMORY  USAGE AS TEMPORARIES BY AVERAGE G ROUTINE.
001106,000658: 
001107,000659:    1671     1277               RN1                EQUALS   AMEMORY    +127D                      
001108,000660:    1671     1305               VN1                EQUALS   AMEMORY    +133D                      
001109,000661:    1671     1313               AVGRETRN           EQUALS   AMEMORY    +139D                      
001110,000662: 
001111,000663: 
001112,000664: 
001113,000665:                                                                                                  #        A MEMORY TEMPORARIES USED BY SERVICER
001114,000666: 
001115,000667:    1671     1261               VGCNT1             EQUALS   AMEMORY    +113D                      
001116,000668:    1671     1262               DVCNT1             EQUALS   AMEMORY    +114D                      
001117,000669:    1671     1263               VR1                EQUALS   AMEMORY    +115D                      #  12 LOCATIONS FOR VR, DIFFVECT
001118,000670: 
001119,000671: 
001120,000672: 
001121,000673:                                                                                                  #        SYSTEM TEST A MEMORY USAGE:
001122,000674: 
001123,000675:    1671     1100               GENPL              EQUALS   AMEMORY    +000D                      
001124,000676:    1671     1100               TAR1POS            EQUALS   GENPL                                 
001125,000677:    1671     1114               FILDELX            EQUALS   AMEMORY    +012D                      
001126,000678:    1671     1174               TMARK              EQUALS   AMEMORY    +060D                      
001127,000679:    1671     1176               VMARK              EQUALS   AMEMORY    +062D                      
001128,000680:    1671     1213               COARSAGN           EQUALS   AMEMORY    +075D                      
001129,000681:    1671     1215               TESTTIME           EQUALS   AMEMORY    +077D                      
001130,000682:    1671     1216               LTSTNDX            EQUALS   AMEMORY    +078D                      
001131,000683:    1671     1220               COUNTPL            EQUALS   AMEMORY    +080D                      
001132,000684:    1671     1221               PIPINDEX           EQUALS   AMEMORY    +081D                      
001133,000685:    1671     1222               PIPANO             EQUALS   AMEMORY    +082D                      
001134,000686:    1671     1223               POSITON            EQUALS   AMEMORY    +083D                      
001135,000687:    1671     1224               RESULTCT           EQUALS   AMEMORY    +084D                      
001136,000688:    1671     1224               NDXCTR             EQUALS   RESULTCT                              
001137,000689:    1671     1225               QPLACE             EQUALS   AMEMORY    +085D                      
001138,000690: 
001139,000691:    1671     1226               PIPNDX             EQUALS   AMEMORY    +086D                      
001140,000692:    1671     1230               STOREPL            EQUALS   AMEMORY    +088D                      
001141,000693:    1671     1231               NBPOS              EQUALS   AMEMORY    +89D                       
001142,000694:    1671     1232               TESTNDX            EQUALS   AMEMORY    +90D                       
001143,000695:    1671     1233               CDUNDX             EQUALS   AMEMORY    +91D                       
001144,000696:    1671     1234               GYROD              EQUALS   AMEMORY    +92D                       
001145,000697:    1671     1242               DATAPL             EQUALS   AMEMORY    +98D                       
001146,000698: 
001147,000699:    1671     1302               VACADR             EQUALS   AMEMORY    +130D                      
001148,000700:    1671     1304               MKSTAT1            EQUALS   AMEMORY    +132D                      
001149,000701:    1671     1305               COAROFIN           EQUALS   AMEMORY    +133D                      
001150,000702:    1671     1307               MAXPTS2            EQUALS   AMEMORY    +135D                      
001151,000703:    1671     1310               QPLAC              EQUALS   AMEMORY    +136D                      
001152,000704:    1671     1311               PTS                EQUALS   AMEMORY    +137D                      
001153,000705:    1671     1312               RUN                EQUALS   AMEMORY    +138D                      
001154,000706:    1671     1313               EROPTN             EQUALS   AMEMORY    +139D                      
001155,000707: 

Page 27

001157,000709:    1671     1561               TESTNO             EQUALS   CMEMORY    +000D                      
001158,000710:    1671     1562               SAVE               EQUALS   CMEMORY    +001D                      
001159,000711:    1671     1563               PLOW               EQUALS   CMEMORY    +002D                      
001160,000712:    1671     1564               CUSSANG            EQUALS   CMEMORY    +003D                      
001161,000713:    1671     1565               NEGCDU1            EQUALS   CMEMORY    +004D                      
001162,000714:    1671     1566               NEGCDU2            EQUALS   CMEMORY    +005D                      
001163,000715:    1671     1567               LOCNO              EQUALS   CMEMORY    +006D                      
001164,000716:    1671     1570               CALCDIR            EQUALS   CMEMORY    +007D                      
001165,000717:    1671     1571               BUBBLE             EQUALS   CMEMORY    +008D                      
001166,000718:    1671     1572               TEMDELV            EQUALS   CMEMORY    +009D                      
001167,000719:    1671     1573               RETAA              EQUALS   CMEMORY    +010D                      
001168,000720:    1671     1574               RETBB              EQUALS   CMEMORY    +011D                      
001169,000721:    1671     0621               STARNUMB           EQUALS   DSPTEM2                               
001170,000722: 
001171,000723: 
001172,000724:                                                                                                  #  B MEMORY USED BY POWERED FLIGHT AND ATTITUDE MANEUVERS
001173,000725: 
001174,000726:    1671     1314               CDUTEMP            EQUALS   BMEMORY    +000D                      
001175,000727:    1671     1322               CDUBUF             EQUALS   BMEMORY    +006D                      
001176,000728:    1671     1322               WC                 EQUALS   BMEMORY    +006D                      
001177,000729:    1671     1322               UNITN              EQUALS   BMEMORY    +006D                      
001178,000730:    1671     1322               RTRNSLUN           EQUALS   BMEMORY    +006D                      
001179,000731:    1671     1322               VF                 EQUALS   BMEMORY    +006D                      
001180,000732:    1671     1330               SINCDU             EQUALS   BMEMORY    +012D                      
001181,000733:    1671     1336               COSCDU             EQUALS   BMEMORY    +018D                      
001182,000734:    1671     1344               DCDU               EQUALS   BMEMORY    +024D                      
001183,000735:    1671     1344               DUPCDU             EQUALS   BMEMORY    +024D                      
001184,000736:    1671     1344               STEERROR           EQUALS   BMEMORY    +024D                      
001185,000737:    1671     1352               DNB                EQUALS   BMEMORY    +030D                      
001186,000738:    1671     1352               VG                 EQUALS   BMEMORY    +030D                      
001187,000739:    1671     1352               UNITVG             EQUALS   BMEMORY    +030D                      
001188,000740:    1671     1360               ERRORSUM           EQUALS   BMEMORY    +036D                      
001189,000741:    1671     1366               XSC                EQUALS   BMEMORY    +042D                      
001190,000742:    1671     1366               UNITRXV            EQUALS   BMEMORY    +042D                      
001191,000743:    1671     1366               UNITF              EQUALS   BMEMORY    +042D                      
001192,000744:    1671     1366               UNITD              EQUALS   BMEMORY    +042D                      
001193,000745:    1671     1374               YSC                EQUALS   BMEMORY    +048D                      
001194,000746:    1671     1374               UNITHORZ           EQUALS   BMEMORY    +048D                      
001195,000747:    1671     1374               UNITS              EQUALS   BMEMORY    +048D                      
001196,000748:    1671     1402               ZSC                EQUALS   BMEMORY    +054D                      
001197,000749:    1671     1402               UNITMDT            EQUALS   BMEMORY    +054D                      
001198,000750:    1671     1410               XSCD               EQUALS   BMEMORY    +060D                      
001199,000751:    1671     1410               CBDT               EQUALS   BMEMORY    +060D                      
001200,000752:    1671     1416               YSCD               EQUALS   BMEMORY    +066D                      
001201,000753:    1671     1416               VR                 EQUALS   BMEMORY    +066D                      
001202,000754:    1671     1424               ZSCD               EQUALS   BMEMORY    +072D                      
001203,000755:    1671     1424               SGNTHETA           EQUALS   BMEMORY    +072D                      
001204,000756:    1671     1424               DIFFVECT           EQUALS   BMEMORY    +072D                      
001205,000757:    1671     1432               RTARG              EQUALS   BMEMORY    +078D                      

Page 28

001207,000759:    1671     1432               DTEMP1             EQUALS   BMEMORY    +078D                      
001208,000760:    1671     1432               S                  EQUALS   BMEMORY    +078D                      
001209,000761:    1671     1434               DN                 EQUALS   BMEMORY    +080D                      
001210,000762:    1671     1436               SMA                EQUALS   BMEMORY    +082D                      
001211,000763:    1671     1440               ANORMAL            EQUALS   BMEMORY    +084D                      
001212,000764:    1671     1442               LOOKANG            EQUALS   BMEMORY    +086D                      
001213,000765:    1671     1443               DISPCNTR           EQUALS   BMEMORY    +087D                      
001214,000766:    1671     1444               MDT                EQUALS   BMEMORY    +088D                      
001215,000767:    1671     1446               VGCNTR             EQUALS   BMEMORY    +090D                      
001216,000768:    1671     1447               DVCNTR             EQUALS   BMEMORY    +091D                      
001217,000769:                                                                                                  # K1ROLL         EQUALS  BMEMORY +092D   N.B. THIS LOCATION SHARED WITH ENTRY
001218,000770:    1671     1452               DTHETA             EQUALS   BMEMORY    +094D                      
001219,000771:    1671     1454               THETAMAN           EQUALS   BMEMORY    +096D                      
001220,000772:    1671     1456               TFF                EQUALS   BMEMORY    +098D                      
001221,000773:    1671     1460               LONGTIME           EQUALS   BMEMORY    +100D                      
001222,000774:    1671     1462               TLIFTOFF           EQUALS   BMEMORY    +102D                      
001223,000775:    1671     1462               TENGON             EQUALS   BMEMORY    +102D                      
001224,000776:    1671     1462               TCUTOFF            EQUALS   BMEMORY    +102D                      
001225,000777:    1671     1464               PIPTIME            EQUALS   BMEMORY    +104D                      
001226,000778:    1671     1466               LONGEXIT           EQUALS   BMEMORY    +106D                      
001227,000779:    1671     1467               CALLCADR           EQUALS   BMEMORY    +107D                      
001228,000780:    1671     1470               VRCADR             EQUALS   BMEMORY    +108D                      
001229,000781:    1671     1471               EXITCADR           EQUALS   BMEMORY    +109D                      
001230,000782:    1671     1472               ROLLC              EQUALS   BMEMORY    +110D                      #  N.B. THIS LOCATION SHARED WITH ENTRY
001231,000783:    1671     1474               EXITCAD1           EQUALS   BMEMORY    +112D                      
001232,000784: 
001233,000785:                                                                                                  #  B, C MEMORY USED FOR ERASABLE 501 LAUNCH, AIMPOINT, VEHICLE DATA.
001234,000786: 
001235,000787:    1671     1617               TATLAN1            EQUALS   CMEMORY    +030D                      
001236,000788:    1671     1526               TATLANT            EQUALS   BMEMORY    +138D                      
001237,000789:    1671     1621               RTATLAN1           EQUALS   CMEMORY    +032D                      
001238,000790:    1671     1530               RTATLANT           EQUALS   BMEMORY    +140D                      
001239,000791:    1671     1627               TPACIF1            EQUALS   CMEMORY    +038D                      
001240,000792:    1671     1536               TPACIFC            EQUALS   BMEMORY    +146D                      
001241,000793:    1671     1631               RTPACIF1           EQUALS   CMEMORY    +040D                      
001242,000794:    1671     1540               RTPACIFC           EQUALS   BMEMORY    +148D                      
001243,000795:    1671     1546               ESQ(VR)            EQUALS   BMEMORY    +154D                      
001244,000796:    1671     1552               SEMILAT            EQUALS   BMEMORY    +158D                      
001245,000797:    1671     1556               TCOAST             EQUALS   BMEMORY    +162D                      
001246,000798:    1671     1560               TDECAY             EQUALS   BMEMORY    +164D                      
001247,000799: 
001248,000800: 
001249,000801: 
001250,000802:                                                                                                  #        THE FOLLOWING ARE RE-ENTRY AND PRE-RE-ENTRY ASSIGNMENTS:
001251,000803: 
001252,000804:    1671     1314               (V)                EQUALS   BMEMORY    +000D                      
001253,000805:    1671     1324               DIFFOLD            EQUALS   BMEMORY    +008D                      
001254,000806:    1671     1326               Q7                 EQUALS   BMEMORY    +010D                      

Page 29

001256,000808:    1671     1330               FACT2              EQUALS   BMEMORY    +012D                      
001257,000809:    1671     1332               ESQ                EQUALS   BMEMORY    +014D                      
001258,000810:    1671     1340               LEWD               EQUALS   BMEMORY    +020D                      
001259,000811:    1671     1342               VSQUARE            EQUALS   BMEMORY    +022D                      
001260,000812:    1671     1344               DADV1              EQUALS   BMEMORY    +24D                       
001261,000813:    1671     1346               RDOT               EQUALS   BMEMORY    +026D                      
001262,000814:    1671     1350               TENTRY             EQUALS   BMEMORY    +028D                      
001263,000815:    1671     1352               ROLLBIAS           EQUALS   BMEMORY    +30D                       
001264,000816:                                                                                                  #    A HOLE.
001265,000817:    1671     1356               ETA                EQUALS   BMEMORY    +034D                      
001266,000818:    1671     1362               D                  EQUALS   BMEMORY    +038D                      
001267,000819:    1671     1364               V1                 EQUALS   BMEMORY    +040D                      
001268,000820:    1671     1366               NEGTHET            EQUALS   BMEMORY    +042D                      
001269,000821:    1671     1370               V1OLD              EQUALS   BMEMORY    +044D                      
001270,000822:    1671     1372               K2ROLL             EQUALS   BMEMORY    +046D                      
001271,000823:    1671     1374               GOTOADDR           EQUALS   BMEMORY    +048D                      
001272,000824:    1671     1375               XPIPSUM            EQUALS   BMEMORY    +049D                      
001273,000825:    1671     1376               YPIPSUM            EQUALS   BMEMORY    +050D                      
001274,000826:    1671     1377               ZPIPSUM            EQUALS   BMEMORY    +051D                      
001275,000827:    1671     1400               XPIPBUF            EQUALS   BMEMORY    +052D                      
001276,000828:    1671     1404               YPIPBUF            EQUALS   BMEMORY    +056D                      
001277,000829:    1671     1410               ZPIPBUF            EQUALS   BMEMORY    +060D                      
001278,000830:    1671     1414               PIPCTR             EQUALS   BMEMORY    +64D                       
001279,000831:    1671     1415               DOLD               EQUALS   BMEMORY    +65D                       
001280,000832:                                                                                                  #    A HOLE.
001281,000833:    1671     1420               TEM1B              EQUALS   BMEMORY    +68D                       
001282,000834:    1671     1421               M1                 EQUALS   BMEMORY    +69D                       
001283,000835:    1671     1422               GRAD               EQUALS   BMEMORY    +70D                       
001284,000836:                                                                                                  #    A HOLE.
001285,000837:    1671     1431               LEQ                EQUALS   BMEMORY    +77D                       
001286,000838:    1671     1433               DHOOK              EQUALS   BMEMORY    +79D                       
001287,000839:    1671     1435               AHOOKDV            EQUALS   BMEMORY    +81D                       
001288,000840:    1671     1437               DVL                EQUALS   BMEMORY    +83D                       
001289,000841:    1671     1450               K1ROLL             EQUALS   BMEMORY    +092D                      #  N.B. THIS LOCATION SHARED WITH POW. FL.
001290,000842:                                                                                                  #    UNB,X,Y,Z ARE DEFINED LATER.
001291,000843: 
001292,000844:                                                                                                  #                                        END OF RE-ENTRY STUFF
001293,000845: 
001294,000846: 
001295,000847: 
001296,000848:                                                                                                  #        B MEMORY ASSIGNMENTS FOR PRE-LAUNCH ALIGNMENT.
001297,000849: 
001298,000850:    1671     1314               LATITUDE           EQUALS   BMEMORY    +000D                      
001299,000851:    1671     1316               AZIMUTH            EQUALS   BMEMORY    +002D                      
001300,000852:    1671     1320               GYROCSW            EQUALS   BMEMORY    +004D                      
001301,000853:    1671     1321               PRELTEMP           EQUALS   BMEMORY    +005D                      
001302,000854:    1671     1322               PRELXGA            EQUALS   BMEMORY    +006D                      
001303,000855:    1671     1323               PRELYGA            EQUALS   BMEMORY    +007D                      
001304,000856:    1671     1324               PRELZGA            EQUALS   BMEMORY    +008D                      
001305,000857:    1671     1332               INFLANG            EQUALS   BMEMORY    +014D                      

Page 30

001307,000859:    1671     1340               GYROANG            EQUALS   BMEMORY    +020D                      
001308,000860:    1671     1346               TAZ                EQUALS   BMEMORY    +26D                       
001309,000861:    1671     1350               TEL                EQUALS   BMEMORY    +28D                       
001310,000862:    1671     1352               VAZ                EQUALS   BMEMORY    +30D                       
001311,000863:    1671     1354               CHKNVTEM           EQUALS   BMEMORY    +32D                       
001312,000864:    1671     1356               FILTER             EQUALS   BMEMORY    +34D                       
001313,000865:    1671     1360               DELE               EQUALS   BMEMORY    +36D                       
001314,000866:    1671     1360               FILDELZ            EQUALS   DELE                                  
001315,000867:    1671     1362               DELS               EQUALS   BMEMORY    +38D                       
001316,000868:    1671     1362               FILDELY            EQUALS   DELS                                  
001317,000869:    1671     1364               INT                EQUALS   BMEMORY    +40D                       
001318,000870:    1671     1370               PREVTIME           EQUALS   BMEMORY    +44D                       
001319,000871:    1671     1446               THETAY             EQUALS   BMEMORY    +90D                       
001320,000872:    1671     1450               THETAZ             EQUALS   BMEMORY    +92D                       
001321,000873:    1671     1452               THETAX             EQUALS   BMEMORY    +94D                       
001322,000874:    1671     1454               THETASTH           EQUALS   BMEMORY    +96D                       
001323,000875:    1671     1456               THETAE             EQUALS   BMEMORY    +98D                       
001324,000876:    1671     1374               VECTEM             EQUALS   BMEMORY    +48D                       
001325,000877:    1671     1466               TIME2GR            EQUALS   BMEMORY    +106D                      
001326,000878:    1671     1467               TIME1GR            EQUALS   BMEMORY    +107D                      
001327,000879:    1671     1402               TARGET1            EQUALS   BMEMORY    +054D                      
001328,000880: 
001329,000881: 
001330,000882: 
001331,000883:                                                                                                  #        THE FOLLOWING LOCATIONS ARE USED BY IN-FLIGHT ALIGNMENT:
001332,000884: 
001333,000885:    1671     1400               STARS              EQUALS   BMEMORY    +052D                      
001334,000886:    1671     1402               STARAD             EQUALS   TARGET1                               
001335,000887:    1671     1416               STAR               EQUALS   BMEMORY    +066D                      
001336,000888:    1671     1424               XSM                EQUALS   BMEMORY    +072D                      
001337,000889:    1671     1432               YSM                EQUALS   BMEMORY    +078D                      
001338,000890:    1671     1440               ZSM                EQUALS   BMEMORY    +084D                      
001339,000891:    1671     1476               XNB                EQUALS   BMEMORY    +114D                      
001340,000892:    1671     1476               XDC                EQUALS   BMEMORY    +114D                      
001341,000893:    1671     1476               XDSMPR             EQUALS   BMEMORY    +114D                      
001342,000894:    1671     1504               YNB                EQUALS   BMEMORY    +120D                      
001343,000895:    1671     1504               YDC                EQUALS   BMEMORY    +120D                      
001344,000896:    1671     1504               YDSMPR             EQUALS   BMEMORY    +120D                      
001345,000897:    1671     1512               ZNB                EQUALS   BMEMORY    +126D                      
001346,000898:    1671     1512               ZDC                EQUALS   BMEMORY    +126D                      
001347,000899:    1671     1512               ZDSMPR             EQUALS   BMEMORY    +126D                      
001348,000900:    1671     1520               OGC                EQUALS   BMEMORY    +132D                      
001349,000901:    1671     1520               SAC                EQUALS   BMEMORY    +132D                      
001350,000902:    1671     1522               IGC                EQUALS   BMEMORY    +134D                      
001351,000903:    1671     1522               PAC                EQUALS   BMEMORY    +134D                      
001352,000904:    1671     1524               MGC                EQUALS   BMEMORY    +136D                      
001353,000905: 
001354,000906: 
001355,000907: 
001356,000908:                                                                                                  #     RE-ENTRY ATTITUDE CONTROL UNIT VECTORS ALONG NAV BASE.

Page 31

001358,000910:    1671     1476               UXNB               EQUALS   XNB                                   #  USED IN RE-ENTRY CONTROL.
001359,000911:    1671     1504               UYNB               EQUALS   YNB                                   #  USED IN RE-ENTRY CONTROL.
001360,000912:    1671     1512               UZNB               EQUALS   ZNB                                   #  USED IN RE-ENTRY CONTROL.
001361,000913: 
001362,000914: 
001363,000915: 
001364,000916:                                                                                                  #  THE FOLLOWING IS USED FOR ATTITUDE CONTROL
001365,000917: 
001366,000918:    1671     1314               ROLL               EQUALS   BMEMORY    +000D                      
001367,000919:    1671     1315               PITCH              EQUALS   BMEMORY    +001D                      
001368,000920:    1671     1316               YAW                EQUALS   BMEMORY    +002D                      
001369,000921: 
001370,000922: 
001371,000923:                                                                                                  #        CMEMORY USED FOR STORAGE OF 501 BOOST ATTITUDE MONITOR PARAMETERS
001372,000924: 
001373,000925:    1671     1562               TROLL              EQUALS   CMEMORY    +001D                      
001374,000926:    1671     1564               TPITCH             EQUALS   CMEMORY    +003D                      
001375,000927:    1671     1566               TENDPTCH           EQUALS   CMEMORY    +005D                      
001376,000928:    1671     1570               TMONITOR           EQUALS   CMEMORY    +007D                      
001377,000929:    1671     1572               TTUMON             EQUALS   CMEMORY    +009D                      
001378,000930:    1671     1573               POLYENTR           EQUALS   CMEMORY    +010D                      
001379,000931:    1671     1574               POLYORDR           EQUALS   CMEMORY    +011D                      
001380,000932:    1671     1575               POLYCOEF           EQUALS   CMEMORY    +012D                      
001381,000933:    1671     1613               POLYEND            EQUALS   CMEMORY    +026D                      
001382,000934:    1671     1614               ROLLDTH            EQUALS   CMEMORY    +027D                      
001383,000935: 
001384,000936: 
001385,000937: 
001386,000938:                                                                                                  #        THE FOLLOWING IS THE MIDCOURSE 6X6 ERROR TRANSITION MATRIX:
001387,000939: 
001388,000940:    1671     1561               W                  EQUALS   CMEMORY    +000D                      
001389,000941: 
001390,000942: 
001391,000943: 
001392,000944:                                                                                                  #        C MEMORY ASSIGNMENTS FOR RE-RNTRY:
001393,000945: 
001394,000946:    1671     1561               UNI                EQUALS   CMEMORY    +000D                      
001395,000947:    1671     1567               UNITV              EQUALS   CMEMORY    +006D                      
001396,000948:    1671     1575               INITL/D            EQUALS   CMEMORY    +12D                       
001397,000949:    1671     1577               VCORR              EQUALS   CMEMORY    +014D                      
001398,000950:    1671     1601               A0                 EQUALS   CMEMORY    +016D                      
001399,000951:    1671     1603               VBARS              EQUALS   CMEMORY    +018D                      
001400,000952:    1671     1605               COSG/2             EQUALS   CMEMORY    +020D                      
001401,000953:    1671     1607               GAMMAL             EQUALS   CMEMORY    +022D                      
001402,000954:    1671     1611               VS                 EQUALS   CMEMORY    +024D                      
001403,000955:    1671     1613               D0                 EQUALS   CMEMORY    +026D                      
001404,000956:    1671     1615               VL                 EQUALS   CMEMORY    +28D                       
001405,000957:    1671     1617               V                  EQUALS   CMEMORY    +030D                      
001406,000958:    1671     1621               FACTOR             EQUALS   CMEMORY    +032D                      

Page 32

001408,000960:    1671     1623               VREF               EQUALS   CMEMORY    +034D                      
001409,000961:    1671     1625               RDOTREF            EQUALS   CMEMORY    +036D                      
001410,000962:    1671     1627               ALP                EQUALS   CMEMORY    +038D                      
001411,000963:    1671     1631               FACT1              EQUALS   CMEMORY    +040D                      
001412,000964: 

Page 33

001414,000966: 
001415,000967: 
001416,000968: 
001417,000969: 
001418,000970: 
001419,000971:                                                                                                  #        SAVE RRECT AND VRECT IN CMEMORY TO RESTART ORBITAL INTEGRATION.
001420,000972: 
001421,000973:    1671     1655               RRECCMEM           EQUALS   CMEMORY    +60D                       
001422,000974:    1671     1663               VRECCMEM           EQUALS   CMEMORY    +66D                       
001423,000975: 
001424,000976: 
001425,000977: 
001426,000978:                                                                                                  #                ERASABLE ADDED TO THE END OF 202 ASSIGNMENTS FOR FLIGHTS 501 & 2.
001427,000979: 
001428,000980:    1671                        UPTIME             ERASE    +1                                    #  SHOULD BE SET TO 37777, 37777 DURING
001429,000981:                                                                                                  #  PRELAUNCH ERASABLE LOAD.
001430,000982:    1673                        ANGLEX             ERASE                                          #  COLDSOAK -  X GIMBAL ANGLE
001431,000983:    1674                        ANGLEY             ERASE                                          #  COLDSOAK -  Y GIMBAL ANGLE
001432,000984:    1675                        ANGLEZ             ERASE                                          #  COLDSOAK -  Z GIMBAL ANGLE
001433,000985:    1676                        TFFMIN             ERASE    +1                                    #  TIME TO START SPS2 BURN SEQUENCE
001434,000986:    1700                        1/RLLRTE           ERASE    +1                                    #  ROLL RATE DURING BOOST MONITOR
001435,000987:    1702                        MAXROLL            ERASE    +1                                    #  MAX DELTA ROLL ANGLE DURING ROLL MONITOR
001436,000988:    1704                        CGY                ERASE    +3                                    #  C.G. ROTATION ABOUT Y S/C AXIS
001437,000989:    1710                        CGZ                ERASE    +3                                    #  C.G. ROTATION ABOUT Z S/C AXIS
001438,000990:    1714                        ATDT               ERASE    +3                                    #  INTEGRATED INITIAL THRUST ACC. MAGNITUDE
001439,000991:    1720                        TFFNOM             ERASE    +1                                    #  NOMINAL TIME FROM NOMCASE TO 400,000 FT.
001440,000992:    1722                        S2SWITCH           ERASE                                          #  SET NEGATIVE TO RECOMPUTE SPS2 ATTITUDE
001441,000993:    1723                        REFSWTCH           ERASE                                          #  SET NEGATIVE FOR UNCOND. 280K FT FF REF
001442,000994:    1724                        REDOSPS1           ERASE                                          #  SET NEGATIVE TO REDO SPS1 AT AVGON
001443,000995:    1725                        ECC                ERASE    +1                                    # FOR SIMULATION EDITING
001444,000996: 

Page 34

001446,000998: 
001447,000999:                                                                                                  #  THE FOLLOWING STORAGE IS RESERVED EXCLUSIVELY FOR SELF-CHECK
001448,001000: 
001449,001001:    1727                        SELFERAS           ERASE    1760       -          1777            
001450,001002:    1727                        ERESTORE           =        1760                                  
001451,001003:    1727     0115               QADRS              EQUALS   MPAC                                  #  RESERVED
001452,001004:    1727                        2OPTIONS           =        1761                                  
001453,001005:    1727                        SMODE              =        1762                                  
001454,001006:    1727                        FAILREG            =        1763                                  
001455,001007:    1727                        SFAIL              =        1764                                  
001456,001008:    1727                        ERCOUNT            =        1765                                  
001457,001009:    1727                        SCOUNT             =        1766                                  
001458,001010:    1727                        SKEEP1             =        1771                                  
001459,001011:    1727                        SKEEP2             =        1772                                  
001460,001012:    1727                        SKEEP3             =        1773                                  
001461,001013:    1727                        SKEEP4             =        1774                                  
001462,001014:    1727                        SKEEP5             =        1775                                  
001463,001015:    1727                        SKEEP6             =        1776                                  
001464,001016:    1727                        SKEEP7             EQUALS   1777                                  

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