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, 1969
Note 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.

047501,000002:                                                                                                  ## Copyright:   Public domain.
047502,000003:                                                                                                  ## Filename:    PLANETARY_INERTIAL_ORIENTATION.agc
047503,000004:                                                                                                  ## Purpose:     A section of Luminary 1C, revision 131.
047504,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
047505,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13.
047506,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
047507,000008:                                                                                                  ##              that the code format has been changed to conform to the
047508,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
047509,000010:                                                                                                  ##              original YUL assembler.
047510,000011:                                                                                                  ## Reference:   pp. 1134-1142
047511,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
047512,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
047513,000014:                                                                                                  ## Mod history: 06/01/03 RSB.   Began transcribing.
047514,000015:                                                                                                  ##              05/14/05 RSB    Corrected website reference above.
047515,000016:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
047516,000017:                                                                                                  ##                              original hardcopy, as opposed to the PDF page
047517,000018:                                                                                                  ##                              numbers in 1701.pdf.
047518,000019:                                                                                                  ##              2017-02-27 RSB  Proofed comment text using octopus/ProoferComments.
047519,000020:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes noted in proofing Luminary 116.
047520,000021:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
047521,000022:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
047522,000023: 

Page 1134

047524,000025:                                                                                                  #  ..... RP-TO-R SUBROUTINE .....
047525,000026:                                                                                                  #  SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
047526,000027:                                                                                                  #  EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
047527,000028:                                                                                                  #        R = MT(T) * (RP + LP X RP)      MT = M MATRIX TRANSPOSE
047528,000029: 
047529,000030:                                                                                                  #  CALLING SEQUENCE
047530,000031:                                                                                                  #        L       CALL
047531,000032:                                                                                                  #        L+1             RP-TO-R
047532,000033: 
047533,000034:                                                                                                  #  SUBROUTINES USED
047534,000035:                                                                                                  #        EARTHMX, MOONMX, EARTHL
047535,000036: 
047536,000037:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
047537,000038:                                                                                                  #                504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
047538,000039:                                                                                                  #                IN THE MOON-FIXED COORD. SYSTEM         RADIANS B0
047539,000040: 
047540,000041:                                                                                                  #        ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
047541,000042: 
047542,000043:                                                                                                  #  INPUT
047543,000044:                                                                                                  #        MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
047544,000045:                                                                                                  #        0-5D = RP VECTOR
047545,000046:                                                                                                  #        6-7D = TIME
047546,000047: 
047547,000048:                                                                                                  #  OUTPUT
047548,000049:                                                                                                  #        MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047549,000050: 
047550,000051: 26,2000                                           SETLOC   PLANTIN1                              
047551,000052: 26,2000                                           BANK                                           
047552,000053: 
047553,000054: 26,3716                                           COUNT*   $$/LUROT                              
047554,000055: 
047555,000056: 26,3716           46020        RP-TO-R            STQ      BHIZ                                  
047556,000057: 26,3717           00050                                    RPREXIT                               
047557,000058: 26,3720           55733                                    RPTORA                                
047558,000059: 26,3721           77624                           CALL                                           #  COMPUTE M MATRIX FOR MOON
047559,000060: 26,3722           51730                                    MOONMX                                #  LP=LM FOR MOON        RADIANS B0
047560,000061: 26,3723           77775                           VLOAD                                          
047561,000062: 26,3724           02013                                    504LM                                 
047562,000063: 26,3725           53235        RPTORB             VXV      VAD                                   
047563,000064: 26,3726           00001                                    504RPR                                
047564,000065: 26,3727           00001                                    504RPR                                
047565,000066: 26,3730           52105                           VXM      GOTO                                  
047566,000067: 26,3731           00025                                    MMATRIX                               #  MPAC=R=MT(T)*(RP+LPXRP)
047567,000068: 26,3732           51716                                    RPRPXXXX                              #  RESET PUSHLOC TO 0 BEFORE EXITING
047568,000069: 26,3733           77624        RPTORA             CALL                                           #  EARTH COMPUTATIONS
047569,000070: 26,3734           55743                                    EARTHMX                               #  M MATRIX B-1
047570,000071: 26,3735           77624                           CALL                                           
047571,000072: 26,3736           15761                                    EARTHL                                #  L VECTOR RADIANS B0
047572,000073: 26,3737           76521                           MXV      VSL1                                  #  LP=M(T)*L     RAD B-0
047573,000074: 26,3740           00025                                    MMATRIX                               

Page 1135

