- B1 — Revision 292
- B2 — Revision 302
- B3 — Revision 302
- B4 — Revision 302
- B5 — Revision 292
- B6 — Revision 306
Source Code
|
|
These source code files are an attempted reconstruction of Sundance revision 306, the Apollo 9
LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of
original core rope program modules, as follows:
|
011918,000002: ## Copyright: Public domain.
011919,000003: ## Filename: IMU_COMPENSATION_PACKAGE.agc
011920,000004: ## Purpose: A section of an attempt to reconstruct Sundance revision 306
011921,000005: ## as closely as possible with available information. Sundance
011922,000006: ## 306 is the source code for the Lunar Module's (LM) Apollo
011923,000007: ## Guidance Computer (AGC) for Apollo 9. This program was created
011924,000008: ## using the mixed-revision SundanceXXX as a starting point, and
011925,000009: ## pulling back features from Luminary 69 believed to have been
011926,000010: ## added based on memos, checklists, observed address changes,
011927,000011: ## or the Sundance GSOPs.
011928,000012: ## Assembler: yaYUL
011929,000013: ## Contact: Ron Burkey <info@sandroid.org>.
011930,000014: ## Website: www.ibiblio.org/apollo/index.html
011931,000015: ## Mod history: 2020-07-24 MAS Created from SundanceXXX.
011932,000016:
011933,000017:
011934,000018: 07,2622 BANK 7
011935,000019: 06,2000 SETLOC IMUCOMP
011936,000020: 06,2000 BANK
011937,000021:
011938,000022: 06,3277 E3,1460 EBANK= NBDX
011939,000023:
011940,000024: 06,3277 COUNT* $$/ICOMP
011941,000025: 06,3277 33531 1/PIPA CAF LGCOMP # SAVE EBANK OF CALLING PROGRAM
011942,000026: 06,3300 56003 XCH EBANK
011943,000027: 06,3301 54163 TS MODE
011944,000028:
011945,000029: 06,3302 11477 CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
011946,000030: 06,3303 13306 TCF +3
011947,000031: 06,3304 13306 TCF +2
011948,000032: 06,3305 13422 TCF IRIG1 # RETURN
011949,000033:
011950,000034: 06,3306 35024 1/PIPA1 CAF FOUR # PIPAZ, PIPAY, PIPAX
011951,000035: 06,3307 54132 TS BUF +2
011952,000036:
011953,000037: 06,3310 50132 INDEX BUF +2
011954,000038: 06,3311 31453 CA PIPASCF # (P.P.M.) X 2(-9)
011955,000039: 06,3312 00006 EXTEND
011956,000040: 06,3313 50132 INDEX BUF +2
011957,000041: 06,3314 71211 MP DELVX # (PP) X 2(+14) NOW (PIPA PULSES) X 2(+5)
011958,000042: 06,3315 54002 TS Q # SAVE MAJOR PART
011959,000043:
011960,000044: 06,3316 30001 CA L # MINOR PART
011961,000045: 06,3317 00006 EXTEND
011962,000046: 06,3320 75021 MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
011963,000047: 06,3321 50132 INDEX BUF +2
011964,000048: 06,3322 55212 TS DELVX +1 # FRACTIONAL PIPA PULSES SCALED 2(+14)
011965,000049:
011966,000050: 06,3323 30002 CA Q # MAJOR PART
011967,000051: 06,3324 00006 EXTEND
011968,000052: 06,3325 75021 MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
011969,000053: 06,3326 50132 INDEX BUF +2
011970,000054: 06,3327 21212 DAS DELVX # (PIPAI) + (PIPAI)(SFE)
011971,000055:
|
|
Lines from here to the bottom of the page angle and start to overlap. The code until the MP BIT4 is legible.
It is assumed that the illegible portions are identical to their Luminary 99 counterparts. - RRB 2017
The comments are legible, except that the last line is rather tricky, and can be verified directly. - RSB 2017 |
011975,000059: 06,3330 50132 INDEX BUF +2
011976,000060: 06,3331 41452 CS PIPABIAS # (PIPA PULSES)/(CS) X 2(-5) *
011977,000061: 06,3332 00006 EXTEND
011978,000062: 06,3333 71075 MP 1/PIPADT # (CS) X 2(+8) NOW (PIPA PULSES) X 2(+3) *
011979,000063: 06,3334 00006 EXTEND
011980,000064: 06,3335 75023 MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11 *
011981,000065: 06,3336 50132 INDEX BUF +2
011982,000066: 06,3337 21212 DAS DELVX # (PIPAI) + (PIPAI)(SFE) - (BIAS)(DELTAT)
011983,000067:
011984,000068: 06,3340 10132 CCS BUF +2 # PIPAZ, PIPAY, PIPAX
011985,000069: 06,3341 67721 AD NEG1
011986,000070: 06,3342 13307 TCF 1/PIPA1 +1
011987,000071: 06,3343 13344 NOOP # LESS THAN ZERO IMPOSSIBLE
011988,000072:
011989,000073: 06,3344 55477 IRIGCOMP TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
011990,000074: 06,3345 54130 TS BUF # INDEX COUNTER . IRIGX, IRIGY, IRIGZ.
011991,000075:
011992,000076: 06,3346 00006 IRIGX EXTEND
011993,000077: 06,3347 41212 DCS DELVX # (PIPA PULSES) X 2(+14)
011994,000078: 06,3350 52155 DXCH MPAC
011995,000079: 06,3351 31463 CA ADIAX # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
011996,000080: 06,3352 03425 TC GCOMPSUB # -(ADIAX)(PIPAX) (GYRO PULSES) X 2(+14)
011997,000081:
011998,000082: 06,3353 00006 EXTEND #
011999,000083: 06,3354 41214 DCS DELVY # (PIPA PULSES) X 2(+14)
012000,000084: 06,3355 52155 DXCH MPAC #
012001,000085: 06,3356 41466 CS ADSRAX # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
012002,000086: 06,3357 03425 TC GCOMPSUB # -(ADSRAX)(PIPAY) (GYRO PULSES) X 2(+14)
012003,000087:
012004,000088: 06,3360 41460 CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
012005,000089: 06,3361 03454 TC DRIFTSUB # -(NBOX)(DELTAT) (GYRO PULSES) X 2(+14)
012006,000090:
012007,000091: 06,3362 00006 IRIGY EXTEND
012008,000092: 06,3363 41214 DCS DELVY # (PIPA PULSES) X 2(+14)
012009,000093: 06,3364 52155 DXCH MPAC
012010,000094: 06,3365 31464 CA ADIAY # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
012011,000095: 06,3366 03425 TC GCOMPSUB # -(ADIAY)(PIPAY) (GYRO PULSES) X 2(+14)
012012,000096:
012013,000097: 06,3367 00006 EXTEND
012014,000098: 06,3370 41216 DCS DELVZ # (PIPA PULSES) X 2(+14)
012015,000099: 06,3371 52155 DXCH MPAC
012016,000100: 06,3372 41467 CS ADSRAY # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
012017,000101: 06,3373 03425 TC GCOMPSUB # +(ADSRAY)(PIPAZ) (GYRO PULSES) X 2(+14)
012018,000102:
012019,000103: 06,3374 41461 CS NBDY # (GYRO PULSES)/(CS) X 2(-5)
012020,000104: 06,3375 03454 TC DRIFTSUB # -(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
012021,000105:
012022,000106: 06,3376 00006 IRIGZ EXTEND
012023,000107: 06,3377 41214 DCS DELVY # (PIPA PULSES) X 2(+14)
012024,000108: 06,3400 52155 DXCH MPAC
012025,000109: 06,3401 31470 CA ADSRAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
012026,000110: 06,3402 03425 TC GCOMPSUB # -(ADSRAZ)(PIPAY) (GYRO PULSES) X 2(+14)
012027,000111:
012028,000112: 06,3403 00006 EXTEND
012029,000113: 06,3404 41216 DCS DELVZ # (PIPA PULSES) X 2(+14)
012030,000114: 06,3405 52155 DXCH MPAC
012031,000115: 06,3406 31465 CA ADIAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
012032,000116: 06,3407 03425 TC GCOMPSUB # -(ADIAZ)(PIPAZ) (GYRO PULSES) X 2(+14)
012033,000117:
012034,000118: 06,3410 31462 CA NBDZ # (GYRO PULSES)/(CS) X 2(-5)
012035,000119: 06,3411 03454 TC DRIFTSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14)
012036,000120:
012037,000121: 06,3412 11477 CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
012038,000122: 06,3413 13415 TCF +2 # YES SEND OUT GYRO TORQUING COMMANDS.
012039,000123: 06,3414 13422 TCF IRIG1 # NO RETURN
012040,000124:
012041,000125: 06,3415 35101 CA PRIO21 # PRIO GREATER THAN SERVICER
012042,000126: 06,3416 05142 TC NOVAC # SEND OUT GYRO TORQUING COMMANDS.
012043,000127: 06,3417 E3,1460 EBANK= NBDX
012044,000128: 06,3417 03507 14063 2CADR 1/GYRO
012045,000129:
012046,000130: 06,3421 00003 RELINT
012047,000131: 06,3422 30163 IRIG1 CA MODE # RESTORE CALLERS EBANK
012048,000132: 06,3423 54003 TS EBANK
012049,000133: 06,3424 14670 TCF SWRETURN
012050,000134:
012051,000135: 06,3425 56154 GCOMPSUB XCH MPAC # ADIA OR ADSRA COEFFICIENT ARRIVES IN A
012052,000136: 06,3426 00006 EXTEND # C(MPAC) = (PIPA PULSES) X 2(+14)
012053,000137: 06,3427 70154 MP MPAC # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
012054,000138: 06,3430 52123 DXCH VBUF # NOW = (GYRO PULSES) X 2(+8) *
012055,000139:
012056,000140: 06,3431 30155 CA MPAC +1 # MINOR PART PIPA PULSES
012057,000141: 06,3432 00006 EXTEND
012058,000142: 06,3433 70154 MP MPAC # ADIA OR ADSRA
012059,000143: 06,3434 54001 TS L
012060,000144: 06,3435 35030 CAF ZERO
012061,000145: 06,3436 20123 DAS VBUF # NOW = (GYRO PULSES) X 2(+8) *
012062,000146:
012063,000147: 06,3437 30122 CA VBUF # PARTIAL RESULT - MAJOR
012064,000148: 06,3440 00006 EXTEND
012065,000149: 06,3441 75016 MP BIT9 # SCALE 2(+6) SHIFT RIGHT 6 *
012066,000150: 06,3442 50130 INDEX BUF # RESULT = (GYRO PULSES) X 2(+14)
012067,000151: 06,3443 21472 DAS GCOMP # HI(ADIA)(PIPAI) OR HI(ADSRA)(PIPAI)
012068,000152:
012069,000153: 06,3444 30123 CA VBUF +1 # PARTIAL RESULT - MINOR
012070,000154: 06,3445 00006 EXTEND
012071,000155: 06,3446 75016 MP BIT9 # SCALE 2(+6) SHIFT RIGHT 6 *
012072,000156: 06,3447 54001 TS L
012073,000157: 06,3450 35030 CAF ZERO
012074,000158: 06,3451 50130 INDEX BUF # RESULT = (GYRO PULSES) X 2(+14)
012075,000159: 06,3452 21472 DAS GCOMP # (ADIA)(PIPAI) OR (ADSRA)(PIPAI)
012076,000160:
012077,000161: 06,3453 00002 TC Q
012078,000162:
012079,000163: 06,3454 00006 DRIFTSUB EXTEND
012080,000164: 06,3455 22131 QXCH BUF +1
012081,000165:
012082,000166: 06,3456 00006 EXTEND # C(A) = NBD (GYRO PULSES)/(CS) X 2(-5)
012083,000167: 06,3457 71075 MP 1/PIPADT # (CS) X 2(+8) NOW (GYRO PULSES) X 2(+3)
012084,000168: 06,3460 22155 LXCH MPAC +1 # SAVE FOR FRACTIONAL COMPENSATION
012085,000169: 06,3461 00006 EXTEND
012086,000170: 06,3462 75023 MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
012087,000171: 06,3463 50130 INDEX BUF
012088,000172: 06,3464 21472 DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
012089,000173:
012090,000174: 06,3465 30155 CA MPAC +1 # NOW MINOR PART
012091,000175: 06,3466 00006 EXTEND
012092,000176: 06,3467 75023 MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
012093,000177: 06,3470 54001 TS L
012094,000178: 06,3471 35030 CAF ZERO
012095,000179: 06,3472 50130 INDEX BUF # ADD IN FRACTIONAL COMPENSATION
012096,000180: 06,3473 21472 DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
012097,000181:
012098,000182: 06,3474 35025 DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
012099,000183: 06,3475 60130 AD BUF
012100,000184: 06,3476 56130 XCH BUF
012101,000185: 06,3477 50000 INDEX A
012102,000186: 06,3500 11471 CCS GCOMP # ARE GYRO COMMANDS 1 PULSE OR GREATER
012103,000187: 06,3501 13503 TCF +2 # YES
012104,000188: 06,3502 00131 TC BUF +1 # NO
012105,000189:
012106,000190: 06,3503 73553 MASK COMPCHK # DEC -1
012107,000191: 06,3504 10000 CCS A # ARE GYRO COMMANDS GREATER THAN 2 PULSES
012108,000192: 06,3505 55477 TS GCOMPSW # YES - SET GCOMPSW POSITIVE
012109,000193: 06,3506 00131 TC BUF +1 # NO
012110,000194:
012111,000195: 06,3507 35024 1/GYRO CAF FOUR # PIPAZ, PIPAY, PIPAX
012112,000196: 06,3510 54130 TS BUF
012113,000197:
012114,000198: 06,3511 50130 INDEX BUF # SCALE GYRO COMMANDS FOR IMUPULSE
012115,000199: 06,3512 31472 CA GCOMP +1 # FRACTIONAL PULSES
012116,000200: 06,3513 00006 EXTEND
012117,000201: 06,3514 75017 MP BIT8 # SHIFT RIGHT 7
012118,000202: 06,3515 50130 INDEX BUF
012119,000203: 06,3516 55472 TS GCOMP +1 # FRACTIONAL PULSES SCALED
012120,000204:
012121,000205: 06,3517 35030 CAF ZERO # SET GCOMP = 0 FOR DAS INSTRUCTION
012122,000206: 06,3520 50130 INDEX BUF
012123,000207: 06,3521 57471 XCH GCOMP # GYRO PULSES
012124,000208: 06,3522 00006 EXTEND
012125,000209: 06,3523 75017 MP BIT8 # SHIFT RIGHT 7
012126,000210: 06,3524 50130 INDEX BUF
012127,000211: 06,3525 21472 DAS GCOMP # ADD THESE TO FRACTIONAL PULSES ABOVE
012128,000212:
012129,000213: 06,3526 10130 CCS BUF # PIPAZ, PIPAY, PIPAX
012130,000214: 06,3527 67721 AD NEG1
012131,000215: 06,3530 13510 TCF 1/GYRO +1
012132,000216: 06,3531 01471 LGCOMP ECADR GCOMP # LESS THAN ZERO IMPOSSIBLE
012133,000217:
012134,000218: 06,3532 33531 CAF LGCOMP
012135,000219: 06,3533 04655 TC BANKCALL
012136,000220: 06,3534 17234 CADR IMUPULSE # CALL GYRO TORQUING ROUTINE
012137,000221: 06,3535 04655 TC BANKCALL
012138,000222: 06,3536 17625 CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
012139,000223: 06,3537 15225 TCF ENDOFJOB # TEMPORARY
012140,000224:
012141,000225: 06,3540 35024 GCOMP1 CAF FOUR # PIPAZ, PIPAY, PIPAX
012142,000226: 06,3541 54130 TS BUF
012143,000227:
012144,000228: 06,3542 50130 INDEX BUF # RESCALE
012145,000229: 06,3543 31472 CA GCOMP +1
012146,000230: 06,3544 00006 EXTEND
012147,000231: 06,3545 75017 MP BIT8 # SHIFT MINOR PART LEFT 7 - MAJOR PART = 0
012148,000232: 06,3546 50130 INDEX BUF
012149,000233: 06,3547 23472 LXCH GCOMP +1 # BITS 8-14 OF MINOR PART WERE = 0
012150,000234:
012151,000235: 06,3550 10130 CCS BUF # PIPAZ, PIPAY, PIPAX
012152,000236: 06,3551 67721 AD NEG1
012153,000237: 06,3552 13541 TCF GCOMP1 +1
012154,000238: 06,3553 77776 COMPCHK DEC -1 B-14 # LESS THAN ZERO IMPOSSIBLE
012155,000239: 06,3554 15225 TCF ENDOFJOB
012156,000240:
012157,000241: 06,3555 11477 NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
012158,000242: 06,3556 13561 TCF +3
012159,000243: 06,3557 13561 TCF +2
012160,000244: 06,3560 15225 TCF ENDOFJOB
012161,000245:
012162,000246: 06,3561 00004 INHINT
012163,000247: 06,3562 10076 CCS FLAGWRD2 # PREREAD T3RUPT MAY COINCIDE
012164,000248: 06,3563 15225 TCF ENDOFJOB
012165,000249: 06,3564 15225 TCF ENDOFJOB
012166,000250: 06,3565 13566 TCF +1
012167,000251:
012168,000252: 06,3566 30025 CA TIME1 # (CS) X 2(+14)
012169,000253: 06,3567 57075 XCH 1/PIPADT # PREVIOUS TIME
012170,000254: 06,3570 00003 RELINT
012171,000255: 06,3571 40000 COM
012172,000256: 06,3572 61075 AD 1/PIPADT # PRESENT TIME - PREVIOUS TIME
012173,000257: 06,3573 10000 NBD2 CCS A # CALCULATE ELAPSED TIME
012174,000258: 06,3574 65026 AD ONE # NO TIME1 OVERFLOW
012175,000259: 06,3575 13602 TCF NBD3 # RESTORE TIME DIFFERENCE AND JUMP
012176,000260: 06,3576 13600 TCF +2 # TIME1 OVERFLOW
012177,000261: 06,3577 15225 TCF ENDOFJOB # IF ELAPSED TIME = 0 (DIFFERENCE = -0)
012178,000262:
012179,000263: 06,3600 40000 COM # CALCULATE ABSOLUTE DIFFERENCE
012180,000264: 06,3601 65006 AD POSMAX
012181,000265:
012182,000266: 06,3602 00006 NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
012183,000267: 06,3603 75015 MP BIT10 # SHIFT RIGHT 5
012184,000268: 06,3604 52123 DXCH VBUF
012185,000269: 06,3605 00006 EXTEND
012186,000270: 06,3606 30123 DCA VBUF
012187,000271: 06,3607 52155 DXCH MPAC # DELTAT NOW SCALED (CS) X 2(+19)
012188,000272:
012189,000273: 06,3610 35030 CAF ZERO
012190,000274: 06,3611 55477 TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS
012191,000275: 06,3612 54130 TS BUF # PIPAX, PIPAY, PIPAZ
012192,000276:
012193,000277: 06,3613 41460 CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
012194,000278: 06,3614 03632 TC FBIASSUB # -(NBDX)(DELTAT) (GYRO PULSES) X 2(+14)
012195,000279:
012196,000280: 06,3615 00006 EXTEND
012197,000281: 06,3616 40123 DCS VBUF
012198,000282: 06,3617 52155 DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
012199,000283: 06,3620 31461 CA NBDY # (GYRO PULSES)/(CS) X 2(-5)
012200,000284: 06,3621 03632 TC FBIASSUB # -(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
012201,000285:
012202,000286: 06,3622 00006 EXTEND
012203,000287: 06,3623 40123 DCS VBUF
012204,000288: 06,3624 52155 DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
012205,000289: 06,3625 41462 CS NBDZ # (GYRO PULSES)/(CS) X 2(-5)
012206,000290: 06,3626 03632 TC FBIASSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2 (+14)
012207,000291:
012208,000292: 06,3627 11477 CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
012209,000293: 06,3630 13507 TCF 1/GYRO # YES
012210,000294: 06,3631 15225 TCF ENDOFJOB # NO
012211,000295:
012212,000296: 06,3632 56002 FBIASSUB XCH Q
012213,000297: 06,3633 54131 TS BUF +1
012214,000298:
012215,000299: 06,3634 30002 CA Q # NBD SCALED (GYRO PULSES)/(CS) X 2(-5)
012216,000300: 06,3635 00006 EXTEND
012217,000301: 06,3636 70154 MP MPAC # DELTAT SCALED (CS) X 2(+19)
012218,000302: 06,3637 50130 INDEX BUF
012219,000303: 06,3640 21472 DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
012220,000304:
012221,000305: 06,3641 30002 CA Q # NOW FRACTIONAL PART
012222,000306: 06,3642 00006 EXTEND
012223,000307: 06,3643 70155 MP MPAC +1
012224,000308: 06,3644 54001 TS L
012225,000309: 06,3645 35030 CAF ZERO
012226,000310: 06,3646 50130 INDEX BUF
012227,000311: 06,3647 21472 DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
012228,000312:
012229,000313: 06,3650 13474 TCF DRFTSUB2 # CHECK MAGNITUDE OF COMPENSATION
012230,000314:
012231,000315: 06,3651 35025 NORMBIAS CAF TWO
012232,000316: 06,3652 05511 TC NEWPHASE
012233,000317: 06,3653 00005 OCT 5
012234,000318: 06,3654 00004 INHINT
012235,000319: 06,3655 35011 CAF PRIO20
012236,000320: 06,3656 05155 TC FINDVAC
012237,000321: 06,3657 E7,1472 EBANK= DVCNTR
012238,000322: 06,3657 02360 66067 2CADR NORMLIZE
012239,000323:
012240,000324: 06,3661 04655 LASTBIAS TC BANKCALL
012241,000325: 06,3662 17204 CADR PIPUSE
012242,000326:
012243,000327: 06,3663 11477 CCS GCOMPSW
012244,000328: 06,3664 13667 TCF +3
012245,000329: 06,3665 13667 TCF +2
012246,000330: 06,3666 15225 TCF ENDOFJOB
012247,000331:
012248,000332: 06,3667 37670 CAF PRIO31 # 2 SECONDS SCALED (CS) X 2(+8)
012249,000333: 06,3670 57075 XCH 1/PIPADT
012250,000334: 06,3671 40000 COM
012251,000335: 06,3672 61234 AD PIPTIME +1
012252,000336: 06,3673 13573 TCF NBD2
012253,000337:
012254,000338: 06,3674 33531 GCOMPZER CAF LGCOMP # ROUTINE TO ZERO GCOMP BEFORE FIRST
012255,000339: 06,3675 56003 XCH EBANK # CALL TO 1/PIPA
012256,000340: 06,3676 54163 TS MODE
012257,000341:
012258,000342: 06,3677 35030 CAF ZERO
012259,000343: 06,3700 55477 TS GCOMPSW
012260,000344: 06,3701 55471 TS GCOMP
012261,000345: 06,3702 55472 TS GCOMP +1
012262,000346: 06,3703 55473 TS GCOMP +2
012263,000347: 06,3704 55474 TS GCOMP +3
012264,000348: 06,3705 55475 TS GCOMP +4
012265,000349: 06,3706 55476 TS GCOMP +5
012266,000350:
012267,000351: 06,3707 30163 CA MODE
012268,000352: 06,3710 54003 TS EBANK
012269,000353: 06,3711 14670 TCF SWRETURN # RETURN TO CALLER
End of include-file IMU_COMPENSATION_PACKAGE.agc. Parent file is MAIN.agc