Source Code

These source-code files derive from a printout of Luminary 116 (the Apollo 12 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Ron Burkey, 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 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

047809,000002:                                                                                                  ## Copyright:   Public domain.
047810,000003:                                                                                                  ## Filename:    PLANETARY_INERTIAL_ORIENTATION.agc
047811,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
047812,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM) 
047813,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
047814,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
047815,000008:                                                                                                  ##              that the code format has been changed to conform to the
047816,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
047817,000010:                                                                                                  ##              original YUL assembler.
047818,000011:                                                                                                  ## Reference:   pp. 1132-1140
047819,000012:                                                                                                  ## Assembler:   yaYUL
047820,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
047821,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
047822,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
047823,000016:                                                                                                  ##              2017-01-25 RRB  Updated for Luminary 116.
047824,000017:                                                                                                  ##              2017-03-14 RSB  Proofed comment text via 3-way diff vs
047825,000018:                                                                                                  ##                              Luminary 99 and 131.
047826,000019:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
047827,000020:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
047828,000021: 

Page 1132

047830,000023:                                                                                                  #  ..... RP-TO-R SUBROUTINE .....
047831,000024:                                                                                                  #  SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
047832,000025:                                                                                                  #   EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
047833,000026: 
047834,000027:                                                                                                  #   R=MT(T)*(RP+LPXRP)     MT = M MATRIX TRANSPOSE
047835,000028: 
047836,000029:                                                                                                  #  CALLING SEQUENCE
047837,000030:                                                                                                  #   L       CALL
047838,000031:                                                                                                  #   L+1             RP-TO-R
047839,000032: 
047840,000033:                                                                                                  #  SUBROUTINES USED
047841,000034:                                                                                                  #   EARTHMX, MOONMX, EARTHL
047842,000035: 
047843,000036:                                                                                                  #     ITEMS AVAILABLE FROM LAUNCH DATA
047844,000037:                                                                                                  #      504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
047845,000038:                                                                                                  #      IN THE MOON-FIXED COORD. SYSTEM    RADIANS  B0
047846,000039:                                                                                                  #         ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
047847,000040: 
047848,000041:                                                                                                  #  INPUT
047849,000042:                                                                                                  #   MPAC = 0 FOR EARTH,NON-ZERO FOR MOON
047850,000043:                                                                                                  #   0-5D = RP VECTOR
047851,000044:                                                                                                  #   6-7D = TIME
047852,000045: 
047853,000046:                                                                                                  #  OUTPUT
047854,000047:                                                                                                  #   MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047855,000048: 
047856,000049: 26,2000                                           SETLOC   PLANTIN1                              
047857,000050: 26,2000                                           BANK                                           
047858,000051: 
047859,000052: 26,3716                                           COUNT*   $$/LUROT                              
047860,000053: 
047861,000054: 26,3716           46020        RP-TO-R            STQ      BHIZ                                  
047862,000055: 26,3717           00050                                    RPREXIT                               
047863,000056: 26,3720           55733                                    RPTORA                                
047864,000057: 26,3721           77624                           CALL                                           #  COMPUTE M MATRIX FOR MOON
047865,000058: 26,3722           51727                                    MOONMX                                #  LP=LM FOR MOON  RADIANS B0
047866,000059: 26,3723           77775                           VLOAD                                          
047867,000060: 26,3724           02013                                    504LM                                 
047868,000061: 26,3725           53235        RPTORB             VXV      VAD                                   
047869,000062: 26,3726           00001                                    504RPR                                
047870,000063: 26,3727           00001                                    504RPR                                
047871,000064: 26,3730           52105                           VXM      GOTO                                  
047872,000065: 26,3731           00025                                    MMATRIX                               #  MPAC=R=MT(T)*(RP+LPXRP)
047873,000066: 26,3732           51715                                    RPRPXXXX                              #  RESET PUSHLOC TO 0 BEFORE EXITING
047874,000067: 26,3733           77624        RPTORA             CALL                                           #  EARTH COMPUTATIONS
047875,000068: 26,3734           55743                                    EARTHMX                               #  M MATRIX B-1
047876,000069: 26,3735           77624                           CALL                                           
047877,000070: 26,3736           15761                                    EARTHL                                #  L VECTOR RADIANS B0
047878,000071: 26,3737           76521                           MXV      VSL1                                  #  LP=M(T)*L  RAD B-0
047879,000072: 26,3740           00025                                    MMATRIX                               

