Source Code

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

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

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

015653,000002:                                                                                                  ## Copyright:   Public domain.
015654,000003:                                                                                                  ## Filename:    IMU_PERFORMANCE_TESTS_1.agc
015655,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It 
015656,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
015657,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
015658,000007:                                                                                                  ## Assembler:   yaYUL
015659,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
015660,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
015661,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
015662,000011:                                                                                                  ##              2016-10-18 RSB  Corrected against AURORA 12 version.  (Mostly
015663,000012:                                                                                                  ##                              identical, but there was a small amount of code
015664,000013:                                                                                                  ##                              added.
015665,000014:                                                                                                  ##              2016-10-31 RSB  Typos.
015666,000015:                                                                                                  ##              2016-12-05 RSB  Comment-proofing with octopus/ProoferComments
015667,000016:                                                                                                  ##                              completed, changes made.
015668,000017:                                                                                                  ##              2017-06-08 RSB  Some corrections (mostly comments, mostly whitespace)
015669,000018:                                                                                                  ##                              discovered while transcribing SUNBURST 37.
015670,000019: 

Page 380

015672,000021: 14,2000                                           BANK     14                                    
015673,000022: 14,2000  E5,1400                                  EBANK=   XSM                                   
015674,000023: 
015675,000024: 
015676,000025: 
015677,000026: 14,2000           37763        AOTNBIMU           CAF      ONE                                   #  AOT-NB-IMU FINE ALIGNMENT TEST
015678,000027: 14,2001           55512                           TS       EROPTN                                #  ... TEST CAPABILITY ...
015679,000028: 
015680,000029: 14,2002           05206                           TC       BANKCALL                              
015681,000030: 14,2003           26000                           CADR     IMUZERO                               #  IMU ZERO ENCODER MODE
015682,000031: 14,2004           06112                           TC       INTPRET                               
015683,000032: 14,2005           77624                           CALL                                           
015684,000033: 14,2006           30553                                    LATAZCHK                              #  TO LOAD AZIMUTH (SM) AND LATITUDE
015685,000034: 14,2007           77624                           CALL                                           
015686,000035: 14,2010           30325                                    MAKEXSMD                              #  TO SET UP A STABLE MEMBER DESIRED MATRIX
015687,000036: 14,2011           45014                           SET      CALL                                  
015688,000037: 14,2012           00065                                    COAROFIN                              #  FOR COARSE OR FINE ALIGN MARKS
015689,000038: 14,2013           30407                                    ERTHRVSE                              #  TO CALCULATE EARTH RATE VECTOR
015690,000039: 14,2014           77776                           EXIT                                           
015691,000040: 
015692,000041: 14,2015           33700        POSLOAD            CAF      V24N30E                               #  R1  0000X ENTER    POSITION 1,2, OR 3
015693,000042: 14,2016           04657                           TC       NVSBWAIT                              #  R2  00000 ENTER    00001 FOR LAB OPTION
015694,000043: 14,2017           04475                           TC       ENDIDLE                               
015695,000044: 14,2020           12770                           TCF      ENDTEST                               
015696,000045: 14,2021           12015                           TCF      -4                                    
015697,000046: 14,2022           56337                           XCH      DSPTEM1                               #  DO NOT USE POSITION 3 WITH NAV BASE AT
015698,000047: 14,2023           55544                           TS       POSITON                               #     ZERO DEGREE TILT ANGLE. (GIMBAL LOCK)
015699,000048: 
015700,000049: 14,2024           10340                           CCS      DSPTEM1    +1                         
015701,000050: 14,2025           13003                           TCF      LEMLAB                                #  SPECIAL LAB TEST TO BYPASS MARKS
015702,000051: 
015703,000052: 14,2026           02621                           TC       POSNJUMP                              #  SET UP STABLE MEMBER DESIRED COORDINATES
015704,000053: 
015705,000054: 14,2027           02524                           TC       OPTDATA                               #  TARGETS 1,2 AZIMUTH AND ELEVATION
015706,000055: 
015707,000056: 14,2030           02135                           TC       FINDNAVB                              #  COARSE ALIGN MARKS
015708,000057: 
015709,000058: 14,2031           05206                           TC       BANKCALL                              
015710,000059: 14,2032           26751                           CADR     IMUSTALL                              #  INSURE IMUZERO COMPLETION
015711,000060: 14,2033           12770                           TCF      ENDTEST                               
015712,000061: 
015713,000062: 14,2034           02247                           TC       PUTPOSX                               #  TO COARSE ALIGN STABLE MEMBER
015714,000063: 
015715,000064: 14,2035           02762                           TC       GMLCKCHK                              #  CHECK FOR GIMBAL LOCK BEFORE FINE ALIGN
015716,000065: 14,2036           02752                           TC       OGCZERO                               #  FOR EARTH RATE COMPENSATION
015717,000066: 
015718,000067: 14,2037           05206                           TC       BANKCALL                              
015719,000068: 14,2040           26252                           CADR     IMUFINE                               #  FINE ALIGN MODE
015720,000069: 14,2041           05206                           TC       BANKCALL                              
015721,000070: 14,2042           26751                           CADR     IMUSTALL                              

Page 381

015723,000072: 14,2043           12770                           TCF      ENDTEST                               
015724,000073: 
015725,000074: 14,2044           02135                           TC       FINDNAVB                              #  FINE ALIGN MARKS
015726,000075: 
015727,000076: 14,2045           04724                           TC       FREEDSP                               #  FREE DISPLAY SYSTEM
015728,000077: 
015729,000078: 14,2046           02263                           TC       SMDCALC                               #  TO FINE ALIGN STABLE MEMBER
015730,000079: 
015731,000080: 14,2047           05206        ERFINAL            TC       BANKCALL                              #  LAST EARTH RATE SHOT
015732,000081: 14,2050           30424                           CADR     EARTHR                                
015733,000082: 14,2051           11512                           CCS      EROPTN                                #  IF DESIRED TO COMPENSATE CONTINUALLY
015734,000083: 14,2052           12065                           TCF      MONSTART                              #      CHANGE BY V21 N02 E XXXXX E 00000 E
015735,000084: 14,2053           12047                           TCF      ERFINAL                               
015736,000085: 14,2054           12770                           TCF      ENDTEST                               
015737,000086: 14,2055           55512                           TS       EROPTN                                
015738,000087: 14,2056           00004                           INHINT                                         
015739,000088: 14,2057           35644                           CAF      PRIO21                                #  PRIORITY 1 HIGHER THAN SXTNBIMU
015740,000089: 14,2060           05516                           TC       FINDVAC                               
015741,000090: 14,2061  E5,1400                                  EBANK=   XSM                                   
015742,000091: 14,2061           03105 30065                     2CADR    RDR37511                              
015743,000092: 
015744,000093: 14,2063           00003                           RELINT                                         
015745,000094: 14,2064           02047                           TC       ERFINAL                               
015746,000095: 
015747,000096: 14,2065           05026        MONSTART           TC       FINETIME                              #  TIME AT INITIAL MISALIGNMENT
015748,000097: 14,2066           52145                           DXCH     MPAC                                  
015749,000098: 14,2067           00003                           RELINT                                         
015750,000099: 14,2070           37767                           CAF      ZERO                                  #  ZERO PIPA COUNTERS
015751,000100: 14,2071           54037                           TS       PIPAX                                 
015752,000101: 14,2072           54040                           TS       PIPAY                                 
015753,000102: 14,2073           54041                           TS       PIPAZ                                 
015754,000103: 14,2074           55551                           TS       STOREPL                               
015755,000104: 14,2075           55537                           TS       NDXCTR                                
015756,000105: 14,2076           02477                           TC       STORRSLT                              #  STORE T(INITIAL) AND PIPAI = 0
015757,000106: 
015758,000107: 14,2077           00004                           INHINT                                         
015759,000108: 14,2100           33711                           CAF      60SEC                                 #  INSURE PIPAI VARIES IN ONE DIRECTION
015760,000109: 14,2101           05663                           TC       WAITLIST                              
015761,000110: 14,2102  E5,1400                                  EBANK=   XSM                                   
015762,000111: 14,2102           02106 30065                     2CADR    PIP1                                  
015763,000112: 
015764,000113: 14,2104           32134                           CAF      PIP2ADR                               
015765,000114: 14,2105           05545                           TC       JOBSLEEP                              
015766,000115: 
015767,000116: 14,2106           32134        PIP1               CAF      PIP2ADR                               
015768,000117: 14,2107           05551                           TC       JOBWAKE                               
015769,000118: 14,2110           05727                           TC       TASKOVER                              
015770,000119: 
015771,000120: 14,2111           31542        PIP2               CAE      PIPNDX                                
015772,000121: 14,2112           55541                           TS       PIPINDEX                              #  POS1 PIPAY     POS2 PIPAX     POS3 PIPAX

Page 382

015774,000123: 14,2113           05206                           TC       BANKCALL                              
015775,000124: 14,2114           51737                           CADR     DOCHECKG                              #  SYNC ON PIPA PULSE
015776,000125: 
015777,000126: 14,2115           00003                           RELINT                                         
015778,000127: 14,2116           02477                           TC       STORRSLT                              #  STORE TIME AND PIPAI
015779,000128: 
015780,000129: 14,2117           31543                           CAE      PIPNDX     +1                         
015781,000130: 14,2120           55541                           TS       PIPINDEX                              #  POS1 PIPAZ     POS2 PIPAY     POS3 PIPAZ
015782,000131: 14,2121           05206                           TC       BANKCALL                              
015783,000132: 14,2122           51737                           CADR     DOCHECKG                              #  SYNC ON PIPA PULSE
015784,000133: 
015785,000134: 14,2123           00003                           RELINT                                         
015786,000135: 14,2124           02477                           TC       STORRSLT                              #  STORE TIME AND PIPAI
015787,000136: 
015788,000137: 14,2125           00004                           INHINT                                         
015789,000138: 14,2126           33710                           CAF      30SEC                                 #  MONITOR PIPAS AT 30 SECOND INTERVALS
015790,000139: 14,2127           05663                           TC       WAITLIST                              
015791,000140: 14,2130  E5,1400                                  EBANK=   XSM                                   
015792,000141: 14,2130           02106 30065                     2CADR    PIP1                                  
015793,000142: 
015794,000143: 14,2132           32134                           CAF      PIP2ADR                               
015795,000144: 14,2133           05545                           TC       JOBSLEEP                              
015796,000145: 14,2134           30111        PIP2ADR            CADR     PIP2                                  
015797,000146: 

Page 383

