Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

016963,000002:                                                                                                  ## Copyright:   Public domain.
016964,000003:                                                                                                  ## Filename:    IMU_PERFORMANCE_TEST_2.agc
016965,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It 
016966,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
016967,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
016968,000007:                                                                                                  ## Assembler:   yaYUL
016969,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
016970,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
016971,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
016972,000011:                                                                                                  ##                              Note that there are similarities with
016973,000012:                                                                                                  ##                              Luminary 99 file of the same name, but
016974,000013:                                                                                                  ##                              it was different enough that it just
016975,000014:                                                                                                  ##                              seemed easier to me to start from scratch.
016976,000015:                                                                                                  ##              2016-10-18 RSB  However, the Aurora 12 file, which has been
016977,000016:                                                                                                  ##                              transcribed in the meantime is actually very
016978,000017:                                                                                                  ##                              similar.  This file was thus created by correcting
016979,000018:                                                                                                  ##                              the Aurora 12 version against the Sunburst 120
016980,000019:                                                                                                  ##                              scanned program listing.
016981,000020:                                                                                                  ##              2016-10-31 RSB  Typos.
016982,000021:                                                                                                  ##              2016-11-02 RSB  More typos.
016983,000022:                                                                                                  ##              2016-12-05 RSB  Comment-proofing with octopus/ProoferComments
016984,000023:                                                                                                  ##                              completed, changes made.
016985,000024:                                                                                                  ##              2017-06-08 RSB  Fixes (comments) identified while transcribing
016986,000025:                                                                                                  ##                              SUNBURST 37.
016987,000026: 

Page 411

016989,000028: 24,2000                                           BANK     24                                    
016990,000029: 24,2000  E5,1400                                  EBANK=   XSM                                   
016991,000030: 
016992,000031: 
016993,000032: 24,2000           37767        IMUTEST            CA       ZERO                                  #  DRIFT AND SCALE FACTOR TEST
016994,000033: 24,2001           55576                           TS       DRIFTT                                
016995,000034: 24,2002           55742                           TS       GEOCOMPS                              
016996,000035: 24,2003           33714                           CAF      1SECX                                 
016997,000036: 24,2004           55744                           TS       1SECXT                                
016998,000037: 
016999,000038: 24,2005           06112                           TC       INTPRET                               
017000,000039: 24,2006           77624                           CALL                                           
017001,000040: 24,2007           30553                                    LATAZCHK                              
017002,000041: 24,2010           77776                           EXIT                                           
017003,000042: 24,2011           37763                           CA       ONE                                   
017004,000043: 24,2012           55544                           TS       POSITON                               
017005,000044: 
017006,000045: 24,2013           54344                           TS       DSPTEM2    +2                         
017007,000046: 24,2014           37763        GEOIMUTT           CA       ONE                                   #  COMPASS COMES IN HERE
017008,000047: 24,2015           54400                           TS       THETAD                                
017009,000048: 24,2016           54401                           TS       THETAD     +1                         
017010,000049: 24,2017           54402                           TS       THETAD     +2                         
017011,000050: 24,2020           05206                           TC       BANKCALL                              
017012,000051: 24,2021           26000                           CADR     IMUZERO                               
017013,000052: 24,2022           05206                           TC       BANKCALL                              
017014,000053: 24,2023           26751                           CADR     IMUSTALL                              
017015,000054: 24,2024           12250                           TCF      ENDTEST1                              
017016,000055: 24,2025           37767        IMUBACK            CA       ZERO                                  
017017,000056: 24,2026           54343                           TS       DSPTEM2    +1                         
017018,000057: 24,2027           55537                           TS       NDXCTR                                
017019,000058: 24,2030           55574                           TS       TORQNDX                               
017020,000059: 24,2031           55575                           TS       TORQNDX    +1                         
017021,000060: 24,2032           33644                           CAF      TESTTIME                              
017022,000061: 24,2033           54342                           TS       DSPTEM2                               
017023,000062: 24,2034           05206                           TC       BANKCALL                              #  ISS RETURNS IN COARSE ALIGN MODE TO
017024,000063: 24,2035           26065                           CADR     IMUCOARS                              #  ENABLE OPERATOR TO DECIDE WHAT TO DO
017025,000064:                                                                                                  #  ABOUT GIMBAL LOCK
017026,000065: 24,2036           11742                           CCS      GEOCOMPS                              
017027,000066: 24,2037           02042                           TC       +3                                    
017028,000067: 24,2040           03576                           TC       SHOWLD                                
017029,000068: 24,2041           03605                           TC       SHOW                                  
017030,000069: 
017031,000070: 
017032,000071: 
017033,000072: 24,2042           05206                           TC       BANKCALL                              
017034,000073: 24,2043           26751                           CADR     IMUSTALL                              
017035,000074: 24,2044           02250                           TC       ENDTEST1                              
017036,000075: 24,2045           03353                           TC       NBPOSPL                               
017037,000076: 24,2046           03104                           TC       POSGMBL                               

Page 412

017039,000078: 24,2047           02113                           TC       PIPACHK                               #  IF MGA IS 60DEG+ PROG WILL STAY IN COARS
017040,000079:                                                                                                  #  ALIGN AND MEASURE VERITCAL PIPA RATE
017041,000080: 24,2050           03133                           TC       FALNE                                 
017042,000081: 24,2051           05206                           TC       BANKCALL                              
017043,000082: 24,2052           26751                           CADR     IMUSTALL                              
017044,000083: 24,2053           12250                           TCF      ENDTEST1                              
017045,000084: 24,2054           11742                           CCS      GEOCOMPS                              
017046,000085: 24,2055           02076                           TC       JUMPLOAD                              
017047,000086: 24,2056           06112        GUESS              TC       INTPRET                               #  CALCULATE -COS LATITUDE AND SIN LATITUDE
017048,000087: 24,2057           71545                           DLOAD    COS                                   #  FOR ESTIMATE
017049,000088: 24,2060           02511                                    LATITUDE                              
017050,000089: 24,2061           72476                           DCOMP    SL1                                   
017051,000090: 24,2062           16573                           STODL    WANGI                                 
017052,000091: 24,2063           02511                                    LATITUDE                              
017053,000092: 24,2064           72556                           SIN      SL1                                   
017054,000093: 24,2065           26571                           STOVL    WANGO                                 #   LOAD TRANSITION MATRIX INTO ERASABLE
017055,000094: 24,2066           11716                                    GEORGED                               
017056,000095: 24,2067           26721                           STOVL    TRANSM1                               
017057,000096: 24,2070           11724                                    GEORGEC                               
017058,000097: 24,2071           26727                           STOVL    TRANSM1    +6                         
017059,000098: 24,2072           11732                                    GEORGEB                               
017060,000099: 24,2073           02735                           STORE    TRANSM1    +12D                       
017061,000100: 24,2074           77776                           EXIT                                           
017062,000101: 24,2075           02077                           TC       +2                                    
017063,000102: 24,2076           04724        JUMPLOAD           TC       FREEDSP                               #   FREE DISPLAY IF IN GYROCOMPASS
017064,000103: 24,2077           03621                           TC       LOADGTSM                              
017065,000104: 24,2100           05206                           TC       BANKCALL                              
017066,000105: 24,2101           72014                           CADR     ESTIMS                                
017067,000106: 24,2102           04161        TORQUE             TC       PHASCHNG                              #   FILTER RETURNS AFTER TORQUE AND ER SET
017068,000107: 24,2103           00005                           OCT      00005                                 
017069,000108: 24,2104           37767                           CA       ZERO                                  
017070,000109: 24,2105           54342                           TS       DSPTEM2                               
017071,000110: 24,2106           31640                           CA       DRIFTI                                
017072,000111: 24,2107           54343                           TS       DSPTEM2    +1                         
017073,000112: 24,2110           51544                           INDEX    POSITON                               
017074,000113: 24,2111           55551                           TS       SOUTHDR    -1                         
017075,000114: 24,2112           03605                           TC       SHOW                                  
017076,000115: 
017077,000116: 24,2113           51537        PIPACHK            INDEX    NDXCTR                                #  TORQUE PLATFORM TO CORRECT  LEVELING ERR
017078,000117: 24,2114           02115                           TC       +1                                    #  IN PREPARATION TO MEASURING VERTICAL
017079,000118: 24,2115           05206                           TC       BANKCALL                              #  PIPA OUTPUT PULSE RATE
017080,000119: 24,2116           30424                           CADR     EARTHR                                
017081,000120: 
017082,000121: 24,2117           33647                           CA       DEC17                                 #   ALLOW PIP COUNTER TO OVERFLOW 17 TIMES
017083,000122: 24,2120           55632                           TS       DATAPL     +4                         
017084,000123: 24,2121           37752                           CA       BIT10                                 #  IN THE ALLOTED TIME INTERVAL
017085,000124: 24,2122           55527                           TS       LENGTHOT                              
017086,000125: 24,2123           37763                           CA       ONE                                   
017087,000126: 24,2124           55673                           TS       RESULTCT                              
017088,000127: 24,2125           37767                           CA       ZERO                                  #  ZERO PIPA COUNTER INITIALLY

Page 413