Page 1133

047881,000074: 26,3741           77650                           GOTO                                           
047882,000075: 26,3742           55725                                    RPTORB                                
047883,000076: 24,2000                                           SETLOC   PLANTIN                               
047884,000077: 24,2000                                           BANK                                           
047885,000078: 24,3677                                           COUNT*   $$/LUROT                              
047886,000079: 

Page 1134

047888,000081:                                                                                                  #  ..... R-TO-RP SUBROUTINE .....
047889,000082:                                                                                                  #  SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
047890,000083:                                                                                                  #   (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
047891,000084: 
047892,000085:                                                                                                  #   RP=M(T)*(R-LXR)
047893,000086: 
047894,000087:                                                                                                  #  CALLING SEQUENCE
047895,000088:                                                                                                  #   L       CALL
047896,000089:                                                                                                  #   L+1             R-TO-RP
047897,000090: 
047898,000091:                                                                                                  #  SUBROUTINES USED
047899,000092:                                                                                                  #   EARTHMX,MOONMX,EARTHL
047900,000093: 
047901,000094:                                                                                                  #  INPUT
047902,000095:                                                                                                  #   MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
047903,000096:                                                                                                  #   0-5D= R VECTOR
047904,000097:                                                                                                  #   6-7D= TIME
047905,000098: 
047906,000099:                                                                                                  #     ITEMS AVAILABLE FROM LAUNCH DATA
047907,000100:                                                                                                  #      504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
047908,000101:                                                                                                  #      IN THE MOON-FIXED COORD. SYSTEM   RADIANS B0
047909,000102:                                                                                                  #        ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
047910,000103: 
047911,000104:                                                                                                  #  OUTPUT
047912,000105:                                                                                                  #   MPAC=RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047913,000106: 
047914,000107: 24,3677           46020        R-TO-RP            STQ      BHIZ                                  
047915,000108: 24,3700           00050                                    RPREXIT                               
047916,000109: 24,3701           51721                                    RTORPA                                
047917,000110: 24,3702           77624                           CALL                                           
047918,000111: 24,3703           51727                                    MOONMX                                
047919,000112: 24,3704           61375                           VLOAD    VXM                                   
047920,000113: 24,3705           02013                                    504LM                                 #  LP=LM
047921,000114: 24,3706           00025                                    MMATRIX                               
047922,000115: 24,3707           77772                           VSL1                                           #   L=MT(T)*LP  RADIANS B0
047923,000116: 24,3710           51235        RTORPB             VXV      BVSU                                  
047924,000117: 24,3711           00001                                    504RPR                                
047925,000118: 24,3712           00001                                    504RPR                                
047926,000119: 24,3713           77721                           MXV                                            #  M(T)*(R-LXR) B-2
047927,000120: 24,3714           00025                                    MMATRIX                               
047928,000121: 24,3715           40372        RPRPXXXX           VSL1     SETPD                                 
047929,000122: 24,3716           00001                                    0D                                    
047930,000123: 24,3717           77650                           GOTO                                           
047931,000124: 24,3720           00050                                    RPREXIT                               
047932,000125: 24,3721           77624        RTORPA             CALL                                           #  EARTH COMPUTATIONS
047933,000126: 24,3722           55743                                    EARTHMX                               
047934,000127: 24,3723           77624                           CALL                                           
047935,000128: 24,3724           15761                                    EARTHL                                
047936,000129: 24,3725           77650                           GOTO                                           #  MPAC=L=(-AX,-AY,0) RAD B-0
047937,000130: 24,3726           51710                                    RTORPB                                
047938,000131: 