015799,000148: 14,2135           00006        FINDNAVB           EXTEND                                         #  MARKS * CALC NB OR SM WRT EARTH REF
015800,000149: 14,2136           23546                           QXCH     QPLACE                                
015801,000150: 
015802,000151: 14,2137           05206                           TC       BANKCALL                              
015803,000152: 14,2140           27046                           CADR     MKRELEAS                              #  RELEASE MARK SYSTEM
015804,000153: 14,2141           37763                           CAF      ONE                                   
015805,000154: 14,2142           54337                           TS       DSPTEM1                               
015806,000155: 14,2143           33674                           CAF      V01N30E                               #  DISPLAY 00001 IN R1
015807,000156: 14,2144           04657                           TC       NVSBWAIT                              
015808,000157: 14,2145           37767                           CAF      ZERO                                  #  TO INDICATE GROUND MARKS
015809,000158: 14,2146           05206                           TC       BANKCALL                              
015810,000159: 14,2147           27005                           CADR     AOTMARK                               #  MARK ON TARGET 1
015811,000160: 
015812,000161: 14,2150           05206                           TC       BANKCALL                              
015813,000162: 14,2151           26747                           CADR     OPTSTALL                              #  INSURE SUCCESSFUL MARK
015814,000163: 14,2152           12770                           TCF      ENDTEST                               
015815,000164: 14,2153           00006                           EXTEND                                         
015816,000165: 14,2154           50373                           INDEX    MARKSTAT                              
015817,000166: 14,2155           30001                           DCA      0                                     
015818,000167: 14,2156           53565                           DXCH     TMARK                                 #  TIME(PRES) FOR EARTH RATE COMPENSATION
015819,000168: 
015820,000169: 14,2157           02242                           TC       GIMANGS1                              
015821,000170: 
015822,000171: 14,2160           06112                           TC       INTPRET                               
015823,000172: 14,2161           45140                           LXC,1    CALL                                  
015824,000173: 14,2162           00373                                    MARKSTAT                              #  BASE ADDRESS VAC AREA FOR AOTNB
015825,000174: 14,2163           33114                                    AOTNB                                 #  OPTICS TO NAV BASE COORDINATE FRAME
015826,000175: 14,2164           45014                           BON      CALL                                  
015827,000176: 14,2165           00305                                    COAROFIN                              #  COARSE MARKS = 0    FINE MARKS = 1
015828,000177: 14,2166           30170                                    +2                                    
015829,000178: 14,2167           32555                                    NBSM                                  #  NAV BASE DIRECT TO STABLE MEMBER
015830,000179: 14,2170           02445                           STORE    STARAD                                #  TARGET 1 WRT NAV BASE OR STABLE MEMBER
015831,000180: 14,2171           02601                           STORE    LOS1                                  #  ...FOR K...
015832,000181: 14,2172           77776                           EXIT                                           
015833,000182: 
015834,000183: 14,2173           05206                           TC       BANKCALL                              
015835,000184: 14,2174           27046                           CADR     MKRELEAS                              #  RELEASE MARK SYSTEM
015836,000185: 14,2175           37762                           CAF      TWO                                   
015837,000186: 14,2176           54337                           TS       DSPTEM1                               
015838,000187: 14,2177           33674                           CAF      V01N30E                               #  DISPLAY 00002 IN R1
015839,000188: 14,2200           04657                           TC       NVSBWAIT                              
015840,000189: 14,2201           37767                           CAF      ZERO                                  #  TO INDICATE GROUND MARKS
015841,000190: 14,2202           05206                           TC       BANKCALL                              
015842,000191: 14,2203           27005                           CADR     AOTMARK                               #  MARK ON TARGET 2
015843,000192: 
015844,000193: 14,2204           37752                           CAF      BIT10                                 
015845,000194: 14,2205           70074                           MASK     STATE                                 #  BIT10 = COAROFIN
015846,000195: 14,2206           10000                           CCS      A                                     
015847,000196: 14,2207           12215                           TCF      EARRTCOM   +5                         #  IF COARSE ALIGN MARKS
015848,000197: 

Page 384

015850,000199: 14,2210           05206        EARRTCOM           TC       BANKCALL                              #  EARTH RATE COMPENSATION BETWEEN MARKS
015851,000200: 14,2211           30424                           CADR     EARTHR                                
015852,000201: 14,2212           10370                           CCS      OPTCADR                               #  +0 IF MARK BUTTON NOT DEPRESSED
015853,000202: 14,2213           12216                           TCF      +3                                    
015854,000203: 14,2214           12210                           TCF      EARRTCOM                              #  CONTINUE TO COMPENSATE FOR EARTH RATE
015855,000204: 14,2215           12216                           TCF      +1                                    
015856,000205: 14,2216           05206                           TC       BANKCALL                              
015857,000206: 14,2217           26747                           CADR     OPTSTALL                              #  INSURE SUCCESSFUL MARK
015858,000207: 14,2220           12770                           TCF      ENDTEST                               
015859,000208: 
015860,000209: 14,2221           02242                           TC       GIMANGS1                              
015861,000210: 
015862,000211: 14,2222           06112                           TC       INTPRET                               
015863,000212: 14,2223           45140                           LXC,1    CALL                                  
015864,000213: 14,2224           00373                                    MARKSTAT                              #  BASE ADDRESS VAC AREA FOR AOTNB
015865,000214: 14,2225           33114                                    AOTNB                                 #  OPTICS TO NAV BASE COORDINATE FRAME
015866,000215: 14,2226           45014                           BONCLR   CALL                                  #  SET TO ZERO FOR FINE ALIGN MARKS
015867,000216: 14,2227           00205                                    COAROFIN                              #  COARSE MARKS = 0    FINE MARKS = 1
015868,000217: 14,2230           30232                                    +2                                    
015869,000218: 14,2231           32555                                    NBSM                                  #  NAV BASE DIRECT TO STABLE MEMBER
015870,000219: 14,2232           02453                           STORE    STARAD     +6                         #  TARGET 2 WRT NAV BASE OR STABLE MEMBER
015871,000220: 14,2233           02607                           STORE    LOS2                                  #  ...FOR K...
015872,000221: 
015873,000222: 14,2234           77624        MAXDET             CALL                                           
015874,000223: 14,2235           30350                                    TAR/EREF                              #  TARGETS 1,2 WRT EARTH REF FRAME
015875,000224: 14,2236           77624                           CALL                                           
015876,000225: 14,2237           32741                                    AXISGEN                               #  NAV BASE OR SM WRT EARTH REF FRAME
015877,000226: 14,2240           77776                           EXIT                                           
015878,000227: 14,2241           01546                           TC       QPLACE                                
015879,000228: 
015880,000229: 
015881,000230: 
015882,000231: 14,2242           37762        GIMANGS1           CAF      TWO                                   #  BASE ADDRESS GIMBAL ANGLES FOR NBSM
015883,000232: 14,2243           60373                           AD       MARKSTAT                              
015884,000233: 14,2244           50110                           INDEX    FIXLOC                                
015885,000234: 14,2245           54050                           TS       S1                                    
015886,000235: 14,2246           00002                           TC       Q                                     
015887,000236: 

Page 385

015889,000238: 14,2247           00006        PUTPOSX            EXTEND                                         #  COARSE ALIGNS STABLE MEMBER
015890,000239: 14,2250           23546                           QXCH     QPLACE                                
015891,000240: 
015892,000241: 14,2251           06112                           TC       INTPRET                               
015893,000242: 14,2252           77624                           CALL                                           
015894,000243: 14,2253           32655                                    CALCGA                                #  CALCULATE COARSE ALIGN GIMBAL ANGLES
015895,000244: 14,2254           77776                           EXIT                                           
015896,000245: 
015897,000246: 14,2255           05206                           TC       BANKCALL                              
015898,000247: 14,2256           26065                           CADR     IMUCOARS                              #  COARSE ALIGN MODE
015899,000248: 14,2257           05206                           TC       BANKCALL                              
015900,000249: 14,2260           26751                           CADR     IMUSTALL                              
015901,000250: 14,2261           12770                           TCF      ENDTEST                               
015902,000251: 14,2262           01546                           TC       QPLACE                                
015903,000252: 
015904,000253: 
015905,000254: 
015906,000255: 
015907,000256: 14,2263           00006        SMDCALC            EXTEND                                         #  FINE ALIGNS STABLE MEMBER
015908,000257: 14,2264           23546                           QXCH     QPLACE                                
015909,000258: 
015910,000259: 14,2265           06112                           TC       INTPRET                               
015911,000260: 14,2266           64375                           VLOAD    MXV                                   
015912,000261: 14,2267           02401                                    XSM                                   #  XSM DESIRED WRT EARTH REF FRAME
015913,000262: 14,2270           02445                                    STARAD                                #  THEN TO SM PRESENT OR NAV BASE FRAME
015914,000263: 14,2271           43172                           VSL1     BOFF                                  
015915,000264: 14,2272           00345                                    COAROFIN                              #  BIT10 FOR LEMLAB TEST
015916,000265: 14,2273           30276                                    +3                                    
015917,000266: 14,2274           34041                           STCALL   32D                                   
015918,000267: 14,2275           32555                                    NBSM                                  #  THEN TO SM PRESENT FRAME
015919,000268: 14,2276           26423                           STOVL    XDC                                   
015920,000269: 14,2277           02407                                    YSM                                   #  YSM DESIRED WRT EARTH REF FRAME
015921,000270: 
015922,000271: 14,2300           76521                           MXV      VSL1                                  
015923,000272: 14,2301           02445                                    STARAD                                #  THEN TO SM PRESENT OR NAV BASE FRAME
015924,000273: 14,2302           77614                           BOFF                                           
015925,000274: 14,2303           00345                                    COAROFIN                              #  BIT10 FOR LEMLAB TEST
015926,000275: 14,2304           30307                                    +3                                    
015927,000276: 14,2305           34041                           STCALL   32D                                   
015928,000277: 14,2306           32555                                    NBSM                                  #  THEN TO SM PRESENT FRAME
015929,000278: 14,2307           26431                           STOVL    YDC                                   
015930,000279: 14,2310           02423                                    XDC                                   
015931,000280: 
015932,000281: 14,2311           76435                           VXV      VSL1                                  
015933,000282: 14,2312           02431                                    YDC                                   
015934,000283: 14,2313           36437                           STCALL   ZDC                                   #  ZSM DESIRED WRT SM PRESENT FRAME
015935,000284: 14,2314           32425                                    CALCGTA                               #  CALCULATE FINE ALIGN TORQUING ANGLES
015936,000285: 
015937,000286: 14,2315           47170                           AXT,1    RTB                                   
015938,000287: 

Page 386

015940,000289: 14,2316           02500                           ECADR    OGC                                   #  X1 = BASE ADDRESS OF TORQUING ANGLES
015941,000290: 14,2317           33627                                    PULSEIMU                              #  TO PUT OUT GYRO TORQUING PULSES
015942,000291: 14,2320           77776                           EXIT                                           
015943,000292: 
015944,000293: 14,2321           05206                           TC       BANKCALL                              
015945,000294: 14,2322           26751                           CADR     IMUSTALL                              #  WAIT FOR PULSES TO GET OUT
015946,000295: 14,2323           12770                           TCF      ENDTEST                               
015947,000296: 14,2324           01546                           TC       QPLACE                                
015948,000297: 

Page 387

