Source Code

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

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

019567,000002:                                                                                                  ## Copyright:    Public domain.
019568,000003:                                                                                                  ## Filename:     IMU_PERFORMANCE_TESTS_2.agc
019569,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
019570,000005:                                                                                                  ## Assembler:    yaYUL
019571,000006:                                                                                                  ## Contact:      Hartmuth Gutsche<hgutsche@xplornet.com>.
019572,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
019573,000008:                                                                                                  ## Pages:        475-499
019574,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
019575,000010:                                                                                                  ##               2016-09-27 HG   start transcription from scans
019576,000011:                                                                                                  ##               2016-10-12 HG   fix operator TEHTAD -> THETAD
019577,000012:                                                                                                  ##                                            TORQDNX -> TORQNDX 
019578,000013:                                                                                                  ##                                            INODES33 -> IMODES33  
019579,000014:                                                                                                  ##                                            YSM =4 -> YSM +4
019580,000015:                                                                                                  ##                                   instruction CA  DRIFTT -> TS DRIFTT
019581,000016:                                                                                                  ##                                   constant 2DEC 32844 B-28  -> 2DEC 342844 B-28
019582,000017:                                                                                                  ##               2016-10-16 HG   fix label NBOSPL -> NBPOSPL
019583,000018:                                                                                                  ##                                         JUMLOAD -> JUMPLOAD
019584,000019:                                                                                                  ##                                         WAILP3 -> WAITLP3
019585,000020:                                                                                                  ##                               fix operand CHECKCG -> CHECKG
019586,000021:                                                                                                  ##                                           WAITPL2 -> WAITLP2 
019587,000022:                                                                                                  ##                                           WAITLP -> WAITLP1
019588,000023:                                                                                                  ##               2016-10-18 HG   fix operand REULTCT -> RESULTCT
019589,000024:                                                                                                  ##               2016-12-08 RSB  Proofed comments with octopus/ProoferComments
019590,000025:                                                                                                  ##                               and fixed the errors found.
019591,000026: 
019592,000027:                                                                                                  ## This source code has been transcribed or otherwise adapted from
019593,000028:                                                                                                  ## digitized images of a hardcopy from the private collection of
019594,000029:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
019595,000030: 
019596,000031:                                                                                                  ## Notations on the hardcopy document read, in part:
019597,000032: 
019598,000033:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
019599,000034:                                                                                                  ##       NOV 10, 1966
019600,000035: 
019601,000036:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
019602,000037:                                                                                                  ##       date of the program revision or the assembly.]
019603,000038: 
019604,000039:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent
019605,000040:                                                                                                  ## reduction in image quality) are available online at
019606,000041:                                                                                                  ##       https://www.ibiblio.org/apollo.
019607,000042:                                                                                                  ## The original high-quality digital images are available at archive.org:
019608,000043:                                                                                                  ##       https://archive.org/details/aurora00dapg
019609,000044: 

Page 475

019611,000046: 17,2000                                           BANK     17                                    
019612,000047: 17,2000  E5,1400                                  EBANK=   XSM                                   
019613,000048: 
019614,000049: 
019615,000050: 
019616,000051: 17,2000           37665        IMUTEST            CA       ZERO                                  
019617,000052: 17,2001           55576                           TS       DRIFTT                                
019618,000053: 17,2002           55742                           TS       GEOCOMPS                              
019619,000054: 17,2003           33626                           CAF      1SECX                                 
019620,000055: 17,2004           55744                           TS       1SECXT                                
019621,000056: 17,2005           06000        GEOIMUTT           TC       INTPRET                               #  OPTIMUM COMPASS COMES IN HERE
019622,000057: 17,2006           77634                           CALL                                           
019623,000058: 17,2007           30530                                    LATAZCHK                              
019624,000059: 17,2010           77776                           EXIT                                           
019625,000060: 17,2011           37657                           CA       ONE                                   
019626,000061: 17,2012           55544                           TS       POSITON                               
019627,000062: 
019628,000063: 17,2013           54340                           TS       DSPTEM2    +2                         
019629,000064: 17,2014           54400                           TS       THETAD                                
019630,000065: 17,2015           54401                           TS       THETAD     +1                         
019631,000066: 17,2016           54402                           TS       THETAD     +2                         
019632,000067: 17,2017           04063                           TC       BANKCALL                              
019633,000068: 17,2020           26000                           CADR     IMUZERO                               
019634,000069: 17,2021           04063                           TC       BANKCALL                              
019635,000070: 17,2022           26716                           CADR     IMUSTALL                              
019636,000071: 17,2023           12243                           TCF      ENDTEST1                              
019637,000072: 17,2024           37665        IMUBACK            CA       ZERO                                  
019638,000073: 17,2025           54337                           TS       DSPTEM2    +1                         
019639,000074: 17,2026           55537                           TS       NDXCTR                                
019640,000075: 17,2027           55574                           TS       TORQNDX                               
019641,000076: 17,2030           55575                           TS       TORQNDX    +1                         
019642,000077: 17,2031           33660                           CAF      TESTTIME                              
019643,000078: 17,2032           54336                           TS       DSPTEM2                               
019644,000079: 17,2033           04063                           TC       BANKCALL                              #  ISS RETURNS IN COARSE ALIGN MODE TO
019645,000080: 17,2034           26055                           CADR     IMUCOARS                              #  ENABLE OPERATOR TO DECIDE WHAT TO DO
019646,000081:                                                                                                  #  ABOUT GIMBAL LOCK
019647,000082: 17,2035           03567                           TC       SHOWLD                                
019648,000083: 17,2036           03576                           TC       SHOW                                  
019649,000084: 
019650,000085: 
019651,000086: 
019652,000087: 17,2037           04063                           TC       BANKCALL                              
019653,000088: 17,2040           26716                           CADR     IMUSTALL                              
019654,000089: 17,2041           02243                           TC       ENDTEST1                              
019655,000090: 17,2042           03344                           TC       NBPOSPL                               
019656,000091: 17,2043           03077                           TC       POSGMBL                               
019657,000092: 17,2044           02106                           TC       PIPACHK                               #  IF MGA IS 60DEG+ PROG WILL STAY IN COARS
019658,000093:                                                                                                  #  ALIGN AND MEASURE VERITCAL PIPA RATE
019659,000094: 17,2045           03124                           TC       FALNE                                 
019660,000095: 17,2046           04063                           TC       BANKCALL                              
019661,000096: 

Page 476

019663,000098: 17,2047           26716                           CADR     IMUSTALL                              
019664,000099: 17,2050           12243                           TCF      ENDTEST1                              
019665,000100: 17,2051           11742                           CCS      GEOCOMPS                              
019666,000101: 17,2052           02072                           TC       JUMPLOAD                              
019667,000102: 17,2053           06000        GUESS              TC       INTPRET                               #  CALCULATE -COS LATITUDE AND SIN LATITUDE
019668,000103: 17,2054           71545                           DLOAD    COS                                   #  FOR ESTIMATE
019669,000104: 17,2055           01511                                    LATITUDE                              
019670,000105: 17,2056           72476                           DCOMP    SL1                                   
019671,000106: 17,2057           07573                           STODL    WANGI                                 
019672,000107: 17,2060           01511                                    LATITUDE                              
019673,000108: 17,2061           72556                           SIN      SL1                                   
019674,000109: 17,2062           23571                           STOVL    WANGO                                 #  LOAD TRANSITION MATRIX INTO ERASABLE
019675,000110: 17,2063           37630                                    GEORGED                               
019676,000111: 17,2064           23721                           STOVL    TRANSM1                               
019677,000112: 17,2065           37636                                    GEORGEC                               
019678,000113: 17,2066           23727                           STOVL    TRANSM1    +6                         
019679,000114: 17,2067           37644                                    GEORGEB                               
019680,000115: 17,2070           01735                           STORE    TRANSM1    +12D                       
019681,000116: 17,2071           77776                           EXIT                                           
019682,000117: 17,2072           03612        JUMPLOAD           TC       LOADGTSM                              
019683,000118: 17,2073           04063                           TC       BANKCALL                              
019684,000119: 17,2074           42000                           CADR     ESTIMS                                
019685,000120: 17,2075           04614        TORQUE             TC       PHASCHNG                              #  FILTER TORQUES PLTFM AND SETS UP ERATE
019686,000121: 17,2076           00000                           OCT      00000                                 
019687,000122: 17,2077           37665                           CA       ZERO                                  
019688,000123: 17,2100           54336                           TS       DSPTEM2                               
019689,000124: 17,2101           31640                           CA       DRIFTI                                
019690,000125: 17,2102           54337                           TS       DSPTEM2    +1                         
019691,000126: 17,2103           51544                           INDEX    POSITON                               
019692,000127: 17,2104           55551                           TS       SOUTHDR    -1                         
019693,000128: 17,2105           03576                           TC       SHOW                                  
019694,000129: 
019695,000130: 17,2106           51537        PIPACHK            INDEX    NDXCTR                                #  TORQUE PLATFORM TO CORRECT  LEVELING ERR
019696,000131: 17,2107           02110                           TC       +1                                    #  IN PREPARATION TO MEASURING VERTICAL
019697,000132: 17,2110           04063                           TC       BANKCALL                              #  PIPA OUTPUT PULSE RATE
019698,000133: 17,2111           30422                           CADR     EARTHR                                
019699,000134: 
019700,000135: 17,2112           33663                           CA       DEC17                                 #   ALLOW PIP COUNTER TO OVERFLOW 17 TIMES
019701,000136: 17,2113           55632                           TS       DATAPL     +4                         
019702,000137: 17,2114           37646                           CA       BIT10                                 #  IN THE ALLOTED TIME INTERVAL
019703,000138: 17,2115           55527                           TS       LENGTHOT                              
019704,000139: 17,2116           37657                           CA       ONE                                   
019705,000140: 17,2117           55673                           TS       RESULTCT                              
019706,000141: 17,2120           37665                           CA       ZERO                                  #  ZERO PIPA COUNTER INITIALLY
019707,000142: 17,2121           51541                           INDEX    PIPINDEX                              
019708,000143: 17,2122           54037                           TS       PIPAX                                 
019709,000144: 17,2123           55626                           TS       DATAPL                                
019710,000145: 17,2124           33675                           CA       DEC56                                 #   LOOP 56 TIMES 5.12 SEC "ACH. EACH INCR.
019711,000146: 17,2125           03205                           TC       WAITLOOP                              #  WILL ALSO CORRECT EARTH RATE
019712,000147: 17,2126           00004                           INHINT                                         
019713,000148: 

Page 477

