Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

051924,000002:                                                                                                  ## Copyright:   Public domain.
051925,000003:                                                                                                  ## Filename:    PLANETARY_INERTIAL_ORIENTATION.agc
051926,000004:                                                                                                  ## Purpose:     A section of Comanche revision 072.
051927,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
051928,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
051929,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
051930,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
051931,000009:                                                                                                  ##              from a printout of Comanche 055, binary dumps of a set of
051932,000010:                                                                                                  ##              Comanche 067 rope modules, and changelogs between Comanche 067
051933,000011:                                                                                                  ##              and 072. It has been adapted such that the resulting bugger words
051934,000012:                                                                                                  ##              exactly match those specified for Comanche 072 in NASA drawing
051935,000013:                                                                                                  ##              2021153G, which gives relatively high confidence that the
051936,000014:                                                                                                  ##              reconstruction is correct.
051937,000015:                                                                                                  ## Assembler:   yaYUL
051938,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
051939,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
051940,000018:                                                                                                  ## Mod history: 2024-05-13 MAS  Created from Comanche 067.
051941,000019: 
051942,000020:                                                                                                  #  ..... RP-TO-R SUBROUTINE .....
051943,000021:                                                                                                  #  SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
051944,000022:                                                                                                  #  EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
051945,000023:                                                                                                  #        R = MT(T) * (RP + LP X RP)      MT = M MATRIX TRANSPOSE
051946,000024: 
051947,000025:                                                                                                  #  CALLING SEQUENCE
051948,000026:                                                                                                  #        L       CALL
051949,000027:                                                                                                  #        L+1             RP-TO-R
051950,000028: 
051951,000029:                                                                                                  #  SUBROUTINES USED
051952,000030:                                                                                                  #        EARTHMX, MOONMX, EARTHL
051953,000031: 
051954,000032:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
051955,000033:                                                                                                  #                504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
051956,000034:                                                                                                  #                IN THE MOON-FIXED COORD. SYSTEM         RADIANS B0
051957,000035: 
051958,000036:                                                                                                  #        ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
051959,000037: 
051960,000038:                                                                                                  #  INPUT
051961,000039:                                                                                                  #        MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
051962,000040:                                                                                                  #        0-5D = RP VECTOR
051963,000041:                                                                                                  #        6-7D = TIME
051964,000042: 
051965,000043:                                                                                                  #  OUTPUT
051966,000044:                                                                                                  #        MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
051967,000045: 
051968,000046: 26,2000                                           SETLOC   PLANTIN                               
051969,000047: 26,2000                                           BANK                                           
051970,000048: 
051971,000049: 26,3343                                           COUNT*   $$/LUROT                              
051972,000050: 
051973,000051: 26,3343           46020        RP-TO-R            STQ      BHIZ                                  
051974,000052: 26,3344           00050                                    RPREXIT                               
051975,000053: 26,3345           55360                                    RPTORA                                
051976,000054: 26,3346           77624                           CALL                                           #  COMPUTE M MATRIX FOR MOON
051977,000055: 26,3347           55420                                    MOONMX                                #  LP=LM FOR MOON        RADIANS B0
051978,000056: 26,3350           77775                           VLOAD                                          
051979,000057: 26,3351           02012                                    504LM                                 
051980,000058: 26,3352           53235        RPTORB             VXV      VAD                                   
051981,000059: 26,3353           00001                                    504RPR                                
051982,000060: 26,3354           00001                                    504RPR                                
051983,000061: 26,3355           52105                           VXM      GOTO                                  
051984,000062: 26,3356           00025                                    MMATRIX                               #  MPAC=R=MT(T)*(RP+LPXRP)
051985,000063: 26,3357           55406                                    RPRPXXXX                              #  RESET PUSHLOC TO 0 BEFORE EXITING
051986,000064: 26,3360           77624        RPTORA             CALL                                           #  EARTH COMPUTATIONS
051987,000065: 26,3361           55572                                    EARTHMX                               #  M MATRIX B-1
051988,000066: 26,3362           77624                           CALL                                           
051989,000067: 26,3363           55624                                    EARTHL                                #  L VECTOR RADIANS B0
051990,000068: 26,3364           76521                           MXV      VSL1                                  #  LP=M(T)*L     RAD B-0
051991,000069: 26,3365           00025                                    MMATRIX                               
051992,000070: 26,3366           77650                           GOTO                                           
051993,000071: 26,3367           55352                                    RPTORB                                
051994,000072: 
051995,000073:                                                                                                  #  ..... R-TO-RP SUBROUTINE .....
051996,000074:                                                                                                  #  SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
051997,000075:                                                                                                  #  (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
051998,000076:                                                                                                  #        RP = M(T) * (R - L X R)
051999,000077: 
052000,000078:                                                                                                  #  CALLING SEQUENCE
052001,000079:                                                                                                  #        L       CALL
052002,000080:                                                                                                  #        L+1             R-TO-RP
052003,000081: 
052004,000082:                                                                                                  #  SUBROUTINES USED
052005,000083:                                                                                                  #        EARTHMX, MOONMX, EARTHL
052006,000084: 
052007,000085:                                                                                                  #  INPUT
052008,000086:                                                                                                  #        MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
052009,000087:                                                                                                  #        0-5D = R VECTOR
052010,000088:                                                                                                  #        6-7D = TIME
052011,000089: 
052012,000090:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
052013,000091:                                                                                                  #                504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
052014,000092:                                                                                                  #                IN THE MOON-FIXED COORD. SYSTEM                 RADIANS B0
052015,000093: 
052016,000094:                                                                                                  #        ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
052017,000095: 
052018,000096:                                                                                                  #  OUTPUT
052019,000097:                                                                                                  #        MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
052020,000098: 
052021,000099: 26,3370           46020        R-TO-RP            STQ      BHIZ                                  
052022,000100: 26,3371           00050                                    RPREXIT                               
052023,000101: 26,3372           55412                                    RTORPA                                
052024,000102: 26,3373           77624                           CALL                                           
052025,000103: 26,3374           55420                                    MOONMX                                
052026,000104: 26,3375           61375                           VLOAD    VXM                                   
052027,000105: 26,3376           02012                                    504LM                                 #  LP=LM
052028,000106: 26,3377           00025                                    MMATRIX                               
052029,000107: 26,3400           77772                           VSL1                                           #  L = MT(T)*LP          RADIANS B0
052030,000108: 26,3401           51235        RTORPB             VXV      BVSU                                  
052031,000109: 26,3402           00001                                    504RPR                                
052032,000110: 26,3403           00001                                    504RPR                                
052033,000111: 26,3404           77721                           MXV                                            #  M(T)*(R-LXR)          B-2
052034,000112: 26,3405           00025                                    MMATRIX                               
052035,000113: 26,3406           40372        RPRPXXXX           VSL1     SETPD                                 
052036,000114: 26,3407           00001                                    0D                                    
052037,000115: 26,3410           77650                           GOTO                                           
052038,000116: 26,3411           00050                                    RPREXIT                               
052039,000117: 26,3412           77624        RTORPA             CALL                                           #  EARTH COMPUTATIONS
052040,000118: 26,3413           55572                                    EARTHMX                               
052041,000119: 26,3414           77624                           CALL                                           
052042,000120: 26,3415           55624                                    EARTHL                                
052043,000121: 26,3416           77650                           GOTO                                           #  MPAC=L=(-AX,-AY,0)    RAD B-0
052044,000122: 26,3417           55401                                    RTORPB                                
052045,000123: 
052046,000124:                                                                                                  #  ..... MOONMX SUBROUTINE .....
052047,000125:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
052048,000126: 
052049,000127:                                                                                                  #  CALLING SEQUENCE
052050,000128:                                                                                                  #        L       CALL
052051,000129:                                                                                                  #        L+1             MOONMX
052052,000130: 
052053,000131:                                                                                                  #  SUBROUTINES USED
052054,000132:                                                                                                  #        NEWANGLE
052055,000133: 
052056,000134:                                                                                                  #  INPUT
052057,000135:                                                                                                  #        6-7D = TIME
052058,000136: 
052059,000137:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
052060,000138:                                                                                                  #                BSUBO, BDOT
052061,000139:                                                                                                  #                TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
052062,000140:                                                                                                  #                COSI = COS(I)   B-1
052063,000141:                                                                                                  #                SINI = SIN(I)   B-1
052064,000142:                                                                                                  #                I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
052065,000143:                                                                                                  #                PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
052066,000144: 
052067,000145:                                                                                                  #  OUTPUT
052068,000146:                                                                                                  #        MMATRIX = 3X3 M MATRIX          B-1 (STORED IN VAC AREA)
052069,000147: 
052070,000148: 26,3420           40220        MOONMX             STQ      SETPD                                 
052071,000149: 26,3421           00051                                    EARTHMXX                              
052072,000150: 26,3422           00011                                    8D                                    
052073,000151: 26,3423           77770                           AXT,1                                          #  B REQUIRES SL 0, SL 5 IN NEWANGLE
052074,000152: 26,3424           00005                                    5                                     
052075,000153: 26,3425           65345                           DLOAD    PDDL                                  #  PD 10D        8-9D=BSUBO
052076,000154: 26,3426           15654                                    BSUBO                                 #                10-11D=BDOT
052077,000155: 26,3427           15646                                    BDOT                                  
052078,000156: 26,3430           45006                           PUSH     CALL                                  #  PD 12D
052079,000157: 26,3431           55545                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= B   REVS B0
052080,000158: 26,3432           71406                           PUSH     COS                                   #  PD 10D
052081,000159: 26,3433           14041                           STODL    COB                                   #  PD 8D         COS(B) B-1
052082,000160: 26,3434           77756                           SIN                                            #                SIN(B) B-1
052083,000161: 26,3435           14043                           STODL    SOB                                   #                SETUP INPUT FOR NEWANGLE
052084,000162: 26,3436           15652                                    FSUBO                                 #                        8-9D=FSUBO
052085,000163: 26,3437           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D       10-11D=FDOT
052086,000164: 26,3440           15644                                    FDOT                                  
052087,000165: 26,3441           45170                           AXT,1    CALL                                  #  F REQUIRES SL 1, SL 6 IN NEWANGLE
052088,000166: 26,3442           00004                                    4                                     
052089,000167: 26,3443           55545                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= F REVS B0
052090,000168: 26,3444           14027                           STODL    AVECTR     +2                         #  SAVE F TEMP
052091,000169: 26,3445           15650                                    NODIO                                 #                        8-9D=NODIO
052092,000170: 26,3446           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D       10-11D=NODDOT
052093,000171: 26,3447           15642                                    NODDOT                                #                        MPAC=T
052094,000172: 26,3450           45170                           AXT,1    CALL                                  #  NODE REQUIRES SL 0, SL 5 IN NEWANGLE
052095,000173: 26,3451           00005                                    5                                     
052096,000174: 26,3452           55545                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= NODI REVS B0
052097,000175: 26,3453           71406                           PUSH     COS                                   #  PD 10D        8-9D= NODI REVS B0
052098,000176: 26,3454           77606                           PUSH                                           #  PD 12D        10-11D= COS(NODI) B-1
052099,000177: 26,3455           00025                           STORE    AVECTR                                
052100,000178: 26,3456           76405                           DMP      SL1R                                  
052101,000179: 26,3457           00041                                    COB                                   #                        COS(NODI) B-1
052102,000180: 26,3460           14035                           STODL    BVECTR     +2                         #  PD 10D  20-25D=AVECTR=COB*SIN(NODI)
052103,000181: 26,3461           76405                           DMP      SL1R                                  #                        SOB*SIN(NODI)
052104,000182: 26,3462           00043                                    SOB                                   
052105,000183: 26,3463           14037                           STODL    BVECTR     +4                         #  PD 8D
052106,000184: 26,3464           41556                           SIN      PUSH                                  #  PD 10D                -SIN(NODI) B-1
052107,000185: 26,3465           77676                           DCOMP                                          #          26-31D=BVECTR=COB*COS(NODI)
052108,000186: 26,3466           14033                           STODL    BVECTR                                #  PD 8D                 SOB*COS(NODI)
052109,000187: 26,3467           00027                                    AVECTR     +2                         #  MOVE F FROM TEMP LOC. TO 504F
052110,000188: 26,3470           14007                           STODL    504F                                  
052111,000189: 26,3471           76405                           DMP      SL1R                                  
052112,000190: 26,3472           00041                                    COB                                   
052113,000191: 26,3473           14027                           STODL    AVECTR     +2                         
052114,000192: 26,3474           00011                                    SINNODI                               #  8-9D=SIN(NODI) B-1
052115,000193: 26,3475           76405                           DMP      SL1R                                  
052116,000194: 26,3476           00043                                    SOB                                   
052117,000195: 26,3477           14031                           STODL    AVECTR     +4                         #                        0
052118,000196: 26,3500           15334                                    HI6ZEROS                              #        8-13D= CVECTR=  -SOB B-1
052119,000197: 26,3501           57525                           PDDL     DCOMP                                 #  PD 10D                COB
052120,000198: 26,3502           00043                                    SOB                                   
052121,000199: 26,3503           63325                           PDDL     PDVL                                  #  PD 12D THEN PD 14D
052122,000200: 26,3504           00041                                    COB                                   
052123,000201: 26,3505           00033                                    BVECTR                                
052124,000202: 26,3506           63361                           VXSC     PDVL                                  #  PD 20D        BVECTR*SINI B-2
052125,000203: 26,3507           15640                                    SINI                                  
052126,000204: 26,3510           00011                                    CVECTR                                
052127,000205: 26,3511           53361                           VXSC     VAD                                   #  PD 14D        CVECTR*COSI B-2
052128,000206: 26,3512           15636                                    COSI                                  
052129,000207: 26,3513           77772                           VSL1                                           
052130,000208: 26,3514           24041                           STOVL    MMATRIX    +12D                       #  PD 8D  M2=BVECTR*SINI+CVECTR*COSI B-1
052131,000209: 26,3515           63361                           VXSC     PDVL                                  #  PD 14D
052132,000210: 26,3516           15640                                    SINI                                  #                CVECTR*SINI B-2
052133,000211: 26,3517           00033                                    BVECTR                                
052134,000212: 26,3520           52361                           VXSC     VSU                                   #  PD 8D         BVECTR*COSI B-2
052135,000213: 26,3521           15636                                    COSI                                  
052136,000214: 26,3522           65372                           VSL1     PDDL                                  #  PD 14D
052137,000215: 26,3523           00007                                    504F                                  #  8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
052138,000216: 26,3524           74346                           COS      VXSC                                  
052139,000217: 26,3525           00011                                    DVECTR                                
052140,000218: 26,3526           73525                           PDDL     SIN                                   #  PD 20D  14-19D= DVECTR*COSF B-2
052141,000219: 26,3527           00007                                    504F                                  
052142,000220: 26,3530           52361                           VXSC     VSU                                   #  PD 14D        AVECTR*SINF B-2
052143,000221: 26,3531           00025                                    AVECTR                                
052144,000222: 26,3532           77772                           VSL1                                           
052145,000223: 26,3533           14033                           STODL    MMATRIX    +6                         #  M1= AVECTR*SINF-DVECTR*COSF B-1
052146,000224: 26,3534           00007                                    504F                                  
052147,000225: 26,3535           74356                           SIN      VXSC                                  #  PD 8D
052148,000226: 26,3536           71525                           PDDL     COS                                   #  PD 14D  8-13D=DVECTR*SINF B-2
052149,000227: 26,3537           00007                                    504F                                  
052150,000228: 26,3540           53361                           VXSC     VAD                                   #  PD 8D         AVECTR*COSF B-2
052151,000229: 26,3541           00025                                    AVECTR                                
052152,000230: 26,3542           57572                           VSL1     VCOMP                                 
052153,000231: 26,3543           34025                           STCALL   MMATRIX                               #  M0= -(AVECTR*COSF+DVECTR*SINF) B-1
052154,000232: 26,3544           00051                                    EARTHMXX                              
052155,000233: 
052156,000234:                                                                                                  #  COMPUTE X=X0+(XDOT)(T+T0)
052157,000235:                                                                                                  #  8-9D= XO (REVS B-0), PUSHLOC SET AT 12D
052158,000236:                                                                                                  #  10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
052159,000237:                                                                                                  #                        AND B+27 FOR FDOT
052160,000238:                                                                                                  #  X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NODDOT AND
052161,000239:                                                                                                  #                                        BDOT AND 4 FOR FDOT
052162,000240:                                                                                                  #  6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
052163,000241: 
052164,000242: 26,3545           54345        NEWANGLE           DLOAD    SR                                    #  ENTER PD 12D
052165,000243: 26,3546           00007                                    6D                                    
052166,000244: 26,3547           20617                                    14D                                   
052167,000245: 26,3550           72371                           TAD      TLOAD                                 #  CHANGE MODE TO TP
052168,000246: 26,3551           01707                                    TIMSUBO                               
052169,000247: 26,3552           00155                                    MPAC                                  
052170,000248: 26,3553           14017                           STODL    TIMSUBM                               #  T+T0 CSEC B-42
052171,000249: 26,3554           00020                                    TIMSUBM    +1                         
052172,000250: 26,3555           77605                           DMP                                            #  PD 10D        MULT BY XDOT IN 10-11D
052173,000251: 26,3556           43257                           SL*      DAD                                   #  PD 8D         ADD XO IN 8-9D AFTER SHIFTING
052174,000252: 26,3557           20206                                    5,1                                   #                SUCH THAT SCALING IS B-0
052175,000253: 26,3560           67206                           PUSH     SLOAD                                 #  PD 10D  SAVE PARTIAL (X0+XDOT*T) IN 8-9D
052176,000254: 26,3561           00017                                    TIMSUBM                               
052177,000255: 26,3562           41261                           SL       DMP                                   
052178,000256: 26,3563           20212                                    9D                                    
052179,000257: 26,3564           00013                                    10D                                   #  XDOT
052180,000258: 26,3565           43257                           SL*      DAD                                   #  PD 8D         SHIFT SUCH THAT THIS PART OF X
052181,000259: 26,3566           20213                                    10D,1                                 #                IS SCALED REVS/CSEC B-0
052182,000260: 26,3567           77600                           BOV                                            #  TURN OFF OVERFLOW IF SET BY SHIFT
052183,000261: 26,3570           55571                                    +1                                    #  INSTRUCTION BEFORE EXITING
052184,000262: 26,3571           77616                           RVQ                                            #  MPAC=X= X0+(XDOT)(T+T0)       REVS B0
052185,000263: 
052186,000264:                                                                                                  #  ..... EARTHMX SUBROUTINE .....
052187,000265:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
052188,000266: 
052189,000267:                                                                                                  #  CALLING SEQUENCE
052190,000268:                                                                                                  #        L       CALL
052191,000269:                                                                                                  #        L+1             EARTHMX
052192,000270: 
052193,000271:                                                                                                  #  SUBROUTINES USED
052194,000272:                                                                                                  #        NEWANGLE
052195,000273: 
052196,000274:                                                                                                  #  INPUT
052197,000275:                                                                                                  #        INPUT AVAILABLE FROM LAUNCH DATA        AZO REVS B-0
052198,000276:                                                                                                  #                                                TEPHEM CSEC B-42
052199,000277:                                                                                                  #        6-7D= TIME CSEC B-28
052200,000278: 
052201,000279:                                                                                                  #  OUTPUT
052202,000280:                                                                                                  #        MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
052203,000281: 
052204,000282: 26,3572           40220        EARTHMX            STQ      SETPD                                 #  SET 8-9D=AZO
052205,000283: 26,3573           00051                                    EARTHMXX                              
052206,000284: 26,3574           00011                                    8D                                    #  10-11D=WEARTH
052207,000285: 26,3575           77770                           AXT,1                                          #  FOR SL 5, AND SL 10 IN NEWANGLE
052208,000286: 26,3576           00000                                    0                                     
052209,000287: 26,3577           65345                           DLOAD    PDDL                                  #  LEAVING PD SET AT 12D FOR NEWANGLE
052210,000288: 26,3600           01712                                    AZO                                   
052211,000289: 26,3601           15656                                    WEARTH                                
052212,000290: 26,3602           45006                           PUSH     CALL                                  
052213,000291: 26,3603           55545                                    NEWANGLE                              
052214,000292: 26,3604           41401                           SETPD    PUSH                                  #  18-19D=504AZ
052215,000293: 26,3605           00023                                    18D                                   #                         COS(AZ)   SIN(AZ)     0
052216,000294: 26,3606           65346                           COS      PDDL                                  #  20-37D=  MMATRIX=     -SIN(AZ)   COS(AZ)     0    B-1
052217,000295: 26,3607           00023                                    504AZ                                 #                            0         0        1
052218,000296: 26,3610           65356                           SIN      PDDL                                  
052219,000297: 26,3611           15334                                    HI6ZEROS                              
052220,000298: 26,3612           73525                           PDDL     SIN                                   
052221,000299: 26,3613           00023                                    504AZ                                 
052222,000300: 26,3614           65276                           DCOMP    PDDL                                  
052223,000301: 26,3615           00023                                    504AZ                                 
052224,000302: 26,3616           63346                           COS      PDVL                                  
052225,000303: 26,3617           15334                                    HI6ZEROS                              
052226,000304: 26,3620           41525                           PDDL     PUSH                                  
052227,000305: 26,3621           15332                                    HIDPHALF                              
052228,000306: 26,3622           77650                           GOTO                                           
052229,000307: 26,3623           00051                                    EARTHMXX                              
052230,000308: 
052231,000309:                                                                                                  #  ..... EARTHL SUBROUTINE .....
052232,000310:                                                                                                  #  SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
052233,000311: 
052234,000312:                                                                                                  #  CALLING SEQUENCE
052235,000313:                                                                                                  #        L       CALL
052236,000314:                                                                                                  #        L+1             EARTHL
052237,000315: 
052238,000316:                                                                                                  #  INPUT
052239,000317:                                                                                                  #        AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
052240,000318: 
052241,000319:                                                                                                  #  OUTPUT
052242,000320:                                                                                                  #                -AX
052243,000321:                                                                                                  #        MPAC=   -AY     RADIANS B-0
052244,000322:                                                                                                  #                  0
052245,000323: 
052246,000324: 26,3624           57545        EARTHL             DLOAD    DCOMP                                 
052247,000325: 26,3625           01716                                    AXO                                   
052248,000326: 26,3626           14017                           STODL    504LPL                                
052249,000327: 26,3627           01714                                    -AYO                                  
052250,000328: 26,3630           14021                           STODL    504LPL     +2                         
052251,000329: 26,3631           15334                                    HI6ZEROS                              
052252,000330: 26,3632           24023                           STOVL    504LPL     +4                         
052253,000331: 26,3633           00017                                    504LPL                                
052254,000332: 26,3634           77616                           RVQ                                            
052255,000333: 
052256,000334:                                                                                                  #  CONSTANTS AND ERASABLE ASSIGNMENTS
052257,000335: 
052258,000336: 26,3635  04,3563               1B1                =        DP1/2                                 #  1 SCALED B-1
052259,000337: 26,3635           17775 02052  COSI               2DEC     .99964173  B-1                        #  COS(5521.5 SEC) B-1
052260,000338: 
052261,000339: 26,3637           00333 10374  SINI               2DEC     .02676579  B-1                        #  SIN(5521.5 SEC) B-1
052262,000340: 
052263,000341: 26,3641  0000050               RPREXIT            =        S1                                    #  R-TO-RP AND RP-TO-R SUBR EXIT
052264,000342: 26,3641  0000051               EARTHMXX           =        S2                                    #  EARTHMX, MOONMX SUBR. EXITS
052265,000343: 26,3641                        504RPR             =        0D                                    #  6 REGS        R OR RP VECTOR
052266,000344: 26,3641                        SINNODI            =        8D                                    #  2             SIN(NODI)
052267,000345: 26,3641                        DVECTR             =        8D                                    #  6             D VECTOR MOON
052268,000346: 26,3641                        CVECTR             =        8D                                    #  6             C VECTR MOON
052269,000347: 26,3641                        504AZ              =        18D                                   #  2             AZ
052270,000348: 26,3641                        TIMSUBM            =        14D                                   #  3             TIME SUB M (MOON) T+T0 IN GETAZ
052271,000349: 26,3641                        504LPL             =        14D                                   #  6             L OR LP VECTOR
052272,000350: 26,3641                        AVECTR             =        20D                                   #  6             A VECTOR (MOON)
052273,000351: 26,3641                        BVECTR             =        26D                                   #  6             B VECTOR (MOON)
052274,000352: 26,3641                        MMATRIX            =        20D                                   #  18            M MATRIX
052275,000353: 26,3641                        COB                =        32D                                   #  2             COS(B) B-1
052276,000354: 26,3641                        SOB                =        34D                                   #  2             SIN(B) B-1
052277,000355: 26,3641                        504F               =        6D                                    #  2             F(MOON)
052278,000356: 26,3641           77665 42175  NODDOT             2DEC*    -1.703706190 E-11       B28*            #  REV/CSEC
052279,000357: 
052280,000358: 26,3643           22211 00636  FDOT               2DEC*    4.253263473 E-9        B27*            #  REV/CSEC
052281,000359: 
052282,000360: 26,3645           77777 77767  BDOT               2DEC*    -1.145529388 E-16       B28*            #  REV/CSEC
052283,000361: 
052284,000362: 26,3647           37436 01614  NODIO              2DEC*    9.862094363 E-1*                       #  REV
052285,000363: 
052286,000364: 26,3651           32417 32011  FSUBO              2DEC*    8.290901511 E-1*                       #  REV
052287,000365: 
052288,000366: 26,3653           02052 35552  BSUBO              2DEC     6.512013939 E-2                        #  REVS
052289,000367: 
052290,000368: 26,3655           37116 32631  WEARTH             2DEC*    1.160576171 E-7        B23*            #  REV/CSEC
052291,000369: 

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