Page 1135

047940,000133:                                                                                                  #  ..... MOONMX SUBROUTINE .....
047941,000134:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
047942,000135: 
047943,000136:                                                                                                  #  CALLING SEQUENCE
047944,000137:                                                                                                  #   L       CALL
047945,000138:                                                                                                  #   L+1             MOONMX
047946,000139: 
047947,000140:                                                                                                  #  SUBROUTINES USED
047948,000141:                                                                                                  #   NEWANGLE
047949,000142: 
047950,000143:                                                                                                  #  INPUT
047951,000144:                                                                                                  #   6-7D= TIME
047952,000145:                                                                                                  #     ITEMS AVAILABLE FROM LAUNCH DATA
047953,000146:                                                                                                  #      BSUBO,BDOT
047954,000147:                                                                                                  #      TIMSUBO,NODIO,NODDOT,FSUBO,FDOT
047955,000148:                                                                                                  #      COSI = COS(I) B-1
047956,000149:                                                                                                  #      SINI = SIN(I) B-1
047957,000150:                                                                                                  #        I  IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
047958,000151:                                                                                                  #        PLANE OF THE ECLIPTIC   (1 DEGREE 32.1 MINUTES)
047959,000152: 
047960,000153:                                                                                                  #  OUTPUT
047961,000154:                                                                                                  #   MMATRIX = 3X3 M MATRIX B-1   (STORED IN VAC AREA)
047962,000155: 
047963,000156: 24,3727           40220        MOONMX             STQ      SETPD                                 
047964,000157: 24,3730           00051                                    EARTHMXX                              
047965,000158: 24,3731           00011                                    8D                                    
047966,000159: 24,3732           77770                           AXT,1                                          #  B REQUIRES SL 0, SL 5 IN NEWANGLE
047967,000160: 24,3733           00005                                    5                                     
047968,000161: 24,3734           65345                           DLOAD    PDDL                                  #  PD 10D            8-9D=BSUBO
047969,000162: 24,3735           14017                                    BSUBO                                 #                    10-11D=BDOT
047970,000163: 24,3736           14011                                    BDOT                                  
047971,000164: 24,3737           45006                           PUSH     CALL                                  #  PD 12D
047972,000165: 24,3740           53712                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= B  REVS B0
047973,000166: 24,3741           71406                           PUSH     COS                                   #  PD 10D
047974,000167: 24,3742           14041                           STODL    COB                                   #  PD 8D   COS(B) B-1
047975,000168: 24,3743           77756                           SIN                                            #          SIN(B) B-1
047976,000169: 24,3744           14043                           STODL    SOB                                   #           SETUP INPUT FOR NEWANGLE
047977,000170: 24,3745           14015                                    FSUBO                                 #                     8-9D=FSUBO
047978,000171: 24,3746           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D  10-11D=FDOT
047979,000172: 24,3747           14007                                    FDOT                                  
047980,000173: 24,3750           45170                           AXT,1    CALL                                  #  F REQUIRES SL 1, SL 6 IN NEWANGLE
047981,000174: 24,3751           00004                                    4                                     
047982,000175: 24,3752           53712                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= F REVS B0
047983,000176: 24,3753           14027                           STODL    AVECTR     +2                         #  SAVE F TEMP
047984,000177: 24,3754           14013                                    NODIO                                 #                      8-9D=NODIO
047985,000178: 24,3755           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D   10-11D=NODDOT
047986,000179: 24,3756           14005                                    NODDOT                                #                      MPAC=T
047987,000180: 24,3757           45170                           AXT,1    CALL                                  #  NODE REQUIRES SL 0, SL 5 IN NEWANGLE
047988,000181: 24,3760           00005                                    5                                     
047989,000182: 24,3761           53712                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= NODI REVS B0

