Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are 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 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

054115,000002:                                                                                                  ## Copyright:   Public domain.
054116,000003:                                                                                                  ## Filename:    PLANETARY_INERTIAL_ORIENTATION.agc
054117,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
054118,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
054119,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
054120,000007:                                                                                                  ## Assembler:   yaYUL
054121,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
054122,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
054123,000010:                                                                                                  ## Pages:       1243-1251
054124,000011:                                                                                                  ## Mod history: 2009-05-14 RSB  Adapted from the Colossus249/ file of the
054125,000012:                                                                                                  ##                              same name, using Comanche055 page images.
054126,000013:                                                                                                  ##              2016-12-21 RSB  Proofed comment text using octopus/ProoferComments
054127,000014:                                                                                                  ##                              and corrected the errors found.
054128,000015:                                                                                                  ##              2017-01-18 RSB  Fixed comment-text errors noted while diff'ing
054129,000016:                                                                                                  ##                              vs Colossus 249.
054130,000017:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
054131,000018:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
054132,000019: 
054133,000020:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
054134,000021:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
054135,000022:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
054136,000023:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
054137,000024:                                                                                                  ## consequent reduction in image quality as well) are available online at
054138,000025:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
054139,000026:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
054140,000027:                                                                                                  ## (much) higher-quality images which Paul actually created.
054141,000028:                                                                                                  ##
054142,000029:                                                                                                  ## Notations on the hardcopy document read, in part:
054143,000030:                                                                                                  ##
054144,000031:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
054145,000032:                                                                                                  ##      2021113-051.  10:28 APR. 1, 1969  
054146,000033:                                                                                                  ##
054147,000034:                                                                                                  ##      This AGC program shall also be referred to as
054148,000035:                                                                                                  ##                      Colossus 2A
054149,000036: 

Page 1243

054151,000038:                                                                                                  #  ..... RP-TO-R SUBROUTINE .....
054152,000039:                                                                                                  #  SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
054153,000040:                                                                                                  #  EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
054154,000041:                                                                                                  #        R = MT(T) * (RP + LP X RP)      MT = M MATRIX TRANSPOSE
054155,000042: 
054156,000043:                                                                                                  #  CALLING SEQUENCE
054157,000044:                                                                                                  #        L       CALL
054158,000045:                                                                                                  #        L+1             RP-TO-R
054159,000046: 
054160,000047:                                                                                                  #  SUBROUTINES USED
054161,000048:                                                                                                  #        EARTHMX, MOONMX, EARTHL
054162,000049: 
054163,000050:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
054164,000051:                                                                                                  #                504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
054165,000052:                                                                                                  #                IN THE MOON-FIXED COORD. SYSTEM         RADIANS B0
054166,000053: 
054167,000054:                                                                                                  #        ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
054168,000055: 
054169,000056:                                                                                                  #  INPUT
054170,000057:                                                                                                  #        MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
054171,000058:                                                                                                  #        0-5D = RP VECTOR
054172,000059:                                                                                                  #        6-7D = TIME
054173,000060: 
054174,000061:                                                                                                  #  OUTPUT
054175,000062:                                                                                                  #        MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
054176,000063: 
054177,000064: 26,2000                                           SETLOC   PLANTIN                               
054178,000065: 26,2000                                           BANK                                           
054179,000066: 
054180,000067: 26,3344                                           COUNT*   $$/LUROT                              
054181,000068: 
054182,000069: 26,3344           46020        RP-TO-R            STQ      BHIZ                                  
054183,000070: 26,3345           00050                                    RPREXIT                               
054184,000071: 26,3346           55361                                    RPTORA                                
054185,000072: 26,3347           77624                           CALL                                           #  COMPUTE M MATRIX FOR MOON
054186,000073: 26,3350           55421                                    MOONMX                                #  LP=LM FOR MOON        RADIANS B0
054187,000074: 26,3351           77775                           VLOAD                                          
054188,000075: 26,3352           02012                                    504LM                                 
054189,000076: 26,3353           53235        RPTORB             VXV      VAD                                   
054190,000077: 26,3354           00001                                    504RPR                                
054191,000078: 26,3355           00001                                    504RPR                                
054192,000079: 26,3356           52105                           VXM      GOTO                                  
054193,000080: 26,3357           00025                                    MMATRIX                               #  MPAC=R=MT(T)*(RP+LPXRP)
054194,000081: 26,3360           55407                                    RPRPXXXX                              #  RESET PUSHLOC TO 0 BEFORE EXITING
054195,000082: 26,3361           77624        RPTORA             CALL                                           #  EARTH COMPUTATIONS
054196,000083: 26,3362           55573                                    EARTHMX                               #  M MATRIX B-1
054197,000084: 26,3363           77624                           CALL                                           
054198,000085: 26,3364           55625                                    EARTHL                                #  L VECTOR RADIANS B0
054199,000086: 26,3365           76521                           MXV      VSL1                                  #  LP=M(T)*L     RAD B-0
054200,000087: 26,3366           00025                                    MMATRIX                               

