Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

018390,000002:                                                                                                  ## Copyright:   Public domain.
018391,000003:                                                                                                  ## Filename:    IMU_CALIBRATION_AND_ALIGNMENT.agc
018392,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
018393,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
018394,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
018395,000007:                                                                                                  ## Assembler:   yaYUL
018396,000008:                                                                                                  ## Reference:   pp. 416-448.
018397,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
018398,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
018399,000011:                                                                                                  ## Mod history: 08/11/04   RSB  Began transcribing.
018400,000012:                                                                                                  ##              2010-10-24 JL   Indentation fixes.
018401,000013:                                                                                                  ##              2011-05-07 JL   Flag SBANK= workarounds for future removal.
018402,000014:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
018403,000015:                                                                                                  ##                              original harcopy, as opposed to the PDF page
018404,000016:                                                                                                  ##                              numbers in 1701.pdf.
018405,000017:                                                                                                  ##              2017-01-14 RSB  Cross-diff'd comment text (not whitespace)
018406,000018:                                                                                                  ##                              vs the already-proofed corresponding Colossus
018407,000019:                                                                                                  ##                              237 and Comanche 55 source-code files
018408,000020:                                                                                                  ##                              and corrected errors found.
018409,000021:                                                                                                  ##
018410,000022:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
018411,000023:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
018412,000024:                                                                                                  ## document read, in part:
018413,000025:                                                                                                  ##
018414,000026:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
018415,000027:                                                                                                  ##      2021111-041.  October 28, 1968.  
018416,000028:                                                                                                  ##
018417,000029:                                                                                                  ##      This AGC program shall also be referred to as
018418,000030:                                                                                                  ##                              Colossus 1A
018419,000031:                                                                                                  ##
018420,000032:                                                                                                  ##      Prepared by
018421,000033:                                                                                                  ##                      Massachusetts Institute of Technology
018422,000034:                                                                                                  ##                      75 Cambridge Parkway
018423,000035:                                                                                                  ##                      Cambridge, Massachusetts
018424,000036:                                                                                                  ##      under NASA contract NAS 9-4065.
018425,000037:                                                                                                  ##
018426,000038:                                                                                                  ## Refer directly to the online document mentioned above for further information.
018427,000039:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
018428,000040:                                                                                                  ##
018429,000041:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
018430,000042:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
018431,000043:                                                                                                  ## source file, and then is proofed to incorporate any changes.
018432,000044: 

Page 416

018434,000046:                                                                                                  #  NAME -        IMU PERFORMANCE TESTS 2
018435,000047: 
018436,000048:                                                                                                  #  DATE -        MARCH 20, 1967
018437,000049: 
018438,000050:                                                                                                  #  BY -          SYSTEM TEST GROUP 864-6900 EXT. 1274
018439,000051: 
018440,000052:                                                                                                  #  MODNO.-       ZERO
018441,000053: 
018442,000054:                                                                                                  #  FUNCTIONAL DESCRIPTION
018443,000055: 
018444,000056:                                                                                                  #  POSITIONING ROUTINES FOR THE IMU PERFORMANCE TESTS AS WELL AS SOME OF
018445,000057:                                                                                                  #  THE TESTS THEMSELVES.  FOR A DESCRIPTION OF THESE SUBROUTINES AND THE
018446,000058:                                                                                                  #  OPERATING PROCEDURES (TYPICALLY) SEE STG MEMO 685.  THEORETICAL REF. E-1973
018447,000059: 
018448,000060: 33,2004                                           BANK     33                                    
018449,000061: 33,2000                                           SETLOC   IMUCAL                                
018450,000062: 33,2000                                           BANK                                           
018451,000063: 33,2004  E5,1423                                  EBANK=   POSITON                               
018452,000064: 
018453,000065: 33,2004           34714        IMUTEST            CA       ZERO                                  
018454,000066: 33,2005           55452                           TS       DRIFTT                                
018455,000067: 33,2006           55643                           TS       GEOCOMP1                              
018456,000068: 33,2007           32443                           CAF      TESTTIME                              
018457,000069: 33,2010           55412                           TS       LENGTHOT                              
018458,000070: 33,2011           02302                           TC       COAALIGN                              #  TAKE CARE OF DRIFT FLAG
018459,000071: 33,2012           34734                           CAF      1SECX                                 
018460,000072: 33,2013           55644                           TS       1SECXT1                               
018461,000073: 
018462,000074: 33,2014           32441                           CA       OC14400                               
018463,000075: 33,2015           55074                           TS       1/PIPADT                              
018464,000076: 
018465,000077: 33,2016           06006        GUESS              TC       INTPRET                               #  CALCULATE -COS LATITUDE AND SIN LATITUDE
018466,000078: 33,2017           77624                           CALL                                           
018467,000079: 33,2020           10617                                    LATAZCHK                              
018468,000080: 33,2021           57546                           COS      DCOMP                                 
018469,000081: 33,2022           77752                           SL1                                            
018470,000082: 33,2023           16447                           STODL    WANGI                                 
018471,000083: 33,2024           02403                                    LATITUDE                              
018472,000084: 33,2025           72556                           SIN      SL1                                   
018473,000085: 33,2026           02445                           STORE    WANGO                                 
018474,000086: 33,2027           77776                           EXIT                                           
018475,000087: 33,2030           04555        GEOIMUTT           TC       BANKCALL                              #  GYROCOMPASS COMES IN HERE
018476,000088: 33,2031           16516                           CADR     IMUZERO                               
018477,000089: 33,2032           02316                           TC       IMUSTLLG                              
018478,000090: 33,2033           34714        IMUBACK            CA       ZERO                                  
018479,000091: 33,2034           55421                           TS       NDXCTR                                
018480,000092: 33,2035           55450                           TS       TORQNDX                               
018481,000093: 33,2036           55451                           TS       TORQNDX    +1                         
018482,000094: 33,2037           34375        NBPOSPL            CA       DEC17                                 
018483,000095: 33,2040           55655                           TS       ZERONDX1                              
018484,000096: 33,2041           32445                           CA       XNBADR                                

Page 417

018486,000098: 33,2042           02356                           TC       ZEROING                               
018487,000099: 33,2043           34675                           CA       HALF                                  
018488,000100: 33,2044           55713                           TS       XNB                                   
018489,000101: 33,2045           06006                           TC       INTPRET                               
018490,000102: 33,2046           73545                           DLOAD    SIN                                   
018491,000103: 33,2047           02401                                    AZIMUTH                               
018492,000104: 33,2050           02724                           STORE    YNB        +2                         
018493,000105: 33,2051           16734                           STODL    ZNB        +4                         
018494,000106: 33,2052           02401                                    AZIMUTH                               
018495,000107: 33,2053           77746                           COS                                            
018496,000108: 33,2054           02726                           STORE    YNB        +4                         
018497,000109: 33,2055           77676                           DCOMP                                          
018498,000110: 33,2056           02732                           STORE    ZNB        +2                         
018499,000111: 33,2057           77776                           EXIT                                           
018500,000112: 33,2060           05253                           TC       CHECKMM                               
018501,000113: 33,2061           00003                           MM       03         B-14                       #  SEE IF IN OPTICAL VERIFICATION
018502,000114: 33,2062           12064                           TCF      +2                                    #  NO
018503,000115: 33,2063           13432                           TCF      SETNBPOS   +1                         #  YES
018504,000116: 33,2064           06006                           TC       INTPRET                               
018505,000117: 33,2065           77624                           CALL                                           
018506,000118: 33,2066           47244                                    CALCGA                                
018507,000119: 33,2067           77776                           EXIT                                           
018508,000120: 33,2070           04555                           TC       BANKCALL                              
018509,000121: 33,2071           16602                           CADR     IMUCOARS                              
018510,000122: 33,2072           34675                           CAF      BIT14                                 #  IF BIT14 SET, GIMBAL LOCK
018511,000123: 33,2073           70077                           MASK     FLAGWRD3                              
018512,000124: 33,2074           00006                           EXTEND                                         
018513,000125: 33,2075           12077                           BZF      +2                                    
018514,000126: 33,2076           25421                           INCR     NDXCTR                                #  +1 IF IN GIMBAL LOCK, OTHERWISE 0
018515,000127: 33,2077           05447                           TC       DOWNFLAG                              #  RESET GIMBAL LOCK FLAG
018516,000128: 33,2100           00056                           ADRES    GLOKFAIL                              #  BIT 14 FLAG 3
018517,000129: 33,2101           02316                           TC       IMUSTLLG                              
018518,000130: 33,2102           11421                           CCS      NDXCTR                                #  IF ONE GO AND DO A PIPA TEST ONLY
018519,000131: 33,2103           02131                           TC       PIPACHK                               #  ALIGN AND MEASURE VERTICAL PIPA RATE
018520,000132: 33,2104           04555                           TC       BANKCALL                              
018521,000133: 33,2105           17012                           CADR     IMUFINE                               
018522,000134: 33,2106           02316                           TC       IMUSTLLG                              
018523,000135: 33,2107           00006                           EXTEND                                         
018524,000136: 33,2110           31657                           DCA      PERFDLAY                              
018525,000137: 33,2111           05231                           TC       LONGCALL                              

[WORKAROUND] RSB 2004

018527,000139: 33,2112  30,2000                                  SBANK=   LOWSUPER                              
018528,000140: 33,2112  E5,1423                                  EBANK=   POSITON                               
018529,000141: 33,2112           02116 66065                     2CADR    GOESTIMS                              
018530,000142: 
018531,000143: 33,2114           32121                           CA       ESTICADR                              
018532,000144: 33,2115           05070                           TC       JOBSLEEP                              
018533,000145: 33,2116           32121        GOESTIMS           CA       ESTICADR                              
018534,000146: 33,2117           05074                           TC       JOBWAKE                               
018535,000147: 33,2120           05213                           TC       TASKOVER                              
018536,000148: 33,2121           66453        ESTICADR           CADR     ESTIMS                                

Page 418

018538,000150: 33,2122           34714        TORQUE             CA       ZERO                                  
018539,000151: 33,2123           55050                           TS       DSPTEM2                               
018540,000152: 33,2124           31514                           CA       DRIFTI                                
018541,000153: 33,2125           55051                           TS       DSPTEM2    +1                         
018542,000154: 33,2126           51423                           INDEX    POSITON                               
018543,000155: 33,2127           55430                           TS       SOUTHDR    -1                         
018544,000156: 33,2130           02427                           TC       SHOW                                  
018545,000157: 
018546,000158: 33,2131           51421        PIPACHK            INDEX    NDXCTR                                #  PIPA TEST
018547,000159: 33,2132           02133                           TC       +1                                    
018548,000160: 33,2133           02417                           TC       EARTHR*                               
018549,000161: 33,2134           34374                           CA       DEC57                                 
018550,000162: 33,2135           55412                           TS       LENGTHOT                              
018551,000163: 33,2136           34712                           CA       ONE                                   
018552,000164: 33,2137           55547                           TS       RESULTCT                              
018553,000165: 33,2140           34714                           CA       ZERO                                  
018554,000166: 33,2141           51422                           INDEX    PIPINDEX                              
018555,000167: 33,2142           54037                           TS       PIPAX                                 
018556,000168: 33,2143           55502                           TS       DATAPL                                
018557,000169: 33,2144           55506                           TS       DATAPL     +4                         
018558,000170: 33,2145           02321                           TC       CHECKG                                #  PIP PULSE CATCHING ROUTINE
018559,000171: 33,2146           00004                           INHINT                                         
018560,000172: 33,2147           34711                           CAF      TWO                                   
018561,000173: 33,2150           05130                           TC       TWIDDLE                               
018562,000174: 33,2151  E5,1671                                  EBANK=   XSM                                   
018563,000175: 33,2151           02153                           ADRES    PIPATASK                              
018564,000176: 33,2152           05112                           TC       ENDOFJOB                              
018565,000177: 
018566,000178: 33,2153           00006        PIPATASK           EXTEND                                         
018567,000179: 33,2154           27412                           DIM      LENGTHOT                              
018568,000180: 33,2155           31412                           CA       LENGTHOT                              
018569,000181: 33,2156           00006                           EXTEND                                         
018570,000182: 33,2157           62163                           BZMF     STARTPIP                              
018571,000183: 33,2160           34701                           CAF      BIT10                                 
018572,000184: 33,2161           05130                           TC       TWIDDLE                               
018573,000185: 33,2162  E5,1671                                  EBANK=   XSM                                   
018574,000186: 33,2162           02153                           ADRES    PIPATASK                              
018575,000187: 33,2163           34675        STARTPIP           CAF      PRIO20                                
018576,000188: 33,2164           05042                           TC       FINDVAC                               
018577,000189: 33,2165  E5,1671                                  EBANK=   XSM                                   
018578,000190: 33,2165           02170 66065                     2CADR    PIPJOBB                               
018579,000191: 
018580,000192: 33,2167           05213                           TC       TASKOVER                              
018581,000193: 
018582,000194: 33,2170           51421        PIPJOBB            INDEX    NDXCTR                                
018583,000195: 33,2171           02172                           TC       +1                                    
018584,000196: 33,2172           02417                           TC       EARTHR*                               
018585,000197: 33,2173           31412                           CA       LENGTHOT                              
018586,000198: 33,2174           00006                           EXTEND                                         
018587,000199: 33,2175           62177                           BZMF     +2                                    
018588,000200: 33,2176           05112                           TC       ENDOFJOB                              
018589,000201: 33,2177           34715                           CA       FIVE                                  

