Source Code
052343,000001: # Copyright: Public domain.
052344,000002: # Filename: PLANETARY_INERTIAL_ORIENTATION.agc
052345,000003: # Purpose: Part of the source code for Colossus, build 249.
052346,000004: # It is part of the source code for the Command Module's (CM)
052347,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
052348,000006: # Assembler: yaYUL
052349,000007: # Reference: Starts on p. 1225 of 1701.pdf.
052350,000008: # Contact: Ron Burkey <info@sandroid.org>.
052351,000009: # Website: www.ibiblio.org/apollo.
052352,000010: # Mod history: 08/28/04 RSB. Adapted from corresponding Luminary131 file.
052353,000011:
052354,000012: # The contents of the "Colossus249" files, in general, are transcribed
052355,000013: # from a scanned document obtained from MIT's website,
052356,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
052357,000015: # document read, in part:
052358,000016:
052359,000017: # Assemble revision 249 of AGC program Colossus by NASA
052360,000018: # 2021111-041. October 28, 1968.
052361,000019:
052362,000020: # This AGC program shall also be referred to as
052363,000021: # Colossus 1A
052364,000022:
052365,000023: # Prepared by
052366,000024: # Massachussets Institute of Technology
052367,000025: # 75 Cambridge Parkway
052368,000026: # Cambridge, Massachusetts
052369,000027: # under NASA contract NAS 9-4065.
052370,000028:
052371,000029: # Refer directly to the online document mentioned above for further information.
052372,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
052373,000031:
052374,000032: # In some cases, where the source code for Luminary 131 overlaps that of
052375,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131
052376,000034: # source file, and then is proofed to incorporate any changes.
052377,000035:
052378,000036: # Page 1225
052379,000037: # PLANETARY INERTIAL ORIENTATION
052380,000038:
052381,000039: # ***** RP-TO-R SUBROUTINE *****
052382,000040: # SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
052383,000041: # EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN BASIC REF. SYSTEM)
052384,000042: # R = MT(T) * (RP + LP X RP) MT = M MATRIX TRANSPOSE
052385,000043:
052386,000044: # CALLING SEQUENCE
052387,000045: # L CALL
052388,000046: # L+1 RP-TO-R
052389,000047:
052390,000048: # SUBROUTINES USED
052391,000049: # EARTHMX, MOONMX, EARTHL
052392,000050:
052393,000051: # ITEMS AVAILABLE FROM LAUNCH DATA
052394,000052: # 504M = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
052395,000053: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
052396,000054:
052397,000055: # ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
052398,000056:
052399,000057: # INPUT
052400,000058: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
052401,000059: # 0-5D = RP VECTOR
052402,000060: # 6-7D = TIME
052403,000061:
052404,000062: # OUTPUT
052405,000063: # MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
052406,000064:
052407,000065: 26,2000 SETLOC PLANTIN
052408,000066: 26,2000 BANK
052409,000067:
052410,000068: 26,3341 COUNT* $$/LUROT
052411,000069:
052412,000070: 26,3341 46020 RP-TO-R STQ BHIZ
052413,000071: 26,3342 00050 RPREXIT
052414,000072: 26,3343 55356 RPTORA
052415,000073: 26,3344 77624 CALL # COMPUTE M MATRIX FOR MOON
052416,000074: 26,3345 55416 MOONMX # LP=LM FOR MOON RADIANS B0
052417,000075: 26,3346 77775 VLOAD
052418,000076: 26,3347 02012 504LM
052419,000077: 26,3350 53235 RPTORB VXV VAD
052420,000078: 26,3351 00001 504RPR
052421,000079: 26,3352 00001 504RPR
052422,000080: 26,3353 52105 VXM GOTO
052423,000081: 26,3354 00025 MMATRIX # MPAC=R=MT(T)*(RP+LPXRP)
052424,000082: 26,3355 55404 RPRPXXXX # RESET PUSHLOC TO 0 BEFORE EXITING
052425,000083: 26,3356 77624 RPTORA CALL # EARTH COMPUTATIONS
052426,000084: 26,3357 55570 EARTHMX # M MATRIX B-1
052427,000085: 26,3360 77624 CALL
052428,000086: 26,3361 55622 EARTHL # L VECTOR RADIANS B0
052429,000087: 26,3362 76521 MXV VSL1 # LP=M(T)*L RAD B-0
052430,000088: 26,3363 00025 MMATRIX
052431,000089: # Page 1226
052432,000090: 26,3364 77650 GOTO
052433,000091: 26,3365 55350 RPTORB
052434,000092:
052435,000093: # Page 1227
052436,000094: # ***** R-TO-RP SUBROUTINE *****
052437,000095: # SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
052438,000096: # (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
052439,000097: # RP = M(T) * (R - L X R)
052440,000098:
052441,000099: # CALLING SEQUENCE
052442,000100: # L CALL
052443,000101: # L+1 R-TO-RP
052444,000102:
052445,000103: # SUBROUTINES USED
052446,000104: # EARTHMX, MOONMX, EARTHL
052447,000105:
052448,000106: # INPUT
052449,000107: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
052450,000108: # 0-5D = R VECTOR
052451,000109: # 6-7D = TIME
052452,000110:
052453,000111: # ITEMS AVAILABLE FROM LAUNCH DATA
052454,000112: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
052455,000113: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
052456,000114:
052457,000115: # ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
052458,000116:
052459,000117: # OUTPUT
052460,000118: # MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
052461,000119:
052462,000120: 26,3366 46020 R-TO-RP STQ BHIZ
052463,000121: 26,3367 00050 RPREXIT
052464,000122: 26,3370 55410 RTORPA
052465,000123: 26,3371 77624 CALL
052466,000124: 26,3372 55416 MOONMX
052467,000125: 26,3373 61375 VLOAD VXM
052468,000126: 26,3374 02012 504LM # LP=LM
052469,000127: 26,3375 00025 MMATRIX
052470,000128: 26,3376 77772 VSL1 # L = MT(T)*LP RADIANS B0
052471,000129: 26,3377 51235 RTORPB VXV BVSU
052472,000130: 26,3400 00001 504RPR
052473,000131: 26,3401 00001 504RPR
052474,000132: 26,3402 77721 MXV # M(T)*(R-LXR) B-2
052475,000133: 26,3403 00025 MMATRIX
052476,000134: 26,3404 40372 RPRPXXXX VSL1 SETPD
052477,000135: 26,3405 00001 0D
052478,000136: 26,3406 77650 GOTO
052479,000137: 26,3407 00050 RPREXIT
052480,000138: 26,3410 77624 RTORPA CALL # EARTH COMPUTATIONS
052481,000139: 26,3411 55570 EARTHMX
052482,000140: 26,3412 77624 CALL
052483,000141: 26,3413 55622 EARTHL
052484,000142: 26,3414 77650 GOTO # MPAC=L=(-AX,-AY,0) RAD B-0
052485,000143: 26,3415 55377 RTORPB
052486,000144:
052487,000145: # Page 1228
052488,000146: # ***** MOONMX SUBROUTINE *****
052489,000147: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
052490,000148:
052491,000149: # CALLING SEQUENCE
052492,000150: # L CALL
052493,000151: # L+1 MOONMX
052494,000152:
052495,000153: # SUBROUTINES USED
052496,000154: # NEWANGLE
052497,000155:
052498,000156: # INPUT
052499,000157: # 6-7D = TIME
052500,000158:
052501,000159: # ITEMS AVAILABLE FROM LAUNCH DATA
052502,000160: # BSUBO, BDOT
052503,000161: # TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
052504,000162: # COSI = COS(I) B-1
052505,000163: # SINI = SIN(I) B-1
052506,000164: # I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
052507,000165: # PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
052508,000166:
052509,000167: # OUTPUT
052510,000168: # MMATRIX = 3X3 M MATRIX B-1 (STORED IN VAC AREA)
052511,000169:
052512,000170: 26,3416 40220 MOONMX STQ SETPD
052513,000171: 26,3417 00051 EARTHMXX
052514,000172: 26,3420 00011 8D
052515,000173: 26,3421 77770 AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE
052516,000174: 26,3422 00005 5
052517,000175: 26,3423 65345 DLOAD PDDL # PD 10D 8-9D=BSUBO
052518,000176: 26,3424 15652 BSUBO # 10-11D=BDOT
052519,000177: 26,3425 15644 BDOT
052520,000178: 26,3426 45006 PUSH CALL # PD 12D
052521,000179: 26,3427 55543 NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0
052522,000180: 26,3430 71406 PUSH COS # PD 10D
052523,000181: 26,3431 14041 STODL COB # PD 8D COS(B) B-1
052524,000182: 26,3432 77756 SIN # SIN(B) B-1
052525,000183: 26,3433 14043 STODL SOB # SETUP INPUT FOR NEWANGLE
052526,000184: 26,3434 15650 FSUBO # 8-9D=FSUBO
052527,000185: 26,3435 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT
052528,000186: 26,3436 15642 FDOT
052529,000187: 26,3437 45170 AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE.
052530,000188: 26,3440 00004 4
052531,000189: 26,3441 55543 NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
052532,000190: 26,3442 14027 STODL AVECTR +2 # SAVE F TEMP
052533,000191: 26,3443 15646 NODIO # 8-9D=NODIO
052534,000192: 26,3444 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
052535,000193: 26,3445 15640 NODDOT # MPAC=5
052536,000194: 26,3446 45170 AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
052537,000195: 26,3447 00005 5
052538,000196: 26,3450 55543 NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
052539,000197: # Page 1229
052540,000198: 26,3451 71406 PUSH COS # PD 10D 8-9D= NODI REVS B0
052541,000199: 26,3452 77606 PUSH # PD 12D 10-11D= COS(NODI) B-1
052542,000200: 26,3453 00025 STORE AVECTR
052543,000201: 26,3454 76405 DMP SL1R
052544,000202: 26,3455 00041 COB # COS(NODI) B-1
052545,000203: 26,3456 14035 STODL BVECTR +2 # PD 10D 20-25D=AVECTR=COB*SIN(NODI)
052546,000204: 26,3457 76405 DMP SL1R # SOB*SIN(NODI)
052547,000205: 26,3460 00043 SOB
052548,000206: 26,3461 14037 STODL BVECTR +4 # PD 8D
052549,000207: 26,3462 41556 SIN PUSH # -SIN(NODI) B-1
052550,000208: 26,3463 77676 DCOMP # 26-31D=BVECTR=COB*COS(NODI)
052551,000209: 26,3464 14033 STODL BVECTR # PD 8D SOB*COS(NODI)
052552,000210: 26,3465 00027 AVECTR +2
052553,000211: 26,3466 14007 STODL 504F
052554,000212: 26,3467 76405 DMP SL1R
052555,000213: 26,3470 00041 COB
052556,000214: 26,3471 14027 STODL AVECTR +2
052557,000215: 26,3472 00011 SINNODI # 8-9D=SIN(NODI) B-1
052558,000216: 26,3473 76405 DMP SL1R
052559,000217: 26,3474 00043 SOB
052560,000218: 26,3475 14031 STODL AVECTR +4 # 0
052561,000219: 26,3476 15332 HI6ZEROS # 8-13D= CVECTR= -SOB B-1
052562,000220: 26,3477 57525 PDDL DCOMP # PD 10D COB
052563,000221: 26,3500 00043 SOB
052564,000222: 26,3501 63325 PDDL PDVL # PD 12D THEN PD 14D
052565,000223: 26,3502 00041 COB
052566,000224: 26,3503 00033 BVECTR
052567,000225: 26,3504 63361 VXSC PDVL # PD 20D BVECTR*SINI B-2
052568,000226: 26,3505 15636 SINI
052569,000227: 26,3506 00011 CVECTR
052570,000228: 26,3507 53361 VXSC VAD # PD 14D CVECTR*COSI B-2
052571,000229: 26,3510 15634 COSI
052572,000230: 26,3511 77772 VSL1
052573,000231: 26,3512 24041 STOVL MMATRIX +12D # PD 8D M2=BVECTR*SINI+CVECTR*COSI B-1
052574,000232: 26,3513 63361 VXSC PDVL # PD 14D
052575,000233: 26,3514 15636 SINI # CVECTR*SINI B-2
052576,000234: 26,3515 00033 BVECTR
052577,000235: 26,3516 52361 VXSC VSU # PD 8D BVECTR*COSI B-2
052578,000236: 26,3517 15634 COSI
052579,000237: 26,3520 65372 VSL1 PDDL # PD 14D
052580,000238: 26,3521 00007 504F # 8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
052581,000239: 26,3522 74346 COS VXSC
052582,000240: 26,3523 00011 DVECTR
052583,000241: 26,3524 73525 PDDL SIN # PD 20D 14-19D= DVECTR*COSF B-2
052584,000242: 26,3525 00007 504F
052585,000243: 26,3526 52361 VXSC VSU # PD 14D AVECTR*SINF B-2
052586,000244: 26,3527 00025 AVECTR
052587,000245: 26,3530 77772 VSL1
052588,000246: 26,3531 14033 STODL MMATRIX +6 # M1= AVECTR*SINF-DVECTR*COSF B-1
052589,000247: 26,3532 00007 504F
052590,000248: # Page 1230
052591,000249: 26,3533 74356 SIN VXSC # PD 8D
052592,000250: 26,3534 71525 PDDL COS # PD 14D 8-13D=DVECTR*SINF B-2
052593,000251: 26,3535 00007 504F
052594,000252: 26,3536 53361 VXSC VAD # PD 8D AVECTR*COSF B-2
052595,000253: 26,3537 00025 AVECTR
052596,000254: 26,3540 57572 VSL1 VCOMP
052597,000255: 26,3541 34025 STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
052598,000256: 26,3542 00051 EARTHMXX
052599,000257:
052600,000258: # COMPUTE X=X0+(XDOT)(T+T0)
052601,000259: # 8-9D= X0 (REVS B-0), PUSHLOC SET AT 12D
052602,000260: # 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
052603,000261: # AND B+27 FOR FDOT
052604,000262: # X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NDDOT AND
052605,000263: # BDOT AND 4 FOR FDOT
052606,000264: # 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
052607,000265:
052608,000266: 26,3543 54345 NEWANGLE DLOAD SR # ENTER PD 12D
052609,000267: 26,3544 00007 6D
052610,000268: 26,3545 20617 14D
052611,000269: 26,3546 72371 TAD TLOAD # CHANGE MODE TO TP
052612,000270: 26,3547 01707 TIMSUBO
052613,000271: 26,3550 00155 MPAC
052614,000272: 26,3551 14017 STODL TIMSUBM # T+T0 CSEC B-42
052615,000273: 26,3552 00020 TIMSUBM +1
052616,000274: 26,3553 77605 DMP # PD 10D MULT BY XDOT IN 10-11D
052617,000275: 26,3554 43257 SL* DAD # PD 8D ADD X0 IN 8-9D AFTER SHIFTING
052618,000276: 26,3555 20206 5,1 # SUCH THAT SCALING IS B-0
052619,000277: 26,3556 67206 PUSH SLOAD # PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
052620,000278: 26,3557 00017 TIMSUBM
052621,000279: 26,3560 41261 SL DMP
052622,000280: 26,3561 20212 9D
052623,000281: 26,3562 00013 10D # XDOT
052624,000282: 26,3563 43257 SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X
052625,000283: 26,3564 20213 10D,1 # IS SCALED REVS/CSEC B-0
052626,000284: 26,3565 77600 BOV # TURN OFF OVERFLOW IF SET BY SHIFT
052627,000285: 26,3566 55567 +1 # INSTRUCTION BEFORE EXITING.
052628,000286: 26,3567 77616 RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0
052629,000287:
052630,000288: # Page 1231
052631,000289: # ***** EARTHMX SUBROUTINE *****
052632,000290: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
052633,000291:
052634,000292: # CALLING SEQUENCE
052635,000293: # L CALL
052636,000294: # L+1 EARTHMX
052637,000295:
052638,000296: # SUBROUTINE USED
052639,000297: # NEWANGLE
052640,000298:
052641,000299: # INPUT
052642,000300: # INPUT AVAILABLE FROM LAUNCH DATA AZC REVS B-0
052643,000301: # TEPHEM CSEC B-42
052644,000302: # 6-7D= TIME CSEC B-28
052645,000303:
052646,000304: # OUTPUT
052647,000305: # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
052648,000306:
052649,000307: 26,3570 40220 EARTHMX STQ SETPD # SET 8-9D=AZO
052650,000308: 26,3571 00051 EARTHMXX
052651,000309: 26,3572 00011 8D # 10-11D=WEARTH
052652,000310: 26,3573 77770 AXT,1 # FOR SL 5, AND SL 10 IN NEWANGLE
052653,000311: 26,3574 00000 0
052654,000312: 26,3575 65345 DLOAD PDDL # LEAVING PD SET AT 12D FOR NEWANGLE
052655,000313: 26,3576 01712 AZO
052656,000314: 26,3577 15654 WEARTH
052657,000315: 26,3600 45006 PUSH CALL
052658,000316: 26,3601 55543 NEWANGLE
052659,000317: 26,3602 41401 SETPD PUSH # 18-19D=504AZ
052660,000318: 26,3603 00023 18D # COS(AZ) SIN(AZ) 0
052661,000319: 26,3604 65346 COS PDDL # 20-37D= MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
052662,000320: 26,3605 00023 504AZ # 0 0 1
052663,000321: 26,3606 65356 SIN PDDL
052664,000322: 26,3607 15332 HI6ZEROS
052665,000323: 26,3610 73525 PDDL SIN
052666,000324: 26,3611 00023 504AZ
052667,000325: 26,3612 65276 DCOMP PDDL
052668,000326: 26,3613 00023 504AZ
052669,000327: 26,3614 63346 COS PDVL
052670,000328: 26,3615 15332 HI6ZEROS
052671,000329: 26,3616 41525 PDDL PUSH
052672,000330: 26,3617 15330 HIDPHALF
052673,000331: 26,3620 77650 GOTO
052674,000332: 26,3621 00051 EARTHMXX
052675,000333:
052676,000334: # Page 1232
052677,000335: # ***** EARTH SUBROUTINE *****
052678,000336: # SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
052679,000337:
052680,000338: # CALLING SEQUENCE
052681,000339: # L CALL
052682,000340: # L+1 EARTHL
052683,000341:
052684,000342: # INPUT
052685,000343: # AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
052686,000344:
052687,000345: # OUTPUT
052688,000346: # -AX
052689,000347: # MPAC= -AY RADIANS B-0
052690,000348: # 0
052691,000349:
052692,000350: 26,3622 57545 EARTHL DLOAD DCOMP
052693,000351: 26,3623 01716 AXO
052694,000352: 26,3624 14017 STODL 504LPL
052695,000353: 26,3625 01714 -AYO
052696,000354: 26,3626 14021 STODL 504LPL +2
052697,000355: 26,3627 15332 HI6ZEROS
052698,000356: 26,3630 24023 STOVL 504LPL +4
052699,000357: 26,3631 00017 504LPL
052700,000358: 26,3632 77616 RVQ
052701,000359:
052702,000360: # Page 1233
052703,000361: # CONSTANTS AND ERASABLE ASSIGNMENTS
052704,000362:
052705,000363: 26,3633 04,3453 1B1 = DP1/2 # 1 SCALED B-1
052706,000364: 26,3633 17775 01734 COSI 2DEC .99964115 B-1 # COS(1 DEG 32.1 MIN) B-1
052707,000365: 26,3635 00333 16153 SINI 2DEC .02678760 B-1 # SIN(1 DEG 32.1 MIN) B-1
052708,000366: 26,3637 0000050 RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
052709,000367: 26,3637 0000051 EARTHMXX = S2 # EARTHMX, MOONMX SUBR. EXITS
052710,000368: 26,3637 504RPR = 0D # 6 REGS R OR RP VECTOR
052711,000369: 26,3637 SINNODI = 8D # 2 SIN(NODI)
052712,000370: 26,3637 DVECTR = 8D # 6 D VECTOR MOON
052713,000371: 26,3637 CVECTR = 8D # 6 C VECTR MOON
052714,000372: 26,3637 504AZ = 18D # 2 AZ
052715,000373: 26,3637 TIMSUBM = 14D # 3 TIME SUB M (MOON) T+10 IN GETAZ
052716,000374: 26,3637 504LPL = 14D # 6 L OR LP VECTOR
052717,000375: 26,3637 AVECTR = 20D # 6 A VECTOR (MOON)
052718,000376: 26,3637 BVECTR = 26D # 6 B VECTOR (MOON)
052719,000377: 26,3637 MMATRIX = 20D # 18 M MATRIX
052720,000378: 26,3637 COB = 32D # 2 COS(B) B-1
052721,000379: 26,3637 SOB = 34D # 2 SIN(B) B-1
052722,000380: 26,3637 504F = 6D # 2 F(MOON)
052723,000381:
052724,000382: 26,3637 77665 42175 NODDOT 2DEC -.457335143 E-2 # REVS/CSEC B+28=-1.07047016 E-6 RAD/SEC
052725,000383: 26,3641 22211 00265 FDOT 2DEC .570862491 # REVS/CSEC B+27= 2.67240019 E-6 RAD/SEC
052726,000384: 26,3643 77777 77767 BDOT 2DEC -3.07500412 E-8 # REVS/CSEC B+28=-7.19756666 E-14 RAD/SEC
052727,000385: 26,3645 41215 66331 NODIO 2DEC -.960101269 # REVS B-0 =-6.03249419 RAD
052728,000386: 26,3647 15237 26751 FSUBO 2DEC .415998375 # REVS B-0 = 2.61379488 RAD
052729,000387: 26,3651 02052 35713 BSUBO 2DEC .0651205006 # REVS B=0 = 0.409164173 RAD
052730,000388: 26,3653 37116 32630 WEARTH 2DEC .973561855 # REVS/CSEC B+23= 7.29211515 E-5 RAD/SEC
052731,000389:
End of include-file PLANETARY_INERTIAL_ORIENTATION.agc. Parent file is MAIN.agc