Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional 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 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

051361,000002:                                                                                                  ## Copyright:   Public domain.
051362,000003:                                                                                                  ## Filename:    PLANETARY_INERTIAL_ORIENTATION.agc
051363,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
051364,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
051365,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
051366,000007:                                                                                                  ## Assembler:   yaYUL
051367,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
051368,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
051369,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
051370,000011:                                                                                                  ## Mod history: 2011-04-13 JL   Adapted from corresponding Colossus 249 file.
051371,000012:                                                                                                  ##              2017-01-01 RSB  Proofed comment text using octopus/ProoferComments,
051372,000013:                                                                                                  ##                              and fixed errors found.
051373,000014:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
051374,000015:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
051375,000016: 

Page 1210

051377,000018:                                                                                                  #  ..... RP-TO-R SUBROUTINE .....
051378,000019:                                                                                                  #  SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM,EITHER
051379,000020:                                                                                                  #   EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
051380,000021: 
051381,000022:                                                                                                  #   R=MT(T)*(RP+LPXRP)    MT= M MATRIX TRANSPOSE
051382,000023: 
051383,000024:                                                                                                  #  CALLING SEQUENCE
051384,000025:                                                                                                  #   L       CALL
051385,000026:                                                                                                  #   L+1            RP-TO-R
051386,000027: 
051387,000028:                                                                                                  #  SUBROUTINES USED
051388,000029:                                                                                                  #   EARTHMX,MOONMX,EARTHL
051389,000030: 
051390,000031:                                                                                                  #     ITEMS AVAILABLE FROM LAUNCH DATA
051391,000032:                                                                                                  #      504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
051392,000033:                                                                                                  #      IN THE MOON-FIXED COORD. SYSTEM   RADIANS  B0
051393,000034:                                                                                                  #        ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
051394,000035: 
051395,000036:                                                                                                  #  INPUT
051396,000037:                                                                                                  #   MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
051397,000038:                                                                                                  #   0-5D= RP VECTOR
051398,000039:                                                                                                  #   6-7D= TIME
051399,000040: 
051400,000041:                                                                                                  #  OUTPUT
051401,000042:                                                                                                  #   MPAC= R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
051402,000043: 
051403,000044: 26,2000                                           SETLOC   PLANTIN                               
051404,000045: 26,2000                                           BANK                                           
051405,000046: 
051406,000047: 26,3341                                           COUNT*   $$/LUROT                              
051407,000048: 
051408,000049: 26,3341           46020        RP-TO-R            STQ      BHIZ                                  
051409,000050: 26,3342           00050                                    RPREXIT                               
051410,000051: 26,3343           55356                                    RPTORA                                
051411,000052: 26,3344           77624                           CALL                                           #  COMPUTE M MATRIX FOR MOON
051412,000053: 26,3345           55416                                    MOONMX                                #  LP=LM FOR MOON  RADIANS B0
051413,000054: 26,3346           77775                           VLOAD                                          
051414,000055: 26,3347           02012                                    504LM                                 
051415,000056: 26,3350           53235        RPTORB             VXV      VAD                                   
051416,000057: 26,3351           00001                                    504RPR                                
051417,000058: 26,3352           00001                                    504RPR                                
051418,000059: 26,3353           52105                           VXM      GOTO                                  
051419,000060: 26,3354           00025                                    MMATRIX                               #  MPAC=R=MT(T)*(RP+LPXRP)
051420,000061: 26,3355           55404                                    RPRPXXXX                              #  RESET PUSHLOC TO 0 BEFORE EXITING
051421,000062: 26,3356           77624        RPTORA             CALL                                           #  EARTH COMPUTATIONS
051422,000063: 26,3357           55570                                    EARTHMX                               #  M MATRIX B-1
051423,000064: 26,3360           77624                           CALL                                           
051424,000065: 26,3361           55622                                    EARTHL                                #  L VECTOR RADIANS B0
051425,000066: 26,3362           76521                           MXV      VSL1                                  #  LP=M(T)*L  RAD B-0
051426,000067: 26,3363           00025                                    MMATRIX                               

Page 1211

051428,000069: 26,3364           77650                           GOTO                                           
051429,000070: 26,3365           55350                                    RPTORB                                
051430,000071: 

Page 1212