Page 419

018591,000203: 33,2200           55547                           TS       RESULTCT                              
018592,000204: 33,2201           02321                           TC       CHECKG                                
018593,000205: 33,2202           00006                           EXTEND                                         
018594,000206: 33,2203           41503                           DCS      DATAPL                                
018595,000207: 33,2204           21507                           DAS      DATAPL     +4                         
018596,000208: 
018597,000209: 33,2205           06006                           TC       INTPRET                               
018598,000210: 33,2206           45345                           DLOAD    DSU                                   
018599,000211: 33,2207           02511                                    DATAPL     +6                         
018600,000212: 33,2210           02505                                    DATAPL     +2                         
018601,000213: 33,2211           45044                           BPL      CALL                                  
018602,000214: 33,2212           66214                                    AINGOTN                               
018603,000215: 33,2213           66276                                    OVERFFIX                              
018604,000216: 33,2214           56325        AINGOTN            PDDL     DDV                                   
018605,000217: 33,2215           02507                                    DATAPL     +4                         
018606,000218: 33,2216           57212                           SL4      DMPR                                  
018607,000219: 33,2217           27111                                    DEC585                                #  DEC585 HAS BEEN REDEFINED FOR LEM
018608,000220: 33,2220           77634                           RTB                                            
018609,000221: 33,2221           45541                                    SGNAGREE                              
018610,000222: 33,2222           01051                           STORE    DSPTEM2                               
018611,000223: 33,2223           77776                           EXIT                                           
018612,000224: 33,2224           11421                           CCS      NDXCTR                                
018613,000225: 33,2225           02302                           TC       COAALIGN                              #  TAKE PLATFORM OUT OF GIMBAL LOCK
018614,000226: 33,2226           02427                           TC       SHOW                                  
018615,000227: 33,2227           32447        VERTDRFT           CA       3990DEC                               #  ABOUT 1 HOUR VERTICAL DRIFT TEST
018616,000228: 33,2230           55412                           TS       LENGTHOT                              
018617,000229: 33,2231           51423                           INDEX    POSITON                               
018618,000230: 33,2232           41427                           CS       SOUTHDR    -2                         
018619,000231: 33,2233           55452                           TS       DRIFTT                                
018620,000232: 33,2234           31675                           CA       XSM        +4                         #  0 IF POSN 4
018621,000233: 33,2235           00006                           EXTEND                                         
018622,000234: 33,2236           12244                           BZF      PON2                                  
018623,000235: 33,2237           44706        PON4               CS       BIT5                                  #  OFFSET PLATFORM
018624,000236: 33,2240           27651                           ADS      ERCOMP1    +2                         
018625,000237: 33,2241           34706                           CA       BIT5                                  
018626,000238: 33,2242           27647                           ADS      ERCOMP1                               
018627,000239: 33,2243           12250                           TCF      PONG                                  
018628,000240: 33,2244           44706        PON2               CS       BIT5                                  
018629,000241: 33,2245           27651                           ADS      ERCOMP1    +2                         
018630,000242: 33,2246           34706                           CA       BIT5                                  
018631,000243: 33,2247           27653                           ADS      ERCOMP1    +4                         
018632,000244: 33,2250           02417        PONG               TC       EARTHR*                               
018633,000245: 33,2251           34714                           CA       ZERO                                  #  ALLOW ONLY SOUTH GYRO EARTH RATE COMPENS
018634,000246: 33,2252           55404                           TS       ERVECTOR                              
018635,000247: 33,2253           55405                           TS       ERVECTOR   +1                         
018636,000248: 33,2254           34672        GUESS1             CAF      POSMAX                                
018637,000249: 33,2255           55450                           TS       TORQNDX                               
018638,000250: 33,2256           55451                           TS       TORQNDX    +1                         
018639,000251: 33,2257           30032                           CA       CDUX                                  
018640,000252: 33,2260           55413                           TS       LOSVEC                                

Page 420

018642,000254: 33,2261           02453                           TC       ESTIMS                                
018643,000255: 33,2262           31512        VALMIS             CA       DRIFTO                                
018644,000256: 33,2263           55051                           TS       DSPTEM2    +1                         
018645,000257: 33,2264           34714                           CA       ZERO                                  
018646,000258: 33,2265           55050                           TS       DSPTEM2                               
018647,000259: 33,2266           02427                           TC       SHOW                                  
018648,000260: 
018649,000261: 33,2267           05447        ENDTEST1           TC       DOWNFLAG                              #  IMU NOT IN USE
018650,000262: 33,2270           00007                           ADRES    IMUSE                                 #  BIT 8 FLAG 0
018651,000263: 33,2271           44714                           CS       ZERO                                  
018652,000264: 33,2272           05246                           TC       NEWMODEX   +3                         
018653,000265: 33,2273           04555                           TC       BANKCALL                              
018654,000266: 33,2274           16063                           CADR     MKRELEAS                              
018655,000267: 33,2275           05423                           TC       ENDEXT                                

Page 421

018657,000269: 
018658,000270: 33,2276           43215        OVERFFIX           DAD      DAD                                   
018659,000271: 33,2277           15340                                    DPPOSMAX                              
018660,000272: 33,2300           27117                                    ONEDPP                                
018661,000273: 33,2301           77616                           RVQ                                            
018662,000274: 
018663,000275: 33,2302           00006        COAALIGN           EXTEND                                         #  COARSE ALIGN SUBROUTINE
018664,000276: 33,2303           23425                           QXCH     QPLACE                                
018665,000277: 33,2304           34714                           CA       ZERO                                  
018666,000278: 33,2305           55155                           TS       THETAD                                
018667,000279: 33,2306           55156                           TS       THETAD     +1                         
018668,000280: 33,2307           55157                           TS       THETAD     +2                         
018669,000281: 33,2310           04555                           TC       BANKCALL                              
018670,000282: 33,2311           16602                           CADR     IMUCOARS                              
018671,000283: 33,2312           04555                           TC       BANKCALL                              
018672,000284: 33,2313           17516                           CADR     IMUSTALL                              
018673,000285: 33,2314           03103                           TC       SOMERR2                               
018674,000286: 33,2315           01425                           TC       QPLACE                                
018675,000287: 
018676,000288: 33,2316           00006        IMUSTLLG           EXTEND                                         
018677,000289: 33,2317           23425                           QXCH     QPLACE                                
018678,000290: 33,2320           02312                           TC       COAALIGN   +10                        
018679,000291: 
018680,000292: 33,2321           00006        CHECKG             EXTEND                                         #  PIP PULSE CATCHING ROUTINE
018681,000293: 33,2322           23425                           QXCH     QPLACE                                
018682,000294: 33,2323           02331                           TC       +6                                    
018683,000295: 33,2324           00003        CHECKG1            RELINT                                         
018684,000296: 33,2325           30067                           CA       NEWJOB                                
018685,000297: 33,2326           00006                           EXTEND                                         
018686,000298: 33,2327           62335                           BZMF     +6                                    
018687,000299: 33,2330           05057                           TC       CHANG1                                
018688,000300: 33,2331           00004                           INHINT                                         
018689,000301: 33,2332           51422                           INDEX    PIPINDEX                              
018690,000302: 33,2333           40037                           CS       PIPAX                                 
018691,000303: 33,2334           55655                           TS       ZERONDX                               
018692,000304: 33,2335           00004                           INHINT                                         
018693,000305: 33,2336           51422                           INDEX    PIPINDEX                              
018694,000306: 33,2337           30037                           CA       PIPAX                                 
018695,000307: 33,2340           61655                           AD       ZERONDX                               
018696,000308: 33,2341           00006                           EXTEND                                         
018697,000309: 33,2342           12324                           BZF      CHECKG1                               
018698,000310: 33,2343           51422                           INDEX    PIPINDEX                              
018699,000311: 33,2344           30037                           CA       PIPAX                                 
018700,000312: 33,2345           51547                           INDEX    RESULTCT                              
018701,000313: 33,2346           55502                           TS       DATAPL                                
018702,000314: 33,2347           04526                           TC       FINETIME                              
018703,000315: 33,2350           51547                           INDEX    RESULTCT                              
018704,000316: 33,2351           55503                           TS       DATAPL     +1                         

Page 422

018706,000318: 33,2352           51547                           INDEX    RESULTCT                              
018707,000319: 33,2353           23504                           LXCH     DATAPL     +2                         
018708,000320: 33,2354           00003                           RELINT                                         
018709,000321: 33,2355           01425        ENDCHKG            TC       QPLACE                                
018710,000322: 
018711,000323: 33,2356           54001        ZEROING            TS       L                                     
018712,000324: 33,2357           12361                           TCF      +2                                    
018713,000325: 33,2360           55655        ZEROING1           TS       ZERONDX1                              
018714,000326: 33,2361           34714                           CAF      ZERO                                  
018715,000327: 33,2362           50001                           INDEX    L                                     
018716,000328: 33,2363           54000                           TS       0                                     
018717,000329: 33,2364           24001                           INCR     L                                     
018718,000330: 33,2365           11655                           CCS      ZERONDX1                              
018719,000331: 33,2366           12360                           TCF      ZEROING1                              
018720,000332: 33,2367           00002                           TC       Q                                     
018721,000333: 

Page 423

018723,000335: 32,2000                                           SETLOC   IMUCAL3                               
018724,000336: 32,2000                                           BANK                                           
018725,000337: 32,2000           65345        ERTHRVSE           DLOAD    PDDL                                  
018726,000338: 32,2001           27112                                    SCHZEROS                              #  PD24 = (SIN          -COS    0)(OMEG/MS)
018727,000339: 32,2002           02403                                    LATITUDE                              
018728,000340: 32,2003           57546                           COS      DCOMP                                 
018729,000341: 32,2004           73525                           PDDL     SIN                                   
018730,000342: 32,2005           02403                                    LATITUDE                              
018731,000343: 32,2006           74266                           VDEF     VXSC                                  
018732,000344: 32,2007           26450                                    OMEG/MS                               
018733,000345: 32,2010           02405                           STORE    ERVECTOR                              
018734,000346: 32,2011           77634                           RTB                                            
018735,000347: 32,2012           45505                                    LOADTIME                              
018736,000348: 32,2013           26443                           STOVL    TMARK                                 
018737,000349: 32,2014           27112                                    SCHZEROS                              
018738,000350: 32,2015           02650                           STORE    ERCOMP1                               
018739,000351: 32,2016           77616                           RVQ                                            
018740,000352: 33,2000                                           SETLOC   IMUCAL                                
018741,000353: 33,2000                                           BANK                                           
018742,000354: 
018743,000355: 33,2370           47020        EARTHR             ITA      RTB                                   #  CALCULATES AND COMPENSATES EARTH RATE
018744,000356: 33,2371           00051                                    S2                                    
018745,000357: 33,2372           45505                                    LOADTIME                              
018746,000358: 33,2373           02441                           STORE    TEMPTIME                              
018747,000359: 33,2374           51025                           DSU      BPL                                   
018748,000360: 33,2375           02443                                    TMARK                                 
018749,000361: 33,2376           66401                                    ERTHR                                 
018750,000362: 33,2377           77624                           CALL                                           
018751,000363: 33,2400           66276                                    OVERFFIX                              
018752,000364: 33,2401           74261        ERTHR              SL       VXSC                                  
018753,000365: 33,2402           20212                                    9D                                    
018754,000366: 33,2403           02405                                    ERVECTOR                              
018755,000367: 33,2404           53321                           MXV      VAD                                   
018756,000368: 33,2405           02672                                    XSM                                   
018757,000369: 33,2406           02650                                    ERCOMP1                               
018758,000370: 33,2407           16650                           STODL    ERCOMP1                               
018759,000371: 33,2410           02441                                    TEMPTIME                              
018760,000372: 33,2411           02443                           STORE    TMARK                                 
018761,000373: 33,2412           47170                           AXT,1    RTB                                   
018762,000374: 33,2413           02647                           ECADR    ERCOMP1                               
018763,000375: 33,2414           45650                                    PULSEIMU                              
018764,000376: 33,2415           77650                           GOTO                                           
018765,000377: 33,2416           00051                                    S2                                    
018766,000378: 
018767,000379: 33,2417           00006        EARTHR*            EXTEND                                         
018768,000380: 33,2420           23426                           QXCH     QPLACES                               
018769,000381: 33,2421           06006                           TC       INTPRET                               
018770,000382: 33,2422           77624                           CALL                                           
018771,000383: 33,2423           66370                                    EARTHR                                
018772,000384: 33,2424           77776        PROUT              EXIT                                           
018773,000385: 33,2425           02316                           TC       IMUSTLLG                              
018774,000386: 33,2426           01426                           TC       QPLACES                               