Page 1136

047991,000184: 24,3762           71406                           PUSH     COS                                   #  PD 10D   8-9D= NODI REVS B0
047992,000185: 24,3763           77606                           PUSH                                           #  PD 12D 10-11D= COS(NODI) B-1
047993,000186: 24,3764           00025                           STORE    AVECTR                                
047994,000187: 24,3765           76405                           DMP      SL1R                                  
047995,000188: 24,3766           00041                                    COB                                   #                         COS(NODI)     B-1
047996,000189: 24,3767           14035                           STODL    BVECTR     +2                         #  PD 10D   20-25D=AVECTR= COB*SIN(NODI)
047997,000190: 24,3770           76405                           DMP      SL1R                                  #                          SOB*SIN(NODI)
047998,000191: 24,3771           00043                                    SOB                                   
047999,000192: 24,3772           14037                           STODL    BVECTR     +4                         #  PD 8D
048000,000193: 24,3773           41556                           SIN      PUSH                                  #  PD 10D                 -SIN(NODI)   B-1
048001,000194: 24,3774           52076                           DCOMP    GOTO                                  #           26-31D=BVECTR= COV*COS(NODI)
048002,000195: 24,3775           53633                                    MOONMXA                               
048003,000196: 25,3633                                           BANK     25                                    
048004,000197: 25,2000                                           SETLOC   PLANTIN3                              
048005,000198: 25,2000                                           BANK                                           
048006,000199: 25,3633                                           COUNT*   $$/LUROT                              
048007,000200: 
048008,000201: 25,3633           14033        MOONMXA            STODL    BVECTR                                #  PD 8D                    SOB*COS(NODI)
048009,000202: 25,3634           00027                                    AVECTR     +2                         #  MOVE F FROM TEMP LOC. TO 504F
048010,000203: 25,3635           14007                           STODL    504F                                  
048011,000204: 25,3636           76405                           DMP      SL1R                                  
048012,000205: 25,3637           00041                                    COB                                   
048013,000206: 25,3640           14027                           STODL    AVECTR     +2                         
048014,000207: 25,3641           00011                                    SINNODI                               #  8-9D=SIN(NODI)  B-1
048015,000208: 25,3642           76405                           DMP      SL1R                                  
048016,000209: 25,3643           00043                                    SOB                                   
048017,000210: 25,3644           14031                           STODL    AVECTR     +4                         #                           0
048018,000211: 25,3645           06524                                    HI6ZEROS                              #          8-13D= CVECTR= -SOB  B-1
048019,000212: 25,3646           57525                           PDDL     DCOMP                                 #  PD 10D                  COB
048020,000213: 25,3647           00043                                    SOB                                   
048021,000214: 25,3650           63325                           PDDL     PDVL                                  #  PD 12D THEN PD 14D
048022,000215: 25,3651           00041                                    COB                                   
048023,000216: 25,3652           00033                                    BVECTR                                
048024,000217: 25,3653           63361                           VXSC     PDVL                                  #  PD 20D          BVECTR*SINI  B-2
048025,000218: 25,3654           14003                                    SINI                                  
048026,000219: 25,3655           00011                                    CVECTR                                
048027,000220: 25,3656           53361                           VXSC     VAD                                   #  PD 14D          CVECTR*COSI  B-2
048028,000221: 25,3657           14001                                    COSI                                  
048029,000222: 25,3660           77772                           VSL1                                           
048030,000223: 25,3661           24041                           STOVL    MMATRIX    +12D                       #  PD 8D  M2=BVECTR*SINI+CVECTR*COSI   B-1
048031,000224: 25,3662           63361                           VXSC     PDVL                                  #  PD 14D
048032,000225: 25,3663           14003                                    SINI                                  #                 CVECTR*SINI  B-2
048033,000226: 25,3664           00033                                    BVECTR                                
048034,000227: 25,3665           52361                           VXSC     VSU                                   #  PD 8D          BVECTR*COSI  B-2
048035,000228: 25,3666           14001                                    COSI                                  
048036,000229: 25,3667           65372                           VSL1     PDDL                                  #  PD 14D
048037,000230: 25,3670           00007                                    504F                                  #  8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
048038,000231: 25,3671           74346                           COS      VXSC                                  
048039,000232: 25,3672           00011                                    DVECTR                                
048040,000233: 25,3673           73525                           PDDL     SIN                                   #  PD 20D  14-19D= DVECTR*COSF B-2