051432,000073:                                                                                                  #  ..... R-TO-RP SUBROUTINE .....
051433,000074:                                                                                                  #  SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
051434,000075:                                                                                                  #   (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
051435,000076: 
051436,000077:                                                                                                  #   RP=M(T)*(R-LXR)
051437,000078: 
051438,000079:                                                                                                  #  CALLING SEQUENCE
051439,000080:                                                                                                  #   L       CALL
051440,000081:                                                                                                  #   L+1            R-TO-RP
051441,000082: 
051442,000083:                                                                                                  #  SUBROUTINES USED
051443,000084:                                                                                                  #   EARTHMX,MOONMX,EARTHL
051444,000085: 
051445,000086:                                                                                                  #  INPUT
051446,000087:                                                                                                  #   MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
051447,000088:                                                                                                  #   0-5D= R VECTOR
051448,000089:                                                                                                  #   6-7D= TIME
051449,000090: 
051450,000091:                                                                                                  #     ITEMS AVAILABLE FROM LAUNCH DATA
051451,000092:                                                                                                  #      504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
051452,000093:                                                                                                  #      IN THE MOON-FIXED COORD. SYSTEM   RADIANS B0
051453,000094:                                                                                                  #        ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
051454,000095: 
051455,000096:                                                                                                  #  OUTPUT
051456,000097:                                                                                                  #   MPAC=RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
051457,000098: 
051458,000099: 26,3366           46020        R-TO-RP            STQ      BHIZ                                  
051459,000100: 26,3367           00050                                    RPREXIT                               
051460,000101: 26,3370           55410                                    RTORPA                                
051461,000102: 26,3371           77624                           CALL                                           
051462,000103: 26,3372           55416                                    MOONMX                                
051463,000104: 26,3373           61375                           VLOAD    VXM                                   
051464,000105: 26,3374           02012                                    504LM                                 #  LP=LM
051465,000106: 26,3375           00025                                    MMATRIX                               
051466,000107: 26,3376           77772                           VSL1                                           #   L=MT(T)*LP  RADIANS B0
051467,000108: 26,3377           51235        RTORPB             VXV      BVSU                                  
051468,000109: 26,3400           00001                                    504RPR                                
051469,000110: 26,3401           00001                                    504RPR                                
051470,000111: 26,3402           77721                           MXV                                            #  M(T)*(R-LXR) B-2
051471,000112: 26,3403           00025                                    MMATRIX                               
051472,000113: 26,3404           40372        RPRPXXXX           VSL1     SETPD                                 
051473,000114: 26,3405           00001                                    0D                                    
051474,000115: 26,3406           77650                           GOTO                                           
051475,000116: 26,3407           00050                                    RPREXIT                               
051476,000117: 26,3410           77624        RTORPA             CALL                                           #  EARTH COMPUTATIONS
051477,000118: 26,3411           55570                                    EARTHMX                               
051478,000119: 26,3412           77624                           CALL                                           
051479,000120: 26,3413           55622                                    EARTHL                                
051480,000121: 26,3414           77650                           GOTO                                           #  MPAC=L=(-AX,-AY,0) RAD B-0
051481,000122: 26,3415           55377                                    RTORPB                                
051482,000123: 

Page 1213