Page 424

018776,000388: 
018777,000389: 33,2427           00006        SHOW               EXTEND                                         
018778,000390: 33,2430           23425                           QXCH     QPLACE                                
018779,000391: 33,2431           31423        SHOW1              CA       POSITON                               
018780,000392: 33,2432           55052                           TS       DSPTEM2    +2                         
018781,000393: 33,2433           32442                           CA       VB06N98                               
018782,000394: 33,2434           04555                           TC       BANKCALL                              
018783,000395: 33,2435           20624                           CADR     GOFLASH                               
018784,000396: 33,2436           02267                           TC       ENDTEST1                              #  V34
018785,000397: 33,2437           01425                           TC       QPLACE                                #  V33
018786,000398: 33,2440           12431                           TCF      SHOW1                                 
018787,000399: 
018788,000400: 33,2441           14400        OC14400            OCT      14400                                 
018789,000401: 33,2442  33,2447               3990DEC            =        OMEG/MS                               
018790,000402: 33,2442           01542        VB06N98            VN       0698                                  
018791,000403: 33,2443           01602        TESTTIME           OCT      01602                                 
018792,000404: 33,2444     4375               DEC17              =        ND1                                   
018793,000405: 33,2444           02757        OGCPL              ECADR    OGC                                   
018794,000406: 33,2445     4734               1SECX              =        1SEC                                  
018795,000407: 33,2445     4374               DEC57              =        VD1                                   
018796,000408: 33,2445           01713        XNBADR             GENADR   XNB                                   
018797,000409: 33,2446           01671        XSMADR             GENADR   XSM                                   
018798,000410: 33,2447           07623 26552  OMEG/MS            2DEC     .24339048                             
018799,000411: 
018800,000412: 33,2451           04555        P11OUT             TC       BANKCALL                              
018801,000413: 33,2452           70127                           CADR     MATRXJOB                              #  RETURN TO P11
018802,000414: 
018803,000415: 33,2453                                           COUNT    02.COMST                              
018804,000416: 
018805,000417:    4526                                           BLOCK    2                                     
018806,000418: 
018807,000419:    4526           00004        FINETIME           INHINT                                         #  RETURNS WITH INTERRUPT INHIBITED
018808,000420:    4527           00006                           EXTEND                                         
018809,000421:    4530           00004                           READ     LOSCALAR                              
018810,000422:    4531           54001                           TS       L                                     
018811,000423:    4532           00006                           EXTEND                                         
018812,000424:    4533           06004                           RXOR     LOSCALAR                              
018813,000425:    4534           00006                           EXTEND                                         
018814,000426:    4535           14541                           BZF      +4                                    
018815,000427:    4536           00006                           EXTEND                                         
018816,000428:    4537           00004                           READ     LOSCALAR                              
018817,000429:    4540           54001                           TS       L                                     
018818,000430:    4541           44672                 +4        CS       POSMAX                                
018819,000431:    4542           60001                           AD       L                                     
018820,000432:    4543           00006                           EXTEND                                         
018821,000433:    4544           14527                           BZF      FINETIME   +1                         
018822,000434:    4545           00006                           EXTEND                                         
018823,000435:    4546           00003                           READ     HISCALAR                              
018824,000436:    4547           00002                           TC       Q                                     
018825,000437: 

Page 425

018827,000439:                                                                                                  #  PROGRAM NAME-OPTIMUM PRELAUNCH ALIGNMENT CALIBRATION
018828,000440:                                                                                                  #  DATE-  NOVEMBER 2 1966
018829,000441:                                                                                                  #  BY-  GEORGE SCHMIDT IL 7-146 EXT. 126
018830,000442:                                                                                                  #  MOD NO 3
018831,000443: 
018832,000444:                                                                                                  #  FUNCTIONAL DESCRIPTION
018833,000445: 
018834,000446:                                                                                                  #  THIS SECTION CONSISTS OF PRELAUNCH ALIGNMENT AND GYRO DRIFT TESTS
018835,000447:                                                                                                  #  INTEGRATED TOGETHER TO SAVE WORDS.  COMPASS IS COMPLETELY RESTART
018836,000448:                                                                                                  #  PROOFED EXCEPT FOR THE FIRST 30 SECONDS OR SO.  PERFORMANCE TESTS OF
018837,000449:                                                                                                  #  THE IRIGS IS RESTART PROOFED ENOUGH TO GIVE 75 PERCENT CONFIDENCE THAT
018838,000450:                                                                                                  #  IF A RESTART OCCURS THE DATA WILL STILL BE GOOD.  GOOD PRACTICE TO RECYCL
018839,000451:                                                                                                  #  WHEN A RESTART OCCURS UNLESS IT HAPPENS NEAR THE END OF A TEST-THEN WAIT
018840,000452:                                                                                                  #  FOR THE DATA TO FLASH.
018841,000453: 
018842,000454:                                                                                                  #  A RESTART IN GYROCOMPASS DURING GYRO TORQUING CAUSES PULSES TO BE LOST
018843,000455:                                                                                                  #  THE PRELAUNCH ALIGNMENT TECHNIQUE IS BASICALLY THE SAME AS IN BLOCK 1
018844,000456:                                                                                                  #  EXCEPT THAT IT HAS BEEN SIMPLIFIED IN THE SENSE THAT SMALL ANGLE APPROX.
018845,000457:                                                                                                  #  HAVE BEEN USED.  THE DRIFT TESTS USE A UNIQUE IMPLEMENTATION OF THE 
018846,000458:                                                                                                  #  OPTIMUM STATISTICAL FILTER.  FOR A DESCRIPTION SEE E-1973.  BOTH OF THESE
018847,000459:                                                                                                  #  ROUTINES USE STANDARD SYSTEM TEST LEADIN PROCEDURES.  THE INITIALIZATION
018848,000460:                                                                                                  #  PROCEDURE FOR THE DRIFT TESTS IS IN THE JDC S.  THE INITIALIZATION METHOD
018849,000461:                                                                                                  #  FOR GYROCOMPASS IS AN ERAS LOAD THEN A MISSION PHASE CALL.
018850,000462:                                                                                                  #  THE COMPASS ALIGNS TO Z DOWN, X DOWNRANGE, HAS THE CAPABILITY
018851,000463:                                                                                                  #  CHANGE AZIMUTH WHILE RUNNING, IS COMPENSATED FOR
018852,000464:                                                                                                  #  COMPONENT ERRORS, IS CAPABLE OF OPTICAL VERIFICATION (CSM ONLY).
018853,000465: 
018854,000466:                                                                                                  #  COMPASS ERASABLE LOAD REQUIRED
018855,000467: 
018856,000468:                                                                                                  #        1-      LAUNCHAZ-DP AZIMUTH IN REV FROM NORTH OF XSM DESIRED    (NOM=.2)
018857,000469:                                                                                                  #        2-      LATITUDE-DP-OF LAUNCH PAD
018858,000470:                                                                                                  #        3-      AZIMUTH-DP-OF ZNB OF VEHICLE
018859,000471:                                                                                                  #        4-      IMU COMPENSATION PARAMETERS
018860,000472:                                                                                                  #        5-      AZ AND ELEVATION OF TARGETS 1,2         ****OPTIONAL****
018861,000473: 
018862,000474:                                                                                                  #  TO PERFORM AS PART OF COMPASS
018863,000475: 
018864,000476:                                                                                                  #        1-      OPTICAL VERIFICATION- V 65 E
018865,000477:                                                                                                  #        2-      AZIMUTH CHANGE- V 78 E
018866,000478: 
018867,000479:                                                                                                  #  SUBROUTINES CALLED
018868,000480: 
018869,000481:                                                                                                  #  DURING OPTICAL VERIFICATION (CSM ONLY) ESSENTIALLY ALL OF INFLIGHT ALIGN
018870,000482:                                                                                                  #  IS CALLED IN ONE WAY OR ANOTHER.  SEE THE LISTING.
018871,000483: 
018872,000484:                                                                                                  #  NORMAL EXIT
018873,000485: 
018874,000486:                                                                                                  #  DRIFT TESTS-  LENGTHOT GOES TO ZERO-RETURN TO IMU PERF TEST2 CONTROL
018875,000487:                                                                                                  #  GYROCOMPASS-MANY, SEE THE LISTING
018876,000488: 
018877,000489:                                                                                                  #  ALARMS
018878,000490: 
018879,000491:                                                                                                  #  1600  OVERFLOW IN DRIFT TEST

Page 426

018881,000493:                                                                                                  #  1601  BAD IMU TORQUE ABORT
018882,000494:                                                                                                  #  1602  BAD OPTICS DURING VERIFICATION-RETURN TO COMPASS        CSM ONLY
018883,000495: 
018884,000496:                                                                                                  #  OUTPUT
018885,000497: 
018886,000498:                                                                                                  #  DRIFT TESTS-  FLASHING DISPLAYS OF RESULTS-CONTROLLED IN IMU PERF TESTS 2
018887,000499:                                                                                                  #  COMPASS-PROGRAM MODE LIGHTS TELL YOU WHAT PHASE OF PROGRAM YOU ARE IN
018888,000500:                                                                                                  #        01      INITIALIZING THE PLATFORM POSITION AND ERASABLE
018889,000501:                                                                                                  #        02      GYROCOMPASSING
018890,000502:                                                                                                  #        03      DOING OPTICAL VERIFICATION (CSM)
018891,000503: 
018892,000504:                                                                                                  #  DEBRIS
018893,000505: 
018894,000506:                                                                                                  #  ALL CENTRALS, ALL OF EBANK XSM
018895,000507: 

Page 427

