Assembly listing generated by yaYUL

Source Code

These source-code files are part of a reconstructed copy of Sundial E, the final release of the Block II Command Module (CM) Apollo Guidance Computer (AGC) system test software.

They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003053-121, 2003053-151, and 2003972-211, belonging to the MIT Museum.

Since only binary dumps (rather than listings) of Sundial are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

 016170,000002: 016171,000003: 016172,000004: 016173,000005: 016174,000006: 016175,000007: 016176,000008: 016177,000009: 016178,000010: 016179,000011: 016180,000012: 016181,000013: 016182,000014: 016183,000015: 016184,000016: 016185,000017: 17,2000 016186,000018: 17,2000  E5,1400 016187,000019: 016188,000020: 016189,000021: < 016242,000074: 17,2056 016243,000075: 17,2057 016244,000076: 17,2060 016245,000077: 17,2061 016246,000078: 17,2062 016247,000079: 17,2063 016248,000080: 17,2064 016249,000081: 17,2065 < 016357,000189: 17,2231 016358,000190: 17,2232 016359,000191: 17,2233 016360,000192: 17,2234 016361,000193: 17,2235 016362,000194: 17,2236 016363,000195: 016364,000196: 17,2237 016365,000197: 17,2240 016366,000198: 17,2241 016367,000199: 17,2242 016368,000200: 17,2243 016369,000201: 016370,000202: 17,2244 016371,000203: 17,2245 016372,000204: 17,2246 016373,000205: 17,2247 016374,000206: 17,2250 016375,000207: 17,2251 016376,000208: 016377,000209: 17,2252 016378,000210: 17,2253 016379,000211: 016380,000212: 17,2254 016381,000213: 016382,000214: 17,2255 016383,000215: 17,2256 016384,000216: 17,2257 016385,000217: 17,2260 < 016397,000229: 17,2274 016398,000230: 17,2275 < 016458,000290: < 016664,000496: 17,2661 016665,000497: 17,2662 016666,000498: 17,2663 < 016748,000580: 17,2777 016749,000581: 17,3000 < 016799,000631: 17,3051 016800,000632: 17,3052 016801,000633: 17,3053 016802,000634: 17,3054 016803,000635: 17,3055 016804,000636: 17,3056 016805,000637: 17,3057 016806,000638: 17,3060 016807,000639: 17,3061 016808,000640: 17,3062 016809,000641: 17,3063 < 017009,000841: 17,3347 017010,000842: 17,3350 017011,000843: 17,3351 < 017019,000851: 17,3356 017020,000852: 17,3357 017021,000853: 17,3360 017022,000854: 17,3361 017023,000855: 017024,000856: 017025,000857: < 017027,000859: 17,3363 017028,000860: 17,3364 017029,000861: 17,3365 017030,000862: 17,3366 < 017040,000872: 17,3375 017041,000873: 17,3376 017042,000874: 17,3377 017043,000875: 17,3400 017044,000876: 17,3401 017045,000877: 17,3402 017046,000878: 17,3403 017047,000879: 17,3404 017048,000880: 17,3405 017049,000881: 17,3406 017050,000882: 17,3407 < 017056,000888: 17,3414 017057,000889: 17,3415 017058,000890: 17,3416 017059,000891: 17,3417 017060,000892: 17,3420 017061,000893: 17,3421 017062,000894: 17,3422 017063,000895: 017064,000896: 017065,000897: 017066,000898: 017067,000899: 017068,000900: 017069,000901: 017070,000902: < 017072,000904: 17,3424 017073,000905: 17,3425 017074,000906: 17,3426 017075,000907: 17,3427 < 017083,000915: 17,3434 017084,000916: 17,3435 017085,000917: 17,3436 017086,000918: 17,3437 017087,000919: 17,3440 017088,000920: 17,3441 017089,000921: 17,3442 < 017097,000929: 17,3447 017098,000930: 17,3450 017099,000931: 17,3451 017100,000932: 17,3452 017101,000933: 17,3453 017102,000934: 17,3454 017103,000935: 17,3455 017104,000936: 17,3456 017105,000937: < 017122,000954: 17,3476 017123,000955: 17,3477 017124,000956: 17,3500 017125,000957: 17,3501 017126,000958: 17,3502 017127,000959: 17,3503 017128,000960: 17,3504 017129,000961: 17,3505 017130,000962: 017131,000963: 017132,000964: < 017199,001031: 17,3575 017200,001032: 17,3576 017201,001033: 17,3577 017202,001034: 17,3600 017203,001035: 17,3601 017204,001036: 17,3602 017205,001037: 17,3603 017206,001038: 17,3604 017207,001039: 17,3605 017208,001040: 017209,001041: 017210,001042: 017224,001056: < < < < < 017268,001100:

