Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

048626,000002:                                                                                                  ## Copyright:   Public domain.
048627,000003:                                                                                                  ## Filename:    PLANETARY_INERTIAL_ORIENTATION.agc
048628,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
048629,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
048630,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
048631,000007:                                                                                                  ##
048632,000008:                                                                                                  ## Assembler:   yaYUL
048633,000009:                                                                                                  ## Contact:     Jim Lawton <jim.lawton@gmail.com>
048634,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
048635,000011:                                                                                                  ## Pages:       1140-1148
048636,000012:                                                                                                  ## Mod history: 2009-05-28 JVL  Updated from page images.
048637,000013:                                                                                                  ##              2016-12-17 RSB  Proofed text comments with octopus/ProoferComments
048638,000014:                                                                                                  ##                              and corrected the errors found.
048639,000015:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
048640,000016:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
048641,000017: 
048642,000018:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
048643,000019:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
048644,000020:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
048645,000021:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
048646,000022:                                                                                                  ## consequent reduction in image quality as well) are available online at
048647,000023:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
048648,000024:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the
048649,000025:                                                                                                  ## (much) higher-quality images which Paul actually created.
048650,000026:                                                                                                  ##
048651,000027:                                                                                                  ## Notations on the hardcopy document read, in part:
048652,000028:                                                                                                  ##
048653,000029:                                                                                                  ##    Assemble revision 001 of AGC program LMY99 by NASA 2021112-061
048654,000030:                                                                                                  ##    16:27 JULY 14, 1969
048655,000031: 

Page 1140

048657,000033:                                                                                                  #  ..... RP-TO-R SUBROUTINE .....
048658,000034:                                                                                                  #  SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
048659,000035:                                                                                                  #  EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
048660,000036: 
048661,000037:                                                                                                  #        R = MT(T) * (RP + LP X RP)      MT = M MATRIX TRANSPOSE
048662,000038: 
048663,000039:                                                                                                  #  CALLING SEQUENCE
048664,000040:                                                                                                  #        L       CALL
048665,000041:                                                                                                  #        L+1             RP-TO-R
048666,000042: 
048667,000043:                                                                                                  #  SUBROUTINES USED
048668,000044:                                                                                                  #        EARTHMX, MOONMX, EARTHL
048669,000045: 
048670,000046:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
048671,000047:                                                                                                  #                504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
048672,000048:                                                                                                  #                        IN THE MOON-FIXED COORD. SYSTEM         RADIANS B0
048673,000049: 
048674,000050:                                                                                                  #        ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
048675,000051: 
048676,000052:                                                                                                  #  INPUT
048677,000053:                                                                                                  #        MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
048678,000054:                                                                                                  #        0-5D = RP VECTOR
048679,000055:                                                                                                  #        6-7D = TIME
048680,000056: 
048681,000057:                                                                                                  #  OUTPUT
048682,000058:                                                                                                  #        MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
048683,000059: 
048684,000060: 26,2000                                           SETLOC   PLANTIN1                              
048685,000061: 26,2000                                           BANK                                           
048686,000062: 
048687,000063: 26,3716                                           COUNT*   $$/LUROT                              
048688,000064: 
048689,000065: 26,3716           46020        RP-TO-R            STQ      BHIZ                                  
048690,000066: 26,3717           00050                                    RPREXIT                               
048691,000067: 26,3720           55733                                    RPTORA                                
048692,000068: 26,3721           77624                           CALL                                           #  COMPUTE M MATRIX FOR MOON
048693,000069: 26,3722           51720                                    MOONMX                                #  LP=LM FOR MOON  RADIANS B0
048694,000070: 26,3723           77775                           VLOAD                                          
048695,000071: 26,3724           02013                                    504LM                                 
048696,000072: 26,3725           53235        RPTORB             VXV      VAD                                   
048697,000073: 26,3726           00001                                    504RPR                                
048698,000074: 26,3727           00001                                    504RPR                                
048699,000075: 26,3730           52105                           VXM      GOTO                                  
048700,000076: 26,3731           00025                                    MMATRIX                               #  MPAC=R=MT(T)*(RP+LPXRP)
048701,000077: 26,3732           51706                                    RPRPXXXX                              #  RESET PUSHLOC TO 0 BEFORE EXITING
048702,000078: 26,3733           77624        RPTORA             CALL                                           #  EARTH COMPUTATIONS
048703,000079: 26,3734           55743                                    EARTHMX                               #  M MATRIX B-1
048704,000080: 26,3735           77624                           CALL                                           
048705,000081: 26,3736           15753                                    EARTHL                                #  L VECTOR RADIANS B0
048706,000082: 26,3737           76521                           MXV      VSL1                                  #  LP=M(T)*L  RAD B-0
048707,000083: 26,3740           00025                                    MMATRIX                               

