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.

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

Page 475

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

Page 476

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

Page 477

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

Page 478

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

Page 479

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

Page 480

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

Page 481

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

Page 482

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

Page 483

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

Page 484

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

Page 485

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

Page 486

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

Page 487

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

Page 488

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

Page 489

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

Page 490

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

Page 491

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

Page 492

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

Page 493

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

Page 494

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

Page 495

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

Page 496

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

Page 497

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

Page 498

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

Page 499

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

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