047575,000076: 26,3741           77650                           GOTO                                           
047576,000077: 26,3742           55725                                    RPTORB                                
047577,000078: 24,2000                                           SETLOC   PLANTIN                               
047578,000079: 24,2000                                           BANK                                           
047579,000080: 24,3700                                           COUNT*   $$/LUROT                              
047580,000081: 

Page 1136

047582,000083:                                                                                                  #  ..... R-TO-RP SUBROUTINE .....
047583,000084:                                                                                                  #  SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
047584,000085:                                                                                                  #  (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
047585,000086:                                                                                                  #        RP = M(T) * (R - L X R)
047586,000087: 
047587,000088:                                                                                                  #  CALLING SEQUENCE
047588,000089:                                                                                                  #        L       CALL
047589,000090:                                                                                                  #        L+1             R-TO-RP
047590,000091: 
047591,000092:                                                                                                  #  SUBROUTINES USED
047592,000093:                                                                                                  #        EARTHMX, MOONMX, EARTHL
047593,000094: 
047594,000095:                                                                                                  #  INPUT
047595,000096:                                                                                                  #        MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
047596,000097:                                                                                                  #        0-5D = R VECTOR
047597,000098:                                                                                                  #        6-7D = TIME
047598,000099: 
047599,000100:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
047600,000101:                                                                                                  #                504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
047601,000102:                                                                                                  #                IN THE MOON-FIXED COORD. SYSTEM                 RADIANS B0
047602,000103: 
047603,000104:                                                                                                  #        ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
047604,000105: 
047605,000106:                                                                                                  #  OUTPUT
047606,000107:                                                                                                  #        MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047607,000108: 
047608,000109: 24,3700           46020        R-TO-RP            STQ      BHIZ                                  
047609,000110: 24,3701           00050                                    RPREXIT                               
047610,000111: 24,3702           51722                                    RTORPA                                
047611,000112: 24,3703           77624                           CALL                                           
047612,000113: 24,3704           51730                                    MOONMX                                
047613,000114: 24,3705           61375                           VLOAD    VXM                                   
047614,000115: 24,3706           02013                                    504LM                                 #  LP=LM
047615,000116: 24,3707           00025                                    MMATRIX                               
047616,000117: 24,3710           77772                           VSL1                                           #  L = MT(T)*LP          RADIANS B0
047617,000118: 24,3711           51235        RTORPB             VXV      BVSU                                  
047618,000119: 24,3712           00001                                    504RPR                                
047619,000120: 24,3713           00001                                    504RPR                                
047620,000121: 24,3714           77721                           MXV                                            #  M(T)*(R-LXR)          B-2
047621,000122: 24,3715           00025                                    MMATRIX                               
047622,000123: 24,3716           40372        RPRPXXXX           VSL1     SETPD                                 
047623,000124: 24,3717           00001                                    0D                                    
047624,000125: 24,3720           77650                           GOTO                                           
047625,000126: 24,3721           00050                                    RPREXIT                               
047626,000127: 24,3722           77624        RTORPA             CALL                                           #  EARTH COMPUTATIONS
047627,000128: 24,3723           55743                                    EARTHMX                               
047628,000129: 24,3724           77624                           CALL                                           
047629,000130: 24,3725           15761                                    EARTHL                                
047630,000131: 24,3726           77650                           GOTO                                           #  MPAC=L=(-AX,-AY,0)    RAD B-0
047631,000132: 24,3727           51711                                    RTORPB                                
047632,000133: 

Page 1137

