Source Code

These source-code files are part of a reconstructed copy of Luminary 96, the original release of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction began with reconstructed source code for Luminary 97. Changes between revisions 96 and 97 were backed out, as described by anomal report LNY-59. transcribed from a digitized copy of that program. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152D. Note that page numbers in the reconstructed code match those on the Luminary 099 revision 001 printout, although the added code would likely have changed page numbers for a real Luminary 96 listing.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

047582,000002:                                                                                                  ## Copyright:   Public domain.
047583,000003:                                                                                                  ## Filename:    PLANETARY_INERTIAL_ORIENTATION.agc
047584,000004:                                                                                                  ## Purpose:     A section of Luminary revision 96.
047585,000005:                                                                                                  ##              It is part of the reconstructed source code for the
047586,000006:                                                                                                  ##              original release of the flight software for the Lunar 
047587,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
047588,000008:                                                                                                  ##              The code has been recreated from a previously reconstructed
047589,000009:                                                                                                  ##              copy of Luminary 97 by undoing changes described in anomaly
047590,000010:                                                                                                  ##              report LNY-59. The code has been adapted such that the
047591,000011:                                                                                                  ##              resulting bugger words exactly match those specified for
047592,000012:                                                                                                  ##              Luminary 96 in NASA drawing 2021152D, which gives relatively
047593,000013:                                                                                                  ##              high confidence that the reconstruction is correct.
047594,000014:                                                                                                  ## Reference:   pp. 1140-1148
047595,000015:                                                                                                  ## Assembler:   yaYUL
047596,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
047597,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
047598,000018:                                                                                                  ## Mod history: 2019-08-04 MAS  Created from Luminary 97.
047599,000019: 

Page 1140

047601,000021:                                                                                                  #  ..... RP-TO-R SUBROUTINE .....
047602,000022:                                                                                                  #  SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
047603,000023:                                                                                                  #  EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
047604,000024: 
047605,000025:                                                                                                  #        R = MT(T) * (RP + LP X RP)      MT = M MATRIX TRANSPOSE
047606,000026: 
047607,000027:                                                                                                  #  CALLING SEQUENCE
047608,000028:                                                                                                  #        L       CALL
047609,000029:                                                                                                  #        L+1             RP-TO-R
047610,000030: 
047611,000031:                                                                                                  #  SUBROUTINES USED
047612,000032:                                                                                                  #        EARTHMX, MOONMX, EARTHL
047613,000033: 
047614,000034:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
047615,000035:                                                                                                  #                504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
047616,000036:                                                                                                  #                        IN THE MOON-FIXED COORD. SYSTEM         RADIANS B0
047617,000037: 
047618,000038:                                                                                                  #        ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
047619,000039: 
047620,000040:                                                                                                  #  INPUT
047621,000041:                                                                                                  #        MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
047622,000042:                                                                                                  #        0-5D = RP VECTOR
047623,000043:                                                                                                  #        6-7D = TIME
047624,000044: 
047625,000045:                                                                                                  #  OUTPUT
047626,000046:                                                                                                  #        MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047627,000047: 
047628,000048: 26,2000                                           SETLOC   PLANTIN1                              
047629,000049: 26,2000                                           BANK                                           
047630,000050: 
047631,000051: 26,3716                                           COUNT*   $$/LUROT                              
047632,000052: 
047633,000053: 26,3716           46020        RP-TO-R            STQ      BHIZ                                  
047634,000054: 26,3717           00050                                    RPREXIT                               
047635,000055: 26,3720           55733                                    RPTORA                                
047636,000056: 26,3721           77624                           CALL                                           #  COMPUTE M MATRIX FOR MOON
047637,000057: 26,3722           51720                                    MOONMX                                #  LP=LM FOR MOON  RADIANS B0
047638,000058: 26,3723           77775                           VLOAD                                          
047639,000059: 26,3724           02013                                    504LM                                 
047640,000060: 26,3725           53235        RPTORB             VXV      VAD                                   
047641,000061: 26,3726           00001                                    504RPR                                
047642,000062: 26,3727           00001                                    504RPR                                
047643,000063: 26,3730           52105                           VXM      GOTO                                  
047644,000064: 26,3731           00025                                    MMATRIX                               #  MPAC=R=MT(T)*(RP+LPXRP)
047645,000065: 26,3732           51706                                    RPRPXXXX                              #  RESET PUSHLOC TO 0 BEFORE EXITING
047646,000066: 26,3733           77624        RPTORA             CALL                                           #  EARTH COMPUTATIONS
047647,000067: 26,3734           55743                                    EARTHMX                               #  M MATRIX B-1
047648,000068: 26,3735           77624                           CALL                                           
047649,000069: 26,3736           15753                                    EARTHL                                #  L VECTOR RADIANS B0
047650,000070: 26,3737           76521                           MXV      VSL1                                  #  LP=M(T)*L  RAD B-0
047651,000071: 26,3740           00025                                    MMATRIX                               

