Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

016749,000002:                                                                                                  ## Copyright:   Public domain.
016750,000003:                                                                                                  ## Filename:    IMU_PERFORMANCE_TESTS_2.agc
016751,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
016752,000005:                                                                                                  ##              It is part of an early development version of the software
016753,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
016754,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
016755,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
016756,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
016757,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
016758,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
016759,000012:                                                                                                  ##              that the code format has been changed to conform to the
016760,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
016761,000014:                                                                                                  ##              original YUL assembler.
016762,000015:                                                                                                  ## Reference:   pp. 391-415
016763,000016:                                                                                                  ## Assembler:   yaYUL
016764,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
016765,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
016766,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
016767,000020:                                                                                                  ##              2017-06-08 RSB  Transcribed.
016768,000021:                                                                                                  ##              2017-06-22 RSB  Proofed comment text with
016769,000022:                                                                                                  ##                              octopus/ProoferComments.
016770,000023: 

Page 391

016772,000025: 24,2000                                           BANK     24                                    
016773,000026: 24,2000  E5,1400                                  EBANK=   XSM                                   
016774,000027: 
016775,000028: 
016776,000029: 24,2000           37761        IMUTEST            CA       ZERO                                  #  DRIFT AND SCALE FACTOR TEST
016777,000030: 24,2001           55576                           TS       DRIFTT                                
016778,000031: 24,2002           55742                           TS       GEOCOMPS                              
016779,000032: 24,2003           33707                           CAF      1SECX                                 
016780,000033: 24,2004           55744                           TS       1SECXT                                
016781,000034: 
016782,000035: 24,2005           06103        GEOIMUTT           TC       INTPRET                               #  COMPASS COMES IN HERE   
016783,000036: 24,2006           77624                           CALL                                           
016784,000037: 24,2007           30532                                    LATAZCHK                              
016785,000038: 24,2010           77776                           EXIT                                           
016786,000039: 24,2011           37755                           CA       ONE                                   
016787,000040: 24,2012           55544                           TS       POSITON                               
016788,000041: 
016789,000042: 24,2013           54344                           TS       DSPTEM2    +2                         
016790,000043: 
016791,000044: 24,2014           54400                           TS       THETAD                                
016792,000045: 24,2015           54401                           TS       THETAD     +1                         
016793,000046: 24,2016           54402                           TS       THETAD     +2                         
016794,000047: 24,2017           05224                           TC       BANKCALL                              
016795,000048: 24,2020           26000                           CADR     IMUZERO                               
016796,000049: 24,2021           05224                           TC       BANKCALL                              
016797,000050: 24,2022           26762                           CADR     IMUSTALL                              
016798,000051: 24,2023           12245                           TCF      ENDTEST1                              
016799,000052: 24,2024           37761        IMUBACK            CA       ZERO                                  
016800,000053: 24,2025           54343                           TS       DSPTEM2    +1                         
016801,000054: 24,2026           55537                           TS       NDXCTR                                
016802,000055: 24,2027           55574                           TS       TORQNDX                               
016803,000056: 24,2030           55575                           TS       TORQNDX    +1                         
016804,000057: 24,2031           33637                           CAF      TESTTIME                              
016805,000058: 24,2032           54342                           TS       DSPTEM2                               
016806,000059: 24,2033           05224                           TC       BANKCALL                              #  ISS RETURNS IN COARSE ALIGN MODE TO
016807,000060: 24,2034           26065                           CADR     IMUCOARS                              #  ENABLE OPERATOR TO DECIDE WHAT TO DO
016808,000061:                                                                                                  #  ABOUT GIMBAL LOCK                             
016809,000062: 24,2035           03571                           TC       SHOWLD                                
016810,000063: 24,2036           03600                           TC       SHOW                                  
016811,000064: 
016812,000065: 
016813,000066: 24,2037           05224                           TC       BANKCALL                              
016814,000067: 24,2040           26762                           CADR     IMUSTALL                              
016815,000068: 24,2041           02245                           TC       ENDTEST1                              
016816,000069: 24,2042           03346                           TC       NBPOSPL                               
016817,000070: 24,2043           03101                           TC       POSGMBL                               
016818,000071: 24,2044           02110                           TC       PIPACHK                               #  IF MGA IS 60DEG+ PROG WILL STAY IN COARS
016819,000072:                                                                                                  #  ALIGN AND MEASURE VERITCAL PIPA RATE
016820,000073: 24,2045           03126                           TC       FALNE                                 

Page 392

016822,000075: 24,2046           05224                           TC       BANKCALL                              
016823,000076: 24,2047           26762                           CADR     IMUSTALL                              
016824,000077: 
016825,000078: 24,2050           12245                           TCF      ENDTEST1                              
016826,000079: 24,2051           11742                           CCS      GEOCOMPS                              
016827,000080: 24,2052           02073                           TC       JUMPLOAD                              
016828,000081: 24,2053           06103        GUESS              TC       INTPRET                               #  CALCULATE -COS LATITUDE AND SIN LATITUDE
016829,000082: 24,2054           71545                           DLOAD    COS                                   #  FOR ESTIMATE
016830,000083: 24,2055           02511                                    LATITUDE                              
016831,000084: 24,2056           72476                           DCOMP    SL1                                   
016832,000085: 24,2057           16573                           STODL    WANGI                                 
016833,000086: 24,2060           02511                                    LATITUDE                              
016834,000087: 24,2061           72556                           SIN      SL1                                   
016835,000088: 24,2062           26571                           STOVL    WANGO                                 #   LOAD TRANSITION MATRIX INTO ERASABLE
016836,000089: 24,2063           11711                                    GEORGED                               
016837,000090: 24,2064           26721                           STOVL    TRANSM1                               
016838,000091: 24,2065           11717                                    GEORGEC                               
016839,000092: 24,2066           26727                           STOVL    TRANSM1    +6                         
016840,000093: 24,2067           11725                                    GEORGEB                               
016841,000094: 24,2070           02735                           STORE    TRANSM1    +12D                       
016842,000095: 24,2071           77776                           EXIT                                           
016843,000096: 24,2072           02074                           TC       +2                                    
016844,000097: 24,2073           04713        JUMPLOAD           TC       FREEDSP                               #   FREE DISPLAY IF IN GYROCOMPASS
016845,000098: 24,2074           03614                           TC       LOADGTSM                              
016846,000099: 24,2075           05224                           TC       BANKCALL                              
016847,000100: 24,2076           72014                           CADR     ESTIMS                                
016848,000101: 
016849,000102: 24,2077           04147        TORQUE             TC       PHASCHNG                              #   FILTER RETURNS AFTER TORQUE AND ER SET
016850,000103: 24,2100           00005                           OCT      00005                                 
016851,000104: 24,2101           37761                           CA       ZERO                                  
016852,000105: 24,2102           54342                           TS       DSPTEM2                               
016853,000106: 24,2103           31640                           CA       DRIFTI                                
016854,000107: 24,2104           54343                           TS       DSPTEM2    +1                         
016855,000108: 24,2105           51544                           INDEX    POSITON                               
016856,000109: 24,2106           55551                           TS       SOUTHDR    -1                         
016857,000110: 24,2107           03600                           TC       SHOW                                  
016858,000111: 
016859,000112: 24,2110           51537        PIPACHK            INDEX    NDXCTR                                #  TORQUE PLATFORM TO CORRECT  LEVELING ERR
016860,000113: 24,2111           02112                           TC       +1                                    #  IN PREPARATION TO MEASURING VERTICAL
016861,000114: 24,2112           05224                           TC       BANKCALL                              #  PIPA OUTPUT PULSE RATE
016862,000115: 24,2113           30424                           CADR     EARTHR                                
016863,000116: 
016864,000117: 24,2114           33642                           CA       DEC17                                 #   ALLOW PIP COUNTER TO OVERFLOW 17 TIMES
016865,000118: 24,2115           55632                           TS       DATAPL     +4                         
016866,000119: 24,2116           37744                           CA       BIT10                                 #  IN THE ALLOTED TIME INTERVAL
016867,000120: 24,2117           55527                           TS       LENGTHOT                              
016868,000121: 24,2120           37755                           CA       ONE                                   
016869,000122: 24,2121           55673                           TS       RESULTCT                              
016870,000123: 24,2122           37761                           CA       ZERO                                  #  ZERO PIPA COUNTER INITIALLY
016871,000124: 24,2123           51541                           INDEX    PIPINDEX                              
016872,000125: 
016873,000126: 24,2124           54037                           TS       PIPAX                                 
016874,000127: 24,2125           55626                           TS       DATAPL                                

Page 393

016876,000129: 24,2126           33654                           CA       DEC56                                 #   LOOP 56 TIMES 5.12 SEC "ACH. EACH INCR.
016877,000130: 24,2127           03207                           TC       WAITLOOP                              #  WILL ALSO CORRECT EARTH RATE
016878,000131: 24,2130           00004                           INHINT                                         
016879,000132: 24,2131           02773                           TC       CHECKG                                
016880,000133: 24,2132           00003                           RELINT                                         
016881,000134: 24,2133           03067                           TC       DATALD                                
016882,000135: 24,2134           37760                           CA       FIVE                                  
016883,000136: 24,2135           55673                           TS       RESULTCT                              
016884,000137: 
016885,000138: 24,2136           51537                           INDEX    NDXCTR                                
016886,000139: 24,2137           02140                           TC       +1                                    
016887,000140: 24,2140           05224                           TC       BANKCALL                              
016888,000141: 24,2141           30424                           CADR     EARTHR                                
016889,000142: 24,2142           11676                           CCS      COUNTPL                               
016890,000143: 24,2143           03231                           TC       WAITLP2                               
016891,000144: 24,2144           11627                           CCS      DATAPL     +1                         
016892,000145: 24,2145           02151                           TC       +4                                    
016893,000146: 24,2146           04725                           TC       CCSHOLE                               
016894,000147: 24,2147           41632                           CS       DATAPL     +4                         
016895,000148: 24,2150           55632                           TS       DATAPL     +4                         
016896,000149: 24,2151           00006                           EXTEND                                         
016897,000150: 24,2152           41627                           DCS      DATAPL                                
016898,000151: 24,2153           21633                           DAS      DATAPL     +4                         
016899,000152: 
016900,000153: 24,2154           06103                           TC       INTPRET                               
016901,000154: 24,2155           45345                           DLOAD    DSU                                   
016902,000155: 24,2156           02635                                    DATAPL     +6                         
016903,000156: 24,2157           02631                                    DATAPL     +2                         
016904,000157: 24,2160           56325                           PDDL     DDV                                   
016905,000158: 24,2161           02633                                    DATAPL     +4                         
016906,000159: 24,2162           41325                           PDDL     DMP                                   
016907,000160: 24,2163           11644                                    DEC585                                #  DEC585 HAS BEEN REDEFINED FOR LEM
016908,000161: 
016909,000162: 24,2164           77634                           RTB                                            
016910,000163: 24,2165           33565                                    SGNAGREE                              
016911,000164: 24,2166           00343                           STORE    DSPTEM2                               
016912,000165: 24,2167           77776                           EXIT                                           
016913,000166: 24,2170           03600                           TC       SHOW                                  
016914,000167: 24,2171           33635        VERTDRFT           CA       3990DEC                               #  3900 SECONDS FOR VERTICAL DRIFT
016915,000168: 24,2172           55527                           TS       LENGTHOT                              
016916,000169: 24,2173           05224                           TC       BANKCALL                              #  THIS WILL CORRECT FOR EARTH RATE DURING
016917,000170: 24,2174           30424                           CADR     EARTHR                                #  TIME SPENT IN SHOW ABOVE*
016918,000171: 24,2175           30032                           CA       CDUX                                  #  STOORE AXIS  FOR LAB CALC OF DRIFT
016919,000172: 24,2176           55530                           TS       LOSVEC                                
016920,000173: 24,2177           51544                           INDEX    POSITON                               
016921,000174: 24,2200           41550                           CS       SOUTHDR    -2                         
016922,000175: 24,2201           55576                           TS       DRIFTT                                
016923,000176: 24,2202           03614                           TC       LOADGTSM                              
016924,000177: 24,2203           37761                           CA       ZERO                                  #  ALLOW ONLY SOUTH GYRO EARTH RATE COMPENS
016925,000178: 24,2204           55400                           TS       XSM                                   
016926,000179: 24,2205           55401                           TS       XSM        +1                         
016927,000180: 24,2206           55404                           TS       XSM        +4                         