051484,000125:                                                                                                  #  ..... MOONMX SUBROUTINE .....
051485,000126:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
051486,000127: 
051487,000128:                                                                                                  #  CALLING SEQUENCE
051488,000129:                                                                                                  #   L       CALL
051489,000130:                                                                                                  #   L+1            MOONMX
051490,000131: 
051491,000132:                                                                                                  #  SUBROUTINES USED
051492,000133:                                                                                                  #   NEWANGLE
051493,000134: 
051494,000135:                                                                                                  #  INPUT
051495,000136:                                                                                                  #   6-7D= TIME
051496,000137:                                                                                                  #     ITEMS AVAILABLE FROM LAUNCH DATA
051497,000138:                                                                                                  #      BSUBO,BDOT
051498,000139:                                                                                                  #      TIMSUBO,NODIO,NODDOT,FSUBO,FDOT
051499,000140:                                                                                                  #      COSI= COS(I) B-1
051500,000141:                                                                                                  #      SINI= SIN(I) B-1
051501,000142:                                                                                                  #        I  IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
051502,000143:                                                                                                  #        PLANE OF THE ECLIPTIC  (1 DEGREE 32.1 MINUTES)
051503,000144: 
051504,000145:                                                                                                  #  OUTPUT
051505,000146:                                                                                                  #   MMATRIX= 3X3 M MATRIX B-1   (STORED IN VAC AREA)
051506,000147: 
051507,000148: 26,3416           40220        MOONMX             STQ      SETPD                                 
051508,000149: 26,3417           00051                                    EARTHMXX                              
051509,000150: 26,3420           00011                                    8D                                    
051510,000151: 26,3421           77770                           AXT,1                                          #  B REQUIRES SL 0, SL 5 IN NEWANGLE
051511,000152: 26,3422           00005                                    5                                     
051512,000153: 26,3423           65345                           DLOAD    PDDL                                  #  PD 10D            8-9D=BSUBO
051513,000154: 26,3424           15652                                    BSUBO                                 #                    10-11D=BDOT
051514,000155: 26,3425           15644                                    BDOT                                  
051515,000156: 26,3426           45006                           PUSH     CALL                                  #  PD 12D
051516,000157: 26,3427           55543                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= B  REVS B0
051517,000158: 26,3430           71406                           PUSH     COS                                   #  PD 10D
051518,000159: 26,3431           14041                           STODL    COB                                   #  PD 8D    COS(B) B-1
051519,000160: 26,3432           77756                           SIN                                            #           SIN(B) B-1
051520,000161: 26,3433           14043                           STODL    SOB                                   #            SETUP INPUT FOR NEWANGLE
051521,000162: 26,3434           15650                                    FSUBO                                 #                      8-9D=FSUBO
051522,000163: 26,3435           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D   10-11D=FDOT
051523,000164: 26,3436           15642                                    FDOT                                  
051524,000165: 26,3437           45170                           AXT,1    CALL                                  #  F REQUIRES SL 1, SL 6 IN NEWANGLE
051525,000166: 26,3440           00004                                    4                                     
051526,000167: 26,3441           55543                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= F REVS B0
051527,000168: 26,3442           14027                           STODL    AVECTR     +2                         #  SAVE F TEMP
051528,000169: 26,3443           15646                                    NODIO                                 #                      8-9D=NODIO
051529,000170: 26,3444           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D   10-11D=NODDOT
051530,000171: 26,3445           15640                                    NODDOT                                #                      MPAC=T
051531,000172: 26,3446           45170                           AXT,1    CALL                                  #  NODE REQUIRES SL 0, SL 5 IN NEWANGLE
051532,000173: 26,3447           00005                                    5                                     
051533,000174: 26,3450           55543                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= NODI REVS B0

Page 1214

051535,000176: 26,3451           71406                           PUSH     COS                                   #  PD 10D   8-9D= NODI  REVS  B0
051536,000177: 26,3452           77606                           PUSH                                           #  PD 12D 10-11D= COS(NODI)  B-1
051537,000178: 26,3453           00025                           STORE    AVECTR                                
051538,000179: 26,3454           76405                           DMP      SL1R                                  
051539,000180: 26,3455           00041                                    COB                                   #                          COS(NODI)    B-1
051540,000181: 26,3456           14035                           STODL    BVECTR     +2                         #  PD 10D   20-25D=AVECTR= COB*SIN(NODI)
051541,000182: 26,3457           76405                           DMP      SL1R                                  #                          SOB*SIN(NODI)
051542,000183: 26,3460           00043                                    SOB                                   
051543,000184: 26,3461           14037                           STODL    BVECTR     +4                         #  PD 8D
051544,000185: 26,3462           41556                           SIN      PUSH                                  #  PD 10D                  -SIN(NODI)   B-1
051545,000186: 26,3463           77676                           DCOMP                                          #           26-31D=BVECTR= COB*COS(NODI)
051546,000187: 26,3464           14033                           STODL    BVECTR                                #  PD 8D                   SOB*COS(NODI)
051547,000188: 26,3465           00027                                    AVECTR     +2                         #  MOVE F FROM TEMP LOC. TO 504F
051548,000189: 26,3466           14007                           STODL    504F                                  
051549,000190: 26,3467           76405                           DMP      SL1R                                  
051550,000191: 26,3470           00041                                    COB                                   
051551,000192: 26,3471           14027                           STODL    AVECTR     +2                         
051552,000193: 26,3472           00011                                    SINNODI                               #  8-9D=SIN(NODI)  B-1
051553,000194: 26,3473           76405                           DMP      SL1R                                  
051554,000195: 26,3474           00043                                    SOB                                   
051555,000196: 26,3475           14031                           STODL    AVECTR     +4                         #                           0
051556,000197: 26,3476           15332                                    HI6ZEROS                              #          8-13D= CVECTR= -SOB  B-1
051557,000198: 26,3477           57525                           PDDL     DCOMP                                 #  PD 10D                  COB
051558,000199: 26,3500           00043                                    SOB                                   
051559,000200: 26,3501           63325                           PDDL     PDVL                                  #  PD 12D THEN PD 14D
051560,000201: 26,3502           00041                                    COB                                   
051561,000202: 26,3503           00033                                    BVECTR                                
051562,000203: 26,3504           63361                           VXSC     PDVL                                  #  PD 20D         BVECTR*SINI  B-2
051563,000204: 26,3505           15636                                    SINI                                  
051564,000205: 26,3506           00011                                    CVECTR                                
051565,000206: 26,3507           53361                           VXSC     VAD                                   #  PD 14D         CVECTR*COSI  B-2
051566,000207: 26,3510           15634                                    COSI                                  
051567,000208: 26,3511           77772                           VSL1                                           
051568,000209: 26,3512           24041                           STOVL    MMATRIX    +12D                       #  PD 8D  M2=BVECTR*SINI+CVECTR*COSI  B-1
051569,000210: 26,3513           63361                           VXSC     PDVL                                  #  PD 14D
051570,000211: 26,3514           15636                                    SINI                                  #                 CVECTR*SINI  B-2
051571,000212: 26,3515           00033                                    BVECTR                                
051572,000213: 26,3516           52361                           VXSC     VSU                                   #  PD 8D          BVECTR*COSI  B-2
051573,000214: 26,3517           15634                                    COSI                                  
051574,000215: 26,3520           65372                           VSL1     PDDL                                  #  PD 14D
051575,000216: 26,3521           00007                                    504F                                  #  8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
051576,000217: 26,3522           74346                           COS      VXSC                                  
051577,000218: 26,3523           00011                                    DVECTR                                
051578,000219: 26,3524           73525                           PDDL     SIN                                   #  PD 20D  14-19D= DVECTR*COSF  B-2
051579,000220: 26,3525           00007                                    504F                                  
051580,000221: 26,3526           52361                           VXSC     VSU                                   #  PD 14D          AVECTR*SINF  B-2
051581,000222: 26,3527           00025                                    AVECTR                                
051582,000223: 26,3530           77772                           VSL1                                           
051583,000224: 26,3531           14033                           STODL    MMATRIX    +6                         #  M1= AVECTR*SINF-DVECTR*COSF  B-1
051584,000225: 26,3532           00007                                    504F                                  

