Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

053225,000002:                                                                                                  ## Copyright:   Public domain.
053226,000003:                                                                                                  ## Filename:    PLANETARY_INERTIAL_ORIENTATION.agc
053227,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
053228,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
053229,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for 
053230,000007:                                                                                                  ##              Apollo 15-17.
053231,000008:                                                                                                  ## Assembler:   yaYUL
053232,000009:                                                                                                  ## Contact:     Sergio Navarro <sergionavarrog@gmail.com>
053233,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
053234,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
053235,000012:                                                                                                  ## Mod history: 2009-09-03 SN   Adapted from corresponding Comanche 055 file.
053236,000013:                                                                                                  ##              2009-09-05 JL   Fix typos. Remove code not in Artemis072.
053237,000014:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
053238,000015:                                                                                                  ##              2017-02-08 RSB  Proofed comment text by diff'ing vs Comanche 55.
053239,000016:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
053240,000017:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
053241,000018: 

Page 1243

053243,000020:                                                                                                  #  ..... RP-TO-R SUBROUTINE .....
053244,000021:                                                                                                  #  SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
053245,000022:                                                                                                  #  EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
053246,000023: 
053247,000024:                                                                                                  #        R = MT(T) * (RP + LP X RP)      MT = M MATRIX TRANSPOSE
053248,000025: 
053249,000026:                                                                                                  #  CALLING SEQUENCE
053250,000027:                                                                                                  #        L       CALL
053251,000028:                                                                                                  #        L+1             RP-TO-R
053252,000029: 
053253,000030:                                                                                                  #  SUBROUTINES USED
053254,000031:                                                                                                  #        EARTHMX, MOONMX, EARTHL
053255,000032: 
053256,000033:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
053257,000034:                                                                                                  #                504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
053258,000035:                                                                                                  #                IN THE MOON-FIXED COORD. SYSTEM         RADIANS  B0
053259,000036: 
053260,000037:                                                                                                  #        ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
053261,000038: 
053262,000039:                                                                                                  #  INPUT
053263,000040:                                                                                                  #        MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
053264,000041:                                                                                                  #        0-5D = RP VECTOR
053265,000042:                                                                                                  #        6-7D = TIME
053266,000043: 
053267,000044:                                                                                                  #  OUTPUT
053268,000045:                                                                                                  #        MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
053269,000046: 
053270,000047: 26,2000                                           SETLOC   PLANTIN                               
053271,000048: 26,2000                                           BANK                                           
053272,000049: 
053273,000050: 26,3345                                           COUNT*   $$/LUROT                              
053274,000051: 
053275,000052: 26,3345           46020        RP-TO-R            STQ      BHIZ                                  
053276,000053: 26,3346           00050                                    RPREXIT                               
053277,000054: 26,3347           55362                                    RPTORA                                
053278,000055: 26,3350           77624                           CALL                                           #  COMPUTE M MATRIX FOR MOON
053279,000056: 26,3351           55416                                    MOONMX                                #  LP=LM FOR MOON  RADIANS B0
053280,000057: 26,3352           77775                           VLOAD                                          
053281,000058: 26,3353           02012                                    504LM                                 
053282,000059: 26,3354           53235        RPTORB             VXV      VAD                                   
053283,000060: 26,3355           00001                                    504RPR                                
053284,000061: 26,3356           00001                                    504RPR                                
053285,000062: 26,3357           52105                           VXM      GOTO                                  
053286,000063: 26,3360           00025                                    MMATRIX                               #  MPAC=R=MT(T)*(RP+LPXRP)
053287,000064: 26,3361           55406                                    RPRPXXXX                              #  RESET PUSHLOC TO 0 BEFORE EXITING
053288,000065: 26,3362           77624        RPTORA             CALL                                           #  EARTH COMPUTATIONS
053289,000066: 26,3363           55567                                    EARTHMX                               #  M MATRIX B-1
053290,000067:                                                                                                  #  AND L VECTOR RADIANS B0
053291,000068: 26,3364           76521                           MXV      VSL1                                  #  LP=M(T)*L  RAD B-0
053292,000069: 26,3365           00025                                    MMATRIX                               
053293,000070: 26,3366           77650                           GOTO                                           

Page 1244

053295,000072: 26,3367           55354                                    RPTORB                                
053296,000073: 

Page 1245