Page 1244

054202,000089: 26,3367           77650                           GOTO                                           
054203,000090: 26,3370           55353                                    RPTORB                                
054204,000091: 

Page 1245

054206,000093:                                                                                                  #  ..... R-TO-RP SUBROUTINE .....
054207,000094:                                                                                                  #  SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
054208,000095:                                                                                                  #  (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
054209,000096:                                                                                                  #        RP = M(T) * (R - L X R)
054210,000097: 
054211,000098:                                                                                                  #  CALLING SEQUENCE
054212,000099:                                                                                                  #        L       CALL
054213,000100:                                                                                                  #        L+1             R-TO-RP
054214,000101: 
054215,000102:                                                                                                  #  SUBROUTINES USED
054216,000103:                                                                                                  #        EARTHMX, MOONMX, EARTHL
054217,000104: 
054218,000105:                                                                                                  #  INPUT
054219,000106:                                                                                                  #        MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
054220,000107:                                                                                                  #        0-5D = R VECTOR
054221,000108:                                                                                                  #        6-7D = TIME
054222,000109: 
054223,000110:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
054224,000111:                                                                                                  #                504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
054225,000112:                                                                                                  #                IN THE MOON-FIXED COORD. SYSTEM                 RADIANS B0
054226,000113: 
054227,000114:                                                                                                  #        ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
054228,000115: 
054229,000116:                                                                                                  #  OUTPUT
054230,000117:                                                                                                  #        MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
054231,000118: 
054232,000119: 26,3371           46020        R-TO-RP            STQ      BHIZ                                  
054233,000120: 26,3372           00050                                    RPREXIT                               
054234,000121: 26,3373           55413                                    RTORPA                                
054235,000122: 26,3374           77624                           CALL                                           
054236,000123: 26,3375           55421                                    MOONMX                                
054237,000124: 26,3376           61375                           VLOAD    VXM                                   
054238,000125: 26,3377           02012                                    504LM                                 #  LP=LM
054239,000126: 26,3400           00025                                    MMATRIX                               
054240,000127: 26,3401           77772                           VSL1                                           #  L = MT(T)*LP          RADIANS B0
054241,000128: 26,3402           51235        RTORPB             VXV      BVSU                                  
054242,000129: 26,3403           00001                                    504RPR                                
054243,000130: 26,3404           00001                                    504RPR                                
054244,000131: 26,3405           77721                           MXV                                            #  M(T)*(R-LXR)          B-2
054245,000132: 26,3406           00025                                    MMATRIX                               
054246,000133: 26,3407           40372        RPRPXXXX           VSL1     SETPD                                 
054247,000134: 26,3410           00001                                    0D                                    
054248,000135: 26,3411           77650                           GOTO                                           
054249,000136: 26,3412           00050                                    RPREXIT                               
054250,000137: 26,3413           77624        RTORPA             CALL                                           #  EARTH COMPUTATIONS
054251,000138: 26,3414           55573                                    EARTHMX                               
054252,000139: 26,3415           77624                           CALL                                           
054253,000140: 26,3416           55625                                    EARTHL                                
054254,000141: 26,3417           77650                           GOTO                                           #  MPAC=L=(-AX,-AY,0)    RAD B-0
054255,000142: 26,3420           55402                                    RTORPB                                
054256,000143: 