Page 1215

051586,000227: 26,3533           74356                           SIN      VXSC                                  #  PD 8D
051587,000228: 26,3534           71525                           PDDL     COS                                   #  PD 14D  8-13D=DVECTR*SINF B-2
051588,000229: 26,3535           00007                                    504F                                  
051589,000230: 26,3536           53361                           VXSC     VAD                                   #  PD 8D         AVECTR*COSF B-2
051590,000231: 26,3537           00025                                    AVECTR                                
051591,000232: 26,3540           57572                           VSL1     VCOMP                                 
051592,000233: 26,3541           34025                           STCALL   MMATRIX                               #  M0= -(AVECTR*COSF+DVECTR*SINF)  B-1
051593,000234: 26,3542           00051                                    EARTHMXX                              
051594,000235:                                                                                                  #  COMPUTE X=X0+(XDOT)(T+T0)
051595,000236:                                                                                                  #  8-9D= XO (REVS B-0),PUSHLOC SET AT 12D
051596,000237:                                                                                                  #  10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
051597,000238:                                                                                                  #                          AND B+27 FOR FDOT
051598,000239:                                                                                                  #   X1=DIFFERENCE IN 23 AND SCALING OF XDOT,=0 FOR WEARTH,5 FOR NODDOT AND
051599,000240:                                                                                                  #                                           BDOT AND 4 FOR FDOT
051600,000241:                                                                                                  #  6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
051601,000242: 
051602,000243: 26,3543           54345        NEWANGLE           DLOAD    SR                                    #  ENTER PD 12D
051603,000244: 26,3544           00007                                    6D                                    
051604,000245: 26,3545           20617                                    14D                                   
051605,000246: 26,3546           72371                           TAD      TLOAD                                 #  CHANGE MODE TO TP
051606,000247: 26,3547           01707                                    TIMSUBO                               
051607,000248: 26,3550           00155                                    MPAC                                  
051608,000249: 26,3551           14017                           STODL    TIMSUBM                               #  T+T0 CSEC B-42
051609,000250: 26,3552           00020                                    TIMSUBM    +1                         
051610,000251: 26,3553           77605                           DMP                                            #  PD 10D  MULT BY XDOT IN 10-11D
051611,000252: 26,3554           43257                           SL*      DAD                                   #  PD 8D   ADD XO IN 8-9D AFTER SHIFTING
051612,000253: 26,3555           20206                                    5,1                                   #          SUCH THAT SCALING IS B-0
051613,000254: 26,3556           67206                           PUSH     SLOAD                                 #  PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
051614,000255: 26,3557           00017                                    TIMSUBM                               
051615,000256: 26,3560           41261                           SL       DMP                                   
051616,000257: 26,3561           20212                                    9D                                    
051617,000258: 26,3562           00013                                    10D                                   #  XDOT
051618,000259: 26,3563           43257                           SL*      DAD                                   #  PD 8D   SHIFT SUCH THAT THIS PART OF X
051619,000260: 26,3564           20213                                    10D,1                                 #          IS SCALED REVS/CSEC B-0
051620,000261: 26,3565           77600                           BOV                                            #  TURN OFF OVERFLOW IF SET BY SHIFT
051621,000262: 26,3566           55567                                    +1                                    #  INSTRUCTION BEFORE EXITING
051622,000263: 26,3567           77616                           RVQ                                            #  MPAC=X= X0+(XDOT)(T+T0)  REVS B0
051623,000264: 