Page 1141

047653,000073: 26,3741           77650                           GOTO                                           
047654,000074: 26,3742           55725                                    RPTORB                                
047655,000075: 24,2000                                           SETLOC   PLANTIN                               
047656,000076: 24,2000                                           BANK                                           
047657,000077: 24,3670                                           COUNT*   $$/LUROT                              
047658,000078: 

Page 1142

047660,000080:                                                                                                  #  ..... R-TO-RP SUBROUTINE .....
047661,000081:                                                                                                  #  SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
047662,000082:                                                                                                  #  (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
047663,000083: 
047664,000084:                                                                                                  #        RP = M(T) * (R - L X R)
047665,000085: 
047666,000086:                                                                                                  #  CALLING SEQUENCE
047667,000087:                                                                                                  #        L       CALL
047668,000088:                                                                                                  #        L+1             R-TO-RP
047669,000089: 
047670,000090:                                                                                                  #  SUBROUTINES USED
047671,000091:                                                                                                  #        EARTHMX, MOONMX, EARTHL
047672,000092: 
047673,000093:                                                                                                  #  INPUT
047674,000094:                                                                                                  #        MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
047675,000095:                                                                                                  #        0-5D = R VECTOR
047676,000096:                                                                                                  #        6-7D = TIME
047677,000097: 
047678,000098:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
047679,000099:                                                                                                  #                504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
047680,000100:                                                                                                  #                        IN THE MOON-FIXED COORD. SYSTEM   RADIANS B0
047681,000101: 
047682,000102:                                                                                                  #        ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
047683,000103: 
047684,000104:                                                                                                  #  OUTPUT
047685,000105:                                                                                                  #        MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
047686,000106: 
047687,000107: 24,3670           46020        R-TO-RP            STQ      BHIZ                                  
047688,000108: 24,3671           00050                                    RPREXIT                               
047689,000109: 24,3672           51712                                    RTORPA                                
047690,000110: 24,3673           77624                           CALL                                           
047691,000111: 24,3674           51720                                    MOONMX                                
047692,000112: 24,3675           61375                           VLOAD    VXM                                   
047693,000113: 24,3676           02013                                    504LM                                 #  LP=LM
047694,000114: 24,3677           00025                                    MMATRIX                               
047695,000115: 24,3700           77772                           VSL1                                           #  L = MT(T)*LP          RADIANS B0
047696,000116: 24,3701           51235        RTORPB             VXV      BVSU                                  
047697,000117: 24,3702           00001                                    504RPR                                
047698,000118: 24,3703           00001                                    504RPR                                
047699,000119: 24,3704           77721                           MXV                                            #  M(T)*(R-LXR)          B-2
047700,000120: 24,3705           00025                                    MMATRIX                               
047701,000121: 24,3706           40372        RPRPXXXX           VSL1     SETPD                                 
047702,000122: 24,3707           00001                                    0D                                    
047703,000123: 24,3710           77650                           GOTO                                           
047704,000124: 24,3711           00050                                    RPREXIT                               
047705,000125: 24,3712           77624        RTORPA             CALL                                           #  EARTH COMPUTATIONS
047706,000126: 24,3713           55743                                    EARTHMX                               
047707,000127: 24,3714           77624                           CALL                                           
047708,000128: 24,3715           15753                                    EARTHL                                
047709,000129: 24,3716           77650                           GOTO                                           #  MPAC=L=(-AX,-AY,0)    RAD B-0
047710,000130: 24,3717           51701                                    RTORPB                                
047711,000131: 