Page 394

016929,000182: 24,2207           55405                           TS       XSM        +5                         
016930,000183: 24,2210           55406                           TS       YSM                                   
016931,000184: 24,2211           55407                           TS       YSM        +1                         
016932,000185: 24,2212           55412                           TS       YSM        +4                         
016933,000186: 24,2213           55413                           TS       YSM        +5                         
016934,000187: 24,2214           55414                           TS       ZSM                                   
016935,000188: 24,2215           55415                           TS       ZSM        +1                         
016936,000189: 24,2216           55420                           TS       ZSM        +4                         
016937,000190: 24,2217           55421                           TS       ZSM        +5                         
016938,000191: 24,2220           37735        GUESS1             CAF      POSMAX                                
016939,000192: 24,2221           55574                           TS       TORQNDX                               
016940,000193: 24,2222           55575                           TS       TORQNDX    +1                         
016941,000194: 24,2223           05224                           TC       BANKCALL                              
016942,000195: 24,2224           72014                           CADR     ESTIMS                                
016943,000196: 
016944,000197: 24,2225           04147        VALMIS             TC       PHASCHNG                              
016945,000198: 24,2226           00005                           OCT      00005                                 
016946,000199: 24,2227           31636                           CA       DRIFTO                                
016947,000200: 24,2230           54343                           TS       DSPTEM2    +1                         
016948,000201: 24,2231           30032                           CA       CDUX                                  #  STORE OG ANGLE FOR LAB CALC OF DRIFT**
016949,000202: 24,2232           55531                           TS       LOSVEC     +1                         
016950,000203: 24,2233           37761                           CA       ZERO                                  
016951,000204: 24,2234           54342                           TS       DSPTEM2                               
016952,000205: 24,2235           03600                           TC       SHOW                                  
016953,000206: 
016954,000207: 
016955,000208: 
016956,000209: 24,2236           37755        FINISH             CA       ONE                                   
016957,000210: 24,2237           61544                           AD       POSITON                               
016958,000211: 24,2240           54344                           TS       DSPTEM2    +2                         
016959,000212: 24,2241           37754                           CA       TWO                                   
016960,000213: 24,2242           55546                           TS       QPLACE                                
016961,000214: 24,2243           05224                           TC       BANKCALL                              
016962,000215: 24,2244           22343                           CADR     TSELECT    -6                         
016963,000216: 24,2245           05224        ENDTEST1           TC       BANKCALL                              
016964,000217: 24,2246           30747                           CADR     ENDTEST                               
016965,000218: 

Page 395

016967,000220: 24,2247           33645        OPCHK              CAF      DELYOFF                               #  AUTOMATIC TEST FOR SYSTEM OPERATION
016968,000221: 24,2250           00006                           EXTEND                                         
016969,000222: 24,2251           02030                           RAND     30                                    #  CHECK TO SEE IF IMU IS ON
016970,000223: 24,2252           10000                           CCS      A                                     
016971,000224: 24,2253           02442                           TC       ALARMS                                
016972,000225: 24,2254           33640                           CAF      V16N20S                               
016973,000226: 24,2255           04646                           TC       NVSBWAIT                              
016974,000227: 
016975,000228: 24,2256           04713                           TC       FREEDSP                               
016976,000229: 24,2257           05224                           TC       BANKCALL                              
016977,000230: 24,2260           26000                           CADR     IMUZERO                               
016978,000231: 24,2261           05224                           TC       BANKCALL                              
016979,000232: 24,2262           26762                           CADR     IMUSTALL                              
016980,000233: 
016981,000234: 24,2263           12245                           TCF      ENDTEST1                              
016982,000235: 24,2264           37746                           CA       BIT8                                  #  ZERO ALL ERASEABLE USED IN TEST
016983,000236: 24,2265           55777                           TS       ZERONDX                               
016984,000237: 24,2266           33650                           CA       GENPLAD                               
016985,000238: 24,2267           03240                           TC       ZEROING                               
016986,000239: 
016987,000240: 24,2270           03346                           TC       NBPOSPL                               #  ALIGN ANGLE COMPUTATION
016988,000241: 
016989,000242: 24,2271           03101                           TC       POSGMBL                               #  COARSE ALIGN THOSE GIMBALS NOW
016990,000243: 
016991,000244: 24,2272           12247                           TCF      OPCHK                                 
016992,000245: 24,2273           03126                           TC       FALNE                                 #  FINE ALIGN PLATFORM BY TORQUING GYROS
016993,000246: 
016994,000247: 24,2274           05224                           TC       BANKCALL                              
016995,000248: 24,2275           26762                           CADR     IMUSTALL                              
016996,000249: 24,2276           12245                           TCF      ENDTEST1                              
016997,000250: 24,2277           37754                           CA       TWO                                   
016998,000251: 24,2300           55672        CDUCHECK           TS       CDUNDX                                #  THIS LOOP CHECKS FOR NO ERROR BETWEEN
016999,000252: 24,2301           51672                           INDEX    CDUNDX                                #  DESIRED CDU ANGLES AND THE ACTUAL ANGLES
017000,000253: 24,2302           40400                           CS       THETAD                                
017001,000254: 24,2303           51672                           INDEX    CDUNDX                                
017002,000255: 24,2304           60032                           AD       CDUX                                  
017003,000256: 24,2305           55551                           TS       STOREPL                               
017004,000257: 24,2306           11551                           CCS      STOREPL                               
017005,000258: 24,2307           02315                           TC       ERRMASK                               
017006,000259: 24,2310           02312                           TC       NOERR                                 
017007,000260: 24,2311           02315                           TC       ERRMASK                               
017008,000261: 24,2312           11672        NOERR              CCS      CDUNDX                                
017009,000262: 24,2313           02300                           TC       CDUCHECK                              
017010,000263: 
017011,000264: 24,2314           02321                           TC       LOADIC                                
017012,000265: 24,2315           73653        ERRMASK            MASK     LOWFOUR                               #  ALLOW FIVE BIT ERRORS
017013,000266: 24,2316           10000                           CCS      A                                     
017014,000267: 24,2317           02442                           TC       ALARMS                                
017015,000268: 24,2320           02312                           TC       NOERR                                 
017016,000269: 24,2321           37755        LOADIC             CA       ONE                                   
017017,000270: 24,2322           55673                           TS       RESULTCT                              
017018,000271: 24,2323           47755                           CS       ONE                                   
017019,000272: 

Page 396

017021,000274: 24,2324           55670                           TS       MASKREG                               #  SETS UP AZIMUTH AND VERTICAL VECTORS FOR
017022,000275: 
017023,000276: 24,2325           37761                           CA       ZERO                                  
017024,000277: 24,2326           54037                           TS       PIPAX                                 
017025,000278: 24,2327           54040                           TS       PIPAY                                 
017026,000279: 24,2330           54041                           TS       PIPAZ                                 
017027,000280: 
017028,000281: 24,2331           37743                           CA       BIT11                                 
017029,000282: 24,2332           55527                           TS       LENGTHOT                              #  VECTOR IN PIPA COUNTERS
017030,000283: 24,2333           37755                           CA       ONE                                   
017031,000284: 24,2334           03207                           TC       WAITLOOP                              
017032,000285: 24,2335           11676                           CCS      COUNTPL                               
017033,000286: 24,2336           03231                           TC       WAITLP2                               
017034,000287: 24,2337           33654                           CA       DEC56                                 
017035,000288: 24,2340           03207                           TC       WAITLOOP                              
017036,000289: 24,2341           37754        OPCHK1             CA       TWO                                   
017037,000290: 24,2342           55541        OPCHK2             TS       PIPINDEX                              
017038,000291: 24,2343           00004                           INHINT                                         
017039,000292: 24,2344           02773                           TC       CHECKG                                
017040,000293: 24,2345           00003                           RELINT                                         
017041,000294: 24,2346           37761                           CA       ZERO                                  
017042,000295: 24,2347           51541                           INDEX    PIPINDEX                              
017043,000296: 24,2350           54037                           TS       PIPAX                                 
017044,000297: 24,2351           03067                           TC       DATALD                                #  LOAD PIPA DATA AND TIME IN DATAPL
017045,000298: 24,2352           57673                           XCH      RESULTCT                              
017046,000299: 24,2353           67753                           AD       FOUR                                  
017047,000300: 
017048,000301: 24,2354           55673                           TS       RESULTCT                              
017049,000302: 24,2355           11541                           CCS      PIPINDEX                              
017050,000303: 24,2356           02342                           TC       OPCHK2                                
017051,000304: 24,2357           47753        READOUT            CS       FOUR                                  
017052,000305: 24,2360           61673                           AD       RESULTCT                              
017053,000306: 24,2361           55673                           TS       RESULTCT                              
017054,000307: 24,2362           22007                           ZL                                             
017055,000308: 24,2363           51673                           INDEX    RESULTCT                              
017056,000309: 24,2364           31626                           CA       DATAPL                                
017057,000310: 24,2365           22000                           LXCH     A                                     
017058,000311: 24,2366           51673                           INDEX    RESULTCT                              
017059,000312: 24,2367           21572                           DAS      GENPL      +1                         
017060,000313: 24,2370           31673                           CA       RESULTCT                              
017061,000314: 24,2371           71670                           MASK     MASKREG                               
017062,000315: 24,2372           10000                           CCS      A                                     
017063,000316: 24,2373           02357                           TC       READOUT                               
017064,000317: 24,2374           34557                           CA       TEN                                   
017065,000318: 24,2375           66301                           AD       THREE                                 
017066,000319: 24,2376           55673                           TS       RESULTCT                              
017067,000320: 24,2377           40000                           CS       A                                     
017068,000321: 24,2400           55670                           TS       MASKREG                               
017069,000322: 24,2401           11676                           CCS      COUNTPL                               
017070,000323: 24,2402           03231                           TC       WAITLP2                               
017071,000324: 
017072,000325: 24,2403           03252                           TC       COMPUT                                
017073,000326: 