019715,000150: 17,2127           02771                           TC       CHECKG                                
019716,000151: 17,2130           00003                           RELINT                                         
019717,000152: 17,2131           03065                           TC       DATALD                                
019718,000153: 17,2132           37664                           CA       FIVE                                  
019719,000154: 17,2133           55673                           TS       RESULTCT                              
019720,000155: 17,2134           51537                           INDEX    NDXCTR                                
019721,000156: 17,2135           02136                           TC       +1                                    
019722,000157: 17,2136           04063                           TC       BANKCALL                              
019723,000158: 17,2137           30422                           CADR     EARTHR                                
019724,000159: 17,2140           11676                           CCS      COUNTPL                               
019725,000160: 17,2141           03227                           TC       WAITLP2                               
019726,000161: 17,2142           11627                           CCS      DATAPL     +1                         
019727,000162: 17,2143           02147                           TC       +4                                    
019728,000163: 17,2144           05464                           TC       CCSHOLE                               
019729,000164: 17,2145           41632                           CS       DATAPL     +4                         
019730,000165: 17,2146           55632                           TS       DATAPL     +4                         
019731,000166: 17,2147           00006                           EXTEND                                         
019732,000167: 17,2150           41627                           DCS      DATAPL                                
019733,000168: 17,2151           21633                           DAS      DATAPL     +4                         
019734,000169: 
019735,000170: 17,2152           06000                           TC       INTPRET                               
019736,000171: 17,2153           45345                           DLOAD    DSU                                   
019737,000172: 17,2154           01635                                    DATAPL     +6                         
019738,000173: 17,2155           01631                                    DATAPL     +2                         
019739,000174: 17,2156           56325                           PDDL     DDV                                   
019740,000175: 17,2157           01633                                    DATAPL     +4                         
019741,000176: 17,2160           41325                           PDDL     DMP                                   
019742,000177: 17,2161           37665                                    DEC585                                #  DEC585 HAS BEEN REDEFINED FOR LEM
019743,000178: 17,2162           77624                           RTB                                            
019744,000179: 17,2163           33406                                    SGNAGREE                              
019745,000180: 17,2164           00337                           STORE    DSPTEM2                               
019746,000181: 17,2165           77776                           EXIT                                           
019747,000182: 17,2166           03576                           TC       SHOW                                  
019748,000183: 17,2167           33656        VERTDRFT           CA       3990DEC                               #  NUMBER OF SECONDS TO SPEND ESTIMATING
019749,000184: 17,2170           55527                           TS       LENGTHOT                              
019750,000185: 17,2171           04063                           TC       BANKCALL                              #  THIS WILL CORRECT FOR EARTH RATE DURING
019751,000186: 17,2172           30422                           CADR     EARTHR                                #  TIME SPENT IN SHOW ABOVE*
019752,000187: 17,2173           30032                           CA       CDUX                                  #  STOORE AXIS  FOR LAB CALC OF DRIFT
019753,000188: 17,2174           55530                           TS       LOSVEC                                
019754,000189: 17,2175           51544                           INDEX    POSITON                               
019755,000190: 17,2176           41550                           CS       SOUTHDR    -2                         
019756,000191: 17,2177           55576                           TS       DRIFTT                                
019757,000192: 17,2200           03612                           TC       LOADGTSM                              
019758,000193: 17,2201           37665                           CA       ZERO                                  #  ALLOW ONLY SOUTH GYRO EARTH RATE COMPENS
019759,000194: 17,2202           55400                           TS       XSM                                   
019760,000195: 17,2203           55401                           TS       XSM        +1                         
019761,000196: 17,2204           55404                           TS       XSM        +4                         
019762,000197: 17,2205           55405                           TS       XSM        +5                         
019763,000198: 17,2206           55406                           TS       YSM                                   
019764,000199: 17,2207           55407                           TS       YSM        +1                         
019765,000200: 

Page 478

019767,000202: 17,2210           55412                           TS       YSM        +4                         
019768,000203: 17,2211           55413                           TS       YSM        +5                         
019769,000204: 17,2212           55414                           TS       ZSM                                   
019770,000205: 17,2213           55415                           TS       ZSM        +1                         
019771,000206: 17,2214           55420                           TS       ZSM        +4                         
019772,000207: 17,2215           55421                           TS       ZSM        +5                         
019773,000208: 17,2216           37637        GUESS1             CAF      POSMAX                                
019774,000209: 17,2217           55574                           TS       TORQNDX                               
019775,000210: 17,2220           55575                           TS       TORQNDX    +1                         
019776,000211: 17,2221           04063                           TC       BANKCALL                              
019777,000212: 17,2222           42000                           CADR     ESTIMS                                
019778,000213: 17,2223           04614        VALMIS             TC       PHASCHNG                              
019779,000214: 17,2224           00000                           OCT      00000                                 
019780,000215: 17,2225           31636                           CA       DRIFTO                                
019781,000216: 17,2226           54337                           TS       DSPTEM2    +1                         
019782,000217: 17,2227           30032                           CA       CDUX                                  #  STORE OG ANGLE FOR LAB CALC OF DRIFT**
019783,000218: 17,2230           55531                           TS       LOSVEC     +1                         
019784,000219: 17,2231           37665                           CA       ZERO                                  
019785,000220: 17,2232           54336                           TS       DSPTEM2                               
019786,000221: 17,2233           03576                           TC       SHOW                                  
019787,000222: 
019788,000223: 
019789,000224: 
019790,000225: 17,2234           37657        FINISH             CA       ONE                                   
019791,000226: 17,2235           61544                           AD       POSITON                               
019792,000227: 17,2236           54340                           TS       DSPTEM2    +2                         
019793,000228: 17,2237           37656                           CA       TWO                                   
019794,000229: 17,2240           55546                           TS       QPLACE                                
019795,000230: 17,2241           04063                           TC       BANKCALL                              
019796,000231: 17,2242           22343                           CADR     TSELECT    -6                         
019797,000232: 17,2243           04063        ENDTEST1           TC       BANKCALL                              
019798,000233: 17,2244           30745                           CADR     ENDTEST                               
019799,000234: 

Page 479

019801,000236: 17,2245           33666        OPCHK              CAF      DELYOFF                               #  AUTOMATIC TEST FOR SYSTEM OPERATION
019802,000237: 17,2246           00006                           EXTEND                                         
019803,000238: 17,2247           02030                           RAND     30                                    #  CHECK TO SEE IF IMU IS ON
019804,000239: 17,2250           10000                           CCS      A                                     
019805,000240: 17,2251           02440                           TC       ALARMS                                
019806,000241: 17,2252           33661                           CAF      V16N20S                               
019807,000242: 17,2253           05332                           TC       NVSBWAIT                              
019808,000243: 
019809,000244: 17,2254           05401                           TC       FREEDSP                               
019810,000245: 17,2255           04063                           TC       BANKCALL                              
019811,000246: 17,2256           26000                           CADR     IMUZERO                               
019812,000247: 17,2257           04063                           TC       BANKCALL                              
019813,000248: 17,2260           26716                           CADR     IMUSTALL                              
019814,000249: 
019815,000250: 17,2261           12243                           TCF      ENDTEST1                              
019816,000251: 17,2262           37650                           CA       BIT8                                  #  ZERO ALL ERASEABLE USED IN TEST
019817,000252: 17,2263           55776                           TS       ZERONDX                               
019818,000253: 17,2264           33671                           CA       GENPLAD                               
019819,000254: 17,2265           03236                           TC       ZEROING                               
019820,000255: 17,2266           03344                           TC       NBPOSPL                               #  ALIGN ANGLE COMPUTATION
019821,000256: 
019822,000257: 17,2267           03077                           TC       POSGMBL                               #  COARSE ALIGN THOSE GIMBALS NOW
019823,000258: 
019824,000259: 17,2270           12245                           TCF      OPCHK                                 
019825,000260: 17,2271           03124                           TC       FALNE                                 #  FINE ALIGN PLATFORM BY TORQUING GYROS
019826,000261: 
019827,000262: 17,2272           04063                           TC       BANKCALL                              
019828,000263: 17,2273           26716                           CADR     IMUSTALL                              
019829,000264: 17,2274           12243                           TCF      ENDTEST1                              
019830,000265: 17,2275           37656                           CA       TWO                                   
019831,000266: 17,2276           55672        CDUCHECK           TS       CDUNDX                                #  THIS LOOP CHECKS FOR NO ERROR BETWEEN
019832,000267: 17,2277           51672                           INDEX    CDUNDX                                #  DESIRED CDU ANGLES AND THE ACTUAL ANGLES
019833,000268: 17,2300           40400                           CS       THETAD                                
019834,000269: 17,2301           51672                           INDEX    CDUNDX                                
019835,000270: 17,2302           60032                           AD       CDUX                                  
019836,000271: 17,2303           55551                           TS       STOREPL                               
019837,000272: 17,2304           11551                           CCS      STOREPL                               
019838,000273: 17,2305           02313                           TC       ERRMASK                               
019839,000274: 17,2306           02310                           TC       NOERR                                 
019840,000275: 17,2307           02313                           TC       ERRMASK                               
019841,000276: 17,2310           11672        NOERR              CCS      CDUNDX                                
019842,000277: 17,2311           02276                           TC       CDUCHECK                              
019843,000278: 17,2312           02317                           TC       LOADIC                                
019844,000279: 17,2313           73674        ERRMASK            MASK     LOWFOUR                               #  ALLOW FIVE BIT ERRORS
019845,000280: 17,2314           10000                           CCS      A                                     
019846,000281: 17,2315           02440                           TC       ALARMS                                
019847,000282: 17,2316           02310                           TC       NOERR                                 
019848,000283: 17,2317           37657        LOADIC             CA       ONE                                   
019849,000284: 17,2320           55673                           TS       RESULTCT                              
019850,000285: 17,2321           47657                           CS       ONE                                   
019851,000286: 

Page 480