Page 1141

048709,000085: 26,3741           77650                           GOTO                                           
048710,000086: 26,3742           55725                                    RPTORB                                
048711,000087: 24,2000                                           SETLOC   PLANTIN                               
048712,000088: 24,2000                                           BANK                                           
048713,000089: 24,3670                                           COUNT*   $$/LUROT                              
048714,000090: 

Page 1142

048716,000092:                                                                                                  #  ..... R-TO-RP SUBROUTINE .....
048717,000093:                                                                                                  #  SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
048718,000094:                                                                                                  #  (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
048719,000095: 
048720,000096:                                                                                                  #        RP = M(T) * (R - L X R)
048721,000097: 
048722,000098:                                                                                                  #  CALLING SEQUENCE
048723,000099:                                                                                                  #        L       CALL
048724,000100:                                                                                                  #        L+1             R-TO-RP
048725,000101: 
048726,000102:                                                                                                  #  SUBROUTINES USED
048727,000103:                                                                                                  #        EARTHMX, MOONMX, EARTHL
048728,000104: 
048729,000105:                                                                                                  #  INPUT
048730,000106:                                                                                                  #        MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
048731,000107:                                                                                                  #        0-5D = R VECTOR
048732,000108:                                                                                                  #        6-7D = TIME
048733,000109: 
048734,000110:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
048735,000111:                                                                                                  #                504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
048736,000112:                                                                                                  #                        IN THE MOON-FIXED COORD. SYSTEM   RADIANS B0
048737,000113: 
048738,000114:                                                                                                  #        ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
048739,000115: 
048740,000116:                                                                                                  #  OUTPUT
048741,000117:                                                                                                  #        MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
048742,000118: 
048743,000119: 24,3670           46020        R-TO-RP            STQ      BHIZ                                  
048744,000120: 24,3671           00050                                    RPREXIT                               
048745,000121: 24,3672           51712                                    RTORPA                                
048746,000122: 24,3673           77624                           CALL                                           
048747,000123: 24,3674           51720                                    MOONMX                                
048748,000124: 24,3675           61375                           VLOAD    VXM                                   
048749,000125: 24,3676           02013                                    504LM                                 #  LP=LM
048750,000126: 24,3677           00025                                    MMATRIX                               
048751,000127: 24,3700           77772                           VSL1                                           #  L = MT(T)*LP          RADIANS B0
048752,000128: 24,3701           51235        RTORPB             VXV      BVSU                                  
048753,000129: 24,3702           00001                                    504RPR                                
048754,000130: 24,3703           00001                                    504RPR                                
048755,000131: 24,3704           77721                           MXV                                            #  M(T)*(R-LXR)          B-2
048756,000132: 24,3705           00025                                    MMATRIX                               
048757,000133: 24,3706           40372        RPRPXXXX           VSL1     SETPD                                 
048758,000134: 24,3707           00001                                    0D                                    
048759,000135: 24,3710           77650                           GOTO                                           
048760,000136: 24,3711           00050                                    RPREXIT                               
048761,000137: 24,3712           77624        RTORPA             CALL                                           #  EARTH COMPUTATIONS
048762,000138: 24,3713           55743                                    EARTHMX                               
048763,000139: 24,3714           77624                           CALL                                           
048764,000140: 24,3715           15753                                    EARTHL                                
048765,000141: 24,3716           77650                           GOTO                                           #  MPAC=L=(-AX,-AY,0)    RAD B-0
048766,000142: 24,3717           51701                                    RTORPB                                
048767,000143: 