Page 1143

047713,000133:                                                                                                  #  ..... MOONMX SUBROUTINE .....
047714,000134:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
047715,000135: 
047716,000136:                                                                                                  #  CALLING SEQUENCE
047717,000137:                                                                                                  #        L       CALL
047718,000138:                                                                                                  #        L+1             MOONMX
047719,000139: 
047720,000140:                                                                                                  #  SUBROUTINES USED
047721,000141:                                                                                                  #        NEWANGLE
047722,000142: 
047723,000143:                                                                                                  #  INPUT
047724,000144:                                                                                                  #        6-7D = TIME
047725,000145: 
047726,000146:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
047727,000147:                                                                                                  #                BSUBO, BDOT
047728,000148:                                                                                                  #                TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
047729,000149:                                                                                                  #                COSI = COS(I)   B-1
047730,000150:                                                                                                  #                SINI = SIN(I)   B-1
047731,000151:                                                                                                  #                  I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
047732,000152:                                                                                                  #                  PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
047733,000153: 
047734,000154:                                                                                                  #  OUTPUT
047735,000155:                                                                                                  #        MMATRIX = 3X3 M MATRIX B-1      (STORED IN VAC AREA)
047736,000156: 
047737,000157: 24,3720           40220        MOONMX             STQ      SETPD                                 
047738,000158: 24,3721           00051                                    EARTHMXX                              
047739,000159: 24,3722           00011                                    8D                                    
047740,000160: 24,3723           77770                           AXT,1                                          #  B REQUIRES SL 0, SL 5 IN NEWANGLE
047741,000161: 24,3724           00005                                    5                                     
047742,000162: 24,3725           65345                           DLOAD    PDDL                                  #  PD 10D        8-9D=BSUBO
047743,000163: 24,3726           14017                                    BSUBO                                 #                10-11D=BDOT
047744,000164: 24,3727           14011                                    BDOT                                  
047745,000165: 24,3730           45006                           PUSH     CALL                                  #  PD 12D
047746,000166: 24,3731           53743                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= B   REVS B0
047747,000167: 24,3732           71406                           PUSH     COS                                   #  PD 10D
047748,000168: 24,3733           14041                           STODL    COB                                   #  PD 8D         COS(B) B-1
047749,000169: 24,3734           77756                           SIN                                            #                SIN(B) B-1
047750,000170: 24,3735           14043                           STODL    SOB                                   #  SETUP INPUT FOR NEWANGLE
047751,000171: 24,3736           14015                                    FSUBO                                 #                        8-9D=FSUBO
047752,000172: 24,3737           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D       10-11D=FDOT
047753,000173: 24,3740           14007                                    FDOT                                  
047754,000174: 24,3741           45170                           AXT,1    CALL                                  #  F REQUIRES SL 1, SL 6 IN NEWANGLE
047755,000175: 24,3742           00004                                    4                                     
047756,000176: 24,3743           53743                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= F REVS B0
047757,000177: 24,3744           14027                           STODL    AVECTR     +2                         #  SAVE F TEMP
047758,000178: 24,3745           14013                                    NODIO                                 #                        8-9D=NODIO
047759,000179: 24,3746           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D       10-11D=NODDOT
047760,000180: 24,3747           14005                                    NODDOT                                #                        MPAC=T
047761,000181: 24,3750           45170                           AXT,1    CALL                                  #  NODE REQUIRES SL 0, SL 5 IN NEWANGLE
047762,000182: 24,3751           00005                                    5                                     
047763,000183: 24,3752           53743                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= NODI REVS B0