## Copyright: Public domain. ## Filename: IMU_PERFORMANCE_TESTS_2.agc ## Purpose: A section of Sundial E. ## It is part of the reconstructed source code for the final ## release of the Block II Command Module system test software. No ## original listings of this program are available; instead, this ## file was created via disassembly of dumps of Sundial core rope ## modules and comparison with other AGC programs. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2023-06-22 MAS Created from Aurora 12. ## 2023-06-30 MAS Updated for Sundial E. BANK 17 EBANK= XSM 4">016190,000022: 17,2000 37657 IMUTEST CA ZERO 55637 TS DRIFTT 55704 TS GEOCOMPS 55712 TS SINGAZ 55713 TS SINGAZ +1 55715 TS COSGAZ +1 37635 CAF HALF 55714 TS COSGAZ 454">016198,000030: 17,2010 06000 GEOIMUTT TC INTPRET # OPTIMUM COMPASS COMES IN HERE 77634 CALL 14541 LATAZCHK 77776 EXIT 37652 CA ONE 55544 TS POSITON 54340 TS DSPTEM2 +2 37657 CA ZERO 54402 TS THETAD +2 04064 TC BANKCALL 26000 CADR IMUZERO 04064 TC BANKCALL 26730 CADR IMUSTALL 13737 TCF ENDTEST1 B">016213,000045: 17,2026 37657 IMUBACK CA ZERO 54337 TS DSPTEM2 +1 55537 TS NDXCTR 55611 TS TORQNDX 55612 TS TORQNDX +1 33631 CAF TESTTIME 54336 TS DSPTEM2 37657 CAF ZERO 54402 TS THETAD +2 04064 TC BANKCALL # ISS RETURNS IN COARSE ALIGN MODE TO 26055 CADR IMUCOARS # ENABLE OPERATOR TO DECIDE WHAT TO DO # ABOUT GIMBAL LOCK 04064 TC BANKCALL 26730 CADR IMUSTALL 13737 TCF ENDTEST1 03563 TC SHOWLD 03572 TC SHOW 03263 TC NBPOSPL 03023 TC POSGMBL 02110 TC PIPACHK # IF MGA IS 60DEG+ PROG WILL STAY IN COARS # ALIGN AND MEASURE VERITCAL PIPA RATE 03050 TC FALNE 04064 TC BANKCALL 26730 CADR IMUSTALL 13737 TCF ENDTEST1 /a>016241,000073: 17,2055 06000 GUESS TC INTPRET # CALCULATE -COS LATITUDE AND SIN LATITUDE 71545 DLOAD COS # FOR ESTIMATE 01511 LATITUDE 72476 DCOMP SL1 07610 STODL WANGI 01511 LATITUDE 72556 SIN SL1 01606 STORE WANGO # LOAD TRANSITION MATRIX INTO ERASABLE 77776 EXIT 144">016250,000082: 17,2066 03606 JUMPLOAD TC LOADGTSM 04064 TC BANKCALL 34000 CADR ESTIMS >016253,000085: 17,2071 04517 TORQUE TC PHASCHNG # FILTER TORQUES PLTFM AND SETS UP ERATE 00000 OCT 00000 06000 TC INTPRET 77634 CALL 14416 ERTHRVSE 77776 EXIT 04064 TC BANKCALL 14740 CADR OGCZERO 37657 CA ZERO 54336 TS DSPTEM2 31635 CA DRIFTI 54337 TS DSPTEM2 +1 51544 INDEX POSITON 55551 TS SOUTHDR -1 03572 TC SHOW B">016272,000104: 17,2110 51537 PIPACHK INDEX NDXCTR # TORQUE PLATFORM TO CORRECT LEVELING ERR 02112 TC +1 # IN PREPARATION TO MEASURING VERTICAL 04064 TC BANKCALL # PIPA OUTPUT PULSE RATE 14433 CADR EARTHR 37641 CA BIT10 # IN THE ALLOTED TIME INTERVAL 55527 TS LENGTHOT 37652 CA ONE 55672 TS RESULTCT 37657 CA ZERO # ZERO PIPA COUNTER INITIALLY 51541 INDEX PIPINDEX 54037 TS PIPAX 55625 TS DATAPL 55631 TS DATAPL +4 33646 CA DEC18 # LOOP 18 TIMES 5.12 SEC "ACH. EACH INCR. 03131 TC WAITLOOP # WILL ALSO CORRECT EARTH RATE 51672 INDEX RESULTCT 02131 TC +1 30000 CA A 00004 INHINT 02715 TC CHECKG 00003 RELINT 03011 TC DATALD 37227 CA FIVE 55672 TS RESULTCT 51537 INDEX NDXCTR 02142 TC +1 04064 TC BANKCALL 14433 CADR EARTHR 11675 CCS COUNTPL 03146 TC WAITLP2 00004 INHINT 02715 TC CHECKG 00003 RELINT 03011 TC DATALD 00006 EXTEND 41626 DCS DATAPL 21632 DAS DATAPL +4 06000 TC INTPRET 45345 DLOAD DSU 01634 DATAPL +6 01630 DATAPL +2 56325 PDDL DDV 01632 DATAPL +4 77612 SL4 41325 PDDL DMP 37636 DEC585 77624 RTB 11600 SGNAGREE 00337 STORE DSPTEM2 77776 EXIT 03572 TC SHOW 654">016325,000157: 17,2173 33627 VERTDRFT CA 3998DEC # NUMBER OF SECONDS TO SPEND ESTIMATING 55527 TS LENGTHOT 51544 INDEX POSITON 41550 CS SOUTHDR -2 55637 TS DRIFTT 03606 TC LOADGTSM 04064 TC BANKCALL # THIS WILL CORRECT FOR EARTH RATE DURING 14433 CADR EARTHR # TIME SPENT IN SHOW ABOVE* 30032 CA CDUX # STOORE AXIS FOR LAB CALC OF DRIFT 55530 TS LOSVEC 37657 CA ZERO # ALLOW ONLY SOUTH GYRO EARTH RATE COMPENS 55400 TS XSM 55401 TS XSM +1 55404 TS XSM +4 55405 TS XSM +5 55406 TS YSM 55407 TS YSM +1 55412 TS YSM +4 55413 TS YSM +5 55414 TS ZSM 55415 TS ZSM +1 55420 TS ZSM +4 55421 TS ZSM +5 >016349,000181: 17,2222 37632 GUESS1 CAF POSMAX 55611 TS TORQNDX 55612 TS TORQNDX +1 04064 TC BANKCALL 34000 CADR ESTIMS 03717 TC VALMIS /a>016356,000188: 17,2230 33637 OPCHK CAF DELYOFF # AUTOMATIC TEST FOR SYSTEM OPERATION 00006 EXTEND 02030 RAND 30 # CHECK TO SEE IF IMU IS ON 10000 CCS A 02366 TC ALARMS 33632 CAF V16N20S 05563 TC NVSBWAIT 05632 TC FREEDSP 04064 TC BANKCALL 26000 CADR IMUZERO 04064 TC BANKCALL 26730 CADR IMUSTALL 13737 TCF ENDTEST1 37643 CA BIT8 # ZERO ALL ERASEABLE USED IN TEST 55753 TS ZERONDX 33642 CA GENPLAD 03155 TC ZEROING 03263 TC NBPOSPL # ALIGN ANGLE COMPUTATION 03023 TC POSGMBL # COARSE ALIGN THOSE GIMBALS NOW 05677 TC ABORT 03050 TC FALNE # FINE ALIGN PLATFORM BY TORQUING GYROS 04064 TC BANKCALL 26730 CADR IMUSTALL 13737 TCF ENDTEST1 37651 CA TWO 34B">016386,000218: 17,2261 55671 CDUCHECK TS CDUNDX # THIS LOOP CHECKS FOR NO ERROR BETWEEN 51671 INDEX CDUNDX # DESIRED CDU ANGLES AND THE ACTUAL ANGLES 40400 CS THETAD 51671 INDEX CDUNDX 60032 AD CDUX 55551 TS STOREPL 11551 CCS STOREPL 02276 TC ERRMASK 02273 TC NOERR 02276 TC ERRMASK /a>016396,000228: 17,2273 11671 NOERR CCS CDUNDX 02261 TC CDUCHECK 02302 TC LOADIC B">016399,000231: 17,2276 73645 ERRMASK MASK LOWTWO # ALLOW THREE BIT ERRORS 10000 CCS A 02366 TC ALARMS 02273 TC NOERR >016403,000235: 17,2302 37652 LOADIC CA ONE 55672 TS RESULTCT 47652 CS ONE 55667 TS MASKREG # SETS UP AZIMUTH AND VERTICAL VECTORS FOR 37657 CA ZERO 54037 TS PIPAX 54040 TS PIPAY 54041 TS PIPAZ 37636 CA BIT13 55527 TS LENGTHOT # VECTOR IN PIPA COUNTERS 37652 CA ONE 03131 TC WAITLOOP 11675 CCS COUNTPL 03146 TC WAITLP2 33705 CA DEC13 03131 TC WAITLOOP >016422,000254: 17,2322 37651 OPCHK1 CA TWO >016423,000255: 17,2323 55541 OPCHK2 TS PIPINDEX 00004 INHINT 02715 TC CHECKG 00003 RELINT 37657 CA ZERO 51541 INDEX PIPINDEX 54037 TS PIPAX 03011 TC DATALD # LOAD PIPA DATA AND TIME IN DATAPL 57672 XCH RESULTCT 67650 AD FOUR 55672 TS RESULTCT 11541 CCS PIPINDEX 02323 TC OPCHK2 4">016436,000268: 17,2340 47650 READOUT CS FOUR 61672 AD RESULTCT 55672 TS RESULTCT 22007 ZL 51672 INDEX RESULTCT 31625 CA DATAPL 22000 LXCH A 51672 INDEX RESULTCT 21571 DAS GENPL +1 31672 CA RESULTCT 71667 MASK MASKREG 10000 CCS A 02340 TC READOUT 37654 CA TEN 66165 AD THREE 55672 TS RESULTCT 40000 CS A 55667 TS MASKREG 11675 CCS COUNTPL 03146 TC WAITLP2 03167 TC COMPUT /a>016457,000289: 17,2365 13737 RADCK TCF ENDTEST1 # NO RADAR IN CM >016459,000291: 17,2366 56002 ALARMS XCH Q 55546 TS QPLACE 05644 TC ALARM 01411 OCT 1411 01546 TC QPLACE 354">016465,000297: 17,2373 06000 GYRSFTST TC INTPRET # START ADRESS FOR IRIG SF TEST 77634 CALL 14541 LATAZCHK # LOAD AZ AND LAT 77776 EXIT C4C">016469,000301: 17,2377 33622 TESTCALL CAF V21N30E 05563 TC NVSBWAIT # LOAD + OR - 1 FOR + OR - X TEST (+00001) 04724 TC ENDIDLE # LOAD + OR - 2 FOR + OR - Y TEST 13737 TCF ENDTEST1 # LOAD + OR - 3 FOR + OR - Z TEST 02377 TC TESTCALL 56333 XCH DSPTEM1 55613 TS CALCDIR 00006 EXTEND # THIS ROUTINE LOOKS AT THE SIZE OF THE 62414 BZMF NEGSIZ # ENTRY MADE BY THE OPERATOR, IF HE DID NO B">016478,000310: 17,2410 77663 SIZLOOK MASK NEG3 # T ENTER TEST NO THAT IS W/I PERMISSIBLE 00006 EXTEND # RANGE- HE WILL BE ASKED TO LOAD AGAIN. 13741 BZF GUDENT1 # THIS IS CONSIDERED NECESSARY BECAUSE 02377 TC TESTCALL # OF FOLLOWING INDEXED TC WHICH COULD >016483,000315: 17,2414 40000 NEGSIZ COM # SEND THE COMPUTER OFF INTO THE BOONDOCKS 02410 TC SIZLOOK # TO PLAY WITH ITSELF IF THE OPERATOR 259">016485,000317: 17,2416 31613 GUDENTRY CA CALCDIR # MAKES ABAD ENTRY****** 67650 AD FOUR 50000 INDEX A 02422 TC +1 02377 TC TESTCALL 02431 TC +6 # C(A)=+00001 FOR -Z 02430 TC +4 # C(A)=+00002 FOR -Y 02427 TC +2 # C(A)=+00003 FOR -X 02422 TC -4 # C(A)=+00004 ERROR 02432 TC +3 # C(A)=+00005 FOR +X 02436 TC +6 02441 TC +10 37650 CAF FOUR 55544 TS POSITON # 4 IS FOR A.L. POSN 4 USED FOR X SF TEST 02443 TC +7 02443 TC +6 37651 CAF TWO 55544 TS POSITON # +2 IS A.L. POS 2 USED FOR Y SF TEST 02443 TC +3 37652 CAF ONE 55544 TS POSITON # +1 IS A.L. POS 1 USED FOR Z SF TEST 55616 TS OPTNREG # C(K) = (4,2,1) FOR X,Y,Z 55620 TS SAVE +1 05632 TC FREEDSP 37657 CAF ZERO 55536 TS NBPOS # SET UP NB COORD TO Z NORTH, X UP 55621 TS SAVE +2 # INITIALIZE FOR EARTHR DESIGNATE USAGE 55563 TS TESTNO # INITIALIZE FOR TEST ABORT ROUTINE 55614 TS CDUFLAG # ZEROS FOR STRTWACH USE 33624 CAF SFCONST 55622 TS SFCONST1 # FOR DIVISION DURING CALCFSE 04064 TC BANKCALL 26000 CADR IMUZERO 04064 TC BANKCALL 26730 CADR IMUSTALL 13737 TCF ENDTEST1 03263 TC NBPOSPL 03023 TC POSGMBL 13737 TCF ENDTEST1 03050 TC FALNE 04064 TC BANKCALL 31106 CADR REDYTORK 645">016529,000361: 17,2470 55552 WAITFIVE TS SOUTHDR 37645 CAF BIT6 # THIS SECTION CALLS FOR 2-32 MSEC WAITS 02505 TC DIRECTN -5 >016532,000364: 17,2473 37645 ENABLE CAF BIT6 00006 EXTEND # ENABLE GYRO TORQUING LOOP BY TURNING 05014 WOR 14C # ON CAL MODULE RELAY 00004 INHINT 47651 CS TWO # SETS UP EXEC SWITCH SO IMUPULSE WILL 70362 MASK IMODES33 # NOT TURN OFF GYRO TORQ ENABLE RELAY 67651 AD TWO 54362 TS IMODES33 37651 CAF TWO 55552 TS SOUTHDR 55527 TS LENGTHOT # 20 MSEC DELAY FOR GYRO LOOP STABILIZAT. 37652 CA ONE 03131 TC WAITLOOP 11675 CCS COUNTPL 03146 TC WAITLP2 E">016548,000380: 17,2512 04064 DIRECTN TC BANKCALL # TORQUING ROUTINE IN IMU PERFORMANCE 31050 CADR SILVER # BANK 3 11552 CCS SOUTHDR # A ONE FIRST TIME THROUGH, THEN ZERO 02470 TC WAITFIVE 348">016553,000385: 17,2516 11614 STRTWACH CCS CDUFLAG # RETURNS HERE VIA QPLACE FROM SILVER 02600 TC CDUZOTST # BEEN CAUGHT AND CDU THROUGH ZERO IS 11620 CCS SAVE +1 02540 TC LOOKCDUP -4 02544 TC LOOKCDUP 4">016558,000390: 17,2523 37657 CORRECT CAF ZERO 54351 TS LGYRO # RELEASES GYROS FOR IMUPULSE USAGE 04064 TC BANKCALL # EARTHRATE CORRECTION TO GYROS NOT EAST 14433 CADR EARTHR # OR WEST 37652 CAF ONE 54351 TS LGYRO # RESERVES GYROS FOR S.F. TEST TORQUING 55621 TS SAVE +2 # INITIALIZES TO INSURE 5.6 DEG OF TORQ) 27563 ADS TESTNO # INCR THE BURST COUNTER, WHICH IS USED TO 41563 CS TESTNO # COUNT THE NO. OF ITMES THE GYRO COUNTER 77227 MASK FIVE # IS LOADED, IF A TENTH LOAD IS REQUESTED 00006 EXTEND # THE SFE IS TOO LARGE TO BE MEANINGFULL 12706 BZF STOPTEST # OR THE CDU,S ARE NOT WORKING. 02512 TC DIRECTN 37657 CAF ZERO # ZEROS CDU REG WHICH WILL BE USED TO 55620 TS SAVE +1 51671 INDEX CDUNDX # MEASURE ANGLE. 54032 TS CDUX 550">016577,000409: 17,2544 00004 LOOKCDUP INHINT 37646 CAF BIT5 F4B">016579,000411: 17,2546 55623 STILLOOK TS TIMER 51671 INDEX CDUNDX # LOOKS FOR FIRST CDU PULSE AFTER TORQUING 10032 CCS CDUX # STARTS 02563 TC OUTPLUS # HERE IS PLUS PULSE 02555 TC TIMEWACH 02366 TC ALARMS # TTELL OPERATOR FIRST CDU PULSE WAS MISSD 02574 TC OUTNEG # HERE IS MINUS PULSE 348">016586,000418: 17,2555 11623 TIMEWACH CCS TIMER # WATCHES TIME IN INHINT SO COPS WILL NOT 02546 TC STILLOOK # CATCH US 00003 RELINT 10067 CCS NEWJOB 04317 TC CHANG1 02544 TC LOOKCDUP # KEEP WATCHING IF THE PULSE IS NOT HERE 3">016594,000426: 17,2563 43623 OUTPLUS CS DESANGLE # -2047 CDU PULSES ADDED TO CDU REG SO 51671 INDEX CDUNDX # ZERO CROSSOVER CAN BE DETECTED 54032 TS CDUX 147">016597,000429: 17,2566 37652 LOADFLAG CAF ONE 55614 TS CDUFLAG 30047 CA GYROCTR # GYRO TORQ CMDS LEFT OUT OF FIRST 5.625 55617 TS SAVE # DEG COMMANDED WHEN CDU PULSE ARRIVED 00003 RELINT 02600 TC CDUZOTST >016604,000436: 17,2574 33623 OUTNEG CA DESANGLE 51671 INDEX CDUNDX 54032 TS CDUX 02566 TC LOADFLAG 354">016609,000441: 17,2600 51671 CDUZOTST INDEX CDUNDX 10032 CCS CDUX 02606 TC +4 02623 TC ENDWATCH 02606 TC +2 02623 TC ENDWATCH 37641 CAF BIT10 # RAND WITH BIT 10 TO SEE IF STILL TORQ. 00006 EXTEND 02014 RAND 14C 10000 CCS A 02620 TC +6 11621 CCS SAVE +2 # SEE IF 2.8DEG OR 5.6 DEG SINCE LAST 02616 TC +2 # EEARTHR USE, IF 2.8 DEG, DO 2.8 MORE 02523 TC CORRECT # THEN GO TO CORRECT 55621 TS SAVE +2 02512 TC DIRECTN 10067 CCS NEWJOB 04317 TC CHANG1 02600 TC CDUZOTST 348">016631,000463: 17,2623 00004 ENDWATCH INHINT # WWILL STOR GYROCTR AT END OF 2048 CDU 37657 CAF ZERO # PULSES AND STOP TORQ BY ZEROING REQUESTS 54351 TS LGYRO # RELEASE GYROS FOR OTHERS USAGE 56047 XCH GYROCTR 55620 TS SAVE +1 # AND STOPS TORQUING BY ZEROING TORQ 47651 CS TWO 70362 MASK IMODES33 # THIS TURNS OFF EXEC SWITCH SO THE GYRO 54362 TS IMODES33 # TORQ. ENABLE RELAY CAN BE TURNED OFF. 00003 RELINT 5">016640,000472: 17,2634 31617 CALCSFE CA SAVE # GYROCTR AT TEST START 00006 EXTEND 61620 SU SAVE +1 # GYROCTR AT TEST END 55621 TS SAVE +2 00006 EXTEND 62660 BZMF ARITH # SEE IF IT IS NEG OR ZERO,IF NEG,SFE IS + 73625 MASK SIZCHK 00006 EXTEND # THIS ROUTINE TESTS SAVE-(SAVE+1) TO SEE 12652 BZF NEGSFE # IF THE RESULT IS WITHIN PERMISSIBLE SIZE 41621 CS SAVE +2 # AND DETERMINES POLARITY OF SFE USING THE 73625 MASK SIZCHK # PRESENCE OR ABSENCE OF BITS 12,13,14. 00006 EXTEND # IF BITS ARE PRESENT IN POSITIVE SAVE +2 12654 BZF POSSFE # THEN THE SFE MUST BE POS. IF DIFFERENCE 02706 TC STOPTEST # IS GREATER THAN 2047 PULSES FROM THE >016654,000486: 17,2652 31621 NEGSFE CAE SAVE +2 # IDEAL NO OF PULSES, THE SFE EXCEEDS 02660 TC ARITH # 15600 PPM, THE TEST IS NOT VALID AND # THEREFORE ABORTS AND TURNS ON PROGRAM ALARM >016658,000490: 17,2654 37632 POSSFE CAF POSMAX # POS SFE DEFINITION = IRIG SF IN SEC OF 00006 EXTEND # ARC PER PULSE IS GREATER THAN 61621 SU SAVE +2 # .61798095703125 SEC OF ARC/ PULSE 02661 TC ARITH +1 /a>016663,000495: 17,2660 40000 ARITH COM 22007 ZL 00006 EXTEND 11622 DV SFCONST1 >016667,000499: 17,2664 54336 LOADIT TS DSPTEM2 02666 TC DATADSP 0">016671,000503: 17,2666 05535 DATADSP TC GRABDSP 05543 TC PREGBSY 31613 CA CALCDIR 54340 TS DSPTEM2 +2 # DISPLAYS TEST NO JUST PERFORMED 33630 CAF VB06N66 # R3 = TEST NO JUST PERFORMED 05563 TC NVSBWAIT 05525 TC FLASHON 04724 TC ENDIDLE # TO END TEST DO V34E 02700 TC +2 02377 TC TESTCALL # TO CONTINUE TEST DO V33E 431">016681,000513: 17,2700 04064 STOPTST1 TC BANKCALL 26000 CADR IMUZERO 04064 TC BANKCALL 26730 CADR IMUSTALL 13737 TCF ENDTEST1 13737 TCF ENDTEST1 354">016688,000520: 17,2706 05644 STOPTEST TC ALARM 01604 OCT 1604 37657 CAF ZERO 54351 TS LGYRO # **** RELEASE GYROS FOR OTHERS USAGE***** 02700 TC STOPTST1 04064 TC BANKCALL 37737 CADR ENDTEST1 >016696,000528: 17,2715 00006 CHECKG EXTEND # PIP PULSE CATCHING ROUTINE 23546 QXCH QPLACE # RECORDS TIME AT OCCURRENCE OF A DELTA V 1">016698,000530: 17,2717 00003 CHECKG1 RELINT # KEEPS CONTENT OF PIPA REG INTACT 10067 CCS NEWJOB 04317 TC CHANG1 00004 INHINT 37657 CAF ZERO 51541 INDEX PIPINDEX 56037 XCH PIPAX 55551 TS STOREPL 11551 CCS STOREPL 02734 TC CHECKP 03007 TC RESTOREA 02747 TC CHECKM 03007 TC RESTOREA >016711,000543: 17,2734 37645 CHECKP CAF BIT6 # LOOKS FOR ONE MORE PLUS PULSE 55540 TS PIPANO 51541 INDEX PIPINDEX 10037 CCS PIPAX 02762 TC CHECKG3 02744 TC +3 03007 TC RESTOREA 02744 TC +1 11540 CCS PIPANO 02735 TC CHECKP +1 03007 TC RESTOREA >016722,000554: 17,2747 37645 CHECKM CAF BIT6 # LOOKS FOR ONE MORE MINUS PULSE 55540 TS PIPANO 51541 INDEX PIPINDEX 10037 CCS PIPAX 03007 TC RESTOREA 02757 TC +3 02762 TC CHECKG3 02757 TC +1 11540 CCS PIPANO 02750 TC CHECKM +1 03007 TC RESTOREA 3">016733,000565: 17,2762 05721 CHECKG3 TC FINETIME # TIME IN DOUBLE PRECISION LEFT IN MPAC 52141 DXCH MPAC 37647 CAF BIT4 5">016737,000569: 17,2765 55540 CHECKG5 TS PIPANO 51541 INDEX PIPINDEX 10037 CCS PIPAX 02774 TC +4 03007 TC RESTOREA 02774 TC +2 03007 TC RESTOREA 11540 CCS PIPANO 02765 TC CHECKG5 /a>016747,000579: 17,2776 03001 NREAD TC RESTORE 55551 TS STOREPL 01546 TC QPLACE 5">016750,000582: 17,3001 57551 RESTORE XCH STOREPL # A WILL CONTAIN PREVIOUS PIPA CNTR CONTEN 51541 INDEX PIPINDEX # STOREPL WILL CONTAIN ZERO 60037 AD PIPAX 51541 INDEX PIPINDEX 54037 TS PIPAX 00002 TC Q 541">016757,000589: 17,3007 03001 RESTOREA TC RESTORE 02717 TC CHECKG1 >016759,000591: 17,3011 31551 DATALD CA STOREPL 51672 INDEX RESULTCT 55625 TS DATAPL 30140 CA MPAC 51672 INDEX RESULTCT 55626 TS DATAPL +1 30141 CA MPAC +1 51672 INDEX RESULTCT 55627 TS DATAPL +2 00002 TC Q C">016774,000606: 17,3023 00006 POSGMBL EXTEND # COARSE ALIGNING SUBROUTINE 23546 QXCH QPLACE 06000 TC INTPRET 77634 CALL 16226 CALCGA 77776 EXIT 04064 TC BANKCALL 26055 CADR IMUCOARS 33047 CA GMLOCKCK # IF FAILREG CONTAINS 401 WILL RETURN TO 71363 MASK FAILREG 10000 CCS A # L +1, OTHERWISE TO L +2. 03041 TC LOCK 25546 INCR QPLACE 03043 TC +3 >016790,000622: 17,3041 37651 LOCK CA TWO 55537 TS NDXCTR 04064 TC BANKCALL 26730 CADR IMUSTALL 13737 TCF ENDTEST1 01546 TC QPLACE 34B">016796,000628: 17,3047 00401 GMLOCKCK OCT 00401 /a>016798,000630: 17,3050 00006 FALNE EXTEND # TORQUES GYROS TO NULL OVT DIFFERENCE 23546 QXCH QPLACE # BETWEEN DESIRED SM ORIENTATION WITH RESP 04064 TC BANKCALL # TO NBASE AND ACTUAL 26000 CADR IMUZERO 04064 TC BANKCALL 26730 CADR IMUSTALL 13737 TCF ENDTEST1 04064 TC BANKCALL 26227 CADR IMUFINE 04064 TC BANKCALL 26730 CADR IMUSTALL 13737 TCF ENDTEST1 >016810,000642: 17,3064 30032 FALNE1 CA CDUX 50104 INDEX FIXLOC 54024 TS 24 30033 CA CDUY 50104 INDEX FIXLOC 54020 TS 20 30034 CA CDUZ 50104 INDEX FIXLOC 54022 TS 22 37646 CA BIT5 60104 AD FIXLOC 50104 INDEX FIXLOC 54050 TS S1 06000 TC INTPRET 64375 VLOAD MXV 01401 XSM 01445 STARAD 77772 VSL1 36041 STCALL 32D 16130 NBSM 23423 STOVL XDC 01407 YSM 76521 MXV VSL1 01445 STARAD 36041 STCALL 32D 16130 NBSM 23431 STOVL YDC 01423 XDC 76435 VXV VSL1 01431 YDC 37437 STCALL ZDC 16000 CALCGTA 77776 EXIT 33644 CA OGCPL 04064 TC BANKCALL 26333 CADR IMUPULSE 01546 TC QPLACE F50">016848,000680: 17,3131 00006 WAITLOOP EXTEND # LOOPS IN X SEC INCREMENTS FOR NUMBER OF 23545 QXCH QPLAC 55675 TS COUNTPL # NUMBER PUT INTO LENGTHOT 1">016851,000683: 17,3134 11675 WAITLP1 CCS COUNTPL 03137 TC +2 01545 TC QPLAC 00004 INHINT 31527 CAE LENGTHOT 04451 TC WAITLIST 03152 36005 2CADR WAITLP3 00003 RELINT 01545 TC QPLAC 2">016861,000693: 17,3146 55675 WAITLP2 TS COUNTPL # ENTER HERE AFTER DOING CALLING JOB 33151 CAF WTLPCADR 04331 TC JOBSLEEP 452">016864,000696: 17,3151 37134 WTLPCADR CADR WAITLP1 3">016865,000697: 17,3152 33151 WAITLP3 CAF WTLPCADR 04335 TC JOBWAKE 04505 TC TASKOVER 7">016873,000705: 17,3155 54001 ZEROING TS L 13160 TCF +2 731">016875,000707: 17,3157 55753 ZEROING1 TS ZERONDX 37657 CAF ZERO 50001 INDEX L 54000 TS 0 24001 INCR L 11753 CCS ZERONDX 13157 TCF ZEROING1 00002 TC Q >016883,000715: 17,3167 06000 COMPUT TC INTPRET # CALCULATE LENGTH OF GRAVITY VECTOR AS 77170 AXT,1 AXT,2 # MEASURED BY ACCELEROMETERS 00026 22D 00012 10D 77731 SSP 00051 S1 00004 4 77731 SSP 00052 S2 00004 4 F50">016894,000726: 17,3201 44743 LOPDELOP DLOAD* DSU* 76121 DATAPL +24D,2 01656 DATAPL +24D,1 41323 PDDL* DMP 76157 GENPL +24D,2 37636 DEC585 42471 DDV SL4 55504 TIX,2 VDEF 37216 NEXT 45046 ABVAL RTB 11600 SGNAGREE 36337 STCALL DSPTEM2 37220 KODU >016907,000739: 17,3216 60006 NEXT PUSH TIX,1 37201 LOPDELOP >016909,000741: 17,3220 77776 KODU EXIT 05550 TC GRABWAIT 03572 TC SHOW 06000 TC INTPRET 41535 SLOAD PUSH 01627 DATAPL +1 41535 SLOAD PUSH 01633 DATAPL +5 55535 SLOAD VDEF 01637 DATAPL +11 76456 UNIT VSL1 77606 PUSH 41535 SLOAD PUSH 01643 DATAPL +15 41535 SLOAD PUSH 01647 DATAPL +21 55535 SLOAD VDEF 01653 DATAPL +25 76456 UNIT VSL1 45325 PDDL DSU 01654 DATAPL +26 01640 DATAPL +12 77612 SL4 77652 SL3 23530 STOVL LENGTHOT 51435 VXV ABVAL 56205 DMP DDV 37641 ERUNITS 01530 LENGTHOT 77624 RTB 11600 SGNAGREE 00337 STORE DSPTEM2 77776 EXIT 03572 TC SHOW 12365 TCF RADCK C">016945,000777: 17,3263 00006 NBPOSPL EXTEND # SETS UP AZIMUTH AND VERTICAL VECTORS FOR 23546 QXCH QPLACE # AXISGEN,RESULTS TO BE USED IN CALCGA TO 06000 TC INTPRET 54160 AXC,1 XSU,1 # AZIMUTH IN NB COORDS 37655 SCNBAZ 01536 NBPOS 77773 VLOAD* 00001 0,1 01445 STORE STARAD 54160 AXC,1 XSU,1 # VERITCAL IN NB COORDS 37671 SCNBVER 01536 NBPOS 77773 VLOAD* 00001 0,1 07453 STODL STARAD +6 16711 ZERODP 06007 STODL 6D 01507 AZIMUTH 57546 COS DCOMP 06011 STODL 8D 01507 AZIMUTH 77756 SIN 00013 STORE 10D # VERTICAL IN CER 77775 VLOAD 37672 SCNBVER 36015 STCALL 12D 16344 AXISGEN 77776 EXIT E">016975,000807: 17,3317 33634 SELPOSN CA DEC17 55753 TS ZERONDX 33654 CA XSMADR 03155 TC ZEROING 51544 INDEX POSITON 03325 TC +1 03457 TC OPCHKPOS # OPCHK WILL PUT ZERO IN POSITON 03346 TC POSN1 03355 TC POSN2 03362 TC POSN3 03374 TC POSN4 03413 TC POSN5 03423 TC POSN6 03433 TC POSN7 03446 TC POSN8 03475 TC POSN9 03506 TC POSN10 03517 TC POSN11 03525 TC POSN12 03533 TC POSN13 03541 TC POSN14 03547 TC POSN15 03555 TC POSN16 # WE WILL DENOTE THE FLASHING DISPLAY OF A HORIZONTAL TEST BY DH # (XXX.XX MERU) AND A VERTICAL TEST BY DV (XXX.XX MERU) EACH POSITION TELL # HOW THE DISPLAYS ARE RELATED TO TTHE DRIFT COEFFICIENTS BEING MEASURED. # NOTE THAT IT IS ILLEGAL TO RUN VERTICAL IN POS 6,4, OR 2 WITHOUT FIRST # RUNNING HORIZONTAL OF POS 5,3, OR1. THIS IS BECAUSE THE HORIZ DRIFT CALC # IN 1,3, OR 5 IS USED AS EAST DRIFFFT FOR VERTICAL TEST. THIS IS DONE BY # THE MACHINE AUTOMATICALLY EXCEPT FOR VERTICAL POSITION 6 WHICH THE # OPERATOR MUST DO. (SEE POSITION 6 BELOW) /a>017008,000840: 17,3346 37635 POSN1 CA HALF # X UP, Y SOUTH, Z EAST 55400 TS XSM 55410 TS YSM +2 # NBDY = DH 55420 TS ZSM +4 >017012,000844: 17,3352 37657 NGUBGH CA ZERO 55541 TS PIPINDEX 01546 TC QPLACE /a>017018,000850: 17,3355 47635 POSN2 CS HALF # X DOWN, Y WEST, Z NORTH 55400 TS XSM 55412 TS YSM +4 # NBDZ =DH ,NBDX -ADIAX= -DV 55416 TS ZSM +2 03352 TC NGUBGH /a>017026,000858: 17,3362 37635 POSN3 CA HALF # Z UP, Y WEST ,X NORTH 55414 TS ZSM 40000 COM # NBDX = -DH 55402 TS XSM +2 55412 TS YSM +4 4">017031,000863: 17,3367 37651 NSFLAGD CA TWO 55541 TS PIPINDEX >017033,000865: 17,3371 37657 NSBUGD CA ZERO 55637 TS DRIFTT 01546 TC QPLACE /a>017039,000871: 17,3374 47635 POSN4 CS HALF # Y SOUTH, X EAST, Z DOWN 55414 TS ZSM # NBDY +ADSRAY=DH 06000 TC INTPRET # NBDZ +ADIAZ =DV 77745 DLOAD 01713 SINGAZ 01413 STORE YSM +4 77676 DCOMP 07403 STODL XSM +2 01715 COSGAZ 01411 STORE YSM +2 01405 STORE XSM +4 77776 EXIT >017051,000883: 17,3410 37651 NSFLAG CA TWO 55541 TS PIPINDEX 01546 TC QPLACE /a>017055,000887: 17,3413 37635 POSN5 CA HALF # Y UP, Z NORTH, X WEST 55406 TS YSM 40000 COM # NBDZ-ADSRAZ =DH 55404 TS XSM +4 55416 TS ZSM +2 37652 CA ONE 55541 TS PIPINDEX 03371 TC NSBUGD # TO RUN POSITION 6 VERTICAL AFTER PIP TEST POS 6 IS DISPLAYED THE OPERATR # MUST CALCULATE FROM 2.5 -NBDZ-ADSRAZ (XXX.XX)MERU. WHEN PI # IP DATA FLASHES DO VERB 33 ENTER. THIS STARTS VERTICAL TEST. THEN THE # DATA XXX.XX MERU AS CALCULATED MUST BE ENTERED INTO DRIFTT. IE VERB 21 # ENTER NOUN 01 ENTER LOCATION OF DRIFTT ENTER + (OR -) XXXXX ENTER /a>017071,000903: 17,3423 37635 POSN6 CA HALF # Y DOWN, Z EAST, X SOUTH 55402 TS XSM +2 55420 TS ZSM +4 40000 COM # NBDX +ADSRAX = DH, NBDY -ADIAY = -DV 55406 TS YSM >017076,000908: 17,3430 37652 NGFLAG CA ONE 55541 TS PIPINDEX 01546 TC QPLACE /a>017082,000914: 17,3433 47635 POSN7 CS HALF # Z UP-EAST,Y UP-WEST,X NORTH.THIS POSITON 55402 TS XSM +2 33650 CA ROOT1/2 55406 TS YSM # NBDX - .707 ADSRAX = -DH 55414 TS ZSM 55420 TS ZSM +4 40000 COM 55412 TS YSM +4 3">017090,000922: 17,3443 37657 GEORGES CA ZERO 55363 TS FAILREG 03371 TC NSBUGD /a>017096,000928: 17,3446 37635 POSN8 CA HALF # Z UP-SOUTH,Y UP-NORTH,X EAST.THIS POSITN 55404 TS XSM +4 33650 CA ROOT1/2 # .707(-NBDZ-NBDY) +.5(ADIAZ-ADIAY) 55406 TS YSM # +.5(ADSRAY +ADSRAZ)=DH 55416 TS ZSM +2 55414 TS ZSM 40000 COM 55410 TS YSM +2 03371 TC NSBUGD F53">017106,000938: 17,3457 33651 OPCHKPOS CA ROOT1SQ # OG=+45DEG,IG=-45DEG,MG=+45DEG. 55400 TS XSM 55410 TS YSM +2 55412 TS YSM +4 55414 TS ZSM 33650 CA ROOT1/2 55406 TS YSM 33653 CA ROOT3SQ 55402 TS XSM +2 55420 TS ZSM +4 43652 CS ROOT2SQ 55404 TS XSM +4 55416 TS ZSM +2 01546 TC QPLACE /a>017121,000953: 17,3475 37635 POSN9 CA HALF # X UP EAST,Y UP WEST,Z SOUTH.THIS POSITON 55416 TS ZSM +2 33650 CA ROOT1/2 # -NBDZ +.707 SRAZ =DH 55400 TS XSM 55404 TS XSM +4 55406 TS YSM 40000 COM 55412 TS YSM +4 03371 TC NSBUGD >017133,000965: 17,3506 37635 POSN10 CA HALF # X UP NORTH, Y UP SOUTH,Z EAST.THIS POSITN 55420 TS ZSM +4 33650 CA ROOT1/2 # .707(NBDY -NBDX) +.5(ADIAY -ADIAX) 55400 TS XSM # +.5(ADSRAX) = DH 55406 TS YSM 55410 TS YSM +2 40000 COM 55402 TS XSM +2 03371 TC NSBUGD >017145,000977: 17,3517 37635 POSN11 CA HALF # X NORTH, Y WEST, Z DOWN 55402 TS XSM +2 40000 COM 55412 TS YSM +4 55414 TS ZSM 03367 TC NSFLAGD >017152,000984: 17,3525 47635 POSN12 CS HALF # X DOWN, Y NORTH, Z WEST 55400 TS XSM 55420 TS ZSM +4 40000 COM 55410 TS YSM +2 03352 TC NGUBGH >017159,000991: 17,3533 47635 POSN13 CS HALF # X UP, Y EAST, Z SOUTH 55416 TS ZSM +2 40000 COM 55400 TS XSM 55412 TS YSM +4 03352 TC NGUBGH >017166,000998: 17,3541 47635 POSN14 CS HALF # X EAST, Y DOWN, Z SOUTH 55406 TS YSM 55416 TS ZSM +2 40000 COM 55404 TS XSM +4 03430 TC NGFLAG >017173,001005: 17,3547 47635 POSN15 CS HALF # X NORTH, Y UP, Z WEST 55420 TS ZSM +4 40000 COM 55406 TS YSM 55402 TS XSM +2 03430 TC NGFLAG >017180,001012: 17,3555 47635 POSN16 CS HALF # X WEST, Y NORTH, Z UP 55404 TS XSM +4 40000 COM 55410 TS YSM +2 55414 TS ZSM 03410 TC NSFLAG >017187,001019: 17,3563 30336 SHOWLD CA DSPTEM2 55527 TS LENGTHOT 30337 CA DSPTEM2 +1 55536 TS NBPOS 30340 CA DSPTEM2 +2 55544 TS POSITON 00002 TC Q >017196,001028: 17,3572 00006 SHOW EXTEND 23546 QXCH QPLACE /a>017198,001030: 17,3574 31544 SHOW1 CA POSITON 54340 TS DSPTEM2 +2 33630 CA VB06N66 05563 TC NVSBWAIT 05525 TC FLASHON 04724 TC ENDIDLE 03730 TC FINISH 01546 TC QPLACE 03563 TC SHOWLD 13574 TCF SHOW1 34D">017211,001043: 17,3606 00006 LOADGTSM EXTEND # THIS LOADS XSM INTO GEOMATRX 23546 QXCH QPLACE 06000 TC INTPRET 77775 VLOAD 01401 XSM 23001 STOVL GEOMTRX 01407 YSM 23007 STOVL GEOMTRX +6 01415 ZSM 01015 STORE GEOMTRX +12D 77776 EXIT 01546 TC QPLACE 17,3622 14C EQUALS 0014 5">017225,001057: 17,3622 02130 V21N30E OCT 02130 C45">017226,001058: 17,3623 04000 DESANGLE DEC 2048 B-14 4">017227,001059: 17,3624 04143 SFCONST DEC .13107 >017228,001060: 17,3625 34000 SIZCHK OCT 34000 >017229,001061: 17,3626 00264 180DEC DEC 180 B-14 3">017230,001062: 17,3627 07636 3998DEC DEC 3998 B-14 6">017231,001063: 17,3630 00666 VB06N66 OCT 00666 D45">017232,001064: 17,3631 01604 TESTTIME DEC 900 B-14 3">017233,001065: 17,3632 01620 V16N20S OCT 01620 3">017234,001066: 17,3633 01640 V16N40S OCT 01640 /a>017235,001067: 17,3634 00021 DEC17 DEC 17 B-14 >017236,001068: 17,3635 02222 00000 DEC585 2DEC 585 B+15 6">017237,001069: 17,3637 00400 DELYOFF OCT 00400 3">017238,001070: 17,3640 00024 35474 ERUNITS 2DEC 342844 B-28 4">017239,001071: 17,3642 01506 GENPLAD GENADR AZIMUTH C">017240,001072: 17,3643 02521 GYRODPL ECADR GYROD /a>017241,001073: 17,3644 02500 OGCPL ECADR OGC >017242,001074: 17,3645 77774 LOWTWO OCT 77774 /a>017243,001075: 17,3646 00022 DEC18 DEC 18 B-14 /a>017244,001076: 17,3647 10000 45DEG OCT 10000 2">017245,001077: 17,3650 13241 ROOT1/2 DEC .353553 1">017246,001078: 17,3651 10000 ROOT1SQ DEC .250000 1">017247,001079: 17,3652 15520 ROOT2SQ DEC .426776 1">017248,001080: 17,3653 02260 ROOT3SQ DEC .073223 >017249,001081: 17,3654 01400 XSMADR GENADR XSM >017251,001083: 17,3655 00000 00000 SCNBAZ 2DEC 0 B-28 00000 00000 2DEC 0 B-28 20000 00000 2DEC .50 A">017255,001087: 17,3663 10555 26067 LABNBAZ 2DEC .27232 00000 00000 2DEC 0 B-28 15327 37747 2DEC .4194335 2">017259,001091: 17,3671 20000 00000 SCNBVER 2DEC .5 00000 00000 2DEC 0 B-28 00000 00000 2DEC 0 B-28 552">017263,001095: 17,3677 15327 37747 LABNBVER 2DEC .4194335 00000 00000 2DEC 0 B-28 67222 51710 2DEC -.27232 /a>017267,001099: 17,3705 00015 DEC13 DEC 13 B-14

