Source Code
|
These source-code files are part of a reconstructed copy of Luminary 96, the
original release of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with reconstructed source code for Luminary 97. Changes
between revisions 96 and 97 were backed out, as described by anomal report LNY-59.
transcribed from a digitized copy of that program. The reconstruction was
verified by matching memory-bank checksums to those listed in drawing 2021152D.
Note that page numbers in the reconstructed code match those on the Luminary 099
revision 001 printout, although the added code would likely have changed page
numbers for a real Luminary 96 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
047582,000002: ## Copyright: Public domain.
047583,000003: ## Filename: PLANETARY_INERTIAL_ORIENTATION.agc
047584,000004: ## Purpose: A section of Luminary revision 96.
047585,000005: ## It is part of the reconstructed source code for the
047586,000006: ## original release of the flight software for the Lunar
047587,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
047588,000008: ## The code has been recreated from a previously reconstructed
047589,000009: ## copy of Luminary 97 by undoing changes described in anomaly
047590,000010: ## report LNY-59. The code has been adapted such that the
047591,000011: ## resulting bugger words exactly match those specified for
047592,000012: ## Luminary 96 in NASA drawing 2021152D, which gives relatively
047593,000013: ## high confidence that the reconstruction is correct.
047594,000014: ## Reference: pp. 1140-1148
047595,000015: ## Assembler: yaYUL
047596,000016: ## Contact: Ron Burkey <info@sandroid.org>.
047597,000017: ## Website: www.ibiblio.org/apollo/index.html
047598,000018: ## Mod history: 2019-08-04 MAS Created from Luminary 97.
047599,000019:
|
|
Page 1140
|
047601,000021: # ..... RP-TO-R SUBROUTINE .....
047602,000022: # SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
047603,000023: # EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
047604,000024:
047605,000025: # R = MT(T) * (RP + LP X RP) MT = M MATRIX TRANSPOSE
047606,000026:
047607,000027: # CALLING SEQUENCE
047608,000028: # L CALL
047609,000029: # L+1 RP-TO-R
047610,000030:
047611,000031: # SUBROUTINES USED
047612,000032: # EARTHMX, MOONMX, EARTHL
047613,000033:
047614,000034: # ITEMS AVAILABLE FROM LAUNCH DATA
047615,000035: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
047616,000036: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
047617,000037:
047618,000038: # ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
047619,000039:
047620,000040: # INPUT
047621,000041: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
047622,000042: # 0-5D = RP VECTOR
047623,000043: # 6-7D = TIME
047624,000044:
047625,000045: # OUTPUT
047626,000046: # MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047627,000047:
047628,000048: 26,2000 SETLOC PLANTIN1
047629,000049: 26,2000 BANK
047630,000050:
047631,000051: 26,3716 COUNT* $$/LUROT
047632,000052:
047633,000053: 26,3716 46020 RP-TO-R STQ BHIZ
047634,000054: 26,3717 00050 RPREXIT
047635,000055: 26,3720 55733 RPTORA
047636,000056: 26,3721 77624 CALL # COMPUTE M MATRIX FOR MOON
047637,000057: 26,3722 51720 MOONMX # LP=LM FOR MOON RADIANS B0
047638,000058: 26,3723 77775 VLOAD
047639,000059: 26,3724 02013 504LM
047640,000060: 26,3725 53235 RPTORB VXV VAD
047641,000061: 26,3726 00001 504RPR
047642,000062: 26,3727 00001 504RPR
047643,000063: 26,3730 52105 VXM GOTO
047644,000064: 26,3731 00025 MMATRIX # MPAC=R=MT(T)*(RP+LPXRP)
047645,000065: 26,3732 51706 RPRPXXXX # RESET PUSHLOC TO 0 BEFORE EXITING
047646,000066: 26,3733 77624 RPTORA CALL # EARTH COMPUTATIONS
047647,000067: 26,3734 55743 EARTHMX # M MATRIX B-1
047648,000068: 26,3735 77624 CALL
047649,000069: 26,3736 15753 EARTHL # L VECTOR RADIANS B0
047650,000070: 26,3737 76521 MXV VSL1 # LP=M(T)*L RAD B-0
047651,000071: 26,3740 00025 MMATRIX
|
|
Page 1141
|
047653,000073: 26,3741 77650 GOTO
047654,000074: 26,3742 55725 RPTORB
047655,000075: 24,2000 SETLOC PLANTIN
047656,000076: 24,2000 BANK
047657,000077: 24,3670 COUNT* $$/LUROT
047658,000078:
|
|
Page 1142
|
047660,000080: # ..... R-TO-RP SUBROUTINE .....
047661,000081: # SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
047662,000082: # (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
047663,000083:
047664,000084: # RP = M(T) * (R - L X R)
047665,000085:
047666,000086: # CALLING SEQUENCE
047667,000087: # L CALL
047668,000088: # L+1 R-TO-RP
047669,000089:
047670,000090: # SUBROUTINES USED
047671,000091: # EARTHMX, MOONMX, EARTHL
047672,000092:
047673,000093: # INPUT
047674,000094: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
047675,000095: # 0-5D = R VECTOR
047676,000096: # 6-7D = TIME
047677,000097:
047678,000098: # ITEMS AVAILABLE FROM LAUNCH DATA
047679,000099: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
047680,000100: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
047681,000101:
047682,000102: # ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
047683,000103:
047684,000104: # OUTPUT
047685,000105: # MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047686,000106:
047687,000107: 24,3670 46020 R-TO-RP STQ BHIZ
047688,000108: 24,3671 00050 RPREXIT
047689,000109: 24,3672 51712 RTORPA
047690,000110: 24,3673 77624 CALL
047691,000111: 24,3674 51720 MOONMX
047692,000112: 24,3675 61375 VLOAD VXM
047693,000113: 24,3676 02013 504LM # LP=LM
047694,000114: 24,3677 00025 MMATRIX
047695,000115: 24,3700 77772 VSL1 # L = MT(T)*LP RADIANS B0
047696,000116: 24,3701 51235 RTORPB VXV BVSU
047697,000117: 24,3702 00001 504RPR
047698,000118: 24,3703 00001 504RPR
047699,000119: 24,3704 77721 MXV # M(T)*(R-LXR) B-2
047700,000120: 24,3705 00025 MMATRIX
047701,000121: 24,3706 40372 RPRPXXXX VSL1 SETPD
047702,000122: 24,3707 00001 0D
047703,000123: 24,3710 77650 GOTO
047704,000124: 24,3711 00050 RPREXIT
047705,000125: 24,3712 77624 RTORPA CALL # EARTH COMPUTATIONS
047706,000126: 24,3713 55743 EARTHMX
047707,000127: 24,3714 77624 CALL
047708,000128: 24,3715 15753 EARTHL
047709,000129: 24,3716 77650 GOTO # MPAC=L=(-AX,-AY,0) RAD B-0
047710,000130: 24,3717 51701 RTORPB
047711,000131:
|
|
Page 1143
|
047713,000133: # ..... MOONMX SUBROUTINE .....
047714,000134: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
047715,000135:
047716,000136: # CALLING SEQUENCE
047717,000137: # L CALL
047718,000138: # L+1 MOONMX
047719,000139:
047720,000140: # SUBROUTINES USED
047721,000141: # NEWANGLE
047722,000142:
047723,000143: # INPUT
047724,000144: # 6-7D = TIME
047725,000145:
047726,000146: # ITEMS AVAILABLE FROM LAUNCH DATA
047727,000147: # BSUBO, BDOT
047728,000148: # TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
047729,000149: # COSI = COS(I) B-1
047730,000150: # SINI = SIN(I) B-1
047731,000151: # I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
047732,000152: # PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
047733,000153:
047734,000154: # OUTPUT
047735,000155: # MMATRIX = 3X3 M MATRIX B-1 (STORED IN VAC AREA)
047736,000156:
047737,000157: 24,3720 40220 MOONMX STQ SETPD
047738,000158: 24,3721 00051 EARTHMXX
047739,000159: 24,3722 00011 8D
047740,000160: 24,3723 77770 AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE
047741,000161: 24,3724 00005 5
047742,000162: 24,3725 65345 DLOAD PDDL # PD 10D 8-9D=BSUBO
047743,000163: 24,3726 14017 BSUBO # 10-11D=BDOT
047744,000164: 24,3727 14011 BDOT
047745,000165: 24,3730 45006 PUSH CALL # PD 12D
047746,000166: 24,3731 53743 NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0
047747,000167: 24,3732 71406 PUSH COS # PD 10D
047748,000168: 24,3733 14041 STODL COB # PD 8D COS(B) B-1
047749,000169: 24,3734 77756 SIN # SIN(B) B-1
047750,000170: 24,3735 14043 STODL SOB # SETUP INPUT FOR NEWANGLE
047751,000171: 24,3736 14015 FSUBO # 8-9D=FSUBO
047752,000172: 24,3737 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT
047753,000173: 24,3740 14007 FDOT
047754,000174: 24,3741 45170 AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE
047755,000175: 24,3742 00004 4
047756,000176: 24,3743 53743 NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
047757,000177: 24,3744 14027 STODL AVECTR +2 # SAVE F TEMP
047758,000178: 24,3745 14013 NODIO # 8-9D=NODIO
047759,000179: 24,3746 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
047760,000180: 24,3747 14005 NODDOT # MPAC=T
047761,000181: 24,3750 45170 AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
047762,000182: 24,3751 00005 5
047763,000183: 24,3752 53743 NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
|
|
Page 1144
|
047765,000185: 24,3753 71406 PUSH COS # PD 10D 8-9D= NODI REVS B0
047766,000186: 24,3754 77606 PUSH # PD 12D 10-11D= COS(NODI) B-1
047767,000187: 24,3755 00025 STORE AVECTR
047768,000188: 24,3756 76405 DMP SL1R
047769,000189: 24,3757 00041 COB # COS(NODI) B-1
047770,000190: 24,3760 14035 STODL BVECTR +2 # PD 10D 20-25D=AVECTR= COB*SIN(NODI)
047771,000191: 24,3761 76405 DMP SL1R # SOB*SIN(NODI)
047772,000192: 24,3762 00043 SOB
047773,000193: 24,3763 14037 STODL BVECTR +4 # PD 8D
047774,000194: 24,3764 41556 SIN PUSH # PD 10D -SIN(NODI) B-1
047775,000195: 24,3765 77676 DCOMP # 26-31D=BVECTR= COB*COS(NODI)
047776,000196: 24,3766 14033 STODL BVECTR # PD 8D SOB*COS(NODI)
047777,000197: 24,3767 00027 AVECTR +2 # MOVE F FROM TEMP LOC. TO 504F
047778,000198: 24,3770 14007 STODL 504F
047779,000199: 24,3771 76405 DMP SL1R
047780,000200: 24,3772 00041 COB
047781,000201: 24,3773 77650 GOTO
047782,000202: 24,3774 53671 MOONMXA
047783,000203:
047784,000204: 25,3671 BANK 25
047785,000205: 25,2000 SETLOC PLANTIN3
047786,000206: 25,2000 BANK
047787,000207: 25,3671 COUNT* $$/LUROT
047788,000208:
047789,000209: 25,3671 14027 MOONMXA STODL AVECTR +2
047790,000210: 25,3672 00011 SINNODI # 8-9D=SIN(NODI) B-1
047791,000211: 25,3673 76405 DMP SL1R
047792,000212: 25,3674 00043 SOB
047793,000213: 25,3675 14031 STODL AVECTR +4 # 0
047794,000214: 25,3676 06522 HI6ZEROS # 8-13D= CVECTR= -SOB B-1
047795,000215: 25,3677 57525 PDDL DCOMP # PD 10D COB
047796,000216: 25,3700 00043 SOB
047797,000217: 25,3701 63325 PDDL PDVL # PD 12D THEN PD 14D
047798,000218: 25,3702 00041 COB
047799,000219: 25,3703 00033 BVECTR
047800,000220: 25,3704 63361 VXSC PDVL # PD 20D BVECTR*SINI B-2
047801,000221: 25,3705 14003 SINI
047802,000222: 25,3706 00011 CVECTR
047803,000223: 25,3707 53361 VXSC VAD # PD 14D CVECTR*COSI B-2
047804,000224: 25,3710 14001 COSI
047805,000225: 25,3711 77772 VSL1
047806,000226: 25,3712 24041 STOVL MMATRIX +12D # PD 8D M2=BVECTR*SINI+CVECTR*COSI B-1
047807,000227: 25,3713 63361 VXSC PDVL # PD 14D
047808,000228: 25,3714 14003 SINI # CVECTR*SINI B-2
047809,000229: 25,3715 00033 BVECTR
047810,000230: 25,3716 52361 VXSC VSU # PD 8D BVECTR*COSI B-2
047811,000231: 25,3717 14001 COSI
047812,000232: 25,3720 65372 VSL1 PDDL # PD 14D
047813,000233: 25,3721 00007 504F # 8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
047814,000234: 25,3722 74346 COS VXSC
|
|
Page 1145
|
047816,000236: 25,3723 00011 DVECTR
047817,000237: 25,3724 73525 PDDL SIN # PD 20D 14-19D= DVECTR*COSF B-2
047818,000238: 25,3725 00007 504F
047819,000239: 25,3726 52361 VXSC VSU # PD 14D AVECTR*SINF B-2
047820,000240: 25,3727 00025 AVECTR
047821,000241: 25,3730 77772 VSL1
047822,000242: 25,3731 14033 STODL MMATRIX +6 # M1= AVECTR*SINF-DVECTR*COSF B-1
047823,000243: 25,3732 00007 504F
047824,000244: 25,3733 74356 SIN VXSC # PD 8D
047825,000245: 25,3734 71525 PDDL COS # PD 14D 8-13D=DVECTR*SINF B-2
047826,000246: 25,3735 00007 504F
047827,000247: 25,3736 53361 VXSC VAD # PD 8D AVECTR*COSF B-2
047828,000248: 25,3737 00025 AVECTR
047829,000249: 25,3740 57572 VSL1 VCOMP
047830,000250: 25,3741 34025 STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
047831,000251: 25,3742 00051 EARTHMXX
047832,000252:
047833,000253: # COMPUTE X=X0+(XDOT)(T+T0)
047834,000254: # 8-9D= XO (REVS B-0), PUSHLOC SET AT 12D
047835,000255: # 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
047836,000256: # AND B+27 FOR FDOT
047837,000257: # X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NODDOT AND
047838,000258: # BDOT AND 4 FOR FDOT
047839,000259: # 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
047840,000260:
047841,000261: 25,3743 54345 NEWANGLE DLOAD SR # ENTER PD 12D
047842,000262: 25,3744 00007 6D
047843,000263: 25,3745 20617 14D
047844,000264: 25,3746 72371 TAD TLOAD # CHANGE MODE TO TP
047845,000265: 25,3747 01707 TIMSUBO
047846,000266: 25,3750 00155 MPAC
047847,000267: 25,3751 14017 STODL TIMSUBM # T+T0 CSEC B-42
047848,000268: 25,3752 00020 TIMSUBM +1
047849,000269: 25,3753 77605 DMP # PD 10D MULT BY XDOT IN 10-11D
047850,000270: 25,3754 43257 SL* DAD # PD 8D ADD XO IN 8-9D AFTER SHIFTING
047851,000271: 25,3755 20206 5,1 # SUCH THAT SCALING IS B-0
047852,000272: 25,3756 67206 PUSH SLOAD # PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
047853,000273: 25,3757 00017 TIMSUBM
047854,000274: 25,3760 41261 SL DMP
047855,000275: 25,3761 20212 9D
047856,000276: 25,3762 00013 10D # XDOT
047857,000277: 25,3763 43257 SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X
047858,000278: 25,3764 20213 10D,1 # IS SCALED REVS/CSEC B-0
047859,000279: 25,3765 77600 BOV # TURN OFF OVERFLOW IF SET BY SHIFT
047860,000280: 25,3766 53767 +1 # INSTRUCTION BEFORE EXITING
047861,000281: 25,3767 77616 RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0
047862,000282:
|
|
Page 1146
|
047864,000284: # ..... EARTHMX SUBROUTINE .....
047865,000285: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
047866,000286:
047867,000287: # CALLING SEQUENCE
047868,000288: # L CALL
047869,000289: # L+1 EARTHMX
047870,000290:
047871,000291: # SUBROUTINES USED
047872,000292: # NEWANGLE
047873,000293:
047874,000294: # INPUT
047875,000295: # INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0
047876,000296: # TEPHEM CSEC B-42
047877,000297: # 6-7D= TIME CSEC B-28
047878,000298:
047879,000299: # OUTPUT
047880,000300: # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
047881,000301:
047882,000302: 26,3743 BANK 26
047883,000303: 26,2000 SETLOC PLANTIN1
047884,000304: 26,2000 BANK
047885,000305: 26,3743 COUNT* $$/LUROT
047886,000306:
047887,000307: 26,3743 40220 EARTHMX STQ SETPD # SET 8-9D=AZO
047888,000308: 26,3744 00051 EARTHMXX
047889,000309: 26,3745 00011 8D # 10-11D=WEARTH
047890,000310: 26,3746 77770 AXT,1 # FOR SL 5, AND SL 10 IN NEWANGLE
047891,000311: 26,3747 00000 0
047892,000312: 26,3750 65345 DLOAD PDDL # LEAVING PD SET AT 12D FOR NEWANGLE
047893,000313: 26,3751 01712 AZO
047894,000314: 26,3752 14021 WEARTH
047895,000315: 26,3753 45006 PUSH CALL
047896,000316: 26,3754 53743 NEWANGLE
047897,000317: 26,3755 41401 SETPD PUSH # 18-19D=504AZ
047898,000318: 26,3756 00023 18D # COS(AZ) SIN(AZ) 0
047899,000319: 26,3757 65346 COS PDDL # 20-37D= MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
047900,000320: 26,3760 00023 504AZ # 0 0 1
047901,000321: 26,3761 65356 SIN PDDL
047902,000322: 26,3762 06522 HI6ZEROS
047903,000323: 26,3763 73525 PDDL SIN
047904,000324: 26,3764 00023 504AZ
047905,000325: 26,3765 65276 DCOMP PDDL
047906,000326: 26,3766 00023 504AZ
047907,000327: 26,3767 63346 COS PDVL
047908,000328: 26,3770 06522 HI6ZEROS
047909,000329: 26,3771 41525 PDDL PUSH
047910,000330: 26,3772 06520 HIDPHALF
047911,000331: 26,3773 77650 GOTO
047912,000332: 26,3774 00051 EARTHMXX
047913,000333:
|
|
Page 1147
|
047915,000335: # ..... EARTHL SUBROUTINE .....
047916,000336: # SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
047917,000337:
047918,000338: # CALLING SEQUENCE
047919,000339: # L CALL
047920,000340: # L+1 EARTHL
047921,000341:
047922,000342: # INPUT
047923,000343: # AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
047924,000344:
047925,000345: # OUTPUT
047926,000346: # -AX
047927,000347: # MPAC= -AY RADIANS B-0
047928,000348: # 0
047929,000349:
047930,000350: 06,3753 BANK 06
047931,000351: 06,2000 SETLOC EARTHLOC
047932,000352: 06,2000 BANK
047933,000353: 06,3753 COUNT* $$/LUROT
047934,000354:
047935,000355: 06,3753 57545 EARTHL DLOAD DCOMP
047936,000356: 06,3754 01716 AXO
047937,000357: 06,3755 14017 STODL 504LPL
047938,000358: 06,3756 01714 -AYO
047939,000359: 06,3757 14021 STODL 504LPL +2
047940,000360: 06,3760 24007 LO6ZEROS
047941,000361: 06,3761 24023 STOVL 504LPL +4
047942,000362: 06,3762 00017 504LPL
047943,000363: 06,3763 77616 RVQ
047944,000364:
|
|
Page 1148
|
047946,000366: # CONSTANTS AND ERASABLE ASSIGNMENTS
047947,000367:
047948,000368: 06,3764 12,2004 1B1 = DP1/2 # 1 SCALED B-1
047949,000369: 06,3764 0000050 RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
047950,000370: 06,3764 0000051 EARTHMXX = S2 # EARTHMX, MOONMX SUBR. EXITS
047951,000371: 06,3764 504RPR = 0D # 6 REGS R OR RP VECTOR
047952,000372: 06,3764 SINNODI = 8D # 2 SIN(NODI)
047953,000373: 06,3764 DVECTR = 8D # 6 D VECTOR MOON
047954,000374: 06,3764 CVECTR = 8D # 6 C VECTR MOON
047955,000375: 06,3764 504AZ = 18D # 2 AZ
047956,000376: 06,3764 TIMSUBM = 14D # 3 TIME SUB M (MOON) T+T0 IN GETAZ
047957,000377: 06,3764 504LPL = 14D # 6 L OR LP VECTOR
047958,000378: 06,3764 AVECTR = 20D # 6 A VECTOR (MOON)
047959,000379: 06,3764 BVECTR = 26D # 6 B VECTOR (MOON)
047960,000380: 06,3764 MMATRIX = 20D # 18 M MATRIX
047961,000381: 06,3764 COB = 32D # 2 COS(B) B-1
047962,000382: 06,3764 SOB = 34D # 2 SIN(B) B-1
047963,000383: 06,3764 504F = 6D # 2 F(MOON)
047964,000384:
End of include-file PLANETARY_INERTIAL_ORIENTATION.agc. Parent file is MAIN.agc