Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

016049,000002:                                                                                                  ## Copyright:   Public domain.
016050,000003:                                                                                                  ## Filename:    IMU_PERFORMANCE_TESTS_2.agc
016051,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
016052,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the third release
016053,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
016054,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
016055,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
016056,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
016057,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
016058,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
016059,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
016060,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
016061,000014:                                                                                                  ##              the original YUL assembler.
016062,000015:                                                                                                  ##
016063,000016:                                                                                                  ## Assembler:   yaYUL
016064,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
016065,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
016066,000019:                                                                                                  ## Pages:       373-381
016067,000020:                                                                                                  ## Mod history: 2009-05-17 RSB  Adapted from the corresponding 
016068,000021:                                                                                                  ##                              Luminary131 file, using page 
016069,000022:                                                                                                  ##                              images from Luminary 1A.
016070,000023:                                                                                                  ##              2011-01-06 JL   Fixed pseudo-label indentation.
016071,000024:                                                                                                  ##              2016-12-14 RSB  Proofed text comments with octopus/ProoferComments
016072,000025:                                                                                                  ##                              and corrected the errors found.
016073,000026:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
016074,000027: 
016075,000028:                                                                                                  ## This source code has been transcribed or otherwise adapted from
016076,000029:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
016077,000030:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
016078,000031:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
016079,000032:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
016080,000033:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
016081,000034:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
016082,000035:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
016083,000036:                                                                                                  ## actually created.
016084,000037:                                                                                                  ##
016085,000038:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
016086,000039:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
016087,000040:                                                                                                  ## the listing from which it was transcribed. It has been verified to
016088,000041:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
016089,000042:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
016090,000043:                                                                                                  ##
016091,000044:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
016092,000045:                                                                                                  ##
016093,000046:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
016094,000047: 

Page 373

016096,000049:                                                                                                  #  NAME -        IMU PERFORMANCE TESTS 2
016097,000050: 
016098,000051:                                                                                                  #  DATE -        MARCH 20, 1967
016099,000052: 
016100,000053:                                                                                                  #  BY -          SYSTEM TEST GROUP 864-6900 EXT. 1274
016101,000054: 
016102,000055:                                                                                                  #  MODNO. -      ZERO
016103,000056: 
016104,000057:                                                                                                  #  FUNCTIONAL DESCRIPTION
016105,000058: 
016106,000059:                                                                                                  #  POSITIONING ROUTINES FOR THE IMU PERFORMANCE TESTS AS WELL AS SOME OF
016107,000060:                                                                                                  #  THE TESTS THEMSELVES.  FOR A DESCRIPTION OF THESE SUBROUTINES AND THE
016108,000061:                                                                                                  #  OPERATING PROCEDURES (TYPICALLY) SEE STG MEMO 685.  THEORETICAL REF. E-1973
016109,000062: 
016110,000063: 33,2045                                           BANK     33                                    
016111,000064: 37,2000                                           SETLOC   IMU2                                  
016112,000065: 37,2000                                           BANK                                           
016113,000066: 37,2002  E5,1416                                  EBANK=   POSITON                               
016114,000067: 37,2002                                           COUNT*   $$/P07                                
016115,000068: 
016116,000069: 37,2002           05311        REDO               TC       NEWMODEX                              
016117,000070: 37,2003           00007                           MM       07         B-14                       
016118,000071: 
016119,000072: 37,2004           02325        GEOIMUTT           TC       IMUZERR                               
016120,000073: 37,2005           34755        IMUBACK            CA       ZERO                                  
016121,000074: 37,2006           55414                           TS       NDXCTR                                
016122,000075: 37,2007           55440                           TS       TORQNDX                               
016123,000076: 37,2010           55441                           TS       TORQNDX    +1                         
016124,000077: 37,2011           55576                           TS       OVFLOWCK                              
016125,000078: 37,2012           34361        NBPOSPL            CA       DEC17                                 
016126,000079: 37,2013           55571                           TS       ZERONDX                               
016127,000080: 37,2014           32476                           CA       XNBADR                                
016128,000081: 37,2015           02367                           TC       ZEROING                               
016129,000082: 37,2016           34736                           CA       HALF                                  
016130,000083: 37,2017           55664                           TS       XNB                                   
016131,000084: 37,2020           06037        GUESS              TC       INTPRET                               
016132,000085: 37,2021           62545        LATAZCHK           DLOAD    SL2                                   
016133,000086: 37,2022           02403                                    LATITUDE                              
016134,000087: 37,2023           15047                           STODL    DSPTEM1    +1                         
016135,000088: 37,2024           02401                                    AZIMUTH                               
016136,000089: 37,2025           77434                           RTB      EXIT                                  
016137,000090: 37,2026           21614                                    1STO2S                                
016138,000091: 37,2027           56154                           XCH      MPAC                                  
016139,000092: 37,2030           55045                           TS       DSPTEM1                               
016140,000093: 37,2031           32473                           CAF      VN0641                                
016141,000094: 37,2032           04616                           TC       BANKCALL                              
016142,000095: 37,2033           20476                           CADR     GOFLASH                               
016143,000096: 37,2034           02270                           TC       ENDTEST1                              
016144,000097: 37,2035           02037                           TC       +2                                    
016145,000098: 37,2036           02031                           TC       -5                                    

