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.

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

Page 1243

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

Page 1244

053283,000072: 26,3367           55354                                    RPTORB                                
053284,000073: 

Page 1245

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

Page 1246

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

Page 1247

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

Page 1248

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

Page 1249

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

Page 1250

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

Page 1251

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