GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
013608,000002: ## Copyright: Public domain.
013609,000003: ## Filename: IMU_COMPENSATION_PACKAGE.agc
013610,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
013611,000005: ## build 072. This is for the Command Module's (CM)
013612,000006: ## Apollo Guidance Computer (AGC), for
013613,000007: ## Apollo 15-17.
013614,000008: ## Assembler: yaYUL
013615,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
013616,000010: ## Website: www.ibiblio.org/apollo/index.html
013617,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
013618,000012: ## Mod history: 2009-08-09 JL Adapted from corresponding Comanche 055 file.
013619,000013: ## 2010-02-11 JL Fixed error on p315.
013620,000014: ## 2010-02-20 RSB Un-##'d this header.
013621,000015: ## 2017-02-05 RSB Proofed comment text by diff'ing vs Comanche 55
013622,000016: ## and corrected errors found.
013623,000017:
|
|
Page 308 |
013625,000019:
013626,000020: 06,2000 SETLOC IMUCOMP
013627,000021: 06,2000 BANK
013628,000022: 06,3276 E3,1460 EBANK= NBDX
013629,000023:
013630,000024: 06,3276 COUNT* $$/ICOMP
013631,000025: 06,3276 33535 1/PIPA CAF LGCOMP # SAVE EBANK OF CALLING PROGRAM
013632,000026: 06,3277 56003 XCH EBANK
013633,000027: 06,3300 54163 TS MODE
013634,000028:
013635,000029: 06,3301 11477 CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
013636,000030: 06,3302 13305 TCF +3
013637,000031: 06,3303 13305 TCF +2
013638,000032: 06,3304 13422 TCF IRIG1 # RETURN
013639,000033:
013640,000034: 06,3305 00004 INHINT # ASSURE COMPLETE COMPENSATION OF DELV'S
013641,000035: # FOR DOWNLINK.
013642,000036:
013643,000037: 06,3306 34766 1/PIPA1 CAF FOUR # PIPAZ, PIPAY, PIPAX
013644,000038: 06,3307 77702 +1 MASK NEGONE
013645,000039: 06,3310 54132 TS BUF +2
013646,000040:
013647,000041: 06,3311 50132 INDEX BUF +2
013648,000042: 06,3312 31453 CA PIPASCF # (P.P.M.) X 2(-9)
013649,000043: 06,3313 00006 EXTEND
013650,000044: 06,3314 50132 INDEX BUF +2
013651,000045: 06,3315 71314 MP DELVX # (PP) X 2(+14) NOW (PIPA PULSES) X 2(+5)
013652,000046: 06,3316 54002 TS Q # SAVE MAJOR PART
013653,000047:
013654,000048: 06,3317 30001 CA L # MINOR PART
013655,000049: 06,3320 00006 EXTEND
013656,000050: 06,3321 74763 MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
013657,000051: 06,3322 50132 INDEX BUF +2
013658,000052: 06,3323 55315 TS DELVX +1 # FRACTIONAL PIPA PULSES SCALED 2(+14)
013659,000053:
013660,000054: 06,3324 30002 CA Q # MAJOR PART
013661,000055: 06,3325 00006 EXTEND
013662,000056: 06,3326 74763 MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
013663,000057: 06,3327 50132 INDEX BUF +2
013664,000058: 06,3330 21315 DAS DELVX # (PIPAI) + (PIPAI)(SFE)
013665,000059:
013666,000060: 06,3331 50132 INDEX BUF +2
013667,000061: 06,3332 41452 CS PIPABIAS # (PIPA PULSES)/(CS) X 2(-6)
013668,000062: 06,3333 00006 EXTEND
013669,000063: 06,3334 71277 MP 1/PIPADT # (CS) X 2(+8) NOW (PIPA PULSES) X 2(+2)
013670,000064: 06,3335 00006 EXTEND
013671,000065: 06,3336 74766 MP BIT3 # SCALE 2(+12) SHIFT RIGHT 12
013672,000066: 06,3337 50132 INDEX BUF +2
013673,000067: 06,3340 21315 DAS DELVX # (PIPAI) + (PIPAI)(SFE) - (BIAS)(DELTAT)
013674,000068:
013675,000069: 06,3341 10132 CCS BUF +2 # PIPAZ, PIPAY, PIPAX
013676,000070: 06,3342 13307 TCF 1/PIPA1 +1
|
|
Page 309 |
013678,000072: 06,3343 00003 RELINT
|
|
Page 310 |
013680,000074:
013681,000075: 06,3344 55477 IRIGCOMP TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS
013682,000076: 06,3345 54130 TS BUF # INDEX COUNTER - IRIGX, IRIGY, IRIGZ
013683,000077:
013684,000078: 06,3346 00006 IRIGX EXTEND
013685,000079: 06,3347 41315 DCS DELVX # (PIPA PULSES) X 2(+14)
013686,000080: 06,3350 52155 DXCH MPAC
013687,000081: 06,3351 31463 CA ADIAX # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
013688,000082: 06,3352 03425 TC GCOMPSUB # -(ADIAX)(PIPAX) (GYRO PULSES) X 2(+14)
013689,000083:
013690,000084: 06,3353 00006 EXTEND
013691,000085: 06,3354 41317 DCS DELVY # (PIPA PULSES) X 2(+14)
013692,000086: 06,3355 52155 DXCH MPAC
013693,000087: 06,3356 41466 CS ADSRAX # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
013694,000088: 06,3357 03425 TC GCOMPSUB # +(ADSRAX)(PIPAY) (GYRO PULSES) X 2(+14)
013695,000089:
013696,000090: # EXTEND ***
013697,000091: # DCS DELVZ *** (PIPA PULSES) X 2(+14)
013698,000092: # DXCH MPAC ***
013699,000093: # CA ADOAX *** (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
013700,000094: # TC GCOMPSUB *** -(ADOAX)(PIPAZ) (GYRO PULSES) X 2(+14)
013701,000095:
013702,000096: 06,3360 41460 CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
013703,000097: 06,3361 03454 TC DRIFTSUB # -(NBDX)(DELTAT) (GYRO PULSES) X 2(+14)
013704,000098:
013705,000099: 06,3362 00006 IRIGY EXTEND
013706,000100: 06,3363 41317 DCS DELVY # (PIPA PULSES) X 2(+14)
013707,000101: 06,3364 52155 DXCH MPAC
013708,000102: 06,3365 31464 CA ADIAY # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
013709,000103: 06,3366 03425 TC GCOMPSUB # -(ADIAY)(PIPAY) (GYRO PULSES) X 2(+14)
013710,000104:
013711,000105: 06,3367 00006 EXTEND
013712,000106: 06,3370 41321 DCS DELVZ # (PIPA PULSES) X 2(+14)
013713,000107: 06,3371 52155 DXCH MPAC
013714,000108: 06,3372 41467 CS ADSRAY # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
013715,000109: 06,3373 03425 TC GCOMPSUB # +(ADSRAY)(PIPAZ) (GYRO PULSES) X 2(+14)
013716,000110:
013717,000111: # EXTEND ***
013718,000112: # DCS DELVX *** (PIPA PULSES) X 2(+14)
013719,000113: # DXCH MPAC ***
013720,000114: # CA ADOAY *** (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
013721,000115: # TC GCOMPSUB *** -(ADOAY)(PIPAX) (GYRO PULSES) X 2(+14)
013722,000116:
013723,000117: 06,3374 41461 CS NBDY # (GYRO PULSES)/(CS) X 2(-5)
013724,000118: 06,3375 03454 TC DRIFTSUB # -(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
013725,000119:
013726,000120: 06,3376 00006 IRIGZ EXTEND
013727,000121: 06,3377 41317 DCS DELVY # (PIPA PULSES) X 2(+14)
013728,000122: 06,3400 52155 DXCH MPAC
013729,000123: 06,3401 31470 CA ADSRAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
|
|
Page 311 |
013731,000125: 06,3402 03425 TC GCOMPSUB # -(ADSRAZ)(PIPAY) (GYRO PULSES) X 2(+14)
013732,000126:
013733,000127: 06,3403 00006 EXTEND
013734,000128: 06,3404 41321 DCS DELVZ # (PIPA PULSES) X 2(+14)
013735,000129: 06,3405 52155 DXCH MPAC
013736,000130: 06,3406 31465 CA ADIAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
013737,000131: 06,3407 03425 TC GCOMPSUB # -(ADIAZ)(PIPAZ) (GYRO PULSES) X 2(+14)
013738,000132:
013739,000133: # EXTEND ***
013740,000134: # DCS DELVX *** (PIPA PULSE) X 2(+14)
013741,000135: # DXCH MPAC ***
013742,000136: # CS ADOAZ *** (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
013743,000137: # TC GCOMPSUB *** +(ADOAZ)(PIPAX) (GYRO PULSES) X 2(+14)
013744,000138:
013745,000139: 06,3410 31462 CA NBDZ # (GYRO PULSES)/(CS) X 2(-5)
013746,000140: 06,3411 03454 TC DRIFTSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14)
013747,000141:
|
|
Page 312 |
013749,000143: 06,3412 11477 CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
013750,000144: 06,3413 13415 TCF +2 # YES
013751,000145: 06,3414 13422 TCF IRIG1 # NO
013752,000146:
013753,000147: 06,3415 35057 CA PRIO21 # HIGHER THAN SERVICER-LESS THAN PRELAUNCH
013754,000148: 06,3416 05121 TC NOVAC
013755,000149: 06,3417 E3,1460 EBANK= NBDX
013756,000150: 06,3417 03507 14063 2CADR 1/CHECK
013757,000151:
013758,000152: 06,3421 00003 RELINT
013759,000153: 06,3422 30163 IRIG1 CA MODE # SET EBANK FOR RETURN
013760,000154: 06,3423 54003 TS EBANK
013761,000155: 06,3424 14651 TCF SWRETURN
013762,000156:
013763,000157: 06,3425 56154 GCOMPSUB XCH MPAC # ADIA OR ADSRA COEFFICIENT ARRIVES IN A
013764,000158: 06,3426 00006 EXTEND # C(MPAC) = (PIPA PULSES) X 2(+14)
013765,000159: 06,3427 70154 MP MPAC # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
013766,000160: 06,3430 52123 DXCH VBUF # NOW = (GYRO PULSES) X 2(+11) *
013767,000161:
013768,000162: 06,3431 30155 CA MPAC +1 # MINOR PART PIPA PULSES
013769,000163: 06,3432 00006 EXTEND
013770,000164: 06,3433 70154 MP MPAC # ADIA OR ADSRA
013771,000165: 06,3434 54001 TS L
013772,000166: 06,3435 34772 CAF ZERO
013773,000167: 06,3436 20123 DAS VBUF # NOW = (GYRO PULSES) X 2(+11) *
013774,000168:
013775,000169: 06,3437 30122 CA VBUF # PARTIAL RESULT - MAJOR
013776,000170: 06,3440 00006 EXTEND
013777,000171: 06,3441 74755 MP BIT12 # SCALE 2(+3) SHIFT RIGHT 3 *
013778,000172: 06,3442 50130 INDEX BUF # RESULT = (GYRO PULSES) X 2(+14)
013779,000173: 06,3443 21472 DAS GCOMP # HI(ADIA)(PIPAI) OR HI(ADSRA)(PIPAI)
013780,000174:
013781,000175: 06,3444 30123 CA VBUF +1 # PARTIAL RESULT - MINOR
013782,000176: 06,3445 00006 EXTEND
013783,000177: 06,3446 74755 MP BIT12 # SCALE 2(+3) SHIFT RIGHT 3 *
013784,000178: 06,3447 54001 TS L
013785,000179: 06,3450 34772 CAF ZERO
013786,000180: 06,3451 50130 INDEX BUF # RESULT = (GYRO PULSES) X 2(+14)
013787,000181: 06,3452 21472 DAS GCOMP # (ADIA)(PIPAI) OR (ADSRA)(PIPAI)
013788,000182:
013789,000183: 06,3453 00002 TC Q
013790,000184:
|
|
Page 313 |
013792,000186: 06,3454 00006 DRIFTSUB EXTEND
013793,000187: 06,3455 22131 QXCH BUF +1
013794,000188:
013795,000189: 06,3456 00006 EXTEND # C(A) = NBD (GYRO PULSES)/(CS) X 2(-5)
013796,000190: 06,3457 71277 MP 1/PIPADT # (CS) X 2(+8) NOW (GYRO PULSES) X 2(+3)
013797,000191: 06,3460 22155 LXCH MPAC +1 # SAVE FOR FRACTIONAL COMPENSATION
013798,000192: 06,3461 00006 EXTEND
013799,000193: 06,3462 74765 MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
013800,000194: 06,3463 50130 INDEX BUF
013801,000195: 06,3464 21472 DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
013802,000196:
013803,000197: 06,3465 30155 CA MPAC +1 # NOW MINOR PART
013804,000198: 06,3466 00006 EXTEND
013805,000199: 06,3467 74765 MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
013806,000200: 06,3470 54001 TS L
013807,000201: 06,3471 34772 CAF ZERO
013808,000202: 06,3472 50130 INDEX BUF # ADD IN FRACTIONAL COMPENSATION
013809,000203: 06,3473 21472 DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
013810,000204:
013811,000205: 06,3474 34767 DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
013812,000206: 06,3475 60130 AD BUF
013813,000207: 06,3476 56130 XCH BUF
013814,000208: 06,3477 50000 INDEX A
013815,000209: 06,3500 11471 CCS GCOMP # ARE GYRO COMMANDS 1 PULSE OR GREATER
013816,000210: 06,3501 13503 TCF +2 # YES
013817,000211: 06,3502 00131 TC BUF +1 # NO
013818,000212:
013819,000213: 06,3503 77702 MASK NEGONE
013820,000214: 06,3504 10000 CCS A # ARE GYRO COMMANDS GREATER THAN 2 PULSES
013821,000215: 06,3505 55477 TS GCOMPSW # YES - SET GCOMPSW POSITIVE
013822,000216: 06,3506 00131 TC BUF +1 # NO
013823,000217:
|
|
Page 314 |
013825,000219: 06,3507 31335 1/CHECK CA MODECADR
013826,000220: 06,3510 00006 EXTEND
013827,000221: 06,3511 13513 BZF 1/GYRO
013828,000222: 06,3512 15205 TCF ENDOFJOB
013829,000223:
013830,000224: 06,3513 34766 1/GYRO CAF FOUR # PIPAZ, PIPAY, PIPAX
013831,000225: 06,3514 54130 +1 TS BUF
013832,000226:
013833,000227: 06,3515 50130 INDEX BUF # SCALE GYRO COMMANDS FOR IMUPULSE
013834,000228: 06,3516 31472 CA GCOMP +1 # FRACTIONAL PULSES
013835,000229: 06,3517 00006 EXTEND
013836,000230: 06,3520 74761 MP BIT8 # SHIFT RIGHT 7
013837,000231: 06,3521 50130 INDEX BUF
013838,000232: 06,3522 55472 TS GCOMP +1 # FRACTIONAL PULSES SCALED
013839,000233:
013840,000234: 06,3523 34772 CAF ZERO # SET GCOMP = 0 FOR DAS INSTRUCTION
013841,000235: 06,3524 50130 INDEX BUF
013842,000236: 06,3525 57471 XCH GCOMP # GYRO PULSES
013843,000237: 06,3526 00006 EXTEND
013844,000238: 06,3527 74761 MP BIT8 # SHIFT RIGHT 7
013845,000239: 06,3530 50130 INDEX BUF
013846,000240: 06,3531 21472 DAS GCOMP # ADD THESE TO FRACTIONAL PULSES ABOVE
013847,000241:
013848,000242: 06,3532 10130 CCS BUF # PIPAZ, PIPAY, PIPAX
013849,000243: 06,3533 67702 AD NEG1
013850,000244: 06,3534 13514 TCF 1/GYRO +1
013851,000245: 06,3535 01471 LGCOMP ECADR GCOMP # LESS THAN ZERO IMPOSSIBLE
013852,000246:
013853,000247: 06,3536 33535 CAF LGCOMP
013854,000248: 06,3537 04636 TC BANKCALL
013855,000249: 06,3540 17244 CADR IMUPULSE # CALL GYRO TORQUING ROUTINE
013856,000250: 06,3541 04636 TC BANKCALL
013857,000251: 06,3542 17644 CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
013858,000252: 06,3543 13544 TCF +1
013859,000253:
013860,000254: 06,3544 34766 GCOMP1 CAF FOUR # PIPAZ, PIPAY, PIPAX
013861,000255: 06,3545 54130 +1 TS BUF
013862,000256:
013863,000257: 06,3546 50130 INDEX BUF # RESCALE
013864,000258: 06,3547 31472 CA GCOMP +1
013865,000259: 06,3550 00006 EXTEND
013866,000260: 06,3551 74761 MP BIT8 # SHIFT MINOR PART LEFT 7 - MAJOR PART = 0
013867,000261: 06,3552 50130 INDEX BUF
013868,000262: 06,3553 23472 LXCH GCOMP +1 # BITS 8-14 OF MINOR PART WERE = 0
013869,000263:
013870,000264: 06,3554 10130 CCS BUF # PIPAZ, PIPAY, PIPAX
013871,000265: 06,3555 67702 AD NEG1
013872,000266: 06,3556 13545 TCF GCOMP1 +1
013873,000267: 06,3557 75252 OCT75252 OCT 75252 # -15 DEGREES USED BY T4RUPT
013874,000268: 06,3560 15205 TCF ENDOFJOB
013875,000269:
|
|
Page 315 |
013877,000271: 06,3561 11477 NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
013878,000272: 06,3562 13565 TCF +3
013879,000273: 06,3563 13565 TCF +2
013880,000274: 06,3564 15205 TCF ENDOFJOB
013881,000275:
013882,000276: 06,3565 00004 INHINT
013883,000277: 06,3566 30076 CA FLAGWRD2
013884,000278: 06,3567 74752 MASK DRFTBIT
013885,000279: 06,3570 00006 EXTEND
013886,000280: 06,3571 15205 BZF ENDOFJOB
013887,000281:
013888,000282: 06,3572 30025 CA TIME1 # (CS) X 2(+14)
013889,000283: 06,3573 57277 XCH 1/PIPADT # PREVIOUS TIME
013890,000284: 06,3574 00003 RELINT
013891,000285: 06,3575 40000 COM
013892,000286: 06,3576 61277 AD 1/PIPADT
013893,000287: 06,3577 10000 NBD2 CCS A # CALCULATE ELAPSED TIME
013894,000288: 06,3600 64770 AD ONE # NO TIME1 OVERFLOW
013895,000289: 06,3601 13606 TCF NBD3 # RESTORE TIME DIFFERENCE AND JUMP
013896,000290: 06,3602 13604 TCF +2 # TIME1 OVERFLOW
013897,000291: 06,3603 15205 TCF ENDOFJOB # IF ELAPSED TIME = 0 (DIFFERENCE = -0)
013898,000292:
013899,000293: 06,3604 40000 COM # CALCULATE ABSOLUTE DIFFERENCE
013900,000294: 06,3605 64750 AD POSMAX
013901,000295:
013902,000296: 06,3606 00006 NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
013903,000297: 06,3607 74757 MP BIT10 # SHIFT RIGHT 5
013904,000298: 06,3610 52123 DXCH VBUF
013905,000299: 06,3611 00006 EXTEND
013906,000300: 06,3612 30123 DCA VBUF
013907,000301: 06,3613 52155 DXCH MPAC # DELTAT NOW SCALED (CS) X 2(+19)
013908,000302:
013909,000303: 06,3614 34772 CAF ZERO
013910,000304: 06,3615 55477 TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS
013911,000305: 06,3616 54130 TS BUF # PIPAX, PIPAY, PIPAZ
013912,000306:
013913,000307: 06,3617 41460 CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
013914,000308: 06,3620 03636 TC FBIASSUB # -(NBDX)(DELTAT) (GYRO PULSES) X 2(+14)
013915,000309:
013916,000310: 06,3621 00006 EXTEND
013917,000311: 06,3622 40123 DCS VBUF
013918,000312: 06,3623 52155 DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
013919,000313: 06,3624 31461 CA NBDY # (GYRO PULSES)/(CS) X 2(-5)
013920,000314: 06,3625 03636 TC FBIASSUB # -(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
013921,000315:
013922,000316: 06,3626 00006 EXTEND
013923,000317: 06,3627 40123 DCS VBUF
013924,000318: 06,3630 52155 DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
013925,000319: 06,3631 41462 CS NBDZ # (GYRO PULSES)/(CS) X 2(-5)
013926,000320: 06,3632 03636 TC FBIASSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14)
|
|
Page 316 |
013928,000322: 06,3633 11477 CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
013929,000323: 06,3634 13513 TCF 1/GYRO # YES
013930,000324: 06,3635 15205 TCF ENDOFJOB # NO
013931,000325:
|
|
Page 317 |
013933,000327: 06,3636 56002 FBIASSUB XCH Q
013934,000328: 06,3637 54131 TS BUF +1
013935,000329:
013936,000330: 06,3640 30002 CA Q # NBD SCALED (GYRO PULSES)/(CS) X 2(-5)
013937,000331: 06,3641 00006 EXTEND
013938,000332: 06,3642 70154 MP MPAC # DELTAT SCALED (CS) X 2(+19)
013939,000333: 06,3643 50130 INDEX BUF
013940,000334: 06,3644 21472 DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
013941,000335:
013942,000336: 06,3645 30002 CA Q # NOW FRACTIONAL PART
013943,000337: 06,3646 00006 EXTEND
013944,000338: 06,3647 70155 MP MPAC +1
013945,000339: 06,3650 54001 TS L
013946,000340: 06,3651 34772 CAF ZERO
013947,000341: 06,3652 50130 INDEX BUF
013948,000342: 06,3653 21472 DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
013949,000343:
013950,000344: 06,3654 13474 TCF DRFTSUB2 # CHECK MAGNITUDE OF COMPENSATION
013951,000345:
013952,000346: 06,3655 04636 LASTBIAS TC BANKCALL
013953,000347: 06,3656 17214 CADR PIPUSE
013954,000348:
013955,000349: 06,3657 11477 CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
013956,000350: 06,3660 13663 TCF +3
013957,000351: 06,3661 13663 TCF +2
013958,000352: 06,3662 15205 TCF ENDOFJOB
013959,000353:
013960,000354: 06,3663 37652 CAF PRIO31 # 2 SECONDS SCALED (CS) X 2(+8)
013961,000355: 06,3664 57277 XCH 1/PIPADT
013962,000356: 06,3665 40000 COM
013963,000357: 06,3666 61105 AD PIPTIME1 +1 # TIME AT PIPA1 =0
013964,000358: 06,3667 13577 TCF NBD2
013965,000359:
013966,000360: 06,3670 21450 90SECS DEC 9000 B-14
013967,000361: 06,3671 16037 20DEGS DEC 7199 B-14
End of include-file IMU_COMPENSATION_PACKAGE.agc. Parent file is MAIN.agc