019853,000288: 17,2322           55670                           TS       MASKREG                               #  SETS UP AZIMUTH AND VERTICAL VECTORS FOR
019854,000289: 
019855,000290: 17,2323           37665                           CA       ZERO                                  
019856,000291: 17,2324           54037                           TS       PIPAX                                 
019857,000292: 17,2325           54040                           TS       PIPAY                                 
019858,000293: 17,2326           54041                           TS       PIPAZ                                 
019859,000294: 
019860,000295: 17,2327           37645                           CA       BIT11                                 
019861,000296: 17,2330           55527                           TS       LENGTHOT                              #  VECTOR IN PIPA COUNTERS
019862,000297: 17,2331           37657                           CA       ONE                                   
019863,000298: 17,2332           03205                           TC       WAITLOOP                              
019864,000299: 17,2333           11676                           CCS      COUNTPL                               
019865,000300: 17,2334           03227                           TC       WAITLP2                               
019866,000301: 17,2335           33675                           CA       DEC56                                 
019867,000302: 17,2336           03205                           TC       WAITLOOP                              
019868,000303: 17,2337           37656        OPCHK1             CA       TWO                                   
019869,000304: 17,2340           55541        OPCHK2             TS       PIPINDEX                              
019870,000305: 17,2341           00004                           INHINT                                         
019871,000306: 17,2342           02771                           TC       CHECKG                                
019872,000307: 17,2343           00003                           RELINT                                         
019873,000308: 17,2344           37665                           CA       ZERO                                  
019874,000309: 17,2345           51541                           INDEX    PIPINDEX                              
019875,000310: 17,2346           54037                           TS       PIPAX                                 
019876,000311: 17,2347           03065                           TC       DATALD                                #  LOAD PIPA DATA AND TIME IN DATAPL
019877,000312: 17,2350           57673                           XCH      RESULTCT                              
019878,000313: 17,2351           67655                           AD       FOUR                                  
019879,000314: 17,2352           55673                           TS       RESULTCT                              
019880,000315: 17,2353           11541                           CCS      PIPINDEX                              
019881,000316: 17,2354           02340                           TC       OPCHK2                                
019882,000317: 17,2355           47655        READOUT            CS       FOUR                                  
019883,000318: 17,2356           61673                           AD       RESULTCT                              
019884,000319: 17,2357           55673                           TS       RESULTCT                              
019885,000320: 17,2360           22007                           ZL                                             
019886,000321: 17,2361           51673                           INDEX    RESULTCT                              
019887,000322: 17,2362           31626                           CA       DATAPL                                
019888,000323: 17,2363           22000                           LXCH     A                                     
019889,000324: 17,2364           51673                           INDEX    RESULTCT                              
019890,000325: 17,2365           21572                           DAS      GENPL      +1                         
019891,000326: 17,2366           31673                           CA       RESULTCT                              
019892,000327: 17,2367           71670                           MASK     MASKREG                               
019893,000328: 17,2370           10000                           CCS      A                                     
019894,000329: 17,2371           02355                           TC       READOUT                               
019895,000330: 17,2372           37661                           CA       TEN                                   
019896,000331: 17,2373           66165                           AD       THREE                                 
019897,000332: 17,2374           55673                           TS       RESULTCT                              
019898,000333: 17,2375           40000                           CS       A                                     
019899,000334: 17,2376           55670                           TS       MASKREG                               
019900,000335: 17,2377           11676                           CCS      COUNTPL                               
019901,000336: 17,2400           03227                           TC       WAITLP2                               
019902,000337: 17,2401           03250                           TC       COMPUT                                
019903,000338: 

Page 481

019905,000340: 17,2402           33662        RADCK              CA       V16N40S                               
019906,000341: 17,2403           05332                           TC       NVSBWAIT                              #  OPERATOR WILL CHECK RADAR STATUS.IN LAB.
019907,000342: 17,2404           05274                           TC       FLASHON                               #  SET RADAR OFF THEN PUT RESOLVER STANDARD
019908,000343: 17,2405           05140                           TC       ENDIDLE                               #  ON TRUNNION AND SET TO +45 DEG.SHAFT WIL
019909,000344: 17,2406           02243                           TC       ENDTEST1                              
019910,000345: 17,2407           02410                           TC       +1                                    #  AFTER SETTING RES STANDARD DO A V33
019911,000346: 17,2410           37665                           CA       ZERO                                  
019912,000347: 17,2411           54424                           TS       TANG       +1                         
019913,000348: 17,2412           33676                           CA       45DEG                                 
019914,000349: 17,2413           54423                           TS       TANG                                  
019915,000350: 17,2414           04063        DRIVRAD            TC       BANKCALL                              #  IN SC WHEN RAD PRESENT DO V33 RIGHT AWAY
019916,000351: 17,2415           20247                           CADR     RRZERO                                #  LGC WILL ATTEMPT TO DRIVE 45 DEG TRUNN.
019917,000352: 17,2416           04063                           TC       BANKCALL                              #  TO MATCH STANDARD, AFTER ZEROING CDUS
019918,000353: 17,2417           26712                           CADR     RADSTALL                              
019919,000354: 17,2420           02243                           TC       ENDTEST1                              
019920,000355: 17,2421           06000                           TC       INTPRET                               
019921,000356: 17,2422           77634                           CALL                                           
019922,000357: 17,2423           20363                                    RRDESNB                               
019923,000358: 17,2424           04063                           TC       BANKCALL                              
019924,000359: 17,2425           26712                           CADR     RADSTALL                              #  IF CDU FAILS TO AGREE WITH COMMAND TO
019925,000360: 17,2426           02440                           TC       ALARMS                                #  1 DEG GET ALARM HERE
019926,000361: 
019927,000362: 17,2427           05274                           TC       FLASHON                               #  OPERATOR WILL CHECK STATUS OF RADAR
019928,000363: 17,2430           05140                           TC       ENDIDLE                               #  IN S/C DO V33 TO CONTINUE WITH SHAFT
019929,000364: 17,2431           02243                           TC       ENDTEST1                              #  TEST
019930,000365: 17,2432           02433                           TC       +1                                    #  IN LAB TURN RADAR OFF CHANGE RES STANDAR
019931,000366: 17,2433           37665                           CA       ZERO                                  #  TO SHAFT AND SET FOR -45DEG.
019932,000367: 17,2434           54423                           TS       TANG                                  #  THEN DO A V33 IF WANT TO REPEAT CHECK
019933,000368: 17,2435           43676                           CS       45DEG                                 #  DO A V34 TO TERMINATE
019934,000369: 17,2436           54424                           TS       TANG       +1                         
019935,000370: 17,2437           02414                           TC       DRIVRAD                               
019936,000371: 17,2440           56002        ALARMS             XCH      Q                                     
019937,000372: 17,2441           55546                           TS       QPLACE                                
019938,000373: 17,2442           05413                           TC       ALARM                                 
019939,000374: 17,2443           01411                           OCT      1411                                  
019940,000375: 17,2444           01546                           TC       QPLACE                                
019941,000376: 

Page 482

019943,000378: 17,2445           06000        GYRSFTST           TC       INTPRET                               #  START ADRESS FOR IRIG SF TEST
019944,000379: 17,2446           77634                           CALL                                           
019945,000380: 17,2447           30530                                    LATAZCHK                              #  LOAD AZ AND LAT
019946,000381: 17,2450           77776                           EXIT                                           
019947,000382: 17,2451           33651        TESTCALL           CAF      V21N30E                               
019948,000383: 17,2452           05332                           TC       NVSBWAIT                              #  LOAD + OR - 1 FOR + OR - X TEST (+00001)
019949,000384: 17,2453           05140                           TC       ENDIDLE                               #  LOAD + OR - 2 FOR + OR - Y TEST
019950,000385: 17,2454           12243                           TCF      ENDTEST1                              #  LOAD + OR - 3 FOR + OR - Z TEST
019951,000386: 17,2455           02451                           TC       TESTCALL                              
019952,000387: 17,2456           56333                           XCH      DSPTEM1                               
019953,000388: 17,2457           55614                           TS       CALCDIR                               
019954,000389: 17,2460           00006                           EXTEND                                         #  THIS ROUTINE LOOKS AT THE SIZE OF THE
019955,000390: 17,2461           62466                           BZMF     NEGSIZ                                #  ENTRY MADE BY THE OPERATOR, IF HE DID NO
019956,000391: 17,2462           77671        SIZLOOK            MASK     NEG3                                  #  T ENTER TEST NO THAT IS W/I PERMISSIBLE
019957,000392: 17,2463           00006                           EXTEND                                         #  RANGE- HE WILL BE ASKED TO LOAD AGAIN.
019958,000393: 17,2464           12470                           BZF      GUDENTRY                              #    THIS IS CONSIDERED NECESSARY BECAUSE
019959,000394: 17,2465           02451                           TC       TESTCALL                              #  OF FOLLOWING INDEXED TC WHICH COULD
019960,000395: 
019961,000396: 17,2466           40000        NEGSIZ             COM                                            #  SEND THE COMPUTER OFF INTO THE BOONDOCKS
019962,000397: 17,2467           02462                           TC       SIZLOOK                               #  TO PLAY WITH ITSELF IF THE OPERATOR
019963,000398: 17,2470           31614        GUDENTRY           CA       CALCDIR                               #  MAKES ABAD ENTRY******
019964,000399: 17,2471           67655                           AD       FOUR                                  
019965,000400: 17,2472           50000                           INDEX    A                                     
019966,000401: 17,2473           02474                           TC       +1                                    
019967,000402: 17,2474           02451                           TC       TESTCALL                              
019968,000403: 17,2475           02503                           TC       +6                                    #  C(A)=+00001 FOR -Z
019969,000404: 17,2476           02502                           TC       +4                                    #  C(A)=+00002 FOR -Y
019970,000405: 17,2477           02501                           TC       +2                                    #  C(A)=+00003 FOR -X
019971,000406: 17,2500           02474                           TC       -4                                    #  C(A)=+00004   ERROR
019972,000407: 17,2501           02504                           TC       +3                                    #  C(A)=+00005 FOR +X
019973,000408: 17,2502           02510                           TC       +6                                    
019974,000409: 17,2503           02513                           TC       +10                                   
019975,000410: 17,2504           37655                           CAF      FOUR                                  
019976,000411: 17,2505           55544                           TS       POSITON                               #  4 IS FOR A.L. POSN 4 USED FOR X SF TEST
019977,000412: 17,2506           02515                           TC       +7                                    
019978,000413: 17,2507           02515                           TC       +6                                    
019979,000414: 17,2510           37656                           CAF      TWO                                   
019980,000415: 17,2511           55544                           TS       POSITON                               #  +2 IS A.L. POS 2 USED FOR Y SF TEST
019981,000416: 17,2512           02515                           TC       +3                                    
019982,000417: 17,2513           37657                           CAF      ONE                                   
019983,000418: 17,2514           55544                           TS       POSITON                               #  +1 IS A.L. POS 1 USED FOR Z SF TEST
019984,000419: 17,2515           55617                           TS       OPTNREG                               #  C(K) = (4,2,1) FOR X,Y,Z
019985,000420: 17,2516           55621                           TS       SAVE       +1                         
019986,000421: 17,2517           05401                           TC       FREEDSP                               
019987,000422: 17,2520           37665                           CAF      ZERO                                  
019988,000423: 17,2521           55536                           TS       NBPOS                                 #  SET UP NB COORD TO Z NORTH, X UP
019989,000424: 17,2522           55622                           TS       SAVE       +2                         #  INITIALIZE FOR EARTHR DESIGNATE USAGE
019990,000425: 17,2523           55563                           TS       TESTNO                                #  INITIALIZE FOR TEST ABORT ROUTINE
019991,000426: 17,2524           55615                           TS       CDUFLAG                               #  ZEROS FOR STRTWACH USE
019992,000427: 17,2525           33653                           CAF      SFCONST                               
019993,000428: 

Page 483