053298,000075:                                                                                                  #  ..... R-TO-RP SUBROUTINE .....
053299,000076:                                                                                                  #  SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
053300,000077:                                                                                                  #  (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
053301,000078: 
053302,000079:                                                                                                  #        RP = M(T) * (R - L X R)
053303,000080: 
053304,000081:                                                                                                  #  CALLING SEQUENCE
053305,000082:                                                                                                  #        L       CALL
053306,000083:                                                                                                  #        L+1             R-TO-RP
053307,000084: 
053308,000085:                                                                                                  #  SUBROUTINES USED
053309,000086:                                                                                                  #        EARTHMX, MOONMX, EARTHL
053310,000087: 
053311,000088:                                                                                                  #  INPUT
053312,000089:                                                                                                  #        MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
053313,000090:                                                                                                  #        0-5D = R VECTOR
053314,000091:                                                                                                  #        6-7D = TIME
053315,000092: 
053316,000093:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
053317,000094:                                                                                                  #                504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
053318,000095:                                                                                                  #                IN THE MOON-FIXED COORD. SYSTEM   RADIANS B0
053319,000096: 
053320,000097:                                                                                                  #        ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
053321,000098: 
053322,000099:                                                                                                  #  OUTPUT
053323,000100:                                                                                                  #        MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
053324,000101: 
053325,000102: 26,3370           46020        R-TO-RP            STQ      BHIZ                                  
053326,000103: 26,3371           00050                                    RPREXIT                               
053327,000104: 26,3372           55412                                    RTORPA                                
053328,000105: 26,3373           77624                           CALL                                           
053329,000106: 26,3374           55416                                    MOONMX                                
053330,000107: 26,3375           61375                           VLOAD    VXM                                   
053331,000108: 26,3376           02012                                    504LM                                 #  LP=LM
053332,000109: 26,3377           00025                                    MMATRIX                               
053333,000110: 26,3400           77772                           VSL1                                           #  L = MT(T)*LP  RADIANS B0
053334,000111: 26,3401           51235        RTORPB             VXV      BVSU                                  
053335,000112: 26,3402           00001                                    504RPR                                
053336,000113: 26,3403           00001                                    504RPR                                
053337,000114: 26,3404           77721                           MXV                                            #  M(T)*(R-LXR)  B-2
053338,000115: 26,3405           00025                                    MMATRIX                               
053339,000116: 26,3406           40372        RPRPXXXX           VSL1     SETPD                                 
053340,000117: 26,3407           00001                                    0D                                    
053341,000118: 26,3410           77650                           GOTO                                           
053342,000119: 26,3411           00050                                    RPREXIT                               
053343,000120: 26,3412           77624        RTORPA             CALL                                           #  EARTH COMPUTATIONS
053344,000121: 26,3413           55567                                    EARTHMX                               
053345,000122: 26,3414           77650                           GOTO                                           #  MPAC=L=(-AX,-AY,0) RAD B-0
053346,000123: 26,3415           55401                                    RTORPB                                
053347,000124: 

Page 1246