Page 374

016147,000100: 37,2037           06037                           TC       INTPRET                               
016148,000101: 37,2040           47135                           SLOAD    RTB                                   
016149,000102: 37,2041           01046                                    DSPTEM1                               
016150,000103: 37,2042           21576                                    CDULOGIC                              
016151,000104: 37,2043           02401                           STORE    AZIMUTH                               
016152,000105: 37,2044           60535                           SLOAD    SR2                                   
016153,000106: 37,2045           01047                                    DSPTEM1    +1                         
016154,000107: 37,2046           02403                           STORE    LATITUDE                              
016155,000108: 37,2047           57546                           COS      DCOMP                                 
016156,000109: 37,2050           77752                           SL1                                            
016157,000110: 37,2051           16437                           STODL    WANGI                                 
016158,000111: 37,2052           02403                                    LATITUDE                              
016159,000112: 37,2053           72556                           SIN      SL1                                   
016160,000113: 37,2054           16435                           STODL    WANGO                                 
016161,000114: 37,2055           02401                                    AZIMUTH                               
016162,000115: 37,2056           73406                           PUSH     SIN                                   
016163,000116: 37,2057           02675                           STORE    YNB        +2                         
016164,000117: 37,2060           16705                           STODL    ZNB        +4                         
016165,000118: 37,2061           77746                           COS                                            
016166,000119: 37,2062           02677                           STORE    YNB        +4                         
016167,000120: 37,2063           77676                           DCOMP                                          
016168,000121: 37,2064           36703        POSGMBL            STCALL   ZNB        +2                         
016169,000122: 37,2065           47353                                    CALCGA                                
016170,000123: 37,2066           77776                           EXIT                                           
016171,000124: 37,2067           04616                           TC       BANKCALL                              
016172,000125: 37,2070           17000                           CADR     IMUCOARS                              
016173,000126: 37,2071           34736                           CAF      BIT14                                 #  IF BIT14 SET, GIMBAL LOCK
016174,000127: 37,2072           70077                           MASK     FLAGWRD3                              
016175,000128: 37,2073           00006                           EXTEND                                         
016176,000129: 37,2074           12076                           BZF      +2                                    
016177,000130: 37,2075           25414                           INCR     NDXCTR                                #  +1 IF IN GIMBAL LOCK, OTHERWISE 0
016178,000131: 37,2076           05516                           TC       DOWNFLAG                              
016179,000132: 37,2077           00056                           ADRES    GLOKFAIL                              #  RESET GIMBAL LOCK FLAG
016180,000133: 37,2100           02315                           TC       IMUSLLLG                              
016181,000134: 37,2101           11414                           CCS      NDXCTR                                #  IF ONE GO AND DO A PIPA TEST ONLY
016182,000135: 37,2102           02126                           TC       PIPACHK                               #  ALIGN AND MEASURE VERTICAL PIPA RATE
016183,000136: 37,2103           02320                           TC       FINIMUDD                              
016184,000137: 37,2104           00006                           EXTEND                                         
016185,000138: 37,2105           31575                           DCA      PERFDLAY                              
016186,000139: 37,2106           05277                           TC       LONGCALL                              #  DELAY WHILE SUSPENSION STABILIZES
016187,000140: 37,2107  E5,1416                                  EBANK=   POSITON                               
016188,000141: 37,2107           02113 76065                     2CADR    GOESTIMS                              
016189,000142: 
016190,000143: 37,2111           32116                           CA       ESTICADR                              
016191,000144: 37,2112           05133                           TC       JOBSLEEP                              
016192,000145: 37,2113           32116        GOESTIMS           CA       ESTICADR                              
016193,000146: 37,2114           05137                           TC       JOBWAKE                               
016194,000147: 37,2115           05261                           TC       TASKOVER                              
016195,000148: 37,2116           76500        ESTICADR           CADR     ESTIMS                                
016196,000149: 37,2117           34755        TORQUE             CA       ZERO                                  

