Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

048844,000002:                                                                                                  ## Copyright:   Public domain.
048845,000003:                                                                                                  ## Filename:    PLANETARY_INERTIAL_ORIENTATION.agc
048846,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
048847,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
048848,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
048849,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
048850,000008:                                                                                                  ##              that the code format has been changed to conform to the
048851,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
048852,000010:                                                                                                  ##              original YUL assembler.
048853,000011:                                                                                                  ## Reference:   pp. 1138-1146
048854,000012:                                                                                                  ## Assembler:   yaYUL
048855,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
048856,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
048857,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
048858,000016:                                                                                                  ##              2016-12-09 JS   Compared to Luminary210 images. Updated where needed.
048859,000017:                                                                                                  ##              2016-12-26 RSB  Comment-text proofed using ProoferComments
048860,000018:                                                                                                  ##                              and corrected errors found.
048861,000019:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
048862,000020:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
048863,000021: 

Page 1138

048865,000023:                                                                                                  #  ..... RP-TO-R SUBROUTINE .....
048866,000024:                                                                                                  #  SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM,EITHER
048867,000025:                                                                                                  #   EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
048868,000026:                                                                                                  #   R=MT(T)*(RP+LPXRP)    MT = M MATRIX TRANSPOSE
048869,000027: 
048870,000028:                                                                                                  #  CALLING SEQUENCE
048871,000029:                                                                                                  #   L       CALL
048872,000030:                                                                                                  #   L+1            RP-TO-R
048873,000031: 
048874,000032:                                                                                                  #  SUBROUTINES USED
048875,000033:                                                                                                  #   EARTHMX,MOONMX,EARTHL
048876,000034: 
048877,000035:                                                                                                  #    ITEMS AVAILABLE FROM LAUNCH DATA
048878,000036:                                                                                                  #     504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
048879,000037:                                                                                                  #      IN THE MOON-FIXED COORD. SYSTEM  RADIANS  B0
048880,000038:                                                                                                  #        ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
048881,000039: 
048882,000040:                                                                                                  #  INPUT
048883,000041:                                                                                                  #   MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
048884,000042:                                                                                                  #   0-5D= RP VECTOR
048885,000043:                                                                                                  #   6-7D= TIME
048886,000044: 
048887,000045:                                                                                                  #  OUTPUT
048888,000046:                                                                                                  #   MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
048889,000047: 
048890,000048: 26,2000                                           SETLOC   PLANTIN1                              
048891,000049: 26,2000                                           BANK                                           
048892,000050: 
048893,000051: 26,3716                                           COUNT*   $$/LUROT                              
048894,000052: 
048895,000053: 26,3716           46020        RP-TO-R            STQ      BHIZ                                  
048896,000054: 26,3717           00050                                    RPREXIT                               
048897,000055: 26,3720           55733                                    RPTORA                                
048898,000056: 26,3721           77624                           CALL                                           #  COMPUTE M MATRIX FOR MOON
048899,000057: 26,3722           51674                                    MOONMX                                #  LP=LM FOR MOON  RADIANS B0
048900,000058: 26,3723           77775                           VLOAD                                          
048901,000059: 26,3724           02013                                    504LM                                 
048902,000060: 26,3725           53235        RPTORB             VXV      VAD                                   
048903,000061: 26,3726           00001                                    504RPR                                
048904,000062: 26,3727           00001                                    504RPR                                
048905,000063: 26,3730           52105                           VXM      GOTO                                  
048906,000064: 26,3731           00025                                    MMATRIX                               #  MPAC=R=MT(T)*(RP+LPXRP)
048907,000065: 26,3732           51662                                    RPRPXXXX                              #  RESET PUSHLOC TO 0 BEFORE EXITING
048908,000066: 26,3733           77624        RPTORA             CALL                                           #  EARTH COMPUTATIONS
048909,000067: 26,3734           55743                                    EARTHMX                               #  M MATRIX B-1
048910,000068: 26,3735           77624                           CALL                                           
048911,000069: 26,3736           15765                                    EARTHL                                #  L VECTOR RADIANS B0
048912,000070: 26,3737           76521                           MXV      VSL1                                  #  LP=M(T)*L  RAD B-0
048913,000071: 26,3740           00025                                    MMATRIX                               
048914,000072: 