Page 1137

048042,000235: 25,3674           00007                                    504F                                  
048043,000236: 25,3675           52361                           VXSC     VSU                                   #  PD 14D          AVECTR*SINF  B-2
048044,000237: 25,3676           00025                                    AVECTR                                
048045,000238: 25,3677           77772                           VSL1                                           
048046,000239: 25,3700           14033                           STODL    MMATRIX    +6                         #  M1= AVECTR*SINF-DVECTR*COSF  B-1
048047,000240: 25,3701           00007                                    504F                                  
048048,000241: 25,3702           74356                           SIN      VXSC                                  #  PD 8D
048049,000242: 25,3703           71525                           PDDL     COS                                   #  PD 14D  8-13D=DVECTR*SINF B-2
048050,000243: 25,3704           00007                                    504F                                  
048051,000244: 25,3705           53361                           VXSC     VAD                                   #  PD 8D         AVECTR*COSF B-2
048052,000245: 25,3706           00025                                    AVECTR                                
048053,000246: 25,3707           57572                           VSL1     VCOMP                                 
048054,000247: 25,3710           34025                           STCALL   MMATRIX                               #  M0= -(AVECTR*COSF+DVECTR*SINF)  B-1
048055,000248: 25,3711           00051                                    EARTHMXX                              
048056,000249: 
048057,000250:                                                                                                  #  COMPUTE X=X0+(XDOT)(T+T0)
048058,000251:                                                                                                  #  8-9D= XO (REVS B-0),PUSHLOC SET AT 12D
048059,000252:                                                                                                  #  10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
048060,000253:                                                                                                  #                          AND B+27 FOR FDOT
048061,000254:                                                                                                  #   X1=DIFFERENCE IN 23 AND SCALING OF XDOT,=0 FOR WEARTH, 5 FOR NODDOT AND
048062,000255:                                                                                                  #                                           BDOT AND 4 FOR FDOT
048063,000256:                                                                                                  #  6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
048064,000257: 
048065,000258: 25,3712           54345        NEWANGLE           DLOAD    SR                                    #  ENTER PD 12D
048066,000259: 25,3713           00007                                    6D                                    
048067,000260: 25,3714           20617                                    14D                                   
048068,000261: 25,3715           72371                           TAD      TLOAD                                 #  CHANGE MODE TO TP
048069,000262: 25,3716           01707                                    TIMSUBO                               
048070,000263: 25,3717           00155                                    MPAC                                  
048071,000264: 25,3720           14017                           STODL    TIMSUBM                               #  T+T0 CSEC B-42
048072,000265: 25,3721           00020                                    TIMSUBM    +1                         
048073,000266: 25,3722           77605                           DMP                                            #  PD 10D  MULT BY XDOT IN 10-11D
048074,000267: 25,3723           43257                           SL*      DAD                                   #  PD 8D   ADD XO IN 8-9D AFTER SHIFTING
048075,000268: 25,3724           20206                                    5,1                                   #          SUCH THAT SCALING IS B-0
048076,000269: 25,3725           67206                           PUSH     SLOAD                                 #  PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
048077,000270: 25,3726           00017                                    TIMSUBM                               
048078,000271: 25,3727           41261                           SL       DMP                                   
048079,000272: 25,3730           20212                                    9D                                    
048080,000273: 25,3731           00013                                    10D                                   #  XDOT
048081,000274: 25,3732           43257                           SL*      DAD                                   #  PD 8D    SHIFT SUCH THAT THIS PART OF X
048082,000275: 25,3733           20213                                    10D,1                                 #           IS SCALED REVS/CSEC B-0
048083,000276: 25,3734           77600                           BOV                                            #  TURN OFF OVERFLOW IF SET BY SHIFT
048084,000277: 25,3735           53736                                    +1                                    #  INSTRUCTION BEFORE EXITING
048085,000278: 25,3736           77616                           RVQ                                            #  MPAC=X= X0+(XDOT)(T+T0)  REVS B0
048086,000279: 

