Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES DEC 13, 1966 THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 OF PROGRAM SUNBURST BY LEM GROUPNote that the date is the date of the printout, not the date of the program revision. |
016749,000002: ## Copyright: Public domain.
016750,000003: ## Filename: IMU_PERFORMANCE_TESTS_2.agc
016751,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
016752,000005: ## It is part of an early development version of the software
016753,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
016754,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
016755,000008: ## upon which Don Eyles's offline development program Shepatin
016756,000009: ## was based; the listing herein transcribed was actually for
016757,000010: ## the equivalent revision 0 of Shepatin.
016758,000011: ## This file is intended to be a faithful transcription, except
016759,000012: ## that the code format has been changed to conform to the
016760,000013: ## requirements of the yaYUL assembler rather than the
016761,000014: ## original YUL assembler.
016762,000015: ## Reference: pp. 391-415
016763,000016: ## Assembler: yaYUL
016764,000017: ## Contact: Ron Burkey <info@sandroid.org>.
016765,000018: ## Website: www.ibiblio.org/apollo/index.html
016766,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
016767,000020: ## 2017-06-08 RSB Transcribed.
016768,000021: ## 2017-06-22 RSB Proofed comment text with
016769,000022: ## octopus/ProoferComments.
016770,000023:
![]() |
Page 391 |
016772,000025: 24,2000 BANK 24
016773,000026: 24,2000 E5,1400 EBANK= XSM
016774,000027:
016775,000028:
016776,000029: 24,2000 37761 IMUTEST CA ZERO # DRIFT AND SCALE FACTOR TEST
016777,000030: 24,2001 55576 TS DRIFTT
016778,000031: 24,2002 55742 TS GEOCOMPS
016779,000032: 24,2003 33707 CAF 1SECX
016780,000033: 24,2004 55744 TS 1SECXT
016781,000034:
016782,000035: 24,2005 06103 GEOIMUTT TC INTPRET # COMPASS COMES IN HERE
016783,000036: 24,2006 77624 CALL
016784,000037: 24,2007 30532 LATAZCHK
016785,000038: 24,2010 77776 EXIT
016786,000039: 24,2011 37755 CA ONE
016787,000040: 24,2012 55544 TS POSITON
016788,000041:
016789,000042: 24,2013 54344 TS DSPTEM2 +2
016790,000043:
016791,000044: 24,2014 54400 TS THETAD
016792,000045: 24,2015 54401 TS THETAD +1
016793,000046: 24,2016 54402 TS THETAD +2
016794,000047: 24,2017 05224 TC BANKCALL
016795,000048: 24,2020 26000 CADR IMUZERO
016796,000049: 24,2021 05224 TC BANKCALL
016797,000050: 24,2022 26762 CADR IMUSTALL
016798,000051: 24,2023 12245 TCF ENDTEST1
016799,000052: 24,2024 37761 IMUBACK CA ZERO
016800,000053: 24,2025 54343 TS DSPTEM2 +1
016801,000054: 24,2026 55537 TS NDXCTR
016802,000055: 24,2027 55574 TS TORQNDX
016803,000056: 24,2030 55575 TS TORQNDX +1
016804,000057: 24,2031 33637 CAF TESTTIME
016805,000058: 24,2032 54342 TS DSPTEM2
016806,000059: 24,2033 05224 TC BANKCALL # ISS RETURNS IN COARSE ALIGN MODE TO
016807,000060: 24,2034 26065 CADR IMUCOARS # ENABLE OPERATOR TO DECIDE WHAT TO DO
016808,000061: # ABOUT GIMBAL LOCK
016809,000062: 24,2035 03571 TC SHOWLD
016810,000063: 24,2036 03600 TC SHOW
016811,000064:
016812,000065:
016813,000066: 24,2037 05224 TC BANKCALL
016814,000067: 24,2040 26762 CADR IMUSTALL
016815,000068: 24,2041 02245 TC ENDTEST1
016816,000069: 24,2042 03346 TC NBPOSPL
016817,000070: 24,2043 03101 TC POSGMBL
016818,000071: 24,2044 02110 TC PIPACHK # IF MGA IS 60DEG+ PROG WILL STAY IN COARS
016819,000072: # ALIGN AND MEASURE VERITCAL PIPA RATE
016820,000073: 24,2045 03126 TC FALNE
![]() |
Page 392 |
016822,000075: 24,2046 05224 TC BANKCALL
016823,000076: 24,2047 26762 CADR IMUSTALL
016824,000077:
016825,000078: 24,2050 12245 TCF ENDTEST1
016826,000079: 24,2051 11742 CCS GEOCOMPS
016827,000080: 24,2052 02073 TC JUMPLOAD
016828,000081: 24,2053 06103 GUESS TC INTPRET # CALCULATE -COS LATITUDE AND SIN LATITUDE
016829,000082: 24,2054 71545 DLOAD COS # FOR ESTIMATE
016830,000083: 24,2055 02511 LATITUDE
016831,000084: 24,2056 72476 DCOMP SL1
016832,000085: 24,2057 16573 STODL WANGI
016833,000086: 24,2060 02511 LATITUDE
016834,000087: 24,2061 72556 SIN SL1
016835,000088: 24,2062 26571 STOVL WANGO # LOAD TRANSITION MATRIX INTO ERASABLE
016836,000089: 24,2063 11711 GEORGED
016837,000090: 24,2064 26721 STOVL TRANSM1
016838,000091: 24,2065 11717 GEORGEC
016839,000092: 24,2066 26727 STOVL TRANSM1 +6
016840,000093: 24,2067 11725 GEORGEB
016841,000094: 24,2070 02735 STORE TRANSM1 +12D
016842,000095: 24,2071 77776 EXIT
016843,000096: 24,2072 02074 TC +2
016844,000097: 24,2073 04713 JUMPLOAD TC FREEDSP # FREE DISPLAY IF IN GYROCOMPASS
016845,000098: 24,2074 03614 TC LOADGTSM
016846,000099: 24,2075 05224 TC BANKCALL
016847,000100: 24,2076 72014 CADR ESTIMS
016848,000101:
016849,000102: 24,2077 04147 TORQUE TC PHASCHNG # FILTER RETURNS AFTER TORQUE AND ER SET
016850,000103: 24,2100 00005 OCT 00005
016851,000104: 24,2101 37761 CA ZERO
016852,000105: 24,2102 54342 TS DSPTEM2
016853,000106: 24,2103 31640 CA DRIFTI
016854,000107: 24,2104 54343 TS DSPTEM2 +1
016855,000108: 24,2105 51544 INDEX POSITON
016856,000109: 24,2106 55551 TS SOUTHDR -1
016857,000110: 24,2107 03600 TC SHOW
016858,000111:
016859,000112: 24,2110 51537 PIPACHK INDEX NDXCTR # TORQUE PLATFORM TO CORRECT LEVELING ERR
016860,000113: 24,2111 02112 TC +1 # IN PREPARATION TO MEASURING VERTICAL
016861,000114: 24,2112 05224 TC BANKCALL # PIPA OUTPUT PULSE RATE
016862,000115: 24,2113 30424 CADR EARTHR
016863,000116:
016864,000117: 24,2114 33642 CA DEC17 # ALLOW PIP COUNTER TO OVERFLOW 17 TIMES
016865,000118: 24,2115 55632 TS DATAPL +4
016866,000119: 24,2116 37744 CA BIT10 # IN THE ALLOTED TIME INTERVAL
016867,000120: 24,2117 55527 TS LENGTHOT
016868,000121: 24,2120 37755 CA ONE
016869,000122: 24,2121 55673 TS RESULTCT
016870,000123: 24,2122 37761 CA ZERO # ZERO PIPA COUNTER INITIALLY
016871,000124: 24,2123 51541 INDEX PIPINDEX
016872,000125:
016873,000126: 24,2124 54037 TS PIPAX
016874,000127: 24,2125 55626 TS DATAPL
![]() |
Page 393 |
016876,000129: 24,2126 33654 CA DEC56 # LOOP 56 TIMES 5.12 SEC "ACH. EACH INCR.
016877,000130: 24,2127 03207 TC WAITLOOP # WILL ALSO CORRECT EARTH RATE
016878,000131: 24,2130 00004 INHINT
016879,000132: 24,2131 02773 TC CHECKG
016880,000133: 24,2132 00003 RELINT
016881,000134: 24,2133 03067 TC DATALD
016882,000135: 24,2134 37760 CA FIVE
016883,000136: 24,2135 55673 TS RESULTCT
016884,000137:
016885,000138: 24,2136 51537 INDEX NDXCTR
016886,000139: 24,2137 02140 TC +1
016887,000140: 24,2140 05224 TC BANKCALL
016888,000141: 24,2141 30424 CADR EARTHR
016889,000142: 24,2142 11676 CCS COUNTPL
016890,000143: 24,2143 03231 TC WAITLP2
016891,000144: 24,2144 11627 CCS DATAPL +1
016892,000145: 24,2145 02151 TC +4
016893,000146: 24,2146 04725 TC CCSHOLE
016894,000147: 24,2147 41632 CS DATAPL +4
016895,000148: 24,2150 55632 TS DATAPL +4
016896,000149: 24,2151 00006 EXTEND
016897,000150: 24,2152 41627 DCS DATAPL
016898,000151: 24,2153 21633 DAS DATAPL +4
016899,000152:
016900,000153: 24,2154 06103 TC INTPRET
016901,000154: 24,2155 45345 DLOAD DSU
016902,000155: 24,2156 02635 DATAPL +6
016903,000156: 24,2157 02631 DATAPL +2
016904,000157: 24,2160 56325 PDDL DDV
016905,000158: 24,2161 02633 DATAPL +4
016906,000159: 24,2162 41325 PDDL DMP
016907,000160: 24,2163 11644 DEC585 # DEC585 HAS BEEN REDEFINED FOR LEM
016908,000161:
016909,000162: 24,2164 77634 RTB
016910,000163: 24,2165 33565 SGNAGREE
016911,000164: 24,2166 00343 STORE DSPTEM2
016912,000165: 24,2167 77776 EXIT
016913,000166: 24,2170 03600 TC SHOW
016914,000167: 24,2171 33635 VERTDRFT CA 3990DEC # 3900 SECONDS FOR VERTICAL DRIFT
016915,000168: 24,2172 55527 TS LENGTHOT
016916,000169: 24,2173 05224 TC BANKCALL # THIS WILL CORRECT FOR EARTH RATE DURING
016917,000170: 24,2174 30424 CADR EARTHR # TIME SPENT IN SHOW ABOVE*
016918,000171: 24,2175 30032 CA CDUX # STOORE AXIS FOR LAB CALC OF DRIFT
016919,000172: 24,2176 55530 TS LOSVEC
016920,000173: 24,2177 51544 INDEX POSITON
016921,000174: 24,2200 41550 CS SOUTHDR -2
016922,000175: 24,2201 55576 TS DRIFTT
016923,000176: 24,2202 03614 TC LOADGTSM
016924,000177: 24,2203 37761 CA ZERO # ALLOW ONLY SOUTH GYRO EARTH RATE COMPENS
016925,000178: 24,2204 55400 TS XSM
016926,000179: 24,2205 55401 TS XSM +1
016927,000180: 24,2206 55404 TS XSM +4
![]() |
Page 394 |
016929,000182: 24,2207 55405 TS XSM +5
016930,000183: 24,2210 55406 TS YSM
016931,000184: 24,2211 55407 TS YSM +1
016932,000185: 24,2212 55412 TS YSM +4
016933,000186: 24,2213 55413 TS YSM +5
016934,000187: 24,2214 55414 TS ZSM
016935,000188: 24,2215 55415 TS ZSM +1
016936,000189: 24,2216 55420 TS ZSM +4
016937,000190: 24,2217 55421 TS ZSM +5
016938,000191: 24,2220 37735 GUESS1 CAF POSMAX
016939,000192: 24,2221 55574 TS TORQNDX
016940,000193: 24,2222 55575 TS TORQNDX +1
016941,000194: 24,2223 05224 TC BANKCALL
016942,000195: 24,2224 72014 CADR ESTIMS
016943,000196:
016944,000197: 24,2225 04147 VALMIS TC PHASCHNG
016945,000198: 24,2226 00005 OCT 00005
016946,000199: 24,2227 31636 CA DRIFTO
016947,000200: 24,2230 54343 TS DSPTEM2 +1
016948,000201: 24,2231 30032 CA CDUX # STORE OG ANGLE FOR LAB CALC OF DRIFT**
016949,000202: 24,2232 55531 TS LOSVEC +1
016950,000203: 24,2233 37761 CA ZERO
016951,000204: 24,2234 54342 TS DSPTEM2
016952,000205: 24,2235 03600 TC SHOW
016953,000206:
016954,000207:
016955,000208:
016956,000209: 24,2236 37755 FINISH CA ONE
016957,000210: 24,2237 61544 AD POSITON
016958,000211: 24,2240 54344 TS DSPTEM2 +2
016959,000212: 24,2241 37754 CA TWO
016960,000213: 24,2242 55546 TS QPLACE
016961,000214: 24,2243 05224 TC BANKCALL
016962,000215: 24,2244 22343 CADR TSELECT -6
016963,000216: 24,2245 05224 ENDTEST1 TC BANKCALL
016964,000217: 24,2246 30747 CADR ENDTEST
016965,000218:
![]() |
Page 395 |
016967,000220: 24,2247 33645 OPCHK CAF DELYOFF # AUTOMATIC TEST FOR SYSTEM OPERATION
016968,000221: 24,2250 00006 EXTEND
016969,000222: 24,2251 02030 RAND 30 # CHECK TO SEE IF IMU IS ON
016970,000223: 24,2252 10000 CCS A
016971,000224: 24,2253 02442 TC ALARMS
016972,000225: 24,2254 33640 CAF V16N20S
016973,000226: 24,2255 04646 TC NVSBWAIT
016974,000227:
016975,000228: 24,2256 04713 TC FREEDSP
016976,000229: 24,2257 05224 TC BANKCALL
016977,000230: 24,2260 26000 CADR IMUZERO
016978,000231: 24,2261 05224 TC BANKCALL
016979,000232: 24,2262 26762 CADR IMUSTALL
016980,000233:
016981,000234: 24,2263 12245 TCF ENDTEST1
016982,000235: 24,2264 37746 CA BIT8 # ZERO ALL ERASEABLE USED IN TEST
016983,000236: 24,2265 55777 TS ZERONDX
016984,000237: 24,2266 33650 CA GENPLAD
016985,000238: 24,2267 03240 TC ZEROING
016986,000239:
016987,000240: 24,2270 03346 TC NBPOSPL # ALIGN ANGLE COMPUTATION
016988,000241:
016989,000242: 24,2271 03101 TC POSGMBL # COARSE ALIGN THOSE GIMBALS NOW
016990,000243:
016991,000244: 24,2272 12247 TCF OPCHK
016992,000245: 24,2273 03126 TC FALNE # FINE ALIGN PLATFORM BY TORQUING GYROS
016993,000246:
016994,000247: 24,2274 05224 TC BANKCALL
016995,000248: 24,2275 26762 CADR IMUSTALL
016996,000249: 24,2276 12245 TCF ENDTEST1
016997,000250: 24,2277 37754 CA TWO
016998,000251: 24,2300 55672 CDUCHECK TS CDUNDX # THIS LOOP CHECKS FOR NO ERROR BETWEEN
016999,000252: 24,2301 51672 INDEX CDUNDX # DESIRED CDU ANGLES AND THE ACTUAL ANGLES
017000,000253: 24,2302 40400 CS THETAD
017001,000254: 24,2303 51672 INDEX CDUNDX
017002,000255: 24,2304 60032 AD CDUX
017003,000256: 24,2305 55551 TS STOREPL
017004,000257: 24,2306 11551 CCS STOREPL
017005,000258: 24,2307 02315 TC ERRMASK
017006,000259: 24,2310 02312 TC NOERR
017007,000260: 24,2311 02315 TC ERRMASK
017008,000261: 24,2312 11672 NOERR CCS CDUNDX
017009,000262: 24,2313 02300 TC CDUCHECK
017010,000263:
017011,000264: 24,2314 02321 TC LOADIC
017012,000265: 24,2315 73653 ERRMASK MASK LOWFOUR # ALLOW FIVE BIT ERRORS
017013,000266: 24,2316 10000 CCS A
017014,000267: 24,2317 02442 TC ALARMS
017015,000268: 24,2320 02312 TC NOERR
017016,000269: 24,2321 37755 LOADIC CA ONE
017017,000270: 24,2322 55673 TS RESULTCT
017018,000271: 24,2323 47755 CS ONE
017019,000272:
![]() |
Page 396 |
017021,000274: 24,2324 55670 TS MASKREG # SETS UP AZIMUTH AND VERTICAL VECTORS FOR
017022,000275:
017023,000276: 24,2325 37761 CA ZERO
017024,000277: 24,2326 54037 TS PIPAX
017025,000278: 24,2327 54040 TS PIPAY
017026,000279: 24,2330 54041 TS PIPAZ
017027,000280:
017028,000281: 24,2331 37743 CA BIT11
017029,000282: 24,2332 55527 TS LENGTHOT # VECTOR IN PIPA COUNTERS
017030,000283: 24,2333 37755 CA ONE
017031,000284: 24,2334 03207 TC WAITLOOP
017032,000285: 24,2335 11676 CCS COUNTPL
017033,000286: 24,2336 03231 TC WAITLP2
017034,000287: 24,2337 33654 CA DEC56
017035,000288: 24,2340 03207 TC WAITLOOP
017036,000289: 24,2341 37754 OPCHK1 CA TWO
017037,000290: 24,2342 55541 OPCHK2 TS PIPINDEX
017038,000291: 24,2343 00004 INHINT
017039,000292: 24,2344 02773 TC CHECKG
017040,000293: 24,2345 00003 RELINT
017041,000294: 24,2346 37761 CA ZERO
017042,000295: 24,2347 51541 INDEX PIPINDEX
017043,000296: 24,2350 54037 TS PIPAX
017044,000297: 24,2351 03067 TC DATALD # LOAD PIPA DATA AND TIME IN DATAPL
017045,000298: 24,2352 57673 XCH RESULTCT
017046,000299: 24,2353 67753 AD FOUR
017047,000300:
017048,000301: 24,2354 55673 TS RESULTCT
017049,000302: 24,2355 11541 CCS PIPINDEX
017050,000303: 24,2356 02342 TC OPCHK2
017051,000304: 24,2357 47753 READOUT CS FOUR
017052,000305: 24,2360 61673 AD RESULTCT
017053,000306: 24,2361 55673 TS RESULTCT
017054,000307: 24,2362 22007 ZL
017055,000308: 24,2363 51673 INDEX RESULTCT
017056,000309: 24,2364 31626 CA DATAPL
017057,000310: 24,2365 22000 LXCH A
017058,000311: 24,2366 51673 INDEX RESULTCT
017059,000312: 24,2367 21572 DAS GENPL +1
017060,000313: 24,2370 31673 CA RESULTCT
017061,000314: 24,2371 71670 MASK MASKREG
017062,000315: 24,2372 10000 CCS A
017063,000316: 24,2373 02357 TC READOUT
017064,000317: 24,2374 34557 CA TEN
017065,000318: 24,2375 66301 AD THREE
017066,000319: 24,2376 55673 TS RESULTCT
017067,000320: 24,2377 40000 CS A
017068,000321: 24,2400 55670 TS MASKREG
017069,000322: 24,2401 11676 CCS COUNTPL
017070,000323: 24,2402 03231 TC WAITLP2
017071,000324:
017072,000325: 24,2403 03252 TC COMPUT
017073,000326:
![]() |
Page 397 |
017075,000328: 24,2404 33641 RADCK CA V16N40S
017076,000329: 24,2405 04646 TC NVSBWAIT # OPERATOR WILL CHECK RADAR STATUS.IN LAB.
017077,000330: 24,2406 04611 TC FLASHON # SET RADAR OFF THEN PUT RESOLVER STANDARD
017078,000331: 24,2407 04464 TC ENDIDLE # ON TRUNNION AND SET TO +45 DEG.SHAFT WIL
017079,000332: 24,2410 02245 TC ENDTEST1
017080,000333: 24,2411 02412 TC +1 # AFTER SETTING RES STANDARD DO A V33
017081,000334: 24,2412 37761 CA ZERO
017082,000335: 24,2413 54424 TS TANG +1
017083,000336:
017084,000337: 24,2414 33655 CA 45DEG
017085,000338: 24,2415 54423 TS TANG
017086,000339: 24,2416 05224 DRIVRAD TC BANKCALL # IN SC WHEN RAD PRESENT DO V33 RIGHT AWAY
017087,000340: 24,2417 20247 CADR RRZERO # LGC WILL ATTEMPT TO DRIVE 45 DEG TRUNN.
017088,000341: 24,2420 05224 TC BANKCALL # TO MATCH STANDARD, AFTER ZEROING CDUS
017089,000342: 24,2421 26756 CADR RADSTALL
017090,000343: 24,2422 02245 TC ENDTEST1
017091,000344: 24,2423 06103 TC INTPRET
017092,000345: 24,2424 77624 CALL
017093,000346: 24,2425 20363 RRDESNB
017094,000347: 24,2426 05224 TC BANKCALL
017095,000348: 24,2427 26756 CADR RADSTALL # IF CDU FAILS TO AGREE WITH COMMAND TO
017096,000349: 24,2430 02442 TC ALARMS # 1 DEG GET ALARM HERE
017097,000350:
017098,000351: 24,2431 04611 TC FLASHON # OPERATOR WILL CHECK STATUS OF RADAR
017099,000352: 24,2432 04464 TC ENDIDLE # IN S/C DO V33 TO CONTINUE WITH SHAFT
017100,000353: 24,2433 02245 TC ENDTEST1 # TEST
017101,000354: 24,2434 02435 TC +1 # IN LAB TURN RADAR OFF CHANGE RES STANDAR
017102,000355: 24,2435 37761 CA ZERO # TO SHAFT AND SET FOR -45DEG.
017103,000356: 24,2436 54423 TS TANG # THEN DO A V33 IF WANT TO REPEAT CHECK
017104,000357: 24,2437 43655 CS 45DEG # DO A V34 TO TERMINATE
017105,000358: 24,2440 54424 TS TANG +1
017106,000359: 24,2441 02416 TC DRIVRAD
017107,000360:
017108,000361: 24,2442 56002 ALARMS XCH Q
017109,000362: 24,2443 55546 TS QPLACE
017110,000363: 24,2444 04744 TC ALARM
017111,000364: 24,2445 01411 OCT 1411
017112,000365: 24,2446 01546 TC QPLACE
017113,000366:
![]() |
Page 398 |
017115,000368: 24,2447 06103 GYRSFTST TC INTPRET # START ADRESS FOR IRIG SF TEST
017116,000369: 24,2450 77624 CALL
017117,000370: 24,2451 30532 LATAZCHK # LOAD AZ AND LAT
017118,000371: 24,2452 77776 EXIT
017119,000372: 24,2453 33630 TESTCALL CAF V21N30E
017120,000373: 24,2454 04646 TC NVSBWAIT # LOAD + OR - 1 FOR + OR - X TEST (+00001)
017121,000374: 24,2455 04464 TC ENDIDLE # LOAD + OR - 2 FOR + OR - Y TEST
017122,000375: 24,2456 12245 TCF ENDTEST1 # LOAD + OR - 3 FOR + OR - Z TEST
017123,000376: 24,2457 02453 TC TESTCALL
017124,000377: 24,2460 56337 XCH DSPTEM1
017125,000378: 24,2461 55614 TS CALCDIR
017126,000379: 24,2462 00006 EXTEND # THIS ROUTINE LOOKS AT THE SIZE OF THE
017127,000380: 24,2463 62470 BZMF NEGSIZ # ENTRY MADE BY THE OPERATOR, IF HE DID NO
017128,000381: 24,2464 75357 SIZLOOK MASK NEG3 # T ENTER TEST NO THAT IS W/I PERMISSIBLE
017129,000382:
017130,000383: 24,2465 00006 EXTEND # RANGE- HE WILL BE ASKED TO LOAD AGAIN.
017131,000384: 24,2466 12472 BZF GUDENTRY # THIS IS CONSIDERED NECESSARY BECAUSE
017132,000385: 24,2467 02453 TC TESTCALL # OF FOLLOWING INDEXED TC WHICH COULD
017133,000386:
017134,000387: 24,2470 40000 NEGSIZ COM # SEND THE COMPUTER OFF INTO THE BOONDOCKS
017135,000388: 24,2471 02464 TC SIZLOOK # TO PLAY WITH ITSELF IF THE OPERATOR
017136,000389: 24,2472 31614 GUDENTRY CA CALCDIR # MAKES ABAD ENTRY******
017137,000390: 24,2473 67753 AD FOUR
017138,000391: 24,2474 50000 INDEX A
017139,000392: 24,2475 02476 TC +1
017140,000393: 24,2476 02453 TC TESTCALL
017141,000394: 24,2477 02505 TC +6 # C(A)=+00001 FOR -Z
017142,000395: 24,2500 02504 TC +4 # C(A)=+00002 FOR -Y
017143,000396: 24,2501 02503 TC +2 # C(A)=+00003 FOR -X
017144,000397: 24,2502 02476 TC -4 # C(A)=+00004 ERROR
017145,000398: 24,2503 02506 TC +3 # C(A)=+00005 FOR +X
017146,000399: 24,2504 02512 TC +6
017147,000400: 24,2505 02515 TC +10
017148,000401: 24,2506 37753 CAF FOUR
017149,000402: 24,2507 55544 TS POSITON # 4 IS FOR A.L. POSN 4 USED FOR X SF TEST
017150,000403: 24,2510 02517 TC +7
017151,000404: 24,2511 02517 TC +6
017152,000405: 24,2512 37754 CAF TWO
017153,000406:
017154,000407: 24,2513 55544 TS POSITON # +2 IS A.L. POS 2 USED FOR Y SF TEST
017155,000408: 24,2514 02517 TC +3
017156,000409: 24,2515 37755 CAF ONE
017157,000410: 24,2516 55544 TS POSITON # +1 IS A.L. POS 1 USED FOR Z SF TEST
017158,000411: 24,2517 55617 TS OPTNREG # C(K) = (4,2,1) FOR X,Y,Z
017159,000412: 24,2520 55621 TS SAVE +1
017160,000413: 24,2521 04713 TC FREEDSP
017161,000414: 24,2522 37761 CAF ZERO
017162,000415: 24,2523 55536 TS NBPOS # SET UP NB COORD TO Z NORTH, X UP
017163,000416: 24,2524 55622 TS SAVE +2 # INITIALIZE FOR EARTHR DESIGNATE USAGE
017164,000417: 24,2525 55563 TS TESTNO # INITIALIZE FOR TEST ABORT ROUTINE
017165,000418: 24,2526 55615 TS CDUFLAG # ZEROS FOR STRTWACH USE
017166,000419: 24,2527 33632 CAF SFCONST
017167,000420:
![]() |
Page 399 |
017169,000422: 24,2530 55623 TS SFCONST1 # FOR DIVISION DURING CALCSFE
017170,000423:
017171,000424: 24,2531 05224 TC BANKCALL
017172,000425: 24,2532 26000 CADR IMUZERO
017173,000426: 24,2533 05224 TC BANKCALL
017174,000427: 24,2534 26762 CADR IMUSTALL
017175,000428: 24,2535 12245 TCF ENDTEST1
017176,000429: 24,2536 03346 TC NBPOSPL
017177,000430: 24,2537 03101 TC POSGMBL
017178,000431: 24,2540 12245 TCF ENDTEST1
017179,000432: 24,2541 03126 TC FALNE
017180,000433: 24,2542 05224 TC BANKCALL
017181,000434: 24,2543 31705 CADR REDYTORK
017182,000435: 24,2544 55552 WAITFIVE TS SOUTHDR
017183,000436: 24,2545 37750 CAF BIT6 # THIS SECTION CALLS FOR 2-32 MSEC WAITS
017184,000437: 24,2546 02561 TC DIRECTN -5
017185,000438: 24,2547 37750 ENABLE CAF BIT6
017186,000439: 24,2550 00006 EXTEND # ENABLE GYRO TORQUING LOOP BY TURNING
017187,000440: 24,2551 05014 WOR 14C # ON CAL MODULE RELAY
017188,000441:
017189,000442: 24,2552 00004 INHINT
017190,000443: 24,2553 47754 CS TWO # SETS UP EXEC SWITCH SO IMUPULSE WILL
017191,000444: 24,2554 70366 MASK IMODES33 # NOT TURN OFF GYRO TORQ ENABLE RELAY
017192,000445: 24,2555 67754 AD TWO
017193,000446: 24,2556 54366 TS IMODES33
017194,000447: 24,2557 37754 CAF TWO
017195,000448: 24,2560 55552 TS SOUTHDR
017196,000449: 24,2561 55527 TS LENGTHOT # 20 MSEC DELAY FOR GYRO LOOP STABILIZAT.
017197,000450: 24,2562 37755 CA ONE
017198,000451: 24,2563 03207 TC WAITLOOP
017199,000452: 24,2564 11676 CCS COUNTPL
017200,000453: 24,2565 03231 TC WAITLP2
017201,000454: 24,2566 05224 DIRECTN TC BANKCALL # TORQUING ROUTINE IN IMU PERFORMANCE
017202,000455: 24,2567 46520 CADR SILVER # BANK 3
017203,000456: 24,2570 11552 CCS SOUTHDR # A ONE FIRST TIME THROUGH, THEN ZERO
017204,000457: 24,2571 02544 TC WAITFIVE
017205,000458:
017206,000459: 24,2572 11615 STRTWACH CCS CDUFLAG # RETURNS HERE VIA QPLACE FROM SILVER
017207,000460: 24,2573 02654 TC CDUZOTST # BEEN CAUGHT AND CDU THROUGH ZERO IS
017208,000461: 24,2574 11621 CCS SAVE +1
017209,000462: 24,2575 02614 TC LOOKCDUP -4
017210,000463: 24,2576 02620 TC LOOKCDUP
017211,000464: 24,2577 37761 CORRECT CAF ZERO
017212,000465:
017213,000466: 24,2600 54356 TS LGYRO # RELEASES GYROS FOR IMUPULSE USAGE
017214,000467: 24,2601 05224 TC BANKCALL # EARTHRATE CORRECTION TO GYROS NOT EAST
017215,000468: 24,2602 30424 CADR EARTHR # OR WEST
017216,000469: 24,2603 37755 CAF ONE
017217,000470: 24,2604 54356 TS LGYRO # RESERVES GYROS FOR S.F. TEST TORQUING
017218,000471: 24,2605 55622 TS SAVE +2 # INITIALIZES TO INSURE 5.6 DEG OF TORQ)
017219,000472: 24,2606 27563 ADS TESTNO # INCR THE BURST COUNTER, WHICH IS USED TO
017220,000473:
![]() |
Page 400 |
017222,000475: 24,2607 41563 CS TESTNO # COUNT THE NO. OF ITMES THE GYRO COUNTER
017223,000476: 24,2610 77760 MASK FIVE # IS LOADED, IF A TENTH LOAD IS REQUESTED
017224,000477:
017225,000478: 24,2611 00006 EXTEND # THE SFE IS TOO LARGE TO BE MEANINGFULL
017226,000479: 24,2612 12762 BZF STOPTEST # OR THE CDU,S ARE NOT WORKING.
017227,000480: 24,2613 02566 TC DIRECTN
017228,000481:
017229,000482: 24,2614 37761 CAF ZERO # ZEROS CDU REG WHICH WILL BE USED TO
017230,000483: 24,2615 55621 TS SAVE +1
017231,000484: 24,2616 51672 INDEX CDUNDX # MEASURE ANGLE.
017232,000485: 24,2617 54032 TS CDUX
017233,000486: 24,2620 00004 LOOKCDUP INHINT
017234,000487: 24,2621 37751 CAF BIT5
017235,000488: 24,2622 55624 STILLOOK TS TIMER
017236,000489: 24,2623 51672 INDEX CDUNDX # LOOKS FOR FIRST CDU PULSE AFTER TORQUING
017237,000490: 24,2624 10032 CCS CDUX # STARTS
017238,000491: 24,2625 02637 TC OUTPLUS # HERE IS PLUS PULSE
017239,000492: 24,2626 02631 TC TIMEWACH
017240,000493: 24,2627 02442 TC ALARMS # TTELL OPERATOR FIRST CDU PULSE WAS MISSD
017241,000494: 24,2630 02650 TC OUTNEG # HERE IS MINUS PULSE
017242,000495: 24,2631 11624 TIMEWACH CCS TIMER # WATCHES TIME IN INHINT SO COPS WILL NOT
017243,000496: 24,2632 02622 TC STILLOOK # CATCH US
017244,000497: 24,2633 00003 RELINT
017245,000498:
017246,000499: 24,2634 10067 CCS NEWJOB
017247,000500: 24,2635 05550 TC CHANG1
017248,000501:
017249,000502: 24,2636 02620 TC LOOKCDUP # KEEP WATCHING IF THE PULSE IS NOT HERE
017250,000503:
017251,000504: 24,2637 43631 OUTPLUS CS DESANGLE # -2047 CDU PULSES ADDED TO CDU REG SO
017252,000505: 24,2640 51672 INDEX CDUNDX # ZERO CROSSOVER CAN BE DETECTED
017253,000506: 24,2641 54032 TS CDUX
017254,000507: 24,2642 37755 LOADFLAG CAF ONE
017255,000508: 24,2643 55615 TS CDUFLAG
017256,000509: 24,2644 30047 CA GYROCTR # GYRO TORQ CMDS LEFT OUT OF FIRST 5.625
017257,000510: 24,2645 55620 TS SAVE # DEG COMMANDED WHEN CDU PULSE ARRIVED
017258,000511: 24,2646 00003 RELINT
017259,000512: 24,2647 02654 TC CDUZOTST
017260,000513:
017261,000514: 24,2650 33631 OUTNEG CA DESANGLE
017262,000515: 24,2651 51672 INDEX CDUNDX
017263,000516: 24,2652 54032 TS CDUX
017264,000517: 24,2653 02642 TC LOADFLAG
017265,000518:
017266,000519: 24,2654 51672 CDUZOTST INDEX CDUNDX
017267,000520: 24,2655 10032 CCS CDUX
017268,000521: 24,2656 02662 TC +4
017269,000522: 24,2657 02677 TC ENDWATCH
017270,000523: 24,2660 02662 TC +2
017271,000524: 24,2661 02677 TC ENDWATCH
017272,000525:
017273,000526: 24,2662 37744 CAF BIT10 # RAND WITH BIT 10 TO SEE IF STILL TORQ.
017274,000527: 24,2663 00006 EXTEND
017275,000528:
![]() |
Page 401 |
017277,000530: 24,2664 02014 RAND 14C
017278,000531: 24,2665 10000 CCS A
017279,000532: 24,2666 02674 TC +6
017280,000533:
017281,000534: 24,2667 11622 CCS SAVE +2 # SEE IF 2.8DEG OR 5.6 DEG SINCE LAST
017282,000535: 24,2670 02672 TC +2 # EEARTHR USE, IF 2.8 DEG, DO 2.8 MORE
017283,000536: 24,2671 02577 TC CORRECT # THEN GO TO CORRECT
017284,000537: 24,2672 55622 TS SAVE +2
017285,000538:
017286,000539: 24,2673 02566 TC DIRECTN
017287,000540: 24,2674 10067 CCS NEWJOB
017288,000541: 24,2675 05550 TC CHANG1
017289,000542: 24,2676 02654 TC CDUZOTST
017290,000543:
017291,000544: 24,2677 00004 ENDWATCH INHINT # WWILL STOR GYROCTR AT END OF 2048 CDU
017292,000545: 24,2700 37761 CAF ZERO # PULSES AND STOP TORQ BY ZEROING REQUESTS
017293,000546: 24,2701 54356 TS LGYRO # RELEASE GYROS FOR OTHERS USAGE
017294,000547: 24,2702 56047 XCH GYROCTR
017295,000548: 24,2703 55621 TS SAVE +1 # AND STOPS TORQUING BY ZEROING TORQ
017296,000549: 24,2704 47754 CS TWO
017297,000550: 24,2705 70366 MASK IMODES33 # THIS TURNS OFF EXEC SWITCH SO THE GYRO
017298,000551: 24,2706 54366 TS IMODES33 # TORQ. ENABLE RELAY CAN BE TURNED OFF.
017299,000552: 24,2707 00003 RELINT
017300,000553: 24,2710 31620 CALCSFE CA SAVE # GYROCTR AT TEST START
017301,000554: 24,2711 00006 EXTEND
017302,000555: 24,2712 61621 SU SAVE +1 # GYROCTR AT TEST END
017303,000556: 24,2713 55622 TS SAVE +2
017304,000557: 24,2714 00006 EXTEND
017305,000558: 24,2715 62734 BZMF ARITH # SEE IF IT IS NEG OR ZERO,IF NEG,SFE IS +
017306,000559: 24,2716 73633 MASK SIZCHK
017307,000560: 24,2717 00006 EXTEND # THIS ROUTINE TESTS SAVE-(SAVE+1) TO SEE
017308,000561: 24,2720 12726 BZF NEGSFE # IF THE RESULT IS WITHIN PERMISSIBLE SIZE
017309,000562:
017310,000563: 24,2721 41622 CS SAVE +2 # AND DETERMINES POLARITY OF SFE USING THE
017311,000564: 24,2722 73633 MASK SIZCHK # PRESENCE OR ABSENCE OF BITS 12,13,14.
017312,000565: 24,2723 00006 EXTEND # IF BITS ARE PRESENT IN POSITIVE SAVE +2
017313,000566: 24,2724 12730 BZF POSSFE # THEN THE SFE MUST BE POS. IF DIFFERENCE
017314,000567: 24,2725 02762 TC STOPTEST # IS GREATER THAN 2047 PULSES FROM THE
017315,000568: 24,2726 31622 NEGSFE CAE SAVE +2 # IDEAL NO OF PULSES, THE SFE EXCEEDS
017316,000569: 24,2727 02734 TC ARITH # 15600 PPM, THE TEST IS NOT VALID AND
017317,000570:
017318,000571: # THEREFORE ABORTS AND TURNS ON PROGRAM ALARM
017319,000572: 24,2730 37735 POSSFE CAF POSMAX # POS SFE DEFINITION = IRIG SF IN SEC OF
017320,000573: 24,2731 00006 EXTEND # ARC PER PULSE IS GREATER THAN
017321,000574: 24,2732 61622 SU SAVE +2 # .61798095703125 SEC OF ARC/ PULSE
017322,000575: 24,2733 02735 TC ARITH +1
017323,000576:
017324,000577: 24,2734 40000 ARITH COM
017325,000578: 24,2735 22007 ZL
017326,000579: 24,2736 00006 EXTEND
017327,000580: 24,2737 11623 DV SFCONST1
017328,000581: 24,2740 54342 LOADIT TS DSPTEM2
![]() |
Page 402 |
017330,000583: 24,2741 02742 TC DATADSP
017331,000584:
017332,000585: 24,2742 04621 DATADSP TC GRABDSP
017333,000586: 24,2743 04626 TC PREGBSY
017334,000587: 24,2744 31614 CA CALCDIR
017335,000588: 24,2745 54344 TS DSPTEM2 +2 # DISPLAYS TEST NO JUST PERFORMED
017336,000589: 24,2746 33636 CAF VB06N66 # R3 = TEST NO JUST PERFORMED
017337,000590: 24,2747 04646 TC NVSBWAIT
017338,000591: 24,2750 04611 TC FLASHON
017339,000592: 24,2751 04464 TC ENDIDLE # TO END TEST DO V34E
017340,000593: 24,2752 02754 TC +2
017341,000594: 24,2753 02453 TC TESTCALL # TO CONTINUE TEST DO V33E
017342,000595: 24,2754 05224 TC BANKCALL
017343,000596: 24,2755 26000 CADR IMUZERO
017344,000597:
017345,000598: 24,2756 05224 TC BANKCALL
017346,000599: 24,2757 26762 CADR IMUSTALL
017347,000600: 24,2760 12245 TCF ENDTEST1
017348,000601: 24,2761 12245 TCF ENDTEST1
017349,000602:
017350,000603: 24,2762 05224 STOPTEST TC BANKCALL
017351,000604: 24,2763 26000 CADR IMUZERO
017352,000605: 24,2764 05224 TC BANKCALL # CORRECT CDUCTRS AND TURN ON PROG ALARM
017353,000606: 24,2765 26762 CADR IMUSTALL # TO TELL OPERATOR LAST CDU PULSE WAS
017354,000607: 24,2766 12245 TCF ENDTEST1 # MISSED OR GYRO TORQ LOOP WAY OUT OF
017355,000608: 24,2767 37761 CAF ZERO # ALLOWABLE LIMITS.........
017356,000609: 24,2770 54356 TS LGYRO # **** RELEASE GYROS FOR OTHERS USAGE*****
017357,000610: 24,2771 02442 TC ALARMS
017358,000611: 24,2772 12245 TCF ENDTEST1
017359,000612:
![]() |
Page 403 |
017361,000614: 24,2773 00006 CHECKG EXTEND # PIP PULSE CATCHING ROUTINE
017362,000615: 24,2774 23546 QXCH QPLACE # RECORDS TIME AT OCCURRENCE OF A DELTA V
017363,000616: 24,2775 00003 CHECKG1 RELINT # KEEPS CONTENT OF PIPA REG INTACT
017364,000617: 24,2776 10067 CCS NEWJOB
017365,000618: 24,2777 05550 TC CHANG1
017366,000619: 24,3000 00004 INHINT
017367,000620: 24,3001 37761 CAF ZERO
017368,000621: 24,3002 51541 INDEX PIPINDEX
017369,000622: 24,3003 56037 XCH PIPAX
017370,000623: 24,3004 55551 TS STOREPL
017371,000624: 24,3005 11551 CCS STOREPL
017372,000625: 24,3006 03012 TC CHECKP
017373,000626: 24,3007 03065 TC RESTOREA
017374,000627: 24,3010 03025 TC CHECKM
017375,000628: 24,3011 03065 TC RESTOREA
017376,000629: 24,3012 37750 CHECKP CAF BIT6 # LOOKS FOR ONE MORE PLUS PULSE
017377,000630: 24,3013 55540 TS PIPANO
017378,000631: 24,3014 51541 INDEX PIPINDEX
017379,000632: 24,3015 10037 CCS PIPAX
017380,000633:
017381,000634: 24,3016 03040 TC CHECKG3
017382,000635: 24,3017 03022 TC +3
017383,000636: 24,3020 03065 TC RESTOREA
017384,000637: 24,3021 03022 TC +1
017385,000638: 24,3022 11540 CCS PIPANO
017386,000639: 24,3023 03013 TC CHECKP +1
017387,000640: 24,3024 03065 TC RESTOREA
017388,000641: 24,3025 37750 CHECKM CAF BIT6 # LOOKS FOR ONE MORE MINUS PULSE
017389,000642: 24,3026 55540 TS PIPANO
017390,000643: 24,3027 51541 INDEX PIPINDEX
017391,000644: 24,3030 10037 CCS PIPAX
017392,000645: 24,3031 03065 TC RESTOREA
017393,000646: 24,3032 03035 TC +3
017394,000647: 24,3033 03040 TC CHECKG3
017395,000648: 24,3034 03035 TC +1
017396,000649: 24,3035 11540 CCS PIPANO
017397,000650: 24,3036 03026 TC CHECKM +1
017398,000651: 24,3037 03065 TC RESTOREA
017399,000652: 24,3040 05015 CHECKG3 TC FINETIME # TIME IN DOUBLE PRECISION LEFT IN MPAC
017400,000653:
017401,000654: 24,3041 52145 DXCH MPAC
017402,000655: 24,3042 37752 CAF BIT4
017403,000656: 24,3043 55540 CHECKG5 TS PIPANO
017404,000657:
017405,000658: 24,3044 51541 INDEX PIPINDEX
017406,000659: 24,3045 10037 CCS PIPAX
017407,000660: 24,3046 03052 TC +4
017408,000661: 24,3047 03065 TC RESTOREA
017409,000662: 24,3050 03052 TC +2
017410,000663: 24,3051 03065 TC RESTOREA
017411,000664: 24,3052 11540 CCS PIPANO
017412,000665: 24,3053 03043 TC CHECKG5
017413,000666:
![]() |
Page 404 |
017415,000668: 24,3054 03057 NREAD TC RESTORE
017416,000669: 24,3055 55551 TS STOREPL
017417,000670:
017418,000671: 24,3056 01546 TC QPLACE
017419,000672: 24,3057 57551 RESTORE XCH STOREPL # A WILL CONTAIN PREVIOUS PIPA CNTR CONTEN
017420,000673: 24,3060 51541 INDEX PIPINDEX # STOREPL WILL CONTAIN ZERO
017421,000674: 24,3061 60037 AD PIPAX
017422,000675: 24,3062 51541 INDEX PIPINDEX
017423,000676: 24,3063 54037 TS PIPAX
017424,000677: 24,3064 00002 TC Q
017425,000678:
![]() |
Page 405 |
017427,000680: 24,3065 03057 RESTOREA TC RESTORE
017428,000681: 24,3066 02775 TC CHECKG1
017429,000682: 24,3067 31551 DATALD CA STOREPL
017430,000683: 24,3070 51673 INDEX RESULTCT
017431,000684: 24,3071 55626 TS DATAPL
017432,000685: 24,3072 30144 CA MPAC
017433,000686: 24,3073 51673 INDEX RESULTCT
017434,000687: 24,3074 55627 TS DATAPL +1
017435,000688:
017436,000689: 24,3075 30145 CA MPAC +1
017437,000690: 24,3076 51673 INDEX RESULTCT
017438,000691: 24,3077 55630 TS DATAPL +2
017439,000692: 24,3100 00002 TC Q
017440,000693:
017441,000694:
017442,000695:
017443,000696: 24,3101 00006 POSGMBL EXTEND # COARSE ALIGNING SUBROUTINE
017444,000697: 24,3102 23546 QXCH QPLACE
017445,000698:
017446,000699: 24,3103 06103 TC INTPRET
017447,000700: 24,3104 77624 CALL
017448,000701: 24,3105 32722 CALCGA
017449,000702: 24,3106 77776 EXIT
017450,000703:
017451,000704: 24,3107 05224 TC BANKCALL
017452,000705: 24,3110 26065 CADR IMUCOARS
017453,000706: 24,3111 30075 CA FLAGWRD1
017454,000707: 24,3112 77746 MASK BIT8
017455,000708: 24,3113 10000 CCS A # L +1, OTHERWISE TO L +2.
017456,000709: 24,3114 03117 TC LOCK
017457,000710:
017458,000711: 24,3115 25546 INCR QPLACE
017459,000712: 24,3116 03121 TC +3
017460,000713: 24,3117 37754 LOCK CA TWO
017461,000714: 24,3120 55537 TS NDXCTR
017462,000715: 24,3121 05224 TC BANKCALL
017463,000716: 24,3122 26762 CADR IMUSTALL
017464,000717: 24,3123 12245 TCF ENDTEST1
017465,000718: 24,3124 01546 TC QPLACE
017466,000719: 24,3125 00401 GMLOCKCK OCT 00401
017467,000720:
![]() |
Page 406 |
017469,000722: 24,3126 00006 FALNE EXTEND # TORQUES GYROS TO NULL OVT DIFFERENCE
017470,000723: 24,3127 23546 QXCH QPLACE # BETWEEN DESIRED SM ORIENTATION WITH RESP
017471,000724: 24,3130 05224 TC BANKCALL # TO NBASE AND ACTUAL
017472,000725: 24,3131 26000 CADR IMUZERO
017473,000726: 24,3132 05224 TC BANKCALL
017474,000727: 24,3133 26762 CADR IMUSTALL
017475,000728: 24,3134 12245 TCF ENDTEST1
017476,000729: 24,3135 05224 TC BANKCALL
017477,000730: 24,3136 26251 CADR IMUFINE
017478,000731: 24,3137 05224 TC BANKCALL
017479,000732: 24,3140 26762 CADR IMUSTALL
017480,000733: 24,3141 12245 TCF ENDTEST1
017481,000734: 24,3142 30032 FALNE1 CA CDUX
017482,000735: 24,3143 50110 INDEX FIXLOC
017483,000736:
017484,000737: 24,3144 54024 TS 24
017485,000738: 24,3145 30033 CA CDUY
017486,000739: 24,3146 50110 INDEX FIXLOC
017487,000740: 24,3147 54020 TS 20
017488,000741: 24,3150 30034 CA CDUZ
017489,000742: 24,3151 50110 INDEX FIXLOC
017490,000743: 24,3152 54022 TS 22
017491,000744: 24,3153 37751 CA BIT5
017492,000745: 24,3154 60110 AD FIXLOC
017493,000746: 24,3155 50110 INDEX FIXLOC
017494,000747: 24,3156 54050 TS S1
017495,000748: 24,3157 06103 TC INTPRET
017496,000749: 24,3160 64375 VLOAD MXV
017497,000750: 24,3161 02401 XSM
017498,000751: 24,3162 02445 STARAD
017499,000752: 24,3163 77772 VSL1
017500,000753: 24,3164 34041 STCALL 32D
017501,000754: 24,3165 32622 NBSM
017502,000755: 24,3166 26423 STOVL XDC
017503,000756: 24,3167 02407 YSM
017504,000757: 24,3170 76521 MXV VSL1
017505,000758: 24,3171 02445 STARAD
017506,000759: 24,3172 34041 STCALL 32D
017507,000760:
017508,000761: 24,3173 32622 NBSM
017509,000762: 24,3174 26431 STOVL YDC
017510,000763: 24,3175 02423 XDC
017511,000764: 24,3176 76435 VXV VSL1
017512,000765: 24,3177 02431 YDC
017513,000766: 24,3200 36437 STCALL ZDC
017514,000767: 24,3201 32472 CALCGTA
017515,000768: 24,3202 77776 EXIT
017516,000769: 24,3203 33652 CA OGCPL
017517,000770: 24,3204 05224 TC BANKCALL
017518,000771: 24,3205 26361 CADR IMUPULSE
017519,000772: 24,3206 01546 TC QPLACE
017520,000773:
![]() |
Page 407 |
017522,000775: 24,3207 00006 WAITLOOP EXTEND # LOOPS IN X SEC INCREMENTS FOR NUMBER OF
017523,000776: 24,3210 23545 QXCH QPLAC
017524,000777: 24,3211 55676 TS COUNTPL # NUMBER PUT INTO LENGTHOT
017525,000778: 24,3212 11676 WAITLP1 CCS COUNTPL
017526,000779: 24,3213 03217 TC +4
017527,000780: 24,3214 01545 TC QPLAC
017528,000781: 24,3215 03217 TC +2
017529,000782: 24,3216 03211 TC WAITLP1 -1
017530,000783: 24,3217 00004 INHINT
017531,000784: 24,3220 31527 CAE LENGTHOT
017532,000785: 24,3221 05701 TC WAITLIST
017533,000786: 24,3222 E5,1400 EBANK= XSM
017534,000787: 24,3222 03235 50005 2CADR WAITLP3
017535,000788:
017536,000789: 24,3224 00003 RELINT
017537,000790: 24,3225 11676 CCS COUNTPL
017538,000791: 24,3226 01545 TC QPLAC
017539,000792: 24,3227 01545 TC QPLAC
017540,000793: 24,3230 13231 NOOP
017541,000794:
017542,000795: 24,3231 55676 WAITLP2 TS COUNTPL # ENTER HERE AFTER DOING CALLING JOB
017543,000796: 24,3232 33234 CAF WTLPCADR
017544,000797: 24,3233 05563 TC JOBSLEEP
017545,000798: 24,3234 51212 WTLPCADR CADR WAITLP1
017546,000799: 24,3235 33234 WAITLP3 CAF WTLPCADR
017547,000800: 24,3236 05567 TC JOBWAKE
017548,000801: 24,3237 05745 TC TASKOVER
017549,000802:
017550,000803:
017551,000804:
017552,000805: 24,3240 54001 ZEROING TS L
017553,000806: 24,3241 13243 TCF +2
017554,000807: 24,3242 55777 ZEROING1 TS ZERONDX
017555,000808: 24,3243 37761 CAF ZERO
017556,000809: 24,3244 50001 INDEX L
017557,000810: 24,3245 54000 TS 0
017558,000811: 24,3246 24001 INCR L
017559,000812: 24,3247 11777 CCS ZERONDX
017560,000813: 24,3250 13242 TCF ZEROING1
017561,000814: 24,3251 00002 TC Q
017562,000815: 24,3252 06103 COMPUT TC INTPRET # CALCULATE LENGTH OF GRAVITY VECTOR AS
017563,000816:
017564,000817: 24,3253 77170 AXT,1 AXT,2 # MEASURED BY ACCELEROMETERS
017565,000818: 24,3254 00026 22D
017566,000819: 24,3255 00012 10D
017567,000820: 24,3256 77731 SSP
017568,000821: 24,3257 00051 S1
017569,000822: 24,3260 00004 4
017570,000823: 24,3261 77731 SSP
017571,000824: 24,3262 00052 S2
![]() |
Page 408 |
017573,000826: 24,3263 00004 4
017574,000827: 24,3264 44743 LOPDELOP DLOAD* DSU*
017575,000828:
017576,000829: 24,3265 75120 DATAPL +24D,2
017577,000830: 24,3266 02657 DATAPL +24D,1
017578,000831: 24,3267 41323 PDDL* DMP
017579,000832: 24,3270 75156 GENPL +24D,2
017580,000833: 24,3271 11644 DEC585
017581,000834: 24,3272 77671 DDV
017582,000835: 24,3273 55504 TIX,2 VDEF
017583,000836: 24,3274 51301 NEXT
017584,000837: 24,3275 47046 ABVAL RTB
017585,000838: 24,3276 33565 SGNAGREE
017586,000839: 24,3277 34343 STCALL DSPTEM2
017587,000840: 24,3300 51303 KODU
017588,000841: 24,3301 60006 NEXT PUSH TIX,1
017589,000842: 24,3302 51264 LOPDELOP
017590,000843: 24,3303 77776 KODU EXIT
017591,000844: 24,3304 04633 TC GRABWAIT
017592,000845: 24,3305 03600 TC SHOW
017593,000846: 24,3306 06103 TC INTPRET
017594,000847: 24,3307 41535 SLOAD PUSH
017595,000848: 24,3310 02630 DATAPL +1
017596,000849: 24,3311 41535 SLOAD PUSH
017597,000850: 24,3312 02634 DATAPL +5
017598,000851: 24,3313 55535 SLOAD VDEF
017599,000852:
017600,000853: 24,3314 02640 DATAPL +11
017601,000854: 24,3315 76456 UNIT VSL1
017602,000855: 24,3316 77606 PUSH
017603,000856: 24,3317 41535 SLOAD PUSH
017604,000857: 24,3320 02644 DATAPL +15
017605,000858: 24,3321 41535 SLOAD PUSH
017606,000859: 24,3322 02650 DATAPL +21
017607,000860: 24,3323 55535 SLOAD VDEF
017608,000861: 24,3324 02654 DATAPL +25
017609,000862: 24,3325 76456 UNIT VSL1
017610,000863: 24,3326 45325 PDDL DSU
017611,000864: 24,3327 02655 DATAPL +26
017612,000865: 24,3330 02641 DATAPL +12
017613,000866: 24,3331 77612 SL4
017614,000867: 24,3332 77652 SL3
017615,000868: 24,3333 26530 STOVL LENGTHOT
017616,000869: 24,3334 51435 VXV ABVAL
017617,000870: 24,3335 56205 DMP DDV
017618,000871: 24,3336 11647 ERUNITS
017619,000872: 24,3337 02530 LENGTHOT
017620,000873: 24,3340 77634 RTB
017621,000874: 24,3341 33565 SGNAGREE
017622,000875: 24,3342 00343 STORE DSPTEM2
017623,000876:
017624,000877: 24,3343 77776 EXIT
017625,000878: 24,3344 03600 TC SHOW
![]() |
Page 409 |
017627,000880: 24,3345 12404 TCF RADCK
017628,000881: 24,3346 00006 NBPOSPL EXTEND # SETS UP AZIMUTH AND VERTICAL VECTORS FOR
017629,000882: 24,3347 23546 QXCH QPLACE # AXISGEN,RESULTS TO BE USED IN CALCGA TO
017630,000883: 24,3350 06103 TC INTPRET
017631,000884: 24,3351 54160 AXC,1 XSU,1 # AZIMUTH IN NB COORDS
017632,000885: 24,3352 51663 SCNBAZ
017633,000886: 24,3353 02536 NBPOS
017634,000887: 24,3354 77773 VLOAD*
017635,000888:
017636,000889: 24,3355 00001 0,1
017637,000890: 24,3356 02445 STORE STARAD
017638,000891:
017639,000892: 24,3357 54160 AXC,1 XSU,1 # VERTICAL IN NB COORDS
017640,000893: 24,3360 51675 SCNBVER
017641,000894: 24,3361 02536 NBPOS
017642,000895: 24,3362 77773 VLOAD*
017643,000896: 24,3363 00001 0,1
017644,000897: 24,3364 16453 STODL STARAD +6
017645,000898: 24,3365 33334 SCHZEROS
017646,000899: 24,3366 14007 STODL 6D
017647,000900: 24,3367 02507 AZIMUTH
017648,000901: 24,3370 57546 COS DCOMP
017649,000902: 24,3371 14011 STODL 8D
017650,000903: 24,3372 02507 AZIMUTH
017651,000904: 24,3373 77756 SIN
017652,000905: 24,3374 00013 STORE 10D # VERTICAL IN CER
017653,000906: 24,3375 77775 VLOAD
017654,000907: 24,3376 11676 SCNBVER
017655,000908: 24,3377 34015 STCALL 12D
017656,000909: 24,3400 33006 AXISGEN
017657,000910: 24,3401 77776 EXIT
017658,000911:
017659,000912: 24,3402 33642 SELPOSN CA DEC17
017660,000913: 24,3403 55777 TS ZERONDX
017661,000914: 24,3404 33662 CA XSMADR
017662,000915: 24,3405 03240 TC ZEROING
017663,000916:
017664,000917: 24,3406 51544 INDEX POSITON
017665,000918: 24,3407 03410 TC +1
017666,000919: 24,3410 03526 TC OPCHKPOS # OPCHK WILL PUT ZERO IN POSITON
017667,000920: 24,3411 03424 TC POSN1
017668,000921: 24,3412 03433 TC POSN2
017669,000922: 24,3413 03440 TC POSN3
017670,000923: 24,3414 03452 TC POSN4
017671,000924: 24,3415 03462 TC POSN5
017672,000925: 24,3416 03472 TC POSN6
017673,000926: 24,3417 03502 TC POSN7
017674,000927: 24,3420 03515 TC POSN8
017675,000928: 24,3421 03544 TC POSN9
017676,000929: 24,3422 03555 TC POSN10
017677,000930: 24,3423 03566 TC POSN11 # COMPASS POSITION
017678,000931:
![]() |
Page 410 |
017680,000933: # (XXX.XX MERU) AND A VERTICAL TEST BY DV (XXX.XX MERU) EACH POSITION TELL
017681,000934: # HOW THE DISPLAYS ARE RELATED TO TTHE DRIFT COEFFICIENTS BEING MEASURED.
017682,000935: # NOTE THAT IT IS ILLEGAL TO RUN VERTICAL IN POS 6,4, OR 2 WITHOUT FIRST
017683,000936: # RUNNING HORIZONTAL OF POS 5,3, OR1. THIS IS BECAUSE THE HORIZ DRIFT CALC
017684,000937: # IN 1,3, OR 5 IS USED AS EAST DRIFFFT FOR VERTICAL TEST. THIS IS DONE BY
017685,000938: # THE MACHINE AUTOMATICALLY EXCEPT FOR VERTICAL POSITION 6 WHICH THE
017686,000939: # OPERATOR MUST DO. (SEE POSITION 6 BELOW)
017687,000940: 24,3424 37740 POSN1 CA HALF # X UP, Y SOUTH, Z EAST
017688,000941: 24,3425 55400 TS XSM
017689,000942: 24,3426 55410 TS YSM +2 # NBDY = DH
017690,000943: 24,3427 55420 TS ZSM +4
017691,000944: 24,3430 37761 NGUBGH CA ZERO
017692,000945: 24,3431 55541 TS PIPINDEX
017693,000946: 24,3432 01546 TC QPLACE
017694,000947:
017695,000948:
017696,000949: 24,3433 47740 POSN2 CS HALF # X DOWN, Y WEST, Z NORTH
017697,000950: 24,3434 55400 TS XSM
017698,000951: 24,3435 55412 TS YSM +4 # NBDZ=DH,NBDX-ADIAX=-DV
017699,000952: 24,3436 55416 TS ZSM +2
017700,000953: 24,3437 03430 TC NGUBGH
017701,000954:
017702,000955:
017703,000956: 24,3440 37740 POSN3 CA HALF # Z UP, Y WEST ,X NORTH
017704,000957: 24,3441 55414 TS ZSM
017705,000958: 24,3442 40000 COM # NBDX = -DH
017706,000959: 24,3443 55402 TS XSM +2
017707,000960: 24,3444 55412 TS YSM +4
017708,000961: 24,3445 37754 NSFLAGD CA TWO
017709,000962: 24,3446 55541 TS PIPINDEX
017710,000963: 24,3447 37761 NSBUGD CA ZERO
017711,000964: 24,3450 55576 TS DRIFTT
017712,000965: 24,3451 01546 TC QPLACE
017713,000966:
017714,000967:
017715,000968: 24,3452 37740 POSN4 CA HALF # Z DOWN, Y SOUTH ,X EAST
017716,000969: 24,3453 55404 TS XSM +4
017717,000970: 24,3454 55410 TS YSM +2
017718,000971: 24,3455 40000 COM # NBDY+SRAY=DH,NBDZ+ADIAZ=DV
017719,000972: 24,3456 55414 TS ZSM
017720,000973: 24,3457 37754 CA TWO
017721,000974: 24,3460 55541 TS PIPINDEX
017722,000975: 24,3461 01546 TC QPLACE
017723,000976:
017724,000977: 24,3462 37740 POSN5 CA HALF # Y UP, Z NORTH, X WEST
![]() |
Page 411 |
017726,000979: 24,3463 55406 TS YSM
017727,000980: 24,3464 40000 COM # NBDZ-SRAZ=DH
017728,000981: 24,3465 55404 TS XSM +4
017729,000982: 24,3466 55416 TS ZSM +2
017730,000983: 24,3467 37755 CA ONE
017731,000984: 24,3470 55541 TS PIPINDEX
017732,000985: 24,3471 03447 TC NSBUGD
017733,000986:
017734,000987:
017735,000988:
017736,000989: # TO RUN POSITION 6 VERTICAL AFTER PIP TEST POS 6 IS DISPLAYED THE OPERATR
017737,000990: # MUST CALCULATE FROM POSN 2,5 -NBDZ-ADSRAZ (XXX.XX)MERU. WHEN P
017738,000991: # IP DATA FLASHES DO VERB 33 ENTER. THIS STARTS VERTICAL TEST. THEN THE
017739,000992: # DATA XXX.XX MERU AS CALCULATED MUST BE ENTERED INTO DRIFTT. IE VERB 21
017740,000993: # ENTER NOUN 01 ENTER LOCATION OF DRIFTT ENTER + (OR -) XXXXX ENTER
017741,000994: 24,3472 37740 POSN6 CA HALF # Y DOWN, Z EAST, X SOUTH
017742,000995: 24,3473 55402 TS XSM +2
017743,000996: 24,3474 55420 TS ZSM +4
017744,000997: 24,3475 40000 COM # NBDX +ADSRAX = DH, NBDY -ADIAY = -DV
017745,000998:
017746,000999: 24,3476 55406 TS YSM
017747,001000: 24,3477 37755 CA ONE
017748,001001: 24,3500 55541 TS PIPINDEX
017749,001002: 24,3501 01546 TC QPLACE
017750,001003:
017751,001004:
017752,001005: 24,3502 47740 POSN7 CS HALF # Z UP-EAST,Y UP-WEST,X NORTH.THIS POSITON
017753,001006: 24,3503 55402 TS XSM +2
017754,001007: 24,3504 33656 CA ROOT1/2
017755,001008: 24,3505 55406 TS YSM # NBDX - .707 ADSRAX = -DH
017756,001009: 24,3506 55414 TS ZSM
017757,001010: 24,3507 55420 TS ZSM +4
017758,001011: 24,3510 40000 COM
017759,001012: 24,3511 55412 TS YSM +4
017760,001013: 24,3512 06036 GEORGES TC FLAG1DWN # UNSET GIMBAL LOCK FLAG
017761,001014: 24,3513 00200 OCT 200
017762,001015: 24,3514 03447 TC NSBUGD
017763,001016:
017764,001017:
017765,001018: 24,3515 37740 POSN8 CA HALF # Z UP-SOUTH,Y UP-NORTH,X EAST.THIS POSITN
017766,001019: 24,3516 55404 TS XSM +4
017767,001020:
017768,001021: 24,3517 33656 CA ROOT1/2 # .707(-NBDZ-NBDY) +.5(ADIAZ-ADIAY)
017769,001022: 24,3520 55406 TS YSM # +.5(ADSRAY +ADSRAZ)=DH
017770,001023: 24,3521 55416 TS ZSM +2
017771,001024: 24,3522 55414 TS ZSM
017772,001025: 24,3523 40000 COM
017773,001026: 24,3524 55410 TS YSM +2
017774,001027: 24,3525 03447 TC NSBUGD
017775,001028:
![]() |
Page 412 |
017777,001030: 24,3526 33657 OPCHKPOS CA ROOT1SQ # OG=+45DEG,IG=-45DEG,MG=+45DEG.
017778,001031: 24,3527 55400 TS XSM
017779,001032:
017780,001033: 24,3530 55410 TS YSM +2
017781,001034: 24,3531 55412 TS YSM +4
017782,001035: 24,3532 55414 TS ZSM
017783,001036: 24,3533 33656 CA ROOT1/2
017784,001037: 24,3534 55406 TS YSM
017785,001038: 24,3535 33661 CA ROOT3SQ
017786,001039: 24,3536 55402 TS XSM +2
017787,001040: 24,3537 55420 TS ZSM +4
017788,001041: 24,3540 43660 CS ROOT2SQ
017789,001042: 24,3541 55404 TS XSM +4
017790,001043: 24,3542 55416 TS ZSM +2
017791,001044: 24,3543 01546 TC QPLACE
017792,001045:
017793,001046: 24,3544 37740 POSN9 CA HALF # X UP EAST,Y UP WEST,Z SOUTH.THIS POSITON
017794,001047: 24,3545 55416 TS ZSM +2
017795,001048: 24,3546 33656 CA ROOT1/2 # -NBDZ +.707 SRAZ =DH
017796,001049: 24,3547 55400 TS XSM
017797,001050: 24,3550 55404 TS XSM +4
017798,001051: 24,3551 55406 TS YSM
017799,001052: 24,3552 40000 COM
017800,001053: 24,3553 55412 TS YSM +4
017801,001054: 24,3554 03447 TC NSBUGD
017802,001055:
017803,001056:
017804,001057: 24,3555 37740 POSN10 CA HALF # X UP NORTH, Y UP SOUTH,Z EAST.THIS POSITN
017805,001058: 24,3556 55420 TS ZSM +4
017806,001059: 24,3557 33656 CA ROOT1/2 # .707(NBDY -NBDX) +.5(ADIAY -ADIAX)
017807,001060: 24,3560 55400 TS XSM # +.5(ADSRAX) = DH
017808,001061: 24,3561 55406 TS YSM
017809,001062: 24,3562 55410 TS YSM +2
017810,001063: 24,3563 40000 COM
017811,001064: 24,3564 55402 TS XSM +2
017812,001065: 24,3565 03447 TC NSBUGD
017813,001066:
017814,001067:
017815,001068: 24,3566 05224 POSN11 TC BANKCALL # COMPASS POSITION
017816,001069: 24,3567 73100 CADR LOADXSM
017817,001070: 24,3570 01546 TC QPLACE
017818,001071:
017819,001072:
017820,001073: 24,3571 30342 SHOWLD CA DSPTEM2
017821,001074: 24,3572 55527 TS LENGTHOT
017822,001075: 24,3573 30343 CA DSPTEM2 +1
017823,001076: 24,3574 55536 TS NBPOS
017824,001077:
017825,001078: 24,3575 30344 CA DSPTEM2 +2
017826,001079:
![]() |
Page 413 |
017828,001081: 24,3576 55544 TS POSITON
017829,001082: 24,3577 00002 TC Q
017830,001083:
017831,001084: 24,3600 00006 SHOW EXTEND
017832,001085: 24,3601 23546 QXCH QPLACE
017833,001086: 24,3602 31544 SHOW1 CA POSITON
017834,001087: 24,3603 54344 TS DSPTEM2 +2
017835,001088: 24,3604 33636 CA VB06N66
017836,001089:
017837,001090: 24,3605 04646 TC NVSBWAIT
017838,001091: 24,3606 04611 TC FLASHON
017839,001092: 24,3607 04464 TC ENDIDLE
017840,001093: 24,3610 02236 TC FINISH
017841,001094: 24,3611 01546 TC QPLACE
017842,001095: 24,3612 03571 TC SHOWLD
017843,001096: 24,3613 13602 TCF SHOW1
017844,001097:
017845,001098:
017846,001099: 24,3614 00006 LOADGTSM EXTEND # THIS LOADS XSM INTO GEOMATRX
017847,001100: 24,3615 23546 QXCH QPLACE
017848,001101: 24,3616 06103 TC INTPRET
017849,001102: 24,3617 77775 VLOAD
017850,001103: 24,3620 02401 XSM
017851,001104: 24,3621 26750 STOVL GEOMTRX
017852,001105: 24,3622 02407 YSM
017853,001106: 24,3623 26756 STOVL GEOMTRX +6
017854,001107: 24,3624 02415 ZSM
017855,001108: 24,3625 02764 STORE GEOMTRX +12D
017856,001109: 24,3626 77776 EXIT
017857,001110: 24,3627 01546 TC QPLACE
017858,001111:
![]() |
Page 414 |
017860,001113: 24,3630 14C EQUALS 0014
017861,001114: 24,3630 02130 V21N30E OCT 02130
017862,001115: 24,3631 04000 DESANGLE DEC 2048 B-14
017863,001116: 24,3632 04143 SFCONST DEC .13107
017864,001117: 24,3633 34000 SIZCHK OCT 34000
017865,001118: 24,3634 00264 180DEC DEC 180 B-14
017866,001119: 24,3635 07626 3990DEC DEC 3990 B-14
017867,001120: 24,3636 00666 VB06N66 OCT 00666
017868,001121: 24,3637 01130 TESTTIME DEC 600 B-14
017869,001122: 24,3640 01620 V16N20S OCT 01620
017870,001123: 24,3641 01640 V16N40S OCT 01640
017871,001124: 24,3642 00021 DEC17 DEC 17 B-14
017872,001125: 24,3643 06200 00000 DEC585 2DEC 3200 B+14
017873,001126:
017874,001127: 24,3645 00400 DELYOFF OCT 00400
017875,001128: 24,3646 00024 35474 ERUNITS 2DEC 342844 B-28
017876,001129:
017877,001130: 24,3650 01506 GENPLAD GENADR AZIMUTH
017878,001131: 24,3651 02521 GYRODPL ECADR GYROD
017879,001132: 24,3652 02500 OGCPL ECADR OGC
017880,001133: 24,3653 77760 LOWFOUR OCT 77760
017881,001134: 24,3654 00070 DEC56 DEC 56 B-14
017882,001135: 24,3655 10000 45DEG OCT 10000
017883,001136: 24,3656 13241 ROOT1/2 DEC .353553
017884,001137: 24,3657 10000 ROOT1SQ DEC .250000
017885,001138: 24,3660 15520 ROOT2SQ DEC .426776
017886,001139: 24,3661 02260 ROOT3SQ DEC .073223
017887,001140: 24,3662 01400 XSMADR GENADR XSM
017888,001141:
017889,001142:
017890,001143: 24,3663 00000 00000 SCNBAZ 2DEC 0 B-28
017891,001144: 24,3665 00000 00000 2DEC 0 B-28
017892,001145: 24,3667 20000 00000 LABNBAZ 2DEC .5
017893,001146: 24,3671 00000 00000 2DEC 0 B-28
017894,001147: 24,3673 00000 00000 2DEC 0 B-28
017895,001148: 24,3675 20000 00000 SCNBVER 2DEC .5
017896,001149: 24,3677 00000 00000 2DEC 0 B-28
017897,001150: 24,3701 00000 00000 LABNBVER 2DEC 0 B-28
017898,001151: 24,3703 00000 00000 2DEC 0 B-28
017899,001152: 24,3705 57777 77777 2DEC -.5
017900,001153:
![]() |
Page 415 |
017902,001155: 24,3707 00144 1SECX DEC 100 B-14
017903,001156: 24,3710 17127 16705 GEORGED 2DEC .47408845
017904,001157: 24,3712 07314 36223 2DEC .23125894
017905,001158: 24,3714 04521 31140 2DEC .14561689
017906,001159: 24,3716 75755 73521 GEORGEC 2DEC -.06360691
017907,001160: 24,3720 72476 54176 2DEC -.16806746
017908,001161: 24,3722 04771 03365 2DEC .15582939
017909,001162: 24,3724 75644 70661 GEORGEB 2DEC -.06806784
017910,001163: 24,3726 47762 75077 2DEC -.75079894
017911,001164: 24,3730 70023 73740 2DEC -.24878704
End of include-file IMU_PERFORMANCE_TESTS_2.agc. Parent file is MAIN.agc