019995,000430: 17,2526           55623                           TS       SFCONST1                              #  FOR DIVISION DURING CALCFSE
019996,000431: 
019997,000432: 17,2527           04063                           TC       BANKCALL                              
019998,000433: 17,2530           26000                           CADR     IMUZERO                               
019999,000434: 17,2531           04063                           TC       BANKCALL                              
020000,000435: 17,2532           26716                           CADR     IMUSTALL                              
020001,000436: 17,2533           12243                           TCF      ENDTEST1                              
020002,000437: 17,2534           03344                           TC       NBPOSPL                               
020003,000438: 17,2535           03077                           TC       POSGMBL                               
020004,000439: 17,2536           12243                           TCF      ENDTEST1                              
020005,000440: 17,2537           03124                           TC       FALNE                                 
020006,000441: 17,2540           04063                           TC       BANKCALL                              
020007,000442: 17,2541           31703                           CADR     REDYTORK                              
020008,000443: 17,2542           55552        WAITFIVE           TS       SOUTHDR                               
020009,000444: 17,2543           37652                           CAF      BIT6                                  #  THIS SECTION CALLS FOR 2-32 MSEC WAITS
020010,000445: 17,2544           02557                           TC       DIRECTN    -5                         
020011,000446: 17,2545           37652        ENABLE             CAF      BIT6                                  
020012,000447: 17,2546           00006                           EXTEND                                         #  ENABLE GYRO TORQUING LOOP BY TURNING
020013,000448: 17,2547           05014                           WOR      14C                                   #  ON CAL MODULE RELAY
020014,000449: 
020015,000450: 17,2550           00004                           INHINT                                         
020016,000451: 17,2551           47656                           CS       TWO                                   #  SETS UP EXEC SWITCH SO IMUPULSE WILL
020017,000452: 17,2552           70370                           MASK     IMODES33                              #  NOT TURN OFF GYRO TORQ ENABLE RELAY
020018,000453: 17,2553           67656                           AD       TWO                                   
020019,000454: 17,2554           54370                           TS       IMODES33                              
020020,000455: 17,2555           37656                           CAF      TWO                                   
020021,000456: 17,2556           55552                           TS       SOUTHDR                               
020022,000457: 17,2557           55527                           TS       LENGTHOT                              #   20 MSEC DELAY FOR GYRO LOOP STABILIZAT.
020023,000458: 17,2560           37657                           CA       ONE                                   
020024,000459: 17,2561           03205                           TC       WAITLOOP                              
020025,000460: 17,2562           11676                           CCS      COUNTPL                               
020026,000461: 17,2563           03227                           TC       WAITLP2                               
020027,000462: 17,2564           04063        DIRECTN            TC       BANKCALL                              #   TORQUING ROUTINE IN IMU PERFORMANCE
020028,000463: 17,2565           34520                           CADR     SILVER                                #     BANK 3
020029,000464: 17,2566           11552                           CCS      SOUTHDR                               #  A ONE FIRST TIME THROUGH, THEN ZERO
020030,000465: 17,2567           02542                           TC       WAITFIVE                              
020031,000466: 
020032,000467: 17,2570           11615        STRTWACH           CCS      CDUFLAG                               #   RETURNS HERE VIA QPLACE FROM SILVER
020033,000468: 17,2571           02652                           TC       CDUZOTST                              #  BEEN CAUGHT AND CDU THROUGH ZERO IS
020034,000469: 17,2572           11621                           CCS      SAVE       +1                         
020035,000470: 17,2573           02612                           TC       LOOKCDUP   -4                         
020036,000471: 17,2574           02616                           TC       LOOKCDUP                              
020037,000472: 17,2575           37665        CORRECT            CAF      ZERO                                  
020038,000473: 17,2576           54357                           TS       LGYRO                                 #   RELEASES GYROS FOR IMUPULSE USAGE
020039,000474: 17,2577           04063                           TC       BANKCALL                              #  EARTHRATE CORRECTION TO GYROS NOT EAST
020040,000475: 17,2600           30422                           CADR     EARTHR                                #  OR WEST
020041,000476: 17,2601           37657                           CAF      ONE                                   
020042,000477: 17,2602           54357                           TS       LGYRO                                 #  RESERVES GYROS FOR S.F. TEST TORQUING
020043,000478: 17,2603           55622                           TS       SAVE       +2                         #  INITIALIZES TO INSURE 5.6 DEG OF TORQ)
020044,000479: 17,2604           27563                           ADS      TESTNO                                #  INCR THE BURST COUNTER, WHICH IS USED TO
020045,000480: 

Page 484

020047,000482: 17,2605           41563                           CS       TESTNO                                #  COUNT THE NO. OF ITMES THE GYRO COUNTER
020048,000483: 17,2606           77664                           MASK     FIVE                                  #  IS LOADED, IF A TENTH LOAD IS REQUESTED
020049,000484: 17,2607           00006                           EXTEND                                         #  THE SFE IS TOO LARGE TO BE MEANINGFULL
020050,000485: 17,2610           12760                           BZF      STOPTEST                              #  OR THE CDU,S ARE NOT WORKING.
020051,000486: 17,2611           02564                           TC       DIRECTN                               
020052,000487: 
020053,000488: 17,2612           37665                           CAF      ZERO                                  #  ZEROS CDU REG WHICH WILL BE USED TO
020054,000489: 17,2613           55621                           TS       SAVE       +1                         
020055,000490: 17,2614           51672                           INDEX    CDUNDX                                #  MEASURE ANGLE.
020056,000491: 17,2615           54032                           TS       CDUX                                  
020057,000492: 17,2616           00004        LOOKCDUP           INHINT                                         
020058,000493: 17,2617           37653                           CAF      BIT5                                  
020059,000494: 17,2620           55624        STILLOOK           TS       TIMER                                 
020060,000495: 17,2621           51672                           INDEX    CDUNDX                                #  LOOKS FOR FIRST CDU PULSE AFTER TORQUING
020061,000496: 17,2622           10032                           CCS      CDUX                                  #  STARTS
020062,000497: 17,2623           02635                           TC       OUTPLUS                               #  HERE IS PLUS PULSE
020063,000498: 17,2624           02627                           TC       TIMEWACH                              
020064,000499: 17,2625           02440                           TC       ALARMS                                #  TTELL OPERATOR FIRST CDU PULSE WAS MISSD
020065,000500: 17,2626           02646                           TC       OUTNEG                                #  HERE IS MINUS PULSE
020066,000501: 17,2627           11624        TIMEWACH           CCS      TIMER                                 #  WATCHES TIME IN INHINT SO COPS WILL NOT
020067,000502: 17,2630           02620                           TC       STILLOOK                              #  CATCH US
020068,000503: 17,2631           00003                           RELINT                                         
020069,000504: 
020070,000505: 17,2632           10067                           CCS      NEWJOB                                
020071,000506: 17,2633           04404                           TC       CHANG1                                
020072,000507: 17,2634           02616                           TC       LOOKCDUP                              #  KEEP WATCHING IF THE PULSE IS NOT HERE
020073,000508: 
020074,000509: 17,2635           43652        OUTPLUS            CS       DESANGLE                              #  -2047 CDU PULSES ADDED TO CDU REG SO
020075,000510: 17,2636           51672                           INDEX    CDUNDX                                #  ZERO CROSSOVER CAN BE DETECTED
020076,000511: 17,2637           54032                           TS       CDUX                                  
020077,000512: 17,2640           37657        LOADFLAG           CAF      ONE                                   
020078,000513: 17,2641           55615                           TS       CDUFLAG                               
020079,000514: 17,2642           30047                           CA       GYROCTR                               #  GYRO TORQ CMDS LEFT OUT OF FIRST 5.625
020080,000515: 17,2643           55620                           TS       SAVE                                  #  DEG COMMANDED WHEN CDU PULSE ARRIVED
020081,000516: 17,2644           00003                           RELINT                                         
020082,000517: 17,2645           02652                           TC       CDUZOTST                              
020083,000518: 
020084,000519: 17,2646           33652        OUTNEG             CA       DESANGLE                              
020085,000520: 17,2647           51672                           INDEX    CDUNDX                                
020086,000521: 17,2650           54032                           TS       CDUX                                  
020087,000522: 17,2651           02640                           TC       LOADFLAG                              
020088,000523: 
020089,000524: 17,2652           51672        CDUZOTST           INDEX    CDUNDX                                
020090,000525: 17,2653           10032                           CCS      CDUX                                  
020091,000526: 17,2654           02660                           TC       +4                                    
020092,000527: 17,2655           02675                           TC       ENDWATCH                              
020093,000528: 17,2656           02660                           TC       +2                                    
020094,000529: 17,2657           02675                           TC       ENDWATCH                              
020095,000530: 17,2660           37646                           CAF      BIT10                                 #  RAND WITH BIT 10 TO SEE IF STILL TORQ.
020096,000531: 17,2661           00006                           EXTEND                                         
020097,000532: 

Page 485

