Source Code
012460,000001: # Copyright: Public domain.
012461,000002: # Filename: IMU_COMPENSATION_PACKAGE.agc
012462,000003: # Purpose: Part of the source code for Colossus, build 249.
012463,000004: # It is part of the source code for the Command Module's (CM)
012464,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
012465,000006: # Assembler: yaYUL
012466,000007: # Reference: pp. 294-303 of 1701.pdf.
012467,000008: # Contact: Ron Burkey <info@sandroid.org>.
012468,000009: # Website: www.ibiblio.org/apollo.
012469,000010: # Mod history: 08/09/04 RSB. Began adapting from corresponding Luminary131
012470,000011: # source file.
012471,000012:
012472,000013: # The contents of the "Colossus249" files, in general, are transcribed
012473,000014: # from a scanned document obtained from MIT's website,
012474,000015: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
012475,000016: # document read, in part:
012476,000017:
012477,000018: # Assemble revision 249 of AGC program Colossus by NASA
012478,000019: # 2021111-041. October 28, 1968.
012479,000020:
012480,000021: # This AGC program shall also be referred to as
012481,000022: # Colossus 1A
012482,000023:
012483,000024: # Prepared by
012484,000025: # Massachussets Institute of Technology
012485,000026: # 75 Cambridge Parkway
012486,000027: # Cambridge, Massachusetts
012487,000028: # under NASA contract NAS 9-4065.
012488,000029:
012489,000030: # Refer directly to the online document mentioned above for further information.
012490,000031: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
012491,000032:
012492,000033: # In some cases, where the source code for Luminary 131 overlaps that of
012493,000034: # Colossus 249, this code is instead copied from the corresponding Luminary 131
012494,000035: # source file, and then is proofed to incorporate any changes.
012495,000036:
012496,000037: # Page 295
012497,000038: 07,2440 BANK 7
012498,000039: 06,2000 SETLOC IMUCOMP
012499,000040: 06,2000 BANK
012500,000041: 06,3262 E3,1460 EBANK= NBDX
012501,000042:
012502,000043: 06,3262 COUNT 06/ICOMP
012503,000044:
012504,000045: 06,3262 33516 1/PIPA CAF LGCOMP # SAVE EBANK OF CALLING PROGRAM
012505,000046: 06,3263 56003 XCH EBANK
012506,000047: 06,3264 54163 TS MODE
012507,000048:
012508,000049: 06,3265 11477 CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
012509,000050: 06,3266 13271 TCF +3
012510,000051: 06,3267 13271 TCF +2
012511,000052: 06,3270 13407 TCF IRIG1 # RETURN
012512,000053:
012513,000054: 06,3271 00004 INHINT # ASSURE COMPLETE COMPENSATION OF DELV'S
012514,000055: # FOR DOWNLINK.
012515,000056:
012516,000057: 06,3272 34710 1/PIPA1 CAF FOUR # PIPAZ, PIPAY, PIPAX
012517,000058: 06,3273 54132 TS BUF +2
012518,000059:
012519,000060: 06,3274 50132 INDEX BUF +2
012520,000061: 06,3275 31453 CA PIPASCF # (P.P.M.) X 2(-9)
012521,000062: 06,3276 00006 EXTEND
012522,000063: 06,3277 50132 INDEX BUF +2
012523,000064: 06,3300 71162 MP DELVX # (PP) X 2(+14) NOW (PIPA PULSES) X 2(+5)
012524,000065: 06,3301 54002 TS Q # SAVE MAJOR PART
012525,000066:
012526,000067: 06,3302 30001 CA L # MINOR PART
012527,000068: 06,3303 00006 EXTEND
012528,000069: 06,3304 74705 MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
012529,000070: 06,3305 50132 INDEX BUF +2
012530,000071: 06,3306 55163 TS DELVX +1 # FRACTIONAL PIPA PULSES SCALED 2(+14)
012531,000072:
012532,000073: 06,3307 30002 CA Q # MAJOR PART
012533,000074: 06,3310 00006 EXTEND
012534,000075: 06,3311 74705 MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
012535,000076: 06,3312 50132 INDEX BUF +2
012536,000077: 06,3313 21163 DAS DELVX # (PIPAI) + (PIPAI)(SF)
012537,000078:
012538,000079: 06,3314 50132 INDEX BUF +2
012539,000080: 06,3315 41452 CS PIPABIAS # (PIPA PULSES)/(CS) X 2(-3) *
012540,000081: 06,3316 00006 EXTEND
012541,000082: 06,3317 71074 MP 1/PIPADT # (CS) X 2(+8) NOW (PIPA PULSES) X 2(+5) *
012542,000083: 06,3320 00006 EXTEND
012543,000084: 06,3321 74712 MP BIT1 # SCALE 2(+9) SHIFT RIGHT 9 *
012544,000085: 06,3322 50132 INDEX BUF +2
012545,000086: 06,3323 21163 DAS DELVX # (PIPAI) + (PIPAI)(SFE) - (BIAS)(DELTAT)
012546,000087:
012547,000088: 06,3324 10132 CCS BUF +2 # PIPAZ, PIPAY, PIPAX
012548,000089: # Page 295
012549,000090: 06,3325 67716 AD NEG1
012550,000091: 06,3326 13273 TCF 1/PIPA1 +1
012551,000092: 06,3327 13330 NOOP # LESS THAN ZERO IMPOSSIBLE
012552,000093: 06,3330 00003 RELINT
012553,000094: # Page 296
012554,000095:
012555,000096: 06,3331 55477 IRIGCOMP TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
012556,000097: 06,3332 54130 TS BUF # INDEX COUNTER. IRIGX, IRIGY, IRIGZ.
012557,000098:
012558,000099: 06,3333 00006 IRIGX EXTEND
012559,000100: 06,3334 41163 DCS DELVX # (PIPA PULSES) X 2(+14)
012560,000101: 06,3335 52155 DXCH MPAC
012561,000102: 06,3336 31463 CA ADIAX # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
012562,000103: 06,3337 03412 TC GCOMPSUB # -(ADIAX)(PIPAX) (GYRO PULSES) X 2(+14)
012563,000104:
012564,000105: 06,3340 00006 EXTEND #
012565,000106: 06,3341 41165 DCS DELVY # (PIPA PULSES) X 2(+14)
012566,000107: 06,3342 52155 DXCH MPAC #
012567,000108: 06,3343 41466 CS ADSRAX # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
012568,000109: 06,3344 03412 TC GCOMPSUB # -(ADSRAX)(PIPAY) (GYRO PULSES) X 2(+14)
012569,000110:
012570,000111: # EXTEND # ***
012571,000112: # DCS DELVY # *** (PIPA PULSES) X 2(+14)
012572,000113: # DXCH MPAC # ***
012573,000114: # CA ADOAX # *** (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
012574,000115: # TC GCOMPSUB # *** -(ADOAX)(PIPAZ) (GYRO PULSES) X 2(+14)
012575,000116:
012576,000117: 06,3345 41460 CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
012577,000118: 06,3346 03441 TC DRIFTSUB # -(NBDX)(DELTAT) (GYRO PULSES) X 2(+14)
012578,000119:
012579,000120: 06,3347 00006 IRIGY EXTEND
012580,000121: 06,3350 41165 DCS DELVY # (PIPA PULSES) X 2(+14)
012581,000122: 06,3351 52155 DXCH MPAC
012582,000123: 06,3352 31464 CA ADIAY # (GYRO PULSES)/(PIPA PULSE) X 2(+14) *
012583,000124: 06,3353 03412 TC GCOMPSUB # -(ADIAY)(PIPAY) (GYRO PULSES) X 2(+14)
012584,000125:
012585,000126: 06,3354 00006 EXTEND
012586,000127: 06,3355 41167 DCS DELVZ # (PIPA PULSES) X 2(+14)
012587,000128: 06,3356 52155 DXCH MPAC
012588,000129: 06,3357 41467 CS ADSRAY # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
012589,000130: 06,3360 03412 TC GCOMPSUB # +(ADSRAY)(PIPAZ) (GYRO PULSES) X 2(+14)
012590,000131:
012591,000132: # EXTEND # ***
012592,000133: # DCS DELVX # *** (PIPA PULSES) X 2(+14)
012593,000134: # DXCH MPAC # ***
012594,000135: # CA ADOAY # *** (GYRO PULSES)/(PIPA PULS) X 2(-6) *
012595,000136: # TC GCOMPSUB # *** -(ADOAY)(/PIPAX) (GYRO PULSES) X 2(+14)
012596,000137:
012597,000138: 06,3361 41461 CS NBDY # (GYRO PULSES)/(CS) X 2(-5)
012598,000139: 06,3362 03441 TC DRIFTSUB # -(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
012599,000140:
012600,000141: 06,3363 00006 IRIGZ EXTEND
012601,000142: 06,3364 41165 DCS DELVY # (PIPA PULSES) X 2(-14)
012602,000143: 06,3365 52155 DXCH MPAC
012603,000144: 06,3366 31470 CA ADSRAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
012604,000145: # Page 297
012605,000146: 06,3367 03412 TC GCOMPSUB # -(ADSRAZ)(PIPAY) (GYRO PULSES) X 2(+14)
012606,000147:
012607,000148: 06,3370 00006 EXTEND
012608,000149: 06,3371 41167 DCS DELVZ # (PIPA PULSES) X 2(+14)
012609,000150: 06,3372 52155 DXCH MPAC
012610,000151: 06,3373 31465 CA ADIAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
012611,000152: 06,3374 03412 TC GCOMPSUB # -(ADIAZ)(PIPAZ) (GYRO PULSES) X 2(+14)
012612,000153:
012613,000154: # EXTEND # ***
012614,000155: # DCS DELVX # *** (PIPA PULSE) X 2(+14)
012615,000156: # DXCH MPAC # ***
012616,000157: # CS ADOAZ # *** (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
012617,000158: # TC GCOMPSUB # *** +(ADOAZ)(PIPAX) (GYRO PULSES) X 2(+14)
012618,000159:
012619,000160: 06,3375 31462 CA NBDZ # (GYRO PULSES)/(CS) X 2(-5)
012620,000161: 06,3376 03441 TC DRIFTSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14)
012621,000162:
012622,000163: # Page 298
012623,000164: 06,3377 11477 CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
012624,000165: 06,3400 13402 TCF +2 # YES
012625,000166: 06,3401 13407 TCF IRIG1 # NO
012626,000167:
012627,000168: 06,3402 34764 CA PRIO17 # LEM PRIORITY HIGHER-THIS FOR PRELAUNCH
012628,000169: 06,3403 05027 TC NOVAC
012629,000170: 06,3404 E3,1460 EBANK= NBDX
012630,000171: 06,3404 03474 14063 2CADR 1/GYRO
012631,000172:
012632,000173: 06,3406 00003 RELINT
012633,000174: 06,3407 30163 IRIG1 CA MODE # SET EBANK FOR RETURN
012634,000175: 06,3410 54003 TS EBANK
012635,000176: 06,3411 14570 TCF SWRETURN
012636,000177:
012637,000178: 06,3412 56154 GCOMPSUB XCH MPAC # ADIA OR ADSRA COEFFICIENT ARRIVES IN A
012638,000179: 06,3413 00006 EXTEND # C(MPAC) = (PIPA PULSES) X 2(+14)
012639,000180: 06,3414 70154 MP MPAC # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
012640,000181: 06,3415 52123 DXCH VBUF # NOW = (GYRO PULSES) X 2(+8) *
012641,000182:
012642,000183: 06,3416 30155 CA MPAC +1 # MINOR PART OF PIPA PULSES
012643,000184: 06,3417 00006 EXTEND
012644,000185: 06,3420 70154 MP MPAC # ADIA OR ADSRA
012645,000186: 06,3421 54001 TS L
012646,000187: 06,3422 34714 CAF ZERO
012647,000188: 06,3423 20123 DAS VBUF # NOW = (BYRO PULSES) X 2(+8) *
012648,000189:
012649,000190: 06,3424 30122 CA VBUF # PARTIAL RESULT -- MAJOR
012650,000191: 06,3425 00006 EXTEND
012651,000192: 06,3426 74677 MP BIT12 # SCALE 2(+3) SHIFT RIGHT 3 *
012652,000193: 06,3427 50130 INDEX BUF # RESULT = (BYRO PULSES) X 2(+14)
012653,000194: 06,3430 21472 DAS GCOMP # HI(ADIA)(PIPAI) OR HI(ADSRA)(PIPAI)
012654,000195:
012655,000196: 06,3431 30123 CA VBUF +1 # PARTIAL RESULT -- MINOR
012656,000197: 06,3432 00006 EXTEND
012657,000198: 06,3433 74677 MP BIT12 # SCALE 2(+3) SHIFT RIGHT 3 *
012658,000199: 06,3434 54001 TS L
012659,000200: 06,3435 34714 CAF ZERO
012660,000201: 06,3436 50130 INDEX BUF # RESULT = (TYRO PULSES) X 2(+14)
012661,000202: 06,3437 21472 DAS GCOMP # (ADIA)(PIPAI) OR (ADSRA)(PIPAI)
012662,000203:
012663,000204: 06,3440 00002 TC Q
012664,000205:
012665,000206: # Page 299
012666,000207: 06,3441 00006 DRIFTSUB EXTEND
012667,000208: 06,3442 22131 QXCH BUF +1
012668,000209:
012669,000210: 06,3443 00006 EXTEND # C(A) = NBD (GYRO PULSES)/(CS) X 2(-5)
012670,000211: 06,3444 71074 MP 1/PIPADT # (CS) X 2(+8) NO (GYRO PULSES) X 2(+3)
012671,000212: 06,3445 22155 LXCH MPAC +1 # SAVE FOR FRACTIONAL COMPENSATION
012672,000213: 06,3446 00006 EXTEND
012673,000214: 06,3447 74707 MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
012674,000215: 06,3450 50130 INDEX BUF
012675,000216: 06,3451 21472 DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
012676,000217:
012677,000218: 06,3452 30155 CA MPAC +1 # NO MINOR PART
012678,000219: 06,3453 00006 EXTEND
012679,000220: 06,3454 74707 MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
012680,000221: 06,3455 54001 TS L
012681,000222: 06,3456 34714 CAF ZERO
012682,000223: 06,3457 50130 INDEX BUF # ADD IN FRACTIONAL COMPENSATION
012683,000224: 06,3460 21472 DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
012684,000225:
012685,000226: 06,3461 34711 DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
012686,000227: 06,3462 60130 AD BUF
012687,000228: 06,3463 56130 XCH BUF
012688,000229: 06,3464 50000 INDEX A
012689,000230: 06,3465 11471 CCS GCOMP # ARE GYRO COMMANDS 1 PULSE OR GREATER
012690,000231: 06,3466 13470 TCF +2 # YES
012691,000232: 06,3467 00131 TC BUF +1 # NO
012692,000233:
012693,000234: 06,3470 77716 MASK NEGONE
012694,000235: 06,3471 10000 CCS A # ARE GYRO COMMANDS GREATER THAN 2 PULSES
012695,000236: 06,3472 55477 TS GCOMPSW # YES -- SET GCOMPSW POSITIVE
012696,000237: 06,3473 00131 TC BUF +1 # NO
012697,000238:
012698,000239: # Page 300
012699,000240: 06,3474 34710 1/GYRO CAF FOUR # PIPAZ, PIPAY, PIPAX
012700,000241: 06,3475 54130 TS BUF
012701,000242:
012702,000243: 06,3476 50130 INDEX BUF # SCALE GYRO COMMANDS FOR IMUPULSE
012703,000244: 06,3477 31472 CA GCOMP +1 # FRACTIONAL PULSES
012704,000245: 06,3500 00006 EXTEND
012705,000246: 06,3501 74703 MP BIT8 # SHIFT RIGHT 7
012706,000247: 06,3502 50130 INDEX BUF
012707,000248: 06,3503 55472 TS GCOMP +1 # FRACTIONAL PULSES SCALED
012708,000249:
012709,000250: 06,3504 34714 CAF ZERO # SET GCOMP = 0 FOR DAS INSTRUCTION
012710,000251: 06,3505 50130 INDEX BUF
012711,000252: 06,3506 57471 XCH GCOMP # GYRO PULSES
012712,000253: 06,3507 00006 EXTEND
012713,000254: 06,3510 74703 MP BIT8 # SHIFT RIGHT 7
012714,000255: 06,3511 50130 INDEX BUF
012715,000256: 06,3512 21472 DAS GCOMP # ADD THESE TO FRACTIONAL PULSES ABOVE
012716,000257:
012717,000258: 06,3513 10130 CCS BUF # PIPAZ, PIPAY, PIPAX
012718,000259: 06,3514 67716 AD NEG1
012719,000260: 06,3515 13475 TCF 1/GYRO +1
012720,000261: 06,3516 01471 LGCOMP ECADR GCOMP # LESS THAN ZERO IMPOSSIBLE
012721,000262:
012722,000263: 06,3517 33516 CAF LGCOMP
012723,000264: 06,3520 04555 TC BANKCALL
012724,000265: 06,3521 17125 CADR IMUPULSE # CALL GYRO TORQUING ROUTINE
012725,000266: 06,3522 04555 TC BANKCALL
012726,000267: 06,3523 17516 CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
012727,000268: 06,3524 15112 TCF ENDOFJOB # TEMPORARY
012728,000269:
012729,000270: 06,3525 34710 GCOMP1 CAF FOUR # PIPAZ, PIPAY, PIPAX
012730,000271: 06,3526 54130 TS BUF
012731,000272:
012732,000273: 06,3527 50130 INDEX BUF # RESCALE
012733,000274: 06,3530 31472 CA GCOMP +1
012734,000275: 06,3531 00006 EXTEND
012735,000276: 06,3532 74703 MP BIT8 # SHIFT MINOR PART LEFT 7 -- MAJOR PART = 0
012736,000277: 06,3533 50130 INDEX BUF
012737,000278: 06,3534 23472 LXCH GCOMP +1 # BITS 8-14 OF MINOR PART WERE = 0
012738,000279:
012739,000280: 06,3535 10130 CCS BUF # PIPAZ, PIPAY, PIPAX
012740,000281: 06,3536 67716 AD NEG1
012741,000282: 06,3537 13526 TCF GCOMP1 +1
012742,000283:
012743,000284: 06,3540 01436 V06N30S VN 0630
012744,000285: 06,3541 15112 TCF ENDOFJOB
012745,000286:
012746,000287: # Page 301
012747,000288: 06,3542 11477 NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
012748,000289: 06,3543 13546 TCF +3
012749,000290: 06,3544 13546 TCF +2
012750,000291: 06,3545 15112 TCF ENDOFJOB
012751,000292:
012752,000293: 06,3546 00004 INHINT
012753,000294: 06,3547 10076 CCS FLAGWRD2 # PREREAD T3RUPT MAY COINCIDE
012754,000295: 06,3550 15112 TCF ENDOFJOB
012755,000296: 06,3551 15112 TCF ENDOFJOB
012756,000297: 06,3552 13553 TCF +1
012757,000298:
012758,000299: 06,3553 30025 CA TIME1 # (CS) X 2(+14)
012759,000300: 06,3554 57074 XCH 1/PIPADT # PREVIOUS TIME
012760,000301: 06,3555 00003 RELINT
012761,000302: 06,3556 40000 COM
012762,000303: 06,3557 61074 AD 1/PIPADT
012763,000304: 06,3560 10000 NBD2 CCS A # CALCULATE ELAPSED TIME.
012764,000305: 06,3561 64712 AD ONE # NO TIME1 OVERFLOW
012765,000306: 06,3562 13567 TCF NBD3 # RESTORE TIME DIFFERENCE AND JUMP
012766,000307: 06,3563 13565 TCF +2 # TIME1 OVERFLOW
012767,000308: 06,3564 15112 TCF ENDOFJOB # IF ELAPSED TIME = 0 (DIFFERENCE = -0)
012768,000309:
012769,000310: 06,3565 40000 COM # CALCULATE ABSOLUTE DIFFERENCE
012770,000311: 06,3566 64672 AD POSMAX
012771,000312:
012772,000313: 06,3567 00006 NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
012773,000314: 06,3570 74701 MP BIT10 # SHIFT RIGHT 5
012774,000315: 06,3571 52123 DXCH VBUF
012775,000316: 06,3572 00006 EXTEND
012776,000317: 06,3573 30123 DCA VBUF
012777,000318: 06,3574 52155 DXCH MPAC # DELTAT NOW SCALED (CS) X 2(+19)
012778,000319:
012779,000320: 06,3575 34714 CAF ZERO
012780,000321: 06,3576 55477 TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
012781,000322: 06,3577 54130 TS BUF # INDEX X, Y, Z.
012782,000323:
012783,000324: 06,3600 41460 CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
012784,000325: 06,3601 03617 TC FBIASSUB # -(NBOX)(DELTAT) (GYRO PULSES) X 2(+14)
012785,000326:
012786,000327: 06,3602 00006 EXTEND
012787,000328: 06,3603 40123 DCS VBUF
012788,000329: 06,3604 52155 DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
012789,000330: 06,3605 31461 CA NBDY # (BYRO PULSES)/(CS) X 2(-5)
012790,000331: 06,3606 03617 TC FBIASSUB # -(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
012791,000332:
012792,000333: 06,3607 00006 EXTEND
012793,000334: 06,3610 40123 DCS VBUF
012794,000335: 06,3611 52155 DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
012795,000336: 06,3612 41462 CS NBDZ # (GYRO PULSES)/(CS) X 2(-5)
012796,000337: 06,3613 03617 TC FBIASSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14)
012797,000338: # Page 302
012798,000339: 06,3614 11477 CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
012799,000340: 06,3615 13474 TCF 1/GYRO # YES
012800,000341: 06,3616 15112 TCF ENDOFJOB # NO
012801,000342:
012802,000343: # Page 303
012803,000344: 06,3617 56002 FBIASSUB XCH Q
012804,000345: 06,3620 54131 TS BUF +1
012805,000346:
012806,000347: 06,3621 30002 CA Q # NBD SCALED (GYRO PULSES)/(CS) X 2(-5)
012807,000348: 06,3622 00006 EXTEND
012808,000349: 06,3623 70154 MP MPAC # DELTAT SCALED (CS) X 2(+19)
012809,000350: 06,3624 50130 INDEX BUF
012810,000351: 06,3625 21472 DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
012811,000352:
012812,000353: 06,3626 30002 CA Q # NO FRACTIONAL PART
012813,000354: 06,3627 00006 EXTEND
012814,000355: 06,3630 70155 MP MPAC +1
012815,000356: 06,3631 54001 TS L
012816,000357: 06,3632 34714 CAF ZERO
012817,000358: 06,3633 50130 INDEX BUF
012818,000359: 06,3634 21472 DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
012819,000360:
012820,000361: 06,3635 13461 TCF DRFTSUB2 # CHECK MAGNITUDE OF COMPENSATION
012821,000362:
012822,000363: 06,3636 04555 LASTBIAS TC BANKCALL
012823,000364: 06,3637 17075 CADR PIPUSE
012824,000365:
012825,000366: 06,3640 11477 CCS GCOMPSW
012826,000367: 06,3641 13644 TCF +3
012827,000368: 06,3642 13644 TCF +2
012828,000369: 06,3643 15112 TCF ENDOFJOB
012829,000370:
012830,000371: 06,3644 37665 CAF PRIO31 # 2 SECONDS SCALED (CS) X 2(+8)
012831,000372: 06,3645 57074 XCH 1/PIPADT
012832,000373: 06,3646 40000 COM
012833,000374: 06,3647 61246 AD PIPTIME1 +1 # TIME AT PIPA1 =0
012834,000375: 06,3650 13560 TCF NBD2
012835,000376:
End of include-file IMU_COMPENSATION_PACKAGE.agc. Parent file is MAIN.agc