047634,000135:                                                                                                  #  ..... MOONMX SUBROUTINE .....
047635,000136:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
047636,000137: 
047637,000138:                                                                                                  #  CALLING SEQUENCE
047638,000139:                                                                                                  #        L       CALL
047639,000140:                                                                                                  #        L+1             MOONMX
047640,000141: 
047641,000142:                                                                                                  #  SUBROUTINES USED
047642,000143:                                                                                                  #        NEWANGLE
047643,000144: 
047644,000145:                                                                                                  #  INPUT
047645,000146:                                                                                                  #        6-7D = TIME
047646,000147: 
047647,000148:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
047648,000149:                                                                                                  #                BSUBO, BDOT
047649,000150:                                                                                                  #                TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
047650,000151:                                                                                                  #                COSI = COS(I)   B-1
047651,000152:                                                                                                  #                SINI = SIN(I)   B-1
047652,000153:                                                                                                  #                I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
047653,000154:                                                                                                  #                PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
047654,000155: 
047655,000156:                                                                                                  #  OUTPUT
047656,000157:                                                                                                  #        MMATRIX = 3X3 M MATRIX          B-1 (STORED IN VAC AREA)
047657,000158: 
047658,000159: 24,3730           40220        MOONMX             STQ      SETPD                                 
047659,000160: 24,3731           00051                                    EARTHMXX                              
047660,000161: 24,3732           00011                                    8D                                    
047661,000162: 24,3733           77770                           AXT,1                                          #  B REQUIRES SL 0, SL 5 IN NEWANGLE
047662,000163: 24,3734           00005                                    5                                     
047663,000164: 24,3735           65345                           DLOAD    PDDL                                  #  PD 10D        8-9D=BSUBO
047664,000165: 24,3736           14017                                    BSUBO                                 #                10-11D=BDOT
047665,000166: 24,3737           14011                                    BDOT                                  
047666,000167: 24,3740           45006                           PUSH     CALL                                  #  PD 12D
047667,000168: 24,3741           53732                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= B   REVS B0
047668,000169: 24,3742           71406                           PUSH     COS                                   #  PD 10D
047669,000170: 24,3743           14041                           STODL    COB                                   #  PD 8D         COS(B) B-1
047670,000171: 24,3744           77756                           SIN                                            #                SIN(B) B-1
047671,000172: 24,3745           14043                           STODL    SOB                                   #  SETUP INPUT FOR NEWANGLE
047672,000173: 24,3746           14015                                    FSUBO                                 #                        8-9D=FSUBO
047673,000174: 24,3747           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D       10-11D=FDOT
047674,000175: 24,3750           14007                                    FDOT                                  
047675,000176: 24,3751           45170                           AXT,1    CALL                                  #  F REQUIRES SL 1, SL 6 IN NEWANGLE
047676,000177: 24,3752           00004                                    4                                     
047677,000178: 24,3753           53732                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= F REVS B0
047678,000179: 24,3754           14027                           STODL    AVECTR     +2                         #  SAVE F TEMP
047679,000180: 24,3755           14013                                    NODIO                                 #                        8-9D=NODIO
047680,000181: 24,3756           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D       10-11D=NODDOT
047681,000182: 24,3757           14005                                    NODDOT                                #                        MPAC=T
047682,000183: 24,3760           45170                           AXT,1    CALL                                  #  NODE REQUIRES SL 0, SL 5 IN NEWANGLE
047683,000184: 24,3761           00005                                    5                                     
047684,000185: 24,3762           53732                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= NODI REVS B0

Page 1138