017090,000129: 24,2126           51541                           INDEX    PIPINDEX                              
017091,000130: 24,2127           54037                           TS       PIPAX                                 
017092,000131: 24,2130           55626                           TS       DATAPL                                
017093,000132: 24,2131           33661                           CA       DEC56                                 #   LOOP 56 TIMES 5.12 SEC "ACH. EACH INCR.
017094,000133: 24,2132           03214                           TC       WAITLOOP                              #  WILL ALSO CORRECT EARTH RATE
017095,000134: 24,2133           00004                           INHINT                                         
017096,000135: 24,2134           02776                           TC       CHECKG                                
017097,000136: 24,2135           00003                           RELINT                                         
017098,000137: 24,2136           03072                           TC       DATALD                                
017099,000138: 24,2137           37766                           CA       FIVE                                  
017100,000139: 24,2140           55673                           TS       RESULTCT                              
017101,000140: 24,2141           51537                           INDEX    NDXCTR                                
017102,000141: 24,2142           02143                           TC       +1                                    
017103,000142: 24,2143           05206                           TC       BANKCALL                              
017104,000143: 24,2144           30424                           CADR     EARTHR                                
017105,000144: 24,2145           11676                           CCS      COUNTPL                               
017106,000145: 24,2146           03236                           TC       WAITLP2                               
017107,000146: 24,2147           11627                           CCS      DATAPL     +1                         
017108,000147: 24,2150           02154                           TC       +4                                    
017109,000148: 24,2151           04736                           TC       CCSHOLE                               
017110,000149: 24,2152           41632                           CS       DATAPL     +4                         
017111,000150: 24,2153           55632                           TS       DATAPL     +4                         
017112,000151: 24,2154           00006                           EXTEND                                         
017113,000152: 24,2155           41627                           DCS      DATAPL                                
017114,000153: 24,2156           21633                           DAS      DATAPL     +4                         
017115,000154: 
017116,000155: 24,2157           06112                           TC       INTPRET                               
017117,000156: 24,2160           45345                           DLOAD    DSU                                   
017118,000157: 24,2161           02635                                    DATAPL     +6                         
017119,000158: 24,2162           02631                                    DATAPL     +2                         
017120,000159: 24,2163           56325                           PDDL     DDV                                   
017121,000160: 24,2164           02633                                    DATAPL     +4                         
017122,000161: 24,2165           41325                           PDDL     DMP                                   
017123,000162: 24,2166           11651                                    DEC585                                #  DEC585 HAS BEEN REDEFINED FOR LEM
017124,000163: 24,2167           77634                           RTB                                            
017125,000164: 24,2170           33520                                    SGNAGREE                              
017126,000165: 24,2171           00343                           STORE    DSPTEM2                               
017127,000166: 24,2172           77776                           EXIT                                           
017128,000167: 24,2173           03605                           TC       SHOW                                  
017129,000168: 24,2174           33642        VERTDRFT           CA       3990DEC                               #  3900 SECONDS FOR VERTICAL DRIFT
017130,000169: 24,2175           55527                           TS       LENGTHOT                              
017131,000170: 24,2176           05206                           TC       BANKCALL                              #  THIS WILL CORRECT FOR EARTH RATE DURING
017132,000171: 24,2177           30424                           CADR     EARTHR                                #  TIME SPENT IN SHOW ABOVE*
017133,000172: 24,2200           30032                           CA       CDUX                                  #  STOORE AXIS  FOR LAB CALC OF DRIFT
017134,000173: 24,2201           55530                           TS       LOSVEC                                
017135,000174: 24,2202           51544                           INDEX    POSITON                               
017136,000175: 24,2203           41550                           CS       SOUTHDR    -2                         
017137,000176: 24,2204           55576                           TS       DRIFTT                                
017138,000177: 24,2205           03621                           TC       LOADGTSM                              
017139,000178: 24,2206           37767                           CA       ZERO                                  #  ALLOW ONLY SOUTH GYRO EARTH RATE COMPENS

Page 414

017141,000180: 24,2207           55400                           TS       XSM                                   
017142,000181: 24,2210           55401                           TS       XSM        +1                         
017143,000182: 24,2211           55404                           TS       XSM        +4                         
017144,000183: 24,2212           55405                           TS       XSM        +5                         
017145,000184: 24,2213           55406                           TS       YSM                                   
017146,000185: 24,2214           55407                           TS       YSM        +1                         
017147,000186: 24,2215           55412                           TS       YSM        +4                         
017148,000187: 24,2216           55413                           TS       YSM        +5                         
017149,000188: 24,2217           55414                           TS       ZSM                                   
017150,000189: 24,2220           55415                           TS       ZSM        +1                         
017151,000190: 24,2221           55420                           TS       ZSM        +4                         
017152,000191: 24,2222           55421                           TS       ZSM        +5                         
017153,000192: 24,2223           37743        GUESS1             CAF      POSMAX                                
017154,000193: 24,2224           55574                           TS       TORQNDX                               
017155,000194: 24,2225           55575                           TS       TORQNDX    +1                         
017156,000195: 24,2226           05206                           TC       BANKCALL                              
017157,000196: 24,2227           72014                           CADR     ESTIMS                                
017158,000197: 24,2230           04161        VALMIS             TC       PHASCHNG                              
017159,000198: 24,2231           00005                           OCT      00005                                 
017160,000199: 24,2232           31636                           CA       DRIFTO                                
017161,000200: 24,2233           54343                           TS       DSPTEM2    +1                         
017162,000201: 24,2234           30032                           CA       CDUX                                  #  STORE OG ANGLE FOR LAB CALC OF DRIFT**
017163,000202: 24,2235           55531                           TS       LOSVEC     +1                         
017164,000203: 24,2236           37767                           CA       ZERO                                  
017165,000204: 24,2237           54342                           TS       DSPTEM2                               
017166,000205: 24,2240           03605                           TC       SHOW                                  
017167,000206: 
017168,000207: 
017169,000208: 
017170,000209: 24,2241           37763        FINISH             CA       ONE                                   
017171,000210: 24,2242           61544                           AD       POSITON                               
017172,000211: 24,2243           54344                           TS       DSPTEM2    +2                         
017173,000212: 24,2244           37762                           CA       TWO                                   
017174,000213: 24,2245           55546                           TS       QPLACE                                
017175,000214: 24,2246           05206                           TC       BANKCALL                              
017176,000215: 24,2247           22342                           CADR     TSELECT    -6                         
017177,000216: 24,2250           05206        ENDTEST1           TC       BANKCALL                              
017178,000217: 24,2251           30770                           CADR     ENDTEST                               
017179,000218: 

Page 415

017181,000220: 24,2252           33652        OPCHK              CAF      DELYOFF                               #  AUTOMATIC TEST FOR SYSTEM OPERATION
017182,000221: 24,2253           00006                           EXTEND                                         
017183,000222: 24,2254           02030                           RAND     30                                    #  CHECK TO SEE IF IMU IS ON
017184,000223: 24,2255           10000                           CCS      A                                     
017185,000224: 24,2256           02444                           TC       ALARMS                                
017186,000225: 24,2257           33645                           CAF      V16N20S                               
017187,000226: 24,2260           04657                           TC       NVSBWAIT                              
017188,000227: 
017189,000228: 24,2261           04724                           TC       FREEDSP                               
017190,000229: 24,2262           05206                           TC       BANKCALL                              
017191,000230: 24,2263           26000                           CADR     IMUZERO                               
017192,000231: 24,2264           05206                           TC       BANKCALL                              
017193,000232: 24,2265           26751                           CADR     IMUSTALL                              
017194,000233: 
017195,000234: 24,2266           12250                           TCF      ENDTEST1                              
017196,000235: 24,2267           37754                           CA       BIT8                                  #  ZERO ALL ERASEABLE USED IN TEST
017197,000236: 24,2270           55777                           TS       ZERONDX                               
017198,000237: 24,2271           33655                           CA       GENPLAD                               
017199,000238: 24,2272           03245                           TC       ZEROING                               
017200,000239: 24,2273           03353                           TC       NBPOSPL                               #  ALIGN ANGLE COMPUTATION
017201,000240: 
017202,000241: 24,2274           03104                           TC       POSGMBL                               #  COARSE ALIGN THOSE GIMBALS NOW
017203,000242: 
017204,000243: 24,2275           12252                           TCF      OPCHK                                 
017205,000244: 24,2276           03133                           TC       FALNE                                 #  FINE ALIGN PLATFORM BY TORQUING GYROS
017206,000245: 
017207,000246: 24,2277           05206                           TC       BANKCALL                              
017208,000247: 24,2300           26751                           CADR     IMUSTALL                              
017209,000248: 24,2301           12250                           TCF      ENDTEST1                              
017210,000249: 24,2302           37762                           CA       TWO                                   
017211,000250: 24,2303           55672        CDUCHECK           TS       CDUNDX                                #  THIS LOOP CHECKS FOR NO ERROR BETWEEN
017212,000251: 24,2304           51672                           INDEX    CDUNDX                                #  DESIRED CDU ANGLES AND THE ACTUAL ANGLES
017213,000252: 24,2305           40400                           CS       THETAD                                
017214,000253: 24,2306           51672                           INDEX    CDUNDX                                
017215,000254: 24,2307           60032                           AD       CDUX                                  
017216,000255: 24,2310           55551                           TS       STOREPL                               
017217,000256: 24,2311           11551                           CCS      STOREPL                               
017218,000257: 24,2312           02320                           TC       ERRMASK                               
017219,000258: 24,2313           02315                           TC       NOERR                                 
017220,000259: 24,2314           02320                           TC       ERRMASK                               
017221,000260: 24,2315           11672        NOERR              CCS      CDUNDX                                
017222,000261: 24,2316           02303                           TC       CDUCHECK                              
017223,000262: 24,2317           02324                           TC       LOADIC                                
017224,000263: 24,2320           73660        ERRMASK            MASK     LOWFOUR                               #  ALLOW FIVE BIT ERRORS
017225,000264: 24,2321           10000                           CCS      A                                     
017226,000265: 24,2322           02444                           TC       ALARMS                                
017227,000266: 24,2323           02315                           TC       NOERR                                 
017228,000267: 24,2324           37763        LOADIC             CA       ONE                                   
017229,000268: 24,2325           55673                           TS       RESULTCT                              
017230,000269: 24,2326           47763                           CS       ONE                                   
017231,000270: 

Page 416

017233,000272: 24,2327           55670                           TS       MASKREG                               #  SETS UP AZIMUTH AND VERTICAL VECTORS FOR
017234,000273: 
017235,000274: 24,2330           37767                           CA       ZERO                                  
017236,000275: 24,2331           54037                           TS       PIPAX                                 
017237,000276: 24,2332           54040                           TS       PIPAY                                 
017238,000277: 24,2333           54041                           TS       PIPAZ                                 
017239,000278: 
017240,000279: 24,2334           37751                           CA       BIT11                                 
017241,000280: 24,2335           55527                           TS       LENGTHOT                              #  VECTOR IN PIPA COUNTERS
017242,000281: 24,2336           37763                           CA       ONE                                   
017243,000282: 24,2337           03214                           TC       WAITLOOP                              
017244,000283: 24,2340           11676                           CCS      COUNTPL                               
017245,000284: 24,2341           03236                           TC       WAITLP2                               
017246,000285: 24,2342           33661                           CA       DEC56                                 
017247,000286: 24,2343           03214                           TC       WAITLOOP                              
017248,000287: 24,2344           37762        OPCHK1             CA       TWO                                   
017249,000288: 24,2345           55541        OPCHK2             TS       PIPINDEX                              
017250,000289: 24,2346           00004                           INHINT                                         
017251,000290: 24,2347           02776                           TC       CHECKG                                
017252,000291: 24,2350           00003                           RELINT                                         
017253,000292: 24,2351           37767                           CA       ZERO                                  
017254,000293: 24,2352           51541                           INDEX    PIPINDEX                              
017255,000294: 24,2353           54037                           TS       PIPAX                                 
017256,000295: 24,2354           03072                           TC       DATALD                                #  LOAD PIPA DATA AND TIME IN DATAPL
017257,000296: 24,2355           57673                           XCH      RESULTCT                              
017258,000297: 24,2356           67761                           AD       FOUR                                  
017259,000298: 24,2357           55673                           TS       RESULTCT                              
017260,000299: 24,2360           11541                           CCS      PIPINDEX                              
017261,000300: 24,2361           02345                           TC       OPCHK2                                
017262,000301: 24,2362           47761        READOUT            CS       FOUR                                  
017263,000302: 24,2363           61673                           AD       RESULTCT                              
017264,000303: 24,2364           55673                           TS       RESULTCT                              
017265,000304: 24,2365           22007                           ZL                                             
017266,000305: 24,2366           51673                           INDEX    RESULTCT                              
017267,000306: 24,2367           31626                           CA       DATAPL                                
017268,000307: 24,2370           22000                           LXCH     A                                     
017269,000308: 24,2371           51673                           INDEX    RESULTCT                              
017270,000309: 24,2372           21572                           DAS      GENPL      +1                         
017271,000310: 24,2373           31673                           CA       RESULTCT                              
017272,000311: 24,2374           71670                           MASK     MASKREG                               
017273,000312: 24,2375           10000                           CCS      A                                     
017274,000313: 24,2376           02362                           TC       READOUT                               
017275,000314: 24,2377           34570                           CA       TEN                                   
017276,000315: 24,2400           66311                           AD       THREE                                 
017277,000316: 24,2401           55673                           TS       RESULTCT                              
017278,000317: 24,2402           40000                           CS       A                                     
017279,000318: 24,2403           55670                           TS       MASKREG                               
017280,000319: 24,2404           11676                           CCS      COUNTPL                               
017281,000320: 24,2405           03236                           TC       WAITLP2                               
017282,000321: 24,2406           03257                           TC       COMPUT                                
017283,000322: 