020099,000534: 17,2662           02014                           RAND     14C                                   
020100,000535: 17,2663           10000                           CCS      A                                     
020101,000536: 17,2664           02672                           TC       +6                                    
020102,000537: 
020103,000538: 17,2665           11622                           CCS      SAVE       +2                         #  SEE IF 2.8DEG OR 5.6 DEG SINCE LAST
020104,000539: 17,2666           02670                           TC       +2                                    # EEARTHR USE, IF 2.8 DEG, DO 2.8 MORE
020105,000540: 17,2667           02575                           TC       CORRECT                               #   THEN GO TO CORRECT
020106,000541: 17,2670           55622                           TS       SAVE       +2                         
020107,000542: 17,2671           02564                           TC       DIRECTN                               
020108,000543: 17,2672           10067                           CCS      NEWJOB                                
020109,000544: 17,2673           04404                           TC       CHANG1                                
020110,000545: 17,2674           02652                           TC       CDUZOTST                              
020111,000546: 
020112,000547: 17,2675           00004        ENDWATCH           INHINT                                         #  WWILL STOR GYROCTR AT END OF 2048 CDU
020113,000548: 17,2676           37665                           CAF      ZERO                                  #  PULSES AND STOP TORQ BY ZEROING REQUESTS
020114,000549: 17,2677           54357                           TS       LGYRO                                 #   RELEASE GYROS FOR OTHERS USAGE
020115,000550: 17,2700           56047                           XCH      GYROCTR                               
020116,000551: 17,2701           55621                           TS       SAVE       +1                         #  AND STOPS TORQUING BY ZEROING TORQ
020117,000552: 17,2702           47656                           CS       TWO                                   
020118,000553: 17,2703           70370                           MASK     IMODES33                              #  THIS TURNS OFF EXEC SWITCH SO THE GYRO
020119,000554: 17,2704           54370                           TS       IMODES33                              #  TORQ. ENABLE RELAY CAN BE TURNED OFF.
020120,000555: 17,2705           00003                           RELINT                                         
020121,000556: 17,2706           31620        CALCSFE            CA       SAVE                                  #  GYROCTR AT TEST START
020122,000557: 17,2707           00006                           EXTEND                                         
020123,000558: 17,2710           61621                           SU       SAVE       +1                         #  GYROCTR AT TEST END
020124,000559: 17,2711           55622                           TS       SAVE       +2                         
020125,000560: 17,2712           00006                           EXTEND                                         
020126,000561: 17,2713           62732                           BZMF     ARITH                                 #  SEE IF IT IS NEG OR ZERO,IF NEG,SFE IS +
020127,000562: 17,2714           73654                           MASK     SIZCHK                                
020128,000563: 17,2715           00006                           EXTEND                                         #  THIS ROUTINE TESTS SAVE-(SAVE+1) TO SEE
020129,000564: 17,2716           12724                           BZF      NEGSFE                                #  IF THE RESULT IS WITHIN PERMISSIBLE SIZE
020130,000565: 17,2717           41622                           CS       SAVE       +2                         #  AND DETERMINES POLARITY OF SFE USING THE
020131,000566: 17,2720           73654                           MASK     SIZCHK                                #  PRESENCE OR ABSENCE OF BITS 12,13,14.
020132,000567: 17,2721           00006                           EXTEND                                         #  IF BITS ARE PRESENT IN POSITIVE SAVE +2
020133,000568: 17,2722           12726                           BZF      POSSFE                                #  THEN THE SFE MUST BE POS. IF DIFFERENCE
020134,000569: 17,2723           02760                           TC       STOPTEST                              #  IS GREATER THAN 2047 PULSES FROM THE
020135,000570: 17,2724           31622        NEGSFE             CAE      SAVE       +2                         #  IDEAL NO OF PULSES, THE SFE EXCEEDS
020136,000571: 17,2725           02732                           TC       ARITH                                 #  15600 PPM, THE TEST IS NOT VALID AND
020137,000572: 
020138,000573:                                                                                                  #  THEREFORE ABORTS AND TURNS ON PROGRAM ALARM
020139,000574: 17,2726           37637        POSSFE             CAF      POSMAX                                #  POS SFE DEFINITION = IRIG SF IN SEC OF
020140,000575: 17,2727           00006                           EXTEND                                         #  ARC PER PULSE IS GREATER THAN
020141,000576: 17,2730           61622                           SU       SAVE       +2                         #  .61798095703125  SEC OF ARC/ PULSE
020142,000577: 17,2731           02733                           TC       ARITH      +1                         
020143,000578: 
020144,000579: 17,2732           40000        ARITH              COM                                            
020145,000580: 17,2733           22007                           ZL                                             
020146,000581: 17,2734           00006                           EXTEND                                         
020147,000582: 17,2735           11623                           DV       SFCONST1                              
020148,000583: 17,2736           54336        LOADIT             TS       DSPTEM2                               
020149,000584: 

Page 486

020151,000586: 17,2737           02740                           TC       DATADSP                               
020152,000587: 
020153,000588: 17,2740           05304        DATADSP            TC       GRABDSP                               
020154,000589: 17,2741           05312                           TC       PREGBSY                               
020155,000590: 17,2742           31614                           CA       CALCDIR                               
020156,000591: 17,2743           54340                           TS       DSPTEM2    +2                         #  DISPLAYS TEST NO JUST PERFORMED
020157,000592: 17,2744           33657                           CAF      VB06N66                               #   R3 = TEST NO JUST PERFORMED
020158,000593: 17,2745           05332                           TC       NVSBWAIT                              
020159,000594: 17,2746           05274                           TC       FLASHON                               
020160,000595: 17,2747           05140                           TC       ENDIDLE                               #  TO END TEST DO V34E
020161,000596: 17,2750           02752                           TC       +2                                    
020162,000597: 17,2751           02451                           TC       TESTCALL                              #  TO CONTINUE TEST DO V33E
020163,000598: 17,2752           04063                           TC       BANKCALL                              
020164,000599: 17,2753           26000                           CADR     IMUZERO                               
020165,000600: 17,2754           04063                           TC       BANKCALL                              
020166,000601: 17,2755           26716                           CADR     IMUSTALL                              
020167,000602: 17,2756           12243                           TCF      ENDTEST1                              
020168,000603: 17,2757           12243                           TCF      ENDTEST1                              
020169,000604: 
020170,000605: 17,2760           04063        STOPTEST           TC       BANKCALL                              
020171,000606: 17,2761           26000                           CADR     IMUZERO                               
020172,000607: 17,2762           04063                           TC       BANKCALL                              #  CORRECT CDUCTRS AND TURN ON PROG ALARM
020173,000608: 17,2763           26716                           CADR     IMUSTALL                              #  TO TELL OPERATOR LAST CDU PULSE WAS
020174,000609: 17,2764           12243                           TCF      ENDTEST1                              #  MISSED OR GYRO TORQ LOOP WAY OUT OF
020175,000610: 17,2765           37665                           CAF      ZERO                                  #  ALLOWABLE LIMITS.........
020176,000611: 17,2766           54357                           TS       LGYRO                                 #  **** RELEASE GYROS FOR OTHERS USAGE*****
020177,000612: 17,2767           02440                           TC       ALARMS                                
020178,000613: 17,2770           12243                           TCF      ENDTEST1                              
020179,000614: 

Page 487

020181,000616: 17,2771           00006        CHECKG             EXTEND                                         #  PIP PULSE CATCHING ROUTINE
020182,000617: 17,2772           23546                           QXCH     QPLACE                                #  RECORDS TIME AT OCCURRENCE OF A DELTA V
020183,000618: 17,2773           00003        CHECKG1            RELINT                                         #  KEEPS CONTENT OF PIPA REG INTACT
020184,000619: 17,2774           10067                           CCS      NEWJOB                                
020185,000620: 17,2775           04404                           TC       CHANG1                                
020186,000621: 17,2776           00004                           INHINT                                         
020187,000622: 17,2777           37665                           CAF      ZERO                                  
020188,000623: 17,3000           51541                           INDEX    PIPINDEX                              
020189,000624: 17,3001           56037                           XCH      PIPAX                                 
020190,000625: 17,3002           55551                           TS       STOREPL                               
020191,000626: 17,3003           11551                           CCS      STOREPL                               
020192,000627: 17,3004           03010                           TC       CHECKP                                
020193,000628: 17,3005           03063                           TC       RESTOREA                              
020194,000629: 17,3006           03023                           TC       CHECKM                                
020195,000630: 17,3007           03063                           TC       RESTOREA                              
020196,000631: 17,3010           37652        CHECKP             CAF      BIT6                                  #  LOOKS FOR ONE MORE PLUS PULSE
020197,000632: 17,3011           55540                           TS       PIPANO                                
020198,000633: 17,3012           51541                           INDEX    PIPINDEX                              
020199,000634: 17,3013           10037                           CCS      PIPAX                                 
020200,000635: 17,3014           03036                           TC       CHECKG3                               
020201,000636: 17,3015           03020                           TC       +3                                    
020202,000637: 17,3016           03063                           TC       RESTOREA                              
020203,000638: 17,3017           03020                           TC       +1                                    
020204,000639: 17,3020           11540                           CCS      PIPANO                                
020205,000640: 17,3021           03011                           TC       CHECKP     +1                         
020206,000641: 17,3022           03063                           TC       RESTOREA                              
020207,000642: 17,3023           37652        CHECKM             CAF      BIT6                                  #  LOOKS FOR ONE MORE MINUS PULSE
020208,000643: 17,3024           55540                           TS       PIPANO                                
020209,000644: 17,3025           51541                           INDEX    PIPINDEX                              
020210,000645: 17,3026           10037                           CCS      PIPAX                                 
020211,000646: 17,3027           03063                           TC       RESTOREA                              
020212,000647: 17,3030           03033                           TC       +3                                    
020213,000648: 17,3031           03036                           TC       CHECKG3                               
020214,000649: 17,3032           03033                           TC       +1                                    
020215,000650: 17,3033           11540                           CCS      PIPANO                                
020216,000651: 17,3034           03024                           TC       CHECKM     +1                         
020217,000652: 17,3035           03063                           TC       RESTOREA                              
020218,000653: 17,3036           05470        CHECKG3            TC       FINETIME                              #  TIME IN DOUBLE PRECISION LEFT IN MPAC
020219,000654: 
020220,000655: 17,3037           52141                           DXCH     MPAC                                  
020221,000656: 17,3040           37654                           CAF      BIT4                                  
020222,000657: 17,3041           55540        CHECKG5            TS       PIPANO                                
020223,000658: 17,3042           51541                           INDEX    PIPINDEX                              
020224,000659: 17,3043           10037                           CCS      PIPAX                                 
020225,000660: 17,3044           03050                           TC       +4                                    
020226,000661: 17,3045           03063                           TC       RESTOREA                              
020227,000662: 17,3046           03050                           TC       +2                                    
020228,000663: 17,3047           03063                           TC       RESTOREA                              
020229,000664: 17,3050           11540                           CCS      PIPANO                                
020230,000665: 17,3051           03041                           TC       CHECKG5                               
020231,000666: 

Page 488

020233,000668: 17,3052           03055        NREAD              TC       RESTORE                               
020234,000669: 17,3053           55551                           TS       STOREPL                               
020235,000670: 17,3054           01546                           TC       QPLACE                                
020236,000671: 17,3055           57551        RESTORE            XCH      STOREPL                               #  A WILL CONTAIN PREVIOUS PIPA CNTR CONTEN
020237,000672: 17,3056           51541                           INDEX    PIPINDEX                              #  STOREPL WILL CONTAIN ZERO
020238,000673: 17,3057           60037                           AD       PIPAX                                 
020239,000674: 17,3060           51541                           INDEX    PIPINDEX                              
020240,000675: 17,3061           54037                           TS       PIPAX                                 
020241,000676: 17,3062           00002                           TC       Q                                     
020242,000677: 

Page 489