Page 1143

048769,000145:                                                                                                  #  ..... MOONMX SUBROUTINE .....
048770,000146:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
048771,000147: 
048772,000148:                                                                                                  #  CALLING SEQUENCE
048773,000149:                                                                                                  #        L       CALL
048774,000150:                                                                                                  #        L+1             MOONMX
048775,000151: 
048776,000152:                                                                                                  #  SUBROUTINES USED
048777,000153:                                                                                                  #        NEWANGLE
048778,000154: 
048779,000155:                                                                                                  #  INPUT
048780,000156:                                                                                                  #        6-7D = TIME
048781,000157: 
048782,000158:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
048783,000159:                                                                                                  #                BSUBO, BDOT
048784,000160:                                                                                                  #                TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
048785,000161:                                                                                                  #                COSI = COS(I)   B-1
048786,000162:                                                                                                  #                SINI = SIN(I)   B-1
048787,000163:                                                                                                  #                  I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
048788,000164:                                                                                                  #                  PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
048789,000165: 
048790,000166:                                                                                                  #  OUTPUT
048791,000167:                                                                                                  #        MMATRIX = 3X3 M MATRIX B-1      (STORED IN VAC AREA)
048792,000168: 
048793,000169: 24,3720           40220        MOONMX             STQ      SETPD                                 
048794,000170: 24,3721           00051                                    EARTHMXX                              
048795,000171: 24,3722           00011                                    8D                                    
048796,000172: 24,3723           77770                           AXT,1                                          #  B REQUIRES SL 0, SL 5 IN NEWANGLE
048797,000173: 24,3724           00005                                    5                                     
048798,000174: 24,3725           65345                           DLOAD    PDDL                                  #  PD 10D        8-9D=BSUBO
048799,000175: 24,3726           14017                                    BSUBO                                 #                10-11D=BDOT
048800,000176: 24,3727           14011                                    BDOT                                  
048801,000177: 24,3730           45006                           PUSH     CALL                                  #  PD 12D
048802,000178: 24,3731           53743                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= B   REVS B0
048803,000179: 24,3732           71406                           PUSH     COS                                   #  PD 10D
048804,000180: 24,3733           14041                           STODL    COB                                   #  PD 8D         COS(B) B-1
048805,000181: 24,3734           77756                           SIN                                            #                SIN(B) B-1
048806,000182: 24,3735           14043                           STODL    SOB                                   #  SETUP INPUT FOR NEWANGLE
048807,000183: 24,3736           14015                                    FSUBO                                 #                        8-9D=FSUBO
048808,000184: 24,3737           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D       10-11D=FDOT
048809,000185: 24,3740           14007                                    FDOT                                  
048810,000186: 24,3741           45170                           AXT,1    CALL                                  #  F REQUIRES SL 1, SL 6 IN NEWANGLE
048811,000187: 24,3742           00004                                    4                                     
048812,000188: 24,3743           53743                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= F REVS B0
048813,000189: 24,3744           14027                           STODL    AVECTR     +2                         #  SAVE F TEMP
048814,000190: 24,3745           14013                                    NODIO                                 #                        8-9D=NODIO
048815,000191: 24,3746           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D       10-11D=NODDOT
048816,000192: 24,3747           14005                                    NODDOT                                #                        MPAC=T
048817,000193: 24,3750           45170                           AXT,1    CALL                                  #  NODE REQUIRES SL 0, SL 5 IN NEWANGLE
048818,000194: 24,3751           00005                                    5                                     
048819,000195: 24,3752           53743                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= NODI REVS B0