Page 417

017285,000324: 24,2407           33646        RADCK              CA       V16N40S                               
017286,000325: 24,2410           04657                           TC       NVSBWAIT                              #  OPERATOR WILL CHECK RADAR STATUS.IN LAB.
017287,000326: 24,2411           04622                           TC       FLASHON                               #  SET RADAR OFF THEN PUT RESOLVER STANDARD
017288,000327: 24,2412           04475                           TC       ENDIDLE                               #  ON TRUNNION AND SET TO +45 DEG.SHAFT WIL
017289,000328: 24,2413           02250                           TC       ENDTEST1                              
017290,000329: 24,2414           02415                           TC       +1                                    #  AFTER SETTING RES STANDARD DO A V33
017291,000330: 24,2415           37767                           CA       ZERO                                  
017292,000331: 24,2416           54423                           TS       TANG       +1                         
017293,000332: 24,2417           33662                           CA       45DEG                                 
017294,000333: 24,2420           54422                           TS       TANG                                  
017295,000334: 24,2421           05206        DRIVRAD            TC       BANKCALL                              #  IN SC WHEN RAD PRESENT DO V33 RIGHT AWAY
017296,000335: 24,2422           20250                           CADR     RRZERO                                #  LGC WILL ATTEMPT TO DRIVE 45 DEG TRUNN.
017297,000336: 24,2423           05206                           TC       BANKCALL                              #  TO MATCH STANDARD, AFTER ZEROING CDUS
017298,000337: 24,2424           26745                           CADR     RADSTALL                              
017299,000338: 24,2425           02250                           TC       ENDTEST1                              
017300,000339: 24,2426           05206                           TC       BANKCALL                              
017301,000340: 24,2427           20364                           CADR     RRDESNB                               
017302,000341: 
017303,000342: 24,2430           05206                           TC       BANKCALL                              
017304,000343: 24,2431           26745                           CADR     RADSTALL                              #  IF CDU FAILS TO AGREE WITH COMMAND TO
017305,000344: 24,2432           02444                           TC       ALARMS                                #  1 DEG GET ALARM HERE
017306,000345: 
017307,000346: 24,2433           04622                           TC       FLASHON                               #  OPERATOR WILL CHECK STATUS OF RADAR
017308,000347: 24,2434           04475                           TC       ENDIDLE                               #  IN S/C DO V33 TO CONTINUE WITH SHAFT
017309,000348: 24,2435           02250                           TC       ENDTEST1                              #  TEST
017310,000349: 24,2436           02437                           TC       +1                                    #  IN LAB TURN RADAR OFF CHANGE RES STANDAR
017311,000350: 24,2437           37767                           CA       ZERO                                  #  TO SHAFT AND SET FOR -45DEG.
017312,000351: 24,2440           54422                           TS       TANG                                  #  THEN DO A V33 IF WANT TO REPEAT CHECK
017313,000352: 24,2441           43662                           CS       45DEG                                 #  DO A V34 TO TERMINATE
017314,000353: 24,2442           54423                           TS       TANG       +1                         
017315,000354: 24,2443           02421                           TC       DRIVRAD                               
017316,000355: 24,2444           56002        ALARMS             XCH      Q                                     
017317,000356: 24,2445           55546                           TS       QPLACE                                
017318,000357: 24,2446           04755                           TC       ALARM                                 
017319,000358: 24,2447           01411                           OCT      1411                                  
017320,000359: 24,2450           01546                           TC       QPLACE                                
017321,000360: 

Page 418

017323,000362: 24,2451           06112        GYRSFTST           TC       INTPRET                               #  START ADRESS FOR IRIG SF TEST
017324,000363: 24,2452           77624                           CALL                                           
017325,000364: 24,2453           30553                                    LATAZCHK                              #  LOAD AZ AND LAT
017326,000365: 24,2454           77776                           EXIT                                           
017327,000366: 24,2455           33635        TESTCALL           CAF      V21N30E                               
017328,000367: 24,2456           04657                           TC       NVSBWAIT                              #  LOAD + OR - 1 FOR + OR - X TEST (+00001)
017329,000368: 24,2457           04475                           TC       ENDIDLE                               #  LOAD + OR - 2 FOR + OR - Y TEST
017330,000369: 24,2460           12250                           TCF      ENDTEST1                              #  LOAD + OR - 3 FOR + OR - Z TEST
017331,000370: 24,2461           02455                           TC       TESTCALL                              
017332,000371: 24,2462           56337                           XCH      DSPTEM1                               
017333,000372: 24,2463           55614                           TS       CALCDIR                               
017334,000373: 24,2464           00006                           EXTEND                                         #  THIS ROUTINE LOOKS AT THE SIZE OF THE
017335,000374: 24,2465           62472                           BZMF     NEGSIZ                                #  ENTRY MADE BY THE OPERATOR, IF HE DID NO
017336,000375: 24,2466           75340        SIZLOOK            MASK     NEG3                                  #  T ENTER TEST NO THAT IS W/I PERMISSIBLE
017337,000376: 24,2467           00006                           EXTEND                                         #  RANGE- HE WILL BE ASKED TO LOAD AGAIN.
017338,000377: 24,2470           12474                           BZF      GUDENTRY                              #    THIS IS CONSIDERED NECESSARY BECAUSE
017339,000378: 24,2471           02455                           TC       TESTCALL                              #  OF FOLLOWING INDEXED TC WHICH COULD
017340,000379: 
017341,000380: 24,2472           40000        NEGSIZ             COM                                            #  SEND THE COMPUTER OFF INTO THE BOONDOCKS
017342,000381: 24,2473           02466                           TC       SIZLOOK                               #  TO PLAY WITH ITSELF IF THE OPERATOR
017343,000382: 24,2474           31614        GUDENTRY           CA       CALCDIR                               #  MAKES ABAD ENTRY******
017344,000383: 24,2475           67761                           AD       FOUR                                  
017345,000384: 24,2476           50000                           INDEX    A                                     
017346,000385: 24,2477           02500                           TC       +1                                    
017347,000386: 24,2500           02455                           TC       TESTCALL                              
017348,000387: 24,2501           02507                           TC       +6                                    #  C(A)=+00001 FOR -Z
017349,000388: 24,2502           02506                           TC       +4                                    #  C(A)=+00002 FOR -Y
017350,000389: 24,2503           02505                           TC       +2                                    #  C(A)=+00003 FOR -X
017351,000390: 24,2504           02500                           TC       -4                                    #  C(A)=+00004   ERROR
017352,000391: 24,2505           02510                           TC       +3                                    #  C(A)=+00005 FOR +X
017353,000392: 24,2506           02514                           TC       +6                                    
017354,000393: 24,2507           02517                           TC       +10                                   
017355,000394: 24,2510           37761                           CAF      FOUR                                  
017356,000395: 24,2511           55544                           TS       POSITON                               #  4 IS FOR A.L. POSN 4 USED FOR X SF TEST
017357,000396: 24,2512           02521                           TC       +7                                    
017358,000397: 24,2513           02521                           TC       +6                                    
017359,000398: 24,2514           37762                           CAF      TWO                                   
017360,000399: 24,2515           55544                           TS       POSITON                               #  +2 IS A.L. POS 2 USED FOR Y SF TEST
017361,000400: 24,2516           02521                           TC       +3                                    
017362,000401: 24,2517           37763                           CAF      ONE                                   
017363,000402: 24,2520           55544                           TS       POSITON                               #  +1 IS A.L. POS 1 USED FOR Z SF TEST
017364,000403: 24,2521           55617                           TS       OPTNREG                               #  C(K) = (4,2,1) FOR X,Y,Z
017365,000404: 24,2522           55621                           TS       SAVE       +1                         
017366,000405: 24,2523           04724                           TC       FREEDSP                               
017367,000406: 24,2524           37767                           CAF      ZERO                                  
017368,000407: 24,2525           55536                           TS       NBPOS                                 #  SET UP NB COORD TO Z NORTH, X UP
017369,000408: 24,2526           55622                           TS       SAVE       +2                         #  INITIALIZE FOR EARTHR DESIGNATE USAGE
017370,000409: 24,2527           55563                           TS       TESTNO                                #  INITIALIZE FOR TEST ABORT ROUTINE
017371,000410: 24,2530           55615                           TS       CDUFLAG                               #  ZEROS FOR STRTWACH USE
017372,000411: 24,2531           33637                           CAF      SFCONST                               
017373,000412: 

Page 419