Page 397

017075,000328: 24,2404           33641        RADCK              CA       V16N40S                               
017076,000329: 24,2405           04646                           TC       NVSBWAIT                              #  OPERATOR WILL CHECK RADAR STATUS.IN LAB.
017077,000330: 24,2406           04611                           TC       FLASHON                               #  SET RADAR OFF THEN PUT RESOLVER STANDARD
017078,000331: 24,2407           04464                           TC       ENDIDLE                               #  ON TRUNNION AND SET TO +45 DEG.SHAFT WIL
017079,000332: 24,2410           02245                           TC       ENDTEST1                              
017080,000333: 24,2411           02412                           TC       +1                                    #  AFTER SETTING RES STANDARD DO A V33
017081,000334: 24,2412           37761                           CA       ZERO                                  
017082,000335: 24,2413           54424                           TS       TANG       +1                         
017083,000336: 
017084,000337: 24,2414           33655                           CA       45DEG                                 
017085,000338: 24,2415           54423                           TS       TANG                                  
017086,000339: 24,2416           05224        DRIVRAD            TC       BANKCALL                              #  IN SC WHEN RAD PRESENT DO V33 RIGHT AWAY
017087,000340: 24,2417           20247                           CADR     RRZERO                                #  LGC WILL ATTEMPT TO DRIVE 45 DEG TRUNN.
017088,000341: 24,2420           05224                           TC       BANKCALL                              #  TO MATCH STANDARD, AFTER ZEROING CDUS
017089,000342: 24,2421           26756                           CADR     RADSTALL                              
017090,000343: 24,2422           02245                           TC       ENDTEST1                              
017091,000344: 24,2423           06103                           TC       INTPRET                               
017092,000345: 24,2424           77624                           CALL                                           
017093,000346: 24,2425           20363                                    RRDESNB                               
017094,000347: 24,2426           05224                           TC       BANKCALL                              
017095,000348: 24,2427           26756                           CADR     RADSTALL                              #  IF CDU FAILS TO AGREE WITH COMMAND TO
017096,000349: 24,2430           02442                           TC       ALARMS                                #  1 DEG GET ALARM HERE
017097,000350: 
017098,000351: 24,2431           04611                           TC       FLASHON                               #  OPERATOR WILL CHECK STATUS OF RADAR
017099,000352: 24,2432           04464                           TC       ENDIDLE                               #  IN S/C DO V33 TO CONTINUE WITH SHAFT
017100,000353: 24,2433           02245                           TC       ENDTEST1                              #  TEST
017101,000354: 24,2434           02435                           TC       +1                                    #  IN LAB TURN RADAR OFF CHANGE RES STANDAR
017102,000355: 24,2435           37761                           CA       ZERO                                  #  TO SHAFT AND SET FOR -45DEG.
017103,000356: 24,2436           54423                           TS       TANG                                  #  THEN DO A V33 IF WANT TO REPEAT CHECK
017104,000357: 24,2437           43655                           CS       45DEG                                 #  DO A V34 TO TERMINATE
017105,000358: 24,2440           54424                           TS       TANG       +1                         
017106,000359: 24,2441           02416                           TC       DRIVRAD                               
017107,000360: 
017108,000361: 24,2442           56002        ALARMS             XCH      Q                                     
017109,000362: 24,2443           55546                           TS       QPLACE                                
017110,000363: 24,2444           04744                           TC       ALARM                                 
017111,000364: 24,2445           01411                           OCT      1411                                  
017112,000365: 24,2446           01546                           TC       QPLACE                                
017113,000366: 

Page 398

017115,000368: 24,2447           06103        GYRSFTST           TC       INTPRET                               #  START ADRESS FOR IRIG SF TEST
017116,000369: 24,2450           77624                           CALL                                           
017117,000370: 24,2451           30532                                    LATAZCHK                              #  LOAD AZ AND LAT
017118,000371: 24,2452           77776                           EXIT                                           
017119,000372: 24,2453           33630        TESTCALL           CAF      V21N30E                               
017120,000373: 24,2454           04646                           TC       NVSBWAIT                              #  LOAD + OR - 1 FOR + OR - X TEST (+00001)
017121,000374: 24,2455           04464                           TC       ENDIDLE                               #  LOAD + OR - 2 FOR + OR - Y TEST
017122,000375: 24,2456           12245                           TCF      ENDTEST1                              #  LOAD + OR - 3 FOR + OR - Z TEST
017123,000376: 24,2457           02453                           TC       TESTCALL                              
017124,000377: 24,2460           56337                           XCH      DSPTEM1                               
017125,000378: 24,2461           55614                           TS       CALCDIR                               
017126,000379: 24,2462           00006                           EXTEND                                         #  THIS ROUTINE LOOKS AT THE SIZE OF THE
017127,000380: 24,2463           62470                           BZMF     NEGSIZ                                #  ENTRY MADE BY THE OPERATOR, IF HE DID NO
017128,000381: 24,2464           75357        SIZLOOK            MASK     NEG3                                  #  T ENTER TEST NO THAT IS W/I PERMISSIBLE
017129,000382: 
017130,000383: 24,2465           00006                           EXTEND                                         #  RANGE- HE WILL BE ASKED TO LOAD AGAIN.
017131,000384: 24,2466           12472                           BZF      GUDENTRY                              #    THIS IS CONSIDERED NECESSARY BECAUSE
017132,000385: 24,2467           02453                           TC       TESTCALL                              #  OF FOLLOWING INDEXED TC WHICH COULD
017133,000386: 
017134,000387: 24,2470           40000        NEGSIZ             COM                                            #  SEND THE COMPUTER OFF INTO THE BOONDOCKS
017135,000388: 24,2471           02464                           TC       SIZLOOK                               #  TO PLAY WITH ITSELF IF THE OPERATOR
017136,000389: 24,2472           31614        GUDENTRY           CA       CALCDIR                               #  MAKES ABAD ENTRY******
017137,000390: 24,2473           67753                           AD       FOUR                                  
017138,000391: 24,2474           50000                           INDEX    A                                     
017139,000392: 24,2475           02476                           TC       +1                                    
017140,000393: 24,2476           02453                           TC       TESTCALL                              
017141,000394: 24,2477           02505                           TC       +6                                    #  C(A)=+00001 FOR -Z
017142,000395: 24,2500           02504                           TC       +4                                    #  C(A)=+00002 FOR -Y
017143,000396: 24,2501           02503                           TC       +2                                    #  C(A)=+00003 FOR -X
017144,000397: 24,2502           02476                           TC       -4                                    #  C(A)=+00004   ERROR
017145,000398: 24,2503           02506                           TC       +3                                    #  C(A)=+00005 FOR +X
017146,000399: 24,2504           02512                           TC       +6                                    
017147,000400: 24,2505           02515                           TC       +10                                   
017148,000401: 24,2506           37753                           CAF      FOUR                                  
017149,000402: 24,2507           55544                           TS       POSITON                               #  4 IS FOR A.L. POSN 4 USED FOR X SF TEST
017150,000403: 24,2510           02517                           TC       +7                                    
017151,000404: 24,2511           02517                           TC       +6                                    
017152,000405: 24,2512           37754                           CAF      TWO                                   
017153,000406: 
017154,000407: 24,2513           55544                           TS       POSITON                               #  +2 IS A.L. POS 2 USED FOR Y SF TEST
017155,000408: 24,2514           02517                           TC       +3                                    
017156,000409: 24,2515           37755                           CAF      ONE                                   
017157,000410: 24,2516           55544                           TS       POSITON                               #  +1 IS A.L. POS 1 USED FOR Z SF TEST
017158,000411: 24,2517           55617                           TS       OPTNREG                               #  C(K) = (4,2,1) FOR X,Y,Z
017159,000412: 24,2520           55621                           TS       SAVE       +1                         
017160,000413: 24,2521           04713                           TC       FREEDSP                               
017161,000414: 24,2522           37761                           CAF      ZERO                                  
017162,000415: 24,2523           55536                           TS       NBPOS                                 #  SET UP NB COORD TO Z NORTH, X UP
017163,000416: 24,2524           55622                           TS       SAVE       +2                         #  INITIALIZE FOR EARTHR DESIGNATE USAGE
017164,000417: 24,2525           55563                           TS       TESTNO                                #  INITIALIZE FOR TEST ABORT ROUTINE
017165,000418: 24,2526           55615                           TS       CDUFLAG                               #  ZEROS FOR STRTWACH USE
017166,000419: 24,2527           33632                           CAF      SFCONST                               
017167,000420: 

Page 399