Page 1144

048821,000197: 24,3753           71406                           PUSH     COS                                   #  PD 10D        8-9D= NODI REVS B0
048822,000198: 24,3754           77606                           PUSH                                           #  PD 12D        10-11D= COS(NODI) B-1
048823,000199: 24,3755           00025                           STORE    AVECTR                                
048824,000200: 24,3756           76405                           DMP      SL1R                                  
048825,000201: 24,3757           00041                                    COB                                   #                         COS(NODI) B-1
048826,000202: 24,3760           14035                           STODL    BVECTR     +2                         #  PD 10D  20-25D=AVECTR= COB*SIN(NODI)
048827,000203: 24,3761           76405                           DMP      SL1R                                  #                         SOB*SIN(NODI)
048828,000204: 24,3762           00043                                    SOB                                   
048829,000205: 24,3763           14037                           STODL    BVECTR     +4                         #  PD 8D
048830,000206: 24,3764           41556                           SIN      PUSH                                  #  PD 10D                -SIN(NODI) B-1
048831,000207: 24,3765           77676                           DCOMP                                          #          26-31D=BVECTR= COB*COS(NODI)
048832,000208: 24,3766           14033                           STODL    BVECTR                                #  PD 8D                  SOB*COS(NODI)
048833,000209: 24,3767           00027                                    AVECTR     +2                         #  MOVE F FROM TEMP LOC. TO 504F
048834,000210: 24,3770           14007                           STODL    504F                                  
048835,000211: 24,3771           76405                           DMP      SL1R                                  
048836,000212: 24,3772           00041                                    COB                                   
048837,000213: 24,3773           77650                           GOTO                                           
048838,000214: 24,3774           53671                                    MOONMXA                               
048839,000215: 
048840,000216: 25,3671                                           BANK     25                                    
048841,000217: 25,2000                                           SETLOC   PLANTIN3                              
048842,000218: 25,2000                                           BANK                                           
048843,000219: 25,3671                                           COUNT*   $$/LUROT                              
048844,000220: 
048845,000221: 25,3671           14027        MOONMXA            STODL    AVECTR     +2                         
048846,000222: 25,3672           00011                                    SINNODI                               #  8-9D=SIN(NODI) B-1
048847,000223: 25,3673           76405                           DMP      SL1R                                  
048848,000224: 25,3674           00043                                    SOB                                   
048849,000225: 25,3675           14031                           STODL    AVECTR     +4                         #                         0
048850,000226: 25,3676           06522                                    HI6ZEROS                              #        8-13D= CVECTR= -SOB  B-1
048851,000227: 25,3677           57525                           PDDL     DCOMP                                 #  PD 10D                COB
048852,000228: 25,3700           00043                                    SOB                                   
048853,000229: 25,3701           63325                           PDDL     PDVL                                  #  PD 12D THEN PD 14D
048854,000230: 25,3702           00041                                    COB                                   
048855,000231: 25,3703           00033                                    BVECTR                                
048856,000232: 25,3704           63361                           VXSC     PDVL                                  #  PD 20D        BVECTR*SINI  B-2
048857,000233: 25,3705           14003                                    SINI                                  
048858,000234: 25,3706           00011                                    CVECTR                                
048859,000235: 25,3707           53361                           VXSC     VAD                                   #  PD 14D        CVECTR*COSI  B-2
048860,000236: 25,3710           14001                                    COSI                                  
048861,000237: 25,3711           77772                           VSL1                                           
048862,000238: 25,3712           24041                           STOVL    MMATRIX    +12D                       #  PD 8D  M2=BVECTR*SINI+CVECTR*COSI  B-1
048863,000239: 25,3713           63361                           VXSC     PDVL                                  #  PD 14D
048864,000240: 25,3714           14003                                    SINI                                  #                CVECTR*SINI  B-2
048865,000241: 25,3715           00033                                    BVECTR                                
048866,000242: 25,3716           52361                           VXSC     VSU                                   #  PD 8D         BVECTR*COSI  B-2
048867,000243: 25,3717           14001                                    COSI                                  
048868,000244: 25,3720           65372                           VSL1     PDDL                                  #  PD 14D
048869,000245: 25,3721           00007                                    504F                                  #  8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI  B-1
048870,000246: 25,3722           74346                           COS      VXSC                                  