017375,000414: 24,2532           55623                           TS       SFCONST1                              #  FOR DIVISION DURING CALCSFE
017376,000415: 
017377,000416: 24,2533           05206                           TC       BANKCALL                              
017378,000417: 24,2534           26000                           CADR     IMUZERO                               
017379,000418: 24,2535           05206                           TC       BANKCALL                              
017380,000419: 24,2536           26751                           CADR     IMUSTALL                              
017381,000420: 24,2537           12250                           TCF      ENDTEST1                              
017382,000421: 24,2540           03353                           TC       NBPOSPL                               
017383,000422: 24,2541           03104                           TC       POSGMBL                               
017384,000423: 24,2542           12250                           TCF      ENDTEST1                              
017385,000424: 24,2543           03133                           TC       FALNE                                 
017386,000425: 24,2544           05206                           TC       BANKCALL                              
017387,000426: 24,2545           31726                           CADR     REDYTORK                              
017388,000427: 24,2546           55552        WAITFIVE           TS       SOUTHDR                               
017389,000428: 24,2547           37756                           CAF      BIT6                                  #  THIS SECTION CALLS FOR 2-32 MSEC WAITS
017390,000429: 24,2550           02563                           TC       DIRECTN    -5                         
017391,000430: 24,2551           37756        ENABLE             CAF      BIT6                                  
017392,000431: 24,2552           00006                           EXTEND                                         #  ENABLE GYRO TORQUING LOOP BY TURNING
017393,000432: 24,2553           05014                           WOR      14C                                   #  ON CAL MODULE RELAY
017394,000433: 
017395,000434: 24,2554           00004                           INHINT                                         
017396,000435: 24,2555           47762                           CS       TWO                                   #  SETS UP EXEC SWITCH SO IMUPULSE WILL
017397,000436: 24,2556           70366                           MASK     IMODES33                              #  NOT TURN OFF GYRO TORQ ENABLE RELAY
017398,000437: 24,2557           67762                           AD       TWO                                   
017399,000438: 24,2560           54366                           TS       IMODES33                              
017400,000439: 24,2561           37762                           CAF      TWO                                   
017401,000440: 24,2562           55552                           TS       SOUTHDR                               
017402,000441: 24,2563           55527                           TS       LENGTHOT                              #   20 MSEC DELAY FOR GYRO LOOP STABILIZAT.
017403,000442: 24,2564           37763                           CA       ONE                                   
017404,000443: 24,2565           03214                           TC       WAITLOOP                              
017405,000444: 24,2566           11676                           CCS      COUNTPL                               
017406,000445: 24,2567           03236                           TC       WAITLP2                               
017407,000446: 24,2570           05206        DIRECTN            TC       BANKCALL                              #   TORQUING ROUTINE IN IMU PERFORMANCE
017408,000447: 24,2571           46520                           CADR     SILVER                                #     BANK 3
017409,000448: 24,2572           11552                           CCS      SOUTHDR                               #  A ONE FIRST TIME THROUGH, THEN ZERO
017410,000449: 24,2573           02546                           TC       WAITFIVE                              
017411,000450: 
017412,000451: 24,2574           11615        STRTWACH           CCS      CDUFLAG                               #   RETURNS HERE VIA QPLACE FROM SILVER
017413,000452: 24,2575           02656                           TC       CDUZOTST                              #  BEEN CAUGHT AND CDU THROUGH ZERO IS
017414,000453: 24,2576           11621                           CCS      SAVE       +1                         
017415,000454: 24,2577           02616                           TC       LOOKCDUP   -4                         
017416,000455: 24,2600           02622                           TC       LOOKCDUP                              
017417,000456: 24,2601           37767        CORRECT            CAF      ZERO                                  
017418,000457: 24,2602           54356                           TS       LGYRO                                 #   RELEASES GYROS FOR IMUPULSE USAGE
017419,000458: 24,2603           05206                           TC       BANKCALL                              #  EARTHRATE CORRECTION TO GYROS NOT EAST
017420,000459: 24,2604           30424                           CADR     EARTHR                                #  OR WEST
017421,000460: 24,2605           37763                           CAF      ONE                                   
017422,000461: 24,2606           54356                           TS       LGYRO                                 #  RESERVES GYROS FOR S.F. TEST TORQUING
017423,000462: 24,2607           55622                           TS       SAVE       +2                         #  INITIALIZES TO INSURE 5.6 DEG OF TORQ)
017424,000463: 24,2610           27563                           ADS      TESTNO                                #  INCR THE BURST COUNTER, WHICH IS USED TO
017425,000464: 

Page 420

017427,000466: 24,2611           41563                           CS       TESTNO                                #  COUNT THE NO. OF ITMES THE GYRO COUNTER
017428,000467: 24,2612           77766                           MASK     FIVE                                  #  IS LOADED, IF A TENTH LOAD IS REQUESTED
017429,000468: 24,2613           00006                           EXTEND                                         #  THE SFE IS TOO LARGE TO BE MEANINGFULL
017430,000469: 24,2614           12765                           BZF      STOPTEST                              #  OR THE CDU,S ARE NOT WORKING.
017431,000470: 24,2615           02570                           TC       DIRECTN                               
017432,000471: 
017433,000472: 24,2616           37767                           CAF      ZERO                                  #  ZEROS CDU REG WHICH WILL BE USED TO
017434,000473: 24,2617           55621                           TS       SAVE       +1                         
017435,000474: 24,2620           51672                           INDEX    CDUNDX                                #  MEASURE ANGLE.
017436,000475: 24,2621           54032                           TS       CDUX                                  
017437,000476: 24,2622           00004        LOOKCDUP           INHINT                                         
017438,000477: 24,2623           37757                           CAF      BIT5                                  
017439,000478: 24,2624           55624        STILLOOK           TS       TIMER                                 
017440,000479: 24,2625           51672                           INDEX    CDUNDX                                #  LOOKS FOR FIRST CDU PULSE AFTER TORQUING
017441,000480: 24,2626           10032                           CCS      CDUX                                  #  STARTS
017442,000481: 24,2627           02641                           TC       OUTPLUS                               #  HERE IS PLUS PULSE
017443,000482: 24,2630           02633                           TC       TIMEWACH                              
017444,000483: 24,2631           02444                           TC       ALARMS                                #  TTELL OPERATOR FIRST CDU PULSE WAS MISSD
017445,000484: 24,2632           02652                           TC       OUTNEG                                #  HERE IS MINUS PULSE
017446,000485: 24,2633           11624        TIMEWACH           CCS      TIMER                                 #  WATCHES TIME IN INHINT SO COPS WILL NOT
017447,000486: 24,2634           02624                           TC       STILLOOK                              #  CATCH US
017448,000487: 24,2635           00003                           RELINT                                         
017449,000488: 
017450,000489: 24,2636           10067                           CCS      NEWJOB                                
017451,000490: 24,2637           05532                           TC       CHANG1                                
017452,000491: 24,2640           02622                           TC       LOOKCDUP                              #  KEEP WATCHING IF THE PULSE IS NOT HERE
017453,000492: 
017454,000493: 24,2641           43636        OUTPLUS            CS       DESANGLE                              #  -2047 CDU PULSES ADDED TO CDU REG SO
017455,000494: 24,2642           51672                           INDEX    CDUNDX                                #  ZERO CROSSOVER CAN BE DETECTED
017456,000495: 24,2643           54032                           TS       CDUX                                  
017457,000496: 24,2644           37763        LOADFLAG           CAF      ONE                                   
017458,000497: 24,2645           55615                           TS       CDUFLAG                               
017459,000498: 24,2646           30047                           CA       GYROCTR                               #  GYRO TORQ CMDS LEFT OUT OF FIRST 5.625
017460,000499: 24,2647           55620                           TS       SAVE                                  #  DEG COMMANDED WHEN CDU PULSE ARRIVED
017461,000500: 24,2650           00003                           RELINT                                         
017462,000501: 24,2651           02656                           TC       CDUZOTST                              
017463,000502: 
017464,000503: 24,2652           33636        OUTNEG             CA       DESANGLE                              
017465,000504: 24,2653           51672                           INDEX    CDUNDX                                
017466,000505: 24,2654           54032                           TS       CDUX                                  
017467,000506: 24,2655           02644                           TC       LOADFLAG                              
017468,000507: 
017469,000508: 24,2656           51672        CDUZOTST           INDEX    CDUNDX                                
017470,000509: 24,2657           10032                           CCS      CDUX                                  
017471,000510: 24,2660           02664                           TC       +4                                    
017472,000511: 24,2661           02701                           TC       ENDWATCH                              
017473,000512: 24,2662           02664                           TC       +2                                    
017474,000513: 24,2663           02701                           TC       ENDWATCH                              
017475,000514: 24,2664           37752                           CAF      BIT10                                 #  RAND WITH BIT 10 TO SEE IF STILL TORQ.
017476,000515: 24,2665           00006                           EXTEND                                         
017477,000516: 

Page 421

017479,000518: 24,2666           02014                           RAND     14C                                   
017480,000519: 24,2667           10000                           CCS      A                                     
017481,000520: 24,2670           02676                           TC       +6                                    
017482,000521: 
017483,000522: 24,2671           11622                           CCS      SAVE       +2                         #   SEE IF 2.8DEG OR 5.6 DEG SINCE LAST
017484,000523: 24,2672           02674                           TC       +2                                    #  EEARTHR USE, IF 2.8 DEG, DO 2.8 MORE
017485,000524: 24,2673           02601                           TC       CORRECT                               #    THEN GO TO CORRECT
017486,000525: 24,2674           55622                           TS       SAVE       +2                         
017487,000526: 24,2675           02570                           TC       DIRECTN                               
017488,000527: 24,2676           10067                           CCS      NEWJOB                                
017489,000528: 24,2677           05532                           TC       CHANG1                                
017490,000529: 24,2700           02656                           TC       CDUZOTST                              
017491,000530: 
017492,000531: 24,2701           00004        ENDWATCH           INHINT                                         #  WWILL STOR GYROCTR AT END OF 2048 CDU
017493,000532: 24,2702           37767                           CAF      ZERO                                  #  PULSES AND STOP TORQ BY ZEROING REQUESTS
017494,000533: 24,2703           54356                           TS       LGYRO                                 #   RELEASE GYROS FOR OTHERS USAGE
017495,000534: 24,2704           67770                           AD       NEG0                                  #  PREVENT +0 IN OUTPUT COUNTER
017496,000535: 24,2705           56047                           XCH      GYROCTR                               
017497,000536: 24,2706           55621                           TS       SAVE       +1                         #  AND STOPS TORQUING BY ZEROING TORQ
017498,000537: 24,2707           47762                           CS       TWO                                   
017499,000538: 24,2710           70366                           MASK     IMODES33                              #  THIS TURNS OFF EXEC SWITCH SO THE GYRO
017500,000539: 24,2711           54366                           TS       IMODES33                              #  TORQ. ENABLE RELAY CAN BE TURNED OFF.
017501,000540: 24,2712           00003                           RELINT                                         
017502,000541: 24,2713           31620        CALCSFE            CA       SAVE                                  #  GYROCTR AT TEST START
017503,000542: 24,2714           00006                           EXTEND                                         
017504,000543: 24,2715           61621                           SU       SAVE       +1                         #  GYROCTR AT TEST END
017505,000544: 24,2716           55622                           TS       SAVE       +2                         
017506,000545: 24,2717           00006                           EXTEND                                         
017507,000546: 24,2720           62737                           BZMF     ARITH                                 #  SEE IF IT IS NEG OR ZERO,IF NEG,SFE IS +
017508,000547: 24,2721           73640                           MASK     SIZCHK                                
017509,000548: 24,2722           00006                           EXTEND                                         #  THIS ROUTINE TESTS SAVE-(SAVE+1) TO SEE
017510,000549: 24,2723           12731                           BZF      NEGSFE                                #  IF THE RESULT IS WITHIN PERMISSIBLE SIZE
017511,000550: 24,2724           41622                           CS       SAVE       +2                         #  AND DETERMINES POLARITY OF SFE USING THE
017512,000551: 24,2725           73640                           MASK     SIZCHK                                #  PRESENCE OR ABSENCE OF BITS 12,13,14.
017513,000552: 24,2726           00006                           EXTEND                                         #  IF BITS ARE PRESENT IN POSITIVE SAVE +2
017514,000553: 24,2727           12733                           BZF      POSSFE                                #  THEN THE SFE MUST BE POS. IF DIFFERENCE
017515,000554: 24,2730           02765                           TC       STOPTEST                              #  IS GREATER THAN 2047 PULSES FROM THE
017516,000555: 24,2731           31622        NEGSFE             CAE      SAVE       +2                         #  IDEAL NO OF PULSES, THE SFE EXCEEDS
017517,000556: 24,2732           02737                           TC       ARITH                                 #  15600 PPM, THE TEST IS NOT VALID AND
017518,000557: 
017519,000558:                                                                                                  #  THEREFORE ABORTS AND TURNS ON PROGRAM ALARM
017520,000559: 24,2733           37743        POSSFE             CAF      POSMAX                                #  POS SFE DEFINITION = IRIG SF IN SEC OF
017521,000560: 24,2734           00006                           EXTEND                                         #  ARC PER PULSE IS GREATER THAN
017522,000561: 24,2735           61622                           SU       SAVE       +2                         #  .61798095703125  SEC OF ARC/ PULSE
017523,000562: 24,2736           02740                           TC       ARITH      +1                         
017524,000563: 
017525,000564: 24,2737           40000        ARITH              COM                                            
017526,000565: 24,2740           22007                           ZL                                             
017527,000566: 24,2741           00006                           EXTEND                                         
017528,000567: 24,2742           11623                           DV       SFCONST1                              

