Source Code
![]() |
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are 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 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
054115,000002: ## Copyright: Public domain.
054116,000003: ## Filename: PLANETARY_INERTIAL_ORIENTATION.agc
054117,000004: ## Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
054118,000005: ## It is part of the source code for the Command Module's (CM)
054119,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
054120,000007: ## Assembler: yaYUL
054121,000008: ## Contact: Ron Burkey <info@sandroid.org>.
054122,000009: ## Website: www.ibiblio.org/apollo.
054123,000010: ## Pages: 1243-1251
054124,000011: ## Mod history: 2009-05-14 RSB Adapted from the Colossus249/ file of the
054125,000012: ## same name, using Comanche055 page images.
054126,000013: ## 2016-12-21 RSB Proofed comment text using octopus/ProoferComments
054127,000014: ## and corrected the errors found.
054128,000015: ## 2017-01-18 RSB Fixed comment-text errors noted while diff'ing
054129,000016: ## vs Colossus 249.
054130,000017: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
054131,000018: ## side-by-side diff of Luminary 69/99/116/131/210.
054132,000019:
054133,000020: ## This source code has been transcribed or otherwise adapted from digitized
054134,000021: ## images of a hardcopy from the MIT Museum. The digitization was performed
054135,000022: ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
054136,000023: ## thanks to both. The images (with suitable reduction in storage size and
054137,000024: ## consequent reduction in image quality as well) are available online at
054138,000025: ## www.ibiblio.org/apollo. If for some reason you find that the images are
054139,000026: ## illegible, contact me at info@sandroid.org about getting access to the
054140,000027: ## (much) higher-quality images which Paul actually created.
054141,000028: ##
054142,000029: ## Notations on the hardcopy document read, in part:
054143,000030: ##
054144,000031: ## Assemble revision 055 of AGC program Comanche by NASA
054145,000032: ## 2021113-051. 10:28 APR. 1, 1969
054146,000033: ##
054147,000034: ## This AGC program shall also be referred to as
054148,000035: ## Colossus 2A
054149,000036:
![]() |
Page 1243 |
054151,000038: # ..... RP-TO-R SUBROUTINE .....
054152,000039: # SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
054153,000040: # EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
054154,000041: # R = MT(T) * (RP + LP X RP) MT = M MATRIX TRANSPOSE
054155,000042:
054156,000043: # CALLING SEQUENCE
054157,000044: # L CALL
054158,000045: # L+1 RP-TO-R
054159,000046:
054160,000047: # SUBROUTINES USED
054161,000048: # EARTHMX, MOONMX, EARTHL
054162,000049:
054163,000050: # ITEMS AVAILABLE FROM LAUNCH DATA
054164,000051: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
054165,000052: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
054166,000053:
054167,000054: # ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
054168,000055:
054169,000056: # INPUT
054170,000057: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
054171,000058: # 0-5D = RP VECTOR
054172,000059: # 6-7D = TIME
054173,000060:
054174,000061: # OUTPUT
054175,000062: # MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
054176,000063:
054177,000064: 26,2000 SETLOC PLANTIN
054178,000065: 26,2000 BANK
054179,000066:
054180,000067: 26,3344 COUNT* $$/LUROT
054181,000068:
054182,000069: 26,3344 46020 RP-TO-R STQ BHIZ
054183,000070: 26,3345 00050 RPREXIT
054184,000071: 26,3346 55361 RPTORA
054185,000072: 26,3347 77624 CALL # COMPUTE M MATRIX FOR MOON
054186,000073: 26,3350 55421 MOONMX # LP=LM FOR MOON RADIANS B0
054187,000074: 26,3351 77775 VLOAD
054188,000075: 26,3352 02012 504LM
054189,000076: 26,3353 53235 RPTORB VXV VAD
054190,000077: 26,3354 00001 504RPR
054191,000078: 26,3355 00001 504RPR
054192,000079: 26,3356 52105 VXM GOTO
054193,000080: 26,3357 00025 MMATRIX # MPAC=R=MT(T)*(RP+LPXRP)
054194,000081: 26,3360 55407 RPRPXXXX # RESET PUSHLOC TO 0 BEFORE EXITING
054195,000082: 26,3361 77624 RPTORA CALL # EARTH COMPUTATIONS
054196,000083: 26,3362 55573 EARTHMX # M MATRIX B-1
054197,000084: 26,3363 77624 CALL
054198,000085: 26,3364 55625 EARTHL # L VECTOR RADIANS B0
054199,000086: 26,3365 76521 MXV VSL1 # LP=M(T)*L RAD B-0
054200,000087: 26,3366 00025 MMATRIX
![]() |
Page 1244 |
054202,000089: 26,3367 77650 GOTO
054203,000090: 26,3370 55353 RPTORB
054204,000091:
![]() |
Page 1245 |
054206,000093: # ..... R-TO-RP SUBROUTINE .....
054207,000094: # SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
054208,000095: # (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
054209,000096: # RP = M(T) * (R - L X R)
054210,000097:
054211,000098: # CALLING SEQUENCE
054212,000099: # L CALL
054213,000100: # L+1 R-TO-RP
054214,000101:
054215,000102: # SUBROUTINES USED
054216,000103: # EARTHMX, MOONMX, EARTHL
054217,000104:
054218,000105: # INPUT
054219,000106: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
054220,000107: # 0-5D = R VECTOR
054221,000108: # 6-7D = TIME
054222,000109:
054223,000110: # ITEMS AVAILABLE FROM LAUNCH DATA
054224,000111: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
054225,000112: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
054226,000113:
054227,000114: # ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
054228,000115:
054229,000116: # OUTPUT
054230,000117: # MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
054231,000118:
054232,000119: 26,3371 46020 R-TO-RP STQ BHIZ
054233,000120: 26,3372 00050 RPREXIT
054234,000121: 26,3373 55413 RTORPA
054235,000122: 26,3374 77624 CALL
054236,000123: 26,3375 55421 MOONMX
054237,000124: 26,3376 61375 VLOAD VXM
054238,000125: 26,3377 02012 504LM # LP=LM
054239,000126: 26,3400 00025 MMATRIX
054240,000127: 26,3401 77772 VSL1 # L = MT(T)*LP RADIANS B0
054241,000128: 26,3402 51235 RTORPB VXV BVSU
054242,000129: 26,3403 00001 504RPR
054243,000130: 26,3404 00001 504RPR
054244,000131: 26,3405 77721 MXV # M(T)*(R-LXR) B-2
054245,000132: 26,3406 00025 MMATRIX
054246,000133: 26,3407 40372 RPRPXXXX VSL1 SETPD
054247,000134: 26,3410 00001 0D
054248,000135: 26,3411 77650 GOTO
054249,000136: 26,3412 00050 RPREXIT
054250,000137: 26,3413 77624 RTORPA CALL # EARTH COMPUTATIONS
054251,000138: 26,3414 55573 EARTHMX
054252,000139: 26,3415 77624 CALL
054253,000140: 26,3416 55625 EARTHL
054254,000141: 26,3417 77650 GOTO # MPAC=L=(-AX,-AY,0) RAD B-0
054255,000142: 26,3420 55402 RTORPB
054256,000143:
![]() |
Page 1246 |
054258,000145: # ..... MOONMX SUBROUTINE .....
054259,000146: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
054260,000147:
054261,000148: # CALLING SEQUENCE
054262,000149: # L CALL
054263,000150: # L+1 MOONMX
054264,000151:
054265,000152: # SUBROUTINES USED
054266,000153: # NEWANGLE
054267,000154:
054268,000155: # INPUT
054269,000156: # 6-7D = TIME
054270,000157:
054271,000158: # ITEMS AVAILABLE FROM LAUNCH DATA
054272,000159: # BSUBO, BDOT
054273,000160: # TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
054274,000161: # COSI = COS(I) B-1
054275,000162: # SINI = SIN(I) B-1
054276,000163: # I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
054277,000164: # PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
054278,000165:
054279,000166: # OUTPUT
054280,000167: # MMATRIX = 3X3 M MATRIX B-1 (STORED IN VAC AREA)
054281,000168:
054282,000169: 26,3421 40220 MOONMX STQ SETPD
054283,000170: 26,3422 00051 EARTHMXX
054284,000171: 26,3423 00011 8D
054285,000172: 26,3424 77770 AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE
054286,000173: 26,3425 00005 5
054287,000174: 26,3426 65345 DLOAD PDDL # PD 10D 8-9D=BSUBO
054288,000175: 26,3427 15655 BSUBO # 10-11D=BDOT
054289,000176: 26,3430 15647 BDOT
054290,000177: 26,3431 45006 PUSH CALL # PD 12D
054291,000178: 26,3432 55546 NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0
054292,000179: 26,3433 71406 PUSH COS # PD 10D
054293,000180: 26,3434 14041 STODL COB # PD 8D COS(B) B-1
054294,000181: 26,3435 77756 SIN # SIN(B) B-1
054295,000182: 26,3436 14043 STODL SOB # SETUP INPUT FOR NEWANGLE
054296,000183: 26,3437 15653 FSUBO # 8-9D=FSUBO
054297,000184: 26,3440 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT
054298,000185: 26,3441 15645 FDOT
054299,000186: 26,3442 45170 AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE
054300,000187: 26,3443 00004 4
054301,000188: 26,3444 55546 NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
054302,000189: 26,3445 14027 STODL AVECTR +2 # SAVE F TEMP
054303,000190: 26,3446 15651 NODIO # 8-9D=NODIO
054304,000191: 26,3447 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
054305,000192: 26,3450 15643 NODDOT # MPAC=T
054306,000193: 26,3451 45170 AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
054307,000194: 26,3452 00005 5
054308,000195: 26,3453 55546 NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
![]() |
Page 1247 |
054310,000197: 26,3454 71406 PUSH COS # PD 10D 8-9D= NODI REVS B0
054311,000198: 26,3455 77606 PUSH # PD 12D 10-11D= COS(NODI) B-1
054312,000199: 26,3456 00025 STORE AVECTR
054313,000200: 26,3457 76405 DMP SL1R
054314,000201: 26,3460 00041 COB # COS(NODI) B-1
054315,000202: 26,3461 14035 STODL BVECTR +2 # PD 10D 20-25D=AVECTR=COB*SIN(NODI)
054316,000203: 26,3462 76405 DMP SL1R # SOB*SIN(NODI)
054317,000204: 26,3463 00043 SOB
054318,000205: 26,3464 14037 STODL BVECTR +4 # PD 8D
054319,000206: 26,3465 41556 SIN PUSH # PD 10D -SIN(NODI) B-1
054320,000207: 26,3466 77676 DCOMP # 26-31D=BVECTR=COB*COS(NODI)
054321,000208: 26,3467 14033 STODL BVECTR # PD 8D SOB*COS(NODI)
054322,000209: 26,3470 00027 AVECTR +2 # MOVE F FROM TEMP LOC. TO 504F
054323,000210: 26,3471 14007 STODL 504F
054324,000211: 26,3472 76405 DMP SL1R
054325,000212: 26,3473 00041 COB
054326,000213: 26,3474 14027 STODL AVECTR +2
054327,000214: 26,3475 00011 SINNODI # 8-9D=SIN(NODI) B-1
054328,000215: 26,3476 76405 DMP SL1R
054329,000216: 26,3477 00043 SOB
054330,000217: 26,3500 14031 STODL AVECTR +4 # 0
054331,000218: 26,3501 15335 HI6ZEROS # 8-13D= CVECTR= -SOB B-1
054332,000219: 26,3502 57525 PDDL DCOMP # PD 10D COB
054333,000220: 26,3503 00043 SOB
054334,000221: 26,3504 63325 PDDL PDVL # PD 12D THEN PD 14D
054335,000222: 26,3505 00041 COB
054336,000223: 26,3506 00033 BVECTR
054337,000224: 26,3507 63361 VXSC PDVL # PD 20D BVECTR*SINI B-2
054338,000225: 26,3510 15641 SINI
054339,000226: 26,3511 00011 CVECTR
054340,000227: 26,3512 53361 VXSC VAD # PD 14D CVECTR*COSI B-2
054341,000228: 26,3513 15637 COSI
054342,000229: 26,3514 77772 VSL1
054343,000230: 26,3515 24041 STOVL MMATRIX +12D # PD 8D M2=BVECTR*SINI+CVECTR*COSI B-1
054344,000231: 26,3516 63361 VXSC PDVL # PD 14D
054345,000232: 26,3517 15641 SINI # CVECTR*SINI B-2
054346,000233: 26,3520 00033 BVECTR
054347,000234: 26,3521 52361 VXSC VSU # PD 8D BVECTR*COSI B-2
054348,000235: 26,3522 15637 COSI
054349,000236: 26,3523 65372 VSL1 PDDL # PD 14D
054350,000237: 26,3524 00007 504F # 8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
054351,000238: 26,3525 74346 COS VXSC
054352,000239: 26,3526 00011 DVECTR
054353,000240: 26,3527 73525 PDDL SIN # PD 20D 14-19D= DVECTR*COSF B-2
054354,000241: 26,3530 00007 504F
054355,000242: 26,3531 52361 VXSC VSU # PD 14D AVECTR*SINF B-2
054356,000243: 26,3532 00025 AVECTR
054357,000244: 26,3533 77772 VSL1
054358,000245: 26,3534 14033 STODL MMATRIX +6 # M1= AVECTR*SINF-DVECTR*COSF B-1
054359,000246: 26,3535 00007 504F
![]() |
Page 1248 |
054361,000248: 26,3536 74356 SIN VXSC # PD 8D
054362,000249: 26,3537 71525 PDDL COS # PD 14D 8-13D=DVECTR*SINF B-2
054363,000250: 26,3540 00007 504F
054364,000251: 26,3541 53361 VXSC VAD # PD 8D AVECTR*COSF B-2
054365,000252: 26,3542 00025 AVECTR
054366,000253: 26,3543 57572 VSL1 VCOMP
054367,000254: 26,3544 34025 STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
054368,000255: 26,3545 00051 EARTHMXX
054369,000256:
054370,000257: # COMPUTE X=X0+(XDOT)(T+T0)
054371,000258: # 8-9D= XO (REVS B-0), PUSHLOC SET AT 12D
054372,000259: # 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
054373,000260: # AND B+27 FOR FDOT
054374,000261: # X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NODDOT AND
054375,000262: # BDOT AND 4 FOR FDOT
054376,000263: # 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
054377,000264:
054378,000265: 26,3546 54345 NEWANGLE DLOAD SR # ENTER PD 12D
054379,000266: 26,3547 00007 6D
054380,000267: 26,3550 20617 14D
054381,000268: 26,3551 72371 TAD TLOAD # CHANGE MODE TO TP
054382,000269: 26,3552 01707 TIMSUBO
054383,000270: 26,3553 00155 MPAC
054384,000271: 26,3554 14017 STODL TIMSUBM # T+T0 CSEC B-42
054385,000272: 26,3555 00020 TIMSUBM +1
054386,000273: 26,3556 77605 DMP # PD 10D MULT BY XDOT IN 10-11D
054387,000274: 26,3557 43257 SL* DAD # PD 8D ADD XO IN 8-9D AFTER SHIFTING
054388,000275: 26,3560 20206 5,1 # SUCH THAT SCALING IS B-0
054389,000276: 26,3561 67206 PUSH SLOAD # PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
054390,000277: 26,3562 00017 TIMSUBM
054391,000278: 26,3563 41261 SL DMP
054392,000279: 26,3564 20212 9D
054393,000280: 26,3565 00013 10D # XDOT
054394,000281: 26,3566 43257 SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X
054395,000282: 26,3567 20213 10D,1 # IS SCALED REVS/CSEC B-0
054396,000283: 26,3570 77600 BOV # TURN OFF OVERFLOW IF SET BY SHIFT
054397,000284: 26,3571 55572 +1 # INSTRUCTION BEFORE EXITING
054398,000285: 26,3572 77616 RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0
054399,000286:
![]() |
Page 1249 |
054401,000288: # ..... EARTHMX SUBROUTINE .....
054402,000289: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
054403,000290:
054404,000291: # CALLING SEQUENCE
054405,000292: # L CALL
054406,000293: # L+1 EARTHMX
054407,000294:
054408,000295: # SUBROUTINES USED
054409,000296: # NEWANGLE
054410,000297:
054411,000298: # INPUT
054412,000299: # INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0
054413,000300: # TEPHEM CSEC B-42
054414,000301: # 6-7D= TIME CSEC B-28
054415,000302:
054416,000303: # OUTPUT
054417,000304: # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
054418,000305:
054419,000306: 26,3573 40220 EARTHMX STQ SETPD # SET 8-9D=AZO
054420,000307: 26,3574 00051 EARTHMXX
054421,000308: 26,3575 00011 8D # 10-11D=WEARTH
054422,000309: 26,3576 77770 AXT,1 # FOR SL 5, AND SL 10 IN NEWANGLE
054423,000310: 26,3577 00000 0
054424,000311: 26,3600 65345 DLOAD PDDL # LEAVING PD SET AT 12D FOR NEWANGLE
054425,000312: 26,3601 01712 AZO
054426,000313: 26,3602 15657 WEARTH
054427,000314: 26,3603 45006 PUSH CALL
054428,000315: 26,3604 55546 NEWANGLE
054429,000316: 26,3605 41401 SETPD PUSH # 18-19D=504AZ
054430,000317: 26,3606 00023 18D # COS(AZ) SIN(AZ) 0
054431,000318: 26,3607 65346 COS PDDL # 20-37D= MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
054432,000319: 26,3610 00023 504AZ # 0 0 1
054433,000320: 26,3611 65356 SIN PDDL
054434,000321: 26,3612 15335 HI6ZEROS
054435,000322: 26,3613 73525 PDDL SIN
054436,000323: 26,3614 00023 504AZ
054437,000324: 26,3615 65276 DCOMP PDDL
054438,000325: 26,3616 00023 504AZ
054439,000326: 26,3617 63346 COS PDVL
054440,000327: 26,3620 15335 HI6ZEROS
054441,000328: 26,3621 41525 PDDL PUSH
054442,000329: 26,3622 15333 HIDPHALF
054443,000330: 26,3623 77650 GOTO
054444,000331: 26,3624 00051 EARTHMXX
054445,000332:
![]() |
Page 1250 |
054447,000334: # ..... EARTHL SUBROUTINE .....
054448,000335: # SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
054449,000336:
054450,000337: # CALLING SEQUENCE
054451,000338: # L CALL
054452,000339: # L+1 EARTHL
054453,000340:
054454,000341: # INPUT
054455,000342: # AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
054456,000343:
054457,000344: # OUTPUT
054458,000345: # -AX
054459,000346: # MPAC= -AY RADIANS B-0
054460,000347: # 0
054461,000348:
054462,000349: 26,3625 57545 EARTHL DLOAD DCOMP
054463,000350: 26,3626 01716 AXO
054464,000351: 26,3627 14017 STODL 504LPL
054465,000352: 26,3630 01714 -AYO
054466,000353: 26,3631 14021 STODL 504LPL +2
054467,000354: 26,3632 15335 HI6ZEROS
054468,000355: 26,3633 24023 STOVL 504LPL +4
054469,000356: 26,3634 00017 504LPL
054470,000357: 26,3635 77616 RVQ
054471,000358:
![]() |
Page 1251 |
054473,000360: # CONSTANTS AND ERASABLE ASSIGNMENTS
054474,000361:
054475,000362: 26,3636 04,3563 1B1 = DP1/2 # 1 SCALED B-1
054476,000363: 26,3636 17775 02052 COSI 2DEC .99964173 B-1 # COS(5521.5 SEC) B-1
054477,000364:
054478,000365: 26,3640 00333 10374 SINI 2DEC .02676579 B-1 # SIN(5521.5 SEC) B-1
054479,000366:
054480,000367: 26,3642 0000050 RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
054481,000368: 26,3642 0000051 EARTHMXX = S2 # EARTHMX, MOONMX SUBR. EXITS
054482,000369: 26,3642 504RPR = 0D # 6 REGS R OR RP VECTOR
054483,000370: 26,3642 SINNODI = 8D # 2 SIN(NODI)
054484,000371: 26,3642 DVECTR = 8D # 6 D VECTOR MOON
054485,000372: 26,3642 CVECTR = 8D # 6 C VECTR MOON
054486,000373: 26,3642 504AZ = 18D # 2 AZ
054487,000374: 26,3642 TIMSUBM = 14D # 3 TIME SUB M (MOON) T+T0 IN GETAZ
054488,000375: 26,3642 504LPL = 14D # 6 L OR LP VECTOR
054489,000376: 26,3642 AVECTR = 20D # 6 A VECTOR (MOON)
054490,000377: 26,3642 BVECTR = 26D # 6 B VECTOR (MOON)
054491,000378: 26,3642 MMATRIX = 20D # 18 M MATRIX
054492,000379: 26,3642 COB = 32D # 2 COS(B) B-1
054493,000380: 26,3642 SOB = 34D # 2 SIN(B) B-1
054494,000381: 26,3642 504F = 6D # 2 F(MOON)
054495,000382: 26,3642 77665 42175 NODDOT 2DEC -.457335121 E-2 # REVS/CSEC B+28=-1.07047011 E-8 RAD/SEC
054496,000383:
054497,000384: 26,3644 22211 00625 FDOT 2DEC .570863327 # REVS/CSEC B+27= 2.67240410 E-6 RAD/SEC
054498,000385:
054499,000386: 26,3646 77777 77767 BDOT 2DEC -3.07500686 E-8 # REVS/CSEC B+28=-7.19757301 E-14 RAD/SEC
054500,000387:
054501,000388: 26,3650 37436 01613 NODIO 2DEC .986209434 # REVS B-0 = 6.19653663041 RAD
054502,000389:
054503,000390: 26,3652 32417 32160 FSUBO 2DEC .829090536 # REVS B-0 = 5.20932947829 RAD
054504,000391:
054505,000392: 26,3654 02052 35552 BSUBO 2DEC .0651201393 # REVS B-0 = 0.40916190299 RAD
054506,000393:
054507,000394: 26,3656 37116 32523 WEARTH 2DEC .973561595 # REVS/CSEC B+23= 7.29211494 E-5 RAD/SEC
054508,000395:
End of include-file PLANETARY_INERTIAL_ORIENTATION.agc. Parent file is MAIN.agc