018897,000509:                                                                                                  #  MOST OF THE ROUTINES COMMON TO ALIGNMENT AND CALIBRATION APPEAR
018898,000510:                                                                                                  #  ON THE NEXT FEW PAGES.
018899,000511: 
018900,000512:    4550                                           COUNT    33/P02                                
018901,000513: 
018902,000514:    4550  E5,1671                                  EBANK=   XSM                                   
018903,000515: 33,2453                                           BANK     33                                    
018904,000516: 33,2000                                           SETLOC   IMUCAL                                
018905,000517: 33,2000                                           BANK                                           
018906,000518: 
018907,000519: 33,2453           05261        ESTIMS             TC       2PHSCHNG                              #  COMES HERE FROM IMU2
018908,000520: 33,2454           00075                           OCT      00075                                 
018909,000521: 33,2455           00004                           OCT      00004                                 #  TURN OFF GROUP 4 IF ON
018910,000522: 
018911,000523: 
018912,000524: 33,2456           00004        RSTGTS1            INHINT                                         #  COMES HERE PHASE1 RESTART
018913,000525: 33,2457           30025                           CA       TIME1                                 
018914,000526: 33,2460           55645                           TS       GTSWTLT1                              
018915,000527: 33,2461           34714                           CAF      ZERO                                  #  ZERO THE PIPAS
018916,000528: 33,2462           54037                           TS       PIPAX                                 
018917,000529: 33,2463           54040                           TS       PIPAY                                 
018918,000530: 33,2464           54041                           TS       PIPAZ                                 
018919,000531: 33,2465           00003                           RELINT                                         
018920,000532: 33,2466           33130                           CA       77DECML                               #  ZERO ALL NECESSARY LOCATIONS
018921,000533: 33,2467           55655                           TS       ZERONDX1                              
018922,000534: 33,2470           33131                           CA       ALXXXZ                                
018923,000535: 33,2471           02356                           TC       ZEROING                               
018924,000536: 33,2472           06006                           TC       INTPRET                               
018925,000537: 33,2473           77735                           SLOAD                                          
018926,000538: 33,2474           27112                                    SCHZEROS                              
018927,000539: 33,2475           25477                           STOVL    GCOMPSW    -1                         
018928,000540: 33,2476           27123                                    INTVAL     +2                         #  LOAD SOME INITIAL DRIFT GAINS
018929,000541: 33,2477           26455                           STOVL    ALX1S                                 
018930,000542: 33,2500           27112                                    SCHZEROS                              
018931,000543: 33,2501           01472                           STORE    GCOMP                                 
018932,000544: 33,2502           01163                           STORE    DELVX                                 #  GCOMPZER SUBROUTINE NO LONGER NEEDED
018933,000545: 33,2503           77776                           EXIT                                           
018934,000546: 
018935,000547: 33,2504           11643                           CCS      GEOCOMP1                              #  NON ZERO IF COMPASS.
018936,000548: 33,2505           02507                           TC       +2                                    
018937,000549: 33,2506           02523                           TC       SLEEPIE    +1                         
018938,000550: 33,2507           06006                           TC       INTPRET                               
018939,000551: 33,2510           77624                           CALL                                           
018940,000552: 33,2511           64000                                    ERTHRVSE                              
018941,000553: 33,2512           77776                           EXIT                                           
018942,000554: 33,2513           31412                           CA       LENGTHOT                              #  TIMES FIVE IS THE NUM OF SEC ERECTING
018943,000555: 33,2514           55646                           TS       ERECTIME                              
018944,000556: 
018945,000557: 33,2515           05243                           TC       NEWMODEX                              
018946,000558: 33,2516           00002                           MM       02         B-14                       
018947,000559: 33,2517           04555                           TC       BANKCALL                              #  SET UP PIPA FAIL TO CAUSE ISS ALARM

Page 428

018949,000561: 33,2520           17075                           CADR     PIPUSE                                #  COMPASS NEVER TURNS THIS OFF
018950,000562: 33,2521           03376                           TC       ANNNNNN                               #  END OF FIRST TIME THROUGH
018951,000563: 

Page 429

018953,000565:                                                                                                  #  COMES HERE AT THE END OF EVERY ITERATION THROUGH DRIFT TEST OR COMPASS
018954,000566: 
018955,000567:                                                                                                  #  SET UP WAITLIST SECTION
018956,000568: 33,2522           55412        SLEEPIE            TS       LENGTHOT                              #  TEST NOT OVER-DECREMENT LENGTHOT
018957,000569: 33,2523           05301                           TC       PHASCHNG                              #  CHANGE PHASE
018958,000570: 33,2524           00135                           OCT      00135                                 
018959,000571: 33,2525           11450                           CCS      TORQNDX                               #  ARE WE DOING VERTDRIFT
018960,000572: 33,2526           02417                           TC       EARTHR*                               #  TRUE TORQUE SOUTH GYRO
018961,000573: 33,2527           03401        WTLISTNT           TC       CHKCOMED                              #  SEE IF COMPASS OVER
018962,000574: 33,2530           02532                           TC       SETGWLST                              
018963,000575: 33,2531           05112                           TC       ENDOFJOB                              
018964,000576: 
018965,000577: 33,2532           00006        SETGWLST           EXTEND                                         
018966,000578: 33,2533           22154                           QXCH     MPAC                                  #  CALLED EVERY WAITLIST OR AZIMUTH CHANGE
018967,000579: 33,2534           00004                           INHINT                                         
018968,000580: 33,2535           40025                           CS       TIME1                                 
018969,000581: 33,2536           61645                           AD       GTSWTLT1                              
018970,000582: 33,2537           00006                           EXTEND                                         
018971,000583: 33,2540           62542                           BZMF     +2                                    
018972,000584: 33,2541           64674                           AD       NEGMAX                                #  10 MS ERROR OK
018973,000585: 33,2542           61644                           AD       1SECXT1                               #  1 SEC FOR CALIBRATION, .5 SEC IN COMPASS
018974,000586: 33,2543           00006                           EXTEND                                         
018975,000587: 33,2544           62550                           BZMF     RIGHTGTS                              
018976,000588: 33,2545           05130        WTGTSMPL           TC       TWIDDLE                               
018977,000589: 33,2546  E5,1540                                  EBANK=   ALTIM                                 
018978,000590: 33,2546           02575                           ADRES    ALLOOP                                
018979,000591: 33,2547           00154                           TC       MPAC                                  
018980,000592: 33,2550           34710        RIGHTGTS           CAF      FOUR                                  #  SET UP NEXT WAITLIST-ALLOW SOME TIME
018981,000593: 33,2551           02545                           TC       WTGTSMPL                              #  END OF WAITLIST SECTION
018982,000594: 
018983,000595:                                                                                                  #  STORE AND LOAD DATA SECTIONS FOR RESTART PROOFING
018984,000596: 
018985,000597: 33,2552           00031        25DECML            DEC      25         B-14                       
018986,000598: 
018987,000599: 33,2553           32552        STOREDTA           CAF      25DECML                               
018988,000600: 33,2554           54154                           TS       MPAC                                  
018989,000601: 33,2555           50154                           INDEX    MPAC                                  
018990,000602: 33,2556           31460                           CAE      THETAX1                               
018991,000603: 33,2557           50154                           INDEX    MPAC                                  
018992,000604: 33,2560           55577                           TS       RESTARPT                              
018993,000605: 33,2561           10154                           CCS      MPAC                                  
018994,000606: 33,2562           12554                           TCF      STOREDTA   +1                         
018995,000607: 33,2563           00002                           TC       Q                                     
018996,000608: 33,2564           32552        LOADSTDT           CAF      25DECML                               
018997,000609: 33,2565           54154                           TS       MPAC                                  
018998,000610: 33,2566           50154                           INDEX    MPAC                                  
018999,000611: 33,2567           31577                           CA       RESTARPT                              

Page 430

019001,000613: 33,2570           50154                           INDEX    MPAC                                  
019002,000614: 33,2571           55460                           TS       THETAX1                               
019003,000615: 33,2572           10154                           CCS      MPAC                                  
019004,000616: 33,2573           12565                           TCF      LOADSTDT   +1                         
019005,000617: 33,2574           00002                           TC       Q                                     
019006,000618: 
019007,000619:                                                                                                  #  COMES HERE EVERY ITERATION BY A WAITLIST CALL SET IN SLEEPIE
019008,000620: 
019009,000621: 33,2575           30025        ALLOOP             CAE      TIME1                                 
019010,000622: 33,2576           55645                           TS       GTSWTLT1                              #  STORE TIME TO SET UP NEXT WAITLIST.
019011,000623: 33,2577           31540        ALLOOP3            CA       ALTIM                                 
019012,000624: 33,2600           55631                           TS       GEOSAVE1                              
019013,000625: 33,2601           05301                           TC       PHASCHNG                              
019014,000626: 33,2602           00115                           OCT      00115                                 
019015,000627: 33,2603           31631        ALLOOP1            CAE      GEOSAVE1                              
019016,000628: 33,2604           55540                           TS       ALTIM                                 
019017,000629: 33,2605           10000                           CCS      A                                     
019018,000630: 33,2606           30000                           CA       A                                     #  SHOULD NEVER HIT THIS LOCATION
019019,000631: 33,2607           55541                           TS       ALTIMS                                
019020,000632: 33,2610           40000                           CS       A                                     
019021,000633: 33,2611           55540                           TS       ALTIM                                 
019022,000634: 33,2612           34714                           CAF      ZERO                                  
019023,000635: 33,2613           56037                           XCH      PIPAX                                 
019024,000636: 33,2614           55162                           TS       DELVX                                 
019025,000637: 33,2615           34714                           CAF      ZERO                                  
019026,000638: 33,2616           56040                           XCH      PIPAY                                 
019027,000639: 33,2617           55164                           TS       DELVY                                 
019028,000640: 33,2620           34714                           CAF      ZERO                                  
019029,000641: 33,2621           56041                           XCH      PIPAZ                                 
019030,000642: 33,2622           55166                           TS       DELVZ                                 
019031,000643: 33,2623           34374                           CAF      19DECML                               #  23 OCT
019032,000644: 33,2624           04114                           TC       NEWPHASE                              
019033,000645: 33,2625           00005                           OCT      00005                                 
019034,000646: 33,2626           34675        SPECSTS            CAF      PRIO20                                
019035,000647: 33,2627           05042                           TC       FINDVAC                               
019036,000648: 33,2630  E5,1631                                  EBANK=   GEOSAVE1                              
019037,000649: 33,2630           02633 66065                     2CADR    ALFLT                                 #  START THE JOB
019038,000650: 
019039,000651: 33,2632           05213                           TC       TASKOVER                              
019040,000652: 

Page 431

019042,000654:                                                                                                  #  THIS IS PART OF THE JOB DONE EVERY ITERATION
019043,000655: 
019044,000656: 33,2633           02553        ALFLT              TC       STOREDTA                              #  STORE DATA IN CASE OF RESTART IN JOB
019045,000657: 33,2634           05301                           TC       PHASCHNG                              #  THIS IS THE JOB DONE EVERY ITERATION
019046,000658: 33,2635           00215                           OCT      00215                                 
019047,000659: 33,2636           12640                           TCF      +2                                    
019048,000660: 33,2637           02564        ALFLT1             TC       LOADSTDT                              #  COMES HERE ON RESTART
019049,000661: 
019050,000662: 33,2640           11643                           CCS      GEOCOMP1                              
019051,000663: 33,2641           02643                           TC       +2                                    
019052,000664: 33,2642           02646                           TC       NORMLOP                               
019053,000665: 33,2643           03401                           TC       CHKCOMED                              #  SEE IF PRELAUNCH OVER
019054,000666: 33,2644           04555                           TC       BANKCALL                              #  COMPENSATION IF IN COMPASS
019055,000667: 33,2645           15262                           CADR     1/PIPA                                
019056,000668: 33,2646           06006        NORMLOP            TC       INTPRET                               
019057,000669: 33,2647           77745                           DLOAD                                          
019058,000670: 33,2650           27121                                    INTVAL                                
019059,000671: 33,2651           24051                           STOVL    S1                                    
019060,000672: 33,2652           01163                                    DELVX                                 
019061,000673: 33,2653           76505                           VXM      VSL1                                  
019062,000674: 33,2654           02672                                    XSM                                   
019063,000675: 33,2655           57545                           DLOAD    DCOMP                                 
019064,000676: 33,2656           00160                                    MPAC       +3                         
019065,000677: 33,2657           16533                           STODL    DPIPAY                                
019066,000678: 33,2660           00162                                    MPAC       +5                         
019067,000679: 33,2661           02537                           STORE    DPIPAZ                                
019068,000680: 
019069,000681: 33,2662           76001                           SETPD    AXT,1                                 
019070,000682: 33,2663           00001                                    0                                     
019071,000683: 33,2664           00010                                    8D                                    
019072,000684: 33,2665           57535                           SLOAD    DCOMP                                 
019073,000685: 33,2666           02644                                    GEOCOMP1                              
019074,000686: 33,2667           77640                           BMN                                            
019075,000687: 33,2670           67203                                    ALWAYSG                               #  DO A QUICK COMPASS
019076,000688: 

Page 432