Page 422

017530,000569: 24,2743           54342        LOADIT             TS       DSPTEM2                               
017531,000570: 24,2744           02745                           TC       DATADSP                               
017532,000571: 
017533,000572: 24,2745           04632        DATADSP            TC       GRABDSP                               
017534,000573: 24,2746           04637                           TC       PREGBSY                               
017535,000574: 24,2747           31614                           CA       CALCDIR                               
017536,000575: 24,2750           54344                           TS       DSPTEM2    +2                         #  DISPLAYS TEST NO JUST PERFORMED
017537,000576: 24,2751           33643                           CAF      VB06N66                               #   R3 = TEST NO JUST PERFORMED
017538,000577: 24,2752           04657                           TC       NVSBWAIT                              
017539,000578: 24,2753           04622                           TC       FLASHON                               
017540,000579: 24,2754           04475                           TC       ENDIDLE                               #  TO END TEST DO V34E
017541,000580: 24,2755           02757                           TC       +2                                    
017542,000581: 24,2756           02455                           TC       TESTCALL                              #  TO CONTINUE TEST DO V33E
017543,000582: 24,2757           05206                           TC       BANKCALL                              
017544,000583: 24,2760           26000                           CADR     IMUZERO                               
017545,000584: 24,2761           05206                           TC       BANKCALL                              
017546,000585: 24,2762           26751                           CADR     IMUSTALL                              
017547,000586: 24,2763           12250                           TCF      ENDTEST1                              
017548,000587: 24,2764           12250                           TCF      ENDTEST1                              
017549,000588: 
017550,000589: 24,2765           05206        STOPTEST           TC       BANKCALL                              
017551,000590: 24,2766           26000                           CADR     IMUZERO                               
017552,000591: 24,2767           05206                           TC       BANKCALL                              #  CORRECT CDUCTRS AND TURN ON PROG ALARM
017553,000592: 24,2770           26751                           CADR     IMUSTALL                              #  TO TELL OPERATOR LAST CDU PULSE WAS
017554,000593: 24,2771           12250                           TCF      ENDTEST1                              #  MISSED OR GYRO TORQ LOOP WAY OUT OF
017555,000594: 24,2772           37767                           CAF      ZERO                                  #  ALLOWABLE LIMITS.........
017556,000595: 24,2773           54356                           TS       LGYRO                                 #  **** RELEASE GYROS FOR OTHERS USAGE*****
017557,000596: 24,2774           02444                           TC       ALARMS                                
017558,000597: 24,2775           12250                           TCF      ENDTEST1                              
017559,000598: 

Page 423

017561,000600: 24,2776           00006        CHECKG             EXTEND                                         #  PIP PULSE CATCHING ROUTINE
017562,000601: 24,2777           23546                           QXCH     QPLACE                                #  RECORDS TIME AT OCCURRENCE OF A DELTA V
017563,000602: 24,3000           00003        CHECKG1            RELINT                                         #  KEEPS CONTENT OF PIPA REG INTACT
017564,000603: 24,3001           10067                           CCS      NEWJOB                                
017565,000604: 24,3002           05532                           TC       CHANG1                                
017566,000605: 24,3003           00004                           INHINT                                         
017567,000606: 24,3004           37767                           CAF      ZERO                                  
017568,000607: 24,3005           51541                           INDEX    PIPINDEX                              
017569,000608: 24,3006           56037                           XCH      PIPAX                                 
017570,000609: 24,3007           55551                           TS       STOREPL                               
017571,000610: 24,3010           11551                           CCS      STOREPL                               
017572,000611: 24,3011           03015                           TC       CHECKP                                
017573,000612: 24,3012           03070                           TC       RESTOREA                              
017574,000613: 24,3013           03030                           TC       CHECKM                                
017575,000614: 24,3014           03070                           TC       RESTOREA                              
017576,000615: 24,3015           37756        CHECKP             CAF      BIT6                                  #  LOOKS FOR ONE MORE PLUS PULSE
017577,000616: 24,3016           55540                           TS       PIPANO                                
017578,000617: 24,3017           51541                           INDEX    PIPINDEX                              
017579,000618: 24,3020           10037                           CCS      PIPAX                                 
017580,000619: 24,3021           03043                           TC       CHECKG3                               
017581,000620: 24,3022           03025                           TC       +3                                    
017582,000621: 24,3023           03070                           TC       RESTOREA                              
017583,000622: 24,3024           03025                           TC       +1                                    
017584,000623: 24,3025           11540                           CCS      PIPANO                                
017585,000624: 24,3026           03016                           TC       CHECKP     +1                         
017586,000625: 24,3027           03070                           TC       RESTOREA                              
017587,000626: 24,3030           37756        CHECKM             CAF      BIT6                                  #  LOOKS FOR ONE MORE MINUS PULSE
017588,000627: 24,3031           55540                           TS       PIPANO                                
017589,000628: 24,3032           51541                           INDEX    PIPINDEX                              
017590,000629: 24,3033           10037                           CCS      PIPAX                                 
017591,000630: 24,3034           03070                           TC       RESTOREA                              
017592,000631: 24,3035           03040                           TC       +3                                    
017593,000632: 24,3036           03043                           TC       CHECKG3                               
017594,000633: 24,3037           03040                           TC       +1                                    
017595,000634: 24,3040           11540                           CCS      PIPANO                                
017596,000635: 24,3041           03031                           TC       CHECKM     +1                         
017597,000636: 24,3042           03070                           TC       RESTOREA                              
017598,000637: 24,3043           05026        CHECKG3            TC       FINETIME                              #  TIME IN DOUBLE PRECISION LEFT IN MPAC
017599,000638: 
017600,000639: 24,3044           52145                           DXCH     MPAC                                  
017601,000640: 24,3045           37760                           CAF      BIT4                                  
017602,000641: 24,3046           55540        CHECKG5            TS       PIPANO                                
017603,000642: 24,3047           51541                           INDEX    PIPINDEX                              
017604,000643: 24,3050           10037                           CCS      PIPAX                                 
017605,000644: 24,3051           03055                           TC       +4                                    
017606,000645: 24,3052           03070                           TC       RESTOREA                              
017607,000646: 24,3053           03055                           TC       +2                                    
017608,000647: 24,3054           03070                           TC       RESTOREA                              
017609,000648: 24,3055           11540                           CCS      PIPANO                                
017610,000649: 24,3056           03046                           TC       CHECKG5                               
017611,000650: 

Page 424

017613,000652: 24,3057           03062        NREAD              TC       RESTORE                               
017614,000653: 24,3060           55551                           TS       STOREPL                               
017615,000654: 24,3061           01546                           TC       QPLACE                                
017616,000655: 24,3062           57551        RESTORE            XCH      STOREPL                               #  A WILL CONTAIN PREVIOUS PIPA CNTR CONTEN
017617,000656: 24,3063           51541                           INDEX    PIPINDEX                              #  STOREPL WILL CONTAIN ZERO
017618,000657: 24,3064           60037                           AD       PIPAX                                 
017619,000658: 24,3065           51541                           INDEX    PIPINDEX                              
017620,000659: 24,3066           54037                           TS       PIPAX                                 
017621,000660: 24,3067           00002                           TC       Q                                     
017622,000661: 

Page 425

017624,000663: 24,3070           03062        RESTOREA           TC       RESTORE                               
017625,000664: 24,3071           03000                           TC       CHECKG1                               
017626,000665: 24,3072           31551        DATALD             CA       STOREPL                               
017627,000666: 24,3073           51673                           INDEX    RESULTCT                              
017628,000667: 24,3074           55626                           TS       DATAPL                                
017629,000668: 24,3075           30144                           CA       MPAC                                  
017630,000669: 24,3076           51673                           INDEX    RESULTCT                              
017631,000670: 24,3077           55627                           TS       DATAPL     +1                         
017632,000671: 24,3100           30145                           CA       MPAC       +1                         
017633,000672: 24,3101           51673                           INDEX    RESULTCT                              
017634,000673: 24,3102           55630                           TS       DATAPL     +2                         
017635,000674: 24,3103           00002                           TC       Q                                     
017636,000675: 
017637,000676: 
017638,000677: 
017639,000678: 24,3104           00006        POSGMBL            EXTEND                                         #  COARSE ALIGNING SUBROUTINE
017640,000679: 24,3105           23546                           QXCH     QPLACE                                
017641,000680: 
017642,000681: 24,3106           06112                           TC       INTPRET                               
017643,000682: 24,3107           77624                           CALL                                           
017644,000683: 24,3110           32655                                    CALCGA                                
017645,000684: 24,3111           77776                           EXIT                                           
017646,000685: 
017647,000686: 24,3112           05206                           TC       BANKCALL                              
017648,000687: 24,3113           26065                           CADR     IMUCOARS                              
017649,000688: 24,3114           30075                           CA       FLAGWRD1                              
017650,000689: 24,3115           77754                           MASK     BIT8                                  
017651,000690: 24,3116           10000                           CCS      A                                     #  L +1, OTHERWISE TO L +2.
017652,000691: 24,3117           03122                           TC       LOCK                                  
017653,000692: 24,3120           25546                           INCR     QPLACE                                
017654,000693: 24,3121           03124                           TC       +3                                    
017655,000694: 24,3122           37762        LOCK               CA       TWO                                   
017656,000695: 24,3123           55537                           TS       NDXCTR                                
017657,000696: 24,3124           06067                           TC       FLAG1DWN                              
017658,000697: 24,3125           00200                           OCT      200                                   
017659,000698: 24,3126           05206                           TC       BANKCALL                              
017660,000699: 24,3127           26751                           CADR     IMUSTALL                              
017661,000700: 24,3130           12250                           TCF      ENDTEST1                              
017662,000701: 24,3131           01546                           TC       QPLACE                                
017663,000702: 24,3132           00401        GMLOCKCK           OCT      00401                                 
017664,000703: 

