GAP: ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091 17:53 DEC. 19, 1969Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.
Source Code
|
|
This source code is very close to the Apollo Guidance Computer software for the
Apollo 13 Lunar module. This revision of the Luminary 131 program is from December
of 1969, whereas there was a later revision in January of 1970, and still another
revision in February, which is the code that flew on the mission.
As far as this transcription is concerned, it was originally from a copy made in 1991 of
a printout from the collection of AGC developer Don Eyles for collector David Craig.
It was subsequently scanned by Gary Neff, reprocessed for online
presentation at the now-discontinued History of Recent Science and Technology (HRST) website
of MIT's Dibner Institute (the full-quality scans being discarded in the process),
and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a
high-quality replacement scan for a completely illegible page was later provided by Gary
Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many
errors to be introduced into the transcription. Accordingly, a second scan of the same physical
printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive,
and used to correct the transcription errors. All of the scanned materials mentioned,
as well as other Luminary 131 related material, are available online.
Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017,
so the two scans are not identical in that respect. The page-headings in the printout read, in part:GAP: ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091 17:53 DEC. 19, 1969Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together. |
047526,000002: ## Copyright: Public domain.
047527,000003: ## Filename: PLANETARY_INERTIAL_ORIENTATION.agc
047528,000004: ## Purpose: A section of Luminary 1C, revision 131.
047529,000005: ## It is part of the source code for the Lunar Module's (LM)
047530,000006: ## Apollo Guidance Computer (AGC) for Apollo 13.
047531,000007: ## This file is intended to be a faithful transcription, except
047532,000008: ## that the code format has been changed to conform to the
047533,000009: ## requirements of the yaYUL assembler rather than the
047534,000010: ## original YUL assembler.
047535,000011: ## Reference: pp. 1134-1142
047536,000012: ## Contact: Ron Burkey <info@sandroid.org>.
047537,000013: ## Website: www.ibiblio.org/apollo/index.html
047538,000014: ## Mod history: 06/01/03 RSB. Began transcribing.
047539,000015: ## 05/14/05 RSB Corrected website reference above.
047540,000016: ## 2017-01-06 RSB Page numbers now agree with those on the
047541,000017: ## original hardcopy, as opposed to the PDF page
047542,000018: ## numbers in 1701.pdf.
047543,000019: ## 2017-02-27 RSB Proofed comment text using octopus/ProoferComments.
047544,000020: ## 2017-03-14 RSB Comment-text fixes noted in proofing Luminary 116.
047545,000021: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
047546,000022: ## side-by-side diff of Luminary 69/99/116/131/210.
047547,000023:
|
|
Page 1134 |
047549,000025: # ..... RP-TO-R SUBROUTINE .....
047550,000026: # SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
047551,000027: # EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
047552,000028: # R = MT(T) * (RP + LP X RP) MT = M MATRIX TRANSPOSE
047553,000029:
047554,000030: # CALLING SEQUENCE
047555,000031: # L CALL
047556,000032: # L+1 RP-TO-R
047557,000033:
047558,000034: # SUBROUTINES USED
047559,000035: # EARTHMX, MOONMX, EARTHL
047560,000036:
047561,000037: # ITEMS AVAILABLE FROM LAUNCH DATA
047562,000038: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
047563,000039: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
047564,000040:
047565,000041: # ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
047566,000042:
047567,000043: # INPUT
047568,000044: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
047569,000045: # 0-5D = RP VECTOR
047570,000046: # 6-7D = TIME
047571,000047:
047572,000048: # OUTPUT
047573,000049: # MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047574,000050:
047575,000051: 26,2000 SETLOC PLANTIN1
047576,000052: 26,2000 BANK
047577,000053:
047578,000054: 26,3716 COUNT* $$/LUROT
047579,000055:
047580,000056: 26,3716 46020 RP-TO-R STQ BHIZ
047581,000057: 26,3717 00050 RPREXIT
047582,000058: 26,3720 55733 RPTORA
047583,000059: 26,3721 77624 CALL # COMPUTE M MATRIX FOR MOON
047584,000060: 26,3722 51730 MOONMX # LP=LM FOR MOON RADIANS B0
047585,000061: 26,3723 77775 VLOAD
047586,000062: 26,3724 02013 504LM
047587,000063: 26,3725 53235 RPTORB VXV VAD
047588,000064: 26,3726 00001 504RPR
047589,000065: 26,3727 00001 504RPR
047590,000066: 26,3730 52105 VXM GOTO
047591,000067: 26,3731 00025 MMATRIX # MPAC=R=MT(T)*(RP+LPXRP)
047592,000068: 26,3732 51716 RPRPXXXX # RESET PUSHLOC TO 0 BEFORE EXITING
047593,000069: 26,3733 77624 RPTORA CALL # EARTH COMPUTATIONS
047594,000070: 26,3734 55743 EARTHMX # M MATRIX B-1
047595,000071: 26,3735 77624 CALL
047596,000072: 26,3736 15761 EARTHL # L VECTOR RADIANS B0
047597,000073: 26,3737 76521 MXV VSL1 # LP=M(T)*L RAD B-0
047598,000074: 26,3740 00025 MMATRIX
|
|
Page 1135 |
047600,000076: 26,3741 77650 GOTO
047601,000077: 26,3742 55725 RPTORB
047602,000078: 24,2000 SETLOC PLANTIN
047603,000079: 24,2000 BANK
047604,000080: 24,3700 COUNT* $$/LUROT
047605,000081:
|
|
Page 1136 |
047607,000083: # ..... R-TO-RP SUBROUTINE .....
047608,000084: # SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
047609,000085: # (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
047610,000086: # RP = M(T) * (R - L X R)
047611,000087:
047612,000088: # CALLING SEQUENCE
047613,000089: # L CALL
047614,000090: # L+1 R-TO-RP
047615,000091:
047616,000092: # SUBROUTINES USED
047617,000093: # EARTHMX, MOONMX, EARTHL
047618,000094:
047619,000095: # INPUT
047620,000096: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
047621,000097: # 0-5D = R VECTOR
047622,000098: # 6-7D = TIME
047623,000099:
047624,000100: # ITEMS AVAILABLE FROM LAUNCH DATA
047625,000101: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
047626,000102: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
047627,000103:
047628,000104: # ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
047629,000105:
047630,000106: # OUTPUT
047631,000107: # MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047632,000108:
047633,000109: 24,3700 46020 R-TO-RP STQ BHIZ
047634,000110: 24,3701 00050 RPREXIT
047635,000111: 24,3702 51722 RTORPA
047636,000112: 24,3703 77624 CALL
047637,000113: 24,3704 51730 MOONMX
047638,000114: 24,3705 61375 VLOAD VXM
047639,000115: 24,3706 02013 504LM # LP=LM
047640,000116: 24,3707 00025 MMATRIX
047641,000117: 24,3710 77772 VSL1 # L = MT(T)*LP RADIANS B0
047642,000118: 24,3711 51235 RTORPB VXV BVSU
047643,000119: 24,3712 00001 504RPR
047644,000120: 24,3713 00001 504RPR
047645,000121: 24,3714 77721 MXV # M(T)*(R-LXR) B-2
047646,000122: 24,3715 00025 MMATRIX
047647,000123: 24,3716 40372 RPRPXXXX VSL1 SETPD
047648,000124: 24,3717 00001 0D
047649,000125: 24,3720 77650 GOTO
047650,000126: 24,3721 00050 RPREXIT
047651,000127: 24,3722 77624 RTORPA CALL # EARTH COMPUTATIONS
047652,000128: 24,3723 55743 EARTHMX
047653,000129: 24,3724 77624 CALL
047654,000130: 24,3725 15761 EARTHL
047655,000131: 24,3726 77650 GOTO # MPAC=L=(-AX,-AY,0) RAD B-0
047656,000132: 24,3727 51711 RTORPB
047657,000133:
|
|
Page 1137 |
047659,000135: # ..... MOONMX SUBROUTINE .....
047660,000136: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
047661,000137:
047662,000138: # CALLING SEQUENCE
047663,000139: # L CALL
047664,000140: # L+1 MOONMX
047665,000141:
047666,000142: # SUBROUTINES USED
047667,000143: # NEWANGLE
047668,000144:
047669,000145: # INPUT
047670,000146: # 6-7D = TIME
047671,000147:
047672,000148: # ITEMS AVAILABLE FROM LAUNCH DATA
047673,000149: # BSUBO, BDOT
047674,000150: # TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
047675,000151: # COSI = COS(I) B-1
047676,000152: # SINI = SIN(I) B-1
047677,000153: # I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
047678,000154: # PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
047679,000155:
047680,000156: # OUTPUT
047681,000157: # MMATRIX = 3X3 M MATRIX B-1 (STORED IN VAC AREA)
047682,000158:
047683,000159: 24,3730 40220 MOONMX STQ SETPD
047684,000160: 24,3731 00051 EARTHMXX
047685,000161: 24,3732 00011 8D
047686,000162: 24,3733 77770 AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE
047687,000163: 24,3734 00005 5
047688,000164: 24,3735 65345 DLOAD PDDL # PD 10D 8-9D=BSUBO
047689,000165: 24,3736 14017 BSUBO # 10-11D=BDOT
047690,000166: 24,3737 14011 BDOT
047691,000167: 24,3740 45006 PUSH CALL # PD 12D
047692,000168: 24,3741 53732 NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0
047693,000169: 24,3742 71406 PUSH COS # PD 10D
047694,000170: 24,3743 14041 STODL COB # PD 8D COS(B) B-1
047695,000171: 24,3744 77756 SIN # SIN(B) B-1
047696,000172: 24,3745 14043 STODL SOB # SETUP INPUT FOR NEWANGLE
047697,000173: 24,3746 14015 FSUBO # 8-9D=FSUBO
047698,000174: 24,3747 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT
047699,000175: 24,3750 14007 FDOT
047700,000176: 24,3751 45170 AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE
047701,000177: 24,3752 00004 4
047702,000178: 24,3753 53732 NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
047703,000179: 24,3754 14027 STODL AVECTR +2 # SAVE F TEMP
047704,000180: 24,3755 14013 NODIO # 8-9D=NODIO
047705,000181: 24,3756 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
047706,000182: 24,3757 14005 NODDOT # MPAC=T
047707,000183: 24,3760 45170 AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
047708,000184: 24,3761 00005 5
047709,000185: 24,3762 53732 NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
|
|
Page 1138 |
047711,000187: 24,3763 71406 PUSH COS # PD 10D 8-9D= NODI REVS B0
047712,000188: 24,3764 77606 PUSH # PD 12D 10-11D= COS(NODI) B-1
047713,000189: 24,3765 00025 STORE AVECTR
047714,000190: 24,3766 76405 DMP SL1R
047715,000191: 24,3767 00041 COB # COS(NODI) B-1
047716,000192: 24,3770 14035 STODL BVECTR +2 # PD 10D 20-25D=AVECTR=COB*SIN(NODI)
047717,000193: 24,3771 76405 DMP SL1R # SOB*SIN(NODI)
047718,000194: 24,3772 00043 SOB
047719,000195: 24,3773 14037 STODL BVECTR +4 # PD 8D
047720,000196: 24,3774 41556 SIN PUSH # PD 10D -SIN(NODI) B-1
047721,000197: 24,3775 52076 DCOMP GOTO # 26-31D=BVECTR=COV*COS(NODI)
047722,000198: 24,3776 53653 MOONMXA
047723,000199:
047724,000200: 25,3653 BANK 25
047725,000201: 25,2000 SETLOC PLANTIN3
047726,000202: 25,2000 BANK
047727,000203: 25,3653 COUNT* $$/LUROT
047728,000204:
047729,000205: 25,3653 14033 MOONMXA STODL BVECTR # PD 8D SOB*COS(NODI)
047730,000206: 25,3654 00027 AVECTR +2 # MOVE F FROM TEMP LOC. TO 504F
047731,000207: 25,3655 14007 STODL 504F
047732,000208: 25,3656 76405 DMP SL1R
047733,000209: 25,3657 00041 COB
047734,000210: 25,3660 14027 STODL AVECTR +2
047735,000211: 25,3661 00011 SINNODI # 8-9D=SIN(NODI) B-1
047736,000212: 25,3662 76405 DMP SL1R
047737,000213: 25,3663 00043 SOB
047738,000214: 25,3664 14031 STODL AVECTR +4 # 0
047739,000215: 25,3665 06524 HI6ZEROS # 8-13D= CVECTR= -SOB B-1
047740,000216: 25,3666 57525 PDDL DCOMP # PD 10D COB
047741,000217: 25,3667 00043 SOB
047742,000218: 25,3670 63325 PDDL PDVL # PD 12D THEN PD 14D
047743,000219: 25,3671 00041 COB
047744,000220: 25,3672 00033 BVECTR
047745,000221: 25,3673 63361 VXSC PDVL # PD 20D BVECTR*SINI B-2
047746,000222: 25,3674 14003 SINI
047747,000223: 25,3675 00011 CVECTR
047748,000224: 25,3676 53361 VXSC VAD # PD 14D CVECTR*COSI B-2
047749,000225: 25,3677 14001 COSI
047750,000226: 25,3700 77772 VSL1
047751,000227: 25,3701 24041 STOVL MMATRIX +12D # PD 8D M2=BVECTR*SINI+CVECTR*COSI B-1
047752,000228: 25,3702 63361 VXSC PDVL # PD 14D
047753,000229: 25,3703 14003 SINI # CVECTR*SINI B-2
047754,000230: 25,3704 00033 BVECTR
047755,000231: 25,3705 52361 VXSC VSU # PD 8D BVECTR*COSI B-2
047756,000232: 25,3706 14001 COSI
047757,000233: 25,3707 65372 VSL1 PDDL # PD 14D
047758,000234: 25,3710 00007 504F # 8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
047759,000235: 25,3711 74346 COS VXSC
047760,000236: 25,3712 00011 DVECTR
047761,000237: 25,3713 73525 PDDL SIN # PD 20D 14-19D= DVECTR*COSF B-2
|
|
Page 1139 |
047763,000239: 25,3714 00007 504F
047764,000240: 25,3715 52361 VXSC VSU # PD 14D AVECTR*SINF B-2
047765,000241: 25,3716 00025 AVECTR
047766,000242: 25,3717 77772 VSL1
047767,000243: 25,3720 14033 STODL MMATRIX +6 # M1= AVECTR*SINF-DVECTR*COSF B-1
047768,000244: 25,3721 00007 504F
047769,000245: 25,3722 74356 SIN VXSC # PD 8D
047770,000246: 25,3723 71525 PDDL COS # PD 14D 8-13D=DVECTR*SINF B-2
047771,000247: 25,3724 00007 504F
047772,000248: 25,3725 53361 VXSC VAD # PD 8D AVECTR*COSF B-2
047773,000249: 25,3726 00025 AVECTR
047774,000250: 25,3727 57572 VSL1 VCOMP
047775,000251: 25,3730 34025 STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
047776,000252: 25,3731 00051 EARTHMXX
047777,000253:
047778,000254: # COMPUTE X=X0+(XDOT)(T+T0)
047779,000255: # 8-9D= XO (REVS B-0), PUSHLOC SET AT 12D
047780,000256: # 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
047781,000257: # AND B+27 FOR FDOT
047782,000258: # X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH,5 FOR NODDOT AND
047783,000259: # BDOT AND 4 FOR FDOT
047784,000260: # 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
047785,000261:
047786,000262: 25,3732 54345 NEWANGLE DLOAD SR # ENTER PD 12D
047787,000263: 25,3733 00007 6D
047788,000264: 25,3734 20617 14D
047789,000265: 25,3735 72371 TAD TLOAD # CHANGE MODE TO TP
047790,000266: 25,3736 01707 TIMSUBO
047791,000267: 25,3737 00155 MPAC
047792,000268: 25,3740 14017 STODL TIMSUBM # T+T0 CSEC B-42
047793,000269: 25,3741 00020 TIMSUBM +1
047794,000270: 25,3742 77605 DMP # PD 10D MULT BY XDOT IN 10-11D
047795,000271: 25,3743 43257 SL* DAD # PD 8D ADD XO IN 8-9D AFTER SHIFTING
047796,000272: 25,3744 20206 5,1 # SUCH THAT SCALING IS B-0
047797,000273: 25,3745 67206 PUSH SLOAD # PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
047798,000274: 25,3746 00017 TIMSUBM
047799,000275: 25,3747 41261 SL DMP
047800,000276: 25,3750 20212 9D
047801,000277: 25,3751 00013 10D # XDOT
047802,000278: 25,3752 43257 SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X
047803,000279: 25,3753 20213 10D,1 # IS SCALED REVS/CSEC B-0
047804,000280: 25,3754 77600 BOV # TURN OFF OVERFLOW IF SET BY SHIFT
047805,000281: 25,3755 53756 +1 # INSTRUCTION BEFORE EXITING
047806,000282: 25,3756 77616 RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0
047807,000283:
|
|
Page 1140 |
047809,000285: # ..... EARTHMX SUBROUTINE .....
047810,000286: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
047811,000287:
047812,000288: # CALLING SEQUENCE
047813,000289: # L CALL
047814,000290: # L+1 EARTHMX
047815,000291:
047816,000292: # SUBROUTINES USED
047817,000293: # NEWANGLE
047818,000294:
047819,000295: # INPUT
047820,000296: # INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0
047821,000297: # TEPHEM CSEC B-42
047822,000298: # 6-7D= TIME CSEC B-28
047823,000299:
047824,000300: # OUTPUT
047825,000301: # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
047826,000302:
047827,000303: 26,3743 BANK 26
047828,000304: 26,2000 SETLOC PLANTIN1
047829,000305: 26,2000 BANK
047830,000306: 26,3743 COUNT* $$/LUROT
047831,000307:
047832,000308: 26,3743 40220 EARTHMX STQ SETPD # SET 8-9D=AZO
047833,000309: 26,3744 00051 EARTHMXX
047834,000310: 26,3745 00011 8D # 10-11D=WEARTH
047835,000311: 26,3746 77770 AXT,1 # FOR SL 5, AND SL 10 IN NEWANGLE
047836,000312: 26,3747 00000 0
047837,000313: 26,3750 65345 DLOAD PDDL # LEAVING PD SET AT 12D FOR NEWANGLE
047838,000314: 26,3751 01712 AZO
047839,000315: 26,3752 14021 WEARTH
047840,000316: 26,3753 45006 PUSH CALL
047841,000317: 26,3754 53732 NEWANGLE
047842,000318: 26,3755 41401 SETPD PUSH # 18-19D=504AZ
047843,000319: 26,3756 00023 18D # COS(AZ) SIN(AZ) 0
047844,000320: 26,3757 65346 COS PDDL # 20-37D= MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
047845,000321: 26,3760 00023 504AZ # 0 0 1
047846,000322: 26,3761 65356 SIN PDDL
047847,000323: 26,3762 06524 HI6ZEROS
047848,000324: 26,3763 73525 PDDL SIN
047849,000325: 26,3764 00023 504AZ
047850,000326: 26,3765 65276 DCOMP PDDL
047851,000327: 26,3766 00023 504AZ
047852,000328: 26,3767 63346 COS PDVL
047853,000329: 26,3770 06524 HI6ZEROS
047854,000330: 26,3771 41525 PDDL PUSH
047855,000331: 26,3772 06522 HIDPHALF
047856,000332: 26,3773 77650 GOTO
047857,000333: 26,3774 00051 EARTHMXX
047858,000334:
|
|
Page 1141 |
047860,000336: # ..... EARTHL SUBROUTINE .....
047861,000337: # SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
047862,000338:
047863,000339: # CALLING SEQUENCE
047864,000340: # L CALL
047865,000341: # L+1 EARTHL
047866,000342:
047867,000343: # INPUT
047868,000344: # AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
047869,000345:
047870,000346: # OUTPUT
047871,000347: # -AX
047872,000348: # MPAC= -AY RADIANS B-0
047873,000349: # 0
047874,000350:
047875,000351: 06,3761 BANK 06
047876,000352: 06,2000 SETLOC EARTHLOC
047877,000353: 06,2000 BANK
047878,000354: 06,3761 COUNT* $$/LUROT
047879,000355:
047880,000356: 06,3761 57545 EARTHL DLOAD DCOMP
047881,000357: 06,3762 01716 AXO
047882,000358: 06,3763 14017 STODL 504LPL
047883,000359: 06,3764 01714 -AYO
047884,000360: 06,3765 14021 STODL 504LPL +2
047885,000361: 06,3766 24007 LO6ZEROS
047886,000362: 06,3767 24023 STOVL 504LPL +4
047887,000363: 06,3770 00017 504LPL
047888,000364: 06,3771 77616 RVQ
047889,000365:
|
|
Page 1142 |
047891,000367: # CONSTANTS AND ERASABLE ASSIGNMENTS
047892,000368:
047893,000369: 06,3772 12,2004 1B1 = DP1/2 # 1 SCALED B-1
047894,000370: 06,3772 0000050 RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
047895,000371: 06,3772 0000051 EARTHMXX = S2 # EARTHMX, MOONMX SUBR. EXITS
047896,000372: 06,3772 504RPR = 0D # 6 REGS R OR RP VECTOR
047897,000373: 06,3772 SINNODI = 8D # 2 SIN(NODI)
047898,000374: 06,3772 DVECTR = 8D # 6 D VECTOR MOON
047899,000375: 06,3772 CVECTR = 8D # 6 C VECTR MOON
047900,000376: 06,3772 504AZ = 18D # 2 AZ
047901,000377: 06,3772 TIMSUBM = 14D # 3 TIME SUB M (MOON) T+T0 IN GETAZ
047902,000378: 06,3772 504LPL = 14D # 6 L OR LP VECTOR
047903,000379: 06,3772 AVECTR = 20D # 6 A VECTOR (MOON)
047904,000380: 06,3772 BVECTR = 26D # 6 B VECTOR (MOON)
047905,000381: 06,3772 MMATRIX = 20D # 18 M MATRIX
047906,000382: 06,3772 COB = 32D # 2 COS(B) B-1
047907,000383: 06,3772 SOB = 34D # 2 SIN(B) B-1
047908,000384: 06,3772 504F = 6D # 2 F(MOON)
047909,000385:
End of include-file PLANETARY_INERTIAL_ORIENTATION.agc. Parent file is MAIN.agc