020244,000679: 17,3063           03055        RESTOREA           TC       RESTORE                               
020245,000680: 17,3064           02773                           TC       CHECKG1                               
020246,000681: 17,3065           31551        DATALD             CA       STOREPL                               
020247,000682: 17,3066           51673                           INDEX    RESULTCT                              
020248,000683: 17,3067           55626                           TS       DATAPL                                
020249,000684: 17,3070           30140                           CA       MPAC                                  
020250,000685: 17,3071           51673                           INDEX    RESULTCT                              
020251,000686: 17,3072           55627                           TS       DATAPL     +1                         
020252,000687: 17,3073           30141                           CA       MPAC       +1                         
020253,000688: 17,3074           51673                           INDEX    RESULTCT                              
020254,000689: 17,3075           55630                           TS       DATAPL     +2                         
020255,000690: 17,3076           00002                           TC       Q                                     
020256,000691: 
020257,000692: 
020258,000693: 
020259,000694: 
020260,000695: 
020261,000696: 17,3077           00006        POSGMBL            EXTEND                                         #  COARSE ALIGNING SUBROUTINE
020262,000697: 17,3100           23546                           QXCH     QPLACE                                
020263,000698: 
020264,000699: 17,3101           06000                           TC       INTPRET                               
020265,000700: 17,3102           77634                           CALL                                           
020266,000701: 17,3103           32615                                    CALCGA                                
020267,000702: 17,3104           77776                           EXIT                                           
020268,000703: 
020269,000704: 17,3105           04063                           TC       BANKCALL                              
020270,000705: 17,3106           26055                           CADR     IMUCOARS                              
020271,000706: 17,3107           33123                           CA       GMLOCKCK                              #  IF FAILREG CONTAINS 401 WILL RETURN TO
020272,000707: 17,3110           71363                           MASK     FAILREG                               
020273,000708: 17,3111           10000                           CCS      A                                     #  L +1, OTHERWISE TO L +2.
020274,000709: 17,3112           03115                           TC       LOCK                                  
020275,000710: 17,3113           25546                           INCR     QPLACE                                
020276,000711: 17,3114           03117                           TC       +3                                    
020277,000712: 17,3115           37656        LOCK               CA       TWO                                   
020278,000713: 17,3116           55537                           TS       NDXCTR                                
020279,000714: 17,3117           04063                           TC       BANKCALL                              
020280,000715: 17,3120           26716                           CADR     IMUSTALL                              
020281,000716: 17,3121           12243                           TCF      ENDTEST1                              
020282,000717: 17,3122           01546                           TC       QPLACE                                
020283,000718: 17,3123           00401        GMLOCKCK           OCT      00401                                 
020284,000719: 

Page 490

020286,000721: 17,3124           00006        FALNE              EXTEND                                         #  TORQUES GYROS TO NULL OVT DIFFERENCE
020287,000722: 17,3125           23546                           QXCH     QPLACE                                #  BETWEEN DESIRED SM ORIENTATION WITH RESP
020288,000723: 17,3126           04063                           TC       BANKCALL                              #  TO NBASE AND ACTUAL
020289,000724: 17,3127           26000                           CADR     IMUZERO                               
020290,000725: 17,3130           04063                           TC       BANKCALL                              
020291,000726: 17,3131           26716                           CADR     IMUSTALL                              
020292,000727: 17,3132           12243                           TCF      ENDTEST1                              
020293,000728: 17,3133           04063                           TC       BANKCALL                              
020294,000729: 17,3134           26227                           CADR     IMUFINE                               
020295,000730: 17,3135           04063                           TC       BANKCALL                              
020296,000731: 17,3136           26716                           CADR     IMUSTALL                              
020297,000732: 17,3137           12243                           TCF      ENDTEST1                              
020298,000733: 17,3140           30032        FALNE1             CA       CDUX                                  
020299,000734: 17,3141           50104                           INDEX    FIXLOC                                
020300,000735: 17,3142           54024                           TS       24                                    
020301,000736: 17,3143           30033                           CA       CDUY                                  
020302,000737: 17,3144           50104                           INDEX    FIXLOC                                
020303,000738: 17,3145           54020                           TS       20                                    
020304,000739: 17,3146           30034                           CA       CDUZ                                  
020305,000740: 17,3147           50104                           INDEX    FIXLOC                                
020306,000741: 17,3150           54022                           TS       22                                    
020307,000742: 17,3151           37653                           CA       BIT5                                  
020308,000743: 17,3152           60104                           AD       FIXLOC                                
020309,000744: 17,3153           50104                           INDEX    FIXLOC                                
020310,000745: 17,3154           54050                           TS       S1                                    
020311,000746: 17,3155           06000                           TC       INTPRET                               
020312,000747: 17,3156           64375                           VLOAD    MXV                                   
020313,000748: 17,3157           01401                                    XSM                                   
020314,000749: 17,3160           01445                                    STARAD                                
020315,000750: 17,3161           77772                           VSL1                                           
020316,000751: 17,3162           36041                           STCALL   32D                                   
020317,000752: 17,3163           32517                                    NBSM                                  
020318,000753: 17,3164           23423                           STOVL    XDC                                   
020319,000754: 17,3165           01407                                    YSM                                   
020320,000755: 17,3166           76521                           MXV      VSL1                                  
020321,000756: 17,3167           01445                                    STARAD                                
020322,000757: 17,3170           36041                           STCALL   32D                                   
020323,000758: 17,3171           32517                                    NBSM                                  
020324,000759: 17,3172           23431                           STOVL    YDC                                   
020325,000760: 17,3173           01423                                    XDC                                   
020326,000761: 17,3174           76435                           VXV      VSL1                                  
020327,000762: 17,3175           01431                                    YDC                                   
020328,000763: 17,3176           37437                           STCALL   ZDC                                   
020329,000764: 17,3177           32367                                    CALCGTA                               
020330,000765: 17,3200           77776                           EXIT                                           
020331,000766: 17,3201           33673                           CA       OGCPL                                 
020332,000767: 17,3202           04063                           TC       BANKCALL                              
020333,000768: 17,3203           26317                           CADR     IMUPULSE                              
020334,000769: 17,3204           01546                           TC       QPLACE                                
020335,000770: 

Page 491

020337,000772: 17,3205           00006        WAITLOOP           EXTEND                                         #  LOOPS IN X SEC INCREMENTS FOR NUMBER OF
020338,000773: 17,3206           23545                           QXCH     QPLAC                                 
020339,000774: 17,3207           55676                           TS       COUNTPL                               #  NUMBER PUT INTO LENGTHOT
020340,000775: 17,3210           11676        WAITLP1            CCS      COUNTPL                               
020341,000776: 17,3211           03215                           TC       +4                                    
020342,000777: 17,3212           01545                           TC       QPLAC                                 
020343,000778: 17,3213           03215                           TC       +2                                    
020344,000779: 17,3214           03207                           TC       WAITLP1    -1                         
020345,000780: 17,3215           00004                           INHINT                                         
020346,000781: 17,3216           31527                           CAE      LENGTHOT                              
020347,000782: 17,3217           04536                           TC       WAITLIST                              
020348,000783: 17,3220           03233 36005                     2CADR    WAITLP3                               
020349,000784: 17,3222           00003                           RELINT                                         
020350,000785: 17,3223           11676                           CCS      COUNTPL                               
020351,000786: 17,3224           01545                           TC       QPLAC                                 
020352,000787: 17,3225           01545                           TC       QPLAC                                 
020353,000788: 17,3226           13227                           NOOP                                           
020354,000789: 17,3227           55676        WAITLP2            TS       COUNTPL                               #  ENTER HERE AFTER DOING CALLING JOB
020355,000790: 17,3230           33232                           CAF      WTLPCADR                              
020356,000791: 17,3231           04416                           TC       JOBSLEEP                              
020357,000792: 17,3232           37210        WTLPCADR           CADR     WAITLP1                               
020358,000793: 17,3233           33232        WAITLP3            CAF      WTLPCADR                              
020359,000794: 17,3234           04422                           TC       JOBWAKE                               
020360,000795: 17,3235           04602                           TC       TASKOVER                              
020361,000796: 
020362,000797: 
020363,000798: 
020364,000799: 
020365,000800: 
020366,000801: 17,3236           54001        ZEROING            TS       L                                     
020367,000802: 17,3237           13241                           TCF      +2                                    
020368,000803: 17,3240           55776        ZEROING1           TS       ZERONDX                               
020369,000804: 17,3241           37665                           CAF      ZERO                                  
020370,000805: 17,3242           50001                           INDEX    L                                     
020371,000806: 17,3243           54000                           TS       0                                     
020372,000807: 17,3244           24001                           INCR     L                                     
020373,000808: 17,3245           11776                           CCS      ZERONDX                               
020374,000809: 17,3246           13240                           TCF      ZEROING1                              
020375,000810: 17,3247           00002                           TC       Q                                     
020376,000811: 17,3250           06000        COMPUT             TC       INTPRET                               #  CALCULATE LENGTH OF GRAVITY VECTOR AS
020377,000812: 17,3251           77170                           AXT,1    AXT,2                                 #  MEASURED BY ACCELEROMETERS
020378,000813: 17,3252           00026                                    22D                                   
020379,000814: 17,3253           00012                                    10D                                   
020380,000815: 17,3254           77731                           SSP                                            
020381,000816: 17,3255           00051                                    S1                                    
020382,000817: 17,3256           00004                                    4                                     
020383,000818: 17,3257           77731                           SSP                                            
020384,000819: 17,3260           00052                                    S2                                    
020385,000820: 17,3261           00004                                    4                                     
020386,000821: 

Page 492

020388,000823: 17,3262           44743        LOPDELOP           DLOAD*   DSU*                                  
020389,000824: 17,3263           76120                                    DATAPL     +24D,2                     
020390,000825: 17,3264           01657                                    DATAPL     +24D,1                     
020391,000826: 17,3265           41323                           PDDL*    DMP                                   
020392,000827: 17,3266           76156                                    GENPL      +24D,2                     
020393,000828: 17,3267           37665                                    DEC585                                
020394,000829: 17,3270           77671                           DDV                                            
020395,000830: 17,3271           55504                           TIX,2    VDEF                                  
020396,000831: 17,3272           37277                                    NEXT                                  
020397,000832: 17,3273           45046                           ABVAL    RTB                                   
020398,000833: 17,3274           33406                                    SGNAGREE                              
020399,000834: 17,3275           36337                           STCALL   DSPTEM2                               
020400,000835: 17,3276           37301                                    KODU                                  
020401,000836: 17,3277           60006        NEXT               PUSH     TIX,1                                 
020402,000837: 17,3300           37262                                    LOPDELOP                              
020403,000838: 17,3301           77776        KODU               EXIT                                           
020404,000839: 17,3302           05317                           TC       GRABWAIT                              
020405,000840: 17,3303           03576                           TC       SHOW                                  
020406,000841: 17,3304           06000                           TC       INTPRET                               
020407,000842: 17,3305           41535                           SLOAD    PUSH                                  
020408,000843: 17,3306           01630                                    DATAPL     +1                         
020409,000844: 17,3307           41535                           SLOAD    PUSH                                  
020410,000845: 17,3310           01634                                    DATAPL     +5                         
020411,000846: 17,3311           55535                           SLOAD    VDEF                                  
020412,000847: 17,3312           01640                                    DATAPL     +11                        
020413,000848: 17,3313           76456                           UNIT     VSL1                                  
020414,000849: 17,3314           77606                           PUSH                                           
020415,000850: 17,3315           41535                           SLOAD    PUSH                                  
020416,000851: 17,3316           01644                                    DATAPL     +15                        
020417,000852: 17,3317           41535                           SLOAD    PUSH                                  
020418,000853: 17,3320           01650                                    DATAPL     +21                        
020419,000854: 17,3321           55535                           SLOAD    VDEF                                  
020420,000855: 17,3322           01654                                    DATAPL     +25                        
020421,000856: 17,3323           76456                           UNIT     VSL1                                  
020422,000857: 17,3324           45325                           PDDL     DSU                                   
020423,000858: 17,3325           01655                                    DATAPL     +26                        
020424,000859: 17,3326           01641                                    DATAPL     +12                        
020425,000860: 17,3327           77612                           SL4                                            
020426,000861: 17,3330           77652                           SL3                                            
020427,000862: 17,3331           23530                           STOVL    LENGTHOT                              
020428,000863: 17,3332           51435                           VXV      ABVAL                                 
020429,000864: 17,3333           56205                           DMP      DDV                                   
020430,000865: 17,3334           37670                                    ERUNITS                               
020431,000866: 17,3335           01530                                    LENGTHOT                              
020432,000867: 17,3336           77624                           RTB                                            
020433,000868: 17,3337           33406                                    SGNAGREE                              
020434,000869: 17,3340           00337                           STORE    DSPTEM2                               
020435,000870: 17,3341           77776                           EXIT                                           
020436,000871: 17,3342           03576                           TC       SHOW                                  
020437,000872: 17,3343           12402                           TCF      RADCK                                 
020438,000873: 