017169,000422: 24,2530           55623                           TS       SFCONST1                              #  FOR DIVISION DURING CALCSFE
017170,000423: 
017171,000424: 24,2531           05224                           TC       BANKCALL                              
017172,000425: 24,2532           26000                           CADR     IMUZERO                               
017173,000426: 24,2533           05224                           TC       BANKCALL                              
017174,000427: 24,2534           26762                           CADR     IMUSTALL                              
017175,000428: 24,2535           12245                           TCF      ENDTEST1                              
017176,000429: 24,2536           03346                           TC       NBPOSPL                               
017177,000430: 24,2537           03101                           TC       POSGMBL                               
017178,000431: 24,2540           12245                           TCF      ENDTEST1                              
017179,000432: 24,2541           03126                           TC       FALNE                                 
017180,000433: 24,2542           05224                           TC       BANKCALL                              
017181,000434: 24,2543           31705                           CADR     REDYTORK                              
017182,000435: 24,2544           55552        WAITFIVE           TS       SOUTHDR                               
017183,000436: 24,2545           37750                           CAF      BIT6                                  #  THIS SECTION CALLS FOR 2-32 MSEC WAITS
017184,000437: 24,2546           02561                           TC       DIRECTN    -5                         
017185,000438: 24,2547           37750        ENABLE             CAF      BIT6                                  
017186,000439: 24,2550           00006                           EXTEND                                         #  ENABLE GYRO TORQUING LOOP BY TURNING
017187,000440: 24,2551           05014                           WOR      14C                                   #  ON CAL MODULE RELAY
017188,000441: 
017189,000442: 24,2552           00004                           INHINT                                         
017190,000443: 24,2553           47754                           CS       TWO                                   #  SETS UP EXEC SWITCH SO IMUPULSE WILL
017191,000444: 24,2554           70366                           MASK     IMODES33                              #  NOT TURN OFF GYRO TORQ ENABLE RELAY
017192,000445: 24,2555           67754                           AD       TWO                                   
017193,000446: 24,2556           54366                           TS       IMODES33                              
017194,000447: 24,2557           37754                           CAF      TWO                                   
017195,000448: 24,2560           55552                           TS       SOUTHDR                               
017196,000449: 24,2561           55527                           TS       LENGTHOT                              #   20 MSEC DELAY FOR GYRO LOOP STABILIZAT.
017197,000450: 24,2562           37755                           CA       ONE                                   
017198,000451: 24,2563           03207                           TC       WAITLOOP                              
017199,000452: 24,2564           11676                           CCS      COUNTPL                               
017200,000453: 24,2565           03231                           TC       WAITLP2                               
017201,000454: 24,2566           05224        DIRECTN            TC       BANKCALL                              #   TORQUING ROUTINE IN IMU PERFORMANCE
017202,000455: 24,2567           46520                           CADR     SILVER                                #     BANK 3
017203,000456: 24,2570           11552                           CCS      SOUTHDR                               #  A ONE FIRST TIME THROUGH, THEN ZERO
017204,000457: 24,2571           02544                           TC       WAITFIVE                              
017205,000458: 
017206,000459: 24,2572           11615        STRTWACH           CCS      CDUFLAG                               #   RETURNS HERE VIA QPLACE FROM SILVER
017207,000460: 24,2573           02654                           TC       CDUZOTST                              #  BEEN CAUGHT AND CDU THROUGH ZERO IS
017208,000461: 24,2574           11621                           CCS      SAVE       +1                         
017209,000462: 24,2575           02614                           TC       LOOKCDUP   -4                         
017210,000463: 24,2576           02620                           TC       LOOKCDUP                              
017211,000464: 24,2577           37761        CORRECT            CAF      ZERO                                  
017212,000465: 
017213,000466: 24,2600           54356                           TS       LGYRO                                 #   RELEASES GYROS FOR IMUPULSE USAGE
017214,000467: 24,2601           05224                           TC       BANKCALL                              #  EARTHRATE CORRECTION TO GYROS NOT EAST
017215,000468: 24,2602           30424                           CADR     EARTHR                                #  OR WEST
017216,000469: 24,2603           37755                           CAF      ONE                                   
017217,000470: 24,2604           54356                           TS       LGYRO                                 #  RESERVES GYROS FOR S.F. TEST TORQUING
017218,000471: 24,2605           55622                           TS       SAVE       +2                         #  INITIALIZES TO INSURE 5.6 DEG OF TORQ)
017219,000472: 24,2606           27563                           ADS      TESTNO                                #  INCR THE BURST COUNTER, WHICH IS USED TO
017220,000473: 

Page 400

017222,000475: 24,2607           41563                           CS       TESTNO                                #  COUNT THE NO. OF ITMES THE GYRO COUNTER
017223,000476: 24,2610           77760                           MASK     FIVE                                  #  IS LOADED, IF A TENTH LOAD IS REQUESTED
017224,000477: 
017225,000478: 24,2611           00006                           EXTEND                                         #  THE SFE IS TOO LARGE TO BE MEANINGFULL
017226,000479: 24,2612           12762                           BZF      STOPTEST                              #  OR THE CDU,S ARE NOT WORKING.
017227,000480: 24,2613           02566                           TC       DIRECTN                               
017228,000481: 
017229,000482: 24,2614           37761                           CAF      ZERO                                  #  ZEROS CDU REG WHICH WILL BE USED TO
017230,000483: 24,2615           55621                           TS       SAVE       +1                         
017231,000484: 24,2616           51672                           INDEX    CDUNDX                                #  MEASURE ANGLE.
017232,000485: 24,2617           54032                           TS       CDUX                                  
017233,000486: 24,2620           00004        LOOKCDUP           INHINT                                         
017234,000487: 24,2621           37751                           CAF      BIT5                                  
017235,000488: 24,2622           55624        STILLOOK           TS       TIMER                                 
017236,000489: 24,2623           51672                           INDEX    CDUNDX                                #  LOOKS FOR FIRST CDU PULSE AFTER TORQUING
017237,000490: 24,2624           10032                           CCS      CDUX                                  #  STARTS
017238,000491: 24,2625           02637                           TC       OUTPLUS                               #  HERE IS PLUS PULSE
017239,000492: 24,2626           02631                           TC       TIMEWACH                              
017240,000493: 24,2627           02442                           TC       ALARMS                                #  TTELL OPERATOR FIRST CDU PULSE WAS MISSD
017241,000494: 24,2630           02650                           TC       OUTNEG                                #  HERE IS MINUS PULSE
017242,000495: 24,2631           11624        TIMEWACH           CCS      TIMER                                 #  WATCHES TIME IN INHINT SO COPS WILL NOT
017243,000496: 24,2632           02622                           TC       STILLOOK                              #  CATCH US
017244,000497: 24,2633           00003                           RELINT                                         
017245,000498: 
017246,000499: 24,2634           10067                           CCS      NEWJOB                                
017247,000500: 24,2635           05550                           TC       CHANG1                                
017248,000501: 
017249,000502: 24,2636           02620                           TC       LOOKCDUP                              #  KEEP WATCHING IF THE PULSE IS NOT HERE
017250,000503: 
017251,000504: 24,2637           43631        OUTPLUS            CS       DESANGLE                              #  -2047 CDU PULSES ADDED TO CDU REG SO
017252,000505: 24,2640           51672                           INDEX    CDUNDX                                #  ZERO CROSSOVER CAN BE DETECTED
017253,000506: 24,2641           54032                           TS       CDUX                                  
017254,000507: 24,2642           37755        LOADFLAG           CAF      ONE                                   
017255,000508: 24,2643           55615                           TS       CDUFLAG                               
017256,000509: 24,2644           30047                           CA       GYROCTR                               #  GYRO TORQ CMDS LEFT OUT OF FIRST 5.625
017257,000510: 24,2645           55620                           TS       SAVE                                  #  DEG COMMANDED WHEN CDU PULSE ARRIVED
017258,000511: 24,2646           00003                           RELINT                                         
017259,000512: 24,2647           02654                           TC       CDUZOTST                              
017260,000513: 
017261,000514: 24,2650           33631        OUTNEG             CA       DESANGLE                              
017262,000515: 24,2651           51672                           INDEX    CDUNDX                                
017263,000516: 24,2652           54032                           TS       CDUX                                  
017264,000517: 24,2653           02642                           TC       LOADFLAG                              
017265,000518: 
017266,000519: 24,2654           51672        CDUZOTST           INDEX    CDUNDX                                
017267,000520: 24,2655           10032                           CCS      CDUX                                  
017268,000521: 24,2656           02662                           TC       +4                                    
017269,000522: 24,2657           02677                           TC       ENDWATCH                              
017270,000523: 24,2660           02662                           TC       +2                                    
017271,000524: 24,2661           02677                           TC       ENDWATCH                              
017272,000525: 
017273,000526: 24,2662           37744                           CAF      BIT10                                 #  RAND WITH BIT 10 TO SEE IF STILL TORQ.
017274,000527: 24,2663           00006                           EXTEND                                         
017275,000528: 

Page 401

017277,000530: 24,2664           02014                           RAND     14C                                   
017278,000531: 24,2665           10000                           CCS      A                                     
017279,000532: 24,2666           02674                           TC       +6                                    
017280,000533: 
017281,000534: 24,2667           11622                           CCS      SAVE       +2                         #   SEE IF 2.8DEG OR 5.6 DEG SINCE LAST
017282,000535: 24,2670           02672                           TC       +2                                    #  EEARTHR USE, IF 2.8 DEG, DO 2.8 MORE
017283,000536: 24,2671           02577                           TC       CORRECT                               #    THEN GO TO CORRECT
017284,000537: 24,2672           55622                           TS       SAVE       +2                         
017285,000538: 
017286,000539: 24,2673           02566                           TC       DIRECTN                               
017287,000540: 24,2674           10067                           CCS      NEWJOB                                
017288,000541: 24,2675           05550                           TC       CHANG1                                
017289,000542: 24,2676           02654                           TC       CDUZOTST                              
017290,000543: 
017291,000544: 24,2677           00004        ENDWATCH           INHINT                                         #  WWILL STOR GYROCTR AT END OF 2048 CDU
017292,000545: 24,2700           37761                           CAF      ZERO                                  #  PULSES AND STOP TORQ BY ZEROING REQUESTS
017293,000546: 24,2701           54356                           TS       LGYRO                                 #   RELEASE GYROS FOR OTHERS USAGE
017294,000547: 24,2702           56047                           XCH      GYROCTR                               
017295,000548: 24,2703           55621                           TS       SAVE       +1                         #  AND STOPS TORQUING BY ZEROING TORQ
017296,000549: 24,2704           47754                           CS       TWO                                   
017297,000550: 24,2705           70366                           MASK     IMODES33                              #  THIS TURNS OFF EXEC SWITCH SO THE GYRO
017298,000551: 24,2706           54366                           TS       IMODES33                              #  TORQ. ENABLE RELAY CAN BE TURNED OFF.
017299,000552: 24,2707           00003                           RELINT                                         
017300,000553: 24,2710           31620        CALCSFE            CA       SAVE                                  #  GYROCTR AT TEST START
017301,000554: 24,2711           00006                           EXTEND                                         
017302,000555: 24,2712           61621                           SU       SAVE       +1                         #  GYROCTR AT TEST END
017303,000556: 24,2713           55622                           TS       SAVE       +2                         
017304,000557: 24,2714           00006                           EXTEND                                         
017305,000558: 24,2715           62734                           BZMF     ARITH                                 #  SEE IF IT IS NEG OR ZERO,IF NEG,SFE IS +
017306,000559: 24,2716           73633                           MASK     SIZCHK                                
017307,000560: 24,2717           00006                           EXTEND                                         #  THIS ROUTINE TESTS SAVE-(SAVE+1) TO SEE
017308,000561: 24,2720           12726                           BZF      NEGSFE                                #  IF THE RESULT IS WITHIN PERMISSIBLE SIZE
017309,000562: 
017310,000563: 24,2721           41622                           CS       SAVE       +2                         #  AND DETERMINES POLARITY OF SFE USING THE
017311,000564: 24,2722           73633                           MASK     SIZCHK                                #  PRESENCE OR ABSENCE OF BITS 12,13,14.
017312,000565: 24,2723           00006                           EXTEND                                         #  IF BITS ARE PRESENT IN POSITIVE SAVE +2
017313,000566: 24,2724           12730                           BZF      POSSFE                                #  THEN THE SFE MUST BE POS. IF DIFFERENCE
017314,000567: 24,2725           02762                           TC       STOPTEST                              #  IS GREATER THAN 2047 PULSES FROM THE
017315,000568: 24,2726           31622        NEGSFE             CAE      SAVE       +2                         #  IDEAL NO OF PULSES, THE SFE EXCEEDS
017316,000569: 24,2727           02734                           TC       ARITH                                 #  15600 PPM, THE TEST IS NOT VALID AND
017317,000570: 
017318,000571:                                                                                                  #  THEREFORE ABORTS AND TURNS ON PROGRAM ALARM
017319,000572: 24,2730           37735        POSSFE             CAF      POSMAX                                #  POS SFE DEFINITION = IRIG SF IN SEC OF
017320,000573: 24,2731           00006                           EXTEND                                         #  ARC PER PULSE IS GREATER THAN
017321,000574: 24,2732           61622                           SU       SAVE       +2                         #  .61798095703125  SEC OF ARC/ PULSE
017322,000575: 24,2733           02735                           TC       ARITH      +1                         
017323,000576: 
017324,000577: 24,2734           40000        ARITH              COM                                            
017325,000578: 24,2735           22007                           ZL                                             
017326,000579: 24,2736           00006                           EXTEND                                         
017327,000580: 24,2737           11623                           DV       SFCONST1                              
017328,000581: 24,2740           54342        LOADIT             TS       DSPTEM2                               