Page 375

016198,000151: 37,2120           55050                           TS       DSPTEM2                               
016199,000152: 37,2121           31504                           CA       DRIFTI                                
016200,000153: 37,2122           55051                           TS       DSPTEM2    +1                         
016201,000154: 37,2123           51416                           INDEX    POSITON                               
016202,000155: 37,2124           55420                           TS       SOUTHDR    -1                         
016203,000156: 37,2125           02457                           TC       SHOW                                  
016204,000157: 
016205,000158: 37,2126           51414        PIPACHK            INDEX    NDXCTR                                #  PIPA TEST
016206,000159: 37,2127           02130                           TC       +1                                    
016207,000160: 37,2130           02447                           TC       EARTHR*                               
016208,000161: 37,2131           34361                           CA       DEC17                                 #  ALLOW PIP COUNTER TO OVERFLOW 17 TIMES
016209,000162: 37,2132           55476                           TS       DATAPL     +4                         #  IN THE ALLOTED TIME INTERVAL
016210,000163: 37,2133           32474                           CA       DEC58                                 
016211,000164: 37,2134           55412                           TS       LENGTHOT                              
016212,000165: 37,2135           34753                           CA       ONE                                   
016213,000166: 37,2136           55537                           TS       RESULTCT                              
016214,000167: 37,2137           34755                           CA       ZERO                                  
016215,000168: 37,2140           51415                           INDEX    PIPINDEX                              
016216,000169: 37,2141           54037                           TS       PIPAX                                 
016217,000170: 37,2142           55472                           TS       DATAPL                                
016218,000171: 37,2143           02332                           TC       CHECKG                                
016219,000172: 37,2144           00004                           INHINT                                         
016220,000173: 37,2145           34752                           CAF      TWO                                   
016221,000174: 37,2146           05173                           TC       TWIDDLE                               
016222,000175: 37,2147  E5,1642                                  EBANK=   XSM                                   
016223,000176: 37,2147           02151                           ADRES    PIPATASK                              
016224,000177: 37,2150           05155                           TC       ENDOFJOB                              
016225,000178: 
016226,000179: 37,2151           00006        PIPATASK           EXTEND                                         
016227,000180: 37,2152           27412                           DIM      LENGTHOT                              
016228,000181: 37,2153           31412                           CA       LENGTHOT                              
016229,000182: 37,2154           00006                           EXTEND                                         
016230,000183: 37,2155           62161                           BZMF     STARTPIP                              
016231,000184: 37,2156           34742                           CAF      BIT10                                 
016232,000185: 37,2157           05173                           TC       TWIDDLE                               
016233,000186: 37,2160  E5,1642                                  EBANK=   XSM                                   
016234,000187: 37,2160           02151                           ADRES    PIPATASK                              
016235,000188: 37,2161           34736        STARTPIP           CAF      PRIO20                                
016236,000189: 37,2162           05105                           TC       FINDVAC                               
016237,000190: 37,2163  E5,1642                                  EBANK=   XSM                                   
016238,000191: 37,2163           02166 76065                     2CADR    PIPJOBB                               
016239,000192: 
016240,000193: 37,2165           05261                           TC       TASKOVER                              
016241,000194: 
016242,000195: 37,2166           51414        PIPJOBB            INDEX    NDXCTR                                
016243,000196: 37,2167           02170                           TC       +1                                    
016244,000197: 37,2170           02447                           TC       EARTHR*                               
016245,000198: 37,2171           31412                           CA       LENGTHOT                              

