Source Code
053762,000001: # Copyright: Public domain.
053763,000002: # Filename: PLANETARY_INERTIAL_ORIENTATION.agc
053764,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
053765,000004: # It is part of the source code for the Command Module's (CM)
053766,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
053767,000006: # Assembler: yaYUL
053768,000007: # Contact: Ron Burkey <info@sandroid.org>.
053769,000008: # Website: www.ibiblio.org/apollo.
053770,000009: # Pages: 1243-1251
053771,000010: # Mod history: 2009-05-14 RSB Adapted from the Colossus249/ file of the
053772,000011: # same name, using Comanche055 page images.
053773,000012:
053774,000013: # This source code has been transcribed or otherwise adapted from digitized
053775,000014: # images of a hardcopy from the MIT Museum. The digitization was performed
053776,000015: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
053777,000016: # thanks to both. The images (with suitable reduction in storage size and
053778,000017: # consequent reduction in image quality as well) are available online at
053779,000018: # www.ibiblio.org/apollo. If for some reason you find that the images are
053780,000019: # illegible, contact me at info@sandroid.org about getting access to the
053781,000020: # (much) higher-quality images which Paul actually created.
053782,000021:
053783,000022: # Notations on the hardcopy document read, in part:
053784,000023:
053785,000024: # Assemble revision 055 of AGC program Comanche by NASA
053786,000025: # 2021113-051. 10:28 APR. 1, 1969
053787,000026:
053788,000027: # This AGC program shall also be referred to as
053789,000028: # Colossus 2A
053790,000029:
053791,000030: # Page 1243
053792,000031: # PLANETARY INERTIAL ORIENTATION
053793,000032:
053794,000033: # ***** RP-TO-R SUBROUTINE *****
053795,000034: # SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
053796,000035: # EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN BASIC REF. SYSTEM)
053797,000036: # R = MT(T) * (RP + LP X RP) MT = M MATRIX TRANSPOSE
053798,000037:
053799,000038: # CALLING SEQUENCE
053800,000039: # L CALL
053801,000040: # L+1 RP-TO-R
053802,000041:
053803,000042: # SUBROUTINES USED
053804,000043: # EARTHMX, MOONMX, EARTHL
053805,000044:
053806,000045: # ITEMS AVAILABLE FROM LAUNCH DATA
053807,000046: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
053808,000047: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
053809,000048:
053810,000049: # ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
053811,000050:
053812,000051: # INPUT
053813,000052: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
053814,000053: # 0-5D = RP VECTOR
053815,000054: # 6-7D = TIME
053816,000055:
053817,000056: # OUTPUT
053818,000057: # MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
053819,000058:
053820,000059: 26,2000 SETLOC PLANTIN
053821,000060: 26,2000 BANK
053822,000061:
053823,000062: 26,3344 COUNT* $$/LUROT
053824,000063:
053825,000064: 26,3344 46020 RP-TO-R STQ BHIZ
053826,000065: 26,3345 00050 RPREXIT
053827,000066: 26,3346 55361 RPTORA
053828,000067: 26,3347 77624 CALL # COMPUTE M MATRIX FOR MOON
053829,000068: 26,3350 55421 MOONMX # LP=LM FOR MOON RADIANS B0
053830,000069: 26,3351 77775 VLOAD
053831,000070: 26,3352 02012 504LM
053832,000071: 26,3353 53235 RPTORB VXV VAD
053833,000072: 26,3354 00001 504RPR
053834,000073: 26,3355 00001 504RPR
053835,000074: 26,3356 52105 VXM GOTO
053836,000075: 26,3357 00025 MMATRIX # MPAC=R=MT(T)*(RP+LPXRP)
053837,000076: 26,3360 55407 RPRPXXXX # RESET PUSHLOC TO 0 BEFORE EXITING
053838,000077: 26,3361 77624 RPTORA CALL # EARTH COMPUTATIONS
053839,000078: 26,3362 55573 EARTHMX # M MATRIX B-1
053840,000079: 26,3363 77624 CALL
053841,000080: 26,3364 55625 EARTHL # L VECTOR RADIANS B0
053842,000081: 26,3365 76521 MXV VSL1 # LP=M(T)*L RAD B-0
053843,000082: 26,3366 00025 MMATRIX
053844,000083: # Page 1244
053845,000084: 26,3367 77650 GOTO
053846,000085: 26,3370 55353 RPTORB
053847,000086:
053848,000087: # Page 1245
053849,000088: # ***** R-TO-RP SUBROUTINE *****
053850,000089: # SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
053851,000090: # (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
053852,000091: # RP = M(T) * (R - L X R)
053853,000092:
053854,000093: # CALLING SEQUENCE
053855,000094: # L CALL
053856,000095: # L+1 R-TO-RP
053857,000096:
053858,000097: # SUBROUTINES USED
053859,000098: # EARTHMX, MOONMX, EARTHL
053860,000099:
053861,000100: # INPUT
053862,000101: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
053863,000102: # 0-5D = R VECTOR
053864,000103: # 6-7D = TIME
053865,000104:
053866,000105: # ITEMS AVAILABLE FROM LAUNCH DATA
053867,000106: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
053868,000107: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
053869,000108:
053870,000109: # ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
053871,000110:
053872,000111: # OUTPUT
053873,000112: # MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
053874,000113:
053875,000114: 26,3371 46020 R-TO-RP STQ BHIZ
053876,000115: 26,3372 00050 RPREXIT
053877,000116: 26,3373 55413 RTORPA
053878,000117: 26,3374 77624 CALL
053879,000118: 26,3375 55421 MOONMX
053880,000119: 26,3376 61375 VLOAD VXM
053881,000120: 26,3377 02012 504LM # LP=LM
053882,000121: 26,3400 00025 MMATRIX
053883,000122: 26,3401 77772 VSL1 # L = MT(T)*LP RADIANS B0
053884,000123: 26,3402 51235 RTORPB VXV BVSU
053885,000124: 26,3403 00001 504RPR
053886,000125: 26,3404 00001 504RPR
053887,000126: 26,3405 77721 MXV # M(T)*(R-LXR) B-2
053888,000127: 26,3406 00025 MMATRIX
053889,000128: 26,3407 40372 RPRPXXXX VSL1 SETPD
053890,000129: 26,3410 00001 0D
053891,000130: 26,3411 77650 GOTO
053892,000131: 26,3412 00050 RPREXIT
053893,000132: 26,3413 77624 RTORPA CALL # EARTH COMPUTATIONS
053894,000133: 26,3414 55573 EARTHMX
053895,000134: 26,3415 77624 CALL
053896,000135: 26,3416 55625 EARTHL
053897,000136: 26,3417 77650 GOTO # MPAC=L=(-AX,-AY,0) RAD B-0
053898,000137: 26,3420 55402 RTORPB
053899,000138:
053900,000139: # Page 1246
053901,000140: # ***** MOONMX SUBROUTINE *****
053902,000141: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
053903,000142:
053904,000143: # CALLING SEQUENCE
053905,000144: # L CALL
053906,000145: # L+1 MOONMX
053907,000146:
053908,000147: # SUBROUTINES USED
053909,000148: # NEWANGLE
053910,000149:
053911,000150: # INPUT
053912,000151: # 6-7D = TIME
053913,000152:
053914,000153: # ITEMS AVAILABLE FROM LAUNCH DATA
053915,000154: # BSUBO, BDOT
053916,000155: # TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
053917,000156: # COSI = COS(I) B-1
053918,000157: # SINI = SIN(I) B-1
053919,000158: # I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
053920,000159: # PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
053921,000160:
053922,000161: # OUTPUT
053923,000162: # MMATRIX = 3X3 M MATRIX B-1 (STORED IN VAC AREA)
053924,000163:
053925,000164: 26,3421 40220 MOONMX STQ SETPD
053926,000165: 26,3422 00051 EARTHMXX
053927,000166: 26,3423 00011 8D
053928,000167: 26,3424 77770 AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE
053929,000168: 26,3425 00005 5
053930,000169: 26,3426 65345 DLOAD PDDL # PD 10D 8-9D=BSUBO
053931,000170: 26,3427 15655 BSUBO # 10-11D=BDOT
053932,000171: 26,3430 15647 BDOT
053933,000172: 26,3431 45006 PUSH CALL # PD 12D
053934,000173: 26,3432 55546 NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0
053935,000174: 26,3433 71406 PUSH COS # PD 10D
053936,000175: 26,3434 14041 STODL COB # PD 8D COS(B) B-1
053937,000176: 26,3435 77756 SIN # SIN(B) B-1
053938,000177: 26,3436 14043 STODL SOB # SETUP INPUT FOR NEWANGLE
053939,000178: 26,3437 15653 FSUBO # 8-9D=FSUBO
053940,000179: 26,3440 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT
053941,000180: 26,3441 15645 FDOT
053942,000181: 26,3442 45170 AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE.
053943,000182: 26,3443 00004 4
053944,000183: 26,3444 55546 NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
053945,000184: 26,3445 14027 STODL AVECTR +2 # SAVE F TEMP
053946,000185: 26,3446 15651 NODIO # 8-9D=NODIO
053947,000186: 26,3447 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
053948,000187: 26,3450 15643 NODDOT # MPAC=5
053949,000188: 26,3451 45170 AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
053950,000189: 26,3452 00005 5
053951,000190: 26,3453 55546 NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
053952,000191: # Page 1247
053953,000192: 26,3454 71406 PUSH COS # PD 10D 8-9D= NODI REVS B0
053954,000193: 26,3455 77606 PUSH # PD 12D 10-11D= COS(NODI) B-1
053955,000194: 26,3456 00025 STORE AVECTR
053956,000195: 26,3457 76405 DMP SL1R
053957,000196: 26,3460 00041 COB # COS(NODI) B-1
053958,000197: 26,3461 14035 STODL BVECTR +2 # PD 10D 20-25D=AVECTR=COB*SIN(NODI)
053959,000198: 26,3462 76405 DMP SL1R # SOB*SIN(NODI)
053960,000199: 26,3463 00043 SOB
053961,000200: 26,3464 14037 STODL BVECTR +4 # PD 8D
053962,000201: 26,3465 41556 SIN PUSH # PD 10D -SIN(NODI) B-1
053963,000202: 26,3466 77676 DCOMP # 26-31D=BVECTR=COB*COS(NODI)
053964,000203: 26,3467 14033 STODL BVECTR # PD 8D SOB*COS(NODI)
053965,000204: 26,3470 00027 AVECTR +2 # MOVE F FROM TEMP LOC. TO 504F
053966,000205: 26,3471 14007 STODL 504F
053967,000206: 26,3472 76405 DMP SL1R
053968,000207: 26,3473 00041 COB
053969,000208: 26,3474 14027 STODL AVECTR +2
053970,000209: 26,3475 00011 SINNODI # 8-9D=SIN(NODI) B-1
053971,000210: 26,3476 76405 DMP SL1R
053972,000211: 26,3477 00043 SOB
053973,000212: 26,3500 14031 STODL AVECTR +4 # 0
053974,000213: 26,3501 15335 HI6ZEROS # 8-13D= CVECTR= -SOB B-1
053975,000214: 26,3502 57525 PDDL DCOMP # PD 10D COB
053976,000215: 26,3503 00043 SOB
053977,000216: 26,3504 63325 PDDL PDVL # PD 12D THEN PD 14D
053978,000217: 26,3505 00041 COB
053979,000218: 26,3506 00033 BVECTR
053980,000219: 26,3507 63361 VXSC PDVL # PD 20D BVECTR*SINI B-2
053981,000220: 26,3510 15641 SINI
053982,000221: 26,3511 00011 CVECTR
053983,000222: 26,3512 53361 VXSC VAD # PD 14D CVECTR*COSI B-2
053984,000223: 26,3513 15637 COSI
053985,000224: 26,3514 77772 VSL1
053986,000225: 26,3515 24041 STOVL MMATRIX +12D # PD 8D M2=BVECTR*SINI+CVECTR*COSI B-1
053987,000226: 26,3516 63361 VXSC PDVL # PD 14D
053988,000227: 26,3517 15641 SINI # CVECTR*SINI B-2
053989,000228: 26,3520 00033 BVECTR
053990,000229: 26,3521 52361 VXSC VSU # PD 8D BVECTR*COSI B-2
053991,000230: 26,3522 15637 COSI
053992,000231: 26,3523 65372 VSL1 PDDL # PD 14D
053993,000232: 26,3524 00007 504F # 8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
053994,000233: 26,3525 74346 COS VXSC
053995,000234: 26,3526 00011 DVECTR
053996,000235: 26,3527 73525 PDDL SIN # PD 20D 14-19D= DVECTR*COSF B-2
053997,000236: 26,3530 00007 504F
053998,000237: 26,3531 52361 VXSC VSU # PD 14D AVECTR*SINF B-2
053999,000238: 26,3532 00025 AVECTR
054000,000239: 26,3533 77772 VSL1
054001,000240: 26,3534 14033 STODL MMATRIX +6 # M1= AVECTR*SINF-DVECTR*COSF B-1
054002,000241: 26,3535 00007 504F
054003,000242: # Page 1248
054004,000243: 26,3536 74356 SIN VXSC # PD 8D
054005,000244: 26,3537 71525 PDDL COS # PD 14D 8-13D=DVECTR*SINF B-2
054006,000245: 26,3540 00007 504F
054007,000246: 26,3541 53361 VXSC VAD # PD 8D AVECTR*COSF B-2
054008,000247: 26,3542 00025 AVECTR
054009,000248: 26,3543 57572 VSL1 VCOMP
054010,000249: 26,3544 34025 STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
054011,000250: 26,3545 00051 EARTHMXX
054012,000251:
054013,000252: # COMPUTE X=X0+(XDOT)(T+T0)
054014,000253: # 8-9D= X0 (REVS B-0), PUSHLOC SET AT 12D
054015,000254: # 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
054016,000255: # AND B+27 FOR FDOT
054017,000256: # X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NDDOT AND
054018,000257: # BDOT AND 4 FOR FDOT
054019,000258: # 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
054020,000259:
054021,000260: 26,3546 54345 NEWANGLE DLOAD SR # ENTER PD 12D
054022,000261: 26,3547 00007 6D
054023,000262: 26,3550 20617 14D
054024,000263: 26,3551 72371 TAD TLOAD # CHANGE MODE TO TP
054025,000264: 26,3552 01707 TIMSUBO
054026,000265: 26,3553 00155 MPAC
054027,000266: 26,3554 14017 STODL TIMSUBM # T+T0 CSEC B-42
054028,000267: 26,3555 00020 TIMSUBM +1
054029,000268: 26,3556 77605 DMP # PD 10D MULT BY XDOT IN 10-11D
054030,000269: 26,3557 43257 SL* DAD # PD 8D ADD X0 IN 8-9D AFTER SHIFTING
054031,000270: 26,3560 20206 5,1 # SUCH THAT SCALING IS B-0
054032,000271: 26,3561 67206 PUSH SLOAD # PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
054033,000272: 26,3562 00017 TIMSUBM
054034,000273: 26,3563 41261 SL DMP
054035,000274: 26,3564 20212 9D
054036,000275: 26,3565 00013 10D # XDOT
054037,000276: 26,3566 43257 SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X
054038,000277: 26,3567 20213 10D,1 # IS SCALED REVS/CSEC B-0
054039,000278: 26,3570 77600 BOV # TURN OFF OVERFLOW IF SET BY SHIFT
054040,000279: 26,3571 55572 +1 # INSTRUCTION BEFORE EXITING.
054041,000280: 26,3572 77616 RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0
054042,000281:
054043,000282: # Page 1249
054044,000283: # ***** EARTHMX SUBROUTINE *****
054045,000284: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
054046,000285:
054047,000286: # CALLING SEQUENCE
054048,000287: # L CALL
054049,000288: # L+1 EARTHMX
054050,000289:
054051,000290: # SUBROUTINE USED
054052,000291: # NEWANGLE
054053,000292:
054054,000293: # INPUT
054055,000294: # INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0
054056,000295: # TEPHEM CSEC B-42
054057,000296: # 6-7D= TIME CSEC B-28
054058,000297:
054059,000298: # OUTPUT
054060,000299: # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
054061,000300:
054062,000301: 26,3573 40220 EARTHMX STQ SETPD # SET 8-9D=AZO
054063,000302: 26,3574 00051 EARTHMXX
054064,000303: 26,3575 00011 8D # 10-11D=WEARTH
054065,000304: 26,3576 77770 AXT,1 # FOR SL 5, AND SL 10 IN NEWANGLE
054066,000305: 26,3577 00000 0
054067,000306: 26,3600 65345 DLOAD PDDL # LEAVING PD SET AT 12D FOR NEWANGLE
054068,000307: 26,3601 01712 AZO
054069,000308: 26,3602 15657 WEARTH
054070,000309: 26,3603 45006 PUSH CALL
054071,000310: 26,3604 55546 NEWANGLE
054072,000311: 26,3605 41401 SETPD PUSH # 18-19D=504AZ
054073,000312: 26,3606 00023 18D # COS(AZ) SIN(AZ) 0
054074,000313: 26,3607 65346 COS PDDL # 20-37D= MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
054075,000314: 26,3610 00023 504AZ # 0 0 1
054076,000315: 26,3611 65356 SIN PDDL
054077,000316: 26,3612 15335 HI6ZEROS
054078,000317: 26,3613 73525 PDDL SIN
054079,000318: 26,3614 00023 504AZ
054080,000319: 26,3615 65276 DCOMP PDDL
054081,000320: 26,3616 00023 504AZ
054082,000321: 26,3617 63346 COS PDVL
054083,000322: 26,3620 15335 HI6ZEROS
054084,000323: 26,3621 41525 PDDL PUSH
054085,000324: 26,3622 15333 HIDPHALF
054086,000325: 26,3623 77650 GOTO
054087,000326: 26,3624 00051 EARTHMXX
054088,000327:
054089,000328: # Page 1250
054090,000329: # ***** EARTHL SUBROUTINE *****
054091,000330: # SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
054092,000331:
054093,000332: # CALLING SEQUENCE
054094,000333: # L CALL
054095,000334: # L+1 EARTHL
054096,000335:
054097,000336: # INPUT
054098,000337: # AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
054099,000338:
054100,000339: # OUTPUT
054101,000340: # -AX
054102,000341: # MPAC= -AY RADIANS B-0
054103,000342: # 0
054104,000343:
054105,000344: 26,3625 57545 EARTHL DLOAD DCOMP
054106,000345: 26,3626 01716 AXO
054107,000346: 26,3627 14017 STODL 504LPL
054108,000347: 26,3630 01714 -AYO
054109,000348: 26,3631 14021 STODL 504LPL +2
054110,000349: 26,3632 15335 HI6ZEROS
054111,000350: 26,3633 24023 STOVL 504LPL +4
054112,000351: 26,3634 00017 504LPL
054113,000352: 26,3635 77616 RVQ
054114,000353:
054115,000354: # Page 1251
054116,000355: # CONSTANTS AND ERASABLE ASSIGNMENTS
054117,000356:
054118,000357: 26,3636 04,3563 1B1 = DP1/2 # 1 SCALED B-1
054119,000358: 26,3636 17775 02052 COSI 2DEC .99964173 B-1 # COS(5521.5 SEC) B-1
054120,000359:
054121,000360: 26,3640 00333 10374 SINI 2DEC .02676579 B-1 # SIN(5521.T SEC) B-1
054122,000361:
054123,000362: 26,3642 0000050 RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
054124,000363: 26,3642 0000051 EARTHMXX = S2 # EARTHMX, MOONMX SUBR. EXITS
054125,000364: 26,3642 504RPR = 0D # 6 REGS R OR RP VECTOR
054126,000365: 26,3642 SINNODI = 8D # 2 SIN(NODI)
054127,000366: 26,3642 DVECTR = 8D # 6 D VECTOR MOON
054128,000367: 26,3642 CVECTR = 8D # 6 C VECTR MOON
054129,000368: 26,3642 504AZ = 18D # 2 AZ
054130,000369: 26,3642 TIMSUBM = 14D # 3 TIME SUB M (MOON) T+10 IN GETAZ
054131,000370: 26,3642 504LPL = 14D # 6 L OR LP VECTOR
054132,000371: 26,3642 AVECTR = 20D # 6 A VECTOR (MOON)
054133,000372: 26,3642 BVECTR = 26D # 6 B VECTOR (MOON)
054134,000373: 26,3642 MMATRIX = 20D # 18 M MATRIX
054135,000374: 26,3642 COB = 32D # 2 COS(B) B-1
054136,000375: 26,3642 SOB = 34D # 2 SIN(B) B-1
054137,000376: 26,3642 504F = 6D # 2 F(MOON)
054138,000377: 26,3642 77665 42175 NODDOT 2DEC -.457335121 E-2 # REVS/CSEC B+28=-1.07047011 E-8 RAD/SEC
054139,000378:
054140,000379: 26,3644 22211 00625 FDOT 2DEC .570863327 # REVS/CSEC B+27= 2.67240410 E-6 RAD/SEC
054141,000380:
054142,000381: 26,3646 77777 77767 BDOT 2DEC -3.07500686 E-8 # REVS/CSEC B+28=-7.19757301 E-14 RAD/SEC
054143,000382:
054144,000383: 26,3650 37436 01613 NODIO 2DEC .986209434 # REVS B-0 = 6.19653663041 RAD
054145,000384:
054146,000385: 26,3652 32417 32160 FSUBO 2DEC .829090536 # REVS B-0 = 5.20932947829 RAD
054147,000386:
054148,000387: 26,3654 02052 35552 BSUBO 2DEC .0651201393 # REVS B=0 = 0.40916190299 RAD
054149,000388:
054150,000389: 26,3656 37116 32523 WEARTH 2DEC .973561595 # REVS/CSEC B+23= 7.29211494 E-5 RAD/SEC
054151,000390:
End of include-file PLANETARY_INERTIAL_ORIENTATION.agc. Parent file is MAIN.agc