Page 1144

047765,000185: 24,3753           71406                           PUSH     COS                                   #  PD 10D        8-9D= NODI REVS B0
047766,000186: 24,3754           77606                           PUSH                                           #  PD 12D        10-11D= COS(NODI) B-1
047767,000187: 24,3755           00025                           STORE    AVECTR                                
047768,000188: 24,3756           76405                           DMP      SL1R                                  
047769,000189: 24,3757           00041                                    COB                                   #                         COS(NODI) B-1
047770,000190: 24,3760           14035                           STODL    BVECTR     +2                         #  PD 10D  20-25D=AVECTR= COB*SIN(NODI)
047771,000191: 24,3761           76405                           DMP      SL1R                                  #                         SOB*SIN(NODI)
047772,000192: 24,3762           00043                                    SOB                                   
047773,000193: 24,3763           14037                           STODL    BVECTR     +4                         #  PD 8D
047774,000194: 24,3764           41556                           SIN      PUSH                                  #  PD 10D                -SIN(NODI) B-1
047775,000195: 24,3765           77676                           DCOMP                                          #          26-31D=BVECTR= COB*COS(NODI)
047776,000196: 24,3766           14033                           STODL    BVECTR                                #  PD 8D                  SOB*COS(NODI)
047777,000197: 24,3767           00027                                    AVECTR     +2                         #  MOVE F FROM TEMP LOC. TO 504F
047778,000198: 24,3770           14007                           STODL    504F                                  
047779,000199: 24,3771           76405                           DMP      SL1R                                  
047780,000200: 24,3772           00041                                    COB                                   
047781,000201: 24,3773           77650                           GOTO                                           
047782,000202: 24,3774           53671                                    MOONMXA                               
047783,000203: 
047784,000204: 25,3671                                           BANK     25                                    
047785,000205: 25,2000                                           SETLOC   PLANTIN3                              
047786,000206: 25,2000                                           BANK                                           
047787,000207: 25,3671                                           COUNT*   $$/LUROT                              
047788,000208: 
047789,000209: 25,3671           14027        MOONMXA            STODL    AVECTR     +2                         
047790,000210: 25,3672           00011                                    SINNODI                               #  8-9D=SIN(NODI) B-1
047791,000211: 25,3673           76405                           DMP      SL1R                                  
047792,000212: 25,3674           00043                                    SOB                                   
047793,000213: 25,3675           14031                           STODL    AVECTR     +4                         #                         0
047794,000214: 25,3676           06522                                    HI6ZEROS                              #        8-13D= CVECTR= -SOB  B-1
047795,000215: 25,3677           57525                           PDDL     DCOMP                                 #  PD 10D                COB
047796,000216: 25,3700           00043                                    SOB                                   
047797,000217: 25,3701           63325                           PDDL     PDVL                                  #  PD 12D THEN PD 14D
047798,000218: 25,3702           00041                                    COB                                   
047799,000219: 25,3703           00033                                    BVECTR                                
047800,000220: 25,3704           63361                           VXSC     PDVL                                  #  PD 20D        BVECTR*SINI  B-2
047801,000221: 25,3705           14003                                    SINI                                  
047802,000222: 25,3706           00011                                    CVECTR                                
047803,000223: 25,3707           53361                           VXSC     VAD                                   #  PD 14D        CVECTR*COSI  B-2
047804,000224: 25,3710           14001                                    COSI                                  
047805,000225: 25,3711           77772                           VSL1                                           
047806,000226: 25,3712           24041                           STOVL    MMATRIX    +12D                       #  PD 8D  M2=BVECTR*SINI+CVECTR*COSI  B-1
047807,000227: 25,3713           63361                           VXSC     PDVL                                  #  PD 14D
047808,000228: 25,3714           14003                                    SINI                                  #                CVECTR*SINI  B-2
047809,000229: 25,3715           00033                                    BVECTR                                
047810,000230: 25,3716           52361                           VXSC     VSU                                   #  PD 8D         BVECTR*COSI  B-2
047811,000231: 25,3717           14001                                    COSI                                  
047812,000232: 25,3720           65372                           VSL1     PDDL                                  #  PD 14D
047813,000233: 25,3721           00007                                    504F                                  #  8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI  B-1
047814,000234: 25,3722           74346                           COS      VXSC                                  

