Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
048987,000002: ## Copyright: Public domain.
048988,000003: ## Filename: PLANETARY_INERTIAL_ORIENTATION.agc
048989,000004: ## Purpose: The main source file for Luminary revision 069.
048990,000005: ## It is part of the source code for the original release
048991,000006: ## of the flight software for the Lunar Module's (LM) Apollo
048992,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
048993,000008: ## version was Luminary 69 revision 2, which included a
048994,000009: ## newer lunar gravity model and only affected module 2.
048995,000010: ## This file is intended to be a faithful transcription, except
048996,000011: ## that the code format has been changed to conform to the
048997,000012: ## requirements of the yaYUL assembler rather than the
048998,000013: ## original YUL assembler.
048999,000014: ## Reference: pp. 1135-1143
049000,000015: ## Assembler: yaYUL
049001,000016: ## Contact: Ron Burkey <info@sandroid.org>.
049002,000017: ## Website: www.ibiblio.org/apollo/index.html
049003,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
049004,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
049005,000020: ## 2016-12-24 RRB Updated for Luminary 69.
049006,000021: ## 2017-01-22 HG Fix operand PLANTIN1 -> PLANTIN
049007,000022: ## 2017-01-23 HG Fix operand LO6ZEROS -> HI6ZEROS
049008,000023: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
049009,000024: ## and fixed errors found.
049010,000025:
![]() |
Page 1135 |
049012,000027: # ..... RP-TO-R SUBROUTINE .....
049013,000028: # SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
049014,000029: # EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
049015,000030:
049016,000031: # R = MT(T)*(RP + LP X RP) MT = M MATRIX TRANSPOSE
049017,000032:
049018,000033: # CALLING SEQUENCE
049019,000034: # L CALL
049020,000035: # L+1 RP-TO-R
049021,000036:
049022,000037: # SUBROUTINES USED
049023,000038: # EARTHMX,MOONMX,EARTHL
049024,000039:
049025,000040: # ITEMS AVAILABLE FROM LAUNCH DATA
049026,000041: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
049027,000042: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
049028,000043:
049029,000044: # ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
049030,000045:
049031,000046: # INPUT
049032,000047: # MPAC= 0 FOR EARTH, NON-ZERO FOR MOON
049033,000048: # 0-5D= RP VECTOR
049034,000049: # 6-7D= TIME
049035,000050:
049036,000051: # OUTPUT
049037,000052: # MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
049038,000053:
049039,000054: 24,2000 SETLOC PLANTIN
049040,000055: 24,2000 BANK
049041,000056:
049042,000057: 24,3504 COUNT* $$/LUROT
049043,000058:
049044,000059: 24,3504 46020 RP-TO-R STQ BHIZ
049045,000060: 24,3505 00050 RPREXIT
049046,000061: 24,3506 51521 RPTORA
049047,000062: 24,3507 77624 CALL # COMPUTE M MATRIX FOR MOON
049048,000063: 24,3510 51561 MOONMX # LP=LM FOR MOON RADIANS B0
049049,000064: 24,3511 77775 VLOAD
049050,000065: 24,3512 02013 504LM
049051,000066: 24,3513 53235 RPTORB VXV VAD
049052,000067: 24,3514 00001 504RPR
049053,000068: 24,3515 00001 504RPR
049054,000069: 24,3516 52105 VXM GOTO
049055,000070: 24,3517 00025 MMATRIX # MPAC=R=MT(T)*(RP+LPXRP)
049056,000071: 24,3520 51547 RPRPXXXX # RESET PUSHLOC TO 0 BEFORE EXITING
049057,000072: 24,3521 77624 RPTORA CALL # EARTH COMPUTATIONS
049058,000073: 24,3522 55657 EARTHMX # M MATRIX B-1
049059,000074: 24,3523 77624 CALL
049060,000075: 24,3524 55711 EARTHL # L VECTOR RADIANS B0
049061,000076: 24,3525 76521 MXV VSL1 # LP=M(T)*L RAD B-0
049062,000077: 24,3526 00025 MMATRIX
![]() |
Page 1136 |
049064,000079: 24,3527 77650 GOTO
049065,000080: 24,3530 51513 RPTORB
049066,000081:
![]() |
Page 1137 |
049068,000083: # ..... R-TO-RP SUBROUTINE .....
049069,000084: # SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
049070,000085: # (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
049071,000086:
049072,000087: # RP = M(T)*(R - L X R)
049073,000088:
049074,000089: # CALLING SEQUENCE
049075,000090: # L CALL
049076,000091: # L+1 R-TO-RP
049077,000092:
049078,000093: # SUBROUTINES USED
049079,000094: # EARTHMX,MOONMX,EARTHL
049080,000095:
049081,000096: # INPUT
049082,000097: # MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
049083,000098: # 0-5D= R VECTOR
049084,000099: # 6-7D= TIME
049085,000100:
049086,000101: # ITEMS AVAILABLE FROM LAUNCH DATA
049087,000102: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
049088,000103: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
049089,000104:
049090,000105: # ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
049091,000106:
049092,000107: # OUTPUT
049093,000108: # MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
049094,000109:
049095,000110: 24,3531 46020 R-TO-RP STQ BHIZ
049096,000111: 24,3532 00050 RPREXIT
049097,000112: 24,3533 51553 RTORPA
049098,000113: 24,3534 77624 CALL
049099,000114: 24,3535 51561 MOONMX
049100,000115: 24,3536 61375 VLOAD VXM
049101,000116: 24,3537 02013 504LM # LP=LM
049102,000117: 24,3540 00025 MMATRIX
049103,000118: 24,3541 77772 VSL1 # L=MT(T)*LP RADIANS B0
049104,000119: 24,3542 51235 RTORPB VXV BVSU
049105,000120: 24,3543 00001 504RPR
049106,000121: 24,3544 00001 504RPR
049107,000122: 24,3545 77721 MXV # M(T)*(R-LXR) B-2
049108,000123: 24,3546 00025 MMATRIX
049109,000124: 24,3547 40372 RPRPXXXX VSL1 SETPD
049110,000125: 24,3550 00001 0D
049111,000126: 24,3551 77650 GOTO
049112,000127: 24,3552 00050 RPREXIT
049113,000128: 24,3553 77624 RTORPA CALL # EARTH COMPUTATIONS
049114,000129: 24,3554 55657 EARTHMX
049115,000130: 24,3555 77624 CALL
049116,000131: 24,3556 55711 EARTHL
049117,000132: 24,3557 77650 GOTO # MPAC=L=(-AX,-AY,0) RAD B-0
049118,000133: 24,3560 51542 RTORPB
049119,000134:
![]() |
Page 1138 |
049121,000136: # ..... MOONMX SUBROUTINE .....
049122,000137: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
049123,000138:
049124,000139: # CALLING SEQUENCE
049125,000140: # L CALL
049126,000141: # L+1 MOONMX
049127,000142:
049128,000143: # SUBROUTINES USED
049129,000144: # NEWANGLE
049130,000145:
049131,000146: # INPUT
049132,000147: # 6-7D= TIME
049133,000148:
049134,000149: # ITEMS AVAILABLE FROM LAUNCH DATA
049135,000150: # BSUBO,BDOT
049136,000151: # TIMSUBO,NODIO,NODDOT,FSUBO,FDOT
049137,000152: # COSI= COS(I) B-1
049138,000153: # SINI= SIN(I) B-1
049139,000154: # I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
049140,000155: # PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
049141,000156:
049142,000157: # OUTPUT
049143,000158: # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
049144,000159:
049145,000160: 24,3561 40220 MOONMX STQ SETPD
049146,000161: 24,3562 00051 EARTHMXX
049147,000162: 24,3563 00011 8D
049148,000163: 24,3564 77770 AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE
049149,000164: 24,3565 00005 5
049150,000165: 24,3566 65345 DLOAD PDDL # PD 10D 8-9D=BSUBO
049151,000166: 24,3567 10017 BSUBO # 10-11D=BDOT
049152,000167: 24,3570 10011 BDOT
049153,000168: 24,3571 45006 PUSH CALL # PD 12D
049154,000169: 24,3572 51706 NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0
049155,000170: 24,3573 71406 PUSH COS # PD 10D
049156,000171: 24,3574 14041 STODL COB # PD 8D COS(B) B-1
049157,000172: 24,3575 77756 SIN # SIN(B) B-1
049158,000173: 24,3576 14043 STODL SOB # SETUP INPUT FOR NEWANGLE
049159,000174: 24,3577 10015 FSUBO # 8-9D=FSUBO
049160,000175: 24,3600 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT
049161,000176: 24,3601 10007 FDOT
049162,000177: 24,3602 45170 AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE
049163,000178: 24,3603 00004 4
049164,000179: 24,3604 51706 NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
049165,000180: 24,3605 14027 STODL AVECTR +2 # SAVE F TEMP
049166,000181: 24,3606 10013 NODIO # 8-9D=NODIO
049167,000182: 24,3607 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
049168,000183: 24,3610 10005 NODDOT # MPAC=T
049169,000184: 24,3611 45170 AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
049170,000185: 24,3612 00005 5
049171,000186: 24,3613 51706 NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
![]() |
Page 1139 |
049173,000188: 24,3614 71406 PUSH COS # PD 10D 8-9D= NODI REVS B0
049174,000189: 24,3615 77606 PUSH # PD 12D 10-11D= COS(NODI) B-1
049175,000190: 24,3616 00025 STORE AVECTR
049176,000191: 24,3617 76405 DMP SL1R
049177,000192: 24,3620 00041 COB # COS(NODI) B-1
049178,000193: 24,3621 14035 STODL BVECTR +2 # PD 10D 20-25D=AVECTR= COB*SIN(NODI)
049179,000194: 24,3622 76405 DMP SL1R # SOB*SIN(NODI)
049180,000195: 24,3623 00043 SOB
049181,000196: 24,3624 14037 STODL BVECTR +4 # PD 8D
049182,000197: 24,3625 41556 SIN PUSH # PD 10D -SIN(NODI) B-1
049183,000198: 24,3626 77676 DCOMP # 26-31D=BVECTR= COB*COS(NODI)
049184,000199: 24,3627 14033 STODL BVECTR # PD 8D SOB*COS(NODI)
049185,000200: 24,3630 00027 AVECTR +2 # MOVE F FROM TEMP LOC. TO 504F
049186,000201: 24,3631 14007 STODL 504F
049187,000202: 24,3632 76405 DMP SL1R
049188,000203: 24,3633 00041 COB
049189,000204: 24,3634 14027 STODL AVECTR +2
049190,000205: 24,3635 00011 SINNODI # 8-9D=SIN(NODI) B-1
049191,000206: 24,3636 76405 DMP SL1R
049192,000207: 24,3637 00043 SOB
049193,000208: 24,3640 14031 STODL AVECTR +4 # 0
049194,000209: 24,3641 06424 HI6ZEROS # 8-13D= CVECTR= -SOB B-1
049195,000210: 24,3642 57525 PDDL DCOMP # PD 10D COB
049196,000211: 24,3643 00043 SOB
049197,000212: 24,3644 63325 PDDL PDVL # PD 12D THEN PD 14D
049198,000213: 24,3645 00041 COB
049199,000214: 24,3646 00033 BVECTR
049200,000215: 24,3647 63361 VXSC PDVL # PD 20D BVECTR*SINI B-2
049201,000216: 24,3650 10003 SINI
049202,000217: 24,3651 00011 CVECTR
049203,000218: 24,3652 53361 VXSC VAD # PD 14D CVECTR*COSI B-2
049204,000219: 24,3653 10001 COSI
049205,000220: 24,3654 77772 VSL1
049206,000221: 24,3655 24041 STOVL MMATRIX +12D # PD 8D M2=BVECTR*SINI+CVECTR*COSI B-1
049207,000222: 24,3656 63361 VXSC PDVL # PD 14D
049208,000223: 24,3657 10003 SINI # CVECTR*SINI B-2
049209,000224: 24,3660 00033 BVECTR
049210,000225: 24,3661 52361 VXSC VSU # PD 8D BVECTR*COSI B-2
049211,000226: 24,3662 10001 COSI
049212,000227: 24,3663 65372 VSL1 PDDL # PD 14D
049213,000228: 24,3664 00007 504F # 8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
049214,000229: 24,3665 74346 COS VXSC
049215,000230: 24,3666 00011 DVECTR
049216,000231: 24,3667 73525 PDDL SIN # PD 20D 14-19D= DVECTR*COSF B-2
049217,000232: 24,3670 00007 504F
049218,000233: 24,3671 52361 VXSC VSU # PD 14D AVECTR*SINF B-2
049219,000234: 24,3672 00025 AVECTR
049220,000235: 24,3673 77772 VSL1
049221,000236: 24,3674 14033 STODL MMATRIX +6 # M1= AVECTR*SINF-DVECTR*COSF B-1
049222,000237: 24,3675 00007 504F
![]() |
Page 1140 |
049224,000239: 24,3676 74356 SIN VXSC # PD 8D
049225,000240: 24,3677 71525 PDDL COS # PD 14D 8-13D=DVECTR*SINF B-2
049226,000241: 24,3700 00007 504F
049227,000242: 24,3701 53361 VXSC VAD # PD 8D AVECTR*COSF B-2
049228,000243: 24,3702 00025 AVECTR
049229,000244: 24,3703 57572 VSL1 VCOMP
049230,000245: 24,3704 34025 STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
049231,000246: 24,3705 00051 EARTHMXX
049232,000247:
049233,000248: # COMPUTE X=X0+(XDOT)(T+T0)
049234,000249: # 8-9D= XO (REVS B-0), PUSHLOC SET AT 12D
049235,000250: # 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
049236,000251: # AND B+27 FOR FDOT
049237,000252: # X1=DIFFERENCE IN 23 AND SCALING OF XDOT,=0 FOR WEARTH,5 FOR NODDOT AND
049238,000253: # BDOT AND 4 FOR FDOT
049239,000254: # 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
049240,000255:
049241,000256: 24,3706 54345 NEWANGLE DLOAD SR # ENTER PD 12D
049242,000257: 24,3707 00007 6D
049243,000258: 24,3710 20617 14D
049244,000259: 24,3711 72371 TAD TLOAD # CHANGE MODE TO TP
049245,000260: 24,3712 01707 TIMSUBO
049246,000261: 24,3713 00155 MPAC
049247,000262: 24,3714 14017 STODL TIMSUBM # T+T0 CSEC B-42
049248,000263: 24,3715 00020 TIMSUBM +1
049249,000264: 24,3716 77605 DMP # PD 10D MULT BY XDOT IN 10-11D
049250,000265: 24,3717 43257 SL* DAD # PD 8D ADD XO IN 8-9D AFTER SHIFTING
049251,000266: 24,3720 20206 5,1 # SUCH THAT SCALING IS B-0
049252,000267: 24,3721 67206 PUSH SLOAD # PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
049253,000268: 24,3722 00017 TIMSUBM
049254,000269: 24,3723 41261 SL DMP
049255,000270: 24,3724 20212 9D
049256,000271: 24,3725 00013 10D # XDOT
049257,000272: 24,3726 43257 SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X
049258,000273: 24,3727 20213 10D,1 # IS SCALED REVS/CSEC B-0
049259,000274: 24,3730 77600 BOV # TURN OFF OVERFLOW IF SET BY SHIFT
049260,000275: 24,3731 51732 +1 # INSTRUCTION BEFORE EXITING
049261,000276: 24,3732 77616 RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0
049262,000277:
![]() |
Page 1141 |
049264,000279: # ..... EARTHMX SUBROUTINE .....
049265,000280: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
049266,000281:
049267,000282: # CALLING SEQUENCE
049268,000283: # L CALL
049269,000284: # L+1 EARTHMX
049270,000285:
049271,000286: # SUBROUTINES USED
049272,000287: # NEWANGLE
049273,000288:
049274,000289: # INPUT
049275,000290: # INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0
049276,000291: # TEPHEM CSEC B-42
049277,000292: # 6-7D= TIME CSEC B-28
049278,000293:
049279,000294: # OUTPUT
049280,000295: # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
049281,000296:
049282,000297: 26,3657 BANK 26
049283,000298: 26,2000 SETLOC PLANTIN1
049284,000299: 26,2000 BANK
049285,000300: 26,3657 COUNT* $$/LUROT
049286,000301:
049287,000302: 26,3657 40220 EARTHMX STQ SETPD # SET 8-9D=AZO
049288,000303: 26,3660 00051 EARTHMXX
049289,000304: 26,3661 00011 8D # 10-11D=WEARTH
049290,000305: 26,3662 77770 AXT,1 # FOR SL 5, AND SL 10 IN NEWANGLE
049291,000306: 26,3663 00000 0
049292,000307: 26,3664 65345 DLOAD PDDL # LEAVING PD SET AT 12D FOR NEWANGLE
049293,000308: 26,3665 01712 AZO
049294,000309: 26,3666 10021 WEARTH
049295,000310: 26,3667 45006 PUSH CALL
049296,000311: 26,3670 51706 NEWANGLE
049297,000312: 26,3671 41401 SETPD PUSH # 18-19D=504AZ
049298,000313: 26,3672 00023 18D # COS(AZ) SIN(AZ) 0
049299,000314: 26,3673 65346 COS PDDL # 20-37D= MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
049300,000315: 26,3674 00023 504AZ # 0 0 1
049301,000316: 26,3675 65356 SIN PDDL
049302,000317: 26,3676 06424 HI6ZEROS
049303,000318: 26,3677 73525 PDDL SIN
049304,000319: 26,3700 00023 504AZ
049305,000320: 26,3701 65276 DCOMP PDDL
049306,000321: 26,3702 00023 504AZ
049307,000322: 26,3703 63346 COS PDVL
049308,000323: 26,3704 06424 HI6ZEROS
049309,000324: 26,3705 41525 PDDL PUSH
049310,000325: 26,3706 06422 HIDPHALF
049311,000326: 26,3707 77650 GOTO
049312,000327: 26,3710 00051 EARTHMXX
049313,000328:
![]() |
Page 1142 |
049315,000330: # ..... EARTHL SUBROUTINE .....
049316,000331: # SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
049317,000332:
049318,000333: # CALLING SEQUENCE
049319,000334: # L CALL
049320,000335: # L+1 EARTHL
049321,000336:
049322,000337: # INPUT
049323,000338: # AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
049324,000339:
049325,000340: # OUTPUT
049326,000341: # -AX
049327,000342: # MPAC= -AY RADIANS B-0
049328,000343: # 0
049329,000344:
049330,000345: 26,3711 57545 EARTHL DLOAD DCOMP
049331,000346: 26,3712 01716 AXO
049332,000347: 26,3713 14017 STODL 504LPL
049333,000348: 26,3714 01714 -AYO
049334,000349: 26,3715 14021 STODL 504LPL +2
049335,000350: 26,3716 06424 HI6ZEROS
049336,000351: 26,3717 24023 STOVL 504LPL +4
049337,000352: 26,3720 00017 504LPL
049338,000353: 26,3721 77616 RVQ
049339,000354:
![]() |
Page 1143 |
049341,000356: # CONSTANTS AND ERASABLE ASSIGNMENTS
049342,000357:
049343,000358: 26,3722 11,2272 1B1 = DP1/2 # 1 SCALED B-1
049344,000359: 26,3722 0000050 RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
049345,000360: 26,3722 0000051 EARTHMXX = S2 # EARTHMX,MOONMX SUBR. EXITS
049346,000361: 26,3722 504RPR = 0D # 6 REGS R OR RP VECTOR
049347,000362: 26,3722 SINNODI = 8D # 2 SIN(NODI)
049348,000363: 26,3722 DVECTR = 8D # 6 D VECTOR MOON
049349,000364: 26,3722 CVECTR = 8D # 6 C VECTR MOON
049350,000365: 26,3722 504AZ = 18D # 2 AZ
049351,000366: 26,3722 TIMSUBM = 14D # 3 TIME SUB M (MOON) T+T0 IN GETAZ
049352,000367: 26,3722 504LPL = 14D # 6 L OR LP VECTOR
049353,000368: 26,3722 AVECTR = 20D # 6 A VECTOR (MOON)
049354,000369: 26,3722 BVECTR = 26D # 6 B VECTOR (MOON)
049355,000370: 26,3722 MMATRIX = 20D # 18 M MATRIX
049356,000371: 26,3722 COB = 32D # 2 COS(B) B-1
049357,000372: 26,3722 SOB = 34D # 2 SIN(B) B-1
049358,000373: 26,3722 504F = 6D # 2 F(MOON)
049359,000374:
End of include-file PLANETARY_INERTIAL_ORIENTATION.agc. Parent file is MAIN.agc