053349,000126:                                                                                                  #  ..... MOONMX SUBROUTINE .....
053350,000127:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
053351,000128: 
053352,000129:                                                                                                  #  CALLING SEQUENCE
053353,000130:                                                                                                  #        L       CALL
053354,000131:                                                                                                  #        L+1             MOONMX
053355,000132: 
053356,000133:                                                                                                  #  SUBROUTINES USED
053357,000134:                                                                                                  #        NEWANGLE
053358,000135: 
053359,000136:                                                                                                  #  INPUT
053360,000137:                                                                                                  #        6-7D = TIME
053361,000138: 
053362,000139:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
053363,000140:                                                                                                  #                BSUBO, BDOT
053364,000141:                                                                                                  #                TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
053365,000142:                                                                                                  #                COSI = COS(I) B-1
053366,000143:                                                                                                  #                SINI = SIN(I) B-1
053367,000144:                                                                                                  #                I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
053368,000145:                                                                                                  #                PLANE OF THE ECLIPTIC  (1 DEGREE  32.1 MINUTES)
053369,000146: 
053370,000147:                                                                                                  #  OUTPUT
053371,000148:                                                                                                  #        MMATRIX = 3X3 M MATRIX B-1   (STORED IN VAC AREA)
053372,000149: 
053373,000150: 26,3416           40220        MOONMX             STQ      SETPD                                 
053374,000151: 26,3417           00051                                    EARTHMXX                              
053375,000152: 26,3420           00011                                    8D                                    
053376,000153: 26,3421           77770                           AXT,1                                          #  B REQUIRES SL 0, SL 5 IN NEWANGLE
053377,000154: 26,3422           00005                                    5                                     
053378,000155: 26,3423           65345                           DLOAD    PDDL                                  #  PD 10D                8-9D=BSUBO
053379,000156: 26,3424           15647                                    BSUBO                                 #                        10-11D=BDOT
053380,000157: 26,3425           15641                                    BDOT                                  
053381,000158: 26,3426           45006                           PUSH     CALL                                  #  PD 12D
053382,000159: 26,3427           55543                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= B  REVS B0
053383,000160: 26,3430           71406                           PUSH     COS                                   #  PD 10D
053384,000161: 26,3431           14041                           STODL    COB                                   #  PD 8D         COS(B) B-1
053385,000162: 26,3432           77756                           SIN                                            #                SIN(B) B-1
053386,000163: 26,3433           14043                           STODL    SOB                                   #                SETUP INPUT FOR NEWANGLE
053387,000164: 26,3434           15645                                    FSUBO                                 #                          8-9D=FSUBO
053388,000165: 26,3435           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D       10-11D=FDOT
053389,000166: 26,3436           15637                                    FDOT                                  
053390,000167: 26,3437           45170                           AXT,1    CALL                                  #  F REQUIRES SL 1, SL 6 IN NEWANGLE
053391,000168: 26,3440           00004                                    4                                     
053392,000169: 26,3441           55543                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= F REVS B0
053393,000170: 26,3442           14027                           STODL    AVECTR     +2                         #  SAVE F TEMP
053394,000171: 26,3443           15643                                    NODIO                                 #                          8-9D=NODIO
053395,000172: 26,3444           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D       10-11D=NODDOT
053396,000173: 26,3445           15635                                    NODDOT                                #                          MPAC=T
053397,000174: 26,3446           45170                           AXT,1    CALL                                  #  NODE REQUIRES SL 0, SL 5 IN NEWANGLE
053398,000175: 26,3447           00005                                    5                                     
053399,000176: 26,3450           55543                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= NODI REVS B0

Page 1247