Page 1139

048916,000074: 26,3741           77650                           GOTO                                           
048917,000075: 26,3742           55725                                    RPTORB                                
048918,000076: 24,2000                                           SETLOC   PLANTIN                               
048919,000077: 24,2000                                           BANK                                           
048920,000078: 24,3644                                           COUNT*   $$/LUROT                              
048921,000079: 

Page 1140

048923,000081:                                                                                                  #  ..... R-TO-RP SUBROUTINE .....
048924,000082:                                                                                                  #  SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
048925,000083:                                                                                                  #   (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
048926,000084:                                                                                                  #   RP=M(T)*(R-LXR)
048927,000085: 
048928,000086:                                                                                                  #  CALLING SEQUENCE
048929,000087:                                                                                                  #   L       CALL
048930,000088:                                                                                                  #   L+1     R-TO-RP
048931,000089: 
048932,000090:                                                                                                  #  SUBROUTINES USED
048933,000091:                                                                                                  #   EARTHMX, MOONMX, EARTHL
048934,000092: 
048935,000093:                                                                                                  #  INPUT
048936,000094:                                                                                                  #   MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
048937,000095:                                                                                                  #   0-5D= R VECTOR
048938,000096:                                                                                                  #   6-7D= TIME
048939,000097: 
048940,000098:                                                                                                  #     ITEMS AVAILABLE FROM LAUNCH DATA
048941,000099:                                                                                                  #      504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
048942,000100:                                                                                                  #      IN THE MOON-FIXED COORD. SYSTEM   RADIANS B0
048943,000101:                                                                                                  #        ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
048944,000102: 
048945,000103:                                                                                                  #  OUTPUT
048946,000104:                                                                                                  #   MPAC=RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
048947,000105: 
048948,000106: 24,3644           46020        R-TO-RP            STQ      BHIZ                                  
048949,000107: 24,3645           00050                                    RPREXIT                               
048950,000108: 24,3646           51666                                    RTORPA                                
048951,000109: 24,3647           77624                           CALL                                           
048952,000110: 24,3650           51674                                    MOONMX                                
048953,000111: 24,3651           61375                           VLOAD    VXM                                   
048954,000112: 24,3652           02013                                    504LM                                 #  LP=LM
048955,000113: 24,3653           00025                                    MMATRIX                               
048956,000114: 24,3654           77772                           VSL1                                           #   L=MT(T)*LP  RADIANS B0
048957,000115: 24,3655           51235        RTORPB             VXV      BVSU                                  
048958,000116: 24,3656           00001                                    504RPR                                
048959,000117: 24,3657           00001                                    504RPR                                
048960,000118: 24,3660           77721                           MXV                                            #  M(T)*(R-LXR) B-2
048961,000119: 24,3661           00025                                    MMATRIX                               
048962,000120: 24,3662           40372        RPRPXXXX           VSL1     SETPD                                 
048963,000121: 24,3663           00001                                    0D                                    
048964,000122: 24,3664           77650                           GOTO                                           
048965,000123: 24,3665           00050                                    RPREXIT                               
048966,000124: 24,3666           77624        RTORPA             CALL                                           #  EARTH COMPUTATIONS
048967,000125: 24,3667           55743                                    EARTHMX                               
048968,000126: 24,3670           77624                           CALL                                           
048969,000127: 24,3671           15765                                    EARTHL                                
048970,000128: 24,3672           77650                           GOTO                                           #  MPAC=L=(-AX,-AY,0) RAD B-0
048971,000129: 24,3673           51655                                    RTORPB                                
048972,000130: 