015950,000299: 14,2325           77776        MAKEXSMD           EXIT                                           #  XSM V   YSM SW   ZSM SE
015951,000300: 
015952,000301: 14,2326           33703                           CAF      17DEC                                 #  ZERO XSM, YSM, AND ZSM
015953,000302: 14,2327           55777                           TS       ZERONDX                               
015954,000303: 14,2330           33721                           CAF      XSMADRX                               
015955,000304: 14,2331           05206                           TC       BANKCALL                              
015956,000305: 14,2332           51245                           CADR     ZEROING                               #          VERT       SOUTH      EAST
015957,000306: 
015958,000307: 14,2333           37746                           CAF      HALF                                  #  XSM    * +1          0          0     *
015959,000308: 14,2334           55400                           TS       XSM                                   #         *                              *
015960,000309: 14,2335           06112                           TC       INTPRET                               #         *                              *
015961,000310: 14,2336           73545                           DLOAD    SIN                                   #  YSM    *  0      +SIN(AZ)    +COS(AZ) *
015962,000311: 14,2337           02507                                    AZIMUTH                               #         *                              *
015963,000312: 14,2340           02411                           STORE    XSM        +8D                        #         *                              *
015964,000313: 14,2341           16421                           STODL    XSM        +16D                       #  ZSM    *  0      -COS(AZ)    +SIN(AZ) *
015965,000314: 14,2342           02507                                    AZIMUTH                               
015966,000315: 14,2343           77746                           COS                                            
015967,000316: 14,2344           02413                           STORE    XSM        +10D                       
015968,000317: 14,2345           77676                           DCOMP                                          
015969,000318: 14,2346           02417                           STORE    XSM        +14D                       
015970,000319: 14,2347           77616                           RVQ                                            
015971,000320: 
015972,000321: 
015973,000322: 
015974,000323: 14,2350           77170        TAR/EREF           AXT,1    AXT,2                                 #               TARGET VECTOR
015975,000324: 14,2351           00002                                    2                                     #  SIN(EL)  -COS(AZ)COS(EL)  SIN(AZ)COS(EL)
015976,000325: 14,2352           00014                                    12D                                   
015977,000326: 14,2353           77731                           SSP                                            
015978,000327: 14,2354           00052                                    S2                                    
015979,000328: 14,2355           00006                                    6                                     #  TARGET 1                        TARGET 2
015980,000329: 
015981,000330: 14,2356           60533        TAR1               SLOAD*   SR2                                   #  X1=2  X2=12  S2=6 . X1=0  X2=6  S2=6
015982,000331: 14,2357           02557                                    TAZEL1     +3,1                       
015983,000332: 14,2360           00001                           STORE    0                                     #  PD00           ELEVATION            PD00
015984,000333: 14,2361           77756                           SIN                                            
015985,000334: 14,2362           10023                           STORE    18D,2                                 #  PD06  ***       SIN(EL)        ***  PD12
015986,000335: 14,2363           77745                           DLOAD                                          
015987,000336: 14,2364           00001                                    0                                     
015988,000337: 14,2365           41546                           COS      PUSH                                  #  PDOO            COS(EL)             PD00
015989,000338: 14,2366           47133                           SLOAD*   RTB                                   
015990,000339: 14,2367           02556                                    TAZEL1     +2,1                       
015991,000340: 14,2370           33457                                    CDULOGIC                              
015992,000341: 14,2371           00003                           STORE    2                                     #  PD02            AZIMUTH             PD02
015993,000342: 14,2372           41356                           SIN      DMP                                   
015994,000343: 14,2373           00001                                    0                                     
015995,000344: 14,2374           77752                           SL1                                            
015996,000345: 14,2375           10027                           STORE    22D,2                                 #  PD10  ***   +SIN(AZ)COS(EL)    ***  PD16
015997,000346: 14,2376           77745                           DLOAD                                          
015998,000347: 14,2377           00003                                    2                                     
015999,000348: 14,2400           41346                           COS      DMP                                   

Page 388

016001,000350: 14,2401           57552                           SL1      DCOMP                                 
016002,000351: 14,2402           10025                           STORE    20D,2                                 #  PD08  ***   -COS(AZ)COS(EL)    ***  PD14
016003,000352: 
016004,000353: 14,2403           61170                           AXT,1    TIX,2                                 
016005,000354: 14,2404           00000                                    0                                     
016006,000355: 14,2405           30356                                    TAR1                                  
016007,000356: 14,2406           77616                           RVQ                                            
016008,000357: 

Page 389

016010,000359: 14,2407           65345        ERTHRVSE           DLOAD    PDDL                                  
016011,000360: 14,2410           33105                                    ZERODP                                #  PD24 = (SIN  -COS  0)(OMEG/MS)
016012,000361: 14,2411           02511                                    LATITUDE                              
016013,000362: 14,2412           57546                           COS      DCOMP                                 
016014,000363: 14,2413           73525                           PDDL     SIN                                   
016015,000364: 14,2414           02511                                    LATITUDE                              #  EARTH RATE = .1504 ARCSEC / 10 MSEC
016016,000365: 14,2415           74266                           VDEF     VXSC                                  #  1.618 GYRO PULSES = 1 ARCSEC
016017,000366: 14,2416           31725                                    OMEG/MS                               #  OMEG/MS = .243... GYRO PULSES / 10 MSEC
016018,000367: 14,2417           02514                           STORE    ERVECTOR                              
016019,000368: 
016020,000369: 14,2420           77634                           RTB                                            
016021,000370: 14,2421           33454                                    LOADTIME                              
016022,000371: 14,2422           02565                           STORE    TMARK                                 #  TIME FOR GYRO DRIFT - PIPA SCALE FACTOR
016023,000372: 14,2423           77616                           RVQ                                            
016024,000373: 
016025,000374: 
016026,000375: 
016027,000376: 14,2424           05235        EARTHR             TC       MAKECADR                              #  CALCULATES AND COMPENSATES EARTH RATE
016028,000377: 14,2425           55547                           TS       QPLACES                               
016029,000378: 
016030,000379: 14,2426           04133                           TC       CHECKMM                               #  TEST FOR MAJOR MODE 4
016031,000380: 14,2427           00004                           OCT      4                                     #  IS PRELAUNCH OVER ?
016032,000381: 14,2430           12440                           TCF      GETPLTIM                              #  NO
016033,000382: 14,2431           00004                           INHINT                                         #  YES,
016034,000383: 14,2432           37763                           CA       BIT1                                  #  SET UP MP2TASK NOW
016035,000384: 14,2433           05663                           TC       WAITLIST                              
016036,000385: 14,2434  E3,1736                                  EBANK=   TGRR                                  
016037,000386: 14,2434           02003 56063                     2CADR    MP2TASK                               
016038,000387: 
016039,000388: 14,2436           32476                           CA       3.27CADR                              #  SET UP RETURN TO BYPASS PRELAUNCH
016040,000389: 14,2437           55547                           TS       QPLACES                               
016041,000390: 
016042,000391: 14,2440           00006        GETPLTIM           EXTEND                                         #  GET CURRENT TIME
016043,000392: 14,2441           30025                           DCA      TIME2                                 
016044,000393: 14,2442           52145                           DXCH     MPAC                                  
016045,000394: 14,2443           00006                           EXTEND                                         
016046,000395: 14,2444           30145                           DCA      MPAC                                  
016047,000396: 14,2445           53562                           DXCH     TEMPTIME                              #  STORE IN TEMPTIME BEFORE RELINT
016048,000397: 14,2446           00003                           RELINT                                         
016049,000398: 
016050,000399: 14,2447           37767                           CAF      ZERO                                  #  DECLARE DP MODE.
016051,000400: 14,2450           54153                           TS       MODE                                  
016052,000401: 14,2451           06112                           TC       INTPRET                               
016053,000402: 14,2452           54225                           DSU      SL                                    
016054,000403: 14,2453           02565                                    TMARK                                 #  T(PRES) - T(PREV) = DT    SCALED 10 MSEC
016055,000404: 14,2454           20212                                    9D                                    #  2 TO 21ST POWER = 1 REVOLUTION
016056,000405: 14,2455           64361                           VXSC     MXV                                   
016057,000406: 14,2456           02514                                    ERVECTOR                              #  VT = (SIN  -COS  0)(OMEG/MS)(DT)

Page 390

016059,000408: 14,2457           02401                                    XSM                                   #  (XSM)(VT) = EARTH RATE COMPENSATION
016060,000409: 14,2460           77655                           VAD                                            
016061,000410: 14,2461           02772                                    ERCOMP                                
016062,000411: 14,2462           16772                           STODL    ERCOMP                                
016063,000412: 14,2463           02562                                    TEMPTIME                              
016064,000413: 14,2464           02565                           STORE    TMARK                                 #  T(PREVIOUS)
016065,000414: 
016066,000415: 14,2465           47170                           AXT,1    RTB                                   
016067,000416: 14,2466           02771                           ECADR    ERCOMP                                
016068,000417: 14,2467           33627                                    PULSEIMU                              #  TO PUT OUT GYRO TORQUING PULSES
016069,000418: 14,2470           77776                           EXIT                                           
016070,000419: 
016071,000420: 14,2471           05206                           TC       BANKCALL                              
016072,000421: 14,2472           26751                           CADR     IMUSTALL                              #  WAIT FOR PULSES TO GET OUT
016073,000422: 14,2473           12770                           TCF      ENDTEST                               
016074,000423: 14,2474           31547                           CAE      QPLACES                               
016075,000424: 14,2475           15230                           TCF      BANKJUMP                              
016076,000425: 
016077,000426: 14,2476           72651        3.27CADR           CADR     REDO3.27                              
016078,000427: 
016079,000428: 
016080,000429: 14,2477           00006        STORRSLT           EXTEND                                         
016081,000430: 14,2500           23546                           QXCH     QPLACE                                
016082,000431: 
016083,000432: 14,2501           06112                           TC       INTPRET                               #  DP TIME IN MPAC SCALED .312(5) MSEC
016084,000433: 14,2502           54340                           LXC,1    SL                                    
016085,000434: 14,2503           02537                                    NDXCTR                                
016086,000435: 14,2504           20204                                    3                                     
016087,000436: 14,2505           47005                           DMP      RTB                                   
016088,000437: 14,2506           31723                                    SCALFTR                               
016089,000438: 14,2507           33520                                    SGNAGREE                              
016090,000439: 14,2510           06571                           STORE    GENPL,1                               #  STORE DP TIME
016091,000440: 14,2511           77776                           EXIT                                           
016092,000441: 
016093,000442: 14,2512           57551                           XCH      STOREPL                               #  CONTAINS C(PIPAI)
016094,000443: 14,2513           51537                           INDEX    NDXCTR                                
016095,000444: 14,2514           55572                           TS       GENPL      +2                         #  STORE PIPA COUNTER READING
016096,000445: 14,2515           41537                           CS       NDXCTR                                
016097,000446: 14,2516           63707                           AD       72DEC                                 
016098,000447: 14,2517           00006                           EXTEND                                         
016099,000448: 14,2520           63146                           BZMF     MISALIGN                              #  TO CALCULATE MISALIGNMENT
016100,000449: 14,2521           36311                           CAF      THREE                                 
016101,000450: 14,2522           27537                           ADS      NDXCTR                                
016102,000451: 14,2523           01546                           TC       QPLACE                                
016103,000452: 
016104,000453: 14,2524           00006        OPTDATA            EXTEND                                         #  CALLS FOR AZIMUTH AND ELEVATION OF
016105,000454: 14,2525           23546                           QXCH     QPLACE                                #     TARGET 1, THEN TARGET 2
016106,000455: 
016107,000456: 14,2526           37763                           CAF      BIT1                                  #  AZIMUTH CLOCKWISE FROM NORTH TO TARGET

Page 391

016109,000458: 14,2527           22007                           ZL                                             #  ELEVATION MEASURED FROM HORIZONTAL
016110,000459: 14,2530           23550                           LXCH     RUN                                   
016111,000460: 14,2531           54341                           TS       DSPTEM1    +2                         
016112,000461: 14,2532           33675                           CAF      V05N30E                               #  DISPLAY TARGET NUMBER IN R3
016113,000462: 14,2533           04657                           TC       NVSBWAIT                              
016114,000463: 14,2534           51550                           INDEX    RUN                                   
016115,000464: 14,2535           53554                           DXCH     TAZEL1                                
016116,000465: 14,2536           52340                           DXCH     DSPTEM1                               
016117,000466: 
016118,000467: 14,2537           02577                           TC       CHECKLD                               #  R1  +- XXX.XX    AZIMUTH IN DEGREES
016119,000468: 14,2540           00661                           OCT      00661                                 #  R2  +- XX.XXX    ELEVATION IN DEGREES
016120,000469: 14,2541           12770                           TCF      ENDTEST                               #  R3      0000X    TARGET NUMBER 1 OR 2
016121,000470: 
016122,000471: 14,2542           52340                           DXCH     DSPTEM1                               #  TAZEL1       TARGET 1 AZIMUTH
016123,000472: 14,2543           51550                           INDEX    RUN                                   
016124,000473: 14,2544           53554                           DXCH     TAZEL1                                #  TAZEL1 +2    TARGET 2 AZIMUTH
016125,000474: 14,2545           11550                           CCS      RUN                                   
016126,000475: 14,2546           12552                           TCF      +4                                    
016127,000476: 14,2547           37762        OPTRDRIN           CAF      TWO                                   #  SPECIAL ENTRY FOR RDR37511
016128,000477: 14,2550           54001                           TS       L                                     
016129,000478: 14,2551           12530                           TCF      OPTDATA    +4                         #  MPAC    1ST PASS = 0    2ND PASS = 2
016130,000479: 14,2552           01546                           TC       QPLACE                                
016131,000480: 