Page 1145

048872,000248: 25,3723           00011                                    DVECTR                                
048873,000249: 25,3724           73525                           PDDL     SIN                                   #  PD 20D  14-19D= DVECTR*COSF  B-2
048874,000250: 25,3725           00007                                    504F                                  
048875,000251: 25,3726           52361                           VXSC     VSU                                   #  PD 14D          AVECTR*SINF  B-2
048876,000252: 25,3727           00025                                    AVECTR                                
048877,000253: 25,3730           77772                           VSL1                                           
048878,000254: 25,3731           14033                           STODL    MMATRIX    +6                         #  M1= AVECTR*SINF-DVECTR*COSF  B-1
048879,000255: 25,3732           00007                                    504F                                  
048880,000256: 25,3733           74356                           SIN      VXSC                                  #  PD 8D
048881,000257: 25,3734           71525                           PDDL     COS                                   #  PD 14D  8-13D=DVECTR*SINF B-2
048882,000258: 25,3735           00007                                    504F                                  
048883,000259: 25,3736           53361                           VXSC     VAD                                   #  PD 8D         AVECTR*COSF B-2
048884,000260: 25,3737           00025                                    AVECTR                                
048885,000261: 25,3740           57572                           VSL1     VCOMP                                 
048886,000262: 25,3741           34025                           STCALL   MMATRIX                               #  M0= -(AVECTR*COSF+DVECTR*SINF)  B-1
048887,000263: 25,3742           00051                                    EARTHMXX                              
048888,000264: 
048889,000265:                                                                                                  #  COMPUTE X=X0+(XDOT)(T+T0)
048890,000266:                                                                                                  #  8-9D= XO (REVS B-0), PUSHLOC SET AT 12D
048891,000267:                                                                                                  #  10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
048892,000268:                                                                                                  #                        AND B+27 FOR FDOT
048893,000269:                                                                                                  #   X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NODDOT AND
048894,000270:                                                                                                  #                                        BDOT AND 4 FOR FDOT
048895,000271:                                                                                                  #  6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
048896,000272: 
048897,000273: 25,3743           54345        NEWANGLE           DLOAD    SR                                    #  ENTER PD 12D
048898,000274: 25,3744           00007                                    6D                                    
048899,000275: 25,3745           20617                                    14D                                   
048900,000276: 25,3746           72371                           TAD      TLOAD                                 #  CHANGE MODE TO TP
048901,000277: 25,3747           01707                                    TIMSUBO                               
048902,000278: 25,3750           00155                                    MPAC                                  
048903,000279: 25,3751           14017                           STODL    TIMSUBM                               #  T+T0 CSEC B-42
048904,000280: 25,3752           00020                                    TIMSUBM    +1                         
048905,000281: 25,3753           77605                           DMP                                            #  PD 10D        MULT BY XDOT IN 10-11D
048906,000282: 25,3754           43257                           SL*      DAD                                   #  PD 8D         ADD XO IN 8-9D AFTER SHIFTING
048907,000283: 25,3755           20206                                    5,1                                   #                SUCH THAT SCALING IS B-0
048908,000284: 25,3756           67206                           PUSH     SLOAD                                 #  PD 10D  SAVE PARTIAL (X0+XDOT*T) IN 8-9D
048909,000285: 25,3757           00017                                    TIMSUBM                               
048910,000286: 25,3760           41261                           SL       DMP                                   
048911,000287: 25,3761           20212                                    9D                                    
048912,000288: 25,3762           00013                                    10D                                   #  XDOT
048913,000289: 25,3763           43257                           SL*      DAD                                   #  PD 8D         SHIFT SUCH THAT THIS PART OF X
048914,000290: 25,3764           20213                                    10D,1                                 #                IS SCALED REVS/CSEC B-0
048915,000291: 25,3765           77600                           BOV                                            #  TURN OFF OVERFLOW IF SET BY SHIFT
048916,000292: 25,3766           53767                                    +1                                    #  INSTRUCTION BEFORE EXITING
048917,000293: 25,3767           77616                           RVQ                                            #  MPAC=X= X0+(XDOT)(T+T0)  REVS B0
048918,000294: 