Page 402

017330,000583: 24,2741           02742                           TC       DATADSP                               
017331,000584: 
017332,000585: 24,2742           04621        DATADSP            TC       GRABDSP                               
017333,000586: 24,2743           04626                           TC       PREGBSY                               
017334,000587: 24,2744           31614                           CA       CALCDIR                               
017335,000588: 24,2745           54344                           TS       DSPTEM2    +2                         #  DISPLAYS TEST NO JUST PERFORMED
017336,000589: 24,2746           33636                           CAF      VB06N66                               #   R3 = TEST NO JUST PERFORMED
017337,000590: 24,2747           04646                           TC       NVSBWAIT                              
017338,000591: 24,2750           04611                           TC       FLASHON                               
017339,000592: 24,2751           04464                           TC       ENDIDLE                               #  TO END TEST DO V34E
017340,000593: 24,2752           02754                           TC       +2                                    
017341,000594: 24,2753           02453                           TC       TESTCALL                              #  TO CONTINUE TEST DO V33E
017342,000595: 24,2754           05224                           TC       BANKCALL                              
017343,000596: 24,2755           26000                           CADR     IMUZERO                               
017344,000597: 
017345,000598: 24,2756           05224                           TC       BANKCALL                              
017346,000599: 24,2757           26762                           CADR     IMUSTALL                              
017347,000600: 24,2760           12245                           TCF      ENDTEST1                              
017348,000601: 24,2761           12245                           TCF      ENDTEST1                              
017349,000602: 
017350,000603: 24,2762           05224        STOPTEST           TC       BANKCALL                              
017351,000604: 24,2763           26000                           CADR     IMUZERO                               
017352,000605: 24,2764           05224                           TC       BANKCALL                              #  CORRECT CDUCTRS AND TURN ON PROG ALARM
017353,000606: 24,2765           26762                           CADR     IMUSTALL                              #  TO TELL OPERATOR LAST CDU PULSE WAS
017354,000607: 24,2766           12245                           TCF      ENDTEST1                              #  MISSED OR GYRO TORQ LOOP WAY OUT OF
017355,000608: 24,2767           37761                           CAF      ZERO                                  #  ALLOWABLE LIMITS.........
017356,000609: 24,2770           54356                           TS       LGYRO                                 #  **** RELEASE GYROS FOR OTHERS USAGE*****
017357,000610: 24,2771           02442                           TC       ALARMS                                
017358,000611: 24,2772           12245                           TCF      ENDTEST1                              
017359,000612: 

Page 403

017361,000614: 24,2773           00006        CHECKG             EXTEND                                         #  PIP PULSE CATCHING ROUTINE
017362,000615: 24,2774           23546                           QXCH     QPLACE                                #  RECORDS TIME AT OCCURRENCE OF A DELTA V
017363,000616: 24,2775           00003        CHECKG1            RELINT                                         #  KEEPS CONTENT OF PIPA REG INTACT
017364,000617: 24,2776           10067                           CCS      NEWJOB                                
017365,000618: 24,2777           05550                           TC       CHANG1                                
017366,000619: 24,3000           00004                           INHINT                                         
017367,000620: 24,3001           37761                           CAF      ZERO                                  
017368,000621: 24,3002           51541                           INDEX    PIPINDEX                              
017369,000622: 24,3003           56037                           XCH      PIPAX                                 
017370,000623: 24,3004           55551                           TS       STOREPL                               
017371,000624: 24,3005           11551                           CCS      STOREPL                               
017372,000625: 24,3006           03012                           TC       CHECKP                                
017373,000626: 24,3007           03065                           TC       RESTOREA                              
017374,000627: 24,3010           03025                           TC       CHECKM                                
017375,000628: 24,3011           03065                           TC       RESTOREA                              
017376,000629: 24,3012           37750        CHECKP             CAF      BIT6                                  #  LOOKS FOR ONE MORE PLUS PULSE
017377,000630: 24,3013           55540                           TS       PIPANO                                
017378,000631: 24,3014           51541                           INDEX    PIPINDEX                              
017379,000632: 24,3015           10037                           CCS      PIPAX                                 
017380,000633: 
017381,000634: 24,3016           03040                           TC       CHECKG3                               
017382,000635: 24,3017           03022                           TC       +3                                    
017383,000636: 24,3020           03065                           TC       RESTOREA                              
017384,000637: 24,3021           03022                           TC       +1                                    
017385,000638: 24,3022           11540                           CCS      PIPANO                                
017386,000639: 24,3023           03013                           TC       CHECKP     +1                         
017387,000640: 24,3024           03065                           TC       RESTOREA                              
017388,000641: 24,3025           37750        CHECKM             CAF      BIT6                                  #  LOOKS FOR ONE MORE MINUS PULSE
017389,000642: 24,3026           55540                           TS       PIPANO                                
017390,000643: 24,3027           51541                           INDEX    PIPINDEX                              
017391,000644: 24,3030           10037                           CCS      PIPAX                                 
017392,000645: 24,3031           03065                           TC       RESTOREA                              
017393,000646: 24,3032           03035                           TC       +3                                    
017394,000647: 24,3033           03040                           TC       CHECKG3                               
017395,000648: 24,3034           03035                           TC       +1                                    
017396,000649: 24,3035           11540                           CCS      PIPANO                                
017397,000650: 24,3036           03026                           TC       CHECKM     +1                         
017398,000651: 24,3037           03065                           TC       RESTOREA                              
017399,000652: 24,3040           05015        CHECKG3            TC       FINETIME                              #  TIME IN DOUBLE PRECISION LEFT IN MPAC
017400,000653: 
017401,000654: 24,3041           52145                           DXCH     MPAC                                  
017402,000655: 24,3042           37752                           CAF      BIT4                                  
017403,000656: 24,3043           55540        CHECKG5            TS       PIPANO                                
017404,000657: 
017405,000658: 24,3044           51541                           INDEX    PIPINDEX                              
017406,000659: 24,3045           10037                           CCS      PIPAX                                 
017407,000660: 24,3046           03052                           TC       +4                                    
017408,000661: 24,3047           03065                           TC       RESTOREA                              
017409,000662: 24,3050           03052                           TC       +2                                    
017410,000663: 24,3051           03065                           TC       RESTOREA                              
017411,000664: 24,3052           11540                           CCS      PIPANO                                
017412,000665: 24,3053           03043                           TC       CHECKG5                               
017413,000666: 

Page 404

017415,000668: 24,3054           03057        NREAD              TC       RESTORE                               
017416,000669: 24,3055           55551                           TS       STOREPL                               
017417,000670: 
017418,000671: 24,3056           01546                           TC       QPLACE                                
017419,000672: 24,3057           57551        RESTORE            XCH      STOREPL                               #  A WILL CONTAIN PREVIOUS PIPA CNTR CONTEN
017420,000673: 24,3060           51541                           INDEX    PIPINDEX                              #  STOREPL WILL CONTAIN ZERO
017421,000674: 24,3061           60037                           AD       PIPAX                                 
017422,000675: 24,3062           51541                           INDEX    PIPINDEX                              
017423,000676: 24,3063           54037                           TS       PIPAX                                 
017424,000677: 24,3064           00002                           TC       Q                                     
017425,000678: 

Page 405

017427,000680: 24,3065           03057        RESTOREA           TC       RESTORE                               
017428,000681: 24,3066           02775                           TC       CHECKG1                               
017429,000682: 24,3067           31551        DATALD             CA       STOREPL                               
017430,000683: 24,3070           51673                           INDEX    RESULTCT                              
017431,000684: 24,3071           55626                           TS       DATAPL                                
017432,000685: 24,3072           30144                           CA       MPAC                                  
017433,000686: 24,3073           51673                           INDEX    RESULTCT                              
017434,000687: 24,3074           55627                           TS       DATAPL     +1                         
017435,000688: 
017436,000689: 24,3075           30145                           CA       MPAC       +1                         
017437,000690: 24,3076           51673                           INDEX    RESULTCT                              
017438,000691: 24,3077           55630                           TS       DATAPL     +2                         
017439,000692: 24,3100           00002                           TC       Q                                     
017440,000693: 
017441,000694: 
017442,000695: 
017443,000696: 24,3101           00006        POSGMBL            EXTEND                                         #  COARSE ALIGNING SUBROUTINE
017444,000697: 24,3102           23546                           QXCH     QPLACE                                
017445,000698: 
017446,000699: 24,3103           06103                           TC       INTPRET                               
017447,000700: 24,3104           77624                           CALL                                           
017448,000701: 24,3105           32722                                    CALCGA                                
017449,000702: 24,3106           77776                           EXIT                                           
017450,000703: 
017451,000704: 24,3107           05224                           TC       BANKCALL                              
017452,000705: 24,3110           26065                           CADR     IMUCOARS                              
017453,000706: 24,3111           30075                           CA       FLAGWRD1                              
017454,000707: 24,3112           77746                           MASK     BIT8                                  
017455,000708: 24,3113           10000                           CCS      A                                     #  L +1, OTHERWISE TO L +2.
017456,000709: 24,3114           03117                           TC       LOCK                                  
017457,000710: 
017458,000711: 24,3115           25546                           INCR     QPLACE                                
017459,000712: 24,3116           03121                           TC       +3                                    
017460,000713: 24,3117           37754        LOCK               CA       TWO                                   
017461,000714: 24,3120           55537                           TS       NDXCTR                                
017462,000715: 24,3121           05224                           TC       BANKCALL                              
017463,000716: 24,3122           26762                           CADR     IMUSTALL                              
017464,000717: 24,3123           12245                           TCF      ENDTEST1                              
017465,000718: 24,3124           01546                           TC       QPLACE                                
017466,000719: 24,3125           00401        GMLOCKCK           OCT      00401                                 
017467,000720: 