Page 1246

054258,000145:                                                                                                  #  ..... MOONMX SUBROUTINE .....
054259,000146:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
054260,000147: 
054261,000148:                                                                                                  #  CALLING SEQUENCE
054262,000149:                                                                                                  #        L       CALL
054263,000150:                                                                                                  #        L+1             MOONMX
054264,000151: 
054265,000152:                                                                                                  #  SUBROUTINES USED
054266,000153:                                                                                                  #        NEWANGLE
054267,000154: 
054268,000155:                                                                                                  #  INPUT
054269,000156:                                                                                                  #        6-7D = TIME
054270,000157: 
054271,000158:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
054272,000159:                                                                                                  #                BSUBO, BDOT
054273,000160:                                                                                                  #                TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
054274,000161:                                                                                                  #                COSI = COS(I)   B-1
054275,000162:                                                                                                  #                SINI = SIN(I)   B-1
054276,000163:                                                                                                  #                I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
054277,000164:                                                                                                  #                PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
054278,000165: 
054279,000166:                                                                                                  #  OUTPUT
054280,000167:                                                                                                  #        MMATRIX = 3X3 M MATRIX          B-1 (STORED IN VAC AREA)
054281,000168: 
054282,000169: 26,3421           40220        MOONMX             STQ      SETPD                                 
054283,000170: 26,3422           00051                                    EARTHMXX                              
054284,000171: 26,3423           00011                                    8D                                    
054285,000172: 26,3424           77770                           AXT,1                                          #  B REQUIRES SL 0, SL 5 IN NEWANGLE
054286,000173: 26,3425           00005                                    5                                     
054287,000174: 26,3426           65345                           DLOAD    PDDL                                  #  PD 10D        8-9D=BSUBO
054288,000175: 26,3427           15655                                    BSUBO                                 #                10-11D=BDOT
054289,000176: 26,3430           15647                                    BDOT                                  
054290,000177: 26,3431           45006                           PUSH     CALL                                  #  PD 12D
054291,000178: 26,3432           55546                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= B   REVS B0
054292,000179: 26,3433           71406                           PUSH     COS                                   #  PD 10D
054293,000180: 26,3434           14041                           STODL    COB                                   #  PD 8D         COS(B) B-1
054294,000181: 26,3435           77756                           SIN                                            #                SIN(B) B-1
054295,000182: 26,3436           14043                           STODL    SOB                                   #                SETUP INPUT FOR NEWANGLE
054296,000183: 26,3437           15653                                    FSUBO                                 #                        8-9D=FSUBO
054297,000184: 26,3440           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D       10-11D=FDOT
054298,000185: 26,3441           15645                                    FDOT                                  
054299,000186: 26,3442           45170                           AXT,1    CALL                                  #  F REQUIRES SL 1, SL 6 IN NEWANGLE
054300,000187: 26,3443           00004                                    4                                     
054301,000188: 26,3444           55546                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= F REVS B0
054302,000189: 26,3445           14027                           STODL    AVECTR     +2                         #  SAVE F TEMP
054303,000190: 26,3446           15651                                    NODIO                                 #                        8-9D=NODIO
054304,000191: 26,3447           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D       10-11D=NODDOT
054305,000192: 26,3450           15643                                    NODDOT                                #                        MPAC=T
054306,000193: 26,3451           45170                           AXT,1    CALL                                  #  NODE REQUIRES SL 0, SL 5 IN NEWANGLE
054307,000194: 26,3452           00005                                    5                                     
054308,000195: 26,3453           55546                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= NODI REVS B0

Page 1247

