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