Page 1146

048920,000296:                                                                                                  #  ..... EARTHMX SUBROUTINE .....
048921,000297:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
048922,000298: 
048923,000299:                                                                                                  #  CALLING SEQUENCE
048924,000300:                                                                                                  #        L       CALL
048925,000301:                                                                                                  #        L+1             EARTHMX
048926,000302: 
048927,000303:                                                                                                  #  SUBROUTINES USED
048928,000304:                                                                                                  #        NEWANGLE
048929,000305: 
048930,000306:                                                                                                  #  INPUT
048931,000307:                                                                                                  #        INPUT AVAILABLE FROM LAUNCH DATA        AZO  REVS B-0
048932,000308:                                                                                                  #                                                TEPHEM  CSEC B-42
048933,000309:                                                                                                  #        6-7D= TIME CSEC B-28
048934,000310: 
048935,000311:                                                                                                  #  OUTPUT
048936,000312:                                                                                                  #        MMATRIX= 3X3 M MATRIX B-1       (STORED IN VAC AREA)
048937,000313: 
048938,000314: 26,3743                                           BANK     26                                    
048939,000315: 26,2000                                           SETLOC   PLANTIN1                              
048940,000316: 26,2000                                           BANK                                           
048941,000317: 26,3743                                           COUNT*   $$/LUROT                              
048942,000318: 
048943,000319: 26,3743           40220        EARTHMX            STQ      SETPD                                 #  SET 8-9D=AZO
048944,000320: 26,3744           00051                                    EARTHMXX                              
048945,000321: 26,3745           00011                                    8D                                    #  10-11D=WEARTH
048946,000322: 26,3746           77770                           AXT,1                                          #  FOR SL 5, AND SL 10 IN NEWANGLE
048947,000323: 26,3747           00000                                    0                                     
048948,000324: 26,3750           65345                           DLOAD    PDDL                                  #  LEAVING PD SET AT 12D FOR NEWANGLE
048949,000325: 26,3751           01712                                    AZO                                   
048950,000326: 26,3752           14021                                    WEARTH                                
048951,000327: 26,3753           45006                           PUSH     CALL                                  
048952,000328: 26,3754           53743                                    NEWANGLE                              
048953,000329: 26,3755           41401                           SETPD    PUSH                                  #  18-19D=504AZ
048954,000330: 26,3756           00023                                    18D                                   #                         COS(AZ)   SIN(AZ)     0
048955,000331: 26,3757           65346                           COS      PDDL                                  #  20-37D=  MMATRIX=     -SIN(AZ)   COS(AZ)     0    B-1
048956,000332: 26,3760           00023                                    504AZ                                 #                            0         0        1
048957,000333: 26,3761           65356                           SIN      PDDL                                  
048958,000334: 26,3762           06522                                    HI6ZEROS                              
048959,000335: 26,3763           73525                           PDDL     SIN                                   
048960,000336: 26,3764           00023                                    504AZ                                 
048961,000337: 26,3765           65276                           DCOMP    PDDL                                  
048962,000338: 26,3766           00023                                    504AZ                                 
048963,000339: 26,3767           63346                           COS      PDVL                                  
048964,000340: 26,3770           06522                                    HI6ZEROS                              
048965,000341: 26,3771           41525                           PDDL     PUSH                                  
048966,000342: 26,3772           06520                                    HIDPHALF                              
048967,000343: 26,3773           77650                           GOTO                                           
048968,000344: 26,3774           00051                                    EARTHMXX                              
048969,000345: 

