Source Code
|
These source-code files are part of a reconstructed copy of Luminary 163, the
first (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with reconstructed source code for Luminary 173. Changes
between revision 163 and 173 were backed out, as described by Luminary memos 157
and 158. The reconstruction was verified by matching memory-bank checksums
to those listed in drawing 2021152N. Note that page numbers in the reconstructed
code match those for the baseline log section mentioned in each file's changelog;
the page numbers for a real Luminary 163 listing would be different.
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.
|
047867,000002: ## Copyright: Public domain.
047868,000003: ## Filename: PLANETARY_INERTIAL_ORIENTATION.agc
047869,000004: ## Purpose: A section of Luminary revision 163.
047870,000005: ## It is part of the reconstructed source code for the first
047871,000006: ## (unflown) release of the flight software for the Lunar
047872,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
047873,000008: ## The code has been recreated from a reconstructed copy of
047874,000009: ## Luminary 173, as well as Luminary memos 157 amd 158.
047875,000010: ## It has been adapted such that the resulting bugger words
047876,000011: ## exactly match those specified for Luminary 163 in NASA
047877,000012: ## drawing 2021152N, which gives relatively high confidence
047878,000013: ## that the reconstruction is correct.
047879,000014: ## Reference: pp. 1131-1139
047880,000015: ## Assembler: yaYUL
047881,000016: ## Contact: Ron Burkey <info@sandroid.org>.
047882,000017: ## Website: www.ibiblio.org/apollo/index.html
047883,000018: ## Mod history: 2019-08-21 MAS Created from Luminary 173.
047884,000019:
|
|
Page 1131
|
047886,000021: # ..... RP-TO-R SUBROUTINE .....
047887,000022: # SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM,EITHER
047888,000023: # EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
047889,000024:
047890,000025: # R=MT(T)*(RP+LPXRP) MT = M MATRIX TRANSPOSE
047891,000026:
047892,000027: # CALLING SEQUENCE
047893,000028: # L CALL
047894,000029: # L+1 RP-TO-R
047895,000030:
047896,000031: # SUBROUTINES USED
047897,000032: # EARTHMX,MOONMX,EARTHL
047898,000033:
047899,000034: # ITEMS AVAILABLE FROM LAUNCH DATA
047900,000035: # 504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
047901,000036: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
047902,000037: # ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
047903,000038:
047904,000039: # INPUT
047905,000040: # MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
047906,000041: # 0-5D= RP VECTOR
047907,000042: # 6-7D= TIME
047908,000043:
047909,000044: # OUTPUT
047910,000045: # MPAC= R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047911,000046:
047912,000047: 26,2000 SETLOC PLANTIN1
047913,000048: 26,2000 BANK
047914,000049:
047915,000050: 26,3720 COUNT* $$/LUROT
047916,000051:
047917,000052: 26,3720 46020 RP-TO-R STQ BHIZ
047918,000053: 26,3721 00050 RPREXIT
047919,000054: 26,3722 55735 RPTORA
047920,000055: 26,3723 77624 CALL # COMPUTE M MATRIX FOR MOON
047921,000056: 26,3724 51662 MOONMX # LP=LM FOR MOON RADIANS B0
047922,000057: 26,3725 77775 VLOAD
047923,000058: 26,3726 02013 504LM
047924,000059: 26,3727 53235 RPTORB VXV VAD
047925,000060: 26,3730 00001 504RPR
047926,000061: 26,3731 00001 504RPR
047927,000062: 26,3732 52105 VXM GOTO
047928,000063: 26,3733 00025 MMATRIX # MPAC=R=MT(T)*(RP+LPXRP)
047929,000064: 26,3734 51650 RPRPXXXX # RESET PUSHLOC TO 0 BEFORE EXITING
047930,000065: 26,3735 77624 RPTORA CALL # EARTH COMPUTATIONS
047931,000066: 26,3736 55745 EARTHMX # M MATRIX B-1
047932,000067: 26,3737 77624 CALL
047933,000068: 26,3740 15761 EARTHL # L VECTOR RADIANS B0
047934,000069: 26,3741 76521 MXV VSL1 # LP=M(T)*L RAD B-0
047935,000070: 26,3742 00025 MMATRIX
|
|
Page 1132
|
047937,000072: 26,3743 77650 GOTO
047938,000073: 26,3744 55727 RPTORB
047939,000074: 24,2000 SETLOC PLANTIN
047940,000075: 24,2000 BANK
047941,000076: 24,3632 COUNT* $$/LUROT
047942,000077:
|
|
Page 1133
|
047944,000079: # ..... R-TO-RP SUBROUTINE .....
047945,000080: # SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
047946,000081: # (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
047947,000082:
047948,000083: # RP=M(T)*(R-LXR)
047949,000084:
047950,000085: # CALLING SEQUENCE
047951,000086: # L CALL
047952,000087: # L+1 R-TO-RP
047953,000088:
047954,000089: # SUBROUTINES USED
047955,000090: # EARTHMX,MOONMX,EARTHL
047956,000091:
047957,000092: # INPUT
047958,000093: # MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
047959,000094: # 0-5D= R VECTOR
047960,000095: # 6-7D= TIME
047961,000096:
047962,000097: # ITEMS AVAILABLE FROM LAUNCH DATA
047963,000098: # 504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
047964,000099: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
047965,000100: # ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
047966,000101:
047967,000102: # OUTPUT
047968,000103: # MPAC=RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047969,000104:
047970,000105: 24,3632 46020 R-TO-RP STQ BHIZ
047971,000106: 24,3633 00050 RPREXIT
047972,000107: 24,3634 51654 RTORPA
047973,000108: 24,3635 77624 CALL
047974,000109: 24,3636 51662 MOONMX
047975,000110: 24,3637 61375 VLOAD VXM
047976,000111: 24,3640 02013 504LM # LP=LM
047977,000112: 24,3641 00025 MMATRIX
047978,000113: 24,3642 77772 VSL1 # L=MT(T)*LP RADIANS B0
047979,000114: 24,3643 51235 RTORPB VXV BVSU
047980,000115: 24,3644 00001 504RPR
047981,000116: 24,3645 00001 504RPR
047982,000117: 24,3646 77721 MXV # M(T)*(R-LXR) B-2
047983,000118: 24,3647 00025 MMATRIX
047984,000119: 24,3650 40372 RPRPXXXX VSL1 SETPD
047985,000120: 24,3651 00001 0D
047986,000121: 24,3652 77650 GOTO
047987,000122: 24,3653 00050 RPREXIT
047988,000123: 24,3654 77624 RTORPA CALL # EARTH COMPUTATIONS
047989,000124: 24,3655 55745 EARTHMX
047990,000125: 24,3656 77624 CALL
047991,000126: 24,3657 15761 EARTHL
047992,000127: 24,3660 77650 GOTO # MPAC=L=(-AX,-AY,0) RAD B-0
047993,000128: 24,3661 51643 RTORPB
047994,000129:
|
|
Page 1134
|
047996,000131: # ..... MOONMX SUBROUTINE .....
047997,000132: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
047998,000133:
047999,000134: # CALLING SEQUENCE
048000,000135: # L CALL
048001,000136: # L+1 MOONMX
048002,000137:
048003,000138: # SUBROUTINES USED
048004,000139: # NEWANGLE
048005,000140:
048006,000141: # INPUT
048007,000142: # 6-7D= TIME
048008,000143: # ITEMS AVAILABLE FROM LAUNCH DATA
048009,000144: # BSUBO,BDOT
048010,000145: # TIMSUBO,NODIO,NODDOT,FSUBO,FDOT
048011,000146: # COSI= COS(I) B-1
048012,000147: # SINI= SIN(I) B-1
048013,000148: # I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
048014,000149: # PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
048015,000150:
048016,000151: # OUTPUT
048017,000152: # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
048018,000153:
048019,000154: 24,3662 40220 MOONMX STQ SETPD
048020,000155: 24,3663 00051 EARTHMXX
048021,000156: 24,3664 00011 8D
048022,000157: 24,3665 77770 AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE
048023,000158: 24,3666 00005 5
048024,000159: 24,3667 65345 DLOAD PDDL # PD 10D 8-9D=BSUBO
048025,000160: 24,3670 14017 BSUBO # 10-11D= BDOT
048026,000161: 24,3671 14011 BDOT
048027,000162: 24,3672 45006 PUSH CALL # PD 12D
048028,000163: 24,3673 51731 NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0
048029,000164: 24,3674 71406 PUSH COS # PD 10D
048030,000165: 24,3675 14041 STODL COB # PD 8D COS(B) B-1
048031,000166: 24,3676 77756 SIN # SIN(B) B-1
048032,000167: 24,3677 14043 STODL SOB # SETUP INPUT FOR NEWANGLE
048033,000168: 24,3700 14015 FSUBO # 8-9D=FSUBO
048034,000169: 24,3701 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT
048035,000170: 24,3702 14007 FDOT
048036,000171: 24,3703 45170 AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE
048037,000172: 24,3704 00004 4
048038,000173: 24,3705 51731 NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
048039,000174: 24,3706 14027 STODL AVECTR +2 # SAVE F TEMP
048040,000175: 24,3707 14013 NODIO # 8-9D=NODIO
048041,000176: 24,3710 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
048042,000177: 24,3711 14005 NODDOT # MPAC=T
048043,000178: 24,3712 45170 AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
048044,000179: 24,3713 00005 5
048045,000180: 24,3714 51731 NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
|
|
Page 1135
|
048047,000182: 24,3715 71406 PUSH COS # PD 10D 8-9D= NODI REVS B0
048048,000183: 24,3716 77606 PUSH # PD 12D 10-11D= COS(NODI) B-1
048049,000184: 24,3717 00025 STORE AVECTR
048050,000185: 24,3720 76405 DMP SL1R
048051,000186: 24,3721 00041 COB # COS(NODI) B-1
048052,000187: 24,3722 14035 STODL BVECTR +2 # PD 10D 20-25D=AVECTR= COB*SIN(NODI)
048053,000188: 24,3723 76405 DMP SL1R # SOB*SIN(NODI)
048054,000189: 24,3724 00043 SOB
048055,000190: 24,3725 14037 STODL BVECTR +4 # PD 8D
048056,000191: 24,3726 41556 SIN PUSH # PD 10D -SIN(NODI) B-1
048057,000192: 24,3727 52076 DCOMP GOTO # 26-31D=BVECTR= COV*COS(NODI)
048058,000193: 24,3730 53715 MOONMXA
048059,000194: 25,3715 BANK 25
048060,000195: 25,2000 SETLOC PLANTIN3
048061,000196: 25,2000 BANK
048062,000197: 25,3715 COUNT* $$/LUROT
048063,000198:
048064,000199: 25,3715 14033 MOONMXA STODL BVECTR # PD 8D SOB*COS(NODI)
048065,000200: 25,3716 00027 AVECTR +2 # MOVE F FROM TEMP LOC. TO 504F
048066,000201: 25,3717 14007 STODL 504F
048067,000202: 25,3720 76405 DMP SL1R
048068,000203: 25,3721 00041 COB
048069,000204: 25,3722 14027 STODL AVECTR +2
048070,000205: 25,3723 00011 SINNODI # 8-9D=SIN(NODI) B-1
048071,000206: 25,3724 76405 DMP SL1R
048072,000207: 25,3725 00043 SOB
048073,000208: 25,3726 14031 STODL AVECTR +4 # 0
048074,000209: 25,3727 06520 HI6ZEROS # 8-13D= CVECTR= -SOB B-1
048075,000210: 25,3730 57525 PDDL DCOMP # PD 10D COB
048076,000211: 25,3731 00043 SOB
048077,000212: 25,3732 63325 PDDL PDVL # PD 12D THEN PD 14D
048078,000213: 25,3733 00041 COB
048079,000214: 25,3734 00033 BVECTR
048080,000215: 25,3735 63361 VXSC PDVL # PD 20D BVECTR*SINI B-2
048081,000216: 25,3736 14003 SINI
048082,000217: 25,3737 00011 CVECTR
048083,000218: 25,3740 53361 VXSC VAD # PD 14D CVECTR*COSI B-2
048084,000219: 25,3741 14001 COSI
048085,000220: 25,3742 77772 VSL1
048086,000221: 25,3743 24041 STOVL MMATRIX +12D # PD 8D M2=BVECTR*SINI+CVECTR*COSI B-1
048087,000222: 25,3744 63361 VXSC PDVL # PD 14D
048088,000223: 25,3745 14003 SINI # CVECTR*SINI B-2
048089,000224: 25,3746 00033 BVECTR
048090,000225: 25,3747 52361 VXSC VSU # PD 8D BVECTR*COSI B-2
048091,000226: 25,3750 14001 COSI
048092,000227: 25,3751 65372 VSL1 PDDL # PD 14D
048093,000228: 25,3752 00007 504F # 8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
048094,000229: 25,3753 74346 COS VXSC
048095,000230: 25,3754 00011 DVECTR
048096,000231: 25,3755 73525 PDDL SIN # PD 20D 14-19D= DVECTR*COSF B-2
|
|
Page 1136
|
048098,000233: 25,3756 00007 504F
048099,000234: 25,3757 52361 VXSC VSU # PD 14D AVECTR*SINF B-2
048100,000235: 25,3760 00025 AVECTR
048101,000236: 25,3761 77772 VSL1
048102,000237: 25,3762 14033 STODL MMATRIX +6 # M1= AVECTR*SINF-DVECTR*COSF B-1
048103,000238: 25,3763 00007 504F
048104,000239: 25,3764 74356 SIN VXSC # PD 8D
048105,000240: 25,3765 71525 PDDL COS # PD 14D 8-13D=DVECTR*SINF B-2
048106,000241: 25,3766 00007 504F
048107,000242: 25,3767 53361 VXSC VAD # PD 8D AVECTR*COSF B-2
048108,000243: 25,3770 00025 AVECTR
048109,000244: 25,3771 57572 VSL1 VCOMP
048110,000245: 25,3772 34025 STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
048111,000246: 25,3773 00051 EARTHMXX
048112,000247: # COMPUTE X=X0+(XDOT)(T+T0)
048113,000248: # 8-9D= XO (REVS B-0),PUSHLOC SET AT 12D
048114,000249: # 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
048115,000250: # AND B+27 FOR FDOT
048116,000251: # X1=DIFFERENCE IN 23 AND SCALING OF XDOT,=0 FOR WEARTH,5 FOR NODDOT AND
048117,000252: # BDOT AND 4 FOR FDOT
048118,000253: # 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
048119,000254:
048120,000255: 24,3731 BANK 24
048121,000256: 24,2000 SETLOC PLANTIN
048122,000257: 24,2000 BANK
048123,000258:
048124,000259: 24,3731 54345 NEWANGLE DLOAD SR # ENTER PD 12D
048125,000260: 24,3732 00007 6D
048126,000261: 24,3733 20617 14D
048127,000262: 24,3734 72371 TAD TLOAD # CHANGE MODE TO TP
048128,000263: 24,3735 01707 TIMSUBO
048129,000264: 24,3736 00155 MPAC
048130,000265: 24,3737 14017 STODL TIMSUBM # T+T0 CSEC B-42
048131,000266: 24,3740 00020 TIMSUBM +1
048132,000267: 24,3741 77605 DMP # PD 10D MULT BY XDOT IN 10-11D
048133,000268: 24,3742 43257 SL* DAD # PD 8D ADD XO IN 8-9D AFTER SHIFTING
048134,000269: 24,3743 20206 5,1 # SUCH THAT SCALING IS B-0
048135,000270: 24,3744 67206 PUSH SLOAD # PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
048136,000271: 24,3745 00017 TIMSUBM
048137,000272: 24,3746 41261 SL DMP
048138,000273: 24,3747 20212 9D
048139,000274: 24,3750 00013 10D # XDOT
048140,000275: 24,3751 43257 SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X
048141,000276: 24,3752 20213 10D,1 # IS SCALED REVS/CSEC B-0
048142,000277: 24,3753 77600 BOV # TURN OFF OVERFLOW IF SET BY SHIFT
048143,000278: 24,3754 51755 +1 # INSTRUCTION BEFORE EXITING
048144,000279: 24,3755 77616 RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0
048145,000280:
|
|
Page 1137
|
048147,000282: # ..... EARTHMX SUBROUTINE .....
048148,000283: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
048149,000284:
048150,000285: # CALLING SEQUENCE
048151,000286: # L CALL
048152,000287: # L+1 EARTHMX
048153,000288:
048154,000289: # SUBROUTINES USED
048155,000290: # NEWANGLE
048156,000291:
048157,000292: # INPUT
048158,000293: # INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0
048159,000294: # TEPHEM CSEC B-42
048160,000295: # 6-7D= TIME CSEC B-28
048161,000296:
048162,000297: # OUTPUT
048163,000298: # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
048164,000299:
048165,000300: 26,3745 BANK 26
048166,000301: 26,2000 SETLOC PLANTIN1
048167,000302: 26,2000 BANK
048168,000303: 26,3745 COUNT* $$/LUROT
048169,000304:
048170,000305: 26,3745 40220 EARTHMX STQ SETPD # SET 8-9D=AZO
048171,000306: 26,3746 00051 EARTHMXX
048172,000307: 26,3747 00011 8D # 10-11D=WEARTH
048173,000308: 26,3750 77770 AXT,1 # FOR SL 5, AND SL 10 IN NEWANGLE
048174,000309: 26,3751 00000 0
048175,000310: 26,3752 65345 DLOAD PDDL # LEAVING PD SET AT 12D FOR NEWANGLE
048176,000311: 26,3753 14023 AZO
048177,000312: 26,3754 14021 WEARTH
048178,000313: 26,3755 45006 PUSH CALL
048179,000314: 26,3756 51731 NEWANGLE
048180,000315: 26,3757 41401 SETPD PUSH # 18-19D=504AZ
048181,000316: 26,3760 00023 18D # COS(AZ) SIN(AZ) 0
048182,000317: 26,3761 65346 COS PDDL # 20-37D= MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
048183,000318: 26,3762 00023 504AZ # 0 0 1
048184,000319: 26,3763 65356 SIN PDDL
048185,000320: 26,3764 06520 HI6ZEROS
048186,000321: 26,3765 73525 PDDL SIN
048187,000322: 26,3766 00023 504AZ
048188,000323: 26,3767 65276 DCOMP PDDL
048189,000324: 26,3770 00023 504AZ
048190,000325: 26,3771 63346 COS PDVL
048191,000326: 26,3772 06520 HI6ZEROS
048192,000327: 26,3773 41525 PDDL PUSH
048193,000328: 26,3774 06516 HIDPHALF
048194,000329: 26,3775 77650 GOTO
048195,000330: 26,3776 00051 EARTHMXX
048196,000331:
|
|
Page 1138
|
048198,000333: # ..... EARTHL SUBROUTINE .....
048199,000334: # SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
048200,000335:
048201,000336: # CALLING SEQUENCE
048202,000337: # L CALL
048203,000338: # L+1 EARTHL
048204,000339:
048205,000340: # INPUT
048206,000341: # AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
048207,000342:
048208,000343: # OUTPUT
048209,000344: # -AX
048210,000345: # MPAC= -AY RADIANS B-0
048211,000346: # 0
048212,000347:
048213,000348: 06,3761 BANK 06
048214,000349: 06,2000 SETLOC EARTHLOC
048215,000350: 06,2000 BANK
048216,000351: 06,3761 COUNT* $$/LUROT
048217,000352:
048218,000353: 06,3761 57545 EARTHL DLOAD DCOMP
048219,000354: 06,3762 01714 AXO
048220,000355: 06,3763 14017 STODL 504LPL
048221,000356: 06,3764 01712 -AYO
048222,000357: 06,3765 14021 STODL 504LPL +2
048223,000358: 06,3766 24007 LO6ZEROS
048224,000359: 06,3767 24023 STOVL 504LPL +4
048225,000360: 06,3770 00017 504LPL
048226,000361: 06,3771 77616 RVQ
048227,000362:
|
|
Page 1139
|
048229,000364: # CONSTANTS AND ERASABLE ASSIGNMENTS
048230,000365: 06,3772 12,2004 1B1 = DP1/2 # 1 SCALED B-1
048231,000366: 06,3772 0000050 RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
048232,000367: 06,3772 0000051 EARTHMXX = S2 # EARTHMX,MOONMX SUBR. EXITS
048233,000368: 06,3772 504RPR = 0D # 6 REGS R OR RP VECTOR
048234,000369: 06,3772 SINNODI = 8D # 2 SIN(NODI)
048235,000370: 06,3772 DVECTR = 8D # 6 D VECTOR MOON
048236,000371: 06,3772 CVECTR = 8D # 6 C VECTR MOON
048237,000372: 06,3772 504AZ = 18D # 2 AZ
048238,000373: 06,3772 TIMSUBM = 14D # 3 TIME SUB M (MOON) T+T0 IN GETAZ
048239,000374: 06,3772 504LPL = 14D # 6 L OR LP VECTOR
048240,000375: 06,3772 AVECTR = 20D # 6 A VECTOR (MOON)
048241,000376: 06,3772 BVECTR = 26D # 6 B VECTOR (MOON)
048242,000377: 06,3772 MMATRIX = 20D # 18 M MATRIX
048243,000378: 06,3772 COB = 32D # 2 COS(B) B-1
048244,000379: 06,3772 SOB = 34D # 2 SIN(B) B-1
048245,000380: 06,3772 504F = 6D # 2 F(MOON)
End of include-file PLANETARY_INERTIAL_ORIENTATION.agc. Parent file is MAIN.agc