Page 426

017666,000705: 24,3133           00006        FALNE              EXTEND                                         #  TORQUES GYROS TO NULL OVT DIFFERENCE
017667,000706: 24,3134           23546                           QXCH     QPLACE                                #  BETWEEN DESIRED SM ORIENTATION WITH RESP
017668,000707: 24,3135           05206                           TC       BANKCALL                              #  TO NBASE AND ACTUAL
017669,000708: 24,3136           26000                           CADR     IMUZERO                               
017670,000709: 24,3137           05206                           TC       BANKCALL                              
017671,000710: 24,3140           26751                           CADR     IMUSTALL                              
017672,000711: 24,3141           12250                           TCF      ENDTEST1                              
017673,000712: 24,3142           05206                           TC       BANKCALL                              
017674,000713: 24,3143           26252                           CADR     IMUFINE                               
017675,000714: 24,3144           05206                           TC       BANKCALL                              
017676,000715: 24,3145           26751                           CADR     IMUSTALL                              
017677,000716: 24,3146           12250                           TCF      ENDTEST1                              
017678,000717: 24,3147           30032        FALNE1             CA       CDUX                                  
017679,000718: 24,3150           50110                           INDEX    FIXLOC                                
017680,000719: 24,3151           54024                           TS       24                                    
017681,000720: 24,3152           30033                           CA       CDUY                                  
017682,000721: 24,3153           50110                           INDEX    FIXLOC                                
017683,000722: 24,3154           54020                           TS       20                                    
017684,000723: 24,3155           30034                           CA       CDUZ                                  
017685,000724: 24,3156           50110                           INDEX    FIXLOC                                
017686,000725: 24,3157           54022                           TS       22                                    
017687,000726: 24,3160           37757                           CA       BIT5                                  
017688,000727: 24,3161           60110                           AD       FIXLOC                                
017689,000728: 24,3162           50110                           INDEX    FIXLOC                                
017690,000729: 24,3163           54050                           TS       S1                                    
017691,000730: 24,3164           06112                           TC       INTPRET                               
017692,000731: 24,3165           64375                           VLOAD    MXV                                   
017693,000732: 24,3166           02401                                    XSM                                   
017694,000733: 24,3167           02445                                    STARAD                                
017695,000734: 24,3170           77772                           VSL1                                           
017696,000735: 24,3171           34041                           STCALL   32D                                   
017697,000736: 24,3172           32555                                    NBSM                                  
017698,000737: 24,3173           26423                           STOVL    XDC                                   
017699,000738: 24,3174           02407                                    YSM                                   
017700,000739: 24,3175           76521                           MXV      VSL1                                  
017701,000740: 24,3176           02445                                    STARAD                                
017702,000741: 24,3177           34041                           STCALL   32D                                   
017703,000742: 24,3200           32555                                    NBSM                                  
017704,000743: 24,3201           26431                           STOVL    YDC                                   
017705,000744: 24,3202           02423                                    XDC                                   
017706,000745: 24,3203           76435                           VXV      VSL1                                  
017707,000746: 24,3204           02431                                    YDC                                   
017708,000747: 24,3205           36437                           STCALL   ZDC                                   
017709,000748: 24,3206           32425                                    CALCGTA                               
017710,000749: 24,3207           77776                           EXIT                                           
017711,000750: 24,3210           33657                           CA       OGCPL                                 
017712,000751: 24,3211           05206                           TC       BANKCALL                              
017713,000752: 24,3212           26362                           CADR     IMUPULSE                              
017714,000753: 24,3213           01546                           TC       QPLACE                                
017715,000754: 

Page 427

017717,000756: 24,3214           00006        WAITLOOP           EXTEND                                         #  LOOPS IN X SEC INCREMENTS FOR NUMBER OF
017718,000757: 24,3215           23545                           QXCH     QPLAC                                 
017719,000758: 24,3216           55676                           TS       COUNTPL                               #  NUMBER PUT INTO LENGTHOT
017720,000759: 24,3217           11676        WAITLP1            CCS      COUNTPL                               
017721,000760: 24,3220           03224                           TC       +4                                    
017722,000761: 24,3221           01545                           TC       QPLAC                                 
017723,000762: 24,3222           03224                           TC       +2                                    
017724,000763: 24,3223           03216                           TC       WAITLP1    -1                         
017725,000764: 24,3224           00004                           INHINT                                         
017726,000765: 24,3225           31527                           CAE      LENGTHOT                              
017727,000766: 24,3226           05663                           TC       WAITLIST                              
017728,000767: 24,3227  E5,1400                                  EBANK=   XSM                                   
017729,000768: 24,3227           03242 50065                     2CADR    WAITLP3                               
017730,000769: 
017731,000770: 24,3231           00003                           RELINT                                         
017732,000771: 24,3232           11676                           CCS      COUNTPL                               
017733,000772: 24,3233           01545                           TC       QPLAC                                 
017734,000773: 24,3234           01545                           TC       QPLAC                                 
017735,000774: 24,3235           13236                           NOOP                                           
017736,000775: 24,3236           55676        WAITLP2            TS       COUNTPL                               #  ENTER HERE AFTER DOING CALLING JOB
017737,000776: 24,3237           33241                           CAF      WTLPCADR                              
017738,000777: 24,3240           05545                           TC       JOBSLEEP                              
017739,000778: 24,3241           51217        WTLPCADR           CADR     WAITLP1                               
017740,000779: 24,3242           33241        WAITLP3            CAF      WTLPCADR                              
017741,000780: 24,3243           05551                           TC       JOBWAKE                               
017742,000781: 24,3244           05727                           TC       TASKOVER                              
017743,000782: 
017744,000783: 
017745,000784: 
017746,000785: 24,3245           54001        ZEROING            TS       L                                     
017747,000786: 24,3246           13250                           TCF      +2                                    
017748,000787: 24,3247           55777        ZEROING1           TS       ZERONDX                               
017749,000788: 24,3250           37767                           CAF      ZERO                                  
017750,000789: 24,3251           50001                           INDEX    L                                     
017751,000790: 24,3252           54000                           TS       0                                     
017752,000791: 24,3253           24001                           INCR     L                                     
017753,000792: 24,3254           11777                           CCS      ZERONDX                               
017754,000793: 24,3255           13247                           TCF      ZEROING1                              
017755,000794: 24,3256           00002                           TC       Q                                     
017756,000795: 24,3257           06112        COMPUT             TC       INTPRET                               #  CALCULATE LENGTH OF GRAVITY VECTOR AS
017757,000796: 24,3260           77170                           AXT,1    AXT,2                                 #  MEASURED BY ACCELEROMETERS
017758,000797: 24,3261           00026                                    22D                                   
017759,000798: 24,3262           00012                                    10D                                   
017760,000799: 24,3263           77731                           SSP                                            
017761,000800: 24,3264           00051                                    S1                                    
017762,000801: 24,3265           00004                                    4                                     
017763,000802: 24,3266           77731                           SSP                                            
017764,000803: 24,3267           00052                                    S2                                    

Page 428

017766,000805: 24,3270           00004                                    4                                     
017767,000806: 24,3271           44743        LOPDELOP           DLOAD*   DSU*                                  
017768,000807: 24,3272           75120                                    DATAPL     +24D,2                     
017769,000808: 24,3273           02657                                    DATAPL     +24D,1                     
017770,000809: 24,3274           41323                           PDDL*    DMP                                   
017771,000810: 24,3275           75156                                    GENPL      +24D,2                     
017772,000811: 24,3276           11651                                    DEC585                                
017773,000812: 24,3277           77671                           DDV                                            
017774,000813: 24,3300           55504                           TIX,2    VDEF                                  
017775,000814: 24,3301           51306                                    NEXT                                  
017776,000815: 24,3302           47046                           ABVAL    RTB                                   
017777,000816: 24,3303           33520                                    SGNAGREE                              
017778,000817: 24,3304           34343                           STCALL   DSPTEM2                               
017779,000818: 24,3305           51310                                    KODU                                  
017780,000819: 24,3306           60006        NEXT               PUSH     TIX,1                                 
017781,000820: 24,3307           51271                                    LOPDELOP                              
017782,000821: 24,3310           77776        KODU               EXIT                                           
017783,000822: 24,3311           04644                           TC       GRABWAIT                              
017784,000823: 24,3312           03605                           TC       SHOW                                  
017785,000824: 24,3313           06112                           TC       INTPRET                               
017786,000825: 24,3314           41535                           SLOAD    PUSH                                  
017787,000826: 24,3315           02630                                    DATAPL     +1                         
017788,000827: 24,3316           41535                           SLOAD    PUSH                                  
017789,000828: 24,3317           02634                                    DATAPL     +5                         
017790,000829: 24,3320           55535                           SLOAD    VDEF                                  
017791,000830: 24,3321           02640                                    DATAPL     +11                        
017792,000831: 24,3322           76456                           UNIT     VSL1                                  
017793,000832: 24,3323           77606                           PUSH                                           
017794,000833: 24,3324           41535                           SLOAD    PUSH                                  
017795,000834: 24,3325           02644                                    DATAPL     +15                        
017796,000835: 24,3326           41535                           SLOAD    PUSH                                  
017797,000836: 24,3327           02650                                    DATAPL     +21                        
017798,000837: 24,3330           55535                           SLOAD    VDEF                                  
017799,000838: 24,3331           02654                                    DATAPL     +25                        
017800,000839: 24,3332           76456                           UNIT     VSL1                                  
017801,000840: 24,3333           45325                           PDDL     DSU                                   
017802,000841: 24,3334           02655                                    DATAPL     +26                        
017803,000842: 24,3335           02641                                    DATAPL     +12                        
017804,000843: 24,3336           77612                           SL4                                            
017805,000844: 24,3337           77652                           SL3                                            
017806,000845: 24,3340           26530                           STOVL    LENGTHOT                              
017807,000846: 24,3341           51435                           VXV      ABVAL                                 
017808,000847: 24,3342           56205                           DMP      DDV                                   
017809,000848: 24,3343           11654                                    ERUNITS                               
017810,000849: 24,3344           02530                                    LENGTHOT                              
017811,000850: 24,3345           77634                           RTB                                            
017812,000851: 24,3346           33520                                    SGNAGREE                              
017813,000852: 24,3347           00343                           STORE    DSPTEM2                               
017814,000853: 24,3350           77776                           EXIT                                           
017815,000854: 24,3351           03605                           TC       SHOW                                  