047686,000187: 24,3763           71406                           PUSH     COS                                   #  PD 10D        8-9D= NODI REVS B0
047687,000188: 24,3764           77606                           PUSH                                           #  PD 12D        10-11D= COS(NODI) B-1
047688,000189: 24,3765           00025                           STORE    AVECTR                                
047689,000190: 24,3766           76405                           DMP      SL1R                                  
047690,000191: 24,3767           00041                                    COB                                   #                        COS(NODI) B-1
047691,000192: 24,3770           14035                           STODL    BVECTR     +2                         #  PD 10D  20-25D=AVECTR=COB*SIN(NODI)
047692,000193: 24,3771           76405                           DMP      SL1R                                  #                        SOB*SIN(NODI)
047693,000194: 24,3772           00043                                    SOB                                   
047694,000195: 24,3773           14037                           STODL    BVECTR     +4                         #  PD 8D
047695,000196: 24,3774           41556                           SIN      PUSH                                  #  PD 10D                -SIN(NODI) B-1
047696,000197: 24,3775           52076                           DCOMP    GOTO                                  #          26-31D=BVECTR=COV*COS(NODI)
047697,000198: 24,3776           53653                                    MOONMXA                               
047698,000199: 
047699,000200: 25,3653                                           BANK     25                                    
047700,000201: 25,2000                                           SETLOC   PLANTIN3                              
047701,000202: 25,2000                                           BANK                                           
047702,000203: 25,3653                                           COUNT*   $$/LUROT                              
047703,000204: 
047704,000205: 25,3653           14033        MOONMXA            STODL    BVECTR                                #  PD 8D                 SOB*COS(NODI)
047705,000206: 25,3654           00027                                    AVECTR     +2                         #  MOVE F FROM TEMP LOC. TO 504F
047706,000207: 25,3655           14007                           STODL    504F                                  
047707,000208: 25,3656           76405                           DMP      SL1R                                  
047708,000209: 25,3657           00041                                    COB                                   
047709,000210: 25,3660           14027                           STODL    AVECTR     +2                         
047710,000211: 25,3661           00011                                    SINNODI                               #  8-9D=SIN(NODI) B-1
047711,000212: 25,3662           76405                           DMP      SL1R                                  
047712,000213: 25,3663           00043                                    SOB                                   
047713,000214: 25,3664           14031                           STODL    AVECTR     +4                         #                        0
047714,000215: 25,3665           06524                                    HI6ZEROS                              #        8-13D= CVECTR=  -SOB B-1
047715,000216: 25,3666           57525                           PDDL     DCOMP                                 #  PD 10D                COB
047716,000217: 25,3667           00043                                    SOB                                   
047717,000218: 25,3670           63325                           PDDL     PDVL                                  #  PD 12D THEN PD 14D
047718,000219: 25,3671           00041                                    COB                                   
047719,000220: 25,3672           00033                                    BVECTR                                
047720,000221: 25,3673           63361                           VXSC     PDVL                                  #  PD 20D        BVECTR*SINI B-2
047721,000222: 25,3674           14003                                    SINI                                  
047722,000223: 25,3675           00011                                    CVECTR                                
047723,000224: 25,3676           53361                           VXSC     VAD                                   #  PD 14D        CVECTR*COSI B-2
047724,000225: 25,3677           14001                                    COSI                                  
047725,000226: 25,3700           77772                           VSL1                                           
047726,000227: 25,3701           24041                           STOVL    MMATRIX    +12D                       #  PD 8D  M2=BVECTR*SINI+CVECTR*COSI B-1
047727,000228: 25,3702           63361                           VXSC     PDVL                                  #  PD 14D
047728,000229: 25,3703           14003                                    SINI                                  #                CVECTR*SINI B-2
047729,000230: 25,3704           00033                                    BVECTR                                
047730,000231: 25,3705           52361                           VXSC     VSU                                   #  PD 8D         BVECTR*COSI B-2
047731,000232: 25,3706           14001                                    COSI                                  
047732,000233: 25,3707           65372                           VSL1     PDDL                                  #  PD 14D
047733,000234: 25,3710           00007                                    504F                                  #  8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
047734,000235: 25,3711           74346                           COS      VXSC                                  
047735,000236: 25,3712           00011                                    DVECTR                                
047736,000237: 25,3713           73525                           PDDL     SIN                                   #  PD 20D  14-19D= DVECTR*COSF B-2

Page 1139

047738,000239: 25,3714           00007                                    504F                                  
047739,000240: 25,3715           52361                           VXSC     VSU                                   #  PD 14D        AVECTR*SINF B-2
047740,000241: 25,3716           00025                                    AVECTR                                
047741,000242: 25,3717           77772                           VSL1                                           
047742,000243: 25,3720           14033                           STODL    MMATRIX    +6                         #  M1= AVECTR*SINF-DVECTR*COSF B-1
047743,000244: 25,3721           00007                                    504F                                  
047744,000245: 25,3722           74356                           SIN      VXSC                                  #  PD 8D
047745,000246: 25,3723           71525                           PDDL     COS                                   #  PD 14D  8-13D=DVECTR*SINF B-2
047746,000247: 25,3724           00007                                    504F                                  
047747,000248: 25,3725           53361                           VXSC     VAD                                   #  PD 8D         AVECTR*COSF B-2
047748,000249: 25,3726           00025                                    AVECTR                                
047749,000250: 25,3727           57572                           VSL1     VCOMP                                 
047750,000251: 25,3730           34025                           STCALL   MMATRIX                               #  M0= -(AVECTR*COSF+DVECTR*SINF) B-1
047751,000252: 25,3731           00051                                    EARTHMXX                              
047752,000253: 
047753,000254:                                                                                                  #  COMPUTE X=X0+(XDOT)(T+T0)
047754,000255:                                                                                                  #  8-9D= XO (REVS B-0), PUSHLOC SET AT 12D
047755,000256:                                                                                                  #  10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
047756,000257:                                                                                                  #                        AND B+27 FOR FDOT
047757,000258:                                                                                                  #  X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH,5 FOR NODDOT AND
047758,000259:                                                                                                  #                                        BDOT AND 4 FOR FDOT
047759,000260:                                                                                                  #  6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
047760,000261: 
047761,000262: 25,3732           54345        NEWANGLE           DLOAD    SR                                    #  ENTER PD 12D
047762,000263: 25,3733           00007                                    6D                                    
047763,000264: 25,3734           20617                                    14D                                   
047764,000265: 25,3735           72371                           TAD      TLOAD                                 #  CHANGE MODE TO TP
047765,000266: 25,3736           01707                                    TIMSUBO                               
047766,000267: 25,3737           00155                                    MPAC                                  
047767,000268: 25,3740           14017                           STODL    TIMSUBM                               #  T+T0 CSEC B-42
047768,000269: 25,3741           00020                                    TIMSUBM    +1                         
047769,000270: 25,3742           77605                           DMP                                            #  PD 10D        MULT BY XDOT IN 10-11D
047770,000271: 25,3743           43257                           SL*      DAD                                   #  PD 8D         ADD XO IN 8-9D AFTER SHIFTING
047771,000272: 25,3744           20206                                    5,1                                   #                SUCH THAT SCALING IS B-0
047772,000273: 25,3745           67206                           PUSH     SLOAD                                 #  PD 10D  SAVE PARTIAL (X0+XDOT*T) IN 8-9D
047773,000274: 25,3746           00017                                    TIMSUBM                               
047774,000275: 25,3747           41261                           SL       DMP                                   
047775,000276: 25,3750           20212                                    9D                                    
047776,000277: 25,3751           00013                                    10D                                   #  XDOT
047777,000278: 25,3752           43257                           SL*      DAD                                   #  PD 8D         SHIFT SUCH THAT THIS PART OF X
047778,000279: 25,3753           20213                                    10D,1                                 #                IS SCALED REVS/CSEC B-0
047779,000280: 25,3754           77600                           BOV                                            #  TURN OFF OVERFLOW IF SET BY SHIFT
047780,000281: 25,3755           53756                                    +1                                    #  INSTRUCTION BEFORE EXITING
047781,000282: 25,3756           77616                           RVQ                                            #  MPAC=X= X0+(XDOT)(T+T0)       REVS B0
047782,000283: 