Page 1145

047816,000236: 25,3723           00011                                    DVECTR                                
047817,000237: 25,3724           73525                           PDDL     SIN                                   #  PD 20D  14-19D= DVECTR*COSF  B-2
047818,000238: 25,3725           00007                                    504F                                  
047819,000239: 25,3726           52361                           VXSC     VSU                                   #  PD 14D          AVECTR*SINF  B-2
047820,000240: 25,3727           00025                                    AVECTR                                
047821,000241: 25,3730           77772                           VSL1                                           
047822,000242: 25,3731           14033                           STODL    MMATRIX    +6                         #  M1= AVECTR*SINF-DVECTR*COSF  B-1
047823,000243: 25,3732           00007                                    504F                                  
047824,000244: 25,3733           74356                           SIN      VXSC                                  #  PD 8D
047825,000245: 25,3734           71525                           PDDL     COS                                   #  PD 14D  8-13D=DVECTR*SINF B-2
047826,000246: 25,3735           00007                                    504F                                  
047827,000247: 25,3736           53361                           VXSC     VAD                                   #  PD 8D         AVECTR*COSF B-2
047828,000248: 25,3737           00025                                    AVECTR                                
047829,000249: 25,3740           57572                           VSL1     VCOMP                                 
047830,000250: 25,3741           34025                           STCALL   MMATRIX                               #  M0= -(AVECTR*COSF+DVECTR*SINF)  B-1
047831,000251: 25,3742           00051                                    EARTHMXX                              
047832,000252: 
047833,000253:                                                                                                  #  COMPUTE X=X0+(XDOT)(T+T0)
047834,000254:                                                                                                  #  8-9D= XO (REVS B-0), PUSHLOC SET AT 12D
047835,000255:                                                                                                  #  10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
047836,000256:                                                                                                  #                        AND B+27 FOR FDOT
047837,000257:                                                                                                  #   X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NODDOT AND
047838,000258:                                                                                                  #                                        BDOT AND 4 FOR FDOT
047839,000259:                                                                                                  #  6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
047840,000260: 
047841,000261: 25,3743           54345        NEWANGLE           DLOAD    SR                                    #  ENTER PD 12D
047842,000262: 25,3744           00007                                    6D                                    
047843,000263: 25,3745           20617                                    14D                                   
047844,000264: 25,3746           72371                           TAD      TLOAD                                 #  CHANGE MODE TO TP
047845,000265: 25,3747           01707                                    TIMSUBO                               
047846,000266: 25,3750           00155                                    MPAC                                  
047847,000267: 25,3751           14017                           STODL    TIMSUBM                               #  T+T0 CSEC B-42
047848,000268: 25,3752           00020                                    TIMSUBM    +1                         
047849,000269: 25,3753           77605                           DMP                                            #  PD 10D        MULT BY XDOT IN 10-11D
047850,000270: 25,3754           43257                           SL*      DAD                                   #  PD 8D         ADD XO IN 8-9D AFTER SHIFTING
047851,000271: 25,3755           20206                                    5,1                                   #                SUCH THAT SCALING IS B-0
047852,000272: 25,3756           67206                           PUSH     SLOAD                                 #  PD 10D  SAVE PARTIAL (X0+XDOT*T) IN 8-9D
047853,000273: 25,3757           00017                                    TIMSUBM                               
047854,000274: 25,3760           41261                           SL       DMP                                   
047855,000275: 25,3761           20212                                    9D                                    
047856,000276: 25,3762           00013                                    10D                                   #  XDOT
047857,000277: 25,3763           43257                           SL*      DAD                                   #  PD 8D         SHIFT SUCH THAT THIS PART OF X
047858,000278: 25,3764           20213                                    10D,1                                 #                IS SCALED REVS/CSEC B-0
047859,000279: 25,3765           77600                           BOV                                            #  TURN OFF OVERFLOW IF SET BY SHIFT
047860,000280: 25,3766           53767                                    +1                                    #  INSTRUCTION BEFORE EXITING
047861,000281: 25,3767           77616                           RVQ                                            #  MPAC=X= X0+(XDOT)(T+T0)  REVS B0
047862,000282: 

