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.

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

Page 1243

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

Page 1244

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

Page 1245

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

Page 1246

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

Page 1247

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

Page 1248

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

Page 1249

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

Page 1250

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

Page 1251

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