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. |
016968,000002: ## Copyright: Public domain.
016969,000003: ## Filename: IMU_PERFORMANCE_TEST_2.agc
016970,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
016971,000005: ## is part of the source code for the Lunar Module's
016972,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
016973,000007: ## Assembler: yaYUL
016974,000008: ## Contact: Ron Burkey <info@sandroid.org>.
016975,000009: ## Website: www.ibiblio.org/apollo/index.html
016976,000010: ## Mod history: 2016-09-30 RSB Created draft version.
016977,000011: ## Note that there are similarities with
016978,000012: ## Luminary 99 file of the same name, but
016979,000013: ## it was different enough that it just
016980,000014: ## seemed easier to me to start from scratch.
016981,000015: ## 2016-10-18 RSB However, the Aurora 12 file, which has been
016982,000016: ## transcribed in the meantime is actually very
016983,000017: ## similar. This file was thus created by correcting
016984,000018: ## the Aurora 12 version against the Sunburst 120
016985,000019: ## scanned program listing.
016986,000020: ## 2016-10-31 RSB Typos.
016987,000021: ## 2016-11-02 RSB More typos.
016988,000022: ## 2016-12-05 RSB Comment-proofing with octopus/ProoferComments
016989,000023: ## completed, changes made.
016990,000024:
![]() |
Page 411 |
016992,000026: 24,2000 BANK 24
016993,000027: 24,2000 E5,1400 EBANK= XSM
016994,000028:
016995,000029:
016996,000030: 24,2000 37767 IMUTEST CA ZERO # DRIFT AND SCALE FACTOR TEST
016997,000031: 24,2001 55576 TS DRIFTT
016998,000032: 24,2002 55742 TS GEOCOMPS
016999,000033: 24,2003 33714 CAF 1SECX
017000,000034: 24,2004 55744 TS 1SECXT
017001,000035:
017002,000036: 24,2005 06112 TC INTPRET
017003,000037: 24,2006 77624 CALL
017004,000038: 24,2007 30553 LATAZCHK
017005,000039: 24,2010 77776 EXIT
017006,000040: 24,2011 37763 CA ONE
017007,000041: 24,2012 55544 TS POSITON
017008,000042:
017009,000043: 24,2013 54344 TS DSPTEM2 +2
017010,000044: 24,2014 37763 GEOIMUTT CA ONE # COMPASS COMES IN HERE
017011,000045: 24,2015 54400 TS THETAD
017012,000046: 24,2016 54401 TS THETAD +1
017013,000047: 24,2017 54402 TS THETAD +2
017014,000048: 24,2020 05206 TC BANKCALL
017015,000049: 24,2021 26000 CADR IMUZERO
017016,000050: 24,2022 05206 TC BANKCALL
017017,000051: 24,2023 26751 CADR IMUSTALL
017018,000052: 24,2024 12250 TCF ENDTEST1
017019,000053: 24,2025 37767 IMUBACK CA ZERO
017020,000054: 24,2026 54343 TS DSPTEM2 +1
017021,000055: 24,2027 55537 TS NDXCTR
017022,000056: 24,2030 55574 TS TORQNDX
017023,000057: 24,2031 55575 TS TORQNDX +1
017024,000058: 24,2032 33644 CAF TESTTIME
017025,000059: 24,2033 54342 TS DSPTEM2
017026,000060: 24,2034 05206 TC BANKCALL # ISS RETURNS IN COARSE ALIGN MODE TO
017027,000061: 24,2035 26065 CADR IMUCOARS # ENABLE OPERATOR TO DECIDE WHAT TO DO
017028,000062: # ABOUT GIMBAL LOCK
017029,000063: 24,2036 11742 CCS GEOCOMPS
017030,000064: 24,2037 02042 TC +3
017031,000065: 24,2040 03576 TC SHOWLD
017032,000066: 24,2041 03605 TC SHOW
017033,000067:
017034,000068:
017035,000069:
017036,000070: 24,2042 05206 TC BANKCALL
017037,000071: 24,2043 26751 CADR IMUSTALL
017038,000072: 24,2044 02250 TC ENDTEST1
017039,000073: 24,2045 03353 TC NBPOSPL
017040,000074: 24,2046 03104 TC POSGMBL
![]() |
Page 412 |
017042,000076: 24,2047 02113 TC PIPACHK # IF MGA IS 60DEG+ PROG WILL STAY IN COARS
017043,000077: # ALIGN AND MEASURE VERITCAL PIPA RATE
017044,000078: 24,2050 03133 TC FALNE
017045,000079: 24,2051 05206 TC BANKCALL
017046,000080: 24,2052 26751 CADR IMUSTALL
017047,000081: 24,2053 12250 TCF ENDTEST1
017048,000082: 24,2054 11742 CCS GEOCOMPS
017049,000083: 24,2055 02076 TC JUMPLOAD
017050,000084: 24,2056 06112 GUESS TC INTPRET # CALCULATE -COS LATITUDE AND SIN LATITUDE
017051,000085: 24,2057 71545 DLOAD COS # FOR ESTIMATE
017052,000086: 24,2060 02511 LATITUDE
017053,000087: 24,2061 72476 DCOMP SL1
017054,000088: 24,2062 16573 STODL WANGI
017055,000089: 24,2063 02511 LATITUDE
017056,000090: 24,2064 72556 SIN SL1
017057,000091: 24,2065 26571 STOVL WANGO # LOAD TRANSITION MATRIX INTO ERASABLE
017058,000092: 24,2066 11716 GEORGED
017059,000093: 24,2067 26721 STOVL TRANSM1
017060,000094: 24,2070 11724 GEORGEC
017061,000095: 24,2071 26727 STOVL TRANSM1 +6
017062,000096: 24,2072 11732 GEORGEB
017063,000097: 24,2073 02735 STORE TRANSM1 +12D
017064,000098: 24,2074 77776 EXIT
017065,000099: 24,2075 02077 TC +2
017066,000100: 24,2076 04724 JUMPLOAD TC FREEDSP # FREE DISPLAY IF IN GYROCOMPASS
017067,000101: 24,2077 03621 TC LOADGTSM
017068,000102: 24,2100 05206 TC BANKCALL
017069,000103: 24,2101 72014 CADR ESTIMS
017070,000104: 24,2102 04161 TORQUE TC PHASCHNG # FILTER RETURNS AFTER TORQUE AND ER SET
017071,000105: 24,2103 00005 OCT 00005
017072,000106: 24,2104 37767 CA ZERO
017073,000107: 24,2105 54342 TS DSPTEM2
017074,000108: 24,2106 31640 CA DRIFTI
017075,000109: 24,2107 54343 TS DSPTEM2 +1
017076,000110: 24,2110 51544 INDEX POSITON
017077,000111: 24,2111 55551 TS SOUTHDR -1
017078,000112: 24,2112 03605 TC SHOW
017079,000113:
017080,000114: 24,2113 51537 PIPACHK INDEX NDXCTR # TORQUE PLATFORM TO CORRECT LEVELING ERR
017081,000115: 24,2114 02115 TC +1 # IN PREPARATION TO MEASURING VERTICAL
017082,000116: 24,2115 05206 TC BANKCALL # PIPA OUTPUT PULSE RATE
017083,000117: 24,2116 30424 CADR EARTHR
017084,000118:
017085,000119: 24,2117 33647 CA DEC17 # ALLOW PIP COUNTER TO OVERFLOW 17 TIMES
017086,000120: 24,2120 55632 TS DATAPL +4
017087,000121: 24,2121 37752 CA BIT10 # IN THE ALLOTED TIME INTERVAL
017088,000122: 24,2122 55527 TS LENGTHOT
017089,000123: 24,2123 37763 CA ONE
017090,000124: 24,2124 55673 TS RESULTCT
017091,000125: 24,2125 37767 CA ZERO # ZERO PIPA COUNTER INITIALLY
![]() |
Page 413 |
017093,000127: 24,2126 51541 INDEX PIPINDEX
017094,000128: 24,2127 54037 TS PIPAX
017095,000129: 24,2130 55626 TS DATAPL
017096,000130: 24,2131 33661 CA DEC56 # LOOP 56 TIMES 5.12 SEC "ACH. EACH INCR.
017097,000131: 24,2132 03214 TC WAITLOOP # WILL ALSO CORRECT EARTH RATE
017098,000132: 24,2133 00004 INHINT
017099,000133: 24,2134 02776 TC CHECKG
017100,000134: 24,2135 00003 RELINT
017101,000135: 24,2136 03072 TC DATALD
017102,000136: 24,2137 37766 CA FIVE
017103,000137: 24,2140 55673 TS RESULTCT
017104,000138: 24,2141 51537 INDEX NDXCTR
017105,000139: 24,2142 02143 TC +1
017106,000140: 24,2143 05206 TC BANKCALL
017107,000141: 24,2144 30424 CADR EARTHR
017108,000142: 24,2145 11676 CCS COUNTPL
017109,000143: 24,2146 03236 TC WAITLP2
017110,000144: 24,2147 11627 CCS DATAPL +1
017111,000145: 24,2150 02154 TC +4
017112,000146: 24,2151 04736 TC CCSHOLE
017113,000147: 24,2152 41632 CS DATAPL +4
017114,000148: 24,2153 55632 TS DATAPL +4
017115,000149: 24,2154 00006 EXTEND
017116,000150: 24,2155 41627 DCS DATAPL
017117,000151: 24,2156 21633 DAS DATAPL +4
017118,000152:
017119,000153: 24,2157 06112 TC INTPRET
017120,000154: 24,2160 45345 DLOAD DSU
017121,000155: 24,2161 02635 DATAPL +6
017122,000156: 24,2162 02631 DATAPL +2
017123,000157: 24,2163 56325 PDDL DDV
017124,000158: 24,2164 02633 DATAPL +4
017125,000159: 24,2165 41325 PDDL DMP
017126,000160: 24,2166 11651 DEC585 # DEC585 HAS BEEN REDEFINED FOR LEM
017127,000161: 24,2167 77634 RTB
017128,000162: 24,2170 33520 SGNAGREE
017129,000163: 24,2171 00343 STORE DSPTEM2
017130,000164: 24,2172 77776 EXIT
017131,000165: 24,2173 03605 TC SHOW
017132,000166: 24,2174 33642 VERTDRFT CA 3990DEC # 3900 SECONDS FOR VERTICAL DRIFT
017133,000167: 24,2175 55527 TS LENGTHOT
017134,000168: 24,2176 05206 TC BANKCALL # THIS WILL CORRECT FOR EARTH RATE DURING
017135,000169: 24,2177 30424 CADR EARTHR # TIME SPENT IN SHOW ABOVE*
017136,000170: 24,2200 30032 CA CDUX # STOORE AXIS FOR LAB CALC OF DRIFT
017137,000171: 24,2201 55530 TS LOSVEC
017138,000172: 24,2202 51544 INDEX POSITON
017139,000173: 24,2203 41550 CS SOUTHDR -2
017140,000174: 24,2204 55576 TS DRIFTT
017141,000175: 24,2205 03621 TC LOADGTSM
017142,000176: 24,2206 37767 CA ZERO # ALLOW ONLY SOUTH GYRO EARTH RATE COMPENS
![]() |
Page 414 |
017144,000178: 24,2207 55400 TS XSM
017145,000179: 24,2210 55401 TS XSM +1
017146,000180: 24,2211 55404 TS XSM +4
017147,000181: 24,2212 55405 TS XSM +5
017148,000182: 24,2213 55406 TS YSM
017149,000183: 24,2214 55407 TS YSM +1
017150,000184: 24,2215 55412 TS YSM +4
017151,000185: 24,2216 55413 TS YSM +5
017152,000186: 24,2217 55414 TS ZSM
017153,000187: 24,2220 55415 TS ZSM +1
017154,000188: 24,2221 55420 TS ZSM +4
017155,000189: 24,2222 55421 TS ZSM +5
017156,000190: 24,2223 37743 GUESS1 CAF POSMAX
017157,000191: 24,2224 55574 TS TORQNDX
017158,000192: 24,2225 55575 TS TORQNDX +1
017159,000193: 24,2226 05206 TC BANKCALL
017160,000194: 24,2227 72014 CADR ESTIMS
017161,000195: 24,2230 04161 VALMIS TC PHASCHNG
017162,000196: 24,2231 00005 OCT 00005
017163,000197: 24,2232 31636 CA DRIFTO
017164,000198: 24,2233 54343 TS DSPTEM2 +1
017165,000199: 24,2234 30032 CA CDUX # STORE OG ANGLE FOR LAB CALC OF DRIFT**
017166,000200: 24,2235 55531 TS LOSVEC +1
017167,000201: 24,2236 37767 CA ZERO
017168,000202: 24,2237 54342 TS DSPTEM2
017169,000203: 24,2240 03605 TC SHOW
017170,000204:
017171,000205:
017172,000206:
017173,000207: 24,2241 37763 FINISH CA ONE
017174,000208: 24,2242 61544 AD POSITON
017175,000209: 24,2243 54344 TS DSPTEM2 +2
017176,000210: 24,2244 37762 CA TWO
017177,000211: 24,2245 55546 TS QPLACE
017178,000212: 24,2246 05206 TC BANKCALL
017179,000213: 24,2247 22342 CADR TSELECT -6
017180,000214: 24,2250 05206 ENDTEST1 TC BANKCALL
017181,000215: 24,2251 30770 CADR ENDTEST
017182,000216:
![]() |
Page 415 |
017184,000218: 24,2252 33652 OPCHK CAF DELYOFF # AUTOMATIC TEST FOR SYSTEM OPERATION
017185,000219: 24,2253 00006 EXTEND
017186,000220: 24,2254 02030 RAND 30 # CHECK TO SEE IF IMU IS ON
017187,000221: 24,2255 10000 CCS A
017188,000222: 24,2256 02444 TC ALARMS
017189,000223: 24,2257 33645 CAF V16N20S
017190,000224: 24,2260 04657 TC NVSBWAIT
017191,000225:
017192,000226: 24,2261 04724 TC FREEDSP
017193,000227: 24,2262 05206 TC BANKCALL
017194,000228: 24,2263 26000 CADR IMUZERO
017195,000229: 24,2264 05206 TC BANKCALL
017196,000230: 24,2265 26751 CADR IMUSTALL
017197,000231:
017198,000232: 24,2266 12250 TCF ENDTEST1
017199,000233: 24,2267 37754 CA BIT8 # ZERO ALL ERASEABLE USED IN TEST
017200,000234: 24,2270 55777 TS ZERONDX
017201,000235: 24,2271 33655 CA GENPLAD
017202,000236: 24,2272 03245 TC ZEROING
017203,000237: 24,2273 03353 TC NBPOSPL # ALIGN ANGLE COMPUTATION
017204,000238:
017205,000239: 24,2274 03104 TC POSGMBL # COARSE ALIGN THOSE GIMBALS NOW
017206,000240:
017207,000241: 24,2275 12252 TCF OPCHK
017208,000242: 24,2276 03133 TC FALNE # FINE ALIGN PLATFORM BY TORQUING GYROS
017209,000243:
017210,000244: 24,2277 05206 TC BANKCALL
017211,000245: 24,2300 26751 CADR IMUSTALL
017212,000246: 24,2301 12250 TCF ENDTEST1
017213,000247: 24,2302 37762 CA TWO
017214,000248: 24,2303 55672 CDUCHECK TS CDUNDX # THIS LOOP CHECKS FOR NO ERROR BETWEEN
017215,000249: 24,2304 51672 INDEX CDUNDX # DESIRED CDU ANGLES AND THE ACTUAL ANGLES
017216,000250: 24,2305 40400 CS THETAD
017217,000251: 24,2306 51672 INDEX CDUNDX
017218,000252: 24,2307 60032 AD CDUX
017219,000253: 24,2310 55551 TS STOREPL
017220,000254: 24,2311 11551 CCS STOREPL
017221,000255: 24,2312 02320 TC ERRMASK
017222,000256: 24,2313 02315 TC NOERR
017223,000257: 24,2314 02320 TC ERRMASK
017224,000258: 24,2315 11672 NOERR CCS CDUNDX
017225,000259: 24,2316 02303 TC CDUCHECK
017226,000260: 24,2317 02324 TC LOADIC
017227,000261: 24,2320 73660 ERRMASK MASK LOWFOUR # ALLOW FIVE BIT ERRORS
017228,000262: 24,2321 10000 CCS A
017229,000263: 24,2322 02444 TC ALARMS
017230,000264: 24,2323 02315 TC NOERR
017231,000265: 24,2324 37763 LOADIC CA ONE
017232,000266: 24,2325 55673 TS RESULTCT
017233,000267: 24,2326 47763 CS ONE
017234,000268:
![]() |
Page 416 |
017236,000270: 24,2327 55670 TS MASKREG # SETS UP AZIMUTH AND VERTICAL VECTORS FOR
017237,000271:
017238,000272: 24,2330 37767 CA ZERO
017239,000273: 24,2331 54037 TS PIPAX
017240,000274: 24,2332 54040 TS PIPAY
017241,000275: 24,2333 54041 TS PIPAZ
017242,000276:
017243,000277: 24,2334 37751 CA BIT11
017244,000278: 24,2335 55527 TS LENGTHOT # VECTOR IN PIPA COUNTERS
017245,000279: 24,2336 37763 CA ONE
017246,000280: 24,2337 03214 TC WAITLOOP
017247,000281: 24,2340 11676 CCS COUNTPL
017248,000282: 24,2341 03236 TC WAITLP2
017249,000283: 24,2342 33661 CA DEC56
017250,000284: 24,2343 03214 TC WAITLOOP
017251,000285: 24,2344 37762 OPCHK1 CA TWO
017252,000286: 24,2345 55541 OPCHK2 TS PIPINDEX
017253,000287: 24,2346 00004 INHINT
017254,000288: 24,2347 02776 TC CHECKG
017255,000289: 24,2350 00003 RELINT
017256,000290: 24,2351 37767 CA ZERO
017257,000291: 24,2352 51541 INDEX PIPINDEX
017258,000292: 24,2353 54037 TS PIPAX
017259,000293: 24,2354 03072 TC DATALD # LOAD PIPA DATA AND TIME IN DATAPL
017260,000294: 24,2355 57673 XCH RESULTCT
017261,000295: 24,2356 67761 AD FOUR
017262,000296: 24,2357 55673 TS RESULTCT
017263,000297: 24,2360 11541 CCS PIPINDEX
017264,000298: 24,2361 02345 TC OPCHK2
017265,000299: 24,2362 47761 READOUT CS FOUR
017266,000300: 24,2363 61673 AD RESULTCT
017267,000301: 24,2364 55673 TS RESULTCT
017268,000302: 24,2365 22007 ZL
017269,000303: 24,2366 51673 INDEX RESULTCT
017270,000304: 24,2367 31626 CA DATAPL
017271,000305: 24,2370 22000 LXCH A
017272,000306: 24,2371 51673 INDEX RESULTCT
017273,000307: 24,2372 21572 DAS GENPL +1
017274,000308: 24,2373 31673 CA RESULTCT
017275,000309: 24,2374 71670 MASK MASKREG
017276,000310: 24,2375 10000 CCS A
017277,000311: 24,2376 02362 TC READOUT
017278,000312: 24,2377 34570 CA TEN
017279,000313: 24,2400 66311 AD THREE
017280,000314: 24,2401 55673 TS RESULTCT
017281,000315: 24,2402 40000 CS A
017282,000316: 24,2403 55670 TS MASKREG
017283,000317: 24,2404 11676 CCS COUNTPL
017284,000318: 24,2405 03236 TC WAITLP2
017285,000319: 24,2406 03257 TC COMPUT
017286,000320:
![]() |
Page 417 |
017288,000322: 24,2407 33646 RADCK CA V16N40S
017289,000323: 24,2410 04657 TC NVSBWAIT # OPERATOR WILL CHECK RADAR STATUS.IN LAB.
017290,000324: 24,2411 04622 TC FLASHON # SET RADAR OFF THEN PUT RESOLVER STANDARD
017291,000325: 24,2412 04475 TC ENDIDLE # ON TRUNNION AND SET TO +45 DEG.SHAFT WIL
017292,000326: 24,2413 02250 TC ENDTEST1
017293,000327: 24,2414 02415 TC +1 # AFTER SETTING RES STANDARD DO A V33
017294,000328: 24,2415 37767 CA ZERO
017295,000329: 24,2416 54423 TS TANG +1
017296,000330: 24,2417 33662 CA 45DEG
017297,000331: 24,2420 54422 TS TANG
017298,000332: 24,2421 05206 DRIVRAD TC BANKCALL # IN SC WHEN RAD PRESENT DO V33 RIGHT AWAY
017299,000333: 24,2422 20250 CADR RRZERO # LGC WILL ATTEMPT TO DRIVE 45 DEG TRUNN.
017300,000334: 24,2423 05206 TC BANKCALL # TO MATCH STANDARD, AFTER ZEROING CDUS
017301,000335: 24,2424 26745 CADR RADSTALL
017302,000336: 24,2425 02250 TC ENDTEST1
017303,000337: 24,2426 05206 TC BANKCALL
017304,000338: 24,2427 20364 CADR RRDESNB
017305,000339:
017306,000340: 24,2430 05206 TC BANKCALL
017307,000341: 24,2431 26745 CADR RADSTALL # IF CDU FAILS TO AGREE WITH COMMAND TO
017308,000342: 24,2432 02444 TC ALARMS # 1 DEG GET ALARM HERE
017309,000343:
017310,000344: 24,2433 04622 TC FLASHON # OPERATOR WILL CHECK STATUS OF RADAR
017311,000345: 24,2434 04475 TC ENDIDLE # IN S/C DO V33 TO CONTINUE WITH SHAFT
017312,000346: 24,2435 02250 TC ENDTEST1 # TEST
017313,000347: 24,2436 02437 TC +1 # IN LAB TURN RADAR OFF CHANGE RES STANDAR
017314,000348: 24,2437 37767 CA ZERO # TO SHAFT AND SET FOR -45DEG.
017315,000349: 24,2440 54422 TS TANG # THEN DO A V33 IF WANT TO REPEAT CHECK
017316,000350: 24,2441 43662 CS 45DEG # DO A V34 TO TERMINATE
017317,000351: 24,2442 54423 TS TANG +1
017318,000352: 24,2443 02421 TC DRIVRAD
017319,000353: 24,2444 56002 ALARMS XCH Q
017320,000354: 24,2445 55546 TS QPLACE
017321,000355: 24,2446 04755 TC ALARM
017322,000356: 24,2447 01411 OCT 1411
017323,000357: 24,2450 01546 TC QPLACE
017324,000358:
![]() |
Page 418 |
017326,000360: 24,2451 06112 GYRSFTST TC INTPRET # START ADRESS FOR IRIG SF TEST
017327,000361: 24,2452 77624 CALL
017328,000362: 24,2453 30553 LATAZCHK # LOAD AZ AND LAT
017329,000363: 24,2454 77776 EXIT
017330,000364: 24,2455 33635 TESTCALL CAF V21N30E
017331,000365: 24,2456 04657 TC NVSBWAIT # LOAD + OR - 1 FOR + OR - X TEST (+00001)
017332,000366: 24,2457 04475 TC ENDIDLE # LOAD + OR - 2 FOR + OR - Y TEST
017333,000367: 24,2460 12250 TCF ENDTEST1 # LOAD + OR - 3 FOR + OR - Z TEST
017334,000368: 24,2461 02455 TC TESTCALL
017335,000369: 24,2462 56337 XCH DSPTEM1
017336,000370: 24,2463 55614 TS CALCDIR
017337,000371: 24,2464 00006 EXTEND # THIS ROUTINE LOOKS AT THE SIZE OF THE
017338,000372: 24,2465 62472 BZMF NEGSIZ # ENTRY MADE BY THE OPERATOR, IF HE DID NO
017339,000373: 24,2466 75340 SIZLOOK MASK NEG3 # T ENTER TEST NO THAT IS W/I PERMISSIBLE
017340,000374: 24,2467 00006 EXTEND # RANGE- HE WILL BE ASKED TO LOAD AGAIN.
017341,000375: 24,2470 12474 BZF GUDENTRY # THIS IS CONSIDERED NECESSARY BECAUSE
017342,000376: 24,2471 02455 TC TESTCALL # OF FOLLOWING INDEXED TC WHICH COULD
017343,000377:
017344,000378: 24,2472 40000 NEGSIZ COM # SEND THE COMPUTER OFF INTO THE BOONDOCKS
017345,000379: 24,2473 02466 TC SIZLOOK # TO PLAY WITH ITSELF IF THE OPERATOR
017346,000380: 24,2474 31614 GUDENTRY CA CALCDIR # MAKES ABAD ENTRY******
017347,000381: 24,2475 67761 AD FOUR
017348,000382: 24,2476 50000 INDEX A
017349,000383: 24,2477 02500 TC +1
017350,000384: 24,2500 02455 TC TESTCALL
017351,000385: 24,2501 02507 TC +6 # C(A)=+00001 FOR -Z
017352,000386: 24,2502 02506 TC +4 # C(A)=+00002 FOR -Y
017353,000387: 24,2503 02505 TC +2 # C(A)=+00003 FOR -X
017354,000388: 24,2504 02500 TC -4 # C(A)=+00004 ERROR
017355,000389: 24,2505 02510 TC +3 # C(A)=+00005 FOR +X
017356,000390: 24,2506 02514 TC +6
017357,000391: 24,2507 02517 TC +10
017358,000392: 24,2510 37761 CAF FOUR
017359,000393: 24,2511 55544 TS POSITON # 4 IS FOR A.L. POSN 4 USED FOR X SF TEST
017360,000394: 24,2512 02521 TC +7
017361,000395: 24,2513 02521 TC +6
017362,000396: 24,2514 37762 CAF TWO
017363,000397: 24,2515 55544 TS POSITON # +2 IS A.L. POS 2 USED FOR Y SF TEST
017364,000398: 24,2516 02521 TC +3
017365,000399: 24,2517 37763 CAF ONE
017366,000400: 24,2520 55544 TS POSITON # +1 IS A.L. POS 1 USED FOR Z SF TEST
017367,000401: 24,2521 55617 TS OPTNREG # C(K) = (4,2,1) FOR X,Y,Z
017368,000402: 24,2522 55621 TS SAVE +1
017369,000403: 24,2523 04724 TC FREEDSP
017370,000404: 24,2524 37767 CAF ZERO
017371,000405: 24,2525 55536 TS NBPOS # SET UP NB COORD TO Z NORTH, X UP
017372,000406: 24,2526 55622 TS SAVE +2 # INITIALIZE FOR EARTHR DESIGNATE USAGE
017373,000407: 24,2527 55563 TS TESTNO # INITIALIZE FOR TEST ABORT ROUTINE
017374,000408: 24,2530 55615 TS CDUFLAG # ZEROS FOR STRTWACH USE
017375,000409: 24,2531 33637 CAF SFCONST
017376,000410:
![]() |
Page 419 |
017378,000412: 24,2532 55623 TS SFCONST1 # FOR DIVISION DURING CALCSFE
017379,000413:
017380,000414: 24,2533 05206 TC BANKCALL
017381,000415: 24,2534 26000 CADR IMUZERO
017382,000416: 24,2535 05206 TC BANKCALL
017383,000417: 24,2536 26751 CADR IMUSTALL
017384,000418: 24,2537 12250 TCF ENDTEST1
017385,000419: 24,2540 03353 TC NBPOSPL
017386,000420: 24,2541 03104 TC POSGMBL
017387,000421: 24,2542 12250 TCF ENDTEST1
017388,000422: 24,2543 03133 TC FALNE
017389,000423: 24,2544 05206 TC BANKCALL
017390,000424: 24,2545 31726 CADR REDYTORK
017391,000425: 24,2546 55552 WAITFIVE TS SOUTHDR
017392,000426: 24,2547 37756 CAF BIT6 # THIS SECTION CALLS FOR 2-32 MSEC WAITS
017393,000427: 24,2550 02563 TC DIRECTN -5
017394,000428: 24,2551 37756 ENABLE CAF BIT6
017395,000429: 24,2552 00006 EXTEND # ENABLE GYRO TORQUING LOOP BY TURNING
017396,000430: 24,2553 05014 WOR 14C # ON CAL MODULE RELAY
017397,000431:
017398,000432: 24,2554 00004 INHINT
017399,000433: 24,2555 47762 CS TWO # SETS UP EXEC SWITCH SO IMUPULSE WILL
017400,000434: 24,2556 70366 MASK IMODES33 # NOT TURN OFF GYRO TORQ ENABLE RELAY
017401,000435: 24,2557 67762 AD TWO
017402,000436: 24,2560 54366 TS IMODES33
017403,000437: 24,2561 37762 CAF TWO
017404,000438: 24,2562 55552 TS SOUTHDR
017405,000439: 24,2563 55527 TS LENGTHOT # 20 MSEC DELAY FOR GYRO LOOP STABILIZAT.
017406,000440: 24,2564 37763 CA ONE
017407,000441: 24,2565 03214 TC WAITLOOP
017408,000442: 24,2566 11676 CCS COUNTPL
017409,000443: 24,2567 03236 TC WAITLP2
017410,000444: 24,2570 05206 DIRECTN TC BANKCALL # TORQUING ROUTINE IN IMU PERFORMANCE
017411,000445: 24,2571 46520 CADR SILVER # BANK 3
017412,000446: 24,2572 11552 CCS SOUTHDR # A ONE FIRST TIME THROUGH, THEN ZERO
017413,000447: 24,2573 02546 TC WAITFIVE
017414,000448:
017415,000449: 24,2574 11615 STRTWACH CCS CDUFLAG # RETURNS HERE VIA QPLACE FROM SILVER
017416,000450: 24,2575 02656 TC CDUZOTST # BEEN CAUGHT AND CDU THROUGH ZERO IS
017417,000451: 24,2576 11621 CCS SAVE +1
017418,000452: 24,2577 02616 TC LOOKCDUP -4
017419,000453: 24,2600 02622 TC LOOKCDUP
017420,000454: 24,2601 37767 CORRECT CAF ZERO
017421,000455: 24,2602 54356 TS LGYRO # RELEASES GYROS FOR IMUPULSE USAGE
017422,000456: 24,2603 05206 TC BANKCALL # EARTHRATE CORRECTION TO GYROS NOT EAST
017423,000457: 24,2604 30424 CADR EARTHR # OR WEST
017424,000458: 24,2605 37763 CAF ONE
017425,000459: 24,2606 54356 TS LGYRO # RESERVES GYROS FOR S.F. TEST TORQUING
017426,000460: 24,2607 55622 TS SAVE +2 # INITIALIZES TO INSURE 5.6 DEG OF TORQ)
017427,000461: 24,2610 27563 ADS TESTNO # INCR THE BURST COUNTER, WHICH IS USED TO
017428,000462:
![]() |
Page 420 |
017430,000464: 24,2611 41563 CS TESTNO # COUNT THE NO. OF ITMES THE GYRO COUNTER
017431,000465: 24,2612 77766 MASK FIVE # IS LOADED, IF A TENTH LOAD IS REQUESTED
017432,000466: 24,2613 00006 EXTEND # THE SFE IS TOO LARGE TO BE MEANINGFULL
017433,000467: 24,2614 12765 BZF STOPTEST # OR THE CDU,S ARE NOT WORKING.
017434,000468: 24,2615 02570 TC DIRECTN
017435,000469:
017436,000470: 24,2616 37767 CAF ZERO # ZEROS CDU REG WHICH WILL BE USED TO
017437,000471: 24,2617 55621 TS SAVE +1
017438,000472: 24,2620 51672 INDEX CDUNDX # MEASURE ANGLE.
017439,000473: 24,2621 54032 TS CDUX
017440,000474: 24,2622 00004 LOOKCDUP INHINT
017441,000475: 24,2623 37757 CAF BIT5
017442,000476: 24,2624 55624 STILLOOK TS TIMER
017443,000477: 24,2625 51672 INDEX CDUNDX # LOOKS FOR FIRST CDU PULSE AFTER TORQUING
017444,000478: 24,2626 10032 CCS CDUX # STARTS
017445,000479: 24,2627 02641 TC OUTPLUS # HERE IS PLUS PULSE
017446,000480: 24,2630 02633 TC TIMEWACH
017447,000481: 24,2631 02444 TC ALARMS # TTELL OPERATOR FIRST CDU PULSE WAS MISSD
017448,000482: 24,2632 02652 TC OUTNEG # HERE IS MINUS PULSE
017449,000483: 24,2633 11624 TIMEWACH CCS TIMER # WATCHES TIME IN INHINT SO COPS WILL NOT
017450,000484: 24,2634 02624 TC STILLOOK # CATCH US
017451,000485: 24,2635 00003 RELINT
017452,000486:
017453,000487: 24,2636 10067 CCS NEWJOB
017454,000488: 24,2637 05532 TC CHANG1
017455,000489: 24,2640 02622 TC LOOKCDUP # KEEP WATCHING IF THE PULSE IS NOT HERE
017456,000490:
017457,000491: 24,2641 43636 OUTPLUS CS DESANGLE # -2047 CDU PULSES ADDED TO CDU REG SO
017458,000492: 24,2642 51672 INDEX CDUNDX # ZERO CROSSOVER CAN BE DETECTED
017459,000493: 24,2643 54032 TS CDUX
017460,000494: 24,2644 37763 LOADFLAG CAF ONE
017461,000495: 24,2645 55615 TS CDUFLAG
017462,000496: 24,2646 30047 CA GYROCTR # GYRO TORQ CMDS LEFT OUT OF FIRST 5.625
017463,000497: 24,2647 55620 TS SAVE # DEG COMMANDED WHEN CDU PULSE ARRIVED
017464,000498: 24,2650 00003 RELINT
017465,000499: 24,2651 02656 TC CDUZOTST
017466,000500:
017467,000501: 24,2652 33636 OUTNEG CA DESANGLE
017468,000502: 24,2653 51672 INDEX CDUNDX
017469,000503: 24,2654 54032 TS CDUX
017470,000504: 24,2655 02644 TC LOADFLAG
017471,000505:
017472,000506: 24,2656 51672 CDUZOTST INDEX CDUNDX
017473,000507: 24,2657 10032 CCS CDUX
017474,000508: 24,2660 02664 TC +4
017475,000509: 24,2661 02701 TC ENDWATCH
017476,000510: 24,2662 02664 TC +2
017477,000511: 24,2663 02701 TC ENDWATCH
017478,000512: 24,2664 37752 CAF BIT10 # RAND WITH BIT 10 TO SEE IF STILL TORQ.
017479,000513: 24,2665 00006 EXTEND
017480,000514:
![]() |
Page 421 |
017482,000516: 24,2666 02014 RAND 14C
017483,000517: 24,2667 10000 CCS A
017484,000518: 24,2670 02676 TC +6
017485,000519:
017486,000520: 24,2671 11622 CCS SAVE +2 # SEE IF 2.8DEG OR 5.6 DEG SINCE LAST
017487,000521: 24,2672 02674 TC +2 # EEARTHR USE, IF 2.8 DEG, DO 2.8 MORE
017488,000522: 24,2673 02601 TC CORRECT # THEN GO TO CORRECT
017489,000523: 24,2674 55622 TS SAVE +2
017490,000524: 24,2675 02570 TC DIRECTN
017491,000525: 24,2676 10067 CCS NEWJOB
017492,000526: 24,2677 05532 TC CHANG1
017493,000527: 24,2700 02656 TC CDUZOTST
017494,000528:
017495,000529: 24,2701 00004 ENDWATCH INHINT # WWILL STOR GYROCTR AT END OF 2048 CDU
017496,000530: 24,2702 37767 CAF ZERO # PULSES AND STOP TORQ BY ZEROING REQUESTS
017497,000531: 24,2703 54356 TS LGYRO # RELEASE GYROS FOR OTHERS USAGE
017498,000532: 24,2704 67770 AD NEG0 # PREVENT +0 IN OUTPUT COUNTER
017499,000533: 24,2705 56047 XCH GYROCTR
017500,000534: 24,2706 55621 TS SAVE +1 # AND STOPS TORQUING BY ZEROING TORQ
017501,000535: 24,2707 47762 CS TWO
017502,000536: 24,2710 70366 MASK IMODES33 # THIS TURNS OFF EXEC SWITCH SO THE GYRO
017503,000537: 24,2711 54366 TS IMODES33 # TORQ. ENABLE RELAY CAN BE TURNED OFF.
017504,000538: 24,2712 00003 RELINT
017505,000539: 24,2713 31620 CALCSFE CA SAVE # GYROCTR AT TEST START
017506,000540: 24,2714 00006 EXTEND
017507,000541: 24,2715 61621 SU SAVE +1 # GYROCTR AT TEST END
017508,000542: 24,2716 55622 TS SAVE +2
017509,000543: 24,2717 00006 EXTEND
017510,000544: 24,2720 62737 BZMF ARITH # SEE IF IT IS NEG OR ZERO,IF NEG,SFE IS +
017511,000545: 24,2721 73640 MASK SIZCHK
017512,000546: 24,2722 00006 EXTEND # THIS ROUTINE TESTS SAVE-(SAVE+1) TO SEE
017513,000547: 24,2723 12731 BZF NEGSFE # IF THE RESULT IS WITHIN PERMISSIBLE SIZE
017514,000548: 24,2724 41622 CS SAVE +2 # AND DETERMINES POLARITY OF SFE USING THE
017515,000549: 24,2725 73640 MASK SIZCHK # PRESENCE OD ABSENCE OF BITS 12,13,14.
017516,000550: 24,2726 00006 EXTEND # IF BITS ARE PRESENT IN POSITIVE SAVE +2
017517,000551: 24,2727 12733 BZF POSSFE # THEN THE SFE MUST BE POS. IF DIFFERENCE
017518,000552: 24,2730 02765 TC STOPTEST # IS GREATER THAN 2047 PULSES FROM THE
017519,000553: 24,2731 31622 NEGSFE CAE SAVE +2 # IDEAL NO OF PULSES, THE SFE EXCEEDS
017520,000554: 24,2732 02737 TC ARITH # 15600 PPM, THE TEST IS NOT VALID AND
017521,000555:
017522,000556: # THEREFORE ABORTS AND TURNS ON PROGRAM ALARM
017523,000557: 24,2733 37743 POSSFE CAF POSMAX # POS SFE DEFINITION = IRIG SF IN SEC OF
017524,000558: 24,2734 00006 EXTEND # ARC PER PULSE IS GREATER THAN
017525,000559: 24,2735 61622 SU SAVE +2 # .61798095703125 SEC OF ARC/ PULSE
017526,000560: 24,2736 02740 TC ARITH +1
017527,000561:
017528,000562: 24,2737 40000 ARITH COM
017529,000563: 24,2740 22007 ZL
017530,000564: 24,2741 00006 EXTEND
017531,000565: 24,2742 11623 DV SFCONST1
![]() |
Page 422 |
017533,000567: 24,2743 54342 LOADIT TS DSPTEM2
017534,000568: 24,2744 02745 TC DATADSP
017535,000569:
017536,000570: 24,2745 04632 DATADSP TC GRABDSP
017537,000571: 24,2746 04637 TC PREGBSY
017538,000572: 24,2747 31614 CA CALCDIR
017539,000573: 24,2750 54344 TS DSPTEM2 +2 # DISPLAYS TEST NO JUST PERFORMED
017540,000574: 24,2751 33643 CAF VB06N66 # R3 = TEST NO JUST PERFORMED
017541,000575: 24,2752 04657 TC NVSBWAIT
017542,000576: 24,2753 04622 TC FLASHON
017543,000577: 24,2754 04475 TC ENDIDLE # TO END TEST DO V34E
017544,000578: 24,2755 02757 TC +2
017545,000579: 24,2756 02455 TC TESTCALL # TO CONTINUE TEST DO V33E
017546,000580: 24,2757 05206 TC BANKCALL
017547,000581: 24,2760 26000 CADR IMUZERO
017548,000582: 24,2761 05206 TC BANKCALL
017549,000583: 24,2762 26751 CADR IMUSTALL
017550,000584: 24,2763 12250 TCF ENDTEST1
017551,000585: 24,2764 12250 TCF ENDTEST1
017552,000586:
017553,000587: 24,2765 05206 STOPTEST TC BANKCALL
017554,000588: 24,2766 26000 CADR IMUZERO
017555,000589: 24,2767 05206 TC BANKCALL # CORRECT CDUCTRS AND TURN ON PROG ALARM
017556,000590: 24,2770 26751 CADR IMUSTALL # TO TELL OPERATOR LAST CDU PULSE WAS
017557,000591: 24,2771 12250 TCF ENDTEST1 # MISSED OR GYRO TORQ LOOP WAY OUT OF
017558,000592: 24,2772 37767 CAF ZERO # ALLOWABLE LIMITS.........
017559,000593: 24,2773 54356 TS LGYRO # **** RELEASE GYROS FOR OTHERS USAGE*****
017560,000594: 24,2774 02444 TC ALARMS
017561,000595: 24,2775 12250 TCF ENDTEST1
017562,000596:
![]() |
Page 423 |
017564,000598: 24,2776 00006 CHECKG EXTEND # PIP PULSE CATCHING ROUTINE
017565,000599: 24,2777 23546 QXCH QPLACE # RECORDS TIME AT OCCURRENCE OF A DELTA V
017566,000600: 24,3000 00003 CHECKG1 RELINT # KEEPS CONTENT OF PIPA REG INTACT
017567,000601: 24,3001 10067 CCS NEWJOB
017568,000602: 24,3002 05532 TC CHANG1
017569,000603: 24,3003 00004 INHINT
017570,000604: 24,3004 37767 CAF ZERO
017571,000605: 24,3005 51541 INDEX PIPINDEX
017572,000606: 24,3006 56037 XCH PIPAX
017573,000607: 24,3007 55551 TS STOREPL
017574,000608: 24,3010 11551 CCS STOREPL
017575,000609: 24,3011 03015 TC CHECKP
017576,000610: 24,3012 03070 TC RESTOREA
017577,000611: 24,3013 03030 TC CHECKM
017578,000612: 24,3014 03070 TC RESTOREA
017579,000613: 24,3015 37756 CHECKP CAF BIT6 # LOOKS FOR ONE MORE PLUS PULSE
017580,000614: 24,3016 55540 TS PIPANO
017581,000615: 24,3017 51541 INDEX PIPINDEX
017582,000616: 24,3020 10037 CCS PIPAX
017583,000617: 24,3021 03043 TC CHECKG3
017584,000618: 24,3022 03025 TC +3
017585,000619: 24,3023 03070 TC RESTOREA
017586,000620: 24,3024 03025 TC +1
017587,000621: 24,3025 11540 CCS PIPANO
017588,000622: 24,3026 03016 TC CHECKP +1
017589,000623: 24,3027 03070 TC RESTOREA
017590,000624: 24,3030 37756 CHECKM CAF BIT6 # LOOKS FOR ONE MORE MINUS PULSE
017591,000625: 24,3031 55540 TS PIPANO
017592,000626: 24,3032 51541 INDEX PIPINDEX
017593,000627: 24,3033 10037 CCS PIPAX
017594,000628: 24,3034 03070 TC RESTOREA
017595,000629: 24,3035 03040 TC +3
017596,000630: 24,3036 03043 TC CHECKG3
017597,000631: 24,3037 03040 TC +1
017598,000632: 24,3040 11540 CCS PIPANO
017599,000633: 24,3041 03031 TC CHECKM +1
017600,000634: 24,3042 03070 TC RESTOREA
017601,000635: 24,3043 05026 CHECKG3 TC FINETIME # TIME IN DOUBLE PRECISION LEFT IN MPAC
017602,000636:
017603,000637: 24,3044 52145 DXCH MPAC
017604,000638: 24,3045 37760 CAF BIT4
017605,000639: 24,3046 55540 CHECKG5 TS PIPANO
017606,000640: 24,3047 51541 INDEX PIPINDEX
017607,000641: 24,3050 10037 CCS PIPAX
017608,000642: 24,3051 03055 TC +4
017609,000643: 24,3052 03070 TC RESTOREA
017610,000644: 24,3053 03055 TC +2
017611,000645: 24,3054 03070 TC RESTOREA
017612,000646: 24,3055 11540 CCS PIPANO
017613,000647: 24,3056 03046 TC CHECKG5
017614,000648:
![]() |
Page 424 |
017616,000650: 24,3057 03062 NREAD TC RESTORE
017617,000651: 24,3060 55551 TS STOREPL
017618,000652: 24,3061 01546 TC QPLACE
017619,000653: 24,3062 57551 RESTORE XCH STOREPL # A WILL CONTAIN PREVIOUS PIPA CNTR CONTEN
017620,000654: 24,3063 51541 INDEX PIPINDEX # STOREPL WILL CONTAIN ZERO
017621,000655: 24,3064 60037 AD PIPAX
017622,000656: 24,3065 51541 INDEX PIPINDEX
017623,000657: 24,3066 54037 TS PIPAX
017624,000658: 24,3067 00002 TC Q
017625,000659:
![]() |
Page 425 |
017627,000661: 24,3070 03062 RESTOREA TC RESTORE
017628,000662: 24,3071 03000 TC CHECKG1
017629,000663: 24,3072 31551 DATALD CA STOREPL
017630,000664: 24,3073 51673 INDEX RESULTCT
017631,000665: 24,3074 55626 TS DATAPL
017632,000666: 24,3075 30144 CA MPAC
017633,000667: 24,3076 51673 INDEX RESULTCT
017634,000668: 24,3077 55627 TS DATAPL +1
017635,000669: 24,3100 30145 CA MPAC +1
017636,000670: 24,3101 51673 INDEX RESULTCT
017637,000671: 24,3102 55630 TS DATAPL +2
017638,000672: 24,3103 00002 TC Q
017639,000673:
017640,000674:
017641,000675:
017642,000676: 24,3104 00006 POSGMBL EXTEND # COARSE ALIGNING SUBROUTINE
017643,000677: 24,3105 23546 QXCH QPLACE
017644,000678:
017645,000679: 24,3106 06112 TC INTPRET
017646,000680: 24,3107 77624 CALL
017647,000681: 24,3110 32655 CALCGA
017648,000682: 24,3111 77776 EXIT
017649,000683:
017650,000684: 24,3112 05206 TC BANKCALL
017651,000685: 24,3113 26065 CADR IMUCOARS
017652,000686: 24,3114 30075 CA FLAGWRD1
017653,000687: 24,3115 77754 MASK BIT8
017654,000688: 24,3116 10000 CCS A # L +1, OTHERWISE TO L +2.
017655,000689: 24,3117 03122 TC LOCK
017656,000690: 24,3120 25546 INCR QPLACE
017657,000691: 24,3121 03124 TC +3
017658,000692: 24,3122 37762 LOCK CA TWO
017659,000693: 24,3123 55537 TS NDXCTR
017660,000694: 24,3124 06067 TC FLAG1DWN
017661,000695: 24,3125 00200 OCT 200
017662,000696: 24,3126 05206 TC BANKCALL
017663,000697: 24,3127 26751 CADR IMUSTALL
017664,000698: 24,3130 12250 TCF ENDTEST1
017665,000699: 24,3131 01546 TC QPLACE
017666,000700: 24,3132 00401 GMLOCKCK OCT 00401
017667,000701:
![]() |
Page 426 |
017669,000703: 24,3133 00006 FALNE EXTEND # TORQUES GYROS TO NULL OVT DIFFERENCE
017670,000704: 24,3134 23546 QXCH QPLACE # BETWEEN DESIRED SM ORIENTATION WITH RESP
017671,000705: 24,3135 05206 TC BANKCALL # TO NBASE AND ACTUAL
017672,000706: 24,3136 26000 CADR IMUZERO
017673,000707: 24,3137 05206 TC BANKCALL
017674,000708: 24,3140 26751 CADR IMUSTALL
017675,000709: 24,3141 12250 TCF ENDTEST1
017676,000710: 24,3142 05206 TC BANKCALL
017677,000711: 24,3143 26252 CADR IMUFINE
017678,000712: 24,3144 05206 TC BANKCALL
017679,000713: 24,3145 26751 CADR IMUSTALL
017680,000714: 24,3146 12250 TCF ENDTEST1
017681,000715: 24,3147 30032 FALNE1 CA CDUX
017682,000716: 24,3150 50110 INDEX FIXLOC
017683,000717: 24,3151 54024 TS 24
017684,000718: 24,3152 30033 CA CDUY
017685,000719: 24,3153 50110 INDEX FIXLOC
017686,000720: 24,3154 54020 TS 20
017687,000721: 24,3155 30034 CA CDUZ
017688,000722: 24,3156 50110 INDEX FIXLOC
017689,000723: 24,3157 54022 TS 22
017690,000724: 24,3160 37757 CA BIT5
017691,000725: 24,3161 60110 AD FIXLOC
017692,000726: 24,3162 50110 INDEX FIXLOC
017693,000727: 24,3163 54050 TS S1
017694,000728: 24,3164 06112 TC INTPRET
017695,000729: 24,3165 64375 VLOAD MXV
017696,000730: 24,3166 02401 XSM
017697,000731: 24,3167 02445 STARAD
017698,000732: 24,3170 77772 VSL1
017699,000733: 24,3171 34041 STCALL 32D
017700,000734: 24,3172 32555 NBSM
017701,000735: 24,3173 26423 STOVL XDC
017702,000736: 24,3174 02407 YSM
017703,000737: 24,3175 76521 MXV VSL1
017704,000738: 24,3176 02445 STARAD
017705,000739: 24,3177 34041 STCALL 32D
017706,000740: 24,3200 32555 NBSM
017707,000741: 24,3201 26431 STOVL YDC
017708,000742: 24,3202 02423 XDC
017709,000743: 24,3203 76435 VXV VSL1
017710,000744: 24,3204 02431 YDC
017711,000745: 24,3205 36437 STCALL ZDC
017712,000746: 24,3206 32425 CALCGTA
017713,000747: 24,3207 77776 EXIT
017714,000748: 24,3210 33657 CA OGCPL
017715,000749: 24,3211 05206 TC BANKCALL
017716,000750: 24,3212 26362 CADR IMUPULSE
017717,000751: 24,3213 01546 TC QPLACE
017718,000752:
![]() |
Page 427 |
017720,000754: 24,3214 00006 WAITLOOP EXTEND # LOOPS IN X SEC INCREMENTS FOR NUMBER OF
017721,000755: 24,3215 23545 QXCH QPLAC
017722,000756: 24,3216 55676 TS COUNTPL # NUMBER PUT INTO LENGTHOT
017723,000757: 24,3217 11676 WAITLP1 CCS COUNTPL
017724,000758: 24,3220 03224 TC +4
017725,000759: 24,3221 01545 TC QPLAC
017726,000760: 24,3222 03224 TC +2
017727,000761: 24,3223 03216 TC WAITLP1 -1
017728,000762: 24,3224 00004 INHINT
017729,000763: 24,3225 31527 CAE LENGTHOT
017730,000764: 24,3226 05663 TC WAITLIST
017731,000765: 24,3227 E5,1400 EBANK= XSM
017732,000766: 24,3227 03242 50065 2CADR WAITLP3
017733,000767:
017734,000768: 24,3231 00003 RELINT
017735,000769: 24,3232 11676 CCS COUNTPL
017736,000770: 24,3233 01545 TC QPLAC
017737,000771: 24,3234 01545 TC QPLAC
017738,000772: 24,3235 13236 NOOP
017739,000773: 24,3236 55676 WAITLP2 TS COUNTPL # ENTER HERE AFTER DOING CALLING JOB
017740,000774: 24,3237 33241 CAF WTLPCADR
017741,000775: 24,3240 05545 TC JOBSLEEP
017742,000776: 24,3241 51217 WTLPCADR CADR WAITLP1
017743,000777: 24,3242 33241 WAITLP3 CAF WTLPCADR
017744,000778: 24,3243 05551 TC JOBWAKE
017745,000779: 24,3244 05727 TC TASKOVER
017746,000780:
017747,000781:
017748,000782:
017749,000783: 24,3245 54001 ZEROING TS L
017750,000784: 24,3246 13250 TCF +2
017751,000785: 24,3247 55777 ZEROING1 TS ZERONDX
017752,000786: 24,3250 37767 CAF ZERO
017753,000787: 24,3251 50001 INDEX L
017754,000788: 24,3252 54000 TS 0
017755,000789: 24,3253 24001 INCR L
017756,000790: 24,3254 11777 CCS ZERONDX
017757,000791: 24,3255 13247 TCF ZEROING1
017758,000792: 24,3256 00002 TC Q
017759,000793: 24,3257 06112 COMPUT TC INTPRET # CALCULATE LENGTH OF GRAVITY VECTOR AS
017760,000794: 24,3260 77170 AXT,1 AXT,2 # MEASURED BY ACCELEROMETERS
017761,000795: 24,3261 00026 22D
017762,000796: 24,3262 00012 10D
017763,000797: 24,3263 77731 SSP
017764,000798: 24,3264 00051 S1
017765,000799: 24,3265 00004 4
017766,000800: 24,3266 77731 SSP
017767,000801: 24,3267 00052 S2
![]() |
Page 428 |
017769,000803: 24,3270 00004 4
017770,000804: 24,3271 44743 LOPDELOP DLOAD* DSU*
017771,000805: 24,3272 75120 DATAPL +24D,2
017772,000806: 24,3273 02657 DATAPL +24D,1
017773,000807: 24,3274 41323 PDDL* DMP
017774,000808: 24,3275 75156 GENPL +24D,2
017775,000809: 24,3276 11651 DEC585
017776,000810: 24,3277 77671 DDV
017777,000811: 24,3300 55504 TIX,2 VDEF
017778,000812: 24,3301 51306 NEXT
017779,000813: 24,3302 47046 ABVAL RTB
017780,000814: 24,3303 33520 SGNAGREE
017781,000815: 24,3304 34343 STCALL DSPTEM2
017782,000816: 24,3305 51310 KODU
017783,000817: 24,3306 60006 NEXT PUSH TIX,1
017784,000818: 24,3307 51271 LOPDELOP
017785,000819: 24,3310 77776 KODU EXIT
017786,000820: 24,3311 04644 TC GRABWAIT
017787,000821: 24,3312 03605 TC SHOW
017788,000822: 24,3313 06112 TC INTPRET
017789,000823: 24,3314 41535 SLOAD PUSH
017790,000824: 24,3315 02630 DATAPL +1
017791,000825: 24,3316 41535 SLOAD PUSH
017792,000826: 24,3317 02634 DATAPL +5
017793,000827: 24,3320 55535 SLOAD VDEF
017794,000828: 24,3321 02640 DATAPL +11
017795,000829: 24,3322 76456 UNIT VSL1
017796,000830: 24,3323 77606 PUSH
017797,000831: 24,3324 41535 SLOAD PUSH
017798,000832: 24,3325 02644 DATAPL +15
017799,000833: 24,3326 41535 SLOAD PUSH
017800,000834: 24,3327 02650 DATAPL +21
017801,000835: 24,3330 55535 SLOAD VDEF
017802,000836: 24,3331 02654 DATAPL +25
017803,000837: 24,3332 76456 UNIT VSL1
017804,000838: 24,3333 45325 PDDL DSU
017805,000839: 24,3334 02655 DATAPL +26
017806,000840: 24,3335 02641 DATAPL +12
017807,000841: 24,3336 77612 SL4
017808,000842: 24,3337 77652 SL3
017809,000843: 24,3340 26530 STOVL LENGTHOT
017810,000844: 24,3341 51435 VXV ABVAL
017811,000845: 24,3342 56205 DMP DDV
017812,000846: 24,3343 11654 ERUNITS
017813,000847: 24,3344 02530 LENGTHOT
017814,000848: 24,3345 77634 RTB
017815,000849: 24,3346 33520 SGNAGREE
017816,000850: 24,3347 00343 STORE DSPTEM2
017817,000851: 24,3350 77776 EXIT
017818,000852: 24,3351 03605 TC SHOW
![]() |
Page 429 |
017820,000854: 24,3352 12407 TCF RADCK
017821,000855: 24,3353 00006 NBPOSPL EXTEND # SETS UP AZIMUTH AND VERTICAL VECTORS FOR
017822,000856: 24,3354 23546 QXCH QPLACE # AXISGEN,RESULTS TO BE USED IN CALCGA TO
017823,000857: 24,3355 06112 TC INTPRET
017824,000858: 24,3356 54160 AXC,1 XSU,1 # AZIMUTH IN NB COORDS
017825,000859: 24,3357 51670 SCNBAZ
017826,000860: 24,3360 02536 NBPOS
017827,000861: 24,3361 77773 VLOAD*
017828,000862: 24,3362 00001 0,1
017829,000863: 24,3363 02445 STORE STARAD
017830,000864:
017831,000865: 24,3364 54160 AXC,1 XSU,1 # VERTICAL IN NB COORDS
017832,000866: 24,3365 51702 SCNBVER
017833,000867: 24,3366 02536 NBPOS
017834,000868: 24,3367 77773 VLOAD*
017835,000869: 24,3370 00001 0,1
017836,000870: 24,3371 16453 STODL STARAD +6
017837,000871: 24,3372 33300 SCHZEROS
017838,000872: 24,3373 14007 STODL 6D
017839,000873: 24,3374 02507 AZIMUTH
017840,000874: 24,3375 57546 COS DCOMP
017841,000875: 24,3376 14011 STODL 8D
017842,000876: 24,3377 02507 AZIMUTH
017843,000877: 24,3400 77756 SIN
017844,000878: 24,3401 00013 STORE 10D # VERTICAL IN CER
017845,000879: 24,3402 77775 VLOAD
017846,000880: 24,3403 11703 SCNBVER
017847,000881: 24,3404 34015 STCALL 12D
017848,000882: 24,3405 32741 AXISGEN
017849,000883: 24,3406 77776 EXIT
017850,000884:
017851,000885: 24,3407 33647 SELPOSN CA DEC17
017852,000886: 24,3410 55777 TS ZERONDX
017853,000887: 24,3411 33667 CA XSMADR
017854,000888: 24,3412 03245 TC ZEROING
017855,000889:
017856,000890: 24,3413 51544 INDEX POSITON
017857,000891: 24,3414 03415 TC +1
017858,000892: 24,3415 03533 TC OPCHKPOS # OPCHK WILL PUT ZERO IN POSITON
017859,000893: 24,3416 03431 TC POSN1
017860,000894: 24,3417 03440 TC POSN2
017861,000895: 24,3420 03445 TC POSN3
017862,000896: 24,3421 03457 TC POSN4
017863,000897: 24,3422 03467 TC POSN5
017864,000898: 24,3423 03477 TC POSN6
017865,000899: 24,3424 03507 TC POSN7
017866,000900: 24,3425 03522 TC POSN8
017867,000901: 24,3426 03551 TC POSN9
017868,000902: 24,3427 03562 TC POSN10
017869,000903: 24,3430 03573 TC POSN11 # COMPASS POSITION
017870,000904:
![]() |
Page 430 |
017872,000906: # (XXX.XX MERU) AND A VERTICAL TEST BY DV (XXX.XX MERU) EACH POSITION TELL
017873,000907: # HOW THE DISPLAYS ARE RELATED TO TTHE DRIFT COEFFICIENTS BEING MEASURED.
017874,000908: # NOTE THAT IT IS ILLEGAL TO RUN VERTICAL IN POS 6,4, OR 2 WITHOUT FIRST
017875,000909: # RUNNING HORIZONTAL OF POS 5,3, OR1. THIS IS BECAUSE THE HORIZ DRIFT CALC
017876,000910: # IN 1,3, OR 5 IS USED AS EAST DRIFFFT FOR VERTICAL TEST. THIS IS DONE BY
017877,000911: # THE MACHINE AUTOMATICALLY EXCEPT FOR VERTICAL POSITION 6 WHICH THE
017878,000912: # OPERATOR MUST DO. (SEE POSITION 6 BELOW)
017879,000913: 24,3431 37746 POSN1 CA HALF # X UP, Y SOUTH, Z EAST
017880,000914: 24,3432 55400 TS XSM
017881,000915: 24,3433 55410 TS YSM +2 # NBDY = DH
017882,000916: 24,3434 55420 TS ZSM +4
017883,000917: 24,3435 37767 NGUBGH CA ZERO
017884,000918: 24,3436 55541 TS PIPINDEX
017885,000919: 24,3437 01546 TC QPLACE
017886,000920:
017887,000921:
017888,000922: 24,3440 47746 POSN2 CS HALF # X DOWN, Y WEST, Z NORTH
017889,000923: 24,3441 55400 TS XSM
017890,000924: 24,3442 55412 TS YSM +4 # NBDZ=DH,NBDX-ADIAX=-DV
017891,000925: 24,3443 55416 TS ZSM +2
017892,000926: 24,3444 03435 TC NGUBGH
017893,000927:
017894,000928:
017895,000929: 24,3445 37746 POSN3 CA HALF # Z UP, Y WEST ,X NORTH
017896,000930: 24,3446 55414 TS ZSM
017897,000931: 24,3447 40000 COM # NBDX = -DH
017898,000932: 24,3450 55402 TS XSM +2
017899,000933: 24,3451 55412 TS YSM +4
017900,000934: 24,3452 37762 NSFLAGD CA TWO
017901,000935: 24,3453 55541 TS PIPINDEX
017902,000936: 24,3454 37767 NSBUGD CA ZERO
017903,000937: 24,3455 55576 TS DRIFTT
017904,000938: 24,3456 01546 TC QPLACE
017905,000939:
017906,000940:
017907,000941: 24,3457 37746 POSN4 CA HALF # Z DOWN, Y SOUTH ,X EAST
017908,000942: 24,3460 55404 TS XSM +4
017909,000943: 24,3461 55410 TS YSM +2
017910,000944: 24,3462 40000 COM # NBDY+SRAY=DH,NBDZ+ADIAZ=DV
017911,000945: 24,3463 55414 TS ZSM
017912,000946: 24,3464 37762 CA TWO
017913,000947: 24,3465 55541 TS PIPINDEX
017914,000948: 24,3466 01546 TC QPLACE
017915,000949:
017916,000950: 24,3467 37746 POSN5 CA HALF # Y UP, Z NORTH, X WEST
![]() |
Page 431 |
017918,000952: 24,3470 55406 TS YSM
017919,000953: 24,3471 40000 COM # NBDZ-SRAZ=DH
017920,000954: 24,3472 55404 TS XSM +4
017921,000955: 24,3473 55416 TS ZSM +2
017922,000956: 24,3474 37763 CA ONE
017923,000957: 24,3475 55541 TS PIPINDEX
017924,000958: 24,3476 03454 TC NSBUGD
017925,000959:
017926,000960:
017927,000961:
017928,000962: # TO RUN POSITION 6 VERTICAL AFTER PIP TEST POS 6 IS DISPLAYED THE OPERATR
017929,000963: # MUST CALCULATE FROM POSN 2,5 -NBDZ-ADSRAZ (XXX.XX)MERU. WHEN P
017930,000964: # IP DATA FLASHES DO VERB 33 ENTER. THIS STARTS VERTICAL TEST. THEN THE
017931,000965: # DATA XXX.XX MERU AS CALCULATED MUST BE ENTERED INTO DRIFTT. IE VERB 21
017932,000966: # ENTER NOUN 01 ENTER LOCATION OF DRIFTT ENTER + (OR -) XXXXX ENTER
017933,000967: 24,3477 37746 POSN6 CA HALF # Y DOWN, Z EAST, X SOUTH
017934,000968: 24,3500 55402 TS XSM +2
017935,000969: 24,3501 55420 TS ZSM +4
017936,000970: 24,3502 40000 COM # NBDX +ADSRAX = DH, NBDY -ADIAY = -DV
017937,000971: 24,3503 55406 TS YSM
017938,000972: 24,3504 37763 CA ONE
017939,000973: 24,3505 55541 TS PIPINDEX
017940,000974: 24,3506 01546 TC QPLACE
017941,000975:
017942,000976:
017943,000977: 24,3507 47746 POSN7 CS HALF # Z UP-EAST,Y UP-WEST,X NORTH.THIS POSITON
017944,000978: 24,3510 55402 TS XSM +2
017945,000979: 24,3511 33663 CA ROOT1/2
017946,000980: 24,3512 55406 TS YSM # NBDX - .707 ADSRAX = -DH
017947,000981: 24,3513 55414 TS ZSM
017948,000982: 24,3514 55420 TS ZSM +4
017949,000983: 24,3515 40000 COM
017950,000984: 24,3516 55412 TS YSM +4
017951,000985: 24,3517 06067 GEORGES TC FLAG1DWN # UNSET GIMBAL LOCK FLAG
017952,000986: 24,3520 00200 OCT 200
017953,000987: 24,3521 03454 TC NSBUGD
017954,000988:
017955,000989:
017956,000990: 24,3522 37746 POSN8 CA HALF # Z UP-SOUTH,Y UP-NORTH,X EAST.THIS POSITN
017957,000991: 24,3523 55404 TS XSM +4
017958,000992: 24,3524 33663 CA ROOT1/2 # .707(-NBDZ-NBDY) +.5(ADIAZ-ADIAY)
017959,000993: 24,3525 55406 TS YSM # +.5(ADSRAY +ADSRAZ)=DH
017960,000994: 24,3526 55416 TS ZSM +2
017961,000995: 24,3527 55414 TS ZSM
017962,000996: 24,3530 40000 COM
017963,000997: 24,3531 55410 TS YSM +2
017964,000998: 24,3532 03454 TC NSBUGD
017965,000999:
![]() |
Page 432 |
017967,001001: 24,3533 33664 OPCHKPOS CA ROOT1SQ # OG=+45DEG,IG=-45DEG,MG=+45DEG.
017968,001002: 24,3534 55400 TS XSM
017969,001003: 24,3535 55410 TS YSM +2
017970,001004: 24,3536 55412 TS YSM +4
017971,001005: 24,3537 55414 TS ZSM
017972,001006: 24,3540 33663 CA ROOT1/2
017973,001007: 24,3541 55406 TS YSM
017974,001008: 24,3542 33666 CA ROOT3SQ
017975,001009: 24,3543 55402 TS XSM +2
017976,001010: 24,3544 55420 TS ZSM +4
017977,001011: 24,3545 43665 CS ROOT2SQ
017978,001012: 24,3546 55404 TS XSM +4
017979,001013: 24,3547 55416 TS ZSM +2
017980,001014: 24,3550 01546 TC QPLACE
017981,001015:
017982,001016: 24,3551 37746 POSN9 CA HALF # X UP EAST,Y UP WEST,Z SOUTH.THIS POSITON
017983,001017: 24,3552 55416 TS ZSM +2
017984,001018: 24,3553 33663 CA ROOT1/2 # -NBDZ +.707 SRAZ =DH
017985,001019: 24,3554 55400 TS XSM
017986,001020: 24,3555 55404 TS XSM +4
017987,001021: 24,3556 55406 TS YSM
017988,001022: 24,3557 40000 COM
017989,001023: 24,3560 55412 TS YSM +4
017990,001024: 24,3561 03454 TC NSBUGD
017991,001025:
017992,001026:
017993,001027: 24,3562 37746 POSN10 CA HALF # X UP NORTH, Y UP SOUTH,Z EAST.THIS POSITN
017994,001028: 24,3563 55420 TS ZSM +4
017995,001029: 24,3564 33663 CA ROOT1/2 # .707(NBDY -NBDX) +.5(ADIAY -ADIAX)
017996,001030: 24,3565 55400 TS XSM # +.5(ADSRAX) = DH
017997,001031: 24,3566 55406 TS YSM
017998,001032: 24,3567 55410 TS YSM +2
017999,001033: 24,3570 40000 COM
018000,001034: 24,3571 55402 TS XSM +2
018001,001035: 24,3572 03454 TC NSBUGD
018002,001036:
018003,001037:
018004,001038: 24,3573 05206 POSN11 TC BANKCALL # COMPASS POSITION
018005,001039: 24,3574 73044 CADR LOADXSM
018006,001040: 24,3575 01546 TC QPLACE
018007,001041:
018008,001042:
018009,001043: 24,3576 30342 SHOWLD CA DSPTEM2
018010,001044: 24,3577 55527 TS LENGTHOT
018011,001045: 24,3600 30343 CA DSPTEM2 +1
018012,001046: 24,3601 55536 TS NBPOS
018013,001047: 24,3602 30344 CA DSPTEM2 +2
018014,001048:
![]() |
Page 433 |
018016,001050: 24,3603 55544 TS POSITON
018017,001051: 24,3604 00002 TC Q
018018,001052:
018019,001053: 24,3605 00006 SHOW EXTEND
018020,001054: 24,3606 23546 QXCH QPLACE
018021,001055: 24,3607 31544 SHOW1 CA POSITON
018022,001056: 24,3610 54344 TS DSPTEM2 +2
018023,001057: 24,3611 33643 CA VB06N66
018024,001058: 24,3612 04657 TC NVSBWAIT
018025,001059: 24,3613 04622 TC FLASHON
018026,001060: 24,3614 04475 TC ENDIDLE
018027,001061: 24,3615 02241 TC FINISH
018028,001062: 24,3616 01546 TC QPLACE
018029,001063: 24,3617 03576 TC SHOWLD
018030,001064: 24,3620 13607 TCF SHOW1
018031,001065:
018032,001066:
018033,001067: 24,3621 00006 LOADGTSM EXTEND # THIS LOADS XSM INTO GEOMATRX
018034,001068: 24,3622 23546 QXCH QPLACE
018035,001069: 24,3623 06112 TC INTPRET
018036,001070: 24,3624 77775 VLOAD
018037,001071: 24,3625 02401 XSM
018038,001072: 24,3626 26750 STOVL GEOMTRX
018039,001073: 24,3627 02407 YSM
018040,001074: 24,3630 26756 STOVL GEOMTRX +6
018041,001075: 24,3631 02415 ZSM
018042,001076: 24,3632 02764 STORE GEOMTRX +12D
018043,001077: 24,3633 77776 EXIT
018044,001078: 24,3634 01546 TC QPLACE
018045,001079:
![]() |
Page 434 |
018047,001081: 24,3635 14C EQUALS 0014
018048,001082: 24,3635 02130 V21N30E OCT 02130
018049,001083: 24,3636 04000 DESANGLE DEC 2048 B-14
018050,001084: 24,3637 04143 SFCONST DEC .13107
018051,001085: 24,3640 34000 SIZCHK OCT 34000
018052,001086: 24,3641 00264 180DEC DEC 180 B-14
018053,001087: 24,3642 07626 3990DEC DEC 3990 B-14
018054,001088: 24,3643 00666 VB06N66 OCT 00666
018055,001089: 24,3644 01130 TESTTIME DEC 600 B-14
018056,001090: 24,3645 01620 V16N20S OCT 01620
018057,001091: 24,3646 01640 V16N40S OCT 01640
018058,001092: 24,3647 00021 DEC17 DEC 17 B-14
018059,001093: 24,3650 06200 00000 DEC585 2DEC 3200 B+14
018060,001094:
018061,001095: 24,3652 00400 DELYOFF OCT 00400
018062,001096: 24,3653 00024 35474 ERUNITS 2DEC 342844 B-28
018063,001097:
018064,001098: 24,3655 01506 GENPLAD GENADR AZIMUTH
018065,001099: 24,3656 02521 GYRODPL ECADR GYROD
018066,001100: 24,3657 02500 OGCPL ECADR OGC
018067,001101: 24,3660 77760 LOWFOUR OCT 77760
018068,001102: 24,3661 00070 DEC56 DEC 56 B-14
018069,001103: 24,3662 10000 45DEG OCT 10000
018070,001104: 24,3663 13241 ROOT1/2 DEC .353553
018071,001105: 24,3664 10000 ROOT1SQ DEC .250000
018072,001106: 24,3665 15520 ROOT2SQ DEC .426776
018073,001107: 24,3666 02260 ROOT3SQ DEC .073223
018074,001108: 24,3667 01400 XSMADR GENADR XSM
018075,001109:
018076,001110:
018077,001111: 24,3670 00000 00000 SCNBAZ 2DEC 0 B-28
018078,001112: 24,3672 00000 00000 2DEC 0 B-28
018079,001113: 24,3674 20000 00000 LABNBAZ 2DEC .5
018080,001114: 24,3676 00000 00000 2DEC 0 B-28
018081,001115: 24,3700 00000 00000 2DEC 0 B-28
018082,001116: 24,3702 20000 00000 SCNBVER 2DEC .5
018083,001117: 24,3704 00000 00000 2DEC 0 B-28
018084,001118: 24,3706 00000 00000 LABNBVER 2DEC 0 B-28
018085,001119: 24,3710 00000 00000 2DEC 0 B-28
018086,001120: 24,3712 57777 77777 2DEC -.5
018087,001121:
![]() |
Page 435 |
018089,001123: 24,3714 00144 1SECX DEC 100 B-14
018090,001124: 24,3715 17127 16705 GEORGED 2DEC .47408845
018091,001125: 24,3717 07314 36223 2DEC .23125894
018092,001126: 24,3721 04521 31140 2DEC .14561689
018093,001127: 24,3723 75755 73521 GEORGEC 2DEC -.06360691
018094,001128: 24,3725 72476 54176 2DEC -.16806746
018095,001129: 24,3727 04771 03365 2DEC .15582939
018096,001130: 24,3731 75644 70661 GEORGEB 2DEC -.06806784
018097,001131: 24,3733 47762 75077 2DEC -.75079894
018098,001132: 24,3735 70023 73740 2DEC -.24878704
018099,001133:
018100,001134: 24,3737 05235 DOCHECKG TC MAKECADR
018101,001135: 24,3740 55547 TS QPLACES
018102,001136: 24,3741 02776 TC CHECKG
018103,001137: 24,3742 31547 CA QPLACES
018104,001138: 24,3743 05230 TC BANKJUMP
End of include-file IMU_PERFORMANCE_TESTS_2.agc. Parent file is MAIN.agc