Page 376

016247,000200: 37,2172           00006                           EXTEND                                         
016248,000201: 37,2173           62175                           BZMF     +2                                    
016249,000202: 37,2174           05155                           TC       ENDOFJOB                              
016250,000203: 
016251,000204: 37,2175           34756                           CA       FIVE                                  
016252,000205: 37,2176           55537                           TS       RESULTCT                              
016253,000206: 37,2177           02332                           TC       CHECKG                                
016254,000207: 37,2200           11473                           CCS      DATAPL     +1                         
016255,000208: 37,2201           02205                           TC       +4                                    
016256,000209: 37,2202           05705                           TC       CCSHOLE                               
016257,000210: 37,2203           41476                           CS       DATAPL     +4                         
016258,000211: 37,2204           55476                           TS       DATAPL     +4                         
016259,000212: 37,2205           00006                           EXTEND                                         
016260,000213: 37,2206           41473                           DCS      DATAPL                                
016261,000214: 37,2207           21477                           DAS      DATAPL     +4                         
016262,000215: 
016263,000216: 37,2210           06037                           TC       INTPRET                               
016264,000217: 37,2211           45345                           DLOAD    DSU                                   
016265,000218: 37,2212           02501                                    DATAPL     +6                         
016266,000219: 37,2213           02475                                    DATAPL     +2                         
016267,000220: 37,2214           45044                           BPL      CALL                                  
016268,000221: 37,2215           76217                                    AINGOTN                               
016269,000222: 37,2216           76275                                    OVERFFIX                              
016270,000223: 37,2217           56325        AINGOTN            PDDL     DDV                                   
016271,000224: 37,2220           02477                                    DATAPL     +4                         
016272,000225: 37,2221           47075                           DMPR     RTB                                   
016273,000226: 37,2222           37056                                    DEC585                                #  DEC585 HAS BEEN REDEFINED FOR LEM
016274,000227: 37,2223           21612                                    SGNAGREE                              
016275,000228: 37,2224           01051                           STORE    DSPTEM2                               
016276,000229: 37,2225           77776                           EXIT                                           
016277,000230: 37,2226           11414                           CCS      NDXCTR                                
016278,000231: 37,2227           02301                           TC       COAALIGN                              #  TAKE PLATFORM OUT OF GIMBAL LOCK
016279,000232: 37,2230           02457                           TC       SHOW                                  
016280,000233: 37,2231           32471        VERTDRFT           CA       3990DEC                               #  ABOUT 1 HOUR VERTICAL DRIFT TEST
016281,000234: 37,2232           55412                           TS       LENGTHOT                              
016282,000235: 37,2233           51416                           INDEX    POSITON                               
016283,000236: 37,2234           41417                           CS       SOUTHDR    -2                         
016284,000237: 37,2235           55442                           TS       DRIFTT                                
016285,000238: 37,2236           11415                           CCS      PIPINDEX                              #  OFFSET PLATFORM TO MISS PIP DEAD-ZONES
016286,000239: 37,2237           12245                           TCF      PON4                                  #  Z UP IN POS 4
016287,000240: 37,2240           44747        PON2               CS       BIT5                                  #  X UP
016288,000241: 37,2241           27565                           ADS      ERCOMP     +2                         
016289,000242: 37,2242           34747                           CA       BIT5                                  
016290,000243: 37,2243           27567                           ADS      ERCOMP     +4                         
016291,000244: 37,2244           12251                           TCF      PON                                   
016292,000245: 37,2245           44747        PON4               CS       BIT5                                  
016293,000246: 37,2246           27565                           ADS      ERCOMP     +2                         
016294,000247: 37,2247           34747                           CA       BIT5                                  
016295,000248: 37,2250           27563                           ADS      ERCOMP                                
016296,000249: 37,2251           02447        PON                TC       EARTHR*                               

Page 377