Page 493

020440,000875: 17,3344           00006        NBPOSPL            EXTEND                                         #  SETS UP AZIMUTH AND VERTICAL VECTORS FOR
020441,000876: 17,3345           23546                           QXCH     QPLACE                                #  AXISGEN,RESULTS TO BE USED IN CALCGA TO
020442,000877: 17,3346           06000                           TC       INTPRET                               
020443,000878: 17,3347           54160                           AXC,1    XSU,1                                 #  AZIMUTH IN NB COORDS
020444,000879: 17,3350           37704                                    SCNBAZ                                
020445,000880: 17,3351           01536                                    NBPOS                                 
020446,000881: 17,3352           77773                           VLOAD*                                         
020447,000882: 17,3353           00001                                    0,1                                   
020448,000883: 17,3354           01445                           STORE    STARAD                                
020449,000884: 
020450,000885: 17,3355           54160                           AXC,1    XSU,1                                 #  VERITCAL IN NB COORDS
020451,000886: 17,3356           37716                                    SCNBVER                               
020452,000887: 17,3357           01536                                    NBPOS                                 
020453,000888: 17,3360           77773                           VLOAD*                                         
020454,000889: 17,3361           00001                                    0,1                                   
020455,000890: 17,3362           07453                           STODL    STARAD     +6                         
020456,000891: 17,3363           33042                                    ZERODP                                
020457,000892: 17,3364           06007                           STODL    6D                                    
020458,000893: 17,3365           01507                                    AZIMUTH                               
020459,000894: 17,3366           57546                           COS      DCOMP                                 
020460,000895: 17,3367           06011                           STODL    8D                                    
020461,000896: 17,3370           01507                                    AZIMUTH                               
020462,000897: 17,3371           77756                           SIN                                            
020463,000898: 17,3372           00013                           STORE    10D                                   #  VERTICAL IN CER
020464,000899: 17,3373           77775                           VLOAD                                          
020465,000900: 17,3374           37717                                    SCNBVER                               
020466,000901: 17,3375           36015                           STCALL   12D                                   
020467,000902: 17,3376           32677                                    AXISGEN                               
020468,000903: 17,3377           77776                           EXIT                                           
020469,000904: 
020470,000905: 17,3400           33663        SELPOSN            CA       DEC17                                 
020471,000906: 17,3401           55776                           TS       ZERONDX                               
020472,000907: 17,3402           33703                           CA       XSMADR                                
020473,000908: 17,3403           03236                           TC       ZEROING                               
020474,000909: 
020475,000910: 17,3404           51544                           INDEX    POSITON                               
020476,000911: 17,3405           03406                           TC       +1                                    
020477,000912: 17,3406           03524                           TC       OPCHKPOS                              #  OPCHK WILL PUT ZERO IN POSITON
020478,000913: 17,3407           03422                           TC       POSN1                                 
020479,000914: 17,3410           03431                           TC       POSN2                                 
020480,000915: 17,3411           03436                           TC       POSN3                                 
020481,000916: 17,3412           03450                           TC       POSN4                                 
020482,000917: 17,3413           03460                           TC       POSN5                                 
020483,000918: 17,3414           03470                           TC       POSN6                                 
020484,000919: 17,3415           03500                           TC       POSN7                                 
020485,000920: 17,3416           03513                           TC       POSN8                                 
020486,000921: 17,3417           03542                           TC       POSN9                                 
020487,000922: 17,3420           03553                           TC       POSN10                                
020488,000923: 
020489,000924: 17,3421           03564                           TC       POSN11                                #  COMPASS POSITION
020490,000925: 

Page 494

020492,000927:                                                                                                  #  WE WILL DENOTE THE FLASHING DISPLAY OF A HORIZONTAL TEST BY DH
020493,000928:                                                                                                  #  (XXX.XX MERU) AND A VERTICAL TEST BY DV (XXX.XX MERU) EACH POSITION TELL
020494,000929:                                                                                                  #  HOW THE DISPLAYS ARE RELATED TO TTHE DRIFT COEFFICIENTS BEING MEASURED.
020495,000930:                                                                                                  #  NOTE THAT IT IS ILLEGAL TO RUN VERTICAL IN POS 6,4, OR 2 WITHOUT FIRST
020496,000931:                                                                                                  #  RUNNING HORIZONTAL OF POS 5,3, OR1. THIS IS BECAUSE THE HORIZ DRIFT CALC
020497,000932:                                                                                                  #  IN 1,3, OR 5 IS USED AS EAST DRIFFFT FOR VERTICAL TEST. THIS IS DONE BY
020498,000933:                                                                                                  #  THE MACHINE AUTOMATICALLY EXCEPT FOR VERTICAL POSITION 6 WHICH THE
020499,000934:                                                                                                  #  OPERATOR MUST DO. (SEE POSITION 6 BELOW)
020500,000935: 17,3422           37642        POSN1              CA       HALF                                  #  X UP, Y SOUTH, Z EAST
020501,000936: 17,3423           55400                           TS       XSM                                   
020502,000937: 17,3424           55410                           TS       YSM        +2                         #    NBDY = DH
020503,000938: 17,3425           55420                           TS       ZSM        +4                         
020504,000939: 17,3426           37665        NGUBGH             CA       ZERO                                  
020505,000940: 17,3427           55541                           TS       PIPINDEX                              
020506,000941: 17,3430           01546                           TC       QPLACE                                
020507,000942: 
020508,000943: 
020509,000944: 
020510,000945: 17,3431           47642        POSN2              CS       HALF                                  #  X DOWN, Y WEST, Z NORTH
020511,000946: 17,3432           55400                           TS       XSM                                   
020512,000947: 17,3433           55412                           TS       YSM        +4                         #   NBDZ =DH ,NBDX -ADIAX= -DV
020513,000948: 17,3434           55416                           TS       ZSM        +2                         
020514,000949: 17,3435           03426                           TC       NGUBGH                                
020515,000950: 
020516,000951: 
020517,000952: 
020518,000953: 17,3436           37642        POSN3              CA       HALF                                  #  Z UP, Y WEST ,X NORTH
020519,000954: 17,3437           55414                           TS       ZSM                                   
020520,000955: 17,3440           40000                           COM                                            #  NBDX = -DH
020521,000956: 17,3441           55402                           TS       XSM        +2                         
020522,000957: 17,3442           55412                           TS       YSM        +4                         
020523,000958: 17,3443           37656        NSFLAGD            CA       TWO                                   
020524,000959: 17,3444           55541                           TS       PIPINDEX                              
020525,000960: 17,3445           37665        NSBUGD             CA       ZERO                                  
020526,000961: 17,3446           55576                           TS       DRIFTT                                
020527,000962: 17,3447           01546                           TC       QPLACE                                
020528,000963: 
020529,000964: 
020530,000965: 
020531,000966: 17,3450           47642        POSN4              CS       HALF                                  #  Y SOUTH, X EAST, Z DOWN
020532,000967: 17,3451           55414                           TS       ZSM                                   #   NBDY +ADSRAY=DH
020533,000968: 17,3452           40000                           COM                                            #   NBDZ +ADIAZ =DV
020534,000969: 17,3453           55410                           TS       YSM        +2                         
020535,000970: 17,3454           55404                           TS       XSM        +4                         
020536,000971: 17,3455           37656                           CA       TWO                                   
020537,000972: 17,3456           55541                           TS       PIPINDEX                              
020538,000973: 17,3457           01546                           TC       QPLACE                                
020539,000974: 

Page 495

020541,000976: 17,3460           37642        POSN5              CA       HALF                                  #  Y UP, Z NORTH, X WEST
020542,000977: 17,3461           55406                           TS       YSM                                   
020543,000978: 17,3462           40000                           COM                                            #   NBDZ-ADSRAZ =DH
020544,000979: 17,3463           55404                           TS       XSM        +4                         
020545,000980: 17,3464           55416                           TS       ZSM        +2                         
020546,000981: 17,3465           37657                           CA       ONE                                   
020547,000982: 17,3466           55541                           TS       PIPINDEX                              
020548,000983: 17,3467           03445                           TC       NSBUGD                                
020549,000984: 
020550,000985: 
020551,000986: 
020552,000987:                                                                                                  #  TO RUN POSITION 6 VERTICAL AFTER PIP TEST POS 6 IS DISPLAYED THE OPERATR
020553,000988:                                                                                                  #  MUST CALCULATE FROM 2.5 -NBDZ-ADSRAZ  (XXX.XX)MERU.    WHEN PI
020554,000989:                                                                                                  #  IP DATA FLASHES DO VERB 33 ENTER. THIS STARTS VERTICAL TEST. THEN THE
020555,000990:                                                                                                  #  DATA XXX.XX MERU AS CALCULATED MUST BE ENTERED INTO DRIFTT. IE VERB 21
020556,000991:                                                                                                  #  ENTER NOUN 01 ENTER LOCATION OF DRIFTT ENTER + (OR -) XXXXX ENTER
020557,000992: 17,3470           37642        POSN6              CA       HALF                                  #  Y DOWN, Z EAST, X SOUTH
020558,000993: 17,3471           55402                           TS       XSM        +2                         
020559,000994: 17,3472           55420                           TS       ZSM        +4                         
020560,000995: 17,3473           40000                           COM                                            #   NBDX +ADSRAX = DH, NBDY -ADIAY = -DV
020561,000996: 17,3474           55406                           TS       YSM                                   
020562,000997: 17,3475           37657                           CA       ONE                                   
020563,000998: 17,3476           55541                           TS       PIPINDEX                              
020564,000999: 17,3477           01546                           TC       QPLACE                                
020565,001000: 
020566,001001: 
020567,001002: 
020568,001003: 17,3500           47642        POSN7              CS       HALF                                  #  Z UP-EAST,Y UP-WEST,X NORTH.THIS POSITON
020569,001004: 17,3501           55402                           TS       XSM        +2                         
020570,001005: 17,3502           33677                           CA       ROOT1/2                               
020571,001006: 17,3503           55406                           TS       YSM                                   #   NBDX - .707 ADSRAX = -DH
020572,001007: 17,3504           55414                           TS       ZSM                                   
020573,001008: 17,3505           55420                           TS       ZSM        +4                         
020574,001009: 17,3506           40000                           COM                                            
020575,001010: 17,3507           55412                           TS       YSM        +4                         
020576,001011: 17,3510           37665        GEORGES            CA       ZERO                                  
020577,001012: 17,3511           55363                           TS       FAILREG                               
020578,001013: 17,3512           03445                           TC       NSBUGD                                
020579,001014: 
020580,001015: 
020581,001016: 
020582,001017: 17,3513           37642        POSN8              CA       HALF                                  #  Z UP-SOUTH,Y UP-NORTH,X EAST.THIS POSITN
020583,001018: 17,3514           55404                           TS       XSM        +4                         
020584,001019: 17,3515           33677                           CA       ROOT1/2                               #   .707(-NBDZ-NBDY) +.5(ADIAZ-ADIAY)
020585,001020: 17,3516           55406                           TS       YSM                                   #  +.5(ADSRAY +ADSRAZ)=DH
020586,001021: 17,3517           55416                           TS       ZSM        +2                         
020587,001022: 17,3520           55414                           TS       ZSM                                   
020588,001023: 17,3521           40000                           COM                                            
020589,001024: 17,3522           55410                           TS       YSM        +2                         
020590,001025: 17,3523           03445                           TC       NSBUGD                                
020591,001026: 