Page 1146

047864,000284:                                                                                                  #  ..... EARTHMX SUBROUTINE .....
047865,000285:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
047866,000286: 
047867,000287:                                                                                                  #  CALLING SEQUENCE
047868,000288:                                                                                                  #        L       CALL
047869,000289:                                                                                                  #        L+1             EARTHMX
047870,000290: 
047871,000291:                                                                                                  #  SUBROUTINES USED
047872,000292:                                                                                                  #        NEWANGLE
047873,000293: 
047874,000294:                                                                                                  #  INPUT
047875,000295:                                                                                                  #        INPUT AVAILABLE FROM LAUNCH DATA        AZO  REVS B-0
047876,000296:                                                                                                  #                                                TEPHEM  CSEC B-42
047877,000297:                                                                                                  #        6-7D= TIME CSEC B-28
047878,000298: 
047879,000299:                                                                                                  #  OUTPUT
047880,000300:                                                                                                  #        MMATRIX= 3X3 M MATRIX B-1       (STORED IN VAC AREA)
047881,000301: 
047882,000302: 26,3743                                           BANK     26                                    
047883,000303: 26,2000                                           SETLOC   PLANTIN1                              
047884,000304: 26,2000                                           BANK                                           
047885,000305: 26,3743                                           COUNT*   $$/LUROT                              
047886,000306: 
047887,000307: 26,3743           40220        EARTHMX            STQ      SETPD                                 #  SET 8-9D=AZO
047888,000308: 26,3744           00051                                    EARTHMXX                              
047889,000309: 26,3745           00011                                    8D                                    #  10-11D=WEARTH
047890,000310: 26,3746           77770                           AXT,1                                          #  FOR SL 5, AND SL 10 IN NEWANGLE
047891,000311: 26,3747           00000                                    0                                     
047892,000312: 26,3750           65345                           DLOAD    PDDL                                  #  LEAVING PD SET AT 12D FOR NEWANGLE
047893,000313: 26,3751           01712                                    AZO                                   
047894,000314: 26,3752           14021                                    WEARTH                                
047895,000315: 26,3753           45006                           PUSH     CALL                                  
047896,000316: 26,3754           53743                                    NEWANGLE                              
047897,000317: 26,3755           41401                           SETPD    PUSH                                  #  18-19D=504AZ
047898,000318: 26,3756           00023                                    18D                                   #                         COS(AZ)   SIN(AZ)     0
047899,000319: 26,3757           65346                           COS      PDDL                                  #  20-37D=  MMATRIX=     -SIN(AZ)   COS(AZ)     0    B-1
047900,000320: 26,3760           00023                                    504AZ                                 #                            0         0        1
047901,000321: 26,3761           65356                           SIN      PDDL                                  
047902,000322: 26,3762           06522                                    HI6ZEROS                              
047903,000323: 26,3763           73525                           PDDL     SIN                                   
047904,000324: 26,3764           00023                                    504AZ                                 
047905,000325: 26,3765           65276                           DCOMP    PDDL                                  
047906,000326: 26,3766           00023                                    504AZ                                 
047907,000327: 26,3767           63346                           COS      PDVL                                  
047908,000328: 26,3770           06522                                    HI6ZEROS                              
047909,000329: 26,3771           41525                           PDDL     PUSH                                  
047910,000330: 26,3772           06520                                    HIDPHALF                              
047911,000331: 26,3773           77650                           GOTO                                           
047912,000332: 26,3774           00051                                    EARTHMXX                              
047913,000333: 