Page 429

017817,000856: 24,3352           12407                           TCF      RADCK                                 
017818,000857: 24,3353           00006        NBPOSPL            EXTEND                                         #  SETS UP AZIMUTH AND VERTICAL VECTORS FOR
017819,000858: 24,3354           23546                           QXCH     QPLACE                                #  AXISGEN,RESULTS TO BE USED IN CALCGA TO
017820,000859: 24,3355           06112                           TC       INTPRET                               
017821,000860: 24,3356           54160                           AXC,1    XSU,1                                 #  AZIMUTH IN NB COORDS
017822,000861: 24,3357           51670                                    SCNBAZ                                
017823,000862: 24,3360           02536                                    NBPOS                                 
017824,000863: 24,3361           77773                           VLOAD*                                         
017825,000864: 24,3362           00001                                    0,1                                   
017826,000865: 24,3363           02445                           STORE    STARAD                                
017827,000866: 
017828,000867: 24,3364           54160                           AXC,1    XSU,1                                 #  VERTICAL IN NB COORDS
017829,000868: 24,3365           51702                                    SCNBVER                               
017830,000869: 24,3366           02536                                    NBPOS                                 
017831,000870: 24,3367           77773                           VLOAD*                                         
017832,000871: 24,3370           00001                                    0,1                                   
017833,000872: 24,3371           16453                           STODL    STARAD     +6                         
017834,000873: 24,3372           33300                                    SCHZEROS                              
017835,000874: 24,3373           14007                           STODL    6D                                    
017836,000875: 24,3374           02507                                    AZIMUTH                               
017837,000876: 24,3375           57546                           COS      DCOMP                                 
017838,000877: 24,3376           14011                           STODL    8D                                    
017839,000878: 24,3377           02507                                    AZIMUTH                               
017840,000879: 24,3400           77756                           SIN                                            
017841,000880: 24,3401           00013                           STORE    10D                                   #  VERTICAL IN CER
017842,000881: 24,3402           77775                           VLOAD                                          
017843,000882: 24,3403           11703                                    SCNBVER                               
017844,000883: 24,3404           34015                           STCALL   12D                                   
017845,000884: 24,3405           32741                                    AXISGEN                               
017846,000885: 24,3406           77776                           EXIT                                           
017847,000886: 
017848,000887: 24,3407           33647        SELPOSN            CA       DEC17                                 
017849,000888: 24,3410           55777                           TS       ZERONDX                               
017850,000889: 24,3411           33667                           CA       XSMADR                                
017851,000890: 24,3412           03245                           TC       ZEROING                               
017852,000891: 
017853,000892: 24,3413           51544                           INDEX    POSITON                               
017854,000893: 24,3414           03415                           TC       +1                                    
017855,000894: 24,3415           03533                           TC       OPCHKPOS                              #  OPCHK WILL PUT ZERO IN POSITON
017856,000895: 24,3416           03431                           TC       POSN1                                 
017857,000896: 24,3417           03440                           TC       POSN2                                 
017858,000897: 24,3420           03445                           TC       POSN3                                 
017859,000898: 24,3421           03457                           TC       POSN4                                 
017860,000899: 24,3422           03467                           TC       POSN5                                 
017861,000900: 24,3423           03477                           TC       POSN6                                 
017862,000901: 24,3424           03507                           TC       POSN7                                 
017863,000902: 24,3425           03522                           TC       POSN8                                 
017864,000903: 24,3426           03551                           TC       POSN9                                 
017865,000904: 24,3427           03562                           TC       POSN10                                
017866,000905: 24,3430           03573                           TC       POSN11                                #  COMPASS POSITION
017867,000906: 

Page 430

017869,000908:                                                                                                  #  (XXX.XX MERU) AND A VERTICAL TEST BY DV (XXX.XX MERU) EACH POSITION TELL
017870,000909:                                                                                                  #  HOW THE DISPLAYS ARE RELATED TO TTHE DRIFT COEFFICIENTS BEING MEASURED.
017871,000910:                                                                                                  #  NOTE THAT IT IS ILLEGAL TO RUN VERTICAL IN POS 6,4, OR 2 WITHOUT FIRST
017872,000911:                                                                                                  #  RUNNING HORIZONTAL OF POS 5,3, OR1. THIS IS BECAUSE THE HORIZ DRIFT CALC
017873,000912:                                                                                                  #  IN 1,3, OR 5 IS USED AS EAST DRIFFFT FOR VERTICAL TEST. THIS IS DONE BY
017874,000913:                                                                                                  #  THE MACHINE AUTOMATICALLY EXCEPT FOR VERTICAL POSITION 6 WHICH THE
017875,000914:                                                                                                  #  OPERATOR MUST DO. (SEE POSITION 6 BELOW)
017876,000915: 24,3431           37746        POSN1              CA       HALF                                  #  X UP, Y SOUTH, Z EAST
017877,000916: 24,3432           55400                           TS       XSM                                   
017878,000917: 24,3433           55410                           TS       YSM        +2                         #    NBDY = DH
017879,000918: 24,3434           55420                           TS       ZSM        +4                         
017880,000919: 24,3435           37767        NGUBGH             CA       ZERO                                  
017881,000920: 24,3436           55541                           TS       PIPINDEX                              
017882,000921: 24,3437           01546                           TC       QPLACE                                
017883,000922: 
017884,000923: 
017885,000924: 24,3440           47746        POSN2              CS       HALF                                  #  X DOWN, Y WEST, Z NORTH
017886,000925: 24,3441           55400                           TS       XSM                                   
017887,000926: 24,3442           55412                           TS       YSM        +4                         #   NBDZ=DH,NBDX-ADIAX=-DV
017888,000927: 24,3443           55416                           TS       ZSM        +2                         
017889,000928: 24,3444           03435                           TC       NGUBGH                                
017890,000929: 
017891,000930: 
017892,000931: 24,3445           37746        POSN3              CA       HALF                                  #   Z UP, Y WEST ,X NORTH
017893,000932: 24,3446           55414                           TS       ZSM                                   
017894,000933: 24,3447           40000                           COM                                            #    NBDX = -DH
017895,000934: 24,3450           55402                           TS       XSM        +2                         
017896,000935: 24,3451           55412                           TS       YSM        +4                         
017897,000936: 24,3452           37762        NSFLAGD            CA       TWO                                   
017898,000937: 24,3453           55541                           TS       PIPINDEX                              
017899,000938: 24,3454           37767        NSBUGD             CA       ZERO                                  
017900,000939: 24,3455           55576                           TS       DRIFTT                                
017901,000940: 24,3456           01546                           TC       QPLACE                                
017902,000941: 
017903,000942: 
017904,000943: 24,3457           37746        POSN4              CA       HALF                                  #   Z DOWN, Y SOUTH ,X EAST
017905,000944: 24,3460           55404                           TS       XSM        +4                         
017906,000945: 24,3461           55410                           TS       YSM        +2                         
017907,000946: 24,3462           40000                           COM                                            #   NBDY+SRAY=DH,NBDZ+ADIAZ=DV
017908,000947: 24,3463           55414                           TS       ZSM                                   
017909,000948: 24,3464           37762                           CA       TWO                                   
017910,000949: 24,3465           55541                           TS       PIPINDEX                              
017911,000950: 24,3466           01546                           TC       QPLACE                                
017912,000951: 
017913,000952: 24,3467           37746        POSN5              CA       HALF                                  #  Y UP, Z NORTH, X WEST

Page 431

017915,000954: 24,3470           55406                           TS       YSM                                   
017916,000955: 24,3471           40000                           COM                                            #   NBDZ-SRAZ=DH
017917,000956: 24,3472           55404                           TS       XSM        +4                         
017918,000957: 24,3473           55416                           TS       ZSM        +2                         
017919,000958: 24,3474           37763                           CA       ONE                                   
017920,000959: 24,3475           55541                           TS       PIPINDEX                              
017921,000960: 24,3476           03454                           TC       NSBUGD                                
017922,000961: 
017923,000962: 
017924,000963: 
017925,000964:                                                                                                  #  TO RUN POSITION 6 VERTICAL AFTER PIP TEST POS 6 IS DISPLAYED THE OPERATR
017926,000965:                                                                                                  #  MUST CALCULATE FROM POSN 2,5 -NBDZ-ADSRAZ (XXX.XX)MERU. WHEN P
017927,000966:                                                                                                  #  IP DATA FLASHES DO VERB 33 ENTER. THIS STARTS VERTICAL TEST. THEN THE
017928,000967:                                                                                                  #  DATA XXX.XX MERU AS CALCULATED MUST BE ENTERED INTO DRIFTT. IE VERB 21
017929,000968:                                                                                                  #  ENTER NOUN 01 ENTER LOCATION OF DRIFTT ENTER + (OR -) XXXXX ENTER
017930,000969: 24,3477           37746        POSN6              CA       HALF                                  #  Y DOWN, Z EAST, X SOUTH
017931,000970: 24,3500           55402                           TS       XSM        +2                         
017932,000971: 24,3501           55420                           TS       ZSM        +4                         
017933,000972: 24,3502           40000                           COM                                            #   NBDX +ADSRAX = DH, NBDY -ADIAY = -DV
017934,000973: 24,3503           55406                           TS       YSM                                   
017935,000974: 24,3504           37763                           CA       ONE                                   
017936,000975: 24,3505           55541                           TS       PIPINDEX                              
017937,000976: 24,3506           01546                           TC       QPLACE                                
017938,000977: 
017939,000978: 
017940,000979: 24,3507           47746        POSN7              CS       HALF                                  #  Z UP-EAST,Y UP-WEST,X NORTH.THIS POSITON
017941,000980: 24,3510           55402                           TS       XSM        +2                         
017942,000981: 24,3511           33663                           CA       ROOT1/2                               
017943,000982: 24,3512           55406                           TS       YSM                                   #   NBDX - .707 ADSRAX = -DH
017944,000983: 24,3513           55414                           TS       ZSM                                   
017945,000984: 24,3514           55420                           TS       ZSM        +4                         
017946,000985: 24,3515           40000                           COM                                            
017947,000986: 24,3516           55412                           TS       YSM        +4                         
017948,000987: 24,3517           06067        GEORGES            TC       FLAG1DWN                              #  UNSET GIMBAL LOCK FLAG
017949,000988: 24,3520           00200                           OCT      200                                   
017950,000989: 24,3521           03454                           TC       NSBUGD                                
017951,000990: 
017952,000991: 
017953,000992: 24,3522           37746        POSN8              CA       HALF                                  #  Z UP-SOUTH,Y UP-NORTH,X EAST.THIS POSITN
017954,000993: 24,3523           55404                           TS       XSM        +4                         
017955,000994: 24,3524           33663                           CA       ROOT1/2                               #   .707(-NBDZ-NBDY) +.5(ADIAZ-ADIAY)
017956,000995: 24,3525           55406                           TS       YSM                                   #   +.5(ADSRAY +ADSRAZ)=DH
017957,000996: 24,3526           55416                           TS       ZSM        +2                         
017958,000997: 24,3527           55414                           TS       ZSM                                   
017959,000998: 24,3530           40000                           COM                                            
017960,000999: 24,3531           55410                           TS       YSM        +2                         
017961,001000: 24,3532           03454                           TC       NSBUGD                                
017962,001001: 