Page 406

017469,000722: 24,3126           00006        FALNE              EXTEND                                         #  TORQUES GYROS TO NULL OVT DIFFERENCE
017470,000723: 24,3127           23546                           QXCH     QPLACE                                #  BETWEEN DESIRED SM ORIENTATION WITH RESP
017471,000724: 24,3130           05224                           TC       BANKCALL                              #  TO NBASE AND ACTUAL
017472,000725: 24,3131           26000                           CADR     IMUZERO                               
017473,000726: 24,3132           05224                           TC       BANKCALL                              
017474,000727: 24,3133           26762                           CADR     IMUSTALL                              
017475,000728: 24,3134           12245                           TCF      ENDTEST1                              
017476,000729: 24,3135           05224                           TC       BANKCALL                              
017477,000730: 24,3136           26251                           CADR     IMUFINE                               
017478,000731: 24,3137           05224                           TC       BANKCALL                              
017479,000732: 24,3140           26762                           CADR     IMUSTALL                              
017480,000733: 24,3141           12245                           TCF      ENDTEST1                              
017481,000734: 24,3142           30032        FALNE1             CA       CDUX                                  
017482,000735: 24,3143           50110                           INDEX    FIXLOC                                
017483,000736: 
017484,000737: 24,3144           54024                           TS       24                                    
017485,000738: 24,3145           30033                           CA       CDUY                                  
017486,000739: 24,3146           50110                           INDEX    FIXLOC                                
017487,000740: 24,3147           54020                           TS       20                                    
017488,000741: 24,3150           30034                           CA       CDUZ                                  
017489,000742: 24,3151           50110                           INDEX    FIXLOC                                
017490,000743: 24,3152           54022                           TS       22                                    
017491,000744: 24,3153           37751                           CA       BIT5                                  
017492,000745: 24,3154           60110                           AD       FIXLOC                                
017493,000746: 24,3155           50110                           INDEX    FIXLOC                                
017494,000747: 24,3156           54050                           TS       S1                                    
017495,000748: 24,3157           06103                           TC       INTPRET                               
017496,000749: 24,3160           64375                           VLOAD    MXV                                   
017497,000750: 24,3161           02401                                    XSM                                   
017498,000751: 24,3162           02445                                    STARAD                                
017499,000752: 24,3163           77772                           VSL1                                           
017500,000753: 24,3164           34041                           STCALL   32D                                   
017501,000754: 24,3165           32622                                    NBSM                                  
017502,000755: 24,3166           26423                           STOVL    XDC                                   
017503,000756: 24,3167           02407                                    YSM                                   
017504,000757: 24,3170           76521                           MXV      VSL1                                  
017505,000758: 24,3171           02445                                    STARAD                                
017506,000759: 24,3172           34041                           STCALL   32D                                   
017507,000760: 
017508,000761: 24,3173           32622                                    NBSM                                  
017509,000762: 24,3174           26431                           STOVL    YDC                                   
017510,000763: 24,3175           02423                                    XDC                                   
017511,000764: 24,3176           76435                           VXV      VSL1                                  
017512,000765: 24,3177           02431                                    YDC                                   
017513,000766: 24,3200           36437                           STCALL   ZDC                                   
017514,000767: 24,3201           32472                                    CALCGTA                               
017515,000768: 24,3202           77776                           EXIT                                           
017516,000769: 24,3203           33652                           CA       OGCPL                                 
017517,000770: 24,3204           05224                           TC       BANKCALL                              
017518,000771: 24,3205           26361                           CADR     IMUPULSE                              
017519,000772: 24,3206           01546                           TC       QPLACE                                
017520,000773: 

Page 407

017522,000775: 24,3207           00006        WAITLOOP           EXTEND                                         #  LOOPS IN X SEC INCREMENTS FOR NUMBER OF
017523,000776: 24,3210           23545                           QXCH     QPLAC                                 
017524,000777: 24,3211           55676                           TS       COUNTPL                               #  NUMBER PUT INTO LENGTHOT
017525,000778: 24,3212           11676        WAITLP1            CCS      COUNTPL                               
017526,000779: 24,3213           03217                           TC       +4                                    
017527,000780: 24,3214           01545                           TC       QPLAC                                 
017528,000781: 24,3215           03217                           TC       +2                                    
017529,000782: 24,3216           03211                           TC       WAITLP1    -1                         
017530,000783: 24,3217           00004                           INHINT                                         
017531,000784: 24,3220           31527                           CAE      LENGTHOT                              
017532,000785: 24,3221           05701                           TC       WAITLIST                              
017533,000786: 24,3222  E5,1400                                  EBANK=   XSM                                   
017534,000787: 24,3222           03235 50005                     2CADR    WAITLP3                               
017535,000788: 
017536,000789: 24,3224           00003                           RELINT                                         
017537,000790: 24,3225           11676                           CCS      COUNTPL                               
017538,000791: 24,3226           01545                           TC       QPLAC                                 
017539,000792: 24,3227           01545                           TC       QPLAC                                 
017540,000793: 24,3230           13231                           NOOP                                           
017541,000794: 
017542,000795: 24,3231           55676        WAITLP2            TS       COUNTPL                               #  ENTER HERE AFTER DOING CALLING JOB
017543,000796: 24,3232           33234                           CAF      WTLPCADR                              
017544,000797: 24,3233           05563                           TC       JOBSLEEP                              
017545,000798: 24,3234           51212        WTLPCADR           CADR     WAITLP1                               
017546,000799: 24,3235           33234        WAITLP3            CAF      WTLPCADR                              
017547,000800: 24,3236           05567                           TC       JOBWAKE                               
017548,000801: 24,3237           05745                           TC       TASKOVER                              
017549,000802: 
017550,000803: 
017551,000804: 
017552,000805: 24,3240           54001        ZEROING            TS       L                                     
017553,000806: 24,3241           13243                           TCF      +2                                    
017554,000807: 24,3242           55777        ZEROING1           TS       ZERONDX                               
017555,000808: 24,3243           37761                           CAF      ZERO                                  
017556,000809: 24,3244           50001                           INDEX    L                                     
017557,000810: 24,3245           54000                           TS       0                                     
017558,000811: 24,3246           24001                           INCR     L                                     
017559,000812: 24,3247           11777                           CCS      ZERONDX                               
017560,000813: 24,3250           13242                           TCF      ZEROING1                              
017561,000814: 24,3251           00002                           TC       Q                                     
017562,000815: 24,3252           06103        COMPUT             TC       INTPRET                               #  CALCULATE LENGTH OF GRAVITY VECTOR AS
017563,000816: 
017564,000817: 24,3253           77170                           AXT,1    AXT,2                                 #  MEASURED BY ACCELEROMETERS
017565,000818: 24,3254           00026                                    22D                                   
017566,000819: 24,3255           00012                                    10D                                   
017567,000820: 24,3256           77731                           SSP                                            
017568,000821: 24,3257           00051                                    S1                                    
017569,000822: 24,3260           00004                                    4                                     
017570,000823: 24,3261           77731                           SSP                                            
017571,000824: 24,3262           00052                                    S2                                    

Page 408

017573,000826: 24,3263           00004                                    4                                     
017574,000827: 24,3264           44743        LOPDELOP           DLOAD*   DSU*                                  
017575,000828: 
017576,000829: 24,3265           75120                                    DATAPL     +24D,2                     
017577,000830: 24,3266           02657                                    DATAPL     +24D,1                     
017578,000831: 24,3267           41323                           PDDL*    DMP                                   
017579,000832: 24,3270           75156                                    GENPL      +24D,2                     
017580,000833: 24,3271           11644                                    DEC585                                
017581,000834: 24,3272           77671                           DDV                                            
017582,000835: 24,3273           55504                           TIX,2    VDEF                                  
017583,000836: 24,3274           51301                                    NEXT                                  
017584,000837: 24,3275           47046                           ABVAL    RTB                                   
017585,000838: 24,3276           33565                                    SGNAGREE                              
017586,000839: 24,3277           34343                           STCALL   DSPTEM2                               
017587,000840: 24,3300           51303                                    KODU                                  
017588,000841: 24,3301           60006        NEXT               PUSH     TIX,1                                 
017589,000842: 24,3302           51264                                    LOPDELOP                              
017590,000843: 24,3303           77776        KODU               EXIT                                           
017591,000844: 24,3304           04633                           TC       GRABWAIT                              
017592,000845: 24,3305           03600                           TC       SHOW                                  
017593,000846: 24,3306           06103                           TC       INTPRET                               
017594,000847: 24,3307           41535                           SLOAD    PUSH                                  
017595,000848: 24,3310           02630                                    DATAPL     +1                         
017596,000849: 24,3311           41535                           SLOAD    PUSH                                  
017597,000850: 24,3312           02634                                    DATAPL     +5                         
017598,000851: 24,3313           55535                           SLOAD    VDEF                                  
017599,000852: 
017600,000853: 24,3314           02640                                    DATAPL     +11                        
017601,000854: 24,3315           76456                           UNIT     VSL1                                  
017602,000855: 24,3316           77606                           PUSH                                           
017603,000856: 24,3317           41535                           SLOAD    PUSH                                  
017604,000857: 24,3320           02644                                    DATAPL     +15                        
017605,000858: 24,3321           41535                           SLOAD    PUSH                                  
017606,000859: 24,3322           02650                                    DATAPL     +21                        
017607,000860: 24,3323           55535                           SLOAD    VDEF                                  
017608,000861: 24,3324           02654                                    DATAPL     +25                        
017609,000862: 24,3325           76456                           UNIT     VSL1                                  
017610,000863: 24,3326           45325                           PDDL     DSU                                   
017611,000864: 24,3327           02655                                    DATAPL     +26                        
017612,000865: 24,3330           02641                                    DATAPL     +12                        
017613,000866: 24,3331           77612                           SL4                                            
017614,000867: 24,3332           77652                           SL3                                            
017615,000868: 24,3333           26530                           STOVL    LENGTHOT                              
017616,000869: 24,3334           51435                           VXV      ABVAL                                 
017617,000870: 24,3335           56205                           DMP      DDV                                   
017618,000871: 24,3336           11647                                    ERUNITS                               
017619,000872: 24,3337           02530                                    LENGTHOT                              
017620,000873: 24,3340           77634                           RTB                                            
017621,000874: 24,3341           33565                                    SGNAGREE                              
017622,000875: 24,3342           00343                           STORE    DSPTEM2                               
017623,000876: 
017624,000877: 24,3343           77776                           EXIT                                           
017625,000878: 24,3344           03600                           TC       SHOW                                  