Page 1141

048974,000132:                                                                                                  #  ..... MOONMX SUBROUTINE .....
048975,000133:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
048976,000134: 
048977,000135:                                                                                                  #  CALLING SEQUENCE
048978,000136:                                                                                                  #   L       CALL
048979,000137:                                                                                                  #   L+1     MOONMX
048980,000138: 
048981,000139:                                                                                                  #  SUBROUTINES USED
048982,000140:                                                                                                  #   NEWANGLE
048983,000141: 
048984,000142:                                                                                                  #  INPUT
048985,000143:                                                                                                  #   6-7D= TIME
048986,000144:                                                                                                  #     ITEMS AVAILABLE FROM LAUNCH DATA
048987,000145:                                                                                                  #      BSUBO,BDOT
048988,000146:                                                                                                  #      TIMSUBO,NODIO,NODDOT,FSUBO,FDOT
048989,000147:                                                                                                  #      COSI= COS(I) B-1
048990,000148:                                                                                                  #      SINI= SIN(I) B-1
048991,000149:                                                                                                  #        I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
048992,000150:                                                                                                  #        PLANE OF THE ECLIPTIC  (1 DEGREE 32.1 MINUTES)
048993,000151: 
048994,000152:                                                                                                  #  OUTPUT
048995,000153:                                                                                                  #   MMATRIX= 3X3 M MATRIX B-1   (STORED IN VAC AREA)
048996,000154: 
048997,000155: 24,3674           40220        MOONMX             STQ      SETPD                                 
048998,000156: 24,3675           00051                                    EARTHMXX                              
048999,000157: 24,3676           00011                                    8D                                    
049000,000158: 24,3677           77770                           AXT,1                                          #  B REQUIRES SL 0, SL 5 IN NEWANGLE
049001,000159: 24,3700           00005                                    5                                     
049002,000160: 24,3701           65345                           DLOAD    PDDL                                  #  PD 10D            8-9D=BSUBO
049003,000161: 24,3702           14017                                    BSUBO                                 #                    10-11D= BDOT
049004,000162: 24,3703           14011                                    BDOT                                  
049005,000163: 24,3704           45006                           PUSH     CALL                                  #  PD 12D
049006,000164: 24,3705           51743                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= B  REVS B0
049007,000165: 24,3706           71406                           PUSH     COS                                   #  PD 10D
049008,000166: 24,3707           14041                           STODL    COB                                   #  PD 8D    COS(B) B-1
049009,000167: 24,3710           77756                           SIN                                            #           SIN(B) B-1
049010,000168: 24,3711           14043                           STODL    SOB                                   #  SETUP INPUT FOR NEWANGLE
049011,000169: 24,3712           14015                                    FSUBO                                 #                      8-9D=FSUBO
049012,000170: 24,3713           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D   10-11D=FDOT
049013,000171: 24,3714           14007                                    FDOT                                  
049014,000172: 24,3715           45170                           AXT,1    CALL                                  #  F REQUIRES SL 1, SL 6 IN NEWANGLE
049015,000173: 24,3716           00004                                    4                                     
049016,000174: 24,3717           51743                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= F REVS B0
049017,000175: 24,3720           14027                           STODL    AVECTR     +2                         #  SAVE F TEMP
049018,000176: 24,3721           14013                                    NODIO                                 #                      8-9D=NODIO
049019,000177: 24,3722           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D   10-11D=NODDOT
049020,000178: 24,3723           14005                                    NODDOT                                #                      MPAC=T
049021,000179: 24,3724           45170                           AXT,1    CALL                                  #  NODE REQUIRES SL 0, SL 5 IN NEWANGLE
049022,000180: 24,3725           00005                                    5                                     
049023,000181: 24,3726           51743                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= NODI REVS B0
049024,000182: 

Page 1142