054310,000197: 26,3454           71406                           PUSH     COS                                   #  PD 10D        8-9D= NODI REVS B0
054311,000198: 26,3455           77606                           PUSH                                           #  PD 12D        10-11D= COS(NODI) B-1
054312,000199: 26,3456           00025                           STORE    AVECTR                                
054313,000200: 26,3457           76405                           DMP      SL1R                                  
054314,000201: 26,3460           00041                                    COB                                   #                        COS(NODI) B-1
054315,000202: 26,3461           14035                           STODL    BVECTR     +2                         #  PD 10D  20-25D=AVECTR=COB*SIN(NODI)
054316,000203: 26,3462           76405                           DMP      SL1R                                  #                        SOB*SIN(NODI)
054317,000204: 26,3463           00043                                    SOB                                   
054318,000205: 26,3464           14037                           STODL    BVECTR     +4                         #  PD 8D
054319,000206: 26,3465           41556                           SIN      PUSH                                  #  PD 10D                -SIN(NODI) B-1
054320,000207: 26,3466           77676                           DCOMP                                          #          26-31D=BVECTR=COB*COS(NODI)
054321,000208: 26,3467           14033                           STODL    BVECTR                                #  PD 8D                 SOB*COS(NODI)
054322,000209: 26,3470           00027                                    AVECTR     +2                         #  MOVE F FROM TEMP LOC. TO 504F
054323,000210: 26,3471           14007                           STODL    504F                                  
054324,000211: 26,3472           76405                           DMP      SL1R                                  
054325,000212: 26,3473           00041                                    COB                                   
054326,000213: 26,3474           14027                           STODL    AVECTR     +2                         
054327,000214: 26,3475           00011                                    SINNODI                               #  8-9D=SIN(NODI) B-1
054328,000215: 26,3476           76405                           DMP      SL1R                                  
054329,000216: 26,3477           00043                                    SOB                                   
054330,000217: 26,3500           14031                           STODL    AVECTR     +4                         #                        0
054331,000218: 26,3501           15335                                    HI6ZEROS                              #        8-13D= CVECTR=  -SOB B-1
054332,000219: 26,3502           57525                           PDDL     DCOMP                                 #  PD 10D                COB
054333,000220: 26,3503           00043                                    SOB                                   
054334,000221: 26,3504           63325                           PDDL     PDVL                                  #  PD 12D THEN PD 14D
054335,000222: 26,3505           00041                                    COB                                   
054336,000223: 26,3506           00033                                    BVECTR                                
054337,000224: 26,3507           63361                           VXSC     PDVL                                  #  PD 20D        BVECTR*SINI B-2
054338,000225: 26,3510           15641                                    SINI                                  
054339,000226: 26,3511           00011                                    CVECTR                                
054340,000227: 26,3512           53361                           VXSC     VAD                                   #  PD 14D        CVECTR*COSI B-2
054341,000228: 26,3513           15637                                    COSI                                  
054342,000229: 26,3514           77772                           VSL1                                           
054343,000230: 26,3515           24041                           STOVL    MMATRIX    +12D                       #  PD 8D  M2=BVECTR*SINI+CVECTR*COSI B-1
054344,000231: 26,3516           63361                           VXSC     PDVL                                  #  PD 14D
054345,000232: 26,3517           15641                                    SINI                                  #                CVECTR*SINI B-2
054346,000233: 26,3520           00033                                    BVECTR                                
054347,000234: 26,3521           52361                           VXSC     VSU                                   #  PD 8D         BVECTR*COSI B-2
054348,000235: 26,3522           15637                                    COSI                                  
054349,000236: 26,3523           65372                           VSL1     PDDL                                  #  PD 14D
054350,000237: 26,3524           00007                                    504F                                  #  8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
054351,000238: 26,3525           74346                           COS      VXSC                                  
054352,000239: 26,3526           00011                                    DVECTR                                
054353,000240: 26,3527           73525                           PDDL     SIN                                   #  PD 20D  14-19D= DVECTR*COSF B-2
054354,000241: 26,3530           00007                                    504F                                  
054355,000242: 26,3531           52361                           VXSC     VSU                                   #  PD 14D        AVECTR*SINF B-2
054356,000243: 26,3532           00025                                    AVECTR                                
054357,000244: 26,3533           77772                           VSL1                                           
054358,000245: 26,3534           14033                           STODL    MMATRIX    +6                         #  M1= AVECTR*SINF-DVECTR*COSF B-1
054359,000246: 26,3535           00007                                    504F                                  