Page 409

017627,000880: 24,3345           12404                           TCF      RADCK                                 
017628,000881: 24,3346           00006        NBPOSPL            EXTEND                                         #  SETS UP AZIMUTH AND VERTICAL VECTORS FOR
017629,000882: 24,3347           23546                           QXCH     QPLACE                                #  AXISGEN,RESULTS TO BE USED IN CALCGA TO
017630,000883: 24,3350           06103                           TC       INTPRET                               
017631,000884: 24,3351           54160                           AXC,1    XSU,1                                 #  AZIMUTH IN NB COORDS
017632,000885: 24,3352           51663                                    SCNBAZ                                
017633,000886: 24,3353           02536                                    NBPOS                                 
017634,000887: 24,3354           77773                           VLOAD*                                         
017635,000888: 
017636,000889: 24,3355           00001                                    0,1                                   
017637,000890: 24,3356           02445                           STORE    STARAD                                
017638,000891: 
017639,000892: 24,3357           54160                           AXC,1    XSU,1                                 #  VERTICAL IN NB COORDS
017640,000893: 24,3360           51675                                    SCNBVER                               
017641,000894: 24,3361           02536                                    NBPOS                                 
017642,000895: 24,3362           77773                           VLOAD*                                         
017643,000896: 24,3363           00001                                    0,1                                   
017644,000897: 24,3364           16453                           STODL    STARAD     +6                         
017645,000898: 24,3365           33334                                    SCHZEROS                              
017646,000899: 24,3366           14007                           STODL    6D                                    
017647,000900: 24,3367           02507                                    AZIMUTH                               
017648,000901: 24,3370           57546                           COS      DCOMP                                 
017649,000902: 24,3371           14011                           STODL    8D                                    
017650,000903: 24,3372           02507                                    AZIMUTH                               
017651,000904: 24,3373           77756                           SIN                                            
017652,000905: 24,3374           00013                           STORE    10D                                   #  VERTICAL IN CER
017653,000906: 24,3375           77775                           VLOAD                                          
017654,000907: 24,3376           11676                                    SCNBVER                               
017655,000908: 24,3377           34015                           STCALL   12D                                   
017656,000909: 24,3400           33006                                    AXISGEN                               
017657,000910: 24,3401           77776                           EXIT                                           
017658,000911: 
017659,000912: 24,3402           33642        SELPOSN            CA       DEC17                                 
017660,000913: 24,3403           55777                           TS       ZERONDX                               
017661,000914: 24,3404           33662                           CA       XSMADR                                
017662,000915: 24,3405           03240                           TC       ZEROING                               
017663,000916: 
017664,000917: 24,3406           51544                           INDEX    POSITON                               
017665,000918: 24,3407           03410                           TC       +1                                    
017666,000919: 24,3410           03526                           TC       OPCHKPOS                              #  OPCHK WILL PUT ZERO IN POSITON
017667,000920: 24,3411           03424                           TC       POSN1                                 
017668,000921: 24,3412           03433                           TC       POSN2                                 
017669,000922: 24,3413           03440                           TC       POSN3                                 
017670,000923: 24,3414           03452                           TC       POSN4                                 
017671,000924: 24,3415           03462                           TC       POSN5                                 
017672,000925: 24,3416           03472                           TC       POSN6                                 
017673,000926: 24,3417           03502                           TC       POSN7                                 
017674,000927: 24,3420           03515                           TC       POSN8                                 
017675,000928: 24,3421           03544                           TC       POSN9                                 
017676,000929: 24,3422           03555                           TC       POSN10                                
017677,000930: 24,3423           03566                           TC       POSN11                                #  COMPASS POSITION
017678,000931: 

Page 410

017680,000933:                                                                                                  #  (XXX.XX MERU) AND A VERTICAL TEST BY DV (XXX.XX MERU) EACH POSITION TELL
017681,000934:                                                                                                  #  HOW THE DISPLAYS ARE RELATED TO TTHE DRIFT COEFFICIENTS BEING MEASURED.
017682,000935:                                                                                                  #  NOTE THAT IT IS ILLEGAL TO RUN VERTICAL IN POS 6,4, OR 2 WITHOUT FIRST
017683,000936:                                                                                                  #  RUNNING HORIZONTAL OF POS 5,3, OR1. THIS IS BECAUSE THE HORIZ DRIFT CALC
017684,000937:                                                                                                  #  IN 1,3, OR 5 IS USED AS EAST DRIFFFT FOR VERTICAL TEST. THIS IS DONE BY
017685,000938:                                                                                                  #  THE MACHINE AUTOMATICALLY EXCEPT FOR VERTICAL POSITION 6 WHICH THE
017686,000939:                                                                                                  #  OPERATOR MUST DO. (SEE POSITION 6 BELOW)
017687,000940: 24,3424           37740        POSN1              CA       HALF                                  #  X UP, Y SOUTH, Z EAST
017688,000941: 24,3425           55400                           TS       XSM                                   
017689,000942: 24,3426           55410                           TS       YSM        +2                         #    NBDY = DH
017690,000943: 24,3427           55420                           TS       ZSM        +4                         
017691,000944: 24,3430           37761        NGUBGH             CA       ZERO                                  
017692,000945: 24,3431           55541                           TS       PIPINDEX                              
017693,000946: 24,3432           01546                           TC       QPLACE                                
017694,000947: 
017695,000948: 
017696,000949: 24,3433           47740        POSN2              CS       HALF                                  #  X DOWN, Y WEST, Z NORTH
017697,000950: 24,3434           55400                           TS       XSM                                   
017698,000951: 24,3435           55412                           TS       YSM        +4                         #   NBDZ=DH,NBDX-ADIAX=-DV
017699,000952: 24,3436           55416                           TS       ZSM        +2                         
017700,000953: 24,3437           03430                           TC       NGUBGH                                
017701,000954: 
017702,000955: 
017703,000956: 24,3440           37740        POSN3              CA       HALF                                  #   Z UP, Y WEST ,X NORTH
017704,000957: 24,3441           55414                           TS       ZSM                                   
017705,000958: 24,3442           40000                           COM                                            #    NBDX = -DH
017706,000959: 24,3443           55402                           TS       XSM        +2                         
017707,000960: 24,3444           55412                           TS       YSM        +4                         
017708,000961: 24,3445           37754        NSFLAGD            CA       TWO                                   
017709,000962: 24,3446           55541                           TS       PIPINDEX                              
017710,000963: 24,3447           37761        NSBUGD             CA       ZERO                                  
017711,000964: 24,3450           55576                           TS       DRIFTT                                
017712,000965: 24,3451           01546                           TC       QPLACE                                
017713,000966: 
017714,000967: 
017715,000968: 24,3452           37740        POSN4              CA       HALF                                  #   Z DOWN, Y SOUTH ,X EAST
017716,000969: 24,3453           55404                           TS       XSM        +4                         
017717,000970: 24,3454           55410                           TS       YSM        +2                         
017718,000971: 24,3455           40000                           COM                                            #   NBDY+SRAY=DH,NBDZ+ADIAZ=DV
017719,000972: 24,3456           55414                           TS       ZSM                                   
017720,000973: 24,3457           37754                           CA       TWO                                   
017721,000974: 24,3460           55541                           TS       PIPINDEX                              
017722,000975: 24,3461           01546                           TC       QPLACE                                
017723,000976: 
017724,000977: 24,3462           37740        POSN5              CA       HALF                                  #  Y UP, Z NORTH, X WEST

Page 411

017726,000979: 24,3463           55406                           TS       YSM                                   
017727,000980: 24,3464           40000                           COM                                            #   NBDZ-SRAZ=DH
017728,000981: 24,3465           55404                           TS       XSM        +4                         
017729,000982: 24,3466           55416                           TS       ZSM        +2                         
017730,000983: 24,3467           37755                           CA       ONE                                   
017731,000984: 24,3470           55541                           TS       PIPINDEX                              
017732,000985: 24,3471           03447                           TC       NSBUGD                                
017733,000986: 
017734,000987: 
017735,000988: 
017736,000989:                                                                                                  #  TO RUN POSITION 6 VERTICAL AFTER PIP TEST POS 6 IS DISPLAYED THE OPERATR
017737,000990:                                                                                                  #  MUST CALCULATE FROM POSN 2,5 -NBDZ-ADSRAZ (XXX.XX)MERU. WHEN P
017738,000991:                                                                                                  #  IP DATA FLASHES DO VERB 33 ENTER. THIS STARTS VERTICAL TEST. THEN THE
017739,000992:                                                                                                  #  DATA XXX.XX MERU AS CALCULATED MUST BE ENTERED INTO DRIFTT. IE VERB 21
017740,000993:                                                                                                  #  ENTER NOUN 01 ENTER LOCATION OF DRIFTT ENTER + (OR -) XXXXX ENTER
017741,000994: 24,3472           37740        POSN6              CA       HALF                                  #  Y DOWN, Z EAST, X SOUTH
017742,000995: 24,3473           55402                           TS       XSM        +2                         
017743,000996: 24,3474           55420                           TS       ZSM        +4                         
017744,000997: 24,3475           40000                           COM                                            #   NBDX +ADSRAX = DH, NBDY -ADIAY = -DV
017745,000998: 
017746,000999: 24,3476           55406                           TS       YSM                                   
017747,001000: 24,3477           37755                           CA       ONE                                   
017748,001001: 24,3500           55541                           TS       PIPINDEX                              
017749,001002: 24,3501           01546                           TC       QPLACE                                
017750,001003: 
017751,001004: 
017752,001005: 24,3502           47740        POSN7              CS       HALF                                  #  Z UP-EAST,Y UP-WEST,X NORTH.THIS POSITON
017753,001006: 24,3503           55402                           TS       XSM        +2                         
017754,001007: 24,3504           33656                           CA       ROOT1/2                               
017755,001008: 24,3505           55406                           TS       YSM                                   #   NBDX - .707 ADSRAX = -DH
017756,001009: 24,3506           55414                           TS       ZSM                                   
017757,001010: 24,3507           55420                           TS       ZSM        +4                         
017758,001011: 24,3510           40000                           COM                                            
017759,001012: 24,3511           55412                           TS       YSM        +4                         
017760,001013: 24,3512           06036        GEORGES            TC       FLAG1DWN                              #  UNSET GIMBAL LOCK FLAG
017761,001014: 24,3513           00200                           OCT      200                                   
017762,001015: 24,3514           03447                           TC       NSBUGD                                
017763,001016: 
017764,001017: 
017765,001018: 24,3515           37740        POSN8              CA       HALF                                  #  Z UP-SOUTH,Y UP-NORTH,X EAST.THIS POSITN
017766,001019: 24,3516           55404                           TS       XSM        +4                         
017767,001020: 
017768,001021: 24,3517           33656                           CA       ROOT1/2                               #   .707(-NBDZ-NBDY) +.5(ADIAZ-ADIAY)
017769,001022: 24,3520           55406                           TS       YSM                                   #   +.5(ADSRAY +ADSRAZ)=DH
017770,001023: 24,3521           55416                           TS       ZSM        +2                         
017771,001024: 24,3522           55414                           TS       ZSM                                   
017772,001025: 24,3523           40000                           COM                                            
017773,001026: 24,3524           55410                           TS       YSM        +2                         
017774,001027: 24,3525           03447                           TC       NSBUGD                                
017775,001028: 

