Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 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.
|
051924,000002: ## Copyright: Public domain.
051925,000003: ## Filename: PLANETARY_INERTIAL_ORIENTATION.agc
051926,000004: ## Purpose: A section of Comanche revision 072.
051927,000005: ## It is part of the reconstructed source code for the first
051928,000006: ## release of the software for the Command Module's (CM) Apollo
051929,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
051930,000008: ## of this program are available; instead, this file was recreated
051931,000009: ## from a printout of Comanche 055, binary dumps of a set of
051932,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
051933,000011: ## and 072. It has been adapted such that the resulting bugger words
051934,000012: ## exactly match those specified for Comanche 072 in NASA drawing
051935,000013: ## 2021153G, which gives relatively high confidence that the
051936,000014: ## reconstruction is correct.
051937,000015: ## Assembler: yaYUL
051938,000016: ## Contact: Ron Burkey <info@sandroid.org>.
051939,000017: ## Website: www.ibiblio.org/apollo/index.html
051940,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
051941,000019:
051942,000020: # ..... RP-TO-R SUBROUTINE .....
051943,000021: # SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
051944,000022: # EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
051945,000023: # R = MT(T) * (RP + LP X RP) MT = M MATRIX TRANSPOSE
051946,000024:
051947,000025: # CALLING SEQUENCE
051948,000026: # L CALL
051949,000027: # L+1 RP-TO-R
051950,000028:
051951,000029: # SUBROUTINES USED
051952,000030: # EARTHMX, MOONMX, EARTHL
051953,000031:
051954,000032: # ITEMS AVAILABLE FROM LAUNCH DATA
051955,000033: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
051956,000034: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
051957,000035:
051958,000036: # ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
051959,000037:
051960,000038: # INPUT
051961,000039: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
051962,000040: # 0-5D = RP VECTOR
051963,000041: # 6-7D = TIME
051964,000042:
051965,000043: # OUTPUT
051966,000044: # MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
051967,000045:
051968,000046: 26,2000 SETLOC PLANTIN
051969,000047: 26,2000 BANK
051970,000048:
051971,000049: 26,3343 COUNT* $$/LUROT
051972,000050:
051973,000051: 26,3343 46020 RP-TO-R STQ BHIZ
051974,000052: 26,3344 00050 RPREXIT
051975,000053: 26,3345 55360 RPTORA
051976,000054: 26,3346 77624 CALL # COMPUTE M MATRIX FOR MOON
051977,000055: 26,3347 55420 MOONMX # LP=LM FOR MOON RADIANS B0
051978,000056: 26,3350 77775 VLOAD
051979,000057: 26,3351 02012 504LM
051980,000058: 26,3352 53235 RPTORB VXV VAD
051981,000059: 26,3353 00001 504RPR
051982,000060: 26,3354 00001 504RPR
051983,000061: 26,3355 52105 VXM GOTO
051984,000062: 26,3356 00025 MMATRIX # MPAC=R=MT(T)*(RP+LPXRP)
051985,000063: 26,3357 55406 RPRPXXXX # RESET PUSHLOC TO 0 BEFORE EXITING
051986,000064: 26,3360 77624 RPTORA CALL # EARTH COMPUTATIONS
051987,000065: 26,3361 55572 EARTHMX # M MATRIX B-1
051988,000066: 26,3362 77624 CALL
051989,000067: 26,3363 55624 EARTHL # L VECTOR RADIANS B0
051990,000068: 26,3364 76521 MXV VSL1 # LP=M(T)*L RAD B-0
051991,000069: 26,3365 00025 MMATRIX
051992,000070: 26,3366 77650 GOTO
051993,000071: 26,3367 55352 RPTORB
051994,000072:
051995,000073: # ..... R-TO-RP SUBROUTINE .....
051996,000074: # SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
051997,000075: # (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
051998,000076: # RP = M(T) * (R - L X R)
051999,000077:
052000,000078: # CALLING SEQUENCE
052001,000079: # L CALL
052002,000080: # L+1 R-TO-RP
052003,000081:
052004,000082: # SUBROUTINES USED
052005,000083: # EARTHMX, MOONMX, EARTHL
052006,000084:
052007,000085: # INPUT
052008,000086: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
052009,000087: # 0-5D = R VECTOR
052010,000088: # 6-7D = TIME
052011,000089:
052012,000090: # ITEMS AVAILABLE FROM LAUNCH DATA
052013,000091: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
052014,000092: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
052015,000093:
052016,000094: # ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
052017,000095:
052018,000096: # OUTPUT
052019,000097: # MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
052020,000098:
052021,000099: 26,3370 46020 R-TO-RP STQ BHIZ
052022,000100: 26,3371 00050 RPREXIT
052023,000101: 26,3372 55412 RTORPA
052024,000102: 26,3373 77624 CALL
052025,000103: 26,3374 55420 MOONMX
052026,000104: 26,3375 61375 VLOAD VXM
052027,000105: 26,3376 02012 504LM # LP=LM
052028,000106: 26,3377 00025 MMATRIX
052029,000107: 26,3400 77772 VSL1 # L = MT(T)*LP RADIANS B0
052030,000108: 26,3401 51235 RTORPB VXV BVSU
052031,000109: 26,3402 00001 504RPR
052032,000110: 26,3403 00001 504RPR
052033,000111: 26,3404 77721 MXV # M(T)*(R-LXR) B-2
052034,000112: 26,3405 00025 MMATRIX
052035,000113: 26,3406 40372 RPRPXXXX VSL1 SETPD
052036,000114: 26,3407 00001 0D
052037,000115: 26,3410 77650 GOTO
052038,000116: 26,3411 00050 RPREXIT
052039,000117: 26,3412 77624 RTORPA CALL # EARTH COMPUTATIONS
052040,000118: 26,3413 55572 EARTHMX
052041,000119: 26,3414 77624 CALL
052042,000120: 26,3415 55624 EARTHL
052043,000121: 26,3416 77650 GOTO # MPAC=L=(-AX,-AY,0) RAD B-0
052044,000122: 26,3417 55401 RTORPB
052045,000123:
052046,000124: # ..... MOONMX SUBROUTINE .....
052047,000125: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
052048,000126:
052049,000127: # CALLING SEQUENCE
052050,000128: # L CALL
052051,000129: # L+1 MOONMX
052052,000130:
052053,000131: # SUBROUTINES USED
052054,000132: # NEWANGLE
052055,000133:
052056,000134: # INPUT
052057,000135: # 6-7D = TIME
052058,000136:
052059,000137: # ITEMS AVAILABLE FROM LAUNCH DATA
052060,000138: # BSUBO, BDOT
052061,000139: # TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
052062,000140: # COSI = COS(I) B-1
052063,000141: # SINI = SIN(I) B-1
052064,000142: # I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
052065,000143: # PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
052066,000144:
052067,000145: # OUTPUT
052068,000146: # MMATRIX = 3X3 M MATRIX B-1 (STORED IN VAC AREA)
052069,000147:
052070,000148: 26,3420 40220 MOONMX STQ SETPD
052071,000149: 26,3421 00051 EARTHMXX
052072,000150: 26,3422 00011 8D
052073,000151: 26,3423 77770 AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE
052074,000152: 26,3424 00005 5
052075,000153: 26,3425 65345 DLOAD PDDL # PD 10D 8-9D=BSUBO
052076,000154: 26,3426 15654 BSUBO # 10-11D=BDOT
052077,000155: 26,3427 15646 BDOT
052078,000156: 26,3430 45006 PUSH CALL # PD 12D
052079,000157: 26,3431 55545 NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0
052080,000158: 26,3432 71406 PUSH COS # PD 10D
052081,000159: 26,3433 14041 STODL COB # PD 8D COS(B) B-1
052082,000160: 26,3434 77756 SIN # SIN(B) B-1
052083,000161: 26,3435 14043 STODL SOB # SETUP INPUT FOR NEWANGLE
052084,000162: 26,3436 15652 FSUBO # 8-9D=FSUBO
052085,000163: 26,3437 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT
052086,000164: 26,3440 15644 FDOT
052087,000165: 26,3441 45170 AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE
052088,000166: 26,3442 00004 4
052089,000167: 26,3443 55545 NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
052090,000168: 26,3444 14027 STODL AVECTR +2 # SAVE F TEMP
052091,000169: 26,3445 15650 NODIO # 8-9D=NODIO
052092,000170: 26,3446 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
052093,000171: 26,3447 15642 NODDOT # MPAC=T
052094,000172: 26,3450 45170 AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
052095,000173: 26,3451 00005 5
052096,000174: 26,3452 55545 NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
052097,000175: 26,3453 71406 PUSH COS # PD 10D 8-9D= NODI REVS B0
052098,000176: 26,3454 77606 PUSH # PD 12D 10-11D= COS(NODI) B-1
052099,000177: 26,3455 00025 STORE AVECTR
052100,000178: 26,3456 76405 DMP SL1R
052101,000179: 26,3457 00041 COB # COS(NODI) B-1
052102,000180: 26,3460 14035 STODL BVECTR +2 # PD 10D 20-25D=AVECTR=COB*SIN(NODI)
052103,000181: 26,3461 76405 DMP SL1R # SOB*SIN(NODI)
052104,000182: 26,3462 00043 SOB
052105,000183: 26,3463 14037 STODL BVECTR +4 # PD 8D
052106,000184: 26,3464 41556 SIN PUSH # PD 10D -SIN(NODI) B-1
052107,000185: 26,3465 77676 DCOMP # 26-31D=BVECTR=COB*COS(NODI)
052108,000186: 26,3466 14033 STODL BVECTR # PD 8D SOB*COS(NODI)
052109,000187: 26,3467 00027 AVECTR +2 # MOVE F FROM TEMP LOC. TO 504F
052110,000188: 26,3470 14007 STODL 504F
052111,000189: 26,3471 76405 DMP SL1R
052112,000190: 26,3472 00041 COB
052113,000191: 26,3473 14027 STODL AVECTR +2
052114,000192: 26,3474 00011 SINNODI # 8-9D=SIN(NODI) B-1
052115,000193: 26,3475 76405 DMP SL1R
052116,000194: 26,3476 00043 SOB
052117,000195: 26,3477 14031 STODL AVECTR +4 # 0
052118,000196: 26,3500 15334 HI6ZEROS # 8-13D= CVECTR= -SOB B-1
052119,000197: 26,3501 57525 PDDL DCOMP # PD 10D COB
052120,000198: 26,3502 00043 SOB
052121,000199: 26,3503 63325 PDDL PDVL # PD 12D THEN PD 14D
052122,000200: 26,3504 00041 COB
052123,000201: 26,3505 00033 BVECTR
052124,000202: 26,3506 63361 VXSC PDVL # PD 20D BVECTR*SINI B-2
052125,000203: 26,3507 15640 SINI
052126,000204: 26,3510 00011 CVECTR
052127,000205: 26,3511 53361 VXSC VAD # PD 14D CVECTR*COSI B-2
052128,000206: 26,3512 15636 COSI
052129,000207: 26,3513 77772 VSL1
052130,000208: 26,3514 24041 STOVL MMATRIX +12D # PD 8D M2=BVECTR*SINI+CVECTR*COSI B-1
052131,000209: 26,3515 63361 VXSC PDVL # PD 14D
052132,000210: 26,3516 15640 SINI # CVECTR*SINI B-2
052133,000211: 26,3517 00033 BVECTR
052134,000212: 26,3520 52361 VXSC VSU # PD 8D BVECTR*COSI B-2
052135,000213: 26,3521 15636 COSI
052136,000214: 26,3522 65372 VSL1 PDDL # PD 14D
052137,000215: 26,3523 00007 504F # 8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
052138,000216: 26,3524 74346 COS VXSC
052139,000217: 26,3525 00011 DVECTR
052140,000218: 26,3526 73525 PDDL SIN # PD 20D 14-19D= DVECTR*COSF B-2
052141,000219: 26,3527 00007 504F
052142,000220: 26,3530 52361 VXSC VSU # PD 14D AVECTR*SINF B-2
052143,000221: 26,3531 00025 AVECTR
052144,000222: 26,3532 77772 VSL1
052145,000223: 26,3533 14033 STODL MMATRIX +6 # M1= AVECTR*SINF-DVECTR*COSF B-1
052146,000224: 26,3534 00007 504F
052147,000225: 26,3535 74356 SIN VXSC # PD 8D
052148,000226: 26,3536 71525 PDDL COS # PD 14D 8-13D=DVECTR*SINF B-2
052149,000227: 26,3537 00007 504F
052150,000228: 26,3540 53361 VXSC VAD # PD 8D AVECTR*COSF B-2
052151,000229: 26,3541 00025 AVECTR
052152,000230: 26,3542 57572 VSL1 VCOMP
052153,000231: 26,3543 34025 STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
052154,000232: 26,3544 00051 EARTHMXX
052155,000233:
052156,000234: # COMPUTE X=X0+(XDOT)(T+T0)
052157,000235: # 8-9D= XO (REVS B-0), PUSHLOC SET AT 12D
052158,000236: # 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
052159,000237: # AND B+27 FOR FDOT
052160,000238: # X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NODDOT AND
052161,000239: # BDOT AND 4 FOR FDOT
052162,000240: # 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
052163,000241:
052164,000242: 26,3545 54345 NEWANGLE DLOAD SR # ENTER PD 12D
052165,000243: 26,3546 00007 6D
052166,000244: 26,3547 20617 14D
052167,000245: 26,3550 72371 TAD TLOAD # CHANGE MODE TO TP
052168,000246: 26,3551 01707 TIMSUBO
052169,000247: 26,3552 00155 MPAC
052170,000248: 26,3553 14017 STODL TIMSUBM # T+T0 CSEC B-42
052171,000249: 26,3554 00020 TIMSUBM +1
052172,000250: 26,3555 77605 DMP # PD 10D MULT BY XDOT IN 10-11D
052173,000251: 26,3556 43257 SL* DAD # PD 8D ADD XO IN 8-9D AFTER SHIFTING
052174,000252: 26,3557 20206 5,1 # SUCH THAT SCALING IS B-0
052175,000253: 26,3560 67206 PUSH SLOAD # PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
052176,000254: 26,3561 00017 TIMSUBM
052177,000255: 26,3562 41261 SL DMP
052178,000256: 26,3563 20212 9D
052179,000257: 26,3564 00013 10D # XDOT
052180,000258: 26,3565 43257 SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X
052181,000259: 26,3566 20213 10D,1 # IS SCALED REVS/CSEC B-0
052182,000260: 26,3567 77600 BOV # TURN OFF OVERFLOW IF SET BY SHIFT
052183,000261: 26,3570 55571 +1 # INSTRUCTION BEFORE EXITING
052184,000262: 26,3571 77616 RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0
052185,000263:
052186,000264: # ..... EARTHMX SUBROUTINE .....
052187,000265: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
052188,000266:
052189,000267: # CALLING SEQUENCE
052190,000268: # L CALL
052191,000269: # L+1 EARTHMX
052192,000270:
052193,000271: # SUBROUTINES USED
052194,000272: # NEWANGLE
052195,000273:
052196,000274: # INPUT
052197,000275: # INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0
052198,000276: # TEPHEM CSEC B-42
052199,000277: # 6-7D= TIME CSEC B-28
052200,000278:
052201,000279: # OUTPUT
052202,000280: # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
052203,000281:
052204,000282: 26,3572 40220 EARTHMX STQ SETPD # SET 8-9D=AZO
052205,000283: 26,3573 00051 EARTHMXX
052206,000284: 26,3574 00011 8D # 10-11D=WEARTH
052207,000285: 26,3575 77770 AXT,1 # FOR SL 5, AND SL 10 IN NEWANGLE
052208,000286: 26,3576 00000 0
052209,000287: 26,3577 65345 DLOAD PDDL # LEAVING PD SET AT 12D FOR NEWANGLE
052210,000288: 26,3600 01712 AZO
052211,000289: 26,3601 15656 WEARTH
052212,000290: 26,3602 45006 PUSH CALL
052213,000291: 26,3603 55545 NEWANGLE
052214,000292: 26,3604 41401 SETPD PUSH # 18-19D=504AZ
052215,000293: 26,3605 00023 18D # COS(AZ) SIN(AZ) 0
052216,000294: 26,3606 65346 COS PDDL # 20-37D= MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
052217,000295: 26,3607 00023 504AZ # 0 0 1
052218,000296: 26,3610 65356 SIN PDDL
052219,000297: 26,3611 15334 HI6ZEROS
052220,000298: 26,3612 73525 PDDL SIN
052221,000299: 26,3613 00023 504AZ
052222,000300: 26,3614 65276 DCOMP PDDL
052223,000301: 26,3615 00023 504AZ
052224,000302: 26,3616 63346 COS PDVL
052225,000303: 26,3617 15334 HI6ZEROS
052226,000304: 26,3620 41525 PDDL PUSH
052227,000305: 26,3621 15332 HIDPHALF
052228,000306: 26,3622 77650 GOTO
052229,000307: 26,3623 00051 EARTHMXX
052230,000308:
052231,000309: # ..... EARTHL SUBROUTINE .....
052232,000310: # SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
052233,000311:
052234,000312: # CALLING SEQUENCE
052235,000313: # L CALL
052236,000314: # L+1 EARTHL
052237,000315:
052238,000316: # INPUT
052239,000317: # AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
052240,000318:
052241,000319: # OUTPUT
052242,000320: # -AX
052243,000321: # MPAC= -AY RADIANS B-0
052244,000322: # 0
052245,000323:
052246,000324: 26,3624 57545 EARTHL DLOAD DCOMP
052247,000325: 26,3625 01716 AXO
052248,000326: 26,3626 14017 STODL 504LPL
052249,000327: 26,3627 01714 -AYO
052250,000328: 26,3630 14021 STODL 504LPL +2
052251,000329: 26,3631 15334 HI6ZEROS
052252,000330: 26,3632 24023 STOVL 504LPL +4
052253,000331: 26,3633 00017 504LPL
052254,000332: 26,3634 77616 RVQ
052255,000333:
052256,000334: # CONSTANTS AND ERASABLE ASSIGNMENTS
052257,000335:
052258,000336: 26,3635 04,3563 1B1 = DP1/2 # 1 SCALED B-1
052259,000337: 26,3635 17775 02052 COSI 2DEC .99964173 B-1 # COS(5521.5 SEC) B-1
052260,000338:
052261,000339: 26,3637 00333 10374 SINI 2DEC .02676579 B-1 # SIN(5521.5 SEC) B-1
052262,000340:
052263,000341: 26,3641 0000050 RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
052264,000342: 26,3641 0000051 EARTHMXX = S2 # EARTHMX, MOONMX SUBR. EXITS
052265,000343: 26,3641 504RPR = 0D # 6 REGS R OR RP VECTOR
052266,000344: 26,3641 SINNODI = 8D # 2 SIN(NODI)
052267,000345: 26,3641 DVECTR = 8D # 6 D VECTOR MOON
052268,000346: 26,3641 CVECTR = 8D # 6 C VECTR MOON
052269,000347: 26,3641 504AZ = 18D # 2 AZ
052270,000348: 26,3641 TIMSUBM = 14D # 3 TIME SUB M (MOON) T+T0 IN GETAZ
052271,000349: 26,3641 504LPL = 14D # 6 L OR LP VECTOR
052272,000350: 26,3641 AVECTR = 20D # 6 A VECTOR (MOON)
052273,000351: 26,3641 BVECTR = 26D # 6 B VECTOR (MOON)
052274,000352: 26,3641 MMATRIX = 20D # 18 M MATRIX
052275,000353: 26,3641 COB = 32D # 2 COS(B) B-1
052276,000354: 26,3641 SOB = 34D # 2 SIN(B) B-1
052277,000355: 26,3641 504F = 6D # 2 F(MOON)
052278,000356: 26,3641 77665 42175 NODDOT 2DEC* -1.703706190 E-11 B28* # REV/CSEC
052279,000357:
052280,000358: 26,3643 22211 00636 FDOT 2DEC* 4.253263473 E-9 B27* # REV/CSEC
052281,000359:
052282,000360: 26,3645 77777 77767 BDOT 2DEC* -1.145529388 E-16 B28* # REV/CSEC
052283,000361:
052284,000362: 26,3647 37436 01614 NODIO 2DEC* 9.862094363 E-1* # REV
052285,000363:
052286,000364: 26,3651 32417 32011 FSUBO 2DEC* 8.290901511 E-1* # REV
052287,000365:
052288,000366: 26,3653 02052 35552 BSUBO 2DEC 6.512013939 E-2 # REVS
052289,000367:
052290,000368: 26,3655 37116 32631 WEARTH 2DEC* 1.160576171 E-7 B23* # REV/CSEC
052291,000369:
End of include-file PLANETARY_INERTIAL_ORIENTATION.agc. Parent file is MAIN.agc