019078,000690:                                                                                                  #  NOW WE HAVE JUST THE CALIBRATION PARTS OF THE PROGRAM-NEXT PAGES
019079,000691: 
019080,000692: 33,2671                                           COUNT    33/COMST                              
019081,000693: 
019082,000694: 33,2671           50135        ALCGKK             SLOAD    BMN                                   
019083,000695: 33,2672           02542                                    ALTIMS                                
019084,000696: 33,2673           66706                                    ALFLT3                                #  NO NEW GAINS NEEDED
019085,000697: 33,2674           72174        ALKCG              AXT,2    LXA,1                                 #  LOADS SLOPES AND TIME CONSTANTS AT RQST
019086,000698: 33,2675           00014                                    12D                                   
019087,000699: 33,2676           02454                                    ALX1S                                 
019088,000700: 33,2677           62143        ALKCG2             DLOAD*   INCR,1                                
019089,000701: 33,2700           02243                                    ALFDK      +144D,1                    
019090,000702: 33,2701           77775                           DEC      -2         B-14                       
019091,000703: 33,2702           12555                           STORE    ALDK       +10D,2                     
019092,000704: 33,2703           66104                           TIX,2    SXA,1                                 
019093,000705: 33,2704           66677                                    ALKCG2                                
019094,000706: 33,2705           02454                                    ALX1S                                 
019095,000707: 
019096,000708: 33,2706           77770        ALFLT3             AXT,1                                          #  MEASUREMENT INCORPORATION ROUTINES
019097,000709: 33,2707           00010                                    8D                                    #  AND GAIN UPDATES
019098,000710: 33,2710           41343        DELMLP             DLOAD*   DMP                                   
019099,000711: 33,2711           02543                                    DPIPAY     +8D,1                      
019100,000712: 33,2712           27675                                    PIPASC                                
019101,000713: 33,2713           43661                           SLR      BDSU*                                 
019102,000714: 33,2714           21212                                    9D                                    
019103,000715: 33,2715           02511                                    INTY       +8D,1                      
019104,000716: 33,2716           06511                           STORE    INTY       +8D,1                      
019105,000717: 33,2717           40725                           PDDL     DMP*                                  
019106,000718: 33,2720           27677                                    VELSC                                 
019107,000719: 33,2721           02531                                    VLAUN      +8D,1                      
019108,000720: 33,2722           77732                           SL2R                                           
019109,000721: 33,2723           45425                           DSU      STADR                                 
019110,000722: 33,2724           71206                           STORE    DELM       +8D,1                      
019111,000723: 33,2725           06573                           STORE    DELM       +10D,1                     
019112,000724: 33,2726           77100                           TIX,1    AXT,2                                 
019113,000725: 33,2727           66710                                    DELMLP                                
019114,000726: 33,2730           00004                                    4                                     
019115,000727: 33,2731           56743        ALILP              DLOAD*   DMPR*                                 
019116,000728: 33,2732           75314                                    ALK        +4,2                       
019117,000729: 33,2733           75230                                    ALDK       +4,2                       
019118,000730: 33,2734           12463                           STORE    ALK        +4,2                       
019119,000731: 33,2735           77104                           TIX,2    AXT,2                                 
019120,000732: 33,2736           66731                                    ALILP                                 
019121,000733: 33,2737           00010                                    8D                                    
019122,000734: 33,2740           66140        ALKLP              LXC,1    SXA,1                                 
019123,000735: 33,2741           02455                                    CMPX1                                 
019124,000736: 33,2742           02455                                    CMPX1                                 
019125,000737: 33,2743           56743                           DLOAD*   DMPR*                                 
019126,000738: 33,2744           02460                                    ALK        +1,1                       
019127,000739: 33,2745           75206                                    DELM       +8D,2                      

Page 433

019129,000741: 33,2746           77613                           DAD*                                           
019130,000742: 33,2747           75266                                    INTY       +8D,2                      
019131,000743: 33,2750           12511                           STORE    INTY       +8D,2                      
019132,000744: 33,2751           42743                           DLOAD*   DAD*                                  
019133,000745: 33,2752           75304                                    ALK        +12D,2                     
019134,000746: 33,2753           75220                                    ALDK       +12D,2                     
019135,000747: 33,2754           12473                           STORE    ALK        +12D,2                     
019136,000748: 33,2755           42673                           DMPR*    DAD*                                  
019137,000749: 33,2756           75206                                    DELM       +8D,2                      
019138,000750: 33,2757           75256                                    INTY       +16D,2                     
019139,000751: 33,2760           12521                           STORE    INTY       +16D,2                     
019140,000752: 33,2761           40743                           DLOAD*   DMP*                                  
019141,000753: 33,2762           27702                                    ALSK       +1,1                       
019142,000754: 33,2763           75206                                    DELM       +8D,2                      
019143,000755: 33,2764           42772                           SL1R     DAD*                                  
019144,000756: 33,2765           75246                                    VLAUN      +8D,2                      
019145,000757: 33,2766           12531                           STORE    VLAUN      +8D,2                      
019146,000758: 33,2767           76104                           TIX,2    AXT,1                                 
019147,000759: 33,2770           66740                                    ALKLP                                 
019148,000760: 33,2771           00010                                    8D                                    
019149,000761: 
019150,000762: 33,2772           64743        LOOSE              DLOAD*   PDDL*                                 #  EXTRAPOLATE SWAY VARIABLES
019151,000763: 33,2773           02533                                    ACCWD      +8D,1                      
019152,000764: 33,2774           02531                                    VLAUN      +8D,1                      
019153,000765: 33,2775           55523                           PDDL*    VDEF                                  
019154,000766: 33,2776           02541                                    POSNV      +8D,1                      
019155,000767: 33,2777           76521                           MXV      VSL1                                  
019156,000768: 33,3000           02001                                    TRANSM1                               
019157,000769: 33,3001           77745                           DLOAD                                          
019158,000770: 33,3002           00155                                    MPAC                                  
019159,000771: 33,3003           06541                           STORE    POSNV      +8D,1                      
019160,000772: 33,3004           77745                           DLOAD                                          
019161,000773: 33,3005           00160                                    MPAC       +3                         
019162,000774: 33,3006           06531                           STORE    VLAUN      +8D,1                      
019163,000775: 33,3007           77745                           DLOAD                                          
019164,000776: 33,3010           00162                                    MPAC       +5                         
019165,000777: 33,3011           06533                           STORE    ACCWD      +8D,1                      
019166,000778: 33,3012           77700                           TIX,1                                          
019167,000779: 33,3013           66772                                    LOOSE                                 
019168,000780: 
019169,000781: 33,3014           76174                           AXT,2    AXT,1                                 #  EVALUATE SINES AND COSINES
019170,000782: 33,3015           00006                                    6                                     
019171,000783: 33,3016           00002                                    2                                     
019172,000784: 33,3017           57343        BOOP               DLOAD*   DMPR                                  
019173,000785: 33,3020           02513                                    ANGX       +2,1                       
019174,000786: 33,3021           27705                                    GEORGEJ                               
019175,000787: 33,3022           77722                           SR2R                                           
019176,000788: 33,3023           73406                           PUSH     SIN                                   

Page 434

019178,000790: 33,3024           56072                           SL3R     XAD,1                                 
019179,000791: 33,3025           00046                                    X1                                    
019180,000792: 33,3026           10021                           STORE    16D,2                                 
019181,000793: 33,3027           77745                           DLOAD                                          
019182,000794: 33,3030           77746                           COS                                            
019183,000795: 33,3031           10027                           STORE    22D,2                                 #  COSINES
019184,000796: 33,3032           77704                           TIX,2                                          
019185,000797: 33,3033           67017                                    BOOP                                  
019186,000798: 
019187,000799: 33,3034           77776        PERFERAS           EXIT                                           
019188,000800: 33,3035           34753                           CA       EBANK7                                
019189,000801: 33,3036  E7,1400                                  EBANK=   LAT(SPL)                              
019190,000802: 33,3036           54003                           TS       EBANK                                 
019191,000803: 33,3037           01400                           TC       LAT(SPL)                              #  GOTO ERASABLE ONLY TO RETURN
019192,000804: 
019193,000805:                                                                                                  #  CAUTION
019194,000806: 
019195,000807:                                                                                                  #  THE ERASABLE PROGRAM THAT DOES THE CALCULATIONS MUST BE LOADED
019196,000808:                                                                                                  #  BEFORE ANY ATTEMPT IS MADE TO RUN THE IMU PERFORMANCE TEST
019197,000809: 
019198,000810: 33,3040  E5,1412                                  EBANK=   LENGTHOT                              
019199,000811: 33,3040           11412        ONCEMORE           CCS      LENGTHOT                              
019200,000812: 33,3041           02522                           TC       SLEEPIE                               #  TEST NOT OVER SET UP NEXT WAITLIST
019201,000813: 33,3042           11450                           CCS      TORQNDX                               
019202,000814: 33,3043           13045                           TCF      +2                                    
019203,000815: 33,3044           03047                           TC       SETUPER1                              
019204,000816: 33,3045           30032                           CA       CDUX                                  
019205,000817: 33,3046           55414                           TS       LOSVEC     +1                         #  FOR TROUBLESHOOTING POSNS 2$4 VD
019206,000818: 
019207,000819: 33,3047           06006        SETUPER1           TC       INTPRET                               #  DRIFT TEST OVER
019208,000820: 33,3050           65345                           DLOAD    PDDL                                  #  ANGLES FROM DRIFT TEST ONLY
019209,000821: 33,3051           02503                                    ANGZ                                  
019210,000822: 33,3052           02507                                    ANGY                                  
019211,000823: 33,3053           55525                           PDDL     VDEF                                  
019212,000824: 33,3054           02511                                    ANGX                                  
019213,000825: 33,3055           74276                           VCOMP    VXSC                                  
019214,000826: 33,3056           27705                                    GEORGEJ                               
019215,000827: 33,3057           74521                           MXV      VSR1                                  
019216,000828: 33,3060           02672                                    XSM                                   
019217,000829: 33,3061           02760                           STORE    OGC                                   
019218,000830: 33,3062           77776                           EXIT                                           
019219,000831: 
019220,000832: 33,3063           05301        TORQINCH           TC       PHASCHNG                              
019221,000833: 33,3064           00005                           OCT      00005                                 
019222,000834: 
019223,000835: 33,3065           32444                           CA       OGCPL                                 
019224,000836: 33,3066           04555                           TC       BANKCALL                              
019225,000837: 33,3067           17125                           CADR     IMUPULSE                              
019226,000838: 33,3070           02316                           TC       IMUSTLLG                              
019227,000839: 33,3071           11450                           CCS      TORQNDX                               #  + IF IN VERTICAL DRIFT TEST
019228,000840: 33,3072           02262                           TC       VALMIS                                #  VERT DRIFT TEST OVER
019229,000841: 33,3073           06006                           TC       INTPRET                               

Page 435