049026,000184: 24,3727           71406                           PUSH     COS                                   #  PD 10D   8-9D= NODI  REVS  B0
049027,000185: 24,3730           77606                           PUSH                                           #  PD 12D 10-11D= COS(NODI)  B-1
049028,000186: 24,3731           00025                           STORE    AVECTR                                
049029,000187: 24,3732           76405                           DMP      SL1R                                  
049030,000188: 24,3733           00041                                    COB                                   #                          COS(NODI)    B-1
049031,000189: 24,3734           14035                           STODL    BVECTR     +2                         #  PD 10D   20-25D=AVECTR= COB*SIN(NODI)
049032,000190: 24,3735           76405                           DMP      SL1R                                  #                          SOB*SIN(NODI)
049033,000191: 24,3736           00043                                    SOB                                   
049034,000192: 24,3737           14037                           STODL    BVECTR     +4                         #  PD 8D
049035,000193: 24,3740           41556                           SIN      PUSH                                  #  PD 10D                  -SIN(NODI)   B-1
049036,000194: 24,3741           52076                           DCOMP    GOTO                                  #          26-31D=BVECTR= COV*COS(NODI)
049037,000195: 24,3742           53712                                    MOONMXA                               
049038,000196: 25,3712                                           BANK     25                                    
049039,000197: 25,2000                                           SETLOC   PLANTIN3                              
049040,000198: 25,2000                                           BANK                                           
049041,000199: 25,3712                                           COUNT*   $$/LUROT                              
049042,000200: 
049043,000201: 25,3712           14033        MOONMXA            STODL    BVECTR                                #  PD 8D                    SOB*COS(NODI)
049044,000202: 25,3713           00027                                    AVECTR     +2                         #  MOVE F FROM TEMP LOC. TO 504F
049045,000203: 25,3714           14007                           STODL    504F                                  
049046,000204: 25,3715           76405                           DMP      SL1R                                  
049047,000205: 25,3716           00041                                    COB                                   
049048,000206: 25,3717           14027                           STODL    AVECTR     +2                         
049049,000207: 25,3720           00011                                    SINNODI                               #  8-9D=SIN(NODI)  B-1
049050,000208: 25,3721           76405                           DMP      SL1R                                  
049051,000209: 25,3722           00043                                    SOB                                   
049052,000210: 25,3723           14031                           STODL    AVECTR     +4                         #                           0
049053,000211: 25,3724           06505                                    HI6ZEROS                              #          8-13D= CVECTR= -SOB  B-1
049054,000212: 25,3725           57525                           PDDL     DCOMP                                 #  PD 10D                  COB
049055,000213: 25,3726           00043                                    SOB                                   
049056,000214: 25,3727           63325                           PDDL     PDVL                                  #  PD 12D THEN PD 14D
049057,000215: 25,3730           00041                                    COB                                   
049058,000216: 25,3731           00033                                    BVECTR                                
049059,000217: 25,3732           63361                           VXSC     PDVL                                  #  PD 20D         BVECTR*SINI  B-2
049060,000218: 25,3733           14003                                    SINI                                  
049061,000219: 25,3734           00011                                    CVECTR                                
049062,000220: 25,3735           53361                           VXSC     VAD                                   #  PD 14D         CVECTR*COSI  B-2
049063,000221: 25,3736           14001                                    COSI                                  
049064,000222: 25,3737           77772                           VSL1                                           
049065,000223: 25,3740           24041                           STOVL    MMATRIX    +12D                       #  PD 8D  M2=BVECTR*SINI+CVECTR*COSI  B-1
049066,000224: 25,3741           63361                           VXSC     PDVL                                  #  PD 14D
049067,000225: 25,3742           14003                                    SINI                                  #                 CVECTR*SINI  B-2
049068,000226: 25,3743           00033                                    BVECTR                                
049069,000227: 25,3744           52361                           VXSC     VSU                                   #  PD 8D          BVECTR*COSI  B-2
049070,000228: 25,3745           14001                                    COSI                                  
049071,000229: 25,3746           65372                           VSL1     PDDL                                  #  PD 14D
049072,000230: 25,3747           00007                                    504F                                  #  8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
049073,000231: 25,3750           74346                           COS      VXSC                                  
049074,000232: 25,3751           00011                                    DVECTR                                
049075,000233: 25,3752           73525                           PDDL     SIN                                   #  PD 20D  14-19D= DVECTR*COSF  B-2
049076,000234: 