Page 1140

047784,000285:                                                                                                  #  ..... EARTHMX SUBROUTINE .....
047785,000286:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
047786,000287: 
047787,000288:                                                                                                  #  CALLING SEQUENCE
047788,000289:                                                                                                  #        L       CALL
047789,000290:                                                                                                  #        L+1             EARTHMX
047790,000291: 
047791,000292:                                                                                                  #  SUBROUTINES USED
047792,000293:                                                                                                  #        NEWANGLE
047793,000294: 
047794,000295:                                                                                                  #  INPUT
047795,000296:                                                                                                  #        INPUT AVAILABLE FROM LAUNCH DATA        AZO REVS B-0
047796,000297:                                                                                                  #                                                TEPHEM CSEC B-42
047797,000298:                                                                                                  #        6-7D= TIME CSEC B-28
047798,000299: 
047799,000300:                                                                                                  #  OUTPUT
047800,000301:                                                                                                  #        MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
047801,000302: 
047802,000303: 26,3743                                           BANK     26                                    
047803,000304: 26,2000                                           SETLOC   PLANTIN1                              
047804,000305: 26,2000                                           BANK                                           
047805,000306: 26,3743                                           COUNT*   $$/LUROT                              
047806,000307: 
047807,000308: 26,3743           40220        EARTHMX            STQ      SETPD                                 #  SET 8-9D=AZO
047808,000309: 26,3744           00051                                    EARTHMXX                              
047809,000310: 26,3745           00011                                    8D                                    #  10-11D=WEARTH
047810,000311: 26,3746           77770                           AXT,1                                          #  FOR SL 5, AND SL 10 IN NEWANGLE
047811,000312: 26,3747           00000                                    0                                     
047812,000313: 26,3750           65345                           DLOAD    PDDL                                  #  LEAVING PD SET AT 12D FOR NEWANGLE
047813,000314: 26,3751           01712                                    AZO                                   
047814,000315: 26,3752           14021                                    WEARTH                                
047815,000316: 26,3753           45006                           PUSH     CALL                                  
047816,000317: 26,3754           53732                                    NEWANGLE                              
047817,000318: 26,3755           41401                           SETPD    PUSH                                  #  18-19D=504AZ
047818,000319: 26,3756           00023                                    18D                                   #                         COS(AZ)   SIN(AZ)     0
047819,000320: 26,3757           65346                           COS      PDDL                                  #  20-37D=  MMATRIX=     -SIN(AZ)   COS(AZ)     0    B-1
047820,000321: 26,3760           00023                                    504AZ                                 #                            0         0        1
047821,000322: 26,3761           65356                           SIN      PDDL                                  
047822,000323: 26,3762           06524                                    HI6ZEROS                              
047823,000324: 26,3763           73525                           PDDL     SIN                                   
047824,000325: 26,3764           00023                                    504AZ                                 
047825,000326: 26,3765           65276                           DCOMP    PDDL                                  
047826,000327: 26,3766           00023                                    504AZ                                 
047827,000328: 26,3767           63346                           COS      PDVL                                  
047828,000329: 26,3770           06524                                    HI6ZEROS                              
047829,000330: 26,3771           41525                           PDDL     PUSH                                  
047830,000331: 26,3772           06522                                    HIDPHALF                              
047831,000332: 26,3773           77650                           GOTO                                           
047832,000333: 26,3774           00051                                    EARTHMXX                              
047833,000334: 