053401,000178: 26,3451           71406                           PUSH     COS                                   #  PD 10D   8-9D= NODI  REVS  B0
053402,000179: 26,3452           77606                           PUSH                                           #  PD 12D 10-11D= COS(NODI)  B-1
053403,000180: 26,3453           00025                           STORE    AVECTR                                
053404,000181: 26,3454           76405                           DMP      SL1R                                  
053405,000182: 26,3455           00041                                    COB                                   #                          COS(NODI)     B-1
053406,000183: 26,3456           14035                           STODL    BVECTR     +2                         #  PD 10D   20-25D=AVECTR= COB*SIN(NODI)
053407,000184: 26,3457           76405                           DMP      SL1R                                  #                          SOB*SIN(NODI)
053408,000185: 26,3460           00043                                    SOB                                   
053409,000186: 26,3461           14037                           STODL    BVECTR     +4                         #  PD 8D
053410,000187: 26,3462           41556                           SIN      PUSH                                  #  PD 10D                 -SIN(NODI)     B-1
053411,000188: 26,3463           77676                           DCOMP                                          #           26-31D=BVECTR= COB*COS(NODI)
053412,000189: 26,3464           14033                           STODL    BVECTR                                #  PD 8D                   SOB*COS(NODI)
053413,000190: 26,3465           00027                                    AVECTR     +2                         #  MOVE F FROM TEMP LOC. TO 504F
053414,000191: 26,3466           14007                           STODL    504F                                  
053415,000192: 26,3467           76405                           DMP      SL1R                                  
053416,000193: 26,3470           00041                                    COB                                   
053417,000194: 26,3471           14027                           STODL    AVECTR     +2                         
053418,000195: 26,3472           00011                                    SINNODI                               #  8-9D=SIN(NODI)  B-1
053419,000196: 26,3473           76405                           DMP      SL1R                                  
053420,000197: 26,3474           00043                                    SOB                                   
053421,000198: 26,3475           14031                           STODL    AVECTR     +4                         #                          0
053422,000199: 26,3476           15336                                    HI6ZEROS                              #          8-13D= CVECTR= -SOB  B-1
053423,000200: 26,3477           57525                           PDDL     DCOMP                                 #  PD 10D                  COB
053424,000201: 26,3500           00043                                    SOB                                   
053425,000202: 26,3501           63325                           PDDL     PDVL                                  #  PD 12D THEN PD 14D
053426,000203: 26,3502           00041                                    COB                                   
053427,000204: 26,3503           00033                                    BVECTR                                
053428,000205: 26,3504           63361                           VXSC     PDVL                                  #  PD 20D         BVECTR*SINI  B-2
053429,000206: 26,3505           15633                                    SINI                                  
053430,000207: 26,3506           00011                                    CVECTR                                
053431,000208: 26,3507           53361                           VXSC     VAD                                   #  PD 14D         CVECTR*COSI  B-2
053432,000209: 26,3510           15631                                    COSI                                  
053433,000210: 26,3511           77772                           VSL1                                           
053434,000211: 26,3512           24041                           STOVL    MMATRIX    +12D                       #  PD 8D  M2=BVECTR*SINI+CVECTR*COSI  B-1
053435,000212: 26,3513           63361                           VXSC     PDVL                                  #  PD 14D
053436,000213: 26,3514           15633                                    SINI                                  #                 CVECTR*SINI  B-2
053437,000214: 26,3515           00033                                    BVECTR                                
053438,000215: 26,3516           52361                           VXSC     VSU                                   #  PD 8D          BVECTR*COSI  B-2
053439,000216: 26,3517           15631                                    COSI                                  
053440,000217: 26,3520           65372                           VSL1     PDDL                                  #  PD 14D
053441,000218: 26,3521           00007                                    504F                                  #  8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
053442,000219: 26,3522           74346                           COS      VXSC                                  
053443,000220: 26,3523           00011                                    DVECTR                                
053444,000221: 26,3524           73525                           PDDL     SIN                                   #  PD 20D  14-19D= DVECTR*COSF  B-2
053445,000222: 26,3525           00007                                    504F                                  
053446,000223: 26,3526           52361                           VXSC     VSU                                   #  PD 14D          AVECTR*SINF  B-2
053447,000224: 26,3527           00025                                    AVECTR                                
053448,000225: 26,3530           77772                           VSL1                                           
053449,000226: 26,3531           14033                           STODL    MMATRIX    +6                         #  M1= AVECTR*SINF-DVECTR*COSF  B-1
053450,000227: 26,3532           00007                                    504F                                  

Page 1248

053452,000229: 26,3533           74356                           SIN      VXSC                                  #  PD 8D
053453,000230: 26,3534           71525                           PDDL     COS                                   #  PD 14D  8-13D=DVECTR*SINF B-2
053454,000231: 26,3535           00007                                    504F                                  
053455,000232: 26,3536           53361                           VXSC     VAD                                   #  PD 8D         AVECTR*COSF B-2
053456,000233: 26,3537           00025                                    AVECTR                                
053457,000234: 26,3540           57572                           VSL1     VCOMP                                 
053458,000235: 26,3541           34025                           STCALL   MMATRIX                               #  M0= -(AVECTR*COSF+DVECTR*SINF)  B-1
053459,000236: 26,3542           00051                                    EARTHMXX                              
053460,000237: 
053461,000238:                                                                                                  #  COMPUTE X=X0+(XDOT)(T+T0)
053462,000239:                                                                                                  #  8-9D= XO (REVS B-0), PUSHLOC SET AT 12D
053463,000240:                                                                                                  #  10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
053464,000241:                                                                                                  #                        AND B+27 FOR FDOT
053465,000242:                                                                                                  #  X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NODDOT AND
053466,000243:                                                                                                  #                                        BDOT AND 4 FOR FDOT
053467,000244:                                                                                                  #  6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
053468,000245: 
053469,000246: 26,3543           54345        NEWANGLE           DLOAD    SR                                    #  ENTER PD 12D
053470,000247: 26,3544           00007                                    6D                                    
053471,000248: 26,3545           20617                                    14D                                   
053472,000249: 26,3546           72371                           TAD      TLOAD                                 #  CHANGE MODE TO TP
053473,000250: 26,3547           01707                                    TIMSUBO                               
053474,000251: 26,3550           00155                                    MPAC                                  
053475,000252: 26,3551           14017                           STODL    TIMSUBM                               #  T+T0 CSEC B-42
053476,000253: 26,3552           00020                                    TIMSUBM    +1                         
053477,000254: 26,3553           77605                           DMP                                            #  PD 10D  MULT BY XDOT IN 10-11D
053478,000255: 26,3554           43257                           SL*      DAD                                   #  PD 8D   ADD XO IN 8-9D AFTER SHIFTING
053479,000256: 26,3555           20206                                    5,1                                   #          SUCH THAT SCALING IS B-0
053480,000257: 26,3556           67206                           PUSH     SLOAD                                 #  PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
053481,000258: 26,3557           00017                                    TIMSUBM                               
053482,000259: 26,3560           41261                           SL       DMP                                   
053483,000260: 26,3561           20212                                    9D                                    
053484,000261: 26,3562           00013                                    10D                                   #  XDOT
053485,000262: 26,3563           43257                           SL*      DAD                                   #  PD 8D   SHIFT SUCH THAT THIS PART OF X
053486,000263: 26,3564           20213                                    10D,1                                 #          IS SCALED REVS/CSEC B-0
053487,000264: 26,3565           43400        HERE               BOV      RVQ                                   #  TURN OFF OVERFLOW IF SET BY SHIFT
053488,000265: 26,3566           55565                                    HERE                                  #        INSTRUCTION BEFORE EXITING
053489,000266:                                                                                                  #  MPAC=X=X0+(XDOT)(T+T0)  REVS B0
053490,000267: 