Page 1143

049078,000236: 25,3753           00007                                    504F                                  
049079,000237: 25,3754           52361                           VXSC     VSU                                   #  PD 14D          AVECTR*SINF  B-2
049080,000238: 25,3755           00025                                    AVECTR                                
049081,000239: 25,3756           77772                           VSL1                                           
049082,000240: 25,3757           14033                           STODL    MMATRIX    +6                         #  M1= AVECTR*SINF-DVECTR*COSF  B-1
049083,000241: 25,3760           00007                                    504F                                  
049084,000242: 25,3761           74356                           SIN      VXSC                                  #  PD 8D
049085,000243: 25,3762           71525                           PDDL     COS                                   #  PD 14D  8-13D=DVECTR*SINF B-2
049086,000244: 25,3763           00007                                    504F                                  
049087,000245: 25,3764           53361                           VXSC     VAD                                   #  PD 8D         AVECTR*COSF B-2
049088,000246: 25,3765           00025                                    AVECTR                                
049089,000247: 25,3766           57572                           VSL1     VCOMP                                 
049090,000248: 25,3767           34025                           STCALL   MMATRIX                               #  M0= -(AVECTR*COSF+DVECTR*SINF)  B-1
049091,000249: 25,3770           00051                                    EARTHMXX                              
049092,000250:                                                                                                  #  COMPUTE X=X0+(XDOT)(T+T0)
049093,000251:                                                                                                  #  8-9D= XO (REVS B-0),PUSHLOC SET AT 12D
049094,000252:                                                                                                  #  10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
049095,000253:                                                                                                  #                          AND B+27 FOR FDOT
049096,000254:                                                                                                  #   X1=DIFFERENCE IN 23 AND SCALING OF XDOT,=0 FOR WEARTH,5 FOR NODDOT AND
049097,000255:                                                                                                  #                                           BDOT AND 4 FOR FDOT
049098,000256:                                                                                                  #  6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
049099,000257: 
049100,000258: 24,3743                                           BANK     24                                    
049101,000259: 24,2000                                           SETLOC   PLANTIN                               
049102,000260: 24,2000                                           BANK                                           
049103,000261: 
049104,000262: 24,3743           54345        NEWANGLE           DLOAD    SR                                    #  ENTER PD 12D
049105,000263: 24,3744           00007                                    6D                                    
049106,000264: 24,3745           20617                                    14D                                   
049107,000265: 24,3746           72371                           TAD      TLOAD                                 #  CHANGE MODE TO TP
049108,000266: 24,3747           01707                                    TIMSUBO                               
049109,000267: 24,3750           00155                                    MPAC                                  
049110,000268: 24,3751           14017                           STODL    TIMSUBM                               #  T+T0 CSEC B-42
049111,000269: 24,3752           00020                                    TIMSUBM    +1                         
049112,000270: 24,3753           77605                           DMP                                            #  PD 10D  MULT BY XDOT IN 10-11D
049113,000271: 24,3754           43257                           SL*      DAD                                   #  PD 8D   ADD XO IN 8-9D AFTER SHIFTING
049114,000272: 24,3755           20206                                    5,1                                   #          SUCH THAT SCALING IS B-0
049115,000273: 24,3756           67206                           PUSH     SLOAD                                 #  PD 10D  SAVE PARTIAL (X0+XDOT*T) IN 8-9D
049116,000274: 24,3757           00017                                    TIMSUBM                               
049117,000275: 24,3760           41261                           SL       DMP                                   
049118,000276: 24,3761           20212                                    9D                                    
049119,000277: 24,3762           00013                                    10D                                   #  XDOT
049120,000278: 24,3763           43257                           SL*      DAD                                   #  PD 8D    SHIFT SUCH THAT THIS PART OF X
049121,000279: 24,3764           20213                                    10D,1                                 #           IS SCALED REVS/CSEC B-0
049122,000280: 24,3765           77600                           BOV                                            #  TURN OFF OVERFLOW IF SET BY SHIFT
049123,000281: 24,3766           51767                                    +1                                    #  INSTRUCTION BEFORE EXITING
049124,000282: 24,3767           77616                           RVQ                                            #  MPAC=X= X0+(XDOT)(T+T0)  REVS B0
049125,000283: 