Page 1248

054361,000248: 26,3536           74356                           SIN      VXSC                                  #  PD 8D
054362,000249: 26,3537           71525                           PDDL     COS                                   #  PD 14D  8-13D=DVECTR*SINF B-2
054363,000250: 26,3540           00007                                    504F                                  
054364,000251: 26,3541           53361                           VXSC     VAD                                   #  PD 8D         AVECTR*COSF B-2
054365,000252: 26,3542           00025                                    AVECTR                                
054366,000253: 26,3543           57572                           VSL1     VCOMP                                 
054367,000254: 26,3544           34025                           STCALL   MMATRIX                               #  M0= -(AVECTR*COSF+DVECTR*SINF) B-1
054368,000255: 26,3545           00051                                    EARTHMXX                              
054369,000256: 
054370,000257:                                                                                                  #  COMPUTE X=X0+(XDOT)(T+T0)
054371,000258:                                                                                                  #  8-9D= XO (REVS B-0), PUSHLOC SET AT 12D
054372,000259:                                                                                                  #  10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
054373,000260:                                                                                                  #                        AND B+27 FOR FDOT
054374,000261:                                                                                                  #  X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NODDOT AND
054375,000262:                                                                                                  #                                        BDOT AND 4 FOR FDOT
054376,000263:                                                                                                  #  6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
054377,000264: 
054378,000265: 26,3546           54345        NEWANGLE           DLOAD    SR                                    #  ENTER PD 12D
054379,000266: 26,3547           00007                                    6D                                    
054380,000267: 26,3550           20617                                    14D                                   
054381,000268: 26,3551           72371                           TAD      TLOAD                                 #  CHANGE MODE TO TP
054382,000269: 26,3552           01707                                    TIMSUBO                               
054383,000270: 26,3553           00155                                    MPAC                                  
054384,000271: 26,3554           14017                           STODL    TIMSUBM                               #  T+T0 CSEC B-42
054385,000272: 26,3555           00020                                    TIMSUBM    +1                         
054386,000273: 26,3556           77605                           DMP                                            #  PD 10D        MULT BY XDOT IN 10-11D
054387,000274: 26,3557           43257                           SL*      DAD                                   #  PD 8D         ADD XO IN 8-9D AFTER SHIFTING
054388,000275: 26,3560           20206                                    5,1                                   #                SUCH THAT SCALING IS B-0
054389,000276: 26,3561           67206                           PUSH     SLOAD                                 #  PD 10D  SAVE PARTIAL (X0+XDOT*T) IN 8-9D
054390,000277: 26,3562           00017                                    TIMSUBM                               
054391,000278: 26,3563           41261                           SL       DMP                                   
054392,000279: 26,3564           20212                                    9D                                    
054393,000280: 26,3565           00013                                    10D                                   #  XDOT
054394,000281: 26,3566           43257                           SL*      DAD                                   #  PD 8D         SHIFT SUCH THAT THIS PART OF X
054395,000282: 26,3567           20213                                    10D,1                                 #                IS SCALED REVS/CSEC B-0
054396,000283: 26,3570           77600                           BOV                                            #  TURN OFF OVERFLOW IF SET BY SHIFT
054397,000284: 26,3571           55572                                    +1                                    #  INSTRUCTION BEFORE EXITING
054398,000285: 26,3572           77616                           RVQ                                            #  MPAC=X= X0+(XDOT)(T+T0)       REVS B0
054399,000286: 

Page 1249