Page 392

016133,000482: 14,2553           62545        LATAZCHK           DLOAD    SL2                                   #  CALLS FOR AZIMUTH (SM) AND LATITUDE
016134,000483: 14,2554           02511                                    LATITUDE                              
016135,000484: 14,2555           14341                           STODL    DSPTEM1    +1                         
016136,000485: 14,2556           02507                                    AZIMUTH                               #  ...NOT REALLY...
016137,000486: 
016138,000487: 14,2557           77434                           RTB      EXIT                                  
016139,000488: 14,2560           33522                                    1STO2S                                #  FRACTION OF REVOLUTION TO 2S COMPLEMENT
016140,000489: 
016141,000490: 14,2561           56144                           XCH      MPAC                                  #  AZIMUTH MUST BE 135 DEGREES R1 = +13500
016142,000491: 14,2562           54337                           TS       DSPTEM1                               #     FOR SXT-NB-IMU FINE ALIGNMENT TEST
016143,000492: 14,2563           02577                           TC       CHECKLD                               #  R1  +- XXX.XX    AZIMUTH IN DEGREES (SM)
016144,000493: 14,2564           00661                           OCT      00661                                 #  R2  +- XX.XXX    LATITUDE IN DEGREES
016145,000494: 14,2565           12770                           TCF      ENDTEST                               #  R3               NOT USED
016146,000495: 
016147,000496: 14,2566           06112                           TC       INTPRET                               
016148,000497: 14,2567           47135                           SLOAD    RTB                                   
016149,000498: 14,2570           00340                                    DSPTEM1                               
016150,000499: 14,2571           33457                                    CDULOGIC                              #  BACK TO FRACTION OF REVOLUTION
016151,000500: 14,2572           02507                           STORE    AZIMUTH                               
016152,000501: 
016153,000502: 14,2573           60535                           SLOAD    SR2                                   
016154,000503: 14,2574           00341                                    DSPTEM1    +1                         
016155,000504: 14,2575           02511                           STORE    LATITUDE                              
016156,000505: 14,2576           77616                           RVQ                                            
016157,000506: 
016158,000507: 
016159,000508: 14,2577           00006        CHECKLD            EXTEND                                         
016160,000509: 14,2600           23545                           QXCH     QPLAC                                 
016161,000510: 
016162,000511: 14,2601           51545                           INDEX    QPLAC                                 
016163,000512: 14,2602           30000                           CA       A                                     
016164,000513: 14,2603           04444                           TC       NVSUB                                 
016165,000514: 14,2604           12616                           TCF      CHECKLD1                              
016166,000515: 
016167,000516: 14,2605           04622                           TC       FLASHON                               
016168,000517: 
016169,000518: 14,2606           04475                           TC       ENDIDLE                               #  CHANGE R1  V21 N61 E  +- XXX.XX E
016170,000519: 14,2607           12612                           TCF      +3                                    #  CHANGE R2  V22 N61 E  +- XX.XXX E
016171,000520: 14,2610           12614                           TCF      +4                                    #  VERIFY, THEN PROCEED WITH VERB 33 ENTER
016172,000521: 14,2611           12601                           TCF      CHECKLD    +2                         
016173,000522: 14,2612           51545                           INDEX    QPLAC                                 
016174,000523: 14,2613           00001                           TC       1                                     
016175,000524: 14,2614           51545                           INDEX    QPLAC                                 
016176,000525: 14,2615           00002                           TC       2                                     
016177,000526: 
016178,000527: 14,2616           32620        CHECKLD1           CAF      CHECKLD2                              
016179,000528: 14,2617           04654                           TC       NVSUBUSY                              
016180,000529: 14,2620           30601        CHECKLD2           CADR     CHECKLD    +2                         
016181,000530: 

Page 393

016183,000532: 14,2621           00006        POSNJUMP           EXTEND                                         #  POSITIONS FOR SXTNBIMU
016184,000533: 14,2622           23546                           QXCH     QPLACE                                
016185,000534: 
016186,000535: 14,2623           51544                           INDEX    POSITON                               
016187,000536: 14,2624           12625                           TCF      +1                                    
016188,000537: 14,2625           12770                           TCF      ENDTEST                               
016189,000538: 14,2626           12633                           TCF      POS1                                  
016190,000539: 14,2627           12640                           TCF      POS2                                  
016191,000540: 14,2630           12656                           TCF      POS3                                  
016192,000541: 14,2631           12677                           TCF      POS4                                  
016193,000542: 14,2632           12731                           TCF      POS5                                  
016194,000543: 
016195,000544: 
016196,000545: 
016197,000546: 14,2633           37763        POS1               CAF      ONE                                   #  XSM = V     YSM = SW    ZSM = SE
016198,000547: 14,2634           55542                           TS       PIPNDX                                
016199,000548: 14,2635           37762                           CAF      TWO                                   
016200,000549: 14,2636           55543                           TS       PIPNDX     +1                         #  MONITOR PIPAY AND PIPAZ
016201,000550: 14,2637           01546                           TC       QPLACE                                
016202,000551: 
016203,000552: 
016204,000553: 
016205,000554: 14,2640           06112        POS2               TC       INTPRET                               #  XSM = SE    YSM = SW    ZSM = -V
016206,000555: 14,2641           57575                           VLOAD    VCOMP                                 
016207,000556: 14,2642           02401                                    XSM                                   
016208,000557: 14,2643           77715                           PDVL                                           
016209,000558: 14,2644           02415                                    ZSM                                   
016210,000559: 14,2645           26401                           STOVL    XSM                                   
016211,000560: 14,2646           77626                           STADR                                          
016212,000561: 14,2647           75362                           STORE    ZSM                                   
016213,000562: 14,2650           77776                           EXIT                                           
016214,000563: 14,2651           37767                           CAF      ZERO                                  
016215,000564: 14,2652           55542                           TS       PIPNDX                                
016216,000565: 14,2653           37763                           CAF      ONE                                   
016217,000566: 14,2654           55543                           TS       PIPNDX     +1                         #  MONITOR PIPAX AND PIPAY
016218,000567: 14,2655           01546                           TC       QPLACE                                
016219,000568: 
016220,000569: 
016221,000570: 
016222,000571: 14,2656           06112        POS3               TC       INTPRET                               #  XSM = SE    YSM = V     ZSM = SW
016223,000572: 14,2657           63375                           VLOAD    PDVL                                  
016224,000573: 14,2660           02401                                    XSM                                   
016225,000574: 14,2661           02407                                    YSM                                   
016226,000575: 14,2662           77715                           PDVL                                           
016227,000576: 14,2663           02415                                    ZSM                                   
016228,000577: 14,2664           26401                           STOVL    XSM                                   
016229,000578: 
016230,000579: 14,2665           77626                           STADR                                          
016231,000580: 14,2666           51362                           STOVL    ZSM                                   
016232,000581: 

Page 394

016234,000583: 14,2667           77626                           STADR                                          
016235,000584: 14,2670           75370                           STORE    YSM                                   
016236,000585: 14,2671           77776                           EXIT                                           
016237,000586: 14,2672           37767                           CAF      ZERO                                  
016238,000587: 14,2673           55542                           TS       PIPNDX                                
016239,000588: 14,2674           37762                           CAF      TWO                                   
016240,000589: 14,2675           55543                           TS       PIPNDX     +1                         #  MONITOR PIPAX AND PIPAZ
016241,000590: 14,2676           01546                           TC       QPLACE                                
016242,000591: 
016243,000592: 
016244,000593: 
016245,000594: 14,2677           37757        POS4               CAF      BIT5                                  #  OPTION TO ALIGN SM TO SPECIFIED ANGLES
016246,000595: 14,2700           60110                           AD       FIXLOC                                
016247,000596: 14,2701           50110                           INDEX    FIXLOC                                
016248,000597: 14,2702           54050                           TS       S1                                    #  BASE ADDRESS GIMBAL ANGLES
016249,000598: 14,2703           33701                           CAF      V25N22E                               #  R1  +- XXX.XX   OUTER GIMBAL ANGLE
016250,000599: 14,2704           04657                           TC       NVSBWAIT                              #  R2  +- XXX.XX   INNER GIMBAL ANGLE
016251,000600: 14,2705           04475                           TC       ENDIDLE                               #  R3  +- XXX.XX   MIDDLE GIMBAL ANGLE
016252,000601: 14,2706           12770                           TCF      ENDTEST                               
016253,000602: 14,2707           12703                           TCF      -4                                    
016254,000603: 14,2710           30400                           CA       THETAD                                #  SET UP ANGLES FOR SMNB
016255,000604: 14,2711           50110                           INDEX    FIXLOC                                
016256,000605: 14,2712           54024                           TS       24                                    
016257,000606: 14,2713           30401                           CA       THETAD     +1                         
016258,000607: 14,2714           50110                           INDEX    FIXLOC                                
016259,000608: 14,2715           54020                           TS       20                                    
016260,000609: 14,2716           30402                           CA       THETAD     +2                         
016261,000610: 14,2717           50110                           INDEX    FIXLOC                                
016262,000611: 14,2720           54022                           TS       22                                    
016263,000612: 
016264,000613: 14,2721           06112                           TC       INTPRET                               
016265,000614: 14,2722           45034                           RTB      CALL                                  
016266,000615: 14,2723           33031                                    TRANSPSE                              #  EARTH REF WRT NAV BASE
016267,000616: 14,2724           33043                                    SMD/EREF                              #  STABLE MEMBER DESIRED WRT EARTH REF
016268,000617: 14,2725           77634                           RTB                                            
016269,000618: 14,2726           33031                                    TRANSPSE                              #  BACK TO NAV BASE WRT TO EARTH REF
016270,000619: 14,2727           77776                           EXIT                                           
016271,000620: 14,2730           01546                           TC       QPLACE                                
016272,000621: 

Page 395

016274,000623: 14,2731           31546        POS5               CA       QPLACE                                #  OPTION TO ALIGN SM TO ANY ORIENTATION
016275,000624: 14,2732           55551                           TS       STOREPL                               #    WRT EARTH REFERENCE FRAME
016276,000625: 
016277,000626: 14,2733           02524                           TC       OPTDATA                               #  LOAD YSM AND ZSM AZIMUTH AND ELEVATION
016278,000627: 
016279,000628: 14,2734           06112                           TC       INTPRET                               
016280,000629: 14,2735           77624                           CALL                                           
016281,000630: 14,2736           30350                                    TAR/EREF                              #  CALC YSM AND ZSM WRT EARTH REF. FRAME
016282,000631: 14,2737           41575                           VLOAD    PUSH                                  
016283,000632: 14,2740           00007                                    6D                                    
016284,000633: 14,2741           02407                           STORE    YSM                                   
016285,000634: 14,2742           76435                           VXV      VSL1                                  
016286,000635: 14,2743           00015                                    12D                                   
016287,000636: 14,2744           02401                           STORE    XSM                                   #  XSM = (YSM) X (ZSM)
016288,000637: 14,2745           76435                           VXV      VSL1                                  
016289,000638: 14,2746           77626                           STADR                                          
016290,000639: 14,2747           75362                           STORE    ZSM                                   #  ZSM = (XSM) X (YSM)
016291,000640: 14,2750           77776                           EXIT                                           
016292,000641: 
016293,000642: 14,2751           01551                           TC       STOREPL                               