Page 1147

047915,000335:                                                                                                  #  ..... EARTHL SUBROUTINE .....
047916,000336:                                                                                                  #  SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
047917,000337: 
047918,000338:                                                                                                  #  CALLING SEQUENCE
047919,000339:                                                                                                  #        L       CALL
047920,000340:                                                                                                  #        L+1             EARTHL
047921,000341: 
047922,000342:                                                                                                  #  INPUT
047923,000343:                                                                                                  #        AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
047924,000344: 
047925,000345:                                                                                                  #  OUTPUT
047926,000346:                                                                                                  #                -AX
047927,000347:                                                                                                  #        MPAC=   -AY     RADIANS B-0
047928,000348:                                                                                                  #                  0
047929,000349: 
047930,000350: 06,3753                                           BANK     06                                    
047931,000351: 06,2000                                           SETLOC   EARTHLOC                              
047932,000352: 06,2000                                           BANK                                           
047933,000353: 06,3753                                           COUNT*   $$/LUROT                              
047934,000354: 
047935,000355: 06,3753           57545        EARTHL             DLOAD    DCOMP                                 
047936,000356: 06,3754           01716                                    AXO                                   
047937,000357: 06,3755           14017                           STODL    504LPL                                
047938,000358: 06,3756           01714                                    -AYO                                  
047939,000359: 06,3757           14021                           STODL    504LPL     +2                         
047940,000360: 06,3760           24007                                    LO6ZEROS                              
047941,000361: 06,3761           24023                           STOVL    504LPL     +4                         
047942,000362: 06,3762           00017                                    504LPL                                
047943,000363: 06,3763           77616                           RVQ                                            
047944,000364: 

Page 1148

047946,000366:                                                                                                  #  CONSTANTS AND ERASABLE ASSIGNMENTS
047947,000367: 
047948,000368: 06,3764  12,2004               1B1                =        DP1/2                                 #  1  SCALED B-1
047949,000369: 06,3764  0000050               RPREXIT            =        S1                                    #  R-TO-RP AND RP-TO-R SUBR EXIT
047950,000370: 06,3764  0000051               EARTHMXX           =        S2                                    #  EARTHMX, MOONMX SUBR. EXITS
047951,000371: 06,3764                        504RPR             =        0D                                    #  6 REGS        R OR RP VECTOR
047952,000372: 06,3764                        SINNODI            =        8D                                    #  2             SIN(NODI)
047953,000373: 06,3764                        DVECTR             =        8D                                    #  6             D VECTOR MOON
047954,000374: 06,3764                        CVECTR             =        8D                                    #  6             C VECTR MOON
047955,000375: 06,3764                        504AZ              =        18D                                   #  2             AZ
047956,000376: 06,3764                        TIMSUBM            =        14D                                   #  3             TIME SUB M (MOON) T+T0 IN GETAZ
047957,000377: 06,3764                        504LPL             =        14D                                   #  6             L OR LP VECTOR
047958,000378: 06,3764                        AVECTR             =        20D                                   #  6             A VECTOR (MOON)
047959,000379: 06,3764                        BVECTR             =        26D                                   #  6             B VECTOR (MOON)
047960,000380: 06,3764                        MMATRIX            =        20D                                   #  18            M MATRIX
047961,000381: 06,3764                        COB                =        32D                                   #  2             COS(B) B-1
047962,000382: 06,3764                        SOB                =        34D                                   #  2             SIN(B) B-1
047963,000383: 06,3764                        504F               =        6D                                    #  2             F(MOON)
047964,000384: 

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