MAS 2023: The following two functions are unreferenced, and appear to be broken. It is unclear what their original purpose was.

017271,001103: 17,3706           37640        U17,3706           CAF      BIT11                                 
017272,001104: 17,3707           54003                           TS       EBANK                                 
017273,001105: 17,3710           51400                           INDEX    QCSI                                  
017274,001106: 17,3711           01400                           TC       QCSI                                  
017275,001107: 
017276,001108: 17,3712           37640        U17,3712           CAF      BIT11                                 
017277,001109: 17,3713           67642                           AD       BIT9                                  
017278,001110: 17,3714           54003                           TS       EBANK                                 
017279,001111: 17,3715           51567                           INDEX    GENPL                                 
017280,001112: 17,3716           01567                           TC       GENPL                                 
017281,001113: 
017282,001114: 17,3717           04517        VALMIS             TC       PHASCHNG                              
017283,001115: 17,3720           00000                           OCT      00000                                 
017284,001116: 17,3721           31633                           CA       DRIFTO                                
017285,001117: 17,3722           54337                           TS       DSPTEM2    +1                         
017286,001118: 17,3723           30032                           CA       CDUX                                  #  STORE OG ANGLE FOR LAB CALC OF DRIFT**
017287,001119: 17,3724           55531                           TS       LOSVEC     +1                         
017288,001120: 17,3725           37657                           CA       ZERO                                  
017289,001121: 17,3726           54336                           TS       DSPTEM2                               
017290,001122: 17,3727           03572                           TC       SHOW                                  
017291,001123: 
017292,001124: 
017293,001125: 
017294,001126: 17,3730           37652        FINISH             CA       ONE                                   
017295,001127: 17,3731           61544                           AD       POSITON                               
017296,001128: 17,3732           54340                           TS       DSPTEM2    +2                         
017297,001129: 17,3733           37651                           CA       TWO                                   
017298,001130: 17,3734           55546                           TS       QPLACE                                
017299,001131: 17,3735           04064                           TC       BANKCALL                              
017300,001132: 17,3736           22336                           CADR     TSELECT    -6                         
017301,001133: 17,3737           04064        ENDTEST1           TC       BANKCALL                              
017302,001134: 17,3740           14756                           CADR     ENDTEST                               
017303,001135: 
017304,001136: 17,3741           37657        GUDENT1            CA       ZERO                                  
017305,001137: 17,3742           55712                           TS       SINGAZ                                
017306,001138: 17,3743           55713                           TS       SINGAZ     +1                         
017307,001139: 17,3744           55715                           TS       COSGAZ     +1                         
017308,001140: 17,3745           37635                           CAF      HALF                                  
017309,001141: 17,3746           55714                           TS       COSGAZ                                
017310,001142: 17,3747           12416                           TCF      GUDENTRY                              
017311,001143: 
017312,001144: 17,3750                        ENDIMUS2           =                                              

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