054401,000288:                                                                                                  #  ..... EARTHMX SUBROUTINE .....
054402,000289:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
054403,000290: 
054404,000291:                                                                                                  #  CALLING SEQUENCE
054405,000292:                                                                                                  #        L       CALL
054406,000293:                                                                                                  #        L+1             EARTHMX
054407,000294: 
054408,000295:                                                                                                  #  SUBROUTINES USED
054409,000296:                                                                                                  #        NEWANGLE
054410,000297: 
054411,000298:                                                                                                  #  INPUT
054412,000299:                                                                                                  #        INPUT AVAILABLE FROM LAUNCH DATA        AZO REVS B-0
054413,000300:                                                                                                  #                                                TEPHEM CSEC B-42
054414,000301:                                                                                                  #        6-7D= TIME CSEC B-28
054415,000302: 
054416,000303:                                                                                                  #  OUTPUT
054417,000304:                                                                                                  #        MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
054418,000305: 
054419,000306: 26,3573           40220        EARTHMX            STQ      SETPD                                 #  SET 8-9D=AZO
054420,000307: 26,3574           00051                                    EARTHMXX                              
054421,000308: 26,3575           00011                                    8D                                    #  10-11D=WEARTH
054422,000309: 26,3576           77770                           AXT,1                                          #  FOR SL 5, AND SL 10 IN NEWANGLE
054423,000310: 26,3577           00000                                    0                                     
054424,000311: 26,3600           65345                           DLOAD    PDDL                                  #  LEAVING PD SET AT 12D FOR NEWANGLE
054425,000312: 26,3601           01712                                    AZO                                   
054426,000313: 26,3602           15657                                    WEARTH                                
054427,000314: 26,3603           45006                           PUSH     CALL                                  
054428,000315: 26,3604           55546                                    NEWANGLE                              
054429,000316: 26,3605           41401                           SETPD    PUSH                                  #  18-19D=504AZ
054430,000317: 26,3606           00023                                    18D                                   #                         COS(AZ)   SIN(AZ)     0
054431,000318: 26,3607           65346                           COS      PDDL                                  #  20-37D=  MMATRIX=     -SIN(AZ)   COS(AZ)     0    B-1
054432,000319: 26,3610           00023                                    504AZ                                 #                            0         0        1
054433,000320: 26,3611           65356                           SIN      PDDL                                  
054434,000321: 26,3612           15335                                    HI6ZEROS                              
054435,000322: 26,3613           73525                           PDDL     SIN                                   
054436,000323: 26,3614           00023                                    504AZ                                 
054437,000324: 26,3615           65276                           DCOMP    PDDL                                  
054438,000325: 26,3616           00023                                    504AZ                                 
054439,000326: 26,3617           63346                           COS      PDVL                                  
054440,000327: 26,3620           15335                                    HI6ZEROS                              
054441,000328: 26,3621           41525                           PDDL     PUSH                                  
054442,000329: 26,3622           15333                                    HIDPHALF                              
054443,000330: 26,3623           77650                           GOTO                                           
054444,000331: 26,3624           00051                                    EARTHMXX                              
054445,000332: 

Page 1250

054447,000334:                                                                                                  #  ..... EARTHL SUBROUTINE .....
054448,000335:                                                                                                  #  SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
054449,000336: 
054450,000337:                                                                                                  #  CALLING SEQUENCE
054451,000338:                                                                                                  #        L       CALL
054452,000339:                                                                                                  #        L+1             EARTHL
054453,000340: 
054454,000341:                                                                                                  #  INPUT
054455,000342:                                                                                                  #        AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
054456,000343: 
054457,000344:                                                                                                  #  OUTPUT
054458,000345:                                                                                                  #                -AX
054459,000346:                                                                                                  #        MPAC=   -AY     RADIANS B-0
054460,000347:                                                                                                  #                  0
054461,000348: 
054462,000349: 26,3625           57545        EARTHL             DLOAD    DCOMP                                 
054463,000350: 26,3626           01716                                    AXO                                   
054464,000351: 26,3627           14017                           STODL    504LPL                                
054465,000352: 26,3630           01714                                    -AYO                                  
054466,000353: 26,3631           14021                           STODL    504LPL     +2                         
054467,000354: 26,3632           15335                                    HI6ZEROS                              
054468,000355: 26,3633           24023                           STOVL    504LPL     +4                         
054469,000356: 26,3634           00017                                    504LPL                                
054470,000357: 26,3635           77616                           RVQ                                            
054471,000358: 