Page 396

016295,000644: 14,2752           00006        OGCZERO            EXTEND                                         #  ZERO EARTH RATE TORQUING ANGLES
016296,000645: 14,2753           23546                           QXCH     QPLACE                                
016297,000646: 
016298,000647: 14,2754           06112                           TC       INTPRET                               
016299,000648: 14,2755           77775                           VLOAD                                          
016300,000649: 14,2756           33105                                    ZERODP                                #  VECTOR IN THIS CASE
016301,000650: 14,2757           02772                           STORE    ERCOMP                                
016302,000651: 14,2760           77776                           EXIT                                           
016303,000652: 14,2761           01546                           TC       QPLACE                                
016304,000653: 
016305,000654: 
016306,000655: 
016307,000656: 14,2762           37756        GMLCKCHK           CAF      BIT6                                  #  CHECK FOR GIMBAL LOCK  (MGA GREATER 70)
016308,000657: 14,2763           70326                           MASK     DSPTAB     +11D                       
016309,000658: 14,2764           00006                           EXTEND                                         
016310,000659: 14,2765           12767                           BZF      +2                                    
016311,000660: 14,2766           12770                           TCF      ENDTEST                               
016312,000661: 14,2767           00002                           TC       Q                                     
016313,000662: 
016314,000663: 
016315,000664: 
016316,000665: 14,2770           37754        ENDTEST            CA       IMUSEFLG                              #  BIT8
016317,000666: 14,2771           67755                           AD       RRUSEFLG                              #  BIT7
016318,000667: 14,2772           40000                           CS       A                                     
016319,000668: 14,2773           00004                           INHINT                                         
016320,000669: 14,2774           70074                           MASK     STATE                                 
016321,000670: 14,2775           54074                           TS       STATE                                 
016322,000671: 
016323,000672: 14,2776           04117                           TC       NEWMODEX                              
016324,000673: 14,2777           00000                           OCT      00000                                 
016325,000674: 
016326,000675: 14,3000           05206                           TC       BANKCALL                              
016327,000676: 14,3001           27046                           CADR     MKRELEAS                              #  RELEASE MARK SYSTEM
016328,000677: 14,3002           05566                           TC       EJFREE                                
016329,000678: 

Page 397

016331,000680: 14,3003           06112        LEMLAB             TC       INTPRET                               
016332,000681: 14,3004           57575                           VLOAD    VCOMP                                 
016333,000682: 14,3005           33101                                    YUNIT                                 
016334,000683: 
016335,000684: 14,3006           02437                           STORE    ZNB                                   #  XNB MATRIX USED IN CALCGA
016336,000685: 14,3007           26461                           STOVL    STARAD     +12D                       #  STARAD MATRIX USED IN AXISGEN * SMDCALC
016337,000686: 14,3010           33103                                    XUNIT                                 
016338,000687: 
016339,000688: 14,3011           02423                           STORE    XNB                                   #  *XNB*   *1    0    0* *V*
016340,000689: 14,3012           26445                           STOVL    STARAD                                #  *   *   *           * * *
016341,000690: 14,3013           33077                                    ZUNIT                                 #  *YNB* = *0    0    1* *S*
016342,000691: 14,3014           02431                           STORE    YNB                                   #  *   *   *           * * *
016343,000692: 14,3015           02453                           STORE    STARAD     +6                         #  *ZNB*   *0   -1    0* *E*
016344,000693: 14,3016           77776                           EXIT                                           
016345,000694: 
016346,000695: 14,3017           41544                           CS       POSITON                               
016347,000696: 14,3020           66311                           AD       THREE                                 
016348,000697: 14,3021           00006                           EXTEND                                         
016349,000698: 14,3022           13024                           BZF      +2                                    
016350,000699: 14,3023           13037                           TCF      LEMLAB1                               
016351,000700: 
016352,000701: 14,3024           06112                           TC       INTPRET                               
016353,000702: 14,3025           57575                           VLOAD    VCOMP                                 
016354,000703: 14,3026           02423                                    XNB                                   
016355,000704: 14,3027           77715                           PDVL                                           #  *XNB*   * 0   -1    0* *V*
016356,000705: 14,3030           02437                                    ZNB                                   #  *   *   *            * * *
016357,000706: 14,3031           02423                           STORE    XNB                                   #  *YNB* = * 0    0    1* *S*
016358,000707: 14,3032           26445                           STOVL    STARAD                                #  *   *   *            * * *
016359,000708: 14,3033           77626                           STADR                                          #  *ZNB*   *-1    0    0* * *
016360,000709: 14,3034           75340                           STORE    ZNB                                   
016361,000710: 14,3035           02461                           STORE    STARAD     +12D                       
016362,000711: 14,3036           77776                           EXIT                                           
016363,000712: 
016364,000713: 14,3037           05206        LEMLAB1            TC       BANKCALL                              
016365,000714: 14,3040           26751                           CADR     IMUSTALL                              #  INSURE IMUZERO COMPLETION
016366,000715: 
016367,000716: 14,3041           12770                           TCF      ENDTEST                               
016368,000717: 
016369,000718: 14,3042           02621                           TC       POSNJUMP                              #  SET UP STABLE MEMBER DESIRED COORDINATES
016370,000719: 14,3043           04724                           TC       FREEDSP                               #  FREE DISPLAY SYSTEM
016371,000720: 14,3044           02247                           TC       PUTPOSX                               #  TO COARSE ALIGN STABLE MEMBER
016372,000721: 
016373,000722: 14,3045           02762                           TC       GMLCKCHK                              
016374,000723: 
016375,000724: 14,3046           05206                           TC       BANKCALL                              
016376,000725: 14,3047           26252                           CADR     IMUFINE                               #  FINE ALIGN MODE
016377,000726: 14,3050           05206                           TC       BANKCALL                              
016378,000727: 14,3051           26751                           CADR     IMUSTALL                              
016379,000728: 14,3052           12770                           TCF      ENDTEST                               
016380,000729: 

Page 398

016382,000731: 14,3053           30032                           CA       CDUX                                  
016383,000732: 14,3054           50110                           INDEX    FIXLOC                                
016384,000733: 14,3055           54024                           TS       24                                    
016385,000734: 14,3056           30033                           CA       CDUY                                  
016386,000735: 14,3057           50110                           INDEX    FIXLOC                                
016387,000736: 14,3060           54020                           TS       20                                    
016388,000737: 14,3061           30034                           CA       CDUZ                                  
016389,000738: 14,3062           50110                           INDEX    FIXLOC                                
016390,000739: 14,3063           54022                           TS       22                                    
016391,000740: 
016392,000741: 14,3064           37757                           CAF      BIT5                                  
016393,000742: 14,3065           60110                           AD       FIXLOC                                
016394,000743: 14,3066           50110                           INDEX    FIXLOC                                
016395,000744: 14,3067           54050                           TS       S1                                    
016396,000745: 
016397,000746: 14,3070           02263                           TC       SMDCALC                               #  TO FINE ALIGN STABLE MEMBER
016398,000747: 
016399,000748: 14,3071           06112                           TC       INTPRET                               #  IF EARTH RATE COMPENSATION DESIRED
016400,000749: 14,3072           77634                           RTB                                            
016401,000750: 14,3073           33454                                    LOADTIME                              
016402,000751: 14,3074           02565                           STORE    TMARK                                 
016403,000752: 14,3075           77776                           EXIT                                           
016404,000753: 
016405,000754: 14,3076           41512                           CS       EROPTN                                
016406,000755: 14,3077           67762                           AD       TWO                                   
016407,000756: 14,3100           00006                           EXTEND                                         
016408,000757: 14,3101           13103                           BZF      +2                                    
016409,000758: 
016410,000759: 14,3102           12051                           TCF      ERFINAL    +2                         
016411,000760: 
016412,000761: 14,3103           05206                           TC       BANKCALL                              
016413,000762: 14,3104           47236                           CADR     SAMODRTN                              #  RETURN TO SEMI-AUTOMATIC MODING TEST
016414,000763: 

Page 399

016416,000765: 14,3105           33717        RDR37511           CAF      RDRRETN                               #  RENDEZVOUS RADAR AND ANTENNA TRACKING
016417,000766: 14,3106           55546                           TS       QPLACE                                #  TO RETURN FROM OPTDATA
016418,000767: 
016419,000768: 14,3107           05206                           TC       BANKCALL                              
016420,000769: 14,3110           20250                           CADR     RRZERO                                
016421,000770: 
016422,000771: 14,3111           05206                           TC       BANKCALL                              
016423,000772: 14,3112           22760                           CADR     AURLOKON                              #  OPERATOR DECISION TO LOCK ON OR NOT
016424,000773: 
016425,000774: 14,3113           12547        RDR1               TCF      OPTRDRIN                              #  CALL FOR AZIMUTH AND ELEVATION
016426,000775: 
016427,000776: 14,3114           05206                           TC       BANKCALL                              
016428,000777: 14,3115           26745                           CADR     RADSTALL                              
016429,000778: 14,3116           15567                           TCF      ENDOFJOB                              
016430,000779: 
016431,000780: 14,3117           06112                           TC       INTPRET                               
016432,000781: 14,3120           77170                           AXT,1    AXT,2                                 #  SET UP X1 AND X2 FOR TAR/EREF
016433,000782: 14,3121           00000                                    0                                     
016434,000783: 14,3122           00006                                    6                                     
016435,000784: 14,3123           77624                           CALL                                           
016436,000785: 14,3124           30353                                    TAR/EREF   +3                         #  LINE-OF-SIGHT WRT EARTH REF FRAME
016437,000786: 14,3125           64375                           VLOAD    MXV                                   
016438,000787: 14,3126           00015                                    12D                                   #  LINE-OF-SIGHT WRT EARTH REF FRAME
016439,000788: 14,3127           02401                                    XSM                                   #  TO STABLE MEMBER PRESENT FRAME
016440,000789: 14,3130           77772                           VSL1                                           
016441,000790: 14,3131           34415                           STCALL   RRTARGET                              
016442,000791: 14,3132           20307                                    RRDESSM                               
016443,000792: 
016444,000793: 14,3133           13140                           TCF      37511ALM                              
016445,000794: 14,3134           05206                           TC       BANKCALL                              
016446,000795: 14,3135           26745                           CADR     RADSTALL                              
016447,000796: 14,3136           15567                           TCF      ENDOFJOB                              
016448,000797: 14,3137           15567                           TCF      ENDOFJOB                              
016449,000798: 
016450,000799: 
016451,000800: 
016452,000801: 14,3140           04755        37511ALM           TC       ALARM                                 
016453,000802: 14,3141           00524                           OCT      524                                   
016454,000803: 14,3142           15567                           TCF      ENDOFJOB                              
016455,000804: 
016456,000805: 
016457,000806: 
016458,000807: 14,3143           47767        RDRINIT            CS       ZERO                                  
016459,000808: 14,3144           55512                           TS       EROPTN                                
016460,000809: 14,3145           12002                           TCF      AOTNBIMU   +2                         
016461,000810: 

Page 400