016298,000251: 37,2252           34755                           CA       ZERO                                  #  ALLOW ONLY SOUTH GYRO EARTH RATE COMPENS
016299,000252: 37,2253           55404                           TS       ERVECTOR                              
016300,000253: 37,2254           55405                           TS       ERVECTOR   +1                         
016301,000254: 37,2255           34733        GUESS1             CAF      POSMAX                                
016302,000255: 37,2256           55440                           TS       TORQNDX                               
016303,000256: 37,2257           55441                           TS       TORQNDX    +1                         
016304,000257: 37,2260           30032                           CA       CDUX                                  
016305,000258: 37,2261           55413                           TS       LOSVEC                                
016306,000259: 37,2262           02500                           TC       ESTIMS                                
016307,000260: 37,2263           31502        VALMIS             CA       DRIFTO                                
016308,000261: 37,2264           55051                           TS       DSPTEM2    +1                         
016309,000262: 37,2265           34755                           CA       ZERO                                  
016310,000263: 37,2266           55050                           TS       DSPTEM2                               
016311,000264: 37,2267           02457                           TC       SHOW                                  
016312,000265: 
016313,000266: 37,2270           05516        ENDTEST1           TC       DOWNFLAG                              
016314,000267: 37,2271           00007                           ADRES    IMUSE                                 
016315,000268: 37,2272           44755                           CS       ZERO                                  
016316,000269: 37,2273           05314                           TC       NEWMODEA                              
016317,000270: 37,2274           05472                           TC       ENDEXT                                
016318,000271: 

Page 378

016320,000273: 37,2275           43215        OVERFFIX           DAD      DAD                                   
016321,000274: 37,2276           06530                                    DPPOSMAX                              
016322,000275: 37,2277           37064                                    ONEDPP                                
016323,000276: 37,2300           77616                           RVQ                                            
016324,000277: 
016325,000278: 37,2301           00006        COAALIGN           EXTEND                                         #  COARSE ALIGN SUBROUTINE
016326,000279: 37,2302           23571                           QXCH     ZERONDX                               
016327,000280: 37,2303           34755                           CA       ZERO                                  
016328,000281: 37,2304           54321                           TS       THETAD                                
016329,000282: 37,2305           54322                           TS       THETAD     +1                         
016330,000283: 37,2306           54323                           TS       THETAD     +2                         
016331,000284: 37,2307           04616                           TC       BANKCALL                              
016332,000285: 37,2310           17000                           CADR     IMUCOARS                              
016333,000286: 37,2311           04616        ALIGNCOA           TC       BANKCALL                              
016334,000287: 37,2312           17716                           CADR     IMUSTALL                              
016335,000288: 37,2313           03047                           TC       SOMERR2                               
016336,000289: 37,2314           01571                           TC       ZERONDX                               
016337,000290: 
016338,000291: 37,2315           00006        IMUSLLLG           EXTEND                                         
016339,000292: 37,2316           23571                           QXCH     ZERONDX                               
016340,000293: 37,2317           02311                           TC       ALIGNCOA                              
016341,000294: 
016342,000295: 37,2320           00006        FINIMUDD           EXTEND                                         
016343,000296: 37,2321           23571                           QXCH     ZERONDX                               
016344,000297: 37,2322           04616                           TC       BANKCALL                              
016345,000298: 37,2323           17210                           CADR     IMUFINE                               
016346,000299: 37,2324           02311                           TC       ALIGNCOA                              
016347,000300: 
016348,000301: 37,2325           00006        IMUZERR            EXTEND                                         
016349,000302: 37,2326           23571                           QXCH     ZERONDX                               
016350,000303: 37,2327           04616                           TC       BANKCALL                              
016351,000304: 37,2330           16714                           CADR     IMUZERO                               
016352,000305: 37,2331           02311                           TC       ALIGNCOA                              
016353,000306: 
016354,000307: 37,2332           00006        CHECKG             EXTEND                                         #  PIP PULSE CATCHING ROUTINE
016355,000308: 37,2333           23417                           QXCH     QPLACE                                
016356,000309: 37,2334           02342                           TC       +6                                    
016357,000310: 37,2335           00003        CHECKG1            RELINT                                         
016358,000311: 37,2336           30067                           CA       NEWJOB                                
016359,000312: 37,2337           00006                           EXTEND                                         
016360,000313: 37,2340           62346                           BZMF     +6                                    
016361,000314: 37,2341           05122                           TC       CHANG1                                
016362,000315: 37,2342           00004                           INHINT                                         
016363,000316: 37,2343           51415                           INDEX    PIPINDEX                              
016364,000317: 37,2344           40037                           CS       PIPAX                                 
016365,000318: 37,2345           55571                           TS       ZERONDX                               
016366,000319: 37,2346           00004                           INHINT                                         

