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