Page 1138

048088,000281:                                                                                                  #  ..... EARTHMX SUBROUTINE .....
048089,000282:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
048090,000283: 
048091,000284:                                                                                                  #  CALLING SEQUENCE
048092,000285:                                                                                                  #   L       CALL
048093,000286:                                                                                                  #   L+1             EARTHMX
048094,000287: 
048095,000288:                                                                                                  #  SUBROUTINES USED
048096,000289:                                                                                                  #   NEWANGLE
048097,000290: 
048098,000291:                                                                                                  #  INPUT
048099,000292:                                                                                                  #   INPUT AVAILABLE FROM LAUNCH DATA       AZO  REVS B-0
048100,000293:                                                                                                  #                                          TEPHEM  CSEC B-42
048101,000294:                                                                                                  #    6-7D= TIME CSEC B-28
048102,000295: 
048103,000296:                                                                                                  #  OUTPUT
048104,000297:                                                                                                  #   MMATRIX= 3X3 M MATRIX B-1   (STORED IN VAC AREA)
048105,000298: 
048106,000299: 26,3743                                           BANK     26                                    
048107,000300: 26,2000                                           SETLOC   PLANTIN1                              
048108,000301: 26,2000                                           BANK                                           
048109,000302: 26,3743                                           COUNT*   $$/LUROT                              
048110,000303: 
048111,000304: 26,3743           40220        EARTHMX            STQ      SETPD                                 #  SET   8-9D=AZO
048112,000305: 26,3744           00051                                    EARTHMXX                              
048113,000306: 26,3745           00011                                    8D                                    #  10-11D=WEARTH
048114,000307: 26,3746           77770                           AXT,1                                          #  FOR SL 5, AND SL 10 IN NEWANGLE
048115,000308: 26,3747           00000                                    0                                     
048116,000309: 26,3750           65345                           DLOAD    PDDL                                  #    LEAVING PD SET AT 12D FOR NEWANGLE
048117,000310: 26,3751           01712                                    AZO                                   
048118,000311: 26,3752           14021                                    WEARTH                                
048119,000312: 26,3753           45006                           PUSH     CALL                                  
048120,000313: 26,3754           53712                                    NEWANGLE                              
048121,000314: 26,3755           41401                           SETPD    PUSH                                  #  18-19D=504AZ
048122,000315: 26,3756           00023                                    18D                                   #                     COS(AZ) SIN(AZ) 0
048123,000316: 26,3757           65346                           COS      PDDL                                  #  20-37D=  MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
048124,000317: 26,3760           00023                                    504AZ                                 #                      0       0      1
048125,000318: 26,3761           65356                           SIN      PDDL                                  
048126,000319: 26,3762           06524                                    HI6ZEROS                              
048127,000320: 26,3763           73525                           PDDL     SIN                                   
048128,000321: 26,3764           00023                                    504AZ                                 
048129,000322: 26,3765           65276                           DCOMP    PDDL                                  
048130,000323: 26,3766           00023                                    504AZ                                 
048131,000324: 26,3767           63346                           COS      PDVL                                  
048132,000325: 26,3770           06524                                    HI6ZEROS                              
048133,000326: 26,3771           41525                           PDDL     PUSH                                  
048134,000327: 26,3772           06522                                    HIDPHALF                              
048135,000328: 26,3773           77650                           GOTO                                           
048136,000329: 26,3774           00051                                    EARTHMXX                              
048137,000330: 