Page 1216

051625,000266:                                                                                                  #  ..... EARTHMX SUBROUTINE .....
051626,000267:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
051627,000268: 
051628,000269:                                                                                                  #  CALLING SEQUENCE
051629,000270:                                                                                                  #   L       CALL
051630,000271:                                                                                                  #   L+1            EARTHMX
051631,000272: 
051632,000273:                                                                                                  #  SUBROUTINES USED
051633,000274:                                                                                                  #   NEWANGLE
051634,000275: 
051635,000276:                                                                                                  #  INPUT
051636,000277:                                                                                                  #     INPUT AVAILABLE FROM LAUNCH DATA     AZO  REVS B-0
051637,000278:                                                                                                  #                                          TEPHEM  CSEC B-42
051638,000279:                                                                                                  #   6-7D= TIME CSEC B-28
051639,000280: 
051640,000281:                                                                                                  #  OUTPUT
051641,000282:                                                                                                  #   MMATRIX= 3X3 M MATRIX B-1   (STORED IN VAC AREA)
051642,000283: 
051643,000284: 26,3570           40220        EARTHMX            STQ      SETPD                                 #  SET   8-9D=AZO
051644,000285: 26,3571           00051                                    EARTHMXX                              
051645,000286: 26,3572           00011                                    8D                                    #  10-11D=WEARTH
051646,000287: 26,3573           77770                           AXT,1                                          #  FOR SL 5, AND SL 10  IN NEWANGLE
051647,000288: 26,3574           00000                                    0                                     
051648,000289: 26,3575           65345                           DLOAD    PDDL                                  #    LEAVING PD SET AT 12D FOR NEWANGLE
051649,000290: 26,3576           01712                                    AZO                                   
051650,000291: 26,3577           15654                                    WEARTH                                
051651,000292: 26,3600           45006                           PUSH     CALL                                  
051652,000293: 26,3601           55543                                    NEWANGLE                              
051653,000294: 26,3602           41401                           SETPD    PUSH                                  #  18-19D=504AZ
051654,000295: 26,3603           00023                                    18D                                   #                     COS(AZ) SIN(AZ) 0
051655,000296: 26,3604           65346                           COS      PDDL                                  #  20-37D=  MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
051656,000297: 26,3605           00023                                    504AZ                                 #                      0       0      1
051657,000298: 26,3606           65356                           SIN      PDDL                                  
051658,000299: 26,3607           15332                                    HI6ZEROS                              
051659,000300: 26,3610           73525                           PDDL     SIN                                   
051660,000301: 26,3611           00023                                    504AZ                                 
051661,000302: 26,3612           65276                           DCOMP    PDDL                                  
051662,000303: 26,3613           00023                                    504AZ                                 
051663,000304: 26,3614           63346                           COS      PDVL                                  
051664,000305: 26,3615           15332                                    HI6ZEROS                              
051665,000306: 26,3616           41525                           PDDL     PUSH                                  
051666,000307: 26,3617           15330                                    HIDPHALF                              
051667,000308: 26,3620           77650                           GOTO                                           
051668,000309: 26,3621           00051                                    EARTHMXX                              
051669,000310: 

Page 1217