Page 1147

048971,000347:                                                                                                  #  ..... EARTHL SUBROUTINE .....
048972,000348:                                                                                                  #  SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
048973,000349: 
048974,000350:                                                                                                  #  CALLING SEQUENCE
048975,000351:                                                                                                  #        L       CALL
048976,000352:                                                                                                  #        L+1             EARTHL
048977,000353: 
048978,000354:                                                                                                  #  INPUT
048979,000355:                                                                                                  #        AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
048980,000356: 
048981,000357:                                                                                                  #  OUTPUT
048982,000358:                                                                                                  #                -AX
048983,000359:                                                                                                  #        MPAC=   -AY     RADIANS B-0
048984,000360:                                                                                                  #                  0
048985,000361: 
048986,000362: 06,3753                                           BANK     06                                    
048987,000363: 06,2000                                           SETLOC   EARTHLOC                              
048988,000364: 06,2000                                           BANK                                           
048989,000365: 06,3753                                           COUNT*   $$/LUROT                              
048990,000366: 
048991,000367: 06,3753           57545        EARTHL             DLOAD    DCOMP                                 
048992,000368: 06,3754           01716                                    AXO                                   
048993,000369: 06,3755           14017                           STODL    504LPL                                
048994,000370: 06,3756           01714                                    -AYO                                  
048995,000371: 06,3757           14021                           STODL    504LPL     +2                         
048996,000372: 06,3760           24007                                    LO6ZEROS                              
048997,000373: 06,3761           24023                           STOVL    504LPL     +4                         
048998,000374: 06,3762           00017                                    504LPL                                
048999,000375: 06,3763           77616                           RVQ                                            
049000,000376: 

Page 1148

049002,000378:                                                                                                  #  CONSTANTS AND ERASABLE ASSIGNMENTS
049003,000379: 
049004,000380: 06,3764  12,2004               1B1                =        DP1/2                                 #  1  SCALED B-1
049005,000381: 06,3764  0000050               RPREXIT            =        S1                                    #  R-TO-RP AND RP-TO-R SUBR EXIT
049006,000382: 06,3764  0000051               EARTHMXX           =        S2                                    #  EARTHMX, MOONMX SUBR. EXITS
049007,000383: 06,3764                        504RPR             =        0D                                    #  6 REGS        R OR RP VECTOR
049008,000384: 06,3764                        SINNODI            =        8D                                    #  2             SIN(NODI)
049009,000385: 06,3764                        DVECTR             =        8D                                    #  6             D VECTOR MOON
049010,000386: 06,3764                        CVECTR             =        8D                                    #  6             C VECTR MOON
049011,000387: 06,3764                        504AZ              =        18D                                   #  2             AZ
049012,000388: 06,3764                        TIMSUBM            =        14D                                   #  3             TIME SUB M (MOON) T+T0 IN GETAZ
049013,000389: 06,3764                        504LPL             =        14D                                   #  6             L OR LP VECTOR
049014,000390: 06,3764                        AVECTR             =        20D                                   #  6             A VECTOR (MOON)
049015,000391: 06,3764                        BVECTR             =        26D                                   #  6             B VECTOR (MOON)
049016,000392: 06,3764                        MMATRIX            =        20D                                   #  18            M MATRIX
049017,000393: 06,3764                        COB                =        32D                                   #  2             COS(B) B-1
049018,000394: 06,3764                        SOB                =        34D                                   #  2             SIN(B) B-1
049019,000395: 06,3764                        504F               =        6D                                    #  2             F(MOON)
049020,000396: 

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