Page 379

016368,000321: 37,2347           51415                           INDEX    PIPINDEX                              
016369,000322: 37,2350           30037                           CA       PIPAX                                 
016370,000323: 37,2351           61571                           AD       ZERONDX                               
016371,000324: 37,2352           00006                           EXTEND                                         
016372,000325: 37,2353           12335                           BZF      CHECKG1                               
016373,000326: 37,2354           51415                           INDEX    PIPINDEX                              
016374,000327: 37,2355           30037                           CA       PIPAX                                 
016375,000328: 37,2356           51537                           INDEX    RESULTCT                              
016376,000329: 37,2357           55472                           TS       DATAPL                                
016377,000330: 37,2360           04102                           TC       FINETIME                              
016378,000331: 37,2361           51537                           INDEX    RESULTCT                              
016379,000332: 37,2362           55473                           TS       DATAPL     +1                         
016380,000333: 37,2363           51537                           INDEX    RESULTCT                              
016381,000334: 37,2364           23474                           LXCH     DATAPL     +2                         
016382,000335: 37,2365           00003                           RELINT                                         
016383,000336: 37,2366           01417        ENDCHKG            TC       QPLACE                                
016384,000337: 
016385,000338: 37,2367           54001        ZEROING            TS       L                                     
016386,000339: 37,2370           12372                           TCF      +2                                    
016387,000340: 37,2371           55571        ZEROING1           TS       ZERONDX                               
016388,000341: 37,2372           34755                           CAF      ZERO                                  
016389,000342: 37,2373           50001                           INDEX    L                                     
016390,000343: 37,2374           54000                           TS       0                                     
016391,000344: 37,2375           24001                           INCR     L                                     
016392,000345: 37,2376           11571                           CCS      ZERONDX                               
016393,000346: 37,2377           12371                           TCF      ZEROING1                              
016394,000347: 37,2400           00002                           TC       Q                                     
016395,000348: 

Page 380

016397,000350: 37,2401           65345        ERTHRVSE           DLOAD    PDDL                                  
016398,000351: 37,2402           37057                                    SCHZEROS                              #  PD24 = (SIN             -COS     0)(OMEG/MS)
016399,000352: 37,2403           02403                                    LATITUDE                              
016400,000353: 37,2404           57546                           COS      DCOMP                                 
016401,000354: 37,2405           73525                           PDDL     SIN                                   
016402,000355: 37,2406           02403                                    LATITUDE                              
016403,000356: 37,2407           74266                           VDEF     VXSC                                  
016404,000357: 37,2410           36001                                    OMEG/MS                               
016405,000358: 37,2411           02405                           STORE    ERVECTOR                              
016406,000359: 37,2412           77634                           RTB                                            
016407,000360: 37,2413           21573                                    LOADTIME                              
016408,000361: 37,2414           26433                           STOVL    TMARK                                 
016409,000362: 37,2415           37057                                    SCHZEROS                              
016410,000363: 37,2416           02564                           STORE    ERCOMP                                
016411,000364: 37,2417           77616                           RVQ                                            
016412,000365: 
016413,000366: 37,2420           47020        EARTHR             ITA      RTB                                   
016414,000367: 37,2421           00051                                    S2                                    
016415,000368: 37,2422           21573                                    LOADTIME                              
016416,000369: 37,2423           02431                           STORE    TEMPTIME                              
016417,000370: 37,2424           51025                           DSU      BPL                                   
016418,000371: 37,2425           02433                                    TMARK                                 
016419,000372: 37,2426           76431                                    ERTHR                                 
016420,000373: 37,2427           77624                           CALL                                           
016421,000374: 37,2430           76275                                    OVERFFIX                              
016422,000375: 37,2431           74261        ERTHR              SL       VXSC                                  
016423,000376: 37,2432           20212                                    9D                                    
016424,000377: 37,2433           02405                                    ERVECTOR                              
016425,000378: 37,2434           53321                           MXV      VAD                                   
016426,000379: 37,2435           02643                                    XSM                                   
016427,000380: 37,2436           02564                                    ERCOMP                                
016428,000381: 37,2437           16564                           STODL    ERCOMP                                
016429,000382: 37,2440           02431                                    TEMPTIME                              
016430,000383: 37,2441           02433                           STORE    TMARK                                 
016431,000384: 37,2442           47170                           AXT,1    RTB                                   
016432,000385: 37,2443           02563                           ECADR    ERCOMP                                
016433,000386: 37,2444           21705                                    PULSEIMU                              
016434,000387: 37,2445           77650                           GOTO                                           
016435,000388: 37,2446           00051                                    S2                                    
016436,000389: 
016437,000390: 37,2447           00006        EARTHR*            EXTEND                                         
016438,000391: 37,2450           23420                           QXCH     QPLACES                               
016439,000392: 37,2451           06037                           TC       INTPRET                               
016440,000393: 37,2452           77624                           CALL                                           
016441,000394: 37,2453           76420                                    EARTHR                                
016442,000395: 37,2454           77776                           EXIT                                           
016443,000396: 37,2455           02315                           TC       IMUSLLLG                              
016444,000397: 37,2456           01420                           TC       QPLACES                               
016445,000398: 
016446,000399: 37,2457           00006        SHOW               EXTEND                                         