Page 1249

053492,000269:                                                                                                  #  ..... EARTHMX SUBROUTINE .....
053493,000270:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
053494,000271: 
053495,000272:                                                                                                  #  CALLING SEQUENCE
053496,000273:                                                                                                  #        L       CALL
053497,000274:                                                                                                  #        L+1             EARTHMX
053498,000275: 
053499,000276:                                                                                                  #  SUBROUTINES USED
053500,000277:                                                                                                  #        NEWANGLE
053501,000278: 
053502,000279:                                                                                                  #  INPUT
053503,000280:                                                                                                  #        INPUT AVAILABLE FROM LAUNCH DATA        AZO  REVS B-0
053504,000281:                                                                                                  #                                                TEPHEM  CSEC B-42
053505,000282:                                                                                                  #        6-7D= TIME CSEC B-28
053506,000283: 
053507,000284:                                                                                                  #  OUTPUT
053508,000285:                                                                                                  #        MMATRIX= 3X3 M MATRIX B-1   (STORED IN VAC AREA)
053509,000286: 
053510,000287: 26,3567           40220        EARTHMX            STQ      SETPD                                 #  SET 8-9D=AZO
053511,000288: 26,3570           00051                                    EARTHMXX                              
053512,000289: 26,3571           00011                                    8D                                    #  10-11D=WEARTH
053513,000290: 26,3572           77770                           AXT,1                                          #  FOR SL 5, AND SL 10  IN NEWANGLE
053514,000291: 26,3573           00000                                    0                                     
053515,000292: 26,3574           65345                           DLOAD    PDDL                                  #    LEAVING PD SET AT 12D FOR NEWANGLE
053516,000293: 26,3575           15653                                    AZO                                   
053517,000294: 26,3576           15651                                    WEARTH                                
053518,000295: 26,3577           45006                           PUSH     CALL                                  
053519,000296: 26,3600           55543                                    NEWANGLE                              
053520,000297: 26,3601           41401                           SETPD    PUSH                                  #  18-19D=504AZ
053521,000298: 26,3602           00023                                    18D                                   #                     COS(AZ) SIN(AZ) 0
053522,000299: 26,3603           65346                           COS      PDDL                                  #  20-37D=  MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
053523,000300: 26,3604           00023                                    504AZ                                 #                      0       0      1
053524,000301: 26,3605           65356                           SIN      PDDL                                  
053525,000302: 26,3606           15336                                    HI6ZEROS                              
053526,000303: 26,3607           73525                           PDDL     SIN                                   
053527,000304: 26,3610           00023                                    504AZ                                 
053528,000305: 26,3611           65276                           DCOMP    PDDL                                  
053529,000306: 26,3612           00023                                    504AZ                                 
053530,000307: 26,3613           63346                           COS      PDVL                                  
053531,000308: 26,3614           15336                                    HI6ZEROS                              
053532,000309: 26,3615           41525                           PDDL     PUSH                                  
053533,000310: 26,3616           15334                                    HIDPHALF                              

Page 1250

