Source Code
![]() |
These source-code files derive from a printout of Luminary 116 (the Apollo 12
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Ron Burkey, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071 19:09 AUG. 11,1969Note that the date is the date of the printout, not the date of the program revision. |
047809,000002: ## Copyright: Public domain.
047810,000003: ## Filename: PLANETARY_INERTIAL_ORIENTATION.agc
047811,000004: ## Purpose: A section of Luminary revision 116.
047812,000005: ## It is part of the source code for the Lunar Module's (LM)
047813,000006: ## Apollo Guidance Computer (AGC) for Apollo 12.
047814,000007: ## This file is intended to be a faithful transcription, except
047815,000008: ## that the code format has been changed to conform to the
047816,000009: ## requirements of the yaYUL assembler rather than the
047817,000010: ## original YUL assembler.
047818,000011: ## Reference: pp. 1132-1140
047819,000012: ## Assembler: yaYUL
047820,000013: ## Contact: Ron Burkey <info@sandroid.org>.
047821,000014: ## Website: www.ibiblio.org/apollo/index.html
047822,000015: ## Mod history: 2017-01-22 MAS Created from Luminary 99.
047823,000016: ## 2017-01-25 RRB Updated for Luminary 116.
047824,000017: ## 2017-03-14 RSB Proofed comment text via 3-way diff vs
047825,000018: ## Luminary 99 and 131.
047826,000019: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
047827,000020: ## side-by-side diff of Luminary 69/99/116/131/210.
047828,000021:
![]() |
Page 1132 |
047830,000023: # ..... RP-TO-R SUBROUTINE .....
047831,000024: # SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
047832,000025: # EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
047833,000026:
047834,000027: # R=MT(T)*(RP+LPXRP) MT = M MATRIX TRANSPOSE
047835,000028:
047836,000029: # CALLING SEQUENCE
047837,000030: # L CALL
047838,000031: # L+1 RP-TO-R
047839,000032:
047840,000033: # SUBROUTINES USED
047841,000034: # EARTHMX, MOONMX, EARTHL
047842,000035:
047843,000036: # ITEMS AVAILABLE FROM LAUNCH DATA
047844,000037: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
047845,000038: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
047846,000039: # ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
047847,000040:
047848,000041: # INPUT
047849,000042: # MPAC = 0 FOR EARTH,NON-ZERO FOR MOON
047850,000043: # 0-5D = RP VECTOR
047851,000044: # 6-7D = TIME
047852,000045:
047853,000046: # OUTPUT
047854,000047: # MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047855,000048:
047856,000049: 26,2000 SETLOC PLANTIN1
047857,000050: 26,2000 BANK
047858,000051:
047859,000052: 26,3716 COUNT* $$/LUROT
047860,000053:
047861,000054: 26,3716 46020 RP-TO-R STQ BHIZ
047862,000055: 26,3717 00050 RPREXIT
047863,000056: 26,3720 55733 RPTORA
047864,000057: 26,3721 77624 CALL # COMPUTE M MATRIX FOR MOON
047865,000058: 26,3722 51727 MOONMX # LP=LM FOR MOON RADIANS B0
047866,000059: 26,3723 77775 VLOAD
047867,000060: 26,3724 02013 504LM
047868,000061: 26,3725 53235 RPTORB VXV VAD
047869,000062: 26,3726 00001 504RPR
047870,000063: 26,3727 00001 504RPR
047871,000064: 26,3730 52105 VXM GOTO
047872,000065: 26,3731 00025 MMATRIX # MPAC=R=MT(T)*(RP+LPXRP)
047873,000066: 26,3732 51715 RPRPXXXX # RESET PUSHLOC TO 0 BEFORE EXITING
047874,000067: 26,3733 77624 RPTORA CALL # EARTH COMPUTATIONS
047875,000068: 26,3734 55743 EARTHMX # M MATRIX B-1
047876,000069: 26,3735 77624 CALL
047877,000070: 26,3736 15761 EARTHL # L VECTOR RADIANS B0
047878,000071: 26,3737 76521 MXV VSL1 # LP=M(T)*L RAD B-0
047879,000072: 26,3740 00025 MMATRIX
![]() |
Page 1133 |
047881,000074: 26,3741 77650 GOTO
047882,000075: 26,3742 55725 RPTORB
047883,000076: 24,2000 SETLOC PLANTIN
047884,000077: 24,2000 BANK
047885,000078: 24,3677 COUNT* $$/LUROT
047886,000079:
![]() |
Page 1134 |
047888,000081: # ..... R-TO-RP SUBROUTINE .....
047889,000082: # SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
047890,000083: # (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
047891,000084:
047892,000085: # RP=M(T)*(R-LXR)
047893,000086:
047894,000087: # CALLING SEQUENCE
047895,000088: # L CALL
047896,000089: # L+1 R-TO-RP
047897,000090:
047898,000091: # SUBROUTINES USED
047899,000092: # EARTHMX,MOONMX,EARTHL
047900,000093:
047901,000094: # INPUT
047902,000095: # MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
047903,000096: # 0-5D= R VECTOR
047904,000097: # 6-7D= TIME
047905,000098:
047906,000099: # ITEMS AVAILABLE FROM LAUNCH DATA
047907,000100: # 504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
047908,000101: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
047909,000102: # ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
047910,000103:
047911,000104: # OUTPUT
047912,000105: # MPAC=RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047913,000106:
047914,000107: 24,3677 46020 R-TO-RP STQ BHIZ
047915,000108: 24,3700 00050 RPREXIT
047916,000109: 24,3701 51721 RTORPA
047917,000110: 24,3702 77624 CALL
047918,000111: 24,3703 51727 MOONMX
047919,000112: 24,3704 61375 VLOAD VXM
047920,000113: 24,3705 02013 504LM # LP=LM
047921,000114: 24,3706 00025 MMATRIX
047922,000115: 24,3707 77772 VSL1 # L=MT(T)*LP RADIANS B0
047923,000116: 24,3710 51235 RTORPB VXV BVSU
047924,000117: 24,3711 00001 504RPR
047925,000118: 24,3712 00001 504RPR
047926,000119: 24,3713 77721 MXV # M(T)*(R-LXR) B-2
047927,000120: 24,3714 00025 MMATRIX
047928,000121: 24,3715 40372 RPRPXXXX VSL1 SETPD
047929,000122: 24,3716 00001 0D
047930,000123: 24,3717 77650 GOTO
047931,000124: 24,3720 00050 RPREXIT
047932,000125: 24,3721 77624 RTORPA CALL # EARTH COMPUTATIONS
047933,000126: 24,3722 55743 EARTHMX
047934,000127: 24,3723 77624 CALL
047935,000128: 24,3724 15761 EARTHL
047936,000129: 24,3725 77650 GOTO # MPAC=L=(-AX,-AY,0) RAD B-0
047937,000130: 24,3726 51710 RTORPB
047938,000131:
![]() |
Page 1135 |
047940,000133: # ..... MOONMX SUBROUTINE .....
047941,000134: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
047942,000135:
047943,000136: # CALLING SEQUENCE
047944,000137: # L CALL
047945,000138: # L+1 MOONMX
047946,000139:
047947,000140: # SUBROUTINES USED
047948,000141: # NEWANGLE
047949,000142:
047950,000143: # INPUT
047951,000144: # 6-7D= TIME
047952,000145: # ITEMS AVAILABLE FROM LAUNCH DATA
047953,000146: # BSUBO,BDOT
047954,000147: # TIMSUBO,NODIO,NODDOT,FSUBO,FDOT
047955,000148: # COSI = COS(I) B-1
047956,000149: # SINI = SIN(I) B-1
047957,000150: # I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
047958,000151: # PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
047959,000152:
047960,000153: # OUTPUT
047961,000154: # MMATRIX = 3X3 M MATRIX B-1 (STORED IN VAC AREA)
047962,000155:
047963,000156: 24,3727 40220 MOONMX STQ SETPD
047964,000157: 24,3730 00051 EARTHMXX
047965,000158: 24,3731 00011 8D
047966,000159: 24,3732 77770 AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE
047967,000160: 24,3733 00005 5
047968,000161: 24,3734 65345 DLOAD PDDL # PD 10D 8-9D=BSUBO
047969,000162: 24,3735 14017 BSUBO # 10-11D=BDOT
047970,000163: 24,3736 14011 BDOT
047971,000164: 24,3737 45006 PUSH CALL # PD 12D
047972,000165: 24,3740 53712 NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0
047973,000166: 24,3741 71406 PUSH COS # PD 10D
047974,000167: 24,3742 14041 STODL COB # PD 8D COS(B) B-1
047975,000168: 24,3743 77756 SIN # SIN(B) B-1
047976,000169: 24,3744 14043 STODL SOB # SETUP INPUT FOR NEWANGLE
047977,000170: 24,3745 14015 FSUBO # 8-9D=FSUBO
047978,000171: 24,3746 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT
047979,000172: 24,3747 14007 FDOT
047980,000173: 24,3750 45170 AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE
047981,000174: 24,3751 00004 4
047982,000175: 24,3752 53712 NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
047983,000176: 24,3753 14027 STODL AVECTR +2 # SAVE F TEMP
047984,000177: 24,3754 14013 NODIO # 8-9D=NODIO
047985,000178: 24,3755 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
047986,000179: 24,3756 14005 NODDOT # MPAC=T
047987,000180: 24,3757 45170 AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
047988,000181: 24,3760 00005 5
047989,000182: 24,3761 53712 NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
![]() |
Page 1136 |
047991,000184: 24,3762 71406 PUSH COS # PD 10D 8-9D= NODI REVS B0
047992,000185: 24,3763 77606 PUSH # PD 12D 10-11D= COS(NODI) B-1
047993,000186: 24,3764 00025 STORE AVECTR
047994,000187: 24,3765 76405 DMP SL1R
047995,000188: 24,3766 00041 COB # COS(NODI) B-1
047996,000189: 24,3767 14035 STODL BVECTR +2 # PD 10D 20-25D=AVECTR= COB*SIN(NODI)
047997,000190: 24,3770 76405 DMP SL1R # SOB*SIN(NODI)
047998,000191: 24,3771 00043 SOB
047999,000192: 24,3772 14037 STODL BVECTR +4 # PD 8D
048000,000193: 24,3773 41556 SIN PUSH # PD 10D -SIN(NODI) B-1
048001,000194: 24,3774 52076 DCOMP GOTO # 26-31D=BVECTR= COV*COS(NODI)
048002,000195: 24,3775 53633 MOONMXA
048003,000196: 25,3633 BANK 25
048004,000197: 25,2000 SETLOC PLANTIN3
048005,000198: 25,2000 BANK
048006,000199: 25,3633 COUNT* $$/LUROT
048007,000200:
048008,000201: 25,3633 14033 MOONMXA STODL BVECTR # PD 8D SOB*COS(NODI)
048009,000202: 25,3634 00027 AVECTR +2 # MOVE F FROM TEMP LOC. TO 504F
048010,000203: 25,3635 14007 STODL 504F
048011,000204: 25,3636 76405 DMP SL1R
048012,000205: 25,3637 00041 COB
048013,000206: 25,3640 14027 STODL AVECTR +2
048014,000207: 25,3641 00011 SINNODI # 8-9D=SIN(NODI) B-1
048015,000208: 25,3642 76405 DMP SL1R
048016,000209: 25,3643 00043 SOB
048017,000210: 25,3644 14031 STODL AVECTR +4 # 0
048018,000211: 25,3645 06524 HI6ZEROS # 8-13D= CVECTR= -SOB B-1
048019,000212: 25,3646 57525 PDDL DCOMP # PD 10D COB
048020,000213: 25,3647 00043 SOB
048021,000214: 25,3650 63325 PDDL PDVL # PD 12D THEN PD 14D
048022,000215: 25,3651 00041 COB
048023,000216: 25,3652 00033 BVECTR
048024,000217: 25,3653 63361 VXSC PDVL # PD 20D BVECTR*SINI B-2
048025,000218: 25,3654 14003 SINI
048026,000219: 25,3655 00011 CVECTR
048027,000220: 25,3656 53361 VXSC VAD # PD 14D CVECTR*COSI B-2
048028,000221: 25,3657 14001 COSI
048029,000222: 25,3660 77772 VSL1
048030,000223: 25,3661 24041 STOVL MMATRIX +12D # PD 8D M2=BVECTR*SINI+CVECTR*COSI B-1
048031,000224: 25,3662 63361 VXSC PDVL # PD 14D
048032,000225: 25,3663 14003 SINI # CVECTR*SINI B-2
048033,000226: 25,3664 00033 BVECTR
048034,000227: 25,3665 52361 VXSC VSU # PD 8D BVECTR*COSI B-2
048035,000228: 25,3666 14001 COSI
048036,000229: 25,3667 65372 VSL1 PDDL # PD 14D
048037,000230: 25,3670 00007 504F # 8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
048038,000231: 25,3671 74346 COS VXSC
048039,000232: 25,3672 00011 DVECTR
048040,000233: 25,3673 73525 PDDL SIN # PD 20D 14-19D= DVECTR*COSF B-2
![]() |
Page 1137 |
048042,000235: 25,3674 00007 504F
048043,000236: 25,3675 52361 VXSC VSU # PD 14D AVECTR*SINF B-2
048044,000237: 25,3676 00025 AVECTR
048045,000238: 25,3677 77772 VSL1
048046,000239: 25,3700 14033 STODL MMATRIX +6 # M1= AVECTR*SINF-DVECTR*COSF B-1
048047,000240: 25,3701 00007 504F
048048,000241: 25,3702 74356 SIN VXSC # PD 8D
048049,000242: 25,3703 71525 PDDL COS # PD 14D 8-13D=DVECTR*SINF B-2
048050,000243: 25,3704 00007 504F
048051,000244: 25,3705 53361 VXSC VAD # PD 8D AVECTR*COSF B-2
048052,000245: 25,3706 00025 AVECTR
048053,000246: 25,3707 57572 VSL1 VCOMP
048054,000247: 25,3710 34025 STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
048055,000248: 25,3711 00051 EARTHMXX
048056,000249:
048057,000250: # COMPUTE X=X0+(XDOT)(T+T0)
048058,000251: # 8-9D= XO (REVS B-0),PUSHLOC SET AT 12D
048059,000252: # 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
048060,000253: # AND B+27 FOR FDOT
048061,000254: # X1=DIFFERENCE IN 23 AND SCALING OF XDOT,=0 FOR WEARTH, 5 FOR NODDOT AND
048062,000255: # BDOT AND 4 FOR FDOT
048063,000256: # 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
048064,000257:
048065,000258: 25,3712 54345 NEWANGLE DLOAD SR # ENTER PD 12D
048066,000259: 25,3713 00007 6D
048067,000260: 25,3714 20617 14D
048068,000261: 25,3715 72371 TAD TLOAD # CHANGE MODE TO TP
048069,000262: 25,3716 01707 TIMSUBO
048070,000263: 25,3717 00155 MPAC
048071,000264: 25,3720 14017 STODL TIMSUBM # T+T0 CSEC B-42
048072,000265: 25,3721 00020 TIMSUBM +1
048073,000266: 25,3722 77605 DMP # PD 10D MULT BY XDOT IN 10-11D
048074,000267: 25,3723 43257 SL* DAD # PD 8D ADD XO IN 8-9D AFTER SHIFTING
048075,000268: 25,3724 20206 5,1 # SUCH THAT SCALING IS B-0
048076,000269: 25,3725 67206 PUSH SLOAD # PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
048077,000270: 25,3726 00017 TIMSUBM
048078,000271: 25,3727 41261 SL DMP
048079,000272: 25,3730 20212 9D
048080,000273: 25,3731 00013 10D # XDOT
048081,000274: 25,3732 43257 SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X
048082,000275: 25,3733 20213 10D,1 # IS SCALED REVS/CSEC B-0
048083,000276: 25,3734 77600 BOV # TURN OFF OVERFLOW IF SET BY SHIFT
048084,000277: 25,3735 53736 +1 # INSTRUCTION BEFORE EXITING
048085,000278: 25,3736 77616 RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0
048086,000279:
![]() |
Page 1138 |
048088,000281: # ..... EARTHMX SUBROUTINE .....
048089,000282: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
048090,000283:
048091,000284: # CALLING SEQUENCE
048092,000285: # L CALL
048093,000286: # L+1 EARTHMX
048094,000287:
048095,000288: # SUBROUTINES USED
048096,000289: # NEWANGLE
048097,000290:
048098,000291: # INPUT
048099,000292: # INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0
048100,000293: # TEPHEM CSEC B-42
048101,000294: # 6-7D= TIME CSEC B-28
048102,000295:
048103,000296: # OUTPUT
048104,000297: # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
048105,000298:
048106,000299: 26,3743 BANK 26
048107,000300: 26,2000 SETLOC PLANTIN1
048108,000301: 26,2000 BANK
048109,000302: 26,3743 COUNT* $$/LUROT
048110,000303:
048111,000304: 26,3743 40220 EARTHMX STQ SETPD # SET 8-9D=AZO
048112,000305: 26,3744 00051 EARTHMXX
048113,000306: 26,3745 00011 8D # 10-11D=WEARTH
048114,000307: 26,3746 77770 AXT,1 # FOR SL 5, AND SL 10 IN NEWANGLE
048115,000308: 26,3747 00000 0
048116,000309: 26,3750 65345 DLOAD PDDL # LEAVING PD SET AT 12D FOR NEWANGLE
048117,000310: 26,3751 01712 AZO
048118,000311: 26,3752 14021 WEARTH
048119,000312: 26,3753 45006 PUSH CALL
048120,000313: 26,3754 53712 NEWANGLE
048121,000314: 26,3755 41401 SETPD PUSH # 18-19D=504AZ
048122,000315: 26,3756 00023 18D # COS(AZ) SIN(AZ) 0
048123,000316: 26,3757 65346 COS PDDL # 20-37D= MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
048124,000317: 26,3760 00023 504AZ # 0 0 1
048125,000318: 26,3761 65356 SIN PDDL
048126,000319: 26,3762 06524 HI6ZEROS
048127,000320: 26,3763 73525 PDDL SIN
048128,000321: 26,3764 00023 504AZ
048129,000322: 26,3765 65276 DCOMP PDDL
048130,000323: 26,3766 00023 504AZ
048131,000324: 26,3767 63346 COS PDVL
048132,000325: 26,3770 06524 HI6ZEROS
048133,000326: 26,3771 41525 PDDL PUSH
048134,000327: 26,3772 06522 HIDPHALF
048135,000328: 26,3773 77650 GOTO
048136,000329: 26,3774 00051 EARTHMXX
048137,000330:
![]() |
Page 1139 |
048139,000332: # ..... EARTHL SUBROUTINE .....
048140,000333: # SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
048141,000334:
048142,000335: # CALLING SEQUENCE
048143,000336: # L CALL
048144,000337: # L+1 EARTHL
048145,000338:
048146,000339: # INPUT
048147,000340: # AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
048148,000341:
048149,000342: # OUTPUT
048150,000343: # -AX
048151,000344: # MPAC= -AY RADIANS B-0
048152,000345: # 0
048153,000346:
048154,000347: 06,3761 BANK 06
048155,000348: 06,2000 SETLOC EARTHLOC
048156,000349: 06,2000 BANK
048157,000350: 06,3761 COUNT* $$/LUROT
048158,000351:
048159,000352: 06,3761 57545 EARTHL DLOAD DCOMP
048160,000353: 06,3762 01716 AXO
048161,000354: 06,3763 14017 STODL 504LPL
048162,000355: 06,3764 01714 -AYO
048163,000356: 06,3765 14021 STODL 504LPL +2
048164,000357: 06,3766 24007 LO6ZEROS
048165,000358: 06,3767 24023 STOVL 504LPL +4
048166,000359: 06,3770 00017 504LPL
048167,000360: 06,3771 77616 RVQ
048168,000361:
![]() |
Page 1140 |
048170,000363: # CONSTANTS AND ERASABLE ASSIGNMENTS
048171,000364:
048172,000365: 06,3772 12,2004 1B1 = DP1/2 # 1 SCALED B-1
048173,000366: 06,3772 0000050 RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
048174,000367: 06,3772 0000051 EARTHMXX = S2 # EARTHMX, MOONMX SUBR. EXITS
048175,000368: 06,3772 504RPR = 0D # 6 REGS R OR RP VECTOR
048176,000369: 06,3772 SINNODI = 8D # 2 SIN(NODI)
048177,000370: 06,3772 DVECTR = 8D # 6 D VECTOR MOON
048178,000371: 06,3772 CVECTR = 8D # 6 C VECTR MOON
048179,000372: 06,3772 504AZ = 18D # 2 AZ
048180,000373: 06,3772 TIMSUBM = 14D # 3 TIME SUB M (MOON) T+T0 IN GETAZ
048181,000374: 06,3772 504LPL = 14D # 6 L OR LP VECTOR
048182,000375: 06,3772 AVECTR = 20D # 6 A VECTOR (MOON)
048183,000376: 06,3772 BVECTR = 26D # 6 B VECTOR (MOON)
048184,000377: 06,3772 MMATRIX = 20D # 18 M MATRIX
048185,000378: 06,3772 COB = 32D # 2 COS(B) B-1
048186,000379: 06,3772 SOB = 34D # 2 SIN(B) B-1
048187,000380: 06,3772 504F = 6D # 2 F (MOON)
048188,000381:
End of include-file PLANETARY_INERTIAL_ORIENTATION.agc. Parent file is MAIN.agc