016463,000812: 14,3146           04644        MISALIGN           TC       GRABWAIT                              #  DISPLAY SYSTEM WAS FREED
016464,000813: 14,3147           37767                           CAF      ZERO                                  
016465,000814: 14,3150           55537                           TS       NDXCTR                                
016466,000815: 14,3151           51537        BBBB               INDEX    NDXCTR                                
016467,000816: 14,3152           41674                           CS       GENPL      +68D                       
016468,000817: 14,3153           51537                           INDEX    NDXCTR                                
016469,000818: 14,3154           27702                           ADS      GENPL      +74D                       
016470,000819: 14,3155           33705                           CAF      63DEC                                 
016471,000820: 14,3156           61537                           AD       NDXCTR                                
016472,000821: 14,3157           10000                           CCS      A                                     
016473,000822: 14,3160           46311                           CS       THREE                                 
016474,000823: 14,3161           27537                           ADS      NDXCTR                                
016475,000824: 14,3162           13151                           TCF      BBBB                                  
016476,000825: 14,3163           55537                           TS       NDXCTR                                
016477,000826: 
016478,000827: 
016479,000828: 
016480,000829: 14,3164           06112        CCCC               TC       INTPRET                               
016481,000830: 14,3165           70750                           LXA,1    DLOAD*                                
016482,000831: 14,3166           02537                                    NDXCTR                                
016483,000832: 14,3167           02701                                    GENPL      +72D,1                     
016484,000833: 14,3170           77625                           DSU                                            
016485,000834: 14,3171           02571                                    GENPL                                 
016486,000835: 14,3172           06701                           STORE    GENPL      +72D,1                     
016487,000836: 14,3173           77776                           EXIT                                           
016488,000837: 14,3174           41537                           CS       NDXCTR                                
016489,000838: 14,3175           63706                           AD       69DEC                                 
016490,000839: 14,3176           10000                           CCS      A                                     
016491,000840: 14,3177           36311                           CAF      THREE                                 
016492,000841: 14,3200           27537                           ADS      NDXCTR                                
016493,000842: 14,3201           13164                           TCF      CCCC                                  
016494,000843: 14,3202           55550                           TS       RUN                                   
016495,000844: 14,3203           36311                           CAF      THREE                                 
016496,000845: 14,3204           55537                           TS       NDXCTR                                
016497,000846: 
016498,000847: 
016499,000848: 
016500,000849: 14,3205           06112        DDDD               TC       INTPRET                               
016501,000850: 14,3206           77775                           VLOAD                                          
016502,000851: 14,3207           33105                                    ZERODP                                
016503,000852: 14,3210           00031                           STORE    24D                                   
016504,000853: 14,3211           00037                           STORE    30D                                   
016505,000854: 14,3212           77735                           SLOAD                                          
016506,000855: 14,3213           31703                                    11DEC                                 
016507,000856: 14,3214           00041                           STORE    32D                                   
016508,000857: 14,3215           77776                           EXIT                                           
016509,000858: 
016510,000859: 14,3216           06112        DDDD1              TC       INTPRET                               
016511,000860: 14,3217           70750                           LXA,1    DLOAD*                                
016512,000861: 14,3220           02537                                    NDXCTR                                
016513,000862: 

Page 401

016515,000864: 14,3221           02701                                    GENPL      +72D,1                     
016516,000865: 14,3222           41423                           DSU*     PUSH                                  
016517,000866: 14,3223           02673                                    GENPL      +66D,1                     
016518,000867: 14,3224           42742                           SR1      DAD*                                  
016519,000868: 14,3225           02673                                    GENPL      +66D,1                     
016520,000869: 14,3226           06701                           STORE    GENPL      +72D,1                     
016521,000870: 
016522,000871: 14,3227           43312                           SL2      DAD                                   
016523,000872: 14,3230           00031                                    24D                                   
016524,000873: 14,3231           20031                           STODL*   24D                                   
016525,000874: 14,3232           02701                                    GENPL      +72D,1                     
016526,000875: 14,3233           63412                           SL4      DSQ                                   
016527,000876: 14,3234           77615                           DAD                                            
016528,000877: 14,3235           00033                                    26D                                   
016529,000878: 14,3236           00033                           STORE    26D                                   
016530,000879: 14,3237           77776                           EXIT                                           
016531,000880: 14,3240           31550                           CAE      RUN                                   
016532,000881: 14,3241           61537                           AD       NDXCTR                                
016533,000882: 14,3242           40000                           COM                                            
016534,000883: 14,3243           63705                           AD       63DEC                                 
016535,000884: 14,3244           10000                           CCS      A                                     
016536,000885: 14,3245           36306                           CAF      SIX                                   
016537,000886: 14,3246           27537                           ADS      NDXCTR                                
016538,000887: 14,3247           13216                           TCF      DDDD1                                 
016539,000888: 14,3250           61550                           AD       RUN                                   
016540,000889: 14,3251           55537                           TS       NDXCTR                                
016541,000890: 
016542,000891: 
016543,000892: 
016544,000893: 14,3252           06112        EEEE               TC       INTPRET                               
016545,000894: 14,3253           66740                           LXC,1    SLOAD*                                
016546,000895: 14,3254           02537                                    NDXCTR                                
016547,000896: 14,3255           02604                                    GENPL      +11D,1                     
016548,000897: 14,3256           00043                           STORE    34D                                   
016549,000898: 14,3257           77745                           DLOAD                                          
016550,000899: 14,3260           54206                           PUSH     SL                                    
016551,000900: 14,3261           20211                                    8D                                    
016552,000901: 14,3262           43265                           BDDV     DAD                                   
016553,000902: 14,3263           00043                                    34D                                   
016554,000903: 14,3264           00035                                    28D                                   
016555,000904: 14,3265           14035                           STODL    28D                                   
016556,000905: 14,3266           55261                           SL       BDDV                                  
016557,000906: 14,3267           20207                                    6                                     
016558,000907: 14,3270           00043                                    34D                                   
016559,000908: 14,3271           42523                           PDDL*    SL4                                   
016560,000909: 14,3272           02602                                    GENPL      +9D,1                      
016561,000910: 14,3273           77605                           DMP                                            
016562,000911: 14,3274           77615                           DAD                                            
016563,000912: 14,3275           00037                                    30D                                   
016564,000913: 14,3276           00037                           STORE    30D                                   
016565,000914: 

Page 402

016567,000916: 14,3277           77776                           EXIT                                           
016568,000917: 14,3300           41537                           CS       NDXCTR                                
016569,000918: 14,3301           63704                           AD       60DEC                                 
016570,000919: 14,3302           61550                           AD       RUN                                   
016571,000920: 14,3303           10000                           CCS      A                                     
016572,000921: 14,3304           36306                           CAF      SIX                                   
016573,000922: 14,3305           27537                           ADS      NDXCTR                                
016574,000923: 14,3306           13252                           TCF      EEEE                                  
016575,000924: 
016576,000925: 
016577,000926: 
016578,000927: 14,3307           06112                           TC       INTPRET                               
016579,000928: 14,3310           41345                           DLOAD    DMP                                   
016580,000929: 14,3311           00031                                    24D                                   
016581,000930: 14,3312           00037                                    30D                                   
016582,000931: 14,3313           41325                           PDDL     DMP                                   
016583,000932: 14,3314           00033                                    26D                                   
016584,000933: 14,3315           00035                                    28D                                   
016585,000934: 14,3316           77625                           DSU                                            
016586,000935: 14,3317           63525                           PDDL     DSQ                                   
016587,000936: 14,3320           00031                                    24D                                   
016588,000937: 14,3321           65342                           SR1      PDDL                                  
016589,000938: 14,3322           00041                                    32D                                   
016590,000939: 14,3323           41261                           SL       DMP                                   
016591,000940: 14,3324           20212                                    11                                    
016592,000941: 14,3325           00033                                    26D                                   
016593,000942: 14,3326           55225                           DSU      BDDV                                  
016594,000943: 14,3327           54205                           DMP      SL                                    
016595,000944: 14,3330           31716                                    KKKK                                  
016596,000945: 14,3331           20204                                    3                                     
016597,000946: 14,3332           00343                           STORE    DSPTEM2                               
016598,000947: 14,3333           77776                           EXIT                                           
016599,000948: 
016600,000949: 14,3334           31544                           CA       POSITON                               
016601,000950: 14,3335           54344                           TS       DSPTEM2    +2                         
016602,000951: 
016603,000952: 14,3336           33677                           CAF      V06N66E                               
016604,000953: 14,3337           04657                           TC       NVSBWAIT                              
016605,000954: 14,3340           04622                           TC       FLASHON                               
016606,000955: 14,3341           04475                           TC       ENDIDLE                               
016607,000956: 14,3342           12770                           TCF      ENDTEST                               
016608,000957: 14,3343           36311                           CAF      THREE                                 
016609,000958: 14,3344           55550                           TS       RUN                                   
016610,000959: 14,3345           37767                           CAF      ZERO                                  
016611,000960: 14,3346           13204                           TCF      DDDD       -1                         
016612,000961: 

Page 403

016614,000963:                                                                                                  #  THIS REVISION REFLECTS CHANGES AS OF
016615,000964:                                                                                                  #   1/31/66
016616,000965:                                                                                                  #  ENGINE ON/OFF NOW IN CHANNEL ELEVEN.  THE BITS FOR EACH CHANNEL GET TURNED ON ALL AT ONCE.  THEY STAY ON UNTIL
016617,000966:                                                                                                  #   :ENTER:IS PUSHED.  THEN THEY ALL GO OUT AND THE NEXT CHANNEL:S BITS ARE TURNED ON.
016618,000967:                                                                                                  #  CHANNEL 5  BITS 1-8
016619,000968:                                                                                                  #  CHANNEL 6  BITS 1-8
016620,000969:                                                                                                  #  CHANNEL 11 BITS  13,14
016621,000970:                                                                                                  #  CHANNEL 12 BITS 9-14
016622,000971:                                                                                                  #  FOLLOWING THE CHANNEL 12 TESTS ENTER IS PRESSED.  CHANNEL 12 IS SET TO ZERO AND THE NEXT TEST BEGUN. LOW9
016623,000972:                                                                                                  #  GOES IN LOCATION (COUNTER) 55.
016624,000973:                                                                                                  #  INCREASE THROTTLE RATE DESCENT ENGINE
016625,000974:                                                                                                  #  :ENTER: NOW CAUSES THE CONTENTS OF 55 TO BE MADE NEGATIVE
016626,000975:                                                                                                  #  DECREASE THROTTLE RATE DESCENT ENGINE
016627,000976:                                                                                                  #  THE NEXT :ENTER: ZEROS THE REGISTER AND SENDS A PULSE TRAIN (HERE ALTERN
016628,000977:                                                                                                  #  ZEROS FOR CLARITY) TO THE ALTITUDE METER.
016629,000978:                                                                                                  #  THE NEXT :ENTER: WILL ADVANCE THE TEST TO THE ALTITUDE RATE METER TEST.
016630,000979:                                                                                                  #  THE NEXT :ENTER : WILL TERMINATE THE TEST.
016631,000980: 
016632,000981: 
016633,000982: 
016634,000983: 14,3347           37743        SAUTOIFS           CA       POSMAX                                
016635,000984: 14,3350           55576                           TS       NOBITS                                
016636,000985: 14,3351           37767                           CA       ZERO                                  
016637,000986: 14,3352           55577                           TS       CHAN                                  
016638,000987: 14,3353           55575                           TS       TEMP                                  
016639,000988: 14,3354           03356                           TC       DINO                                  
016640,000989: 14,3355           25577        BACK1              INCR     CHAN                                  
016641,000990: 
016642,000991: 14,3356           51577        DINO               INDEX    CHAN                                  
016643,000992: 14,3357           33361                           CA       SAUTLOCS                              
016644,000993: 14,3360           15212                           TCF      SWCALL                                
016645,000994: 14,3361           31375        SAUTLOCS           CADR     CHAN5D                                
016646,000995: 14,3362           31413                           CADR     CHAN6D                                
016647,000996: 14,3363           31421                           CADR     CHAN11D                               
016648,000997: 14,3364           31433                           CADR     CHAN12D                               
016649,000998: 14,3365           31445                           CADR     PTITRDE                               
016650,000999: 14,3366           31472                           CADR     PTDTRDE                               
016651,001000: 14,3367           31547                           CADR     ALTMET                                
016652,001001: 14,3370           31574                           CADR     ALTRMET                               
016653,001002: 14,3371           30770                           CADR     ENDTEST                               
016654,001003: 14,3372           31477        THROTADD           CADR     PTDTRDE    +5                         
016655,001004: 14,3373           31552        METERADD           CADR     ALTMET     +3                         
016656,001005: 14,3374           31577        MRATEADD           CADR     ALTRMET    +3                         
016657,001006: 14,3375           37766        CHAN5D             CA       FIVE                                  
016658,001007: 14,3376           54337                           TS       DSPTEM1                               
016659,001008: 14,3377           34564        2ENTRY             CA       LOW8                                  #  CHANNEL 6 RETURNS HERE
016660,001009: 14,3400           54340                           TS       DSPTEM1    +1                         
016661,001010: 14,3401           00006                           EXTEND                                         
016662,001011: 14,3402           51575                           INDEX    TEMP                                  
016663,001012: 14,3403           01005                           WRITE    5                                     
016664,001013: 