019231,000843: 33,3074           77624                           CALL                                           #  SET UP ERATE FOR PIP TEST OR COMPASS
019232,000844: 33,3075           64000                                    ERTHRVSE                              
019233,000845: 33,3076           77776                           EXIT                                           
019234,000846: 33,3077           02122                           TC       TORQUE                                #  GO TO IMU2 FOR A PIPA TEST AND DISPLAY
019235,000847: 
019236,000848: 33,3100           05537        SOMEERR            TC       ALARM                                 
019237,000849: 33,3101           01600                           OCT      1600                                  
019238,000850: 33,3102           03105                           TC       +3                                    
019239,000851: 33,3103           05537        SOMERR2            TC       ALARM                                 
019240,000852: 33,3104           01601                           OCT      1601                                  
019241,000853: 33,3105           05301                           TC       PHASCHNG                              
019242,000854: 33,3106           00005                           OCT      00005                                 
019243,000855: 33,3107           02267                           TC       ENDTEST1                              
019244,000856: 
019245,000857:                                                                                                  #  THE FAMOUS MAGIC NUMBERS OF SCHMIDT ARE NOW PART OF AN ERASABLE LOAD.         
019246,000858: 
019247,000859: 33,3110           02222        DEC585             OCT      02222                                 #  1170 B+14 ORDER IS NOW IMPORTANT
019248,000860: 33,3111           00000 00000  SCHZEROS           2DEC     .00000000                             
019249,000861: 33,3113           00000 00000                     2DEC     .00000000                             
019250,000862: 33,3115           00000                           OCT      00000                                 
019251,000863: 33,3116           00000        ONEDPP             OCT      00000                                 
019252,000864: 33,3117           00001                           OCT      00001                                 #  ABOVE ORDER IS IMPORTANT
019253,000865: 
019254,000866: 33,3120           00004        INTVAL             OCT      4                                     
019255,000867: 33,3121           00002                           OCT      2                                     
019256,000868: 33,3122           00220                           DEC      144        B-14                       
019257,000869: 33,3123           77776                           DEC      -1         B-14                       
019258,000870: 33,3124           35730 00035  SOUPLY             2DEC     .93505870                             #  INITIAL GAINS FOR PIP OUTPUTS
019259,000871: 33,3126           10317 17550                     2DEC     .26266423                             #  INITIAL GAINS/4 FOR ERECTION ANGLES
019260,000872: 
019261,000873: 33,3130           00115        77DECML            DEC      77         B-14                       
019262,000874: 33,3131           01453        ALXXXZ             GENADR   ALX1S      -1                         
019263,000875: 
019264,000876:                                                                                                  #  GYROCOMPASS PORTIONS FINISH THIS LOG SECTION
019265,000877: 
019266,000878: 33,3132                                           COUNT    33/P01                                
019267,000879: 
019268,000880:                                                                                                  #  INITIALIZATION SECTION
019269,000881: 
019270,000882: 33,3132           34712        GTSCPSS            CAF      ONE                                   #  CALLED BY V37.
019271,000883: 33,3133           55643                           TS       GEOCOMP1                              #  THIS IS THE LEAD IN FOR COMPASS.

Page 436

019273,000885: 33,3134           33424                           CA       1/PIPAGT                              
019274,000886: 33,3135           55074                           TS       1/PIPADT                              
019275,000887: 33,3136           34703        NXXTENN            CA       BIT8                                  
019276,000888: 33,3137           55412                           TS       LENGTHOT                              
019277,000889: 33,3140           34731                           CAF      1/2SECX                               #  COMPASS IS A .5 SEC LOOP
019278,000890: 33,3141           55644                           TS       1SECXT1                               
019279,000891: 33,3142           34712                           CAF      ONE                                   
019280,000892: 33,3143           55632                           TS       PREMTRX1                              
019281,000893: 33,3144           55657                           TS       PERFDLAY   +1                         
019282,000894: 33,3145           34714                           CAF      ZERO                                  
019283,000895: 33,3146           55656                           TS       PERFDLAY                              
019284,000896: 33,3147           00006                           EXTEND                                         
019285,000897: 33,3150           31634                           DCA      LUNCHAZ1                              
019286,000898: 33,3151           53636                           DXCH     NEWAZ1                                
019287,000899: 33,3152           00006                           EXTEND                                         
019288,000900: 33,3153           31634                           DCA      LUNCHAZ1                              
019289,000901: 33,3154           53640                           DXCH     OLDAZMTH                              
019290,000902: 33,3155           34375        SETUPGC            CA       DEC17                                 
019291,000903: 33,3156           55655                           TS       ZERONDX1                              
019292,000904: 33,3157           32446                           CA       XSMADR                                
019293,000905: 33,3160           02356                           TC       ZEROING                               
019294,000906: 33,3161           03163                           TC       POSN17C                               
019295,000907: 33,3162           02030                           TC       GEOIMUTT                              #  GO TO IMU2 FOR FURTHER INITIALIZATION
019296,000908: 33,3163           00006        POSN17C            EXTEND                                         #  COMPASS POSITION Z DOWN, X DOWNRANGE
019297,000909: 33,3164           23425                           QXCH     QPLACE                                #  FROM NORTH IN REVOLUTIONS + CLOCKWSE
019298,000910: 33,3165           44675                           CS       HALF                                  #  ALL THIS TO INITIALIZE MATRIX
019299,000911: 33,3166           55705                           TS       ZSM                                   
019300,000912: 33,3167           06006                           TC       INTPRET                               
019301,000913: 33,3170           41545                           DLOAD    PUSH                                  
019302,000914: 33,3171           02636                                    NEWAZ1                                
019303,000915: 33,3172           77756                           SIN                                            
019304,000916: 33,3173           02676                           STORE    XSM        +4                         
019305,000917: 33,3174           16702                           STODL    YSM        +2                         
019306,000918: 33,3175           77746                           COS                                            
019307,000919: 33,3176           02704                           STORE    YSM        +4                         
019308,000920: 33,3177           77676                           DCOMP                                          
019309,000921: 33,3200           02674                           STORE    XSM        +2                         
019310,000922: 33,3201           77776                           EXIT                                           
019311,000923: 33,3202           01425                           TC       QPLACE                                
019312,000924: 
019313,000925:                                                                                                  #  JOB DONE EVERY ITERATION THROUGH COMPASS PROGRAM.  SET BY TASK ALLOOP
019314,000926: 
019315,000927: 33,3203                                           COUNT    33/P02                                
019316,000928: 
019317,000929: 33,3203           44743        ALWAYSG            DLOAD*   DSU*                                  #  COMPASS AND ERECT
019318,000930: 33,3204           02543                                    DPIPAY     +8D,1                      
019319,000931: 33,3205           02505                                    FILDELV1   +8D,1                      

Page 437

019321,000933: 33,3206           42675                           DMPR     DAD*                                  
019322,000934: 33,3207           27713                                    GEOCONS1                              
019323,000935: 33,3210           02505                                    FILDELV1   +8D,1                      
019324,000936: 33,3211           06505                           STORE    FILDELV1   +8D,1                      
019325,000937: 33,3212           77613                           DAD*                                           
019326,000938: 33,3213           02507                                    INTVEC1    +8D,1                      
019327,000939: 33,3214           06507                           STORE    INTVEC1    +8D,1                      
019328,000940: 33,3215           42675                           DMPR     DAD*                                  
019329,000941: 33,3216           27715                                    GEOCONS2                              
019330,000942: 33,3217           02505                                    FILDELV1   +8D,1                      
019331,000943: 33,3220           41475                           DMPR     PUSH                                  
019332,000944: 33,3221           15330                                    GEOCONS5                              
019333,000945: 33,3222           67300                           TIX,1    SLOAD                                 
019334,000946: 33,3223           67203                                    ALWAYSG                               
019335,000947: 33,3224           02647                                    ERECTIM1                              
019336,000948: 33,3225           71254                           BZE      DLOAD                                 
019337,000949: 33,3226           67237                                    COMPGS                                
019338,000950: 33,3227           02471                                    THETAN1    +2                         
019339,000951: 33,3230           45425                           DSU      STADR                                 
019340,000952: 33,3231           61306                           STODL    THETAN1    +2                         #  ERECTION ONLY.
019341,000953: 33,3232           77621                           BDSU                                           
019342,000954: 33,3233           02473                                    THETAN1    +4                         
019343,000955: 33,3234           02473                           STORE    THETAN1    +4                         
019344,000956: 33,3235           77650                           GOTO                                           
019345,000957: 33,3236           67261                                    ADDINDRF                              
019346,000958: 33,3237           43345        COMPGS             DLOAD    DAD                                   #  COMPASS
019347,000959: 33,3240           02467                                    THETAN1                               
019348,000960: 33,3241           02475                                    FILDELV1                              
019349,000961: 33,3242           16467                           STODL    THETAN1                               
019350,000962: 33,3243           02475                                    FILDELV1                              
019351,000963: 33,3244           44275                           DMPR     BDSU                                  
019352,000964: 33,3245           27717                                    GEOCONS3                              
019353,000965: 33,3246           02473                                    THETAN1    +4                         
019354,000966: 33,3247           16473                           STODL    THETAN1    +4                         
019355,000967: 33,3250           02501                                    FILDELV1   +4                         
019356,000968: 33,3251           44275                           DMPR     BDSU                                  
019357,000969: 33,3252           27717                                    GEOCONS3                              
019358,000970: 33,3253           02471                                    THETAN1    +2                         
019359,000971: 33,3254           57325                           PDDL     DMPR                                  
019360,000972: 33,3255           02503                                    INTVEC1    +4                         
019361,000973: 33,3256           27721                                    GEOCONS4                              
019362,000974: 33,3257           45421                           BDSU     STADR                                 
019363,000975: 33,3260           75306                           STORE    THETAN1    +2                         
019364,000976: 33,3261           77776        ADDINDRF           EXIT                                           
019365,000977: 33,3262           11412        ENDGTSAL           CCS      LENGTHOT                              #  IS 5 SEC OVER-THE TIME TO TORQ PLATFORM
019366,000978: 33,3263           02522                           TC       SLEEPIE                               #  NO-SET UP NEXT WAITLIST CALL FOR .5 SEC
019367,000979: 33,3264           03401                           TC       CHKCOMED                              
019368,000980: 33,3265           11304                           CCS      LGYRO                                 #  YES BUT ARE GYROS BUSY

Page 438

019370,000982: 33,3266           12523                           TCF      SLEEPIE    +1                         #  BUSY-GET THEM .5 SECONDS FROM NOW
019371,000983: 
019372,000984: 33,3267           06006        LASTGTS            TC       INTPRET                               
019373,000985: 33,3270           77775                           VLOAD                                          
019374,000986: 33,3271           02650                                    ERCOMP1                               
019375,000987: 33,3272           16461                           STODL    THETAX1                               
019376,000988: 33,3273           02443                                    TMARK                                 
019377,000989: 33,3274           02457                           STORE    ALK                                   
019378,000990: 33,3275           77776                           EXIT                                           #  PREVIOUS SECTION WAS FOR RESTARTS
019379,000991: 
019380,000992: 33,3276           05301        RESTAIER           TC       PHASCHNG                              
019381,000993: 33,3277           00275                           OCT      00275                                 
019382,000994: 33,3300           06006                           TC       INTPRET                               #  ADD COMPASS COMMANDS INTO ERATE
019383,000995: 33,3301           64375                           VLOAD    MXV                                   
019384,000996: 33,3302           02467                                    THETAN1                               
019385,000997: 33,3303           02672                                    XSM                                   
019386,000998: 33,3304           53372                           VSL1     VAD                                   
019387,000999: 33,3305           02461                                    THETAX1                               
019388,001000: 33,3306           16650                           STODL    ERCOMP1                               
019389,001001: 33,3307           02457                                    ALK                                   
019390,001002: 33,3310           02443                           STORE    TMARK                                 
019391,001003: 33,3311           77776                           EXIT                                           
019392,001004: 33,3312           02417                           TC       EARTHR*                               #  TORQUE IT ALL IN
019393,001005: 33,3313           31646                           CAE      ERECTIM1                              
019394,001006: 33,3314           55631                           TS       GEOSAVE1                              
019395,001007: 33,3315           05301                           TC       PHASCHNG                              
019396,001008: 33,3316           00155                           OCT      00155                                 
019397,001009: 33,3317           06006        RESTEST1           TC       INTPRET                               
019398,001010: 33,3320           77775                           VLOAD                                          
019399,001011: 33,3321           27112                                    SCHZEROS                              
019400,001012: 33,3322           02467                           STORE    THETAN1                               
019401,001013: 33,3323           77776                           EXIT                                           
019402,001014: 33,3324           11632                           CCS      PREMTRXC                              
019403,001015: 33,3325           03374                           TC       NOCHORLD                              
019404,001016: 33,3326           05301                           TC       PHASCHNG                              
019405,001017: 33,3327           00255                           OCT      00255                                 
019406,001018: 33,3330           06006        RESTEST3           TC       INTPRET                               
019407,001019: 33,3331           77745                           DLOAD                                          
019408,001020: 33,3332           02634                                    LAUNCHAZ                              
019409,001021: 33,3333           53025                           DSU      BZE                                   
019410,001022: 33,3334           02640                                    OLDAZMTH                              
019411,001023: 33,3335           67371                                    NOAZCHGE                              
019412,001024: 33,3336           00001                           STORE    0D                                    
019413,001025: 33,3337           43335                           SLOAD    DAD                                   
019414,001026: 33,3340           27120                                    ONEDPP     +1                         
019415,001027: 33,3341           02633                                    PREMTRXC                              #  DOES NOT CHANGE LAUNCHAZ
019416,001028: 33,3342           16633                           STODL    PREMTRXC                              
019417,001029: 33,3343           02634                                    LAUNCHAZ                              
019418,001030: 33,3344           16636                           STODL    NEWAZMTH                              
019419,001031: 33,3345           00001                                    0D                                    