051671,000312:                                                                                                  #  ..... EARTHL SUBROUTINE .....
051672,000313:                                                                                                  #  SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
051673,000314: 
051674,000315:                                                                                                  #  CALLING SEQUENCE
051675,000316:                                                                                                  #   L       CALL
051676,000317:                                                                                                  #   L+1            EARTHL
051677,000318: 
051678,000319:                                                                                                  #  INPUT
051679,000320:                                                                                                  #   AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
051680,000321: 
051681,000322:                                                                                                  #  OUTPUT
051682,000323:                                                                                                  #            -AX
051683,000324:                                                                                                  #    MPAC=   -AY    RADIANS B-0
051684,000325:                                                                                                  #              0
051685,000326: 
051686,000327: 26,3622           57545        EARTHL             DLOAD    DCOMP                                 
051687,000328: 26,3623           01716                                    AXO                                   
051688,000329: 26,3624           14017                           STODL    504LPL                                
051689,000330: 26,3625           01714                                    -AYO                                  
051690,000331: 26,3626           14021                           STODL    504LPL     +2                         
051691,000332: 26,3627           15332                                    HI6ZEROS                              
051692,000333: 26,3630           24023                           STOVL    504LPL     +4                         
051693,000334: 26,3631           00017                                    504LPL                                
051694,000335: 26,3632           77616                           RVQ                                            
051695,000336: 

Page 1218

051697,000338:                                                                                                  #  CONSTANTS AND ERASABLE ASSIGNMENTS
051698,000339: 26,3633  04,3450               1B1                =        DP1/2                                 #  1 SCALED B-1
051699,000340: 26,3633           17775 01734  COSI               2DEC     .99964115  B-1                        #  COS(1 DEG 32.1 MIN) B-1
051700,000341: 26,3635           00333 16153  SINI               2DEC     .02678760  B-1                        #  SIN(1 DEG 32.1 MIN) B-1
051701,000342: 26,3637  0000050               RPREXIT            =        S1                                    #  R-TO-RP AND RP-TO-R SUBR EXIT
051702,000343: 26,3637  0000051               EARTHMXX           =        S2                                    #  EARTHMX,MOONMX SUBR. EXITS
051703,000344: 26,3637                        504RPR             =        0D                                    #  6 REGS  R OR RP VECTOR
051704,000345: 26,3637                        SINNODI            =        8D                                    #  2       SIN(NODI)
051705,000346: 26,3637                        DVECTR             =        8D                                    #  6       D VECTOR MOON
051706,000347: 26,3637                        CVECTR             =        8D                                    #  6       C VECTR MOON
051707,000348: 26,3637                        504AZ              =        18D                                   #  2      AZ
051708,000349: 26,3637                        TIMSUBM            =        14D                                   #  3       TIME SUB M (MOON) T+T0 IN GETAZ
051709,000350: 26,3637                        504LPL             =        14D                                   #  6       L OR LP VECTOR
051710,000351: 26,3637                        AVECTR             =        20D                                   #  6       A VECTOR (MOON)
051711,000352: 26,3637                        BVECTR             =        26D                                   #  6       B VECTOR (MOON)
051712,000353: 26,3637                        MMATRIX            =        20D                                   #  18      M MATRIX
051713,000354: 26,3637                        COB                =        32D                                   #  2       COS(B) B-1
051714,000355: 26,3637                        SOB                =        34D                                   #  2       SIN(B) B-1
051715,000356: 26,3637                        504F               =        6D                                    #  2       F(MOON)
051716,000357: 26,3637           77665 42175  NODDOT             2DEC     -.457335143 E-2                        #  REVS/CSEC B+28=-1.07047016 E-6  RAD/SEC
051717,000358: 26,3641           22211 00265  FDOT               2DEC     .570862491                            #  REVS/CSEC B+27= 2.67240019 E-6  RAD/SEC
051718,000359: 26,3643           77777 77767  BDOT               2DEC     -3.07500412 E-8                        #  REVS/CSEC B+28=-7.19756666 E-14 RAD/SEC
051719,000360: 26,3645           41215 66331  NODIO              2DEC     -.960101269                            #  REVS B-0    = -6.03249419  RAD
051720,000361: 26,3647           15237 26751  FSUBO              2DEC     .415998375                            #  REVS B-0    =  2.61379488  RAD
051721,000362: 26,3651           02052 35713  BSUBO              2DEC     .0651205006                            #  REVS B=0    =  0.409164173 RAD
051722,000363: 26,3653           37116 32630  WEARTH             2DEC     .973561855                            #  REVS/CSEC B+23=7.29211515 E-5 RAD/SEC

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