Page 1141

047835,000336:                                                                                                  #  ..... EARTHL SUBROUTINE .....
047836,000337:                                                                                                  #  SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
047837,000338: 
047838,000339:                                                                                                  #  CALLING SEQUENCE
047839,000340:                                                                                                  #        L       CALL
047840,000341:                                                                                                  #        L+1             EARTHL
047841,000342: 
047842,000343:                                                                                                  #  INPUT
047843,000344:                                                                                                  #        AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
047844,000345: 
047845,000346:                                                                                                  #  OUTPUT
047846,000347:                                                                                                  #                -AX
047847,000348:                                                                                                  #        MPAC=   -AY     RADIANS B-0
047848,000349:                                                                                                  #                  0
047849,000350: 
047850,000351: 06,3761                                           BANK     06                                    
047851,000352: 06,2000                                           SETLOC   EARTHLOC                              
047852,000353: 06,2000                                           BANK                                           
047853,000354: 06,3761                                           COUNT*   $$/LUROT                              
047854,000355: 
047855,000356: 06,3761           57545        EARTHL             DLOAD    DCOMP                                 
047856,000357: 06,3762           01716                                    AXO                                   
047857,000358: 06,3763           14017                           STODL    504LPL                                
047858,000359: 06,3764           01714                                    -AYO                                  
047859,000360: 06,3765           14021                           STODL    504LPL     +2                         
047860,000361: 06,3766           24007                                    LO6ZEROS                              
047861,000362: 06,3767           24023                           STOVL    504LPL     +4                         
047862,000363: 06,3770           00017                                    504LPL                                
047863,000364: 06,3771           77616                           RVQ                                            
047864,000365: 

Page 1142

047866,000367:                                                                                                  #  CONSTANTS AND ERASABLE ASSIGNMENTS
047867,000368: 
047868,000369: 06,3772  12,2004               1B1                =        DP1/2                                 #  1 SCALED B-1
047869,000370: 06,3772  0000050               RPREXIT            =        S1                                    #  R-TO-RP AND RP-TO-R SUBR EXIT
047870,000371: 06,3772  0000051               EARTHMXX           =        S2                                    #  EARTHMX, MOONMX SUBR. EXITS
047871,000372: 06,3772                        504RPR             =        0D                                    #  6 REGS        R OR RP VECTOR
047872,000373: 06,3772                        SINNODI            =        8D                                    #  2             SIN(NODI)
047873,000374: 06,3772                        DVECTR             =        8D                                    #  6             D VECTOR MOON
047874,000375: 06,3772                        CVECTR             =        8D                                    #  6             C VECTR MOON
047875,000376: 06,3772                        504AZ              =        18D                                   #  2             AZ
047876,000377: 06,3772                        TIMSUBM            =        14D                                   #  3             TIME SUB M (MOON) T+T0 IN GETAZ
047877,000378: 06,3772                        504LPL             =        14D                                   #  6             L OR LP VECTOR
047878,000379: 06,3772                        AVECTR             =        20D                                   #  6             A VECTOR (MOON)
047879,000380: 06,3772                        BVECTR             =        26D                                   #  6             B VECTOR (MOON)
047880,000381: 06,3772                        MMATRIX            =        20D                                   #  18            M MATRIX
047881,000382: 06,3772                        COB                =        32D                                   #  2             COS(B) B-1
047882,000383: 06,3772                        SOB                =        34D                                   #  2             SIN(B) B-1
047883,000384: 06,3772                        504F               =        6D                                    #  2             F(MOON)
047884,000385: 

End of include-file PLANETARY_INERTIAL_ORIENTATION.agc.  Parent file is MAIN.agc