Page 1144

049127,000285:                                                                                                  #  ..... EARTHMX SUBROUTINE .....
049128,000286:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
049129,000287: 
049130,000288:                                                                                                  #  CALLING SEQUENCE
049131,000289:                                                                                                  #   L       CALL
049132,000290:                                                                                                  #   L+1            EARTHMX
049133,000291: 
049134,000292:                                                                                                  #  SUBROUTINES USED
049135,000293:                                                                                                  #   NEWANGLE
049136,000294: 
049137,000295:                                                                                                  #  INPUT
049138,000296:                                                                                                  #     INPUT AVAILABLE FROM LAUNCH DATA      AZO  REVS B-0
049139,000297:                                                                                                  #                                           TEPHEM  CSEC B-42
049140,000298:                                                                                                  #   6-7D= TIME CSEC B-28
049141,000299: 
049142,000300:                                                                                                  #  OUTPUT
049143,000301:                                                                                                  #   MMATRIX= 3X3 M MATRIX B-1   (STORED IN VAC AREA)
049144,000302: 
049145,000303: 26,3743                                           BANK     26                                    
049146,000304: 26,2000                                           SETLOC   PLANTIN1                              
049147,000305: 26,2000                                           BANK                                           
049148,000306: 26,3743                                           COUNT*   $$/LUROT                              
049149,000307: 
049150,000308: 26,3743           40220        EARTHMX            STQ      SETPD                                 #  SET   8-9D=AZO
049151,000309: 26,3744           00051                                    EARTHMXX                              
049152,000310: 26,3745           00011                                    8D                                    #  10-11D=WEARTH
049153,000311: 26,3746           77770                           AXT,1                                          #  FOR SL 5, AND SL 10  IN NEWANGLE
049154,000312: 26,3747           00000                                    0                                     
049155,000313: 26,3750           65345                           DLOAD    PDDL                                  #    LEAVING PD SET AT 12D FOR NEWANGLE
049156,000314: 26,3751           14023                                    AZO                                   
049157,000315: 26,3752           14021                                    WEARTH                                
049158,000316: 26,3753           45006                           PUSH     CALL                                  
049159,000317: 26,3754           51743                                    NEWANGLE                              
049160,000318: 26,3755           41401                           SETPD    PUSH                                  #  18-19D=504AZ
049161,000319: 26,3756           00023                                    18D                                   #                     COS(AZ) SIN(AZ) 0
049162,000320: 26,3757           65346                           COS      PDDL                                  #  20-37D=  MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
049163,000321: 26,3760           00023                                    504AZ                                 #                      0       0      1
049164,000322: 26,3761           65356                           SIN      PDDL                                  
049165,000323: 26,3762           06505                                    HI6ZEROS                              
049166,000324: 26,3763           73525                           PDDL     SIN                                   
049167,000325: 26,3764           00023                                    504AZ                                 
049168,000326: 26,3765           65276                           DCOMP    PDDL                                  
049169,000327: 26,3766           00023                                    504AZ                                 
049170,000328: 26,3767           63346                           COS      PDVL                                  
049171,000329: 26,3770           06505                                    HI6ZEROS                              
049172,000330: 26,3771           41525                           PDDL     PUSH                                  
049173,000331: 26,3772           06503                                    HIDPHALF                              
049174,000332: 26,3773           77650                           GOTO                                           
049175,000333: 26,3774           00051                                    EARTHMXX                              
049176,000334: 