053535,000312:                                                                                                  #  ..... EARTHL SUBROUTINE .....
053536,000313:                                                                                                  #  SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
053537,000314: 
053538,000315:                                                                                                  #  CALLING SEQUENCE
053539,000316:                                                                                                  #        L       CALL
053540,000317:                                                                                                  #        L+1             EARTHL
053541,000318: 
053542,000319:                                                                                                  #  INPUT
053543,000320:                                                                                                  #        AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
053544,000321: 
053545,000322:                                                                                                  #  OUTPUT
053546,000323:                                                                                                  #                -AX
053547,000324:                                                                                                  #        MPAC=   -AY     RADIANS B-0
053548,000325:                                                                                                  #                  0
053549,000326: 
053550,000327: 26,3617           71201        EARTHL             SETPD    DLOAD                                 
053551,000328: 26,3620           00017                                    14D                                   
053552,000329: 26,3621           15336                                    HI6ZEROS                              
053553,000330: 26,3622           65325                           PDDL     PDDL                                  
053554,000331: 26,3623           01712                                    -AYO                                  
053555,000332: 26,3624           01714                                    AXO                                   
053556,000333: 26,3625           55476                           DCOMP    VDEF                                  
053557,000334: 26,3626           77650                           GOTO                                           
053558,000335: 26,3627           00051                                    EARTHMXX                              
053559,000336: 

Page 1251

053561,000338:                                                                                                  #  CONSTANTS AND ERASABLE ASSIGNMENTS
053562,000339: 
053563,000340: 26,3630  04,3757               1B1                =        DP1/2                                 #  1  SCALED B-1
053564,000341: 26,3630           17775 02052  COSI               2DEC*    9.996417320 E-1        B-1*            #  COS(5521.5 SEC.)
053565,000342: 26,3632           00333 10374  SINI               2DEC*    2.676579050 E-2        B-1*            #  SIN(5521.5 SEC.)
053566,000343: 26,3634  0000050               RPREXIT            =        S1                                    #  R-TO-RP AND RP-TO-R SUBR EXIT
053567,000344: 26,3634  0000051               EARTHMXX           =        S2                                    #  EARTHMX,MOONMX SUBR. EXITS
053568,000345: 26,3634                        504RPR             =        0D                                    #  6 REGS  R OR RP VECTOR
053569,000346: 26,3634                        SINNODI            =        8D                                    #  2       SIN(NODI)
053570,000347: 26,3634                        DVECTR             =        8D                                    #  6       D VECTOR MOON
053571,000348: 26,3634                        CVECTR             =        8D                                    #  6       C VECTR MOON
053572,000349: 26,3634                        504AZ              =        18D                                   #  2      AZ
053573,000350: 26,3634                        TIMSUBM            =        14D                                   #  3       TIME SUB M (MOON) T+T0 IN GETAZ
053574,000351: 26,3634                        504LPL             =        14D                                   #  6       L OR LP VECTOR
053575,000352: 26,3634                        AVECTR             =        20D                                   #  6       A VECTOR (MOON)
053576,000353: 26,3634                        BVECTR             =        26D                                   #  6       B VECTOR (MOON)
053577,000354: 26,3634                        MMATRIX            =        20D                                   #  18      M MATRIX
053578,000355: 26,3634                        COB                =        32D                                   #  2       COS(B) B-1
053579,000356: 26,3634                        SOB                =        34D                                   #  2       SIN(B) B-1
053580,000357: 26,3634                        504F               =        6D                                    #  2       F (MOON)
053581,000358: 26,3634           77665 42175  NODDOT             2DEC*    -1.703706128 E-11       B28*            #  REVS/CS.
053582,000359: 26,3636           22211 00636  FDOT               2DEC*    +4.253263471 E-9        B27*            #  REVS/CS.
053583,000360: 26,3640           77777 77767  BDOT               2DEC*    -1.145531390 E-16       B28*            #  REVS/CS.
053584,000361: 26,3642           34076 30363  NODIO              2DEC*    +8.788308600 E-1        B               #  REV.
053585,000362: 26,3644           24760 00133  FSUBO              2DEC*    +6.552737750 E-1        B               #  REV.
053586,000363: 26,3646           02052 35250  BSUBO              2DEC*    +6.511941688 E-2        B               #  REV.
053587,000364: 26,3650           37116 32631  WEARTH             2DEC*    +1.160576171 E-7        B23*            #  REV/CS.
053588,000365: 26,3652           30576 10326  AZO                2DEC*    +7.733314844 E-1        B               #  REVS.

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