Page 404

016666,001015: 14,3404           33666        3ENTRY             CA       V04N30D                               #  CH11,12 RETURN HERE TO USE THE DISPLAY
016667,001016: 14,3405           04657                           TC       NVSBWAIT                              
016668,001017: 14,3406           33673        4ENTRY             CAF      WAITER                                #  WAITER IS 03300
016669,001018: 14,3407           04657                           TC       NVSBWAIT                              
016670,001019: 14,3410           04475                           TC       ENDIDLE                               
016671,001020: 14,3411           02770                           TC       ENDTEST                               
016672,001021: 14,3412           03355                           TC       BACK1                                 
016673,001022: 
016674,001023: 14,3413           25575        CHAN6D             INCR     TEMP                                  
016675,001024: 14,3414           24337                           INCR     DSPTEM1                               
016676,001025: 14,3415           37767                           CAF      ZERO                                  
016677,001026: 14,3416           00006                           EXTEND                                         
016678,001027: 14,3417           01005                           WRITE    5                                     #  GET RID OF CHANNEL 5 BITS
016679,001028: 14,3420           03377                           TC       2ENTRY                                
016680,001029: 14,3421           34530        CHAN11D            CA       OCT11                                 
016681,001030: 14,3422           54337                           TS       DSPTEM1                               
016682,001031: 14,3423           35210                           CA       BIT13-14                              
016683,001032: 14,3424           54340                           TS       DSPTEM1    +1                         
016684,001033: 14,3425           00006                           EXTEND                                         
016685,001034: 14,3426           05011                           WOR      11                                    #  WOR IS NON EXCLUSIVE OR
016686,001035: 14,3427           37767                           CAF      ZERO                                  
016687,001036: 14,3430           00006                           EXTEND                                         
016688,001037: 14,3431           01006                           WRITE    6                                     
016689,001038: 14,3432           03404                           TC       3ENTRY                                
016690,001039: 14,3433           34570        CHAN12D            CA       OCT12                                 
016691,001040: 14,3434           54337                           TS       DSPTEM1                               
016692,001041: 14,3435           45210                           CS       BIT13-14                              
016693,001042: 14,3436           00006                           EXTEND                                         
016694,001043: 14,3437           03011                           WAND     11                                    
016695,001044: 14,3440           33671                           CA       CH12BITS                              
016696,001045: 14,3441           54340                           TS       DSPTEM1    +1                         
016697,001046: 14,3442           00006                           EXTEND                                         
016698,001047: 14,3443           05012                           WOR      12                                    
016699,001048: 14,3444           03404                           TC       3ENTRY                                
016700,001049: 14,3445           43671        PTITRDE            CS       CH12BITS                              
016701,001050: 14,3446           00006                           EXTEND                                         
016702,001051: 14,3447           03012                           WAND     12                                    
016703,001052: 14,3450           37767                           CA       ZERO                                  
016704,001053: 14,3451           54337                           TS       DSPTEM1                               
016705,001054: 14,3452           54340                           TS       DSPTEM1    +1                         
016706,001055: 14,3453           55575                           TS       TEMP                                  
016707,001056: 14,3454           37763                           CA       BIT1                                  
016708,001057: 14,3455           55576                           TS       NOBITS                                
016709,001058: 14,3456           00004        PIT                INHINT                                         
016710,001059: 14,3457           05663                           TC       WAITLIST                              
016711,001060: 14,3460  E5,1400                                  EBANK=   XSM                                   
016712,001061: 14,3460           03503 30065                     2CADR    THROTASK                              
016713,001062: 
016714,001063: 14,3462           00003                           RELINT                                         
016715,001064: 14,3463           33673                           CA       WAITER                                

Page 405

016717,001066: 14,3464           04657                           TC       NVSBWAIT                              
016718,001067: 
016719,001068: 14,3465           04475                           TC       ENDIDLE                               
016720,001069: 14,3466           02770                           TC       ENDTEST                               
016721,001070: 14,3467           37767                           CA       ZERO                                  
016722,001071: 14,3470           55576                           TS       NOBITS                                
016723,001072: 14,3471           03355                           TC       BACK1                                 
016724,001073: 
016725,001074: 14,3472           37767        PTDTRDE            CA       ZERO                                  
016726,001075: 14,3473           54055                           TS       THRUST                                
016727,001076: 14,3474           33372                           CA       THROTADD                              
016728,001077: 14,3475           55574                           TS       TEMPADD                               
016729,001078: 14,3476           05545                           TC       JOBSLEEP                              #  THIS INHIBITS THE NEXT TASK UNTIL
016730,001079:                                                                                                  #  CURRENT TASK HAS BEEN COMPLETED
016731,001080: 14,3477           37743                           CA       POSMAX                                
016732,001081: 14,3500           55575                           TS       TEMP                                  
016733,001082: 14,3501           37755                           CA       BIT7                                  
016734,001083: 14,3502           03456                           TC       PIT                                   
016735,001084: 14,3503           11576        THROTASK           CCS      NOBITS                                #  IS THIS TASK STILL REQ
016736,001085: 14,3504           03511                           TC       +5                                    #  YES
016737,001086: 14,3505           31574                           CA       TEMPADD                               #  NO
016738,001087: 14,3506           55576                           TS       NOBITS                                
016739,001088: 14,3507           05551                           TC       JOBWAKE                               
016740,001089: 14,3510           05727                           TC       TASKOVER                              
016741,001090: 14,3511           11575                           CCS      TEMP                                  
016742,001091: 14,3512           03525                           TC       SOMETIME                              
016743,001092: 14,3513           34563                           CA       LOW11                                 
016744,001093: 14,3514           54055        ALWAYS             TS       THRUST                                
016745,001094: 14,3515           37760                           CA       BIT4                                  
016746,001095: 14,3516           00006                           EXTEND                                         #  A SMERZH FIX.
016747,001096: 14,3517           05014                           WOR      14                                    
016748,001097: 14,3520           37756                           CA       BIT6                                  #  320 MS.DELAY
016749,001098: 14,3521           05663                           TC       WAITLIST                              
016750,001099: 14,3522  E5,1400                                  EBANK=   XSM                                   
016751,001100: 14,3522           03503 30065                     2CADR    THROTASK                              
016752,001101: 
016753,001102: 14,3524           05727                           TC       TASKOVER                              
016754,001103: 14,3525           44563        SOMETIME           CS       LOW11                                 
016755,001104: 14,3526           03514                           TC       ALWAYS                                
016756,001105: 14,3527           11576        ALTASK             CCS      NOBITS                                #  IS TASK STILL REQ
016757,001106: 14,3530           03535                           TC       +5                                    
016758,001107: 14,3531           31574                           CA       TEMPADD                               #  NO
016759,001108: 14,3532           55576                           TS       NOBITS                                #  ENABLES NEXT TASK
016760,001109: 14,3533           05551                           TC       JOBWAKE                               
016761,001110: 14,3534           05727                           TC       TASKOVER                              
016762,001111: 14,3535           33667                           CA       ALBITS                                #  ACTUAL TASK STARTS HERE
016763,001112: 14,3536           54060                           TS       ALTM                                  
016764,001113: 14,3537           37761                           CA       BIT3                                  
016765,001114: 14,3540           00006                           EXTEND                                         
016766,001115: 14,3541           05014                           WOR      14                                    
016767,001116: 14,3542           37756                           CA       BIT6                                  #  320 MS. DELAY

Page 406

016769,001118: 14,3543           05663                           TC       WAITLIST                              
016770,001119: 14,3544  E5,1400                                  EBANK=   XSM                                   
016771,001120: 14,3544           03527 30065                     2CADR    ALTASK                                
016772,001121: 
016773,001122: 14,3546           05727                           TC       TASKOVER                              
016774,001123: 14,3547           33373        ALTMET             CA       METERADD                              
016775,001124: 14,3550           55574                           TS       TEMPADD                               
016776,001125: 14,3551           05545                           TC       JOBSLEEP                              
016777,001126: 14,3552           37767                           CA       ZERO                                  
016778,001127: 14,3553           55575                           TS       TEMP                                  
016779,001128: 14,3554           47760                           CS       BIT4                                  
016780,001129: 14,3555           00006                           EXTEND                                         
016781,001130: 14,3556           03014                           WAND     14                                    
016782,001131: 14,3557           00004                           INHINT                                         
016783,001132: 14,3560           37763                           CA       ONE                                   
016784,001133: 14,3561           05663                           TC       WAITLIST                              
016785,001134: 14,3562  E5,1400                                  EBANK=   XSM                                   
016786,001135: 14,3562           03527 30065                     2CADR    ALTASK                                
016787,001136: 
016788,001137: 14,3564           00003                           RELINT                                         
016789,001138: 14,3565           33673                           CA       WAITER                                
016790,001139: 14,3566           04657                           TC       NVSBWAIT                              
016791,001140: 14,3567           04475                           TC       ENDIDLE                               
016792,001141: 14,3570           02770                           TC       ENDTEST                               
016793,001142: 14,3571           37767                           CA       ZERO                                  
016794,001143: 14,3572           55576                           TS       NOBITS                                
016795,001144: 14,3573           03355                           TC       BACK1                                 
016796,001145: 
016797,001146: 14,3574           33374        ALTRMET            CA       MRATEADD                              
016798,001147: 14,3575           55574                           TS       TEMPADD                               
016799,001148: 14,3576           05545                           TC       JOBSLEEP                              
016800,001149: 14,3577           37763                           CA       ONE                                   
016801,001150: 14,3600           55575                           TS       TEMP                                  #  TEMP WILL BE INDEXED TO ACQUIRE BIT2 INS
016802,001151:                                                                                                  #  TEAD OF BIT3
016803,001152: 14,3601           37762                           CA       BIT2                                  
016804,001153: 14,3602           00006                           EXTEND                                         
016805,001154: 14,3603           05014                           WOR      14                                    
016806,001155: 14,3604           03557                           TC       ALTMET     +8D                        
016807,001156: 

Page 407