Page 1251

054473,000360:                                                                                                  #  CONSTANTS AND ERASABLE ASSIGNMENTS
054474,000361: 
054475,000362: 26,3636  04,3563               1B1                =        DP1/2                                 #  1 SCALED B-1
054476,000363: 26,3636           17775 02052  COSI               2DEC     .99964173  B-1                        #  COS(5521.5 SEC) B-1
054477,000364: 
054478,000365: 26,3640           00333 10374  SINI               2DEC     .02676579  B-1                        #  SIN(5521.5 SEC) B-1
054479,000366: 
054480,000367: 26,3642  0000050               RPREXIT            =        S1                                    #  R-TO-RP AND RP-TO-R SUBR EXIT
054481,000368: 26,3642  0000051               EARTHMXX           =        S2                                    #  EARTHMX, MOONMX SUBR. EXITS
054482,000369: 26,3642                        504RPR             =        0D                                    #  6 REGS        R OR RP VECTOR
054483,000370: 26,3642                        SINNODI            =        8D                                    #  2             SIN(NODI)
054484,000371: 26,3642                        DVECTR             =        8D                                    #  6             D VECTOR MOON
054485,000372: 26,3642                        CVECTR             =        8D                                    #  6             C VECTR MOON
054486,000373: 26,3642                        504AZ              =        18D                                   #  2             AZ
054487,000374: 26,3642                        TIMSUBM            =        14D                                   #  3             TIME SUB M (MOON) T+T0 IN GETAZ
054488,000375: 26,3642                        504LPL             =        14D                                   #  6             L OR LP VECTOR
054489,000376: 26,3642                        AVECTR             =        20D                                   #  6             A VECTOR (MOON)
054490,000377: 26,3642                        BVECTR             =        26D                                   #  6             B VECTOR (MOON)
054491,000378: 26,3642                        MMATRIX            =        20D                                   #  18            M MATRIX
054492,000379: 26,3642                        COB                =        32D                                   #  2             COS(B) B-1
054493,000380: 26,3642                        SOB                =        34D                                   #  2             SIN(B) B-1
054494,000381: 26,3642                        504F               =        6D                                    #  2             F(MOON)
054495,000382: 26,3642           77665 42175  NODDOT             2DEC     -.457335121 E-2                        #  REVS/CSEC B+28=-1.07047011 E-8  RAD/SEC
054496,000383: 
054497,000384: 26,3644           22211 00625  FDOT               2DEC     .570863327                            #  REVS/CSEC B+27= 2.67240410 E-6  RAD/SEC
054498,000385: 
054499,000386: 26,3646           77777 77767  BDOT               2DEC     -3.07500686 E-8                        #  REVS/CSEC B+28=-7.19757301 E-14 RAD/SEC
054500,000387: 
054501,000388: 26,3650           37436 01613  NODIO              2DEC     .986209434                            #  REVS B-0      = 6.19653663041   RAD
054502,000389: 
054503,000390: 26,3652           32417 32160  FSUBO              2DEC     .829090536                            #  REVS B-0      = 5.20932947829   RAD
054504,000391: 
054505,000392: 26,3654           02052 35552  BSUBO              2DEC     .0651201393                            #  REVS B-0      = 0.40916190299   RAD
054506,000393: 
054507,000394: 26,3656           37116 32523  WEARTH             2DEC     .973561595                            #  REVS/CSEC B+23= 7.29211494 E-5  RAD/SEC
054508,000395: 

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