Page 496

020593,001028: 17,3524           33700        OPCHKPOS           CA       ROOT1SQ                               #  OG=+45DEG,IG=-45DEG,MG=+45DEG.
020594,001029: 17,3525           55400                           TS       XSM                                   
020595,001030: 17,3526           55410                           TS       YSM        +2                         
020596,001031: 17,3527           55412                           TS       YSM        +4                         
020597,001032: 17,3530           55414                           TS       ZSM                                   
020598,001033: 17,3531           33677                           CA       ROOT1/2                               
020599,001034: 17,3532           55406                           TS       YSM                                   
020600,001035: 17,3533           33702                           CA       ROOT3SQ                               
020601,001036: 17,3534           55402                           TS       XSM        +2                         
020602,001037: 17,3535           55420                           TS       ZSM        +4                         
020603,001038: 17,3536           43701                           CS       ROOT2SQ                               
020604,001039: 17,3537           55404                           TS       XSM        +4                         
020605,001040: 17,3540           55416                           TS       ZSM        +2                         
020606,001041: 17,3541           01546                           TC       QPLACE                                
020607,001042: 
020608,001043: 17,3542           37642        POSN9              CA       HALF                                  #  X UP EAST,Y UP WEST,Z SOUTH.THIS POSITON
020609,001044: 17,3543           55416                           TS       ZSM        +2                         
020610,001045: 17,3544           33677                           CA       ROOT1/2                               #   -NBDZ +.707 SRAZ =DH
020611,001046: 17,3545           55400                           TS       XSM                                   
020612,001047: 17,3546           55404                           TS       XSM        +4                         
020613,001048: 17,3547           55406                           TS       YSM                                   
020614,001049: 17,3550           40000                           COM                                            
020615,001050: 17,3551           55412                           TS       YSM        +4                         
020616,001051: 17,3552           03445                           TC       NSBUGD                                
020617,001052: 
020618,001053: 
020619,001054: 
020620,001055: 17,3553           37642        POSN10             CA       HALF                                  #  X UP NORTH, Y UP SOUTH,Z EAST.THIS POSITN
020621,001056: 17,3554           55420                           TS       ZSM        +4                         
020622,001057: 17,3555           33677                           CA       ROOT1/2                               #    .707(NBDY -NBDX) +.5(ADIAY -ADIAX)
020623,001058: 17,3556           55400                           TS       XSM                                   #   +.5(ADSRAX) = DH
020624,001059: 17,3557           55406                           TS       YSM                                   
020625,001060: 17,3560           55410                           TS       YSM        +2                         
020626,001061: 17,3561           40000                           COM                                            
020627,001062: 17,3562           55402                           TS       XSM        +2                         
020628,001063: 17,3563           03445                           TC       NSBUGD                                
020629,001064: 
020630,001065: 
020631,001066: 
020632,001067: 17,3564           04063        POSN11             TC       BANKCALL                              #  COMPASS POSITION
020633,001068: 17,3565           43107                           CADR     LOADXSM                               
020634,001069: 17,3566           01546                           TC       QPLACE                                
020635,001070: 
020636,001071: 
020637,001072: 
020638,001073: 17,3567           30336        SHOWLD             CA       DSPTEM2                               
020639,001074: 17,3570           55527                           TS       LENGTHOT                              
020640,001075: 17,3571           30337                           CA       DSPTEM2    +1                         
020641,001076: 17,3572           55536                           TS       NBPOS                                 
020642,001077: 17,3573           30340                           CA       DSPTEM2    +2                         
020643,001078: 

Page 497

020645,001080: 17,3574           55544                           TS       POSITON                               
020646,001081: 17,3575           00002                           TC       Q                                     
020647,001082: 
020648,001083: 17,3576           00006        SHOW               EXTEND                                         
020649,001084: 17,3577           23546                           QXCH     QPLACE                                
020650,001085: 17,3600           31544        SHOW1              CA       POSITON                               
020651,001086: 17,3601           54340                           TS       DSPTEM2    +2                         
020652,001087: 17,3602           33657                           CA       VB06N66                               
020653,001088: 17,3603           05332                           TC       NVSBWAIT                              
020654,001089: 17,3604           05274                           TC       FLASHON                               
020655,001090: 17,3605           05140                           TC       ENDIDLE                               
020656,001091: 17,3606           02234                           TC       FINISH                                
020657,001092: 17,3607           01546                           TC       QPLACE                                
020658,001093: 17,3610           03567                           TC       SHOWLD                                
020659,001094: 17,3611           13600                           TCF      SHOW1                                 
020660,001095: 
020661,001096: 
020662,001097: 
020663,001098: 17,3612           00006        LOADGTSM           EXTEND                                         #  THIS LOADS XSM INTO GEOMATRX
020664,001099: 17,3613           23546                           QXCH     QPLACE                                
020665,001100: 17,3614           06000                           TC       INTPRET                               
020666,001101: 17,3615           77775                           VLOAD                                          
020667,001102: 17,3616           01401                                    XSM                                   
020668,001103: 17,3617           23750                           STOVL    GEOMTRX                               
020669,001104: 17,3620           01407                                    YSM                                   
020670,001105: 17,3621           23756                           STOVL    GEOMTRX    +6                         
020671,001106: 17,3622           01415                                    ZSM                                   
020672,001107: 17,3623           01764                           STORE    GEOMTRX    +12D                       
020673,001108: 17,3624           77776                           EXIT                                           
020674,001109: 17,3625           01546                           TC       QPLACE                                
020675,001110: 

Page 498

020677,001112: 17,3626           00144        1SECX              DEC      100        B-14                       
020678,001113: 17,3627           17127 16705  GEORGED            2DEC     .47408845                             
020679,001114: 17,3631           07314 36223                     2DEC     .23125894                             
020680,001115: 17,3633           04521 31140                     2DEC     .14561689                             
020681,001116: 17,3635           75755 73521  GEORGEC            2DEC     -.06360691                            
020682,001117: 17,3637           72476 54176                     2DEC     -.16806746                            
020683,001118: 17,3641           04771 03365                     2DEC     .15582939                             
020684,001119: 17,3643           75644 70661  GEORGEB            2DEC     -.06806784                            
020685,001120: 17,3645           47762 75077                     2DEC     -.75079894                            
020686,001121: 17,3647           70023 73740                     2DEC     -.24878704                            
020687,001122: 17,3651                        14C                EQUALS   0014                                  
020688,001123: 17,3651           02130        V21N30E            OCT      02130                                 
020689,001124: 17,3652           04000        DESANGLE           DEC      2048       B-14                       
020690,001125: 17,3653           04143        SFCONST            DEC      .13107                                
020691,001126: 17,3654           34000        SIZCHK             OCT      34000                                 
020692,001127: 17,3655           00264        180DEC             DEC      180        B-14                       
020693,001128: 17,3656           07626        3990DEC            DEC      3990       B-14                       
020694,001129: 17,3657           00666        VB06N66            OCT      00666                                 
020695,001130: 17,3660           01130        TESTTIME           DEC      600        B-14                       
020696,001131: 17,3661           01620        V16N20S            OCT      01620                                 
020697,001132: 17,3662           01640        V16N40S            OCT      01640                                 
020698,001133: 17,3663           00021        DEC17              DEC      17         B-14                       
020699,001134: 17,3664           06200 00000  DEC585             2DEC     3200       B+14                       
020700,001135: 17,3666           00400        DELYOFF            OCT      00400                                 
020701,001136: 17,3667           00024 35474  ERUNITS            2DEC     342844     B-28                       
020702,001137: 17,3671           01506        GENPLAD            GENADR   AZIMUTH                               
020703,001138: 17,3672           02521        GYRODPL            ECADR    GYROD                                 
020704,001139: 17,3673           02500        OGCPL              ECADR    OGC                                   
020705,001140: 17,3674           77760        LOWFOUR            OCT      77760                                 
020706,001141: 17,3675           00070        DEC56              DEC      56         B-14                       
020707,001142: 17,3676           10000        45DEG              OCT      10000                                 
020708,001143: 17,3677           13241        ROOT1/2            DEC      .353553                               
020709,001144: 17,3700           10000        ROOT1SQ            DEC      .250000                               
020710,001145: 17,3701           15520        ROOT2SQ            DEC      .426776                               
020711,001146: 17,3702           02260        ROOT3SQ            DEC      .073223                               
020712,001147: 17,3703           01400        XSMADR             GENADR   XSM                                   
020713,001148: 

Page 499

020715,001150: 17,3704           00000 00000  SCNBAZ             2DEC     0          B-28                       
020716,001151: 17,3706           00000 00000                     2DEC     0          B-28                       
020717,001152: 17,3710           20000 00000  LABNBAZ            2DEC     .5                                    
020718,001153: 17,3712           00000 00000                     2DEC     0          B-28                       
020719,001154: 17,3714           00000 00000                     2DEC     0          B-28                       
020720,001155: 17,3716           20000 00000  SCNBVER            2DEC     .5                                    
020721,001156: 17,3720           00000 00000                     2DEC     0          B-28                       
020722,001157: 17,3722           00000 00000  LABNBVER           2DEC     0          B-28                       
020723,001158: 17,3724           00000 00000                     2DEC     0          B-28                       
020724,001159: 17,3726           57777 77777                     2DEC     -.5                                   
020725,001160: 17,3730                        ENDIMUS2           =                                              

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