Page 432

017964,001003: 24,3533           33664        OPCHKPOS           CA       ROOT1SQ                               #  OG=+45DEG,IG=-45DEG,MG=+45DEG.
017965,001004: 24,3534           55400                           TS       XSM                                   
017966,001005: 24,3535           55410                           TS       YSM        +2                         
017967,001006: 24,3536           55412                           TS       YSM        +4                         
017968,001007: 24,3537           55414                           TS       ZSM                                   
017969,001008: 24,3540           33663                           CA       ROOT1/2                               
017970,001009: 24,3541           55406                           TS       YSM                                   
017971,001010: 24,3542           33666                           CA       ROOT3SQ                               
017972,001011: 24,3543           55402                           TS       XSM        +2                         
017973,001012: 24,3544           55420                           TS       ZSM        +4                         
017974,001013: 24,3545           43665                           CS       ROOT2SQ                               
017975,001014: 24,3546           55404                           TS       XSM        +4                         
017976,001015: 24,3547           55416                           TS       ZSM        +2                         
017977,001016: 24,3550           01546                           TC       QPLACE                                
017978,001017: 
017979,001018: 24,3551           37746        POSN9              CA       HALF                                  #  X UP EAST,Y UP WEST,Z SOUTH.THIS POSITON
017980,001019: 24,3552           55416                           TS       ZSM        +2                         
017981,001020: 24,3553           33663                           CA       ROOT1/2                               #   -NBDZ +.707 SRAZ =DH
017982,001021: 24,3554           55400                           TS       XSM                                   
017983,001022: 24,3555           55404                           TS       XSM        +4                         
017984,001023: 24,3556           55406                           TS       YSM                                   
017985,001024: 24,3557           40000                           COM                                            
017986,001025: 24,3560           55412                           TS       YSM        +4                         
017987,001026: 24,3561           03454                           TC       NSBUGD                                
017988,001027: 
017989,001028: 
017990,001029: 24,3562           37746        POSN10             CA       HALF                                  #  X UP NORTH, Y UP SOUTH,Z EAST.THIS POSITN
017991,001030: 24,3563           55420                           TS       ZSM        +4                         
017992,001031: 24,3564           33663                           CA       ROOT1/2                               #    .707(NBDY -NBDX) +.5(ADIAY -ADIAX)
017993,001032: 24,3565           55400                           TS       XSM                                   #   +.5(ADSRAX) = DH
017994,001033: 24,3566           55406                           TS       YSM                                   
017995,001034: 24,3567           55410                           TS       YSM        +2                         
017996,001035: 24,3570           40000                           COM                                            
017997,001036: 24,3571           55402                           TS       XSM        +2                         
017998,001037: 24,3572           03454                           TC       NSBUGD                                
017999,001038: 
018000,001039: 
018001,001040: 24,3573           05206        POSN11             TC       BANKCALL                              #  COMPASS POSITION
018002,001041: 24,3574           73044                           CADR     LOADXSM                               
018003,001042: 24,3575           01546                           TC       QPLACE                                
018004,001043: 
018005,001044: 
018006,001045: 24,3576           30342        SHOWLD             CA       DSPTEM2                               
018007,001046: 24,3577           55527                           TS       LENGTHOT                              
018008,001047: 24,3600           30343                           CA       DSPTEM2    +1                         
018009,001048: 24,3601           55536                           TS       NBPOS                                 
018010,001049: 24,3602           30344                           CA       DSPTEM2    +2                         
018011,001050: 

Page 433

018013,001052: 24,3603           55544                           TS       POSITON                               
018014,001053: 24,3604           00002                           TC       Q                                     
018015,001054: 
018016,001055: 24,3605           00006        SHOW               EXTEND                                         
018017,001056: 24,3606           23546                           QXCH     QPLACE                                
018018,001057: 24,3607           31544        SHOW1              CA       POSITON                               
018019,001058: 24,3610           54344                           TS       DSPTEM2    +2                         
018020,001059: 24,3611           33643                           CA       VB06N66                               
018021,001060: 24,3612           04657                           TC       NVSBWAIT                              
018022,001061: 24,3613           04622                           TC       FLASHON                               
018023,001062: 24,3614           04475                           TC       ENDIDLE                               
018024,001063: 24,3615           02241                           TC       FINISH                                
018025,001064: 24,3616           01546                           TC       QPLACE                                
018026,001065: 24,3617           03576                           TC       SHOWLD                                
018027,001066: 24,3620           13607                           TCF      SHOW1                                 
018028,001067: 
018029,001068: 
018030,001069: 24,3621           00006        LOADGTSM           EXTEND                                         #  THIS LOADS XSM INTO GEOMATRX
018031,001070: 24,3622           23546                           QXCH     QPLACE                                
018032,001071: 24,3623           06112                           TC       INTPRET                               
018033,001072: 24,3624           77775                           VLOAD                                          
018034,001073: 24,3625           02401                                    XSM                                   
018035,001074: 24,3626           26750                           STOVL    GEOMTRX                               
018036,001075: 24,3627           02407                                    YSM                                   
018037,001076: 24,3630           26756                           STOVL    GEOMTRX    +6                         
018038,001077: 24,3631           02415                                    ZSM                                   
018039,001078: 24,3632           02764                           STORE    GEOMTRX    +12D                       
018040,001079: 24,3633           77776                           EXIT                                           
018041,001080: 24,3634           01546                           TC       QPLACE                                
018042,001081: 

Page 434

018044,001083: 24,3635                        14C                EQUALS   0014                                  
018045,001084: 24,3635           02130        V21N30E            OCT      02130                                 
018046,001085: 24,3636           04000        DESANGLE           DEC      2048       B-14                       
018047,001086: 24,3637           04143        SFCONST            DEC      .13107                                
018048,001087: 24,3640           34000        SIZCHK             OCT      34000                                 
018049,001088: 24,3641           00264        180DEC             DEC      180        B-14                       
018050,001089: 24,3642           07626        3990DEC            DEC      3990       B-14                       
018051,001090: 24,3643           00666        VB06N66            OCT      00666                                 
018052,001091: 24,3644           01130        TESTTIME           DEC      600        B-14                       
018053,001092: 24,3645           01620        V16N20S            OCT      01620                                 
018054,001093: 24,3646           01640        V16N40S            OCT      01640                                 
018055,001094: 24,3647           00021        DEC17              DEC      17         B-14                       
018056,001095: 24,3650           06200 00000  DEC585             2DEC     3200       B+14                       
018057,001096: 
018058,001097: 24,3652           00400        DELYOFF            OCT      00400                                 
018059,001098: 24,3653           00024 35474  ERUNITS            2DEC     342844     B-28                       
018060,001099: 
018061,001100: 24,3655           01506        GENPLAD            GENADR   AZIMUTH                               
018062,001101: 24,3656           02521        GYRODPL            ECADR    GYROD                                 
018063,001102: 24,3657           02500        OGCPL              ECADR    OGC                                   
018064,001103: 24,3660           77760        LOWFOUR            OCT      77760                                 
018065,001104: 24,3661           00070        DEC56              DEC      56         B-14                       
018066,001105: 24,3662           10000        45DEG              OCT      10000                                 
018067,001106: 24,3663           13241        ROOT1/2            DEC      .353553                               
018068,001107: 24,3664           10000        ROOT1SQ            DEC      .250000                               
018069,001108: 24,3665           15520        ROOT2SQ            DEC      .426776                               
018070,001109: 24,3666           02260        ROOT3SQ            DEC      .073223                               
018071,001110: 24,3667           01400        XSMADR             GENADR   XSM                                   
018072,001111: 
018073,001112: 
018074,001113: 24,3670           00000 00000  SCNBAZ             2DEC     0          B-28                       
018075,001114: 24,3672           00000 00000                     2DEC     0          B-28                       
018076,001115: 24,3674           20000 00000  LABNBAZ            2DEC     .5                                    
018077,001116: 24,3676           00000 00000                     2DEC     0          B-28                       
018078,001117: 24,3700           00000 00000                     2DEC     0          B-28                       
018079,001118: 24,3702           20000 00000  SCNBVER            2DEC     .5                                    
018080,001119: 24,3704           00000 00000                     2DEC     0          B-28                       
018081,001120: 24,3706           00000 00000  LABNBVER           2DEC     0          B-28                       
018082,001121: 24,3710           00000 00000                     2DEC     0          B-28                       
018083,001122: 24,3712           57777 77777                     2DEC     -.5                                   
018084,001123: 

Page 435

018086,001125: 24,3714           00144        1SECX              DEC      100        B-14                       
018087,001126: 24,3715           17127 16705  GEORGED            2DEC     .47408845                             
018088,001127: 24,3717           07314 36223                     2DEC     .23125894                             
018089,001128: 24,3721           04521 31140                     2DEC     .14561689                             
018090,001129: 24,3723           75755 73521  GEORGEC            2DEC     -.06360691                            
018091,001130: 24,3725           72476 54176                     2DEC     -.16806746                            
018092,001131: 24,3727           04771 03365                     2DEC     .15582939                             
018093,001132: 24,3731           75644 70661  GEORGEB            2DEC     -.06806784                            
018094,001133: 24,3733           47762 75077                     2DEC     -.75079894                            
018095,001134: 24,3735           70023 73740                     2DEC     -.24878704                            
018096,001135: 
018097,001136: 24,3737           05235        DOCHECKG           TC       MAKECADR                              
018098,001137: 24,3740           55547                           TS       QPLACES                               
018099,001138: 24,3741           02776                           TC       CHECKG                                
018100,001139: 24,3742           31547                           CA       QPLACES                               
018101,001140: 24,3743           05230                           TC       BANKJUMP                              

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