Source Code
![]() |
This source code is very close to the Apollo Guidance Computer software for the
Apollo 13 Lunar module. This revision of the Luminary 131 program is from December
of 1969, whereas there was a later revision in January of 1970, and still another
revision in February, which is the code that flew on the mission.
As far as this transcription is concerned, it was originally from a copy made in 1991 of
a printout from the collection of AGC developer Don Eyles for collector David Craig.
It was subsequently scanned by Gary Neff, reprocessed for online
presentation at the now-discontinued History of Recent Science and Technology (HRST) website
of MIT's Dibner Institute (the full-quality scans being discarded in the process),
and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a
high-quality replacement scan for a completely illegible page was later provided by Gary
Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many
errors to be introduced into the transcription. Accordingly, a second scan of the same physical
printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive,
and used to correct the transcription errors. All of the scanned materials mentioned,
as well as other Luminary 131 related material, are available online.
Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017,
so the two scans are not identical in that respect. The page-headings in the printout read, in part:GAP: ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091 17:53 DEC. 19, 1969Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together. |
015583,000002: ## Copyright: Public domain.
015584,000003: ## Filename: IMU_PERFORMANCE_TEST_2.agc
015585,000004: ## Purpose: A section of Luminary 1C, revision 131.
015586,000005: ## It is part of the source code for the Lunar Module's (LM)
015587,000006: ## Apollo Guidance Computer (AGC) for Apollo 13.
015588,000007: ## This file is intended to be a faithful transcription, except
015589,000008: ## that the code format has been changed to conform to the
015590,000009: ## requirements of the yaYUL assembler rather than the
015591,000010: ## original YUL assembler.
015592,000011: ## Reference: pp. 375-383
015593,000012: ## Contact: Ron Burkey <info@sandroid.org>.
015594,000013: ## Website: www.ibiblio.org/apollo/index.html
015595,000014: ## Mod history: 05/11/03 RSB. Began transcribing.
015596,000015: ## 05/14/05 RSB Corrected website reference above.
015597,000016: ## 2017-01-06 RSB Page numbers now agree with those on the
015598,000017: ## original harcopy, as opposed to the PDF page
015599,000018: ## numbers in 1701.pdf.
015600,000019: ## 2017-02-23 RSB Proofed comment text using octopus/ProoferComments.
015601,000020:
![]() |
Page 375 |
015603,000022: # NAME - IMU PERFORMANCE TESTS 2
015604,000023:
015605,000024: # DATE - MARCH 20, 1967
015606,000025:
015607,000026: # BY - SYSTEM TEST GROUP 864-6900 EXT. 1274
015608,000027:
015609,000028: # MODNO. - ZERO
015610,000029:
015611,000030: # FUNCTIONAL DESCRIPTION
015612,000031:
015613,000032: # POSITIONING ROUTINES FOR THE IMU PERFORMANCE TESTS AS WELL AS SOME OF
015614,000033: # THE TESTS THEMSELVES. FOR A DESCRIPTION OF THESE SUBROUTINES AND THE
015615,000034: # OPERATING PROCEDURES (TYPICALLY) SEE STG MEMO 685. THEORETICAL REF. E-1973
015616,000035:
015617,000036: 33,2045 BANK 33
015618,000037: 37,2000 SETLOC IMU2
015619,000038: 37,2000 BANK
015620,000039: 37,2002 E5,1416 EBANK= POSITON
015621,000040: 37,2002 COUNT* $$/P07
015622,000041:
015623,000042: 37,2002 05311 REDO TC NEWMODEX
015624,000043: 37,2003 00007 MM 07 B-14
015625,000044:
015626,000045: 37,2004 02325 GEOIMUTT TC IMUZERR
015627,000046: 37,2005 34755 IMUBACK CA ZERO
015628,000047: 37,2006 55414 TS NDXCTR
015629,000048: 37,2007 55440 TS TORQNDX
015630,000049: 37,2010 55441 TS TORQNDX +1
015631,000050: 37,2011 55576 TS OVFLOWCK
015632,000051: 37,2012 34361 NBPOSPL CA DEC17
015633,000052: 37,2013 55571 TS ZERONDX
015634,000053: 37,2014 32476 CA XNBADR
015635,000054: 37,2015 02367 TC ZEROING
015636,000055: 37,2016 34736 CA HALF
015637,000056: 37,2017 55664 TS XNB
015638,000057: 37,2020 06042 GUESS TC INTPRET
015639,000058: 37,2021 62545 LATAZCHK DLOAD SL2
015640,000059: 37,2022 02403 LATITUDE
015641,000060: 37,2023 15046 STODL DSPTEM1 +1
015642,000061: 37,2024 02401 AZIMUTH
015643,000062: 37,2025 77434 RTB EXIT
015644,000063: 37,2026 21615 1STO2S
015645,000064: 37,2027 56154 XCH MPAC
015646,000065: 37,2030 55044 TS DSPTEM1
015647,000066: 37,2031 32473 CAF VN0641
015648,000067: 37,2032 04616 TC BANKCALL
015649,000068: 37,2033 20477 CADR GOFLASH
015650,000069: 37,2034 02270 TC ENDTEST1
015651,000070: 37,2035 02037 TC +2
015652,000071: 37,2036 02031 TC -5
![]() |
Page 376 |
015654,000073: 37,2037 06042 TC INTPRET
015655,000074: 37,2040 47135 SLOAD RTB
015656,000075: 37,2041 01045 DSPTEM1
015657,000076: 37,2042 21577 CDULOGIC
015658,000077: 37,2043 02401 STORE AZIMUTH
015659,000078: 37,2044 60535 SLOAD SR2
015660,000079: 37,2045 01046 DSPTEM1 +1
015661,000080: 37,2046 02403 STORE LATITUDE
015662,000081: 37,2047 57546 COS DCOMP
015663,000082: 37,2050 77752 SL1
015664,000083: 37,2051 16437 STODL WANGI
015665,000084: 37,2052 02403 LATITUDE
015666,000085: 37,2053 72556 SIN SL1
015667,000086: 37,2054 16435 STODL WANGO
015668,000087: 37,2055 02401 AZIMUTH
015669,000088: 37,2056 73406 PUSH SIN
015670,000089: 37,2057 02675 STORE YNB +2
015671,000090: 37,2060 16705 STODL ZNB +4
015672,000091: 37,2061 77746 COS
015673,000092: 37,2062 02677 STORE YNB +4
015674,000093: 37,2063 77676 DCOMP
015675,000094: 37,2064 36703 POSGMBL STCALL ZNB +2
015676,000095: 37,2065 47355 CALCGA
015677,000096: 37,2066 77776 EXIT
015678,000097: 37,2067 04616 TC BANKCALL
015679,000098: 37,2070 16771 CADR IMUCOARS
015680,000099: 37,2071 34736 CAF BIT14 # IF BIT14 SET, GIMBAL LOCK
015681,000100: 37,2072 70077 MASK FLAGWRD3
015682,000101: 37,2073 00006 EXTEND
015683,000102: 37,2074 12076 BZF +2
015684,000103: 37,2075 25414 INCR NDXCTR # +1 IF IN GIMBAL LOCK, OTHERWISE 0
015685,000104: 37,2076 05516 TC DOWNFLAG
015686,000105: 37,2077 00056 ADRES GLOKFAIL # RESET GIMBAL LOCK FLAG
015687,000106: 37,2100 02315 TC IMUSLLLG
015688,000107: 37,2101 11414 CCS NDXCTR # IF ONE GO AND DO A PIPA TEST ONLY
015689,000108: 37,2102 02126 TC PIPACHK # ALIGN AND MEASURE VERTICAL PIPA RATE
015690,000109: 37,2103 02320 TC FINIMUDD
015691,000110: 37,2104 00006 EXTEND
015692,000111: 37,2105 31575 DCA PERFDLAY
015693,000112: 37,2106 05277 TC LONGCALL # DELAY WHILE SUSPENSION STABILIZES
015694,000113: 37,2107 E5,1416 EBANK= POSITON
015695,000114: 37,2107 02113 76065 2CADR GOESTIMS
015696,000115:
015697,000116: 37,2111 32116 CA ESTICADR
015698,000117: 37,2112 05133 TC JOBSLEEP
015699,000118: 37,2113 32116 GOESTIMS CA ESTICADR
015700,000119: 37,2114 05137 TC JOBWAKE
015701,000120: 37,2115 05261 TC TASKOVER
015702,000121: 37,2116 76500 ESTICADR CADR ESTIMS
015703,000122: 37,2117 34755 TORQUE CA ZERO
![]() |
Page 377 |
015705,000124: 37,2120 55047 TS DSPTEM2
015706,000125: 37,2121 31504 CA DRIFTI
015707,000126: 37,2122 55050 TS DSPTEM2 +1
015708,000127: 37,2123 51416 INDEX POSITON
015709,000128: 37,2124 55420 TS SOUTHDR -1
015710,000129: 37,2125 02457 TC SHOW
015711,000130:
015712,000131: 37,2126 51414 PIPACHK INDEX NDXCTR # PIPA TEST
015713,000132: 37,2127 02130 TC +1
015714,000133: 37,2130 02447 TC EARTHR*
015715,000134: 37,2131 34361 CA DEC17 # ALLOW PIP COUNTER TO OVERFLOW 17 TIMES
015716,000135: 37,2132 55476 TS DATAPL +4 # IN THE ALLOTED TIME INTERVAL
015717,000136: 37,2133 32474 CA DEC58
015718,000137: 37,2134 55412 TS LENGTHOT
015719,000138: 37,2135 34753 CA ONE
015720,000139: 37,2136 55537 TS RESULTCT
015721,000140: 37,2137 34755 CA ZERO
015722,000141: 37,2140 51415 INDEX PIPINDEX
015723,000142: 37,2141 54037 TS PIPAX
015724,000143: 37,2142 55472 TS DATAPL
015725,000144: 37,2143 02332 TC CHECKG
015726,000145: 37,2144 00004 INHINT
015727,000146: 37,2145 34752 CAF TWO
015728,000147: 37,2146 05173 TC TWIDDLE
015729,000148: 37,2147 E5,1642 EBANK= XSM
015730,000149: 37,2147 02151 ADRES PIPATASK
015731,000150: 37,2150 05155 TC ENDOFJOB
015732,000151:
015733,000152: 37,2151 00006 PIPATASK EXTEND
015734,000153: 37,2152 27412 DIM LENGTHOT
015735,000154: 37,2153 31412 CA LENGTHOT
015736,000155: 37,2154 00006 EXTEND
015737,000156: 37,2155 62161 BZMF STARTPIP
015738,000157: 37,2156 34742 CAF BIT10
015739,000158: 37,2157 05173 TC TWIDDLE
015740,000159: 37,2160 E5,1642 EBANK= XSM
015741,000160: 37,2160 02151 ADRES PIPATASK
015742,000161: 37,2161 34736 STARTPIP CAF PRIO20
015743,000162: 37,2162 05105 TC FINDVAC
015744,000163: 37,2163 E5,1642 EBANK= XSM
015745,000164: 37,2163 02166 76065 2CADR PIPJOBB
015746,000165:
015747,000166: 37,2165 05261 TC TASKOVER
015748,000167:
015749,000168: 37,2166 51414 PIPJOBB INDEX NDXCTR
015750,000169: 37,2167 02170 TC +1
015751,000170: 37,2170 02447 TC EARTHR*
015752,000171: 37,2171 31412 CA LENGTHOT
![]() |
Page 378 |
015754,000173: 37,2172 00006 EXTEND
015755,000174: 37,2173 62175 BZMF +2
015756,000175: 37,2174 05155 TC ENDOFJOB
015757,000176:
015758,000177: 37,2175 34756 CA FIVE
015759,000178: 37,2176 55537 TS RESULTCT
015760,000179: 37,2177 02332 TC CHECKG
015761,000180: 37,2200 11473 CCS DATAPL +1
015762,000181: 37,2201 02205 TC +4
015763,000182: 37,2202 05675 TC CCSHOLE
015764,000183: 37,2203 41476 CS DATAPL +4
015765,000184: 37,2204 55476 TS DATAPL +4
015766,000185: 37,2205 00006 EXTEND
015767,000186: 37,2206 41473 DCS DATAPL
015768,000187: 37,2207 21477 DAS DATAPL +4
015769,000188:
015770,000189: 37,2210 06042 TC INTPRET
015771,000190: 37,2211 45345 DLOAD DSU
015772,000191: 37,2212 02501 DATAPL +6
015773,000192: 37,2213 02475 DATAPL +2
015774,000193: 37,2214 45044 BPL CALL
015775,000194: 37,2215 76217 AINGOTN
015776,000195: 37,2216 76275 OVERFFIX
015777,000196: 37,2217 56325 AINGOTN PDDL DDV
015778,000197: 37,2220 02477 DATAPL +4
015779,000198: 37,2221 47075 DMPR RTB
015780,000199: 37,2222 37056 DEC585 # DEC585 HAS BEEN REDEFINED FOR LEM
015781,000200: 37,2223 21613 SGNAGREE
015782,000201: 37,2224 01050 STORE DSPTEM2
015783,000202: 37,2225 77776 EXIT
015784,000203: 37,2226 11414 CCS NDXCTR
015785,000204: 37,2227 02301 TC COAALIGN # TAKE PLATFORM OUT OF GIMBAL LOCK
015786,000205: 37,2230 02457 TC SHOW
015787,000206: 37,2231 32471 VERTDRFT CA 3990DEC # ABOUT 1 HOUR VERTICAL DRIFT TEST
015788,000207: 37,2232 55412 TS LENGTHOT
015789,000208: 37,2233 51416 INDEX POSITON
015790,000209: 37,2234 41417 CS SOUTHDR -2
015791,000210: 37,2235 55442 TS DRIFTT
015792,000211: 37,2236 11415 CCS PIPINDEX # OFFSET PLATFORM TO MISS PIP DEAD-ZONES
015793,000212: 37,2237 12245 TCF PON4 # Z UP IN POS 4
015794,000213: 37,2240 44747 PON2 CS BIT5 # X UP
015795,000214: 37,2241 27565 ADS ERCOMP +2
015796,000215: 37,2242 34747 CA BIT5
015797,000216: 37,2243 27567 ADS ERCOMP +4
015798,000217: 37,2244 12251 TCF PON
015799,000218: 37,2245 44747 PON4 CS BIT5
015800,000219: 37,2246 27565 ADS ERCOMP +2
015801,000220: 37,2247 34747 CA BIT5
015802,000221: 37,2250 27563 ADS ERCOMP
015803,000222: 37,2251 02447 PON TC EARTHR*
![]() |
Page 379 |
015805,000224: 37,2252 34755 CA ZERO # ALLOW ONLY SOUTH GYRO EARTH RATE COMPENS
015806,000225: 37,2253 55404 TS ERVECTOR
015807,000226: 37,2254 55405 TS ERVECTOR +1
015808,000227: 37,2255 34733 GUESS1 CAF POSMAX
015809,000228: 37,2256 55440 TS TORQNDX
015810,000229: 37,2257 55441 TS TORQNDX +1
015811,000230: 37,2260 30032 CA CDUX
015812,000231: 37,2261 55413 TS LOSVEC
015813,000232: 37,2262 02500 TC ESTIMS
015814,000233: 37,2263 31502 VALMIS CA DRIFTO
015815,000234: 37,2264 55050 TS DSPTEM2 +1
015816,000235: 37,2265 34755 CA ZERO
015817,000236: 37,2266 55047 TS DSPTEM2
015818,000237: 37,2267 02457 TC SHOW
015819,000238:
015820,000239: 37,2270 05516 ENDTEST1 TC DOWNFLAG
015821,000240: 37,2271 00007 ADRES IMUSE
015822,000241: 37,2272 44755 CS ZERO
015823,000242: 37,2273 05314 TC NEWMODEA
015824,000243: 37,2274 05472 TC ENDEXT
015825,000244:
![]() |
Page 380 |
015827,000246: 37,2275 43215 OVERFFIX DAD DAD
015828,000247: 37,2276 06532 DPPOSMAX
015829,000248: 37,2277 37064 ONEDPP
015830,000249: 37,2300 77616 RVQ
015831,000250:
015832,000251: 37,2301 00006 COAALIGN EXTEND # COARSE ALIGN SUBROUTINE
015833,000252: 37,2302 23571 QXCH ZERONDX
015834,000253: 37,2303 34755 CA ZERO
015835,000254: 37,2304 54321 TS THETAD
015836,000255: 37,2305 54322 TS THETAD +1
015837,000256: 37,2306 54323 TS THETAD +2
015838,000257: 37,2307 04616 TC BANKCALL
015839,000258: 37,2310 16771 CADR IMUCOARS
015840,000259: 37,2311 04616 ALIGNCOA TC BANKCALL
015841,000260: 37,2312 17707 CADR IMUSTALL
015842,000261: 37,2313 03047 TC SOMERR2
015843,000262: 37,2314 01571 TC ZERONDX
015844,000263:
015845,000264: 37,2315 00006 IMUSLLLG EXTEND
015846,000265: 37,2316 23571 QXCH ZERONDX
015847,000266: 37,2317 02311 TC ALIGNCOA
015848,000267:
015849,000268: 37,2320 00006 FINIMUDD EXTEND
015850,000269: 37,2321 23571 QXCH ZERONDX
015851,000270: 37,2322 04616 TC BANKCALL
015852,000271: 37,2323 17201 CADR IMUFINE
015853,000272: 37,2324 02311 TC ALIGNCOA
015854,000273:
015855,000274: 37,2325 00006 IMUZERR EXTEND
015856,000275: 37,2326 23571 QXCH ZERONDX
015857,000276: 37,2327 04616 TC BANKCALL
015858,000277: 37,2330 16705 CADR IMUZERO
015859,000278: 37,2331 02311 TC ALIGNCOA
015860,000279:
015861,000280: 37,2332 00006 CHECKG EXTEND # PIP PULSE CATCHING ROUTINE
015862,000281: 37,2333 23417 QXCH QPLACE
015863,000282: 37,2334 02342 TC +6
015864,000283: 37,2335 00003 CHECKG1 RELINT
015865,000284: 37,2336 30067 CA NEWJOB
015866,000285: 37,2337 00006 EXTEND
015867,000286: 37,2340 62346 BZMF +6
015868,000287: 37,2341 05122 TC CHANG1
015869,000288: 37,2342 00004 INHINT
015870,000289: 37,2343 51415 INDEX PIPINDEX
015871,000290: 37,2344 40037 CS PIPAX
015872,000291: 37,2345 55571 TS ZERONDX
015873,000292: 37,2346 00004 INHINT
![]() |
Page 381 |
015875,000294: 37,2347 51415 INDEX PIPINDEX
015876,000295: 37,2350 30037 CA PIPAX
015877,000296: 37,2351 61571 AD ZERONDX
015878,000297: 37,2352 00006 EXTEND
015879,000298: 37,2353 12335 BZF CHECKG1
015880,000299: 37,2354 51415 INDEX PIPINDEX
015881,000300: 37,2355 30037 CA PIPAX
015882,000301: 37,2356 51537 INDEX RESULTCT
015883,000302: 37,2357 55472 TS DATAPL
015884,000303: 37,2360 04102 TC FINETIME
015885,000304: 37,2361 51537 INDEX RESULTCT
015886,000305: 37,2362 55473 TS DATAPL +1
015887,000306: 37,2363 51537 INDEX RESULTCT
015888,000307: 37,2364 23474 LXCH DATAPL +2
015889,000308: 37,2365 00003 RELINT
015890,000309: 37,2366 01417 ENDCHKG TC QPLACE
015891,000310:
015892,000311: 37,2367 54001 ZEROING TS L
015893,000312: 37,2370 12372 TCF +2
015894,000313: 37,2371 55571 ZEROING1 TS ZERONDX
015895,000314: 37,2372 34755 CAF ZERO
015896,000315: 37,2373 50001 INDEX L
015897,000316: 37,2374 54000 TS 0
015898,000317: 37,2375 24001 INCR L
015899,000318: 37,2376 11571 CCS ZERONDX
015900,000319: 37,2377 12371 TCF ZEROING1
015901,000320: 37,2400 00002 TC Q
015902,000321:
![]() |
Page 382 |
015904,000323: 37,2401 65345 ERTHRVSE DLOAD PDDL
015905,000324: 37,2402 37057 SCHZEROS # PD24 = (SIN -COS 0)(OMEG/MS)
015906,000325: 37,2403 02403 LATITUDE
015907,000326: 37,2404 57546 COS DCOMP
015908,000327: 37,2405 73525 PDDL SIN
015909,000328: 37,2406 02403 LATITUDE
015910,000329: 37,2407 74266 VDEF VXSC
015911,000330: 37,2410 36001 OMEG/MS
015912,000331: 37,2411 02405 STORE ERVECTOR
015913,000332: 37,2412 77634 RTB
015914,000333: 37,2413 21574 LOADTIME
015915,000334: 37,2414 26433 STOVL TMARK
015916,000335: 37,2415 37057 SCHZEROS
015917,000336: 37,2416 02564 STORE ERCOMP
015918,000337: 37,2417 77616 RVQ
015919,000338:
015920,000339: 37,2420 47020 EARTHR ITA RTB
015921,000340: 37,2421 00051 S2
015922,000341: 37,2422 21574 LOADTIME
015923,000342: 37,2423 02431 STORE TEMPTIME
015924,000343: 37,2424 51025 DSU BPL
015925,000344: 37,2425 02433 TMARK
015926,000345: 37,2426 76431 ERTHR
015927,000346: 37,2427 77624 CALL
015928,000347: 37,2430 76275 OVERFFIX
015929,000348: 37,2431 74261 ERTHR SL VXSC
015930,000349: 37,2432 20212 9D
015931,000350: 37,2433 02405 ERVECTOR
015932,000351: 37,2434 53321 MXV VAD
015933,000352: 37,2435 02643 XSM
015934,000353: 37,2436 02564 ERCOMP
015935,000354: 37,2437 16564 STODL ERCOMP
015936,000355: 37,2440 02431 TEMPTIME
015937,000356: 37,2441 02433 STORE TMARK
015938,000357: 37,2442 47170 AXT,1 RTB
015939,000358: 37,2443 02563 ECADR ERCOMP
015940,000359: 37,2444 21706 PULSEIMU
015941,000360: 37,2445 77650 GOTO
015942,000361: 37,2446 00051 S2
015943,000362:
015944,000363: 37,2447 00006 EARTHR* EXTEND
015945,000364: 37,2450 23420 QXCH QPLACES
015946,000365: 37,2451 06042 TC INTPRET
015947,000366: 37,2452 77624 CALL
015948,000367: 37,2453 76420 EARTHR
015949,000368: 37,2454 77776 EXIT
015950,000369: 37,2455 02315 TC IMUSLLLG
015951,000370: 37,2456 01420 TC QPLACES
015952,000371:
015953,000372: 37,2457 00006 SHOW EXTEND
![]() |
Page 383 |
015955,000374: 37,2460 23417 QXCH QPLACE
015956,000375: 37,2461 31416 SHOW1 CA POSITON
015957,000376: 37,2462 55051 TS DSPTEM2 +2
015958,000377: 37,2463 32472 CA VB06N98
015959,000378: 37,2464 04616 TC BANKCALL
015960,000379: 37,2465 20477 CADR GOFLASH
015961,000380: 37,2466 02270 TC ENDTEST1 # V34
015962,000381: 37,2467 01417 TC QPLACE # V33
015963,000382: 37,2470 12461 TCF SHOW1
015964,000383:
015965,000384: 37,2471 07626 3990DEC DEC 3990 B-14
015966,000385: 37,2472 01542 VB06N98 VN 0698
015967,000386: 37,2473 01451 VN0641 VN 0641
015968,000387: 37,2474 4361 DEC17 = ND1
015969,000388: 37,2474 00072 DEC58 DEC 58 B-14
015970,000389: 37,2475 02737 OGCPL ECADR OGC
015971,000390: 37,2476 4777 1SECX = 1SEC
015972,000391: 37,2476 01664 XNBADR GENADR XNB
015973,000392: 37,2477 01642 XSMADR GENADR XSM
015974,000393:
015975,000394: 4102 BLOCK 2
015976,000395: 4102 COUNT* $$/P07
015977,000396: 4102 00004 FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED
015978,000397: 4103 00006 EXTEND
015979,000398: 4104 00004 READ LOSCALAR
015980,000399: 4105 54001 TS L
015981,000400: 4106 00006 EXTEND
015982,000401: 4107 06004 RXOR LOSCALAR
015983,000402: 4110 00006 EXTEND
015984,000403: 4111 14115 BZF +4
015985,000404: 4112 00006 EXTEND
015986,000405: 4113 00004 READ LOSCALAR
015987,000406: 4114 54001 TS L
015988,000407: 4115 44733 CS POSMAX
015989,000408: 4116 60001 AD L
015990,000409: 4117 00006 EXTEND
015991,000410: 4120 14103 BZF FINETIME +1
015992,000411: 4121 00006 EXTEND
015993,000412: 4122 00003 READ HISCALAR
015994,000413: 4123 00002 TC Q
015995,000414:
End of include-file IMU_PERFORMANCE_TESTS_2.agc. Parent file is MAIN.agc