Page 412

017777,001030: 24,3526           33657        OPCHKPOS           CA       ROOT1SQ                               #  OG=+45DEG,IG=-45DEG,MG=+45DEG.
017778,001031: 24,3527           55400                           TS       XSM                                   
017779,001032: 
017780,001033: 24,3530           55410                           TS       YSM        +2                         
017781,001034: 24,3531           55412                           TS       YSM        +4                         
017782,001035: 24,3532           55414                           TS       ZSM                                   
017783,001036: 24,3533           33656                           CA       ROOT1/2                               
017784,001037: 24,3534           55406                           TS       YSM                                   
017785,001038: 24,3535           33661                           CA       ROOT3SQ                               
017786,001039: 24,3536           55402                           TS       XSM        +2                         
017787,001040: 24,3537           55420                           TS       ZSM        +4                         
017788,001041: 24,3540           43660                           CS       ROOT2SQ                               
017789,001042: 24,3541           55404                           TS       XSM        +4                         
017790,001043: 24,3542           55416                           TS       ZSM        +2                         
017791,001044: 24,3543           01546                           TC       QPLACE                                
017792,001045: 
017793,001046: 24,3544           37740        POSN9              CA       HALF                                  #  X UP EAST,Y UP WEST,Z SOUTH.THIS POSITON
017794,001047: 24,3545           55416                           TS       ZSM        +2                         
017795,001048: 24,3546           33656                           CA       ROOT1/2                               #   -NBDZ +.707 SRAZ =DH
017796,001049: 24,3547           55400                           TS       XSM                                   
017797,001050: 24,3550           55404                           TS       XSM        +4                         
017798,001051: 24,3551           55406                           TS       YSM                                   
017799,001052: 24,3552           40000                           COM                                            
017800,001053: 24,3553           55412                           TS       YSM        +4                         
017801,001054: 24,3554           03447                           TC       NSBUGD                                
017802,001055: 
017803,001056: 
017804,001057: 24,3555           37740        POSN10             CA       HALF                                  #  X UP NORTH, Y UP SOUTH,Z EAST.THIS POSITN
017805,001058: 24,3556           55420                           TS       ZSM        +4                         
017806,001059: 24,3557           33656                           CA       ROOT1/2                               #    .707(NBDY -NBDX) +.5(ADIAY -ADIAX)
017807,001060: 24,3560           55400                           TS       XSM                                   #   +.5(ADSRAX) = DH
017808,001061: 24,3561           55406                           TS       YSM                                   
017809,001062: 24,3562           55410                           TS       YSM        +2                         
017810,001063: 24,3563           40000                           COM                                            
017811,001064: 24,3564           55402                           TS       XSM        +2                         
017812,001065: 24,3565           03447                           TC       NSBUGD                                
017813,001066: 
017814,001067: 
017815,001068: 24,3566           05224        POSN11             TC       BANKCALL                              #  COMPASS POSITION
017816,001069: 24,3567           73100                           CADR     LOADXSM                               
017817,001070: 24,3570           01546                           TC       QPLACE                                
017818,001071: 
017819,001072: 
017820,001073: 24,3571           30342        SHOWLD             CA       DSPTEM2                               
017821,001074: 24,3572           55527                           TS       LENGTHOT                              
017822,001075: 24,3573           30343                           CA       DSPTEM2    +1                         
017823,001076: 24,3574           55536                           TS       NBPOS                                 
017824,001077: 
017825,001078: 24,3575           30344                           CA       DSPTEM2    +2                         
017826,001079: 

Page 413

017828,001081: 24,3576           55544                           TS       POSITON                               
017829,001082: 24,3577           00002                           TC       Q                                     
017830,001083: 
017831,001084: 24,3600           00006        SHOW               EXTEND                                         
017832,001085: 24,3601           23546                           QXCH     QPLACE                                
017833,001086: 24,3602           31544        SHOW1              CA       POSITON                               
017834,001087: 24,3603           54344                           TS       DSPTEM2    +2                         
017835,001088: 24,3604           33636                           CA       VB06N66                               
017836,001089: 
017837,001090: 24,3605           04646                           TC       NVSBWAIT                              
017838,001091: 24,3606           04611                           TC       FLASHON                               
017839,001092: 24,3607           04464                           TC       ENDIDLE                               
017840,001093: 24,3610           02236                           TC       FINISH                                
017841,001094: 24,3611           01546                           TC       QPLACE                                
017842,001095: 24,3612           03571                           TC       SHOWLD                                
017843,001096: 24,3613           13602                           TCF      SHOW1                                 
017844,001097: 
017845,001098: 
017846,001099: 24,3614           00006        LOADGTSM           EXTEND                                         #  THIS LOADS XSM INTO GEOMATRX
017847,001100: 24,3615           23546                           QXCH     QPLACE                                
017848,001101: 24,3616           06103                           TC       INTPRET                               
017849,001102: 24,3617           77775                           VLOAD                                          
017850,001103: 24,3620           02401                                    XSM                                   
017851,001104: 24,3621           26750                           STOVL    GEOMTRX                               
017852,001105: 24,3622           02407                                    YSM                                   
017853,001106: 24,3623           26756                           STOVL    GEOMTRX    +6                         
017854,001107: 24,3624           02415                                    ZSM                                   
017855,001108: 24,3625           02764                           STORE    GEOMTRX    +12D                       
017856,001109: 24,3626           77776                           EXIT                                           
017857,001110: 24,3627           01546                           TC       QPLACE                                
017858,001111: 

Page 414

017860,001113: 24,3630                        14C                EQUALS   0014                                  
017861,001114: 24,3630           02130        V21N30E            OCT      02130                                 
017862,001115: 24,3631           04000        DESANGLE           DEC      2048       B-14                       
017863,001116: 24,3632           04143        SFCONST            DEC      .13107                                
017864,001117: 24,3633           34000        SIZCHK             OCT      34000                                 
017865,001118: 24,3634           00264        180DEC             DEC      180        B-14                       
017866,001119: 24,3635           07626        3990DEC            DEC      3990       B-14                       
017867,001120: 24,3636           00666        VB06N66            OCT      00666                                 
017868,001121: 24,3637           01130        TESTTIME           DEC      600        B-14                       
017869,001122: 24,3640           01620        V16N20S            OCT      01620                                 
017870,001123: 24,3641           01640        V16N40S            OCT      01640                                 
017871,001124: 24,3642           00021        DEC17              DEC      17         B-14                       
017872,001125: 24,3643           06200 00000  DEC585             2DEC     3200       B+14                       
017873,001126: 
017874,001127: 24,3645           00400        DELYOFF            OCT      00400                                 
017875,001128: 24,3646           00024 35474  ERUNITS            2DEC     342844     B-28                       
017876,001129: 
017877,001130: 24,3650           01506        GENPLAD            GENADR   AZIMUTH                               
017878,001131: 24,3651           02521        GYRODPL            ECADR    GYROD                                 
017879,001132: 24,3652           02500        OGCPL              ECADR    OGC                                   
017880,001133: 24,3653           77760        LOWFOUR            OCT      77760                                 
017881,001134: 24,3654           00070        DEC56              DEC      56         B-14                       
017882,001135: 24,3655           10000        45DEG              OCT      10000                                 
017883,001136: 24,3656           13241        ROOT1/2            DEC      .353553                               
017884,001137: 24,3657           10000        ROOT1SQ            DEC      .250000                               
017885,001138: 24,3660           15520        ROOT2SQ            DEC      .426776                               
017886,001139: 24,3661           02260        ROOT3SQ            DEC      .073223                               
017887,001140: 24,3662           01400        XSMADR             GENADR   XSM                                   
017888,001141: 
017889,001142: 
017890,001143: 24,3663           00000 00000  SCNBAZ             2DEC     0          B-28                       
017891,001144: 24,3665           00000 00000                     2DEC     0          B-28                       
017892,001145: 24,3667           20000 00000  LABNBAZ            2DEC     .5                                    
017893,001146: 24,3671           00000 00000                     2DEC     0          B-28                       
017894,001147: 24,3673           00000 00000                     2DEC     0          B-28                       
017895,001148: 24,3675           20000 00000  SCNBVER            2DEC     .5                                    
017896,001149: 24,3677           00000 00000                     2DEC     0          B-28                       
017897,001150: 24,3701           00000 00000  LABNBVER           2DEC     0          B-28                       
017898,001151: 24,3703           00000 00000                     2DEC     0          B-28                       
017899,001152: 24,3705           57777 77777                     2DEC     -.5                                   
017900,001153: 

Page 415

017902,001155: 24,3707           00144        1SECX              DEC      100        B-14                       
017903,001156: 24,3710           17127 16705  GEORGED            2DEC     .47408845                             
017904,001157: 24,3712           07314 36223                     2DEC     .23125894                             
017905,001158: 24,3714           04521 31140                     2DEC     .14561689                             
017906,001159: 24,3716           75755 73521  GEORGEC            2DEC     -.06360691                            
017907,001160: 24,3720           72476 54176                     2DEC     -.16806746                            
017908,001161: 24,3722           04771 03365                     2DEC     .15582939                             
017909,001162: 24,3724           75644 70661  GEORGEB            2DEC     -.06806784                            
017910,001163: 24,3726           47762 75077                     2DEC     -.75079894                            
017911,001164: 24,3730           70023 73740                     2DEC     -.24878704                            

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