016809,001158:                                                                                                  #       THE AOT ANGLE CHECKING PROGRAM PROVIDES A SIMPLE VERIFICATION OF THE ACCURACY OF THE AOT.  THE IDEA IS TO
016810,001159:                                                                                                  #  COMPUTE THE ANGLE BETWEEN TWO LINES OF SIGHT AS INDICATED BY THE AOT, WHICH IS WHAT THIS PROGRAM DOES.
016811,001160:                                                                                                  #  INDEPENDENT KNOWLEDGE OF THE INCLUDED ANGLE PROVIDES A COMPARISON AND THUS A MEASURE OF THE AOT ACCURACY.
016812,001161:                                                                                                  #        THE ISS NEED NOT BE ON TO RUN THIS PROGRAM.
016813,001162: 
016814,001163: 
016815,001164: 14,3605           06112        AOTANGCK           TC       INTPRET                               
016816,001165: 14,3606           77414                           SET      EXIT                                  #  IN CASE THE ISS IS OFF.
016817,001166: 14,3607           00065                                    COAROFIN                              
016818,001167: 14,3610           02135                           TC       FINDNAVB                              #  FOR LOS1 AND LOS2.
016819,001168: 14,3611           06112                           TC       INTPRET                               
016820,001169: 14,3612           47375                           VLOAD    VXV                                   
016821,001170: 14,3613           02601                                    LOS1                                  
016822,001171: 14,3614           02607                                    LOS2                                  
016823,001172: 14,3615           77646                           ABVAL                                          
016824,001173: 14,3616           24023                           STOVL    SINTH                                 #  SINTH = ABVAL (VXV ).
016825,001174: 14,3617           02601                                    LOS1                                  
016826,001175: 14,3620           77641                           DOT                                            
016827,001176: 14,3621           02607                                    LOS2                                  
016828,001177: 14,3622           34021                           STCALL   COSTH                                 #  COSTH = V.V
016829,001178: 14,3623           32476                                    ARCTRIG                               
016830,001179: 14,3624           77634                           RTB                                            
016831,001180: 14,3625           33522                                    1STO2S                                #  DP 1S COMP TO SP 2S COMP.
016832,001181: 14,3626           00025                           STORE    THETA                                 
016833,001182: 14,3627           77776                           EXIT                                           
016834,001183: 14,3630           33720                           CAF      THETAADR                              
016835,001184: 14,3631           60110                           AD       FIXLOC                                
016836,001185: 14,3632           54146                           TS       MPAC       +2                         
016837,001186: 14,3633           33676                           CAF      V06N03E                               #  XXX.XX DEGREES IN R1.
016838,001187: 14,3634           04657                           TC       NVSBWAIT                              
016839,001188: 14,3635           12770                           TCF      ENDTEST                               
016840,001189: 

Page 408

016842,001191: 14,3636  E3,1400                                  EBANK=   1400                                  
016843,001192: 14,3636           00004        ZEROERAS           INHINT                                         #  PROGRAM BY MUNTZ TO ZERO ERASEABLE
016844,001193: 14,3637           37767                           CAF      ZERO                                  
016845,001194: 14,3640           54026                           TS       TIME3                                 
016846,001195: 14,3641           33665                           CAF      OCT27                                 
016847,001196: 14,3642           54003                           TS       EBANK                                 
016848,001197: 14,3643           22007        ZEROLP             ZL                                             
016849,001198: 14,3644           50000                           INDEX    A                                     
016850,001199: 14,3645           23401                           LXCH     1401                                  
016851,001200: 14,3646           67762                           AD       TWO                                   
016852,001201: 14,3647           26003                           ADS      EBANK                                 
016853,001202: 14,3650           74564                           MASK     LOW8                                  
016854,001203: 14,3651           10000                           CCS      A                                     
016855,001204: 14,3652           13643                           TCF      ZEROLP                                
016856,001205: 14,3653           10003                           CCS      EBANK                                 
016857,001206: 14,3654           13657                           TCF      ZEROLP1                               
016858,001207: 14,3655           05225                           TC       POSTJUMP                              
016859,001208: 14,3656           02000                           CADR     SLAP1                                 
016860,001209: 14,3657           00003        ZEROLP1            RELINT                                         
016861,001210: 14,3660           37767                           CAF      ZERO                                  #  KEEP T4RUPT GOING, BUT NOT CYCLING.
016862,001211: 14,3661           54347                           TS       DSRUPTSW                              
016863,001212: 14,3662           00004                           INHINT                                         
016864,001213: 14,3663           47763                           CS       ONE                                   
016865,001214: 14,3664           13643                           TCF      ZEROLP                                
016866,001215: 14,3665           00027        OCT27              OCT      27                                    
016867,001216: 

Page 409

016869,001218: 14,3666  E5,1500                                  EBANK=   OGC                                   
016870,001219: 14,3666           00430        V04N30D            OCT      00430                                 
016871,001220: 14,3667           52525        ALBITS             OCT      52525                                 
016872,001221: 14,3670           70707        THRSBITS           OCT      70707                                 
016873,001222: 14,3671     4570               OCT12              =        TEN                                   
016874,001223: 14,3671     4530               OCT11              =        NINE                                  
016875,001224: 14,3671           37400        CH12BITS           OCT      37400                                 
016876,001225: 14,3672           00130        V01N30D            OCT      00130                                 
016877,001226: 14,3673           03300        WAITER             OCT      03300                                 
016878,001227: 
016879,001228: 
016880,001229: 14,3674           00130        V01N30E            OCT      00130                                 #  FOR FINDNAVB
016881,001230: 14,3675           00530        V05N30E            OCT      00530                                 #  FOR OPTDATA
016882,001231: 14,3676           00603        V06N03E            OCT      00603                                 
016883,001232: 14,3677           00666        V06N66E            OCT      00666                                 
016884,001233: 14,3700           02430        V24N30E            OCT      02430                                 #  FOR POSITION LOAD
016885,001234: 14,3701           02522        V25N22E            OCT      02522                                 #  FOR POS4
016886,001235: 
016887,001236: 14,3702           00013        11DEC              DEC      11         B-14                       
016888,001237: 14,3703           00021        17DEC              DEC      17         B-14                       
016889,001238: 14,3704           00074        60DEC              DEC      60         B-14                       
016890,001239: 14,3705           00077        63DEC              DEC      63         B-14                       
016891,001240: 14,3706           00105        69DEC              DEC      69         B-14                       #  FOR MISALIGN
016892,001241: 14,3707           00110        72DEC              DEC      72         B-14                       #  FOR STORRSLT
016893,001242: 
016894,001243: 14,3710           05670        30SEC              DEC      3000       B-14                       #  3000 X 10 MSEC
016895,001244: 14,3711           13560        60SEC              DEC      6000       B-14                       #  6000 X 10 MSEC
016896,001245: 
016897,001246: 14,3712           01500        OGCADR             ADRES    OGC                                   #  FOR ZEROING
016898,001247: 14,3713           01570        GENPLAD1           ADRES    GENPL                                 
016899,001248: 14,3714           02570        GENPLADR           ECADR    GENPL                                 #  FOR POS4
016900,001249: 14,3715           00322 14366  KKKK               2DEC     210.39     B-14                       #  1230 B-14 FOR CSM
016901,001250: 
016902,001251: 14,3717           03114        RDRRETN            ADRES    RDR1       +1                         #  FOR RDR37511
016903,001252: 14,3720           00024        THETAADR           ECADR    THETA                                 
016904,001253: 14,3721           01400        XSMADRX            ADRES    XSM                                   #  FOR MAKEXSMD
016905,001254: 
016906,001255: 14,3722           24365 30244  SCALFTR            2DEC     .64                                   #  FOR STORRSLT
016907,001256: 
016908,001257: 14,3724           07623 26552  OMEG/MS            2DEC     .24339048                             #  GYRO PULSES / 10 MSEC
016909,001258: 

Page 410

016911,001260:                                                                                                  #           THE FOLLOWING ROUTINE READS THE CLOCK AND SCALAR (CHANNELS 3 AND 4) INTO A AND L, INSURING THAT THE
016912,001261:                                                                                                  #  DATA WAS NOT IN TRANSITION WHEN IT WAS READ.
016913,001262: 
016914,001263:    5026                                           BLOCK    02                                    
016915,001264:    5026           00004        FINETIME           INHINT                                         #  RETURNS WITH INTERRUPT INHIBITED.
016916,001265:    5027           00006                           EXTEND                                         
016917,001266:    5030           00004                           READ     LOSCALAR                              
016918,001267:    5031           54001                           TS       L                                     
016919,001268: 
016920,001269:    5032           00006                           EXTEND                                         #  SEE IF 2 READINGS AGREE. IF NOT, READ
016921,001270:    5033           06004                           RXOR     LOSCALAR                              #  LOSCALAR AGAIN.
016922,001271:    5034           00006                           EXTEND                                         
016923,001272:    5035           15041                           BZF      +4                                    
016924,001273: 
016925,001274:    5036           00006                           EXTEND                                         #  IF CLOCK RIPPLED BEFORE, IT WONT NOW.
016926,001275:    5037           00004                           READ     LOSCALAR                              
016927,001276:    5040           54001                           TS       L                                     
016928,001277: 
016929,001278:    5041           47743                 +4        CS       POSMAX                                #  IF LOW PART CONTAINS SOMETHING LESS THAN
016930,001279:    5042           60001                           AD       L                                     #  POSMAX, THE HIGH PART CAN BE READ SAFELY
016931,001280:    5043           00006                           EXTEND                                         
016932,001281:    5044           15027                           BZF      FINETIME   +1                         #  TRY AGAIN - CONDITION WILL DISAPPEAR.
016933,001282: 
016934,001283:    5045           00006                           EXTEND                                         
016935,001284:    5046           00003                           READ     HISCALAR                              
016936,001285:    5047           00002                           TC       Q                                     
016937,001286: 
016938,001287: 14,3726                                           SETLOC   OMEG/MS    +2                         
016939,001288: 14,3726           05206        REDYTORK           TC       BANKCALL                              
016940,001289: 14,3727           26751                           CADR     IMUSTALL                              
016941,001290: 14,3730           12770                           TCF      ENDTEST                               
016942,001291: 
016943,001292: 14,3731           02752                           TC       OGCZERO                               
016944,001293: 
016945,001294: 14,3732           06112                           TC       INTPRET                               
016946,001295: 14,3733           77624                           CALL                                           
016947,001296: 14,3734           30407                                    ERTHRVSE                              #  SETS UP EARTHRATE ANGLES AND TIME
016948,001297: 14,3735           77776                           EXIT                                           
016949,001298: 14,3736           31617                           CA       OPTNREG                               #  INITIALIZE CDUNDX FOR PULSE CATCHING
016950,001299: 14,3737           65336                           AD       NEG2                                  #  C(K) WAS 4 2 1 NOW C(A) IS 2 0 -1
016951,001300: 14,3740           55616                           TS       GYTOBETQ                              #  C(K) = 2,0,-1 FOR  X,Y,Z.
016952,001301: 14,3741           00006                           EXTEND                                         
016953,001302: 14,3742           13745                           BZF      +3                                    
016954,001303: 14,3743           37762                           CAF      TWO                                   
016955,001304: 14,3744           03746                           TC       +2                                    
016956,001305: 14,3745           37763                           CAF      ONE                                   
016957,001306: 14,3746           55672                           TS       CDUNDX                                #  C(K) = 1 FOR Y, 2 FOR Z CDU SELECT
016958,001307: 14,3747           05206                           TC       BANKCALL                              
016959,001308: 14,3750           50551                           CADR     ENABLE                                
016960,001309: 14,3751           37777        CHKSUM14           OCT      37777                                 

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