Page 1139

048139,000332:                                                                                                  #  ..... EARTHL SUBROUTINE .....
048140,000333:                                                                                                  #  SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
048141,000334: 
048142,000335:                                                                                                  #  CALLING SEQUENCE
048143,000336:                                                                                                  #   L       CALL
048144,000337:                                                                                                  #   L+1             EARTHL
048145,000338: 
048146,000339:                                                                                                  #  INPUT
048147,000340:                                                                                                  #   AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
048148,000341: 
048149,000342:                                                                                                  #  OUTPUT
048150,000343:                                                                                                  #            -AX
048151,000344:                                                                                                  #    MPAC=   -AY     RADIANS B-0
048152,000345:                                                                                                  #              0
048153,000346: 
048154,000347: 06,3761                                           BANK     06                                    
048155,000348: 06,2000                                           SETLOC   EARTHLOC                              
048156,000349: 06,2000                                           BANK                                           
048157,000350: 06,3761                                           COUNT*   $$/LUROT                              
048158,000351: 
048159,000352: 06,3761           57545        EARTHL             DLOAD    DCOMP                                 
048160,000353: 06,3762           01716                                    AXO                                   
048161,000354: 06,3763           14017                           STODL    504LPL                                
048162,000355: 06,3764           01714                                    -AYO                                  
048163,000356: 06,3765           14021                           STODL    504LPL     +2                         
048164,000357: 06,3766           24007                                    LO6ZEROS                              
048165,000358: 06,3767           24023                           STOVL    504LPL     +4                         
048166,000359: 06,3770           00017                                    504LPL                                
048167,000360: 06,3771           77616                           RVQ                                            
048168,000361: 

Page 1140

048170,000363:                                                                                                  #  CONSTANTS AND ERASABLE ASSIGNMENTS
048171,000364: 
048172,000365: 06,3772  12,2004               1B1                =        DP1/2                                 #  1  SCALED B-1
048173,000366: 06,3772  0000050               RPREXIT            =        S1                                    #  R-TO-RP AND RP-TO-R SUBR EXIT
048174,000367: 06,3772  0000051               EARTHMXX           =        S2                                    #  EARTHMX, MOONMX SUBR. EXITS
048175,000368: 06,3772                        504RPR             =        0D                                    #  6 REGS   R OR RP VECTOR
048176,000369: 06,3772                        SINNODI            =        8D                                    #  2        SIN(NODI)
048177,000370: 06,3772                        DVECTR             =        8D                                    #  6        D VECTOR MOON
048178,000371: 06,3772                        CVECTR             =        8D                                    #  6        C VECTR MOON
048179,000372: 06,3772                        504AZ              =        18D                                   #  2       AZ
048180,000373: 06,3772                        TIMSUBM            =        14D                                   #  3        TIME SUB M (MOON) T+T0 IN GETAZ
048181,000374: 06,3772                        504LPL             =        14D                                   #  6        L OR LP VECTOR
048182,000375: 06,3772                        AVECTR             =        20D                                   #  6        A VECTOR (MOON)
048183,000376: 06,3772                        BVECTR             =        26D                                   #  6        B VECTOR (MOON)
048184,000377: 06,3772                        MMATRIX            =        20D                                   #  18       M MATRIX
048185,000378: 06,3772                        COB                =        32D                                   #  2        COS(B) B-1
048186,000379: 06,3772                        SOB                =        34D                                   #  2        SIN(B) B-1
048187,000380: 06,3772                        504F               =        6D                                    #  2        F (MOON)
048188,000381: 

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