Source Code
![]() |
This is an attempt to recreate Luminary 99 Rev 2, otherwise known as LUM99R2, from Luminary 99 Rev 1 and ephemeris data from Luminary 116. The differences are confined to the last 10-12 lines of the CONTROLLED CONSTANTS. Luminary 99 Rev 1 source-code was transcribed from a printout in the MIT Museum, while Luminary 116 source code was transcribed from a printout belonging to Don Eyles. AGC developer James Kernan, the "rope mother" for the Apollo 11 Lunar Module's AGC, explains as follows: "At the last minute, Dan Lickly, our chief engineer, appeared with ephemerides updates and it took two tries to get it right. The result was that we created Lum99 Revision 1 and Lum99 Revision 2." It is suspected that the former is what's in the MIT Museum, and the latter is what we are trying to recreate here. As for which revision actually flew in Apollo 11, all of the other available surviving evidence points to Rev 1 rather than to Rev 2, so we're just not sure! |
047720,000002: ## Copyright: Public domain.
047721,000003: ## Filename: PLANETARY_INERTIAL_ORIENTATION.agc
047722,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
047723,000005: ## It is part of the source code for the Lunar Module's (LM)
047724,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
047725,000007: ##
047726,000008: ## Assembler: yaYUL
047727,000009: ## Contact: Jim Lawton <jim.lawton@gmail.com>
047728,000010: ## Website: www.ibiblio.org/apollo.
047729,000011: ## Pages: 1140-1148
047730,000012: ## Mod history: 2009-05-28 JVL Updated from page images.
047731,000013: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments
047732,000014: ## and corrected the errors found.
047733,000015: ## 2017-03-03 RSB Snapshot of Luminary 99 Rev 1.
047734,000016: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
047735,000017: ## side-by-side diff of Luminary 69/99/116/131/210.
047736,000018:
![]() |
Page 1140 |
047738,000020: # ..... RP-TO-R SUBROUTINE .....
047739,000021: # SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
047740,000022: # EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
047741,000023:
047742,000024: # R = MT(T) * (RP + LP X RP) MT = M MATRIX TRANSPOSE
047743,000025:
047744,000026: # CALLING SEQUENCE
047745,000027: # L CALL
047746,000028: # L+1 RP-TO-R
047747,000029:
047748,000030: # SUBROUTINES USED
047749,000031: # EARTHMX, MOONMX, EARTHL
047750,000032:
047751,000033: # ITEMS AVAILABLE FROM LAUNCH DATA
047752,000034: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
047753,000035: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
047754,000036:
047755,000037: # ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
047756,000038:
047757,000039: # INPUT
047758,000040: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
047759,000041: # 0-5D = RP VECTOR
047760,000042: # 6-7D = TIME
047761,000043:
047762,000044: # OUTPUT
047763,000045: # MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047764,000046:
047765,000047: 26,2000 SETLOC PLANTIN1
047766,000048: 26,2000 BANK
047767,000049:
047768,000050: 26,3716 COUNT* $$/LUROT
047769,000051:
047770,000052: 26,3716 46020 RP-TO-R STQ BHIZ
047771,000053: 26,3717 00050 RPREXIT
047772,000054: 26,3720 55733 RPTORA
047773,000055: 26,3721 77624 CALL # COMPUTE M MATRIX FOR MOON
047774,000056: 26,3722 51720 MOONMX # LP=LM FOR MOON RADIANS B0
047775,000057: 26,3723 77775 VLOAD
047776,000058: 26,3724 02013 504LM
047777,000059: 26,3725 53235 RPTORB VXV VAD
047778,000060: 26,3726 00001 504RPR
047779,000061: 26,3727 00001 504RPR
047780,000062: 26,3730 52105 VXM GOTO
047781,000063: 26,3731 00025 MMATRIX # MPAC=R=MT(T)*(RP+LPXRP)
047782,000064: 26,3732 51706 RPRPXXXX # RESET PUSHLOC TO 0 BEFORE EXITING
047783,000065: 26,3733 77624 RPTORA CALL # EARTH COMPUTATIONS
047784,000066: 26,3734 55743 EARTHMX # M MATRIX B-1
047785,000067: 26,3735 77624 CALL
047786,000068: 26,3736 15753 EARTHL # L VECTOR RADIANS B0
047787,000069: 26,3737 76521 MXV VSL1 # LP=M(T)*L RAD B-0
047788,000070: 26,3740 00025 MMATRIX
![]() |
Page 1141 |
047790,000072: 26,3741 77650 GOTO
047791,000073: 26,3742 55725 RPTORB
047792,000074: 24,2000 SETLOC PLANTIN
047793,000075: 24,2000 BANK
047794,000076: 24,3670 COUNT* $$/LUROT
047795,000077:
![]() |
Page 1142 |
047797,000079: # ..... R-TO-RP SUBROUTINE .....
047798,000080: # SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
047799,000081: # (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
047800,000082:
047801,000083: # RP = M(T) * (R - L X R)
047802,000084:
047803,000085: # CALLING SEQUENCE
047804,000086: # L CALL
047805,000087: # L+1 R-TO-RP
047806,000088:
047807,000089: # SUBROUTINES USED
047808,000090: # EARTHMX, MOONMX, EARTHL
047809,000091:
047810,000092: # INPUT
047811,000093: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
047812,000094: # 0-5D = R VECTOR
047813,000095: # 6-7D = TIME
047814,000096:
047815,000097: # ITEMS AVAILABLE FROM LAUNCH DATA
047816,000098: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
047817,000099: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
047818,000100:
047819,000101: # ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
047820,000102:
047821,000103: # OUTPUT
047822,000104: # MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047823,000105:
047824,000106: 24,3670 46020 R-TO-RP STQ BHIZ
047825,000107: 24,3671 00050 RPREXIT
047826,000108: 24,3672 51712 RTORPA
047827,000109: 24,3673 77624 CALL
047828,000110: 24,3674 51720 MOONMX
047829,000111: 24,3675 61375 VLOAD VXM
047830,000112: 24,3676 02013 504LM # LP=LM
047831,000113: 24,3677 00025 MMATRIX
047832,000114: 24,3700 77772 VSL1 # L = MT(T)*LP RADIANS B0
047833,000115: 24,3701 51235 RTORPB VXV BVSU
047834,000116: 24,3702 00001 504RPR
047835,000117: 24,3703 00001 504RPR
047836,000118: 24,3704 77721 MXV # M(T)*(R-LXR) B-2
047837,000119: 24,3705 00025 MMATRIX
047838,000120: 24,3706 40372 RPRPXXXX VSL1 SETPD
047839,000121: 24,3707 00001 0D
047840,000122: 24,3710 77650 GOTO
047841,000123: 24,3711 00050 RPREXIT
047842,000124: 24,3712 77624 RTORPA CALL # EARTH COMPUTATIONS
047843,000125: 24,3713 55743 EARTHMX
047844,000126: 24,3714 77624 CALL
047845,000127: 24,3715 15753 EARTHL
047846,000128: 24,3716 77650 GOTO # MPAC=L=(-AX,-AY,0) RAD B-0
047847,000129: 24,3717 51701 RTORPB
047848,000130:
![]() |
Page 1143 |
047850,000132: # ..... MOONMX SUBROUTINE .....
047851,000133: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
047852,000134:
047853,000135: # CALLING SEQUENCE
047854,000136: # L CALL
047855,000137: # L+1 MOONMX
047856,000138:
047857,000139: # SUBROUTINES USED
047858,000140: # NEWANGLE
047859,000141:
047860,000142: # INPUT
047861,000143: # 6-7D = TIME
047862,000144:
047863,000145: # ITEMS AVAILABLE FROM LAUNCH DATA
047864,000146: # BSUBO, BDOT
047865,000147: # TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
047866,000148: # COSI = COS(I) B-1
047867,000149: # SINI = SIN(I) B-1
047868,000150: # I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
047869,000151: # PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
047870,000152:
047871,000153: # OUTPUT
047872,000154: # MMATRIX = 3X3 M MATRIX B-1 (STORED IN VAC AREA)
047873,000155:
047874,000156: 24,3720 40220 MOONMX STQ SETPD
047875,000157: 24,3721 00051 EARTHMXX
047876,000158: 24,3722 00011 8D
047877,000159: 24,3723 77770 AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE
047878,000160: 24,3724 00005 5
047879,000161: 24,3725 65345 DLOAD PDDL # PD 10D 8-9D=BSUBO
047880,000162: 24,3726 14017 BSUBO # 10-11D=BDOT
047881,000163: 24,3727 14011 BDOT
047882,000164: 24,3730 45006 PUSH CALL # PD 12D
047883,000165: 24,3731 53743 NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0
047884,000166: 24,3732 71406 PUSH COS # PD 10D
047885,000167: 24,3733 14041 STODL COB # PD 8D COS(B) B-1
047886,000168: 24,3734 77756 SIN # SIN(B) B-1
047887,000169: 24,3735 14043 STODL SOB # SETUP INPUT FOR NEWANGLE
047888,000170: 24,3736 14015 FSUBO # 8-9D=FSUBO
047889,000171: 24,3737 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT
047890,000172: 24,3740 14007 FDOT
047891,000173: 24,3741 45170 AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE
047892,000174: 24,3742 00004 4
047893,000175: 24,3743 53743 NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
047894,000176: 24,3744 14027 STODL AVECTR +2 # SAVE F TEMP
047895,000177: 24,3745 14013 NODIO # 8-9D=NODIO
047896,000178: 24,3746 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
047897,000179: 24,3747 14005 NODDOT # MPAC=T
047898,000180: 24,3750 45170 AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
047899,000181: 24,3751 00005 5
047900,000182: 24,3752 53743 NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
![]() |
Page 1144 |
047902,000184: 24,3753 71406 PUSH COS # PD 10D 8-9D= NODI REVS B0
047903,000185: 24,3754 77606 PUSH # PD 12D 10-11D= COS(NODI) B-1
047904,000186: 24,3755 00025 STORE AVECTR
047905,000187: 24,3756 76405 DMP SL1R
047906,000188: 24,3757 00041 COB # COS(NODI) B-1
047907,000189: 24,3760 14035 STODL BVECTR +2 # PD 10D 20-25D=AVECTR= COB*SIN(NODI)
047908,000190: 24,3761 76405 DMP SL1R # SOB*SIN(NODI)
047909,000191: 24,3762 00043 SOB
047910,000192: 24,3763 14037 STODL BVECTR +4 # PD 8D
047911,000193: 24,3764 41556 SIN PUSH # PD 10D -SIN(NODI) B-1
047912,000194: 24,3765 77676 DCOMP # 26-31D=BVECTR= COB*COS(NODI)
047913,000195: 24,3766 14033 STODL BVECTR # PD 8D SOB*COS(NODI)
047914,000196: 24,3767 00027 AVECTR +2 # MOVE F FROM TEMP LOC. TO 504F
047915,000197: 24,3770 14007 STODL 504F
047916,000198: 24,3771 76405 DMP SL1R
047917,000199: 24,3772 00041 COB
047918,000200: 24,3773 77650 GOTO
047919,000201: 24,3774 53671 MOONMXA
047920,000202:
047921,000203: 25,3671 BANK 25
047922,000204: 25,2000 SETLOC PLANTIN3
047923,000205: 25,2000 BANK
047924,000206: 25,3671 COUNT* $$/LUROT
047925,000207:
047926,000208: 25,3671 14027 MOONMXA STODL AVECTR +2
047927,000209: 25,3672 00011 SINNODI # 8-9D=SIN(NODI) B-1
047928,000210: 25,3673 76405 DMP SL1R
047929,000211: 25,3674 00043 SOB
047930,000212: 25,3675 14031 STODL AVECTR +4 # 0
047931,000213: 25,3676 06522 HI6ZEROS # 8-13D= CVECTR= -SOB B-1
047932,000214: 25,3677 57525 PDDL DCOMP # PD 10D COB
047933,000215: 25,3700 00043 SOB
047934,000216: 25,3701 63325 PDDL PDVL # PD 12D THEN PD 14D
047935,000217: 25,3702 00041 COB
047936,000218: 25,3703 00033 BVECTR
047937,000219: 25,3704 63361 VXSC PDVL # PD 20D BVECTR*SINI B-2
047938,000220: 25,3705 14003 SINI
047939,000221: 25,3706 00011 CVECTR
047940,000222: 25,3707 53361 VXSC VAD # PD 14D CVECTR*COSI B-2
047941,000223: 25,3710 14001 COSI
047942,000224: 25,3711 77772 VSL1
047943,000225: 25,3712 24041 STOVL MMATRIX +12D # PD 8D M2=BVECTR*SINI+CVECTR*COSI B-1
047944,000226: 25,3713 63361 VXSC PDVL # PD 14D
047945,000227: 25,3714 14003 SINI # CVECTR*SINI B-2
047946,000228: 25,3715 00033 BVECTR
047947,000229: 25,3716 52361 VXSC VSU # PD 8D BVECTR*COSI B-2
047948,000230: 25,3717 14001 COSI
047949,000231: 25,3720 65372 VSL1 PDDL # PD 14D
047950,000232: 25,3721 00007 504F # 8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
047951,000233: 25,3722 74346 COS VXSC
![]() |
Page 1145 |
047953,000235: 25,3723 00011 DVECTR
047954,000236: 25,3724 73525 PDDL SIN # PD 20D 14-19D= DVECTR*COSF B-2
047955,000237: 25,3725 00007 504F
047956,000238: 25,3726 52361 VXSC VSU # PD 14D AVECTR*SINF B-2
047957,000239: 25,3727 00025 AVECTR
047958,000240: 25,3730 77772 VSL1
047959,000241: 25,3731 14033 STODL MMATRIX +6 # M1= AVECTR*SINF-DVECTR*COSF B-1
047960,000242: 25,3732 00007 504F
047961,000243: 25,3733 74356 SIN VXSC # PD 8D
047962,000244: 25,3734 71525 PDDL COS # PD 14D 8-13D=DVECTR*SINF B-2
047963,000245: 25,3735 00007 504F
047964,000246: 25,3736 53361 VXSC VAD # PD 8D AVECTR*COSF B-2
047965,000247: 25,3737 00025 AVECTR
047966,000248: 25,3740 57572 VSL1 VCOMP
047967,000249: 25,3741 34025 STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
047968,000250: 25,3742 00051 EARTHMXX
047969,000251:
047970,000252: # COMPUTE X=X0+(XDOT)(T+T0)
047971,000253: # 8-9D= XO (REVS B-0), PUSHLOC SET AT 12D
047972,000254: # 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
047973,000255: # AND B+27 FOR FDOT
047974,000256: # X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NODDOT AND
047975,000257: # BDOT AND 4 FOR FDOT
047976,000258: # 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
047977,000259:
047978,000260: 25,3743 54345 NEWANGLE DLOAD SR # ENTER PD 12D
047979,000261: 25,3744 00007 6D
047980,000262: 25,3745 20617 14D
047981,000263: 25,3746 72371 TAD TLOAD # CHANGE MODE TO TP
047982,000264: 25,3747 01707 TIMSUBO
047983,000265: 25,3750 00155 MPAC
047984,000266: 25,3751 14017 STODL TIMSUBM # T+T0 CSEC B-42
047985,000267: 25,3752 00020 TIMSUBM +1
047986,000268: 25,3753 77605 DMP # PD 10D MULT BY XDOT IN 10-11D
047987,000269: 25,3754 43257 SL* DAD # PD 8D ADD XO IN 8-9D AFTER SHIFTING
047988,000270: 25,3755 20206 5,1 # SUCH THAT SCALING IS B-0
047989,000271: 25,3756 67206 PUSH SLOAD # PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
047990,000272: 25,3757 00017 TIMSUBM
047991,000273: 25,3760 41261 SL DMP
047992,000274: 25,3761 20212 9D
047993,000275: 25,3762 00013 10D # XDOT
047994,000276: 25,3763 43257 SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X
047995,000277: 25,3764 20213 10D,1 # IS SCALED REVS/CSEC B-0
047996,000278: 25,3765 77600 BOV # TURN OFF OVERFLOW IF SET BY SHIFT
047997,000279: 25,3766 53767 +1 # INSTRUCTION BEFORE EXITING
047998,000280: 25,3767 77616 RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0
047999,000281:
![]() |
Page 1146 |
048001,000283: # ..... EARTHMX SUBROUTINE .....
048002,000284: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
048003,000285:
048004,000286: # CALLING SEQUENCE
048005,000287: # L CALL
048006,000288: # L+1 EARTHMX
048007,000289:
048008,000290: # SUBROUTINES USED
048009,000291: # NEWANGLE
048010,000292:
048011,000293: # INPUT
048012,000294: # INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0
048013,000295: # TEPHEM CSEC B-42
048014,000296: # 6-7D= TIME CSEC B-28
048015,000297:
048016,000298: # OUTPUT
048017,000299: # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
048018,000300:
048019,000301: 26,3743 BANK 26
048020,000302: 26,2000 SETLOC PLANTIN1
048021,000303: 26,2000 BANK
048022,000304: 26,3743 COUNT* $$/LUROT
048023,000305:
048024,000306: 26,3743 40220 EARTHMX STQ SETPD # SET 8-9D=AZO
048025,000307: 26,3744 00051 EARTHMXX
048026,000308: 26,3745 00011 8D # 10-11D=WEARTH
048027,000309: 26,3746 77770 AXT,1 # FOR SL 5, AND SL 10 IN NEWANGLE
048028,000310: 26,3747 00000 0
048029,000311: 26,3750 65345 DLOAD PDDL # LEAVING PD SET AT 12D FOR NEWANGLE
048030,000312: 26,3751 01712 AZO
048031,000313: 26,3752 14021 WEARTH
048032,000314: 26,3753 45006 PUSH CALL
048033,000315: 26,3754 53743 NEWANGLE
048034,000316: 26,3755 41401 SETPD PUSH # 18-19D=504AZ
048035,000317: 26,3756 00023 18D # COS(AZ) SIN(AZ) 0
048036,000318: 26,3757 65346 COS PDDL # 20-37D= MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
048037,000319: 26,3760 00023 504AZ # 0 0 1
048038,000320: 26,3761 65356 SIN PDDL
048039,000321: 26,3762 06522 HI6ZEROS
048040,000322: 26,3763 73525 PDDL SIN
048041,000323: 26,3764 00023 504AZ
048042,000324: 26,3765 65276 DCOMP PDDL
048043,000325: 26,3766 00023 504AZ
048044,000326: 26,3767 63346 COS PDVL
048045,000327: 26,3770 06522 HI6ZEROS
048046,000328: 26,3771 41525 PDDL PUSH
048047,000329: 26,3772 06520 HIDPHALF
048048,000330: 26,3773 77650 GOTO
048049,000331: 26,3774 00051 EARTHMXX
048050,000332:
![]() |
Page 1147 |
048052,000334: # ..... EARTHL SUBROUTINE .....
048053,000335: # SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
048054,000336:
048055,000337: # CALLING SEQUENCE
048056,000338: # L CALL
048057,000339: # L+1 EARTHL
048058,000340:
048059,000341: # INPUT
048060,000342: # AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
048061,000343:
048062,000344: # OUTPUT
048063,000345: # -AX
048064,000346: # MPAC= -AY RADIANS B-0
048065,000347: # 0
048066,000348:
048067,000349: 06,3753 BANK 06
048068,000350: 06,2000 SETLOC EARTHLOC
048069,000351: 06,2000 BANK
048070,000352: 06,3753 COUNT* $$/LUROT
048071,000353:
048072,000354: 06,3753 57545 EARTHL DLOAD DCOMP
048073,000355: 06,3754 01716 AXO
048074,000356: 06,3755 14017 STODL 504LPL
048075,000357: 06,3756 01714 -AYO
048076,000358: 06,3757 14021 STODL 504LPL +2
048077,000359: 06,3760 24007 LO6ZEROS
048078,000360: 06,3761 24023 STOVL 504LPL +4
048079,000361: 06,3762 00017 504LPL
048080,000362: 06,3763 77616 RVQ
048081,000363:
![]() |
Page 1148 |
048083,000365: # CONSTANTS AND ERASABLE ASSIGNMENTS
048084,000366:
048085,000367: 06,3764 12,2004 1B1 = DP1/2 # 1 SCALED B-1
048086,000368: 06,3764 0000050 RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
048087,000369: 06,3764 0000051 EARTHMXX = S2 # EARTHMX, MOONMX SUBR. EXITS
048088,000370: 06,3764 504RPR = 0D # 6 REGS R OR RP VECTOR
048089,000371: 06,3764 SINNODI = 8D # 2 SIN(NODI)
048090,000372: 06,3764 DVECTR = 8D # 6 D VECTOR MOON
048091,000373: 06,3764 CVECTR = 8D # 6 C VECTR MOON
048092,000374: 06,3764 504AZ = 18D # 2 AZ
048093,000375: 06,3764 TIMSUBM = 14D # 3 TIME SUB M (MOON) T+T0 IN GETAZ
048094,000376: 06,3764 504LPL = 14D # 6 L OR LP VECTOR
048095,000377: 06,3764 AVECTR = 20D # 6 A VECTOR (MOON)
048096,000378: 06,3764 BVECTR = 26D # 6 B VECTOR (MOON)
048097,000379: 06,3764 MMATRIX = 20D # 18 M MATRIX
048098,000380: 06,3764 COB = 32D # 2 COS(B) B-1
048099,000381: 06,3764 SOB = 34D # 2 SIN(B) B-1
048100,000382: 06,3764 504F = 6D # 2 F(MOON)
048101,000383:
End of include-file PLANETARY_INERTIAL_ORIENTATION.agc. Parent file is MAIN.agc