Page 439

019421,001033: 33,3346           02654        ADERCOMP           STORE    ERCOMP     +4                         
019422,001034: 33,3347           77776                           EXIT                                           
019423,001035: 33,3350           03163                           TC       POSN17C                               
019424,001036: 33,3351           05301                           TC       PHASCHNG                              
019425,001037: 33,3352           00335                           OCT      00335                                 
019426,001038: 33,3353           00006        RESCHNG            EXTEND                                         
019427,001039: 33,3354           31636                           DCA      NEWAZMTH                              
019428,001040: 33,3355           53640                           DXCH     OLDAZMTH                              
019429,001041: 33,3356           34704                           CA       BIT7                                  #  SPEND 320 SEC ERECTING
019430,001042: 33,3357           55412                           TS       LENGTHOT                              
019431,001043: 33,3360           05301                           TC       PHASCHNG                              
019432,001044: 33,3361           00075                           OCT      00075                                 
019433,001045: 33,3362           33423        SPITGYRO           CA       ERCOMPPL                              
019434,001046: 33,3363           04555                           TC       BANKCALL                              
019435,001047: 33,3364           17125                           CADR     IMUPULSE                              
019436,001048: 33,3365           04555                           TC       BANKCALL                              
019437,001049: 33,3366           17516                           CADR     IMUSTALL                              
019438,001050: 33,3367           03103                           TC       SOMERR2                               
019439,001051: 33,3370           02453                           TC       ESTIMS                                #  RE-INITIALIZE
019440,001052: 33,3371           77776        NOAZCHGE           EXIT                                           
019441,001053: 33,3372           34712                           CA       ONE                                   
019442,001054: 33,3373           55632                           TS       PREMTRXC                              
019443,001055: 33,3374           11631        NOCHORLD           CCS      GEOSAVE1                              
019444,001056: 33,3375           55646                           TS       ERECTIM1                              #  COUNTS DOWN FOR ERECTION.
019445,001057: 
019446,001058: 33,3376           34334        ANNNNNN            CAF      NINE                                  
019447,001059: 33,3377           55412                           TS       LENGTHOT                              
019448,001060: 33,3400           02523                           TC       SLEEPIE    +1                         
019449,001061: 33,3401           00004        CHKCOMED           INHINT                                         
019450,001062: 33,3402           44714                           CS       ZERO                                  
019451,001063: 33,3403           00006                           EXTEND                                         
019452,001064: 33,3404           06030                           RXOR     CHAN30                                #  READ AND INVERT BITS IN CHANNEL 30
019453,001065: 33,3405           74706                           MASK     BIT5                                  #  LIFTOFF BIT
019454,001066: 33,3406           10000                           CCS      A                                     
019455,001067: 33,3407           13416                           TCF      PRELTERM                              #  LIFTOFF HAS OCCURRED
019456,001068: 
019457,001069: 33,3410           34706                           CA       BIT5                                  #  CHECK FOR BACKUP LIFTOFF
019458,001070: 33,3411           70101                           MASK     FLAGWRD5                              #  BIT5 FLAGWRD5
019459,001071: 33,3412           10000                           CCS      A                                     
019460,001072: 33,3413           13416                           TCF      PRELTERM                              #  BACKUP RECEIVED
019461,001073: 
019462,001074: 33,3414           00003                           RELINT                                         
019463,001075: 33,3415           00002                           TC       Q                                     #  CONTINUE PRELAUNCH
019464,001076: 33,3416           37657        PRELTERM           CA       PRIO22                                #  PRELAUNCH DONE - SET UP P11

Page 440

019466,001078: 33,3417           05103                           TC       PRIOCHNG                              #  INCREASE PRIORITY HIGHER THAN SERVICER
019467,001079: 33,3420           00004                           INHINT                                         
019468,001080: 33,3421           04574                           TC       POSTJUMP                              
019469,001081: 33,3422           70002                           CADR     P11                                   
019470,001082: 33,3423           02647        ERCOMPPL           ECADR    ERCOMP                                
019471,001083: 
019472,001084: 33,3424  26,3327               GEOCONS5           EQUALS   HIDPHALF                              
019473,001085: 33,3424           06200        1/PIPAGT           OCT      06200                                 
019474,001086: 33,3425     4375               17DECML            =        ND1                                   #  OCT 21
019475,001087: 33,3425     4374               19DECML            =        VD1                                   #  OCT 23
019476,001088: 33,3425     4731               1/2SECX            =        .5SEC                                 

Page 441

019478,001090: 33,3425     5112               GEOSTRT4           EQUALS   ENDOFJOB                              
019479,001091: 

Page 442

019481,001093:                                                                                                  #  OPTICAL VERIFICATION ROUTINES FOR GYROCOMPASS
019482,001094: 
019483,001095: 33,3425                                           COUNT    33/P03                                
019484,001096: 
019485,001097: 33,3425           05301        GCOMPVER           TC       PHASCHNG                              #  OPTICAL VERIFICATION ROUTINE
019486,001098: 33,3426           00154                           OCT      00154                                 
019487,001099: 33,3427           05243                           TC       NEWMODEX                              #  ENTERED BY VERB 65 ENTER
019488,001100: 33,3430           00003                           MM       03         B-14                       
019489,001101: 33,3431           02037        SETNBPOS           TC       NBPOSPL                               
019490,001102: 33,3432           04555                           TC       BANKCALL                              
019491,001103: 33,3433           16063                           CADR     MKRELEAS                              
019492,001104: 33,3434           34712        OPTDATA            CAF      BIT1                                  #  CALLS FOR AZIMUTH AND ELEVATION OF TARGE
019493,001105: 33,3435           22007                           ZL                                             #  T 1, THEN TARGET 2
019494,001106: 33,3436           23427                           LXCH     RUN                                   #  AZIMUTH CLOCKWSE FROM NORTH TO TARGET
019495,001107: 33,3437           55047                           TS       DSPTEM1    +2                         #  ELEVATION MEASURED FROM HORIZONTAL
019496,001108: 33,3440           00006                           EXTEND                                         
019497,001109: 33,3441           51427                           INDEX    RUN                                   
019498,001110: 33,3442           31433                           DCA      TAZEL1                                
019499,001111: 33,3443           53046                           DXCH     DSPTEM1                               
019500,001112: 33,3444           33467                           CAF      V05N30E                               
019501,001113: 33,3445           04555                           TC       BANKCALL                              
019502,001114: 33,3446           20577                           CADR     GODSPRET                              
019503,001115: 33,3447           33455                           CAF      VN0641                                
019504,001116: 33,3450           04555                           TC       BANKCALL                              
019505,001117: 33,3451           20624                           CADR     GOFLASH                               
019506,001118: 33,3452           03610                           TC       GCOMP5                                
019507,001119: 33,3453           03456                           TC       +3                                    
019508,001120: 33,3454           03444                           TC       -8D                                   
019509,001121: 33,3455           01451        VN0641             VN       0641                                  
019510,001122: 33,3456           53046                           DXCH     DSPTEM1                               #  TAZEL1 TARGET 1 AZIMUTH
019511,001123: 33,3457           51427                           INDEX    RUN                                   
019512,001124: 33,3460           53433                           DXCH     TAZEL1                                #  TAZEL1 +2 TARGET 2 AZIMUTH
019513,001125: 33,3461           11427                           CCS      RUN                                   
019514,001126: 33,3462           13466                           TCF      +4                                    
019515,001127: 33,3463           34711                           CAF      TWO                                   
019516,001128: 33,3464           54001                           TS       L                                     
019517,001129: 33,3465           13436                           TCF      OPTDATA    +2                         #  MPAC  1ST PASS=0   2ND PASS=2
019518,001130: 33,3466           03530                           TC       CONTIN33                              
019519,001131: 
019520,001132: 33,3467           01236        V05N30E            VN       0530                                  
019521,001133: 
019522,001134: 33,3470           06006                           TC       INTPRET                               #  UNDYNAMIC ASSEMBLER
019523,001135: 33,3471           77170        TAR/EREF           AXT,1    AXT,2                                 #  TARGET VECTOR
019524,001136: 33,3472           00002                                    2                                     #  SIN(EL)   -COS(AZ)COS(EL)   SIN(AZ)COS(EL
019525,001137: 33,3473           00014                                    12D                                   
019526,001138: 33,3474           40331                           SSP      SETPD                                 
019527,001139: 33,3475           00052                                    S2                                    
019528,001140: 33,3476           00006                                    6                                     

Page 443

019530,001142: 33,3477           00001                                    0                                     
019531,001143: 33,3500           60533        TAR1               SLOAD*   SR2                                   #  X1=2 X2=12 S2=6 X1=0 X2=6 S2=6
019532,001144: 33,3501           02436                                    TAZEL1     +3,1                       
019533,001145: 33,3502           00001                           STORE    0                                     #  PD00 ELEVATION PD00
019534,001146: 33,3503           77756                           SIN                                            
019535,001147: 33,3504           10023                           STORE    18D,2                                 #  PD06 *** SIN(EL) ***PD12
019536,001148: 33,3505           77745                           DLOAD                                          
019537,001149: 33,3506           00001                                    0                                     
019538,001150: 33,3507           41546                           COS      PUSH                                  #  PD00 COS(EL) PD00
019539,001151: 33,3510           47133                           SLOAD*   RTB                                   
019540,001152: 33,3511           02435                                    TAZEL1     +2,1                       
019541,001153: 33,3512           45510                                    CDULOGIC                              
019542,001154: 33,3513           00003                           STORE    2                                     #  PD02 AZIMUTH PD02
019543,001155: 33,3514           41356                           SIN      DMP                                   
019544,001156: 33,3515           00001                                    0                                     
019545,001157: 33,3516           77752                           SL1                                            
019546,001158: 33,3517           10027                           STORE    22D,2                                 #  PD10 *** SIN(AZ)COS(EL) ***PD16
019547,001159: 33,3520           71545                           DLOAD    COS                                   
019548,001160: 33,3521           00003                                    2                                     
019549,001161: 33,3522           72405                           DMP      SL1                                   
019550,001162: 33,3523           76076                           DCOMP    AXT,1                                 
019551,001163: 33,3524           00000                                    0                                     
019552,001164: 33,3525           10025                           STORE    20D,2                                 #  PD08 *** -COS(AZ)COS(EL) ***PD14
019553,001165: 33,3526           43504                           TIX,2    RVQ                                   
019554,001166: 33,3527           67500                                    TAR1                                  
019555,001167: 33,3530                                           BANK     33                                    
019556,001168: 33,2000                                           SETLOC   IMUCAL                                
019557,001169: 33,2000                                           BANK                                           
019558,001170: 33,3530                                           COUNT*   $$/P03                                
019559,001171: 
019560,001172: 33,3530           34712        CONTIN33           CA       ONE                                   
019561,001173: 33,3531           54735                           TS       STARCODE                              
019562,001174: 33,3532           34714                           CA       ZERO                                  
019563,001175: 33,3533           03625                           TC       TARGDRVE                              
019564,001176: 33,3534           06006                           TC       INTPRET                               
019565,001177: 33,3535           77624                           CALL                                           
019566,001178: 33,3536           67471                                    TAR/EREF                              
019567,001179: 33,3537           64375        NEXTBNKS           VLOAD    MXV                                   
019568,001180: 33,3540           00007                                    6D                                    
019569,001181: 33,3541           02672                                    XSM                                   
019570,001182: 33,3542           77772                           VSL1                                           
019571,001183: 33,3543           26736                           STOVL    STARAD                                
019572,001184: 33,3544           00015                                    12D                                   
019573,001185: 33,3545           76521                           MXV      VSL1                                  
019574,001186: 33,3546           02672                                    XSM                                   
019575,001187: 33,3547           02744                           STORE    STARAD     +6                         
019576,001188: 33,3550           77624                           CALL                                           
019577,001189: 33,3551           67722                                    LITTLSUB                              

Page 444