Page 1145

049178,000336:                                                                                                  #  ..... EARTHL SUBROUTINE .....
049179,000337:                                                                                                  #  SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
049180,000338: 
049181,000339:                                                                                                  #  CALLING SEQUENCE
049182,000340:                                                                                                  #   L       CALL
049183,000341:                                                                                                  #   L+1            EARTHL
049184,000342: 
049185,000343:                                                                                                  #  INPUT
049186,000344:                                                                                                  #   AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
049187,000345: 
049188,000346:                                                                                                  #  OUTPUT
049189,000347:                                                                                                  #            -AX
049190,000348:                                                                                                  #    MPAC=   -AY    RADIANS B-0
049191,000349:                                                                                                  #              0
049192,000350: 
049193,000351: 06,3765                                           BANK     06                                    
049194,000352: 06,2000                                           SETLOC   EARTHLOC                              
049195,000353: 06,2000                                           BANK                                           
049196,000354: 06,3765                                           COUNT*   $$/LUROT                              
049197,000355: 
049198,000356: 06,3765           57545        EARTHL             DLOAD    DCOMP                                 
049199,000357: 06,3766           01714                                    AXO                                   
049200,000358: 06,3767           14017                           STODL    504LPL                                
049201,000359: 06,3770           01712                                    -AYO                                  
049202,000360: 06,3771           14021                           STODL    504LPL     +2                         
049203,000361: 06,3772           24007                                    LO6ZEROS                              
049204,000362: 06,3773           24023                           STOVL    504LPL     +4                         
049205,000363: 06,3774           00017                                    504LPL                                
049206,000364: 06,3775           77616                           RVQ                                            
049207,000365: 

Page 1146

049209,000367:                                                                                                  #  CONSTANTS AND ERASABLE ASSIGNMENTS
049210,000368: 
049211,000369: 06,3776  12,2004               1B1                =        DP1/2                                 #  1  SCALED B-1
049212,000370: 06,3776  0000050               RPREXIT            =        S1                                    #  R-TO-RP AND RP-TO-R SUBR EXIT
049213,000371: 06,3776  0000051               EARTHMXX           =        S2                                    #  EARTHMX,MOONMX SUBR. EXITS
049214,000372: 06,3776                        504RPR             =        0D                                    #  6 REGS  R OR RP VECTOR
049215,000373: 06,3776                        SINNODI            =        8D                                    #  2       SIN(NODI)
049216,000374: 06,3776                        DVECTR             =        8D                                    #  6       D VECTOR MOON
049217,000375: 06,3776                        CVECTR             =        8D                                    #  6       C VECTR MOON
049218,000376: 06,3776                        504AZ              =        18D                                   #  2      AZ
049219,000377: 06,3776                        TIMSUBM            =        14D                                   #  3       TIME SUB M (MOON) T+T0 IN GETAZ
049220,000378: 06,3776                        504LPL             =        14D                                   #  6       L OR LP VECTOR
049221,000379: 06,3776                        AVECTR             =        20D                                   #  6       A VECTOR (MOON)
049222,000380: 06,3776                        BVECTR             =        26D                                   #  6       B VECTOR (MOON)
049223,000381: 06,3776                        MMATRIX            =        20D                                   #  18      M MATRIX
049224,000382: 06,3776                        COB                =        32D                                   #  2       COS(B) B-1
049225,000383: 06,3776                        SOB                =        34D                                   #  2       SIN(B) B-1
049226,000384: 06,3776                        504F               =        6D                                    #  2       F(MOON)
049227,000385: 

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