Page 381

016448,000401: 37,2460           23417                           QXCH     QPLACE                                
016449,000402: 37,2461           31416        SHOW1              CA       POSITON                               
016450,000403: 37,2462           55052                           TS       DSPTEM2    +2                         
016451,000404: 37,2463           32472                           CA       VB06N98                               
016452,000405: 37,2464           04616                           TC       BANKCALL                              
016453,000406: 37,2465           20476                           CADR     GOFLASH                               
016454,000407: 37,2466           02270                           TC       ENDTEST1                              #  V34
016455,000408: 37,2467           01417                           TC       QPLACE                                #  V33
016456,000409: 37,2470           12461                           TCF      SHOW1                                 
016457,000410: 
016458,000411: 37,2471           07626        3990DEC            DEC      3990       B-14                       
016459,000412: 37,2472           01542        VB06N98            VN       0698                                  
016460,000413: 37,2473           01451        VN0641             VN       0641                                  
016461,000414: 37,2474     4361               DEC17              =        ND1                                   
016462,000415: 37,2474           00072        DEC58              DEC      58         B-14                       
016463,000416: 37,2475           02737        OGCPL              ECADR    OGC                                   
016464,000417: 37,2476     4777               1SECX              =        1SEC                                  
016465,000418: 37,2476           01664        XNBADR             GENADR   XNB                                   
016466,000419: 37,2477           01642        XSMADR             GENADR   XSM                                   
016467,000420:    4102                                           BLOCK    2                                     
016468,000421:    4102                                           COUNT*   $$/P07                                
016469,000422:    4102           00004        FINETIME           INHINT                                         #  RETURNS WITH INTERRUPT INHIBITED
016470,000423:    4103           00006                           EXTEND                                         
016471,000424:    4104           00004                           READ     LOSCALAR                              
016472,000425:    4105           54001                           TS       L                                     
016473,000426:    4106           00006                           EXTEND                                         
016474,000427:    4107           06004                           RXOR     LOSCALAR                              
016475,000428:    4110           00006                           EXTEND                                         
016476,000429:    4111           14115                           BZF      +4                                    
016477,000430:    4112           00006                           EXTEND                                         
016478,000431:    4113           00004                           READ     LOSCALAR                              
016479,000432:    4114           54001                           TS       L                                     
016480,000433:    4115           44733                 +4        CS       POSMAX                                
016481,000434:    4116           60001                           AD       L                                     
016482,000435:    4117           00006                           EXTEND                                         
016483,000436:    4120           14103                           BZF      FINETIME   +1                         
016484,000437:    4121           00006                           EXTEND                                         
016485,000438:    4122           00003                           READ     HISCALAR                              
016486,000439:    4123           00002                           TC       Q                                     
016487,000440: 

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