019579,001191: 33,3552           02414                           STORE    LOSVEC                                
019580,001192: 33,3553           77776                           EXIT                                           
019581,001193: 33,3554           04555                           TC       BANKCALL                              
019582,001194: 33,3555           16063                           CADR     MKRELEAS                              
019583,001195: 33,3556           34711        NEXBNKSS           CAF      TWO                                   
019584,001196: 33,3557           54735                           TS       STARCODE                              
019585,001197: 33,3560           36211                           CAF      SIX                                   
019586,001198: 33,3561           03625                           TC       TARGDRVE                              
019587,001199: 33,3562           06006                           TC       INTPRET                               
019588,001200: 33,3563           77624                           CALL                                           
019589,001201: 33,3564           67722                                    LITTLSUB                              
019590,001202: 33,3565           24015                           STOVL    12D                                   
019591,001203: 33,3566           02414                                    LOSVEC                                
019592,001204: 33,3567           34007                           STCALL   06D                                   
019593,001205: 33,3570           47334                                    AXISGEN                               
019594,001206: 33,3571           77624                           CALL                                           
019595,001207: 33,3572           47140                                    CALCGTA                               
019596,001208: 33,3573           77776                           EXIT                                           
019597,001209: 33,3574           33621        GCOMP4             CAF      V06N93S                               
019598,001210: 33,3575           04555                           TC       BANKCALL                              
019599,001211: 33,3576           20624                           CADR     GOFLASH                               
019600,001212: 33,3577           03610                           TC       GCOMP5                                
019601,001213: 33,3600           13602                           TCF      +2                                    
019602,001214: 33,3601           13574                           TCF      GCOMP4                                
019603,001215: 33,3602           06006                           TC       INTPRET                               
019604,001216: 33,3603           53375                           VLOAD    VAD                                   
019605,001217: 33,3604           02760                                    OGC                                   
019606,001218: 33,3605           02650                                    ERCOMP1                               
019607,001219: 33,3606           02650                           STORE    ERCOMP1                               
019608,001220: 33,3607           77776                           EXIT                                           
019609,001221: 33,3610           04555        GCOMP5             TC       BANKCALL                              
019610,001222: 33,3611           16063                           CADR     MKRELEAS                              
019611,001223: 33,3612           05447                           TC       DOWNFLAG                              
019612,001224: 33,3613           00032                           ADRES    TRM03FLG                              
019613,001225: 
019614,001226: 33,3614           05243                           TC       NEWMODEX                              
019615,001227: 33,3615           00002                           MM       02         B-14                       
019616,001228: 33,3616           05301                           TC       PHASCHNG                              
019617,001229: 33,3617           00004                           OCT      00004                                 
019618,001230: 33,3620           05112                           TC       ENDOFJOB                              
019619,001231: 33,3621           01535        V06N93S            VN       0693                                  
019620,001232: 33,3622           05537        GTSOPTCS           TC       ALARM                                 
019621,001233: 33,3623           01602        GTSOPTSS           OCT      01602                                 
019622,001234: 33,3624           03610                           TC       GCOMP5                                
019623,001235: 34,2002                                           BANK     34                                    
019624,001236: 04,2000                                           SETLOC   IMUCAL1                               

Page 445

019626,001238: 04,2000                                           BANK                                           
019627,001239: 
019628,001240: 04,2617                                           COUNT    34/COMST                              
019629,001241: 
019630,001242: 04,2617           62545        LATAZCHK           DLOAD    SL2                                   #  CALLS FOR AZIMUTH AND LATITUDE
019631,001243: 04,2620           02403                                    LATITUDE                              
019632,001244: 04,2621           15047                           STODL    DSPTEM1    +1                         
019633,001245: 04,2622           02401                                    AZIMUTH                               
019634,001246: 04,2623           77434                           RTB      EXIT                                  
019635,001247: 04,2624           45543                                    1STO2S                                
019636,001248: 04,2625           56154                           XCH      MPAC                                  
019637,001249: 04,2626           55045                           TS       DSPTEM1                               
019638,001250: 04,2627           04555                           TC       BANKCALL                              
019639,001251: 04,2630           20607                           CADR     CLEANDSP                              
019640,001252: 04,2631           32650                           CAF      VNG0641                               
019641,001253: 04,2632           04555                           TC       BANKCALL                              
019642,001254: 04,2633           20624                           CADR     GOFLASH                               
019643,001255: 04,2634           02636                           TC       +2                                    #  NOT ALLOWED
019644,001256: 04,2635           02637                           TC       +2                                    
019645,001257: 04,2636           02631                           TC       -5                                    
019646,001258: 04,2637           06006                           TC       INTPRET                               
019647,001259: 04,2640           47135                           SLOAD    RTB                                   
019648,001260: 04,2641           01046                                    DSPTEM1                               
019649,001261: 04,2642           45510                                    CDULOGIC                              
019650,001262: 04,2643           02401                           STORE    AZIMUTH                               
019651,001263: 04,2644           60535                           SLOAD    SR2                                   
019652,001264: 04,2645           01047                                    DSPTEM1    +1                         
019653,001265: 04,2646           02403                           STORE    LATITUDE                              
019654,001266: 04,2647           77616                           RVQ                                            
019655,001267: 04,2650           01451        VNG0641            VN       0641                                  
019656,001268: 33,3625                                           BANK     33                                    
019657,001269: 33,2000                                           SETLOC   IMUCAL                                
019658,001270: 33,2000                                           BANK                                           
019659,001271: 33,3625                                           COUNT*   $$/P03                                
019660,001272: 33,3625           00006        TARGDRVE           EXTEND                                         
019661,001273: 33,3626           23424                           QXCH     QPLAC                                 
019662,001274: 33,3627           55431                           TS       TARG1/2                               
019663,001275: 33,3630           06006                           TC       INTPRET                               
019664,001276: 33,3631           77624                           CALL                                           
019665,001277: 33,3632           67471                                    TAR/EREF                              
019666,001278: 33,3633           76740                           LXC,1    VLOAD*                                
019667,001279: 33,3634           02431                                    TARG1/2                               
019668,001280: 33,3635           00007                                    6D,1                                  
019669,001281: 33,3636           36766                           STCALL   STAR                                  
019670,001282: 33,3637           46053                                    SXTANG                                
019671,001283: 33,3640           77776                           EXIT                                           

Page 446

019673,001285: 33,3641           31773                           CA       SAC                                   
019674,001286: 33,3642           55161                           TS       DESOPTS                               
019675,001287: 33,3643           31775                           CA       PAC                                   
019676,001288: 33,3644           55160                           TS       DESOPTT                               
019677,001289: 33,3645           34714        RETARG             CAF      ZERO                                  
019678,001290: 33,3646           55303                           TS       OPTIND                                
019679,001291: 33,3647           34712                           CAF      ONE                                   
019680,001292: 33,3650           04555                           TC       BANKCALL                              
019681,001293: 33,3651           16002                           CADR     SXTMARK                               
019682,001294: 33,3652           04555                           TC       BANKCALL                              
019683,001295: 33,3653           17512                           CADR     OPTSTALL                              
019684,001296: 33,3654           03622                           TC       GTSOPTCS                              
019685,001297: 33,3655           30075                           CAE      FLAGWRD1                              
019686,001298: 33,3656           74707                           MASK     TRM03BIT                              
019687,001299: 33,3657           10000                           CCS      A                                     
019688,001300: 33,3660           03610                           TC       GCOMP5                                
019689,001301: 
019690,001302: 33,3661           51330                           INDEX    MARKSTAT                              
019691,001303: 33,3662           30052                           CA       QPRET                                 
019692,001304: 33,3663           00006                           EXTEND                                         
019693,001305: 33,3664           13666                           BZF      RETARG1                               
019694,001306: 33,3665           01424                           TC       QPLAC                                 
019695,001307: 33,3666           34714        RETARG1            CA       ZERO                                  #  RELEASE PREVIOUSLY GRABBED VAC AREA
019696,001308: 33,3667           57330                           XCH      MARKSTAT                              
019697,001309: 33,3670           10000                           CCS      A                                     
019698,001310: 33,3671           50000                           INDEX    A                                     
019699,001311: 33,3672           54000                           TS       A                                     
019700,001312: 33,3673           13645                           TCF      RETARG                                #  GO DO SXTMARK AGAIN
019701,001313: 33,3674                                           BANK     33                                    
019702,001314: 33,2000                                           SETLOC   IMUCAL                                
019703,001315: 33,2000                                           BANK                                           
019704,001316: 33,3674                                           COUNT*   $$/P03                                
019705,001317: 33,3674           30341 22444  PIPASC             2DEC     .76376833                             
019706,001318: 33,3676           57223 66451  VELSC              2DEC     -.52223476                            
019707,001319: 33,3700           05427 12577  ALSK               2DEC     .17329931                             
019708,001320: 33,3702           77567 44202                     2DEC     -.00835370                            
019709,001321: 33,3704           24276 14066  GEORGEJ            2DEC     .63661977                             
019710,001322: 33,3706           23073 11773  GEORGEK            2DEC     .59737013                             
019711,001323: 33,3710           00055 20267  2DEGRES            2DEC     .00277778                             
019712,001324: 33,3712           03146 14632  GEOCONS1           2DEC     .1                                    

Page 447

019714,001326: 33,3714           00121 35341  GEOCONS2           2DEC     .005                                  
019715,001327: 33,3716           01767 31666  GEOCONS3           2DEC     .062                                  
019716,001328: 33,3720           00004 35223  GEOCONS4           2DEC     .0003                                 
019717,001329: 
019718,001330: 33,3722                                           COUNT    33/P02                                
019719,001331: 33,3722           77620        LITTLSUB           STQ                                            
019720,001332: 33,3723           02424                                    QPLAC                                 
019721,001333: 33,3724           76740                           LXC,1    VLOAD*                                
019722,001334: 33,3725           01330                                    MARKSTAT                              
019723,001335: 33,3726           00003                                    2,1                                   
019724,001336: 33,3727           34767                           STCALL   CDUSPOT                               
019725,001337: 33,3730           46000                                    SXTNB                                 
019726,001338: 33,3731           77624                           CALL                                           
019727,001339: 33,3732           47572                                    TRG*NBSM                              
019728,001340: 33,3733           77650                           GOTO                                           
019729,001341: 33,3734           02424                                    QPLAC                                 
019730,001342: 33,3735           77776                           EXIT                                           
019731,001343: 33,3736           06006        AZMTHCG1           TC       INTPRET                               
019732,001344: 33,3737           47145                           DLOAD    RTB                                   
019733,001345: 33,3740           02636                                    NEWAZMTH                              
019734,001346: 33,3741           45543                                    1STO2S                                
019735,001347: 33,3742           77776                           EXIT                                           
019736,001348: 33,3743           56154                           XCH      MPAC                                  
019737,001349: 33,3744           55045                           TS       DSPTEM1                               
019738,001350: 33,3745           04555                           TC       BANKCALL                              
019739,001351: 33,3746           20607                           CADR     CLEANDSP                              
019740,001352: 33,3747           33771                           CAF      VN0629                                
019741,001353: 33,3750           04555                           TC       BANKCALL                              
019742,001354: 33,3751           20624                           CADR     GOFLASH                               
019743,001355: 33,3752           13754                           TCF      +2                                    
019744,001356: 33,3753           13755                           TCF      +2                                    
019745,001357: 33,3754           13747                           TCF      -5                                    
019746,001358: 33,3755           06006                           TC       INTPRET                               
019747,001359: 33,3756           47135                           SLOAD    RTB                                   
019748,001360: 33,3757           01046                                    DSPTEM1                               
019749,001361: 33,3760           45510                                    CDULOGIC                              
019750,001362: 33,3761           02634                           STORE    LAUNCHAZ                              
019751,001363: 33,3762           77776                           EXIT                                           
019752,001364: 33,3763           34714                           CA       ZERO                                  
019753,001365: 33,3764           55632                           TS       PREMTRXC                              
019754,001366: 33,3765           05301                           TC       PHASCHNG                              
019755,001367: 33,3766           00004                           OCT      00004                                 
019756,001368: 33,3767           04574                           TC       POSTJUMP                              
019757,001369: 33,3770           21176                           CADR     PINBRNCH                              
019758,001370: 
019759,001371: 33,3771           01435        VN0629             VN       0629                                  
019760,001372: 

Page 448 Empty page.

019763,001375: 

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