Source Code

These source-code files are part of a reconstructed copy of Comanche 44, the initial release (though not the final mission release) of the Apollo 10 Command Module (CM) Apollo Guidance Computer (AGC) software. Subsequent releases were Comanche 45 and Comanche 45/2 (the flown release on Apollo 10). The reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era listing of Comanche 44, some explanation of the reconstruction process is needed to insure confidence in that accuracy.

The starting point was the source code of Comanche 51 (separately previously reconstructed from an Apollo-era listing of Comanche 55, flown on Apollo 11). Comanche 51 source code was then modified by undoing changes known to have been made between revisions 44 and 51. The now-reconstructed Comanche 44 source code was verified by assembling it and checking that the assembled code had the expected known-correct memory-bank checksums. Note that page numbers in the reconstructed code match those on the Comanche 55 printout, although the source code would likely have different page numbers in a contemporary Comanche 44 listing.

Annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change relative to Comanche 51. Here's a guide to the Apollo documentation referenced in those annotations:
In most cases, only the titles (rather than the full texts) of PCRs are known. In addition to the explanatory annotations, there is also a step-by-step commentary about the reconstruction process.

Comments expected to have been present in the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC Project's GitHub repository.

053334,000002:                                                                                                  ## Copyright:   Public domain.
053335,000003:                                                                                                  ## Filename:    PLANETARY_INERTIAL_ORIENTATION.agc
053336,000004:                                                                                                  ## Purpose:     A section of Comanche revision 044.
053337,000005:                                                                                                  ##              It is part of the reconstructed source code for the
053338,000006:                                                                                                  ##              original release of the flight software for the Command
053339,000007:                                                                                                  ##              Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
053340,000008:                                                                                                  ##              The code has been recreated from a copy of Comanche 055. It
053341,000009:                                                                                                  ##              has been adapted such that the resulting bugger words
053342,000010:                                                                                                  ##              exactly match those specified for Comanche 44 in NASA drawing
053343,000011:                                                                                                  ##              2021153D, which gives relatively high confidence that the
053344,000012:                                                                                                  ##              reconstruction is correct.
053345,000013:                                                                                                  ## Assembler:   yaYUL
053346,000014:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
053347,000015:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
053348,000016:                                                                                                  ## Mod history: 2020-12-03 MAS  Created from Comanche 51. Changed constants
053349,000017:                                                                                                  ##                              to match the 1968-1969 values in Colossus 294.
053350,000018:                                                                                                  ##              2020-12-12 RSB  Added justifying annotations for the steps of
053351,000019:                                                                                                  ##                              Mike's reconstruction.
053352,000020: 

Page 1243

053354,000022:                                                                                                  #  ..... RP-TO-R SUBROUTINE .....
053355,000023:                                                                                                  #  SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
053356,000024:                                                                                                  #  EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
053357,000025:                                                                                                  #        R = MT(T) * (RP + LP X RP)      MT = M MATRIX TRANSPOSE
053358,000026: 
053359,000027:                                                                                                  #  CALLING SEQUENCE
053360,000028:                                                                                                  #        L       CALL
053361,000029:                                                                                                  #        L+1             RP-TO-R
053362,000030: 
053363,000031:                                                                                                  #  SUBROUTINES USED
053364,000032:                                                                                                  #        EARTHMX, MOONMX, EARTHL
053365,000033: 
053366,000034:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
053367,000035:                                                                                                  #                504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
053368,000036:                                                                                                  #                IN THE MOON-FIXED COORD. SYSTEM         RADIANS B0
053369,000037: 
053370,000038:                                                                                                  #        ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
053371,000039: 
053372,000040:                                                                                                  #  INPUT
053373,000041:                                                                                                  #        MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
053374,000042:                                                                                                  #        0-5D = RP VECTOR
053375,000043:                                                                                                  #        6-7D = TIME
053376,000044: 
053377,000045:                                                                                                  #  OUTPUT
053378,000046:                                                                                                  #        MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
053379,000047: 
053380,000048: 26,2000                                           SETLOC   PLANTIN                               
053381,000049: 26,2000                                           BANK                                           
053382,000050: 
053383,000051: 26,3344                                           COUNT*   $$/LUROT                              
053384,000052: 
053385,000053: 26,3344           46020        RP-TO-R            STQ      BHIZ                                  
053386,000054: 26,3345           00050                                    RPREXIT                               
053387,000055: 26,3346           55361                                    RPTORA                                
053388,000056: 26,3347           77624                           CALL                                           #  COMPUTE M MATRIX FOR MOON
053389,000057: 26,3350           55421                                    MOONMX                                #  LP=LM FOR MOON        RADIANS B0
053390,000058: 26,3351           77775                           VLOAD                                          
053391,000059: 26,3352           02012                                    504LM                                 
053392,000060: 26,3353           53235        RPTORB             VXV      VAD                                   
053393,000061: 26,3354           00001                                    504RPR                                
053394,000062: 26,3355           00001                                    504RPR                                
053395,000063: 26,3356           52105                           VXM      GOTO                                  
053396,000064: 26,3357           00025                                    MMATRIX                               #  MPAC=R=MT(T)*(RP+LPXRP)
053397,000065: 26,3360           55407                                    RPRPXXXX                              #  RESET PUSHLOC TO 0 BEFORE EXITING
053398,000066: 26,3361           77624        RPTORA             CALL                                           #  EARTH COMPUTATIONS
053399,000067: 26,3362           55573                                    EARTHMX                               #  M MATRIX B-1
053400,000068: 26,3363           77624                           CALL                                           
053401,000069: 26,3364           55625                                    EARTHL                                #  L VECTOR RADIANS B0
053402,000070: 26,3365           76521                           MXV      VSL1                                  #  LP=M(T)*L     RAD B-0
053403,000071: 26,3366           00025                                    MMATRIX                               

Page 1244

053405,000073: 26,3367           77650                           GOTO                                           
053406,000074: 26,3370           55353                                    RPTORB                                
053407,000075: 

Page 1245

053409,000077:                                                                                                  #  ..... R-TO-RP SUBROUTINE .....
053410,000078:                                                                                                  #  SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
053411,000079:                                                                                                  #  (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
053412,000080:                                                                                                  #        RP = M(T) * (R - L X R)
053413,000081: 
053414,000082:                                                                                                  #  CALLING SEQUENCE
053415,000083:                                                                                                  #        L       CALL
053416,000084:                                                                                                  #        L+1             R-TO-RP
053417,000085: 
053418,000086:                                                                                                  #  SUBROUTINES USED
053419,000087:                                                                                                  #        EARTHMX, MOONMX, EARTHL
053420,000088: 
053421,000089:                                                                                                  #  INPUT
053422,000090:                                                                                                  #        MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
053423,000091:                                                                                                  #        0-5D = R VECTOR
053424,000092:                                                                                                  #        6-7D = TIME
053425,000093: 
053426,000094:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
053427,000095:                                                                                                  #                504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
053428,000096:                                                                                                  #                IN THE MOON-FIXED COORD. SYSTEM                 RADIANS B0
053429,000097: 
053430,000098:                                                                                                  #        ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
053431,000099: 
053432,000100:                                                                                                  #  OUTPUT
053433,000101:                                                                                                  #        MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
053434,000102: 
053435,000103: 26,3371           46020        R-TO-RP            STQ      BHIZ                                  
053436,000104: 26,3372           00050                                    RPREXIT                               
053437,000105: 26,3373           55413                                    RTORPA                                
053438,000106: 26,3374           77624                           CALL                                           
053439,000107: 26,3375           55421                                    MOONMX                                
053440,000108: 26,3376           61375                           VLOAD    VXM                                   
053441,000109: 26,3377           02012                                    504LM                                 #  LP=LM
053442,000110: 26,3400           00025                                    MMATRIX                               
053443,000111: 26,3401           77772                           VSL1                                           #  L = MT(T)*LP          RADIANS B0
053444,000112: 26,3402           51235        RTORPB             VXV      BVSU                                  
053445,000113: 26,3403           00001                                    504RPR                                
053446,000114: 26,3404           00001                                    504RPR                                
053447,000115: 26,3405           77721                           MXV                                            #  M(T)*(R-LXR)          B-2
053448,000116: 26,3406           00025                                    MMATRIX                               
053449,000117: 26,3407           40372        RPRPXXXX           VSL1     SETPD                                 
053450,000118: 26,3410           00001                                    0D                                    
053451,000119: 26,3411           77650                           GOTO                                           
053452,000120: 26,3412           00050                                    RPREXIT                               
053453,000121: 26,3413           77624        RTORPA             CALL                                           #  EARTH COMPUTATIONS
053454,000122: 26,3414           55573                                    EARTHMX                               
053455,000123: 26,3415           77624                           CALL                                           
053456,000124: 26,3416           55625                                    EARTHL                                
053457,000125: 26,3417           77650                           GOTO                                           #  MPAC=L=(-AX,-AY,0)    RAD B-0
053458,000126: 26,3420           55402                                    RTORPB                                
053459,000127: 

Page 1246

053461,000129:                                                                                                  #  ..... MOONMX SUBROUTINE .....
053462,000130:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
053463,000131: 
053464,000132:                                                                                                  #  CALLING SEQUENCE
053465,000133:                                                                                                  #        L       CALL
053466,000134:                                                                                                  #        L+1             MOONMX
053467,000135: 
053468,000136:                                                                                                  #  SUBROUTINES USED
053469,000137:                                                                                                  #        NEWANGLE
053470,000138: 
053471,000139:                                                                                                  #  INPUT
053472,000140:                                                                                                  #        6-7D = TIME
053473,000141: 
053474,000142:                                                                                                  #        ITEMS AVAILABLE FROM LAUNCH DATA
053475,000143:                                                                                                  #                BSUBO, BDOT
053476,000144:                                                                                                  #                TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
053477,000145:                                                                                                  #                COSI = COS(I)   B-1
053478,000146:                                                                                                  #                SINI = SIN(I)   B-1
053479,000147:                                                                                                  #                I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
053480,000148:                                                                                                  #                PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
053481,000149: 
053482,000150:                                                                                                  #  OUTPUT
053483,000151:                                                                                                  #        MMATRIX = 3X3 M MATRIX          B-1 (STORED IN VAC AREA)
053484,000152: 
053485,000153: 26,3421           40220        MOONMX             STQ      SETPD                                 
053486,000154: 26,3422           00051                                    EARTHMXX                              
053487,000155: 26,3423           00011                                    8D                                    
053488,000156: 26,3424           77770                           AXT,1                                          #  B REQUIRES SL 0, SL 5 IN NEWANGLE
053489,000157: 26,3425           00005                                    5                                     
053490,000158: 26,3426           65345                           DLOAD    PDDL                                  #  PD 10D        8-9D=BSUBO
053491,000159: 26,3427           15655                                    BSUBO                                 #                10-11D=BDOT
053492,000160: 26,3430           15647                                    BDOT                                  
053493,000161: 26,3431           45006                           PUSH     CALL                                  #  PD 12D
053494,000162: 26,3432           55546                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= B   REVS B0
053495,000163: 26,3433           71406                           PUSH     COS                                   #  PD 10D
053496,000164: 26,3434           14041                           STODL    COB                                   #  PD 8D         COS(B) B-1
053497,000165: 26,3435           77756                           SIN                                            #                SIN(B) B-1
053498,000166: 26,3436           14043                           STODL    SOB                                   #                SETUP INPUT FOR NEWANGLE
053499,000167: 26,3437           15653                                    FSUBO                                 #                        8-9D=FSUBO
053500,000168: 26,3440           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D       10-11D=FDOT
053501,000169: 26,3441           15645                                    FDOT                                  
053502,000170: 26,3442           45170                           AXT,1    CALL                                  #  F REQUIRES SL 1, SL 6 IN NEWANGLE
053503,000171: 26,3443           00004                                    4                                     
053504,000172: 26,3444           55546                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= F REVS B0
053505,000173: 26,3445           14027                           STODL    AVECTR     +2                         #  SAVE F TEMP
053506,000174: 26,3446           15651                                    NODIO                                 #                        8-9D=NODIO
053507,000175: 26,3447           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D       10-11D=NODDOT
053508,000176: 26,3450           15643                                    NODDOT                                #                        MPAC=T
053509,000177: 26,3451           45170                           AXT,1    CALL                                  #  NODE REQUIRES SL 0, SL 5 IN NEWANGLE
053510,000178: 26,3452           00005                                    5                                     
053511,000179: 26,3453           55546                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= NODI REVS B0

Page 1247

053513,000181: 26,3454           71406                           PUSH     COS                                   #  PD 10D        8-9D= NODI REVS B0
053514,000182: 26,3455           77606                           PUSH                                           #  PD 12D        10-11D= COS(NODI) B-1
053515,000183: 26,3456           00025                           STORE    AVECTR                                
053516,000184: 26,3457           76405                           DMP      SL1R                                  
053517,000185: 26,3460           00041                                    COB                                   #                        COS(NODI) B-1
053518,000186: 26,3461           14035                           STODL    BVECTR     +2                         #  PD 10D  20-25D=AVECTR=COB*SIN(NODI)
053519,000187: 26,3462           76405                           DMP      SL1R                                  #                        SOB*SIN(NODI)
053520,000188: 26,3463           00043                                    SOB                                   
053521,000189: 26,3464           14037                           STODL    BVECTR     +4                         #  PD 8D
053522,000190: 26,3465           41556                           SIN      PUSH                                  #  PD 10D                -SIN(NODI) B-1
053523,000191: 26,3466           77676                           DCOMP                                          #          26-31D=BVECTR=COB*COS(NODI)
053524,000192: 26,3467           14033                           STODL    BVECTR                                #  PD 8D                 SOB*COS(NODI)
053525,000193: 26,3470           00027                                    AVECTR     +2                         #  MOVE F FROM TEMP LOC. TO 504F
053526,000194: 26,3471           14007                           STODL    504F                                  
053527,000195: 26,3472           76405                           DMP      SL1R                                  
053528,000196: 26,3473           00041                                    COB                                   
053529,000197: 26,3474           14027                           STODL    AVECTR     +2                         
053530,000198: 26,3475           00011                                    SINNODI                               #  8-9D=SIN(NODI) B-1
053531,000199: 26,3476           76405                           DMP      SL1R                                  
053532,000200: 26,3477           00043                                    SOB                                   
053533,000201: 26,3500           14031                           STODL    AVECTR     +4                         #                        0
053534,000202: 26,3501           15335                                    HI6ZEROS                              #        8-13D= CVECTR=  -SOB B-1
053535,000203: 26,3502           57525                           PDDL     DCOMP                                 #  PD 10D                COB
053536,000204: 26,3503           00043                                    SOB                                   
053537,000205: 26,3504           63325                           PDDL     PDVL                                  #  PD 12D THEN PD 14D
053538,000206: 26,3505           00041                                    COB                                   
053539,000207: 26,3506           00033                                    BVECTR                                
053540,000208: 26,3507           63361                           VXSC     PDVL                                  #  PD 20D        BVECTR*SINI B-2
053541,000209: 26,3510           15641                                    SINI                                  
053542,000210: 26,3511           00011                                    CVECTR                                
053543,000211: 26,3512           53361                           VXSC     VAD                                   #  PD 14D        CVECTR*COSI B-2
053544,000212: 26,3513           15637                                    COSI                                  
053545,000213: 26,3514           77772                           VSL1                                           
053546,000214: 26,3515           24041                           STOVL    MMATRIX    +12D                       #  PD 8D  M2=BVECTR*SINI+CVECTR*COSI B-1
053547,000215: 26,3516           63361                           VXSC     PDVL                                  #  PD 14D
053548,000216: 26,3517           15641                                    SINI                                  #                CVECTR*SINI B-2
053549,000217: 26,3520           00033                                    BVECTR                                
053550,000218: 26,3521           52361                           VXSC     VSU                                   #  PD 8D         BVECTR*COSI B-2
053551,000219: 26,3522           15637                                    COSI                                  
053552,000220: 26,3523           65372                           VSL1     PDDL                                  #  PD 14D
053553,000221: 26,3524           00007                                    504F                                  #  8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
053554,000222: 26,3525           74346                           COS      VXSC                                  
053555,000223: 26,3526           00011                                    DVECTR                                
053556,000224: 26,3527           73525                           PDDL     SIN                                   #  PD 20D  14-19D= DVECTR*COSF B-2
053557,000225: 26,3530           00007                                    504F                                  
053558,000226: 26,3531           52361                           VXSC     VSU                                   #  PD 14D        AVECTR*SINF B-2
053559,000227: 26,3532           00025                                    AVECTR                                
053560,000228: 26,3533           77772                           VSL1                                           
053561,000229: 26,3534           14033                           STODL    MMATRIX    +6                         #  M1= AVECTR*SINF-DVECTR*COSF B-1
053562,000230: 26,3535           00007                                    504F                                  

Page 1248

053564,000232: 26,3536           74356                           SIN      VXSC                                  #  PD 8D
053565,000233: 26,3537           71525                           PDDL     COS                                   #  PD 14D  8-13D=DVECTR*SINF B-2
053566,000234: 26,3540           00007                                    504F                                  
053567,000235: 26,3541           53361                           VXSC     VAD                                   #  PD 8D         AVECTR*COSF B-2
053568,000236: 26,3542           00025                                    AVECTR                                
053569,000237: 26,3543           57572                           VSL1     VCOMP                                 
053570,000238: 26,3544           34025                           STCALL   MMATRIX                               #  M0= -(AVECTR*COSF+DVECTR*SINF) B-1
053571,000239: 26,3545           00051                                    EARTHMXX                              
053572,000240: 
053573,000241:                                                                                                  #  COMPUTE X=X0+(XDOT)(T+T0)
053574,000242:                                                                                                  #  8-9D= XO (REVS B-0), PUSHLOC SET AT 12D
053575,000243:                                                                                                  #  10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
053576,000244:                                                                                                  #                        AND B+27 FOR FDOT
053577,000245:                                                                                                  #  X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NODDOT AND
053578,000246:                                                                                                  #                                        BDOT AND 4 FOR FDOT
053579,000247:                                                                                                  #  6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
053580,000248: 
053581,000249: 26,3546           54345        NEWANGLE           DLOAD    SR                                    #  ENTER PD 12D
053582,000250: 26,3547           00007                                    6D                                    
053583,000251: 26,3550           20617                                    14D                                   
053584,000252: 26,3551           72371                           TAD      TLOAD                                 #  CHANGE MODE TO TP
053585,000253: 26,3552           01707                                    TIMSUBO                               
053586,000254: 26,3553           00155                                    MPAC                                  
053587,000255: 26,3554           14017                           STODL    TIMSUBM                               #  T+T0 CSEC B-42
053588,000256: 26,3555           00020                                    TIMSUBM    +1                         
053589,000257: 26,3556           77605                           DMP                                            #  PD 10D        MULT BY XDOT IN 10-11D
053590,000258: 26,3557           43257                           SL*      DAD                                   #  PD 8D         ADD XO IN 8-9D AFTER SHIFTING
053591,000259: 26,3560           20206                                    5,1                                   #                SUCH THAT SCALING IS B-0
053592,000260: 26,3561           67206                           PUSH     SLOAD                                 #  PD 10D  SAVE PARTIAL (X0+XDOT*T) IN 8-9D
053593,000261: 26,3562           00017                                    TIMSUBM                               
053594,000262: 26,3563           41261                           SL       DMP                                   
053595,000263: 26,3564           20212                                    9D                                    
053596,000264: 26,3565           00013                                    10D                                   #  XDOT
053597,000265: 26,3566           43257                           SL*      DAD                                   #  PD 8D         SHIFT SUCH THAT THIS PART OF X
053598,000266: 26,3567           20213                                    10D,1                                 #                IS SCALED REVS/CSEC B-0
053599,000267: 26,3570           77600                           BOV                                            #  TURN OFF OVERFLOW IF SET BY SHIFT
053600,000268: 26,3571           55572                                    +1                                    #  INSTRUCTION BEFORE EXITING
053601,000269: 26,3572           77616                           RVQ                                            #  MPAC=X= X0+(XDOT)(T+T0)       REVS B0
053602,000270: 

Page 1249

053604,000272:                                                                                                  #  ..... EARTHMX SUBROUTINE .....
053605,000273:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
053606,000274: 
053607,000275:                                                                                                  #  CALLING SEQUENCE
053608,000276:                                                                                                  #        L       CALL
053609,000277:                                                                                                  #        L+1             EARTHMX
053610,000278: 
053611,000279:                                                                                                  #  SUBROUTINES USED
053612,000280:                                                                                                  #        NEWANGLE
053613,000281: 
053614,000282:                                                                                                  #  INPUT
053615,000283:                                                                                                  #        INPUT AVAILABLE FROM LAUNCH DATA        AZO REVS B-0
053616,000284:                                                                                                  #                                                TEPHEM CSEC B-42
053617,000285:                                                                                                  #        6-7D= TIME CSEC B-28
053618,000286: 
053619,000287:                                                                                                  #  OUTPUT
053620,000288:                                                                                                  #        MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
053621,000289: 
053622,000290: 26,3573           40220        EARTHMX            STQ      SETPD                                 #  SET 8-9D=AZO
053623,000291: 26,3574           00051                                    EARTHMXX                              
053624,000292: 26,3575           00011                                    8D                                    #  10-11D=WEARTH
053625,000293: 26,3576           77770                           AXT,1                                          #  FOR SL 5, AND SL 10 IN NEWANGLE
053626,000294: 26,3577           00000                                    0                                     
053627,000295: 26,3600           65345                           DLOAD    PDDL                                  #  LEAVING PD SET AT 12D FOR NEWANGLE
053628,000296: 26,3601           01712                                    AZO                                   
053629,000297: 26,3602           15657                                    WEARTH                                
053630,000298: 26,3603           45006                           PUSH     CALL                                  
053631,000299: 26,3604           55546                                    NEWANGLE                              
053632,000300: 26,3605           41401                           SETPD    PUSH                                  #  18-19D=504AZ
053633,000301: 26,3606           00023                                    18D                                   #                         COS(AZ)   SIN(AZ)     0
053634,000302: 26,3607           65346                           COS      PDDL                                  #  20-37D=  MMATRIX=     -SIN(AZ)   COS(AZ)     0    B-1
053635,000303: 26,3610           00023                                    504AZ                                 #                            0         0        1
053636,000304: 26,3611           65356                           SIN      PDDL                                  
053637,000305: 26,3612           15335                                    HI6ZEROS                              
053638,000306: 26,3613           73525                           PDDL     SIN                                   
053639,000307: 26,3614           00023                                    504AZ                                 
053640,000308: 26,3615           65276                           DCOMP    PDDL                                  
053641,000309: 26,3616           00023                                    504AZ                                 
053642,000310: 26,3617           63346                           COS      PDVL                                  
053643,000311: 26,3620           15335                                    HI6ZEROS                              
053644,000312: 26,3621           41525                           PDDL     PUSH                                  
053645,000313: 26,3622           15333                                    HIDPHALF                              
053646,000314: 26,3623           77650                           GOTO                                           
053647,000315: 26,3624           00051                                    EARTHMXX                              
053648,000316: 

Page 1250

053650,000318:                                                                                                  #  ..... EARTHL SUBROUTINE .....
053651,000319:                                                                                                  #  SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
053652,000320: 
053653,000321:                                                                                                  #  CALLING SEQUENCE
053654,000322:                                                                                                  #        L       CALL
053655,000323:                                                                                                  #        L+1             EARTHL
053656,000324: 
053657,000325:                                                                                                  #  INPUT
053658,000326:                                                                                                  #        AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
053659,000327: 
053660,000328:                                                                                                  #  OUTPUT
053661,000329:                                                                                                  #                -AX
053662,000330:                                                                                                  #        MPAC=   -AY     RADIANS B-0
053663,000331:                                                                                                  #                  0
053664,000332: 
053665,000333: 26,3625           57545        EARTHL             DLOAD    DCOMP                                 
053666,000334: 26,3626           01716                                    AXO                                   
053667,000335: 26,3627           14017                           STODL    504LPL                                
053668,000336: 26,3630           01714                                    -AYO                                  
053669,000337: 26,3631           14021                           STODL    504LPL     +2                         
053670,000338: 26,3632           15335                                    HI6ZEROS                              
053671,000339: 26,3633           24023                           STOVL    504LPL     +4                         
053672,000340: 26,3634           00017                                    504LPL                                
053673,000341: 26,3635           77616                           RVQ                                            
053674,000342: 

Page 1251

053676,000344:                                                                                                  #  CONSTANTS AND ERASABLE ASSIGNMENTS
053677,000345: 
053678,000346: 26,3636  04,3560               1B1                =        DP1/2                                 #  1 SCALED B-1

Reconstruction: The variables COSI and SINI have reverted to their Colossus 249 (Apollo 9) values. Refer to Programmed Guidance Equations for Colossus 2, pp. COOR-16 and -17.

053683,000351: 26,3636           17775 01734  COSI               2DEC     .99964115  B-1                        #  COS(1 DEG 32.1 MIN) B-1
053684,000352: 
053685,000353: 26,3640           00333 16153  SINI               2DEC     .02678760  B-1                        #  SIN(1 DEG 32.1 MIN) B-1
053686,000354: 
053687,000355: 26,3642  0000050               RPREXIT            =        S1                                    #  R-TO-RP AND RP-TO-R SUBR EXIT
053688,000356: 26,3642  0000051               EARTHMXX           =        S2                                    #  EARTHMX, MOONMX SUBR. EXITS
053689,000357: 26,3642                        504RPR             =        0D                                    #  6 REGS        R OR RP VECTOR
053690,000358: 26,3642                        SINNODI            =        8D                                    #  2             SIN(NODI)
053691,000359: 26,3642                        DVECTR             =        8D                                    #  6             D VECTOR MOON
053692,000360: 26,3642                        CVECTR             =        8D                                    #  6             C VECTR MOON
053693,000361: 26,3642                        504AZ              =        18D                                   #  2             AZ
053694,000362: 26,3642                        TIMSUBM            =        14D                                   #  3             TIME SUB M (MOON) T+T0 IN GETAZ
053695,000363: 26,3642                        504LPL             =        14D                                   #  6             L OR LP VECTOR
053696,000364: 26,3642                        AVECTR             =        20D                                   #  6             A VECTOR (MOON)
053697,000365: 26,3642                        BVECTR             =        26D                                   #  6             B VECTOR (MOON)
053698,000366: 26,3642                        MMATRIX            =        20D                                   #  18            M MATRIX
053699,000367: 26,3642                        COB                =        32D                                   #  2             COS(B) B-1
053700,000368: 26,3642                        SOB                =        34D                                   #  2             SIN(B) B-1
053701,000369: 26,3642                        504F               =        6D                                    #  2             F(MOON)

Reconstruction: The variables NODDOT, FDOT, BDOT, NODIO, FSUB0, BSUB0, and WEARTH have reverted to their Colossus 249 (Apollo 9) values. Refer to Programmed Guidance Equations for Colossus 2, pp. COOR-16 and -17.

053706,000374: 26,3642           77665 42175  NODDOT             2DEC     -.457335143 E-2                        #  REVS/CSEC B+28=-1.07047016 E-6  RAD/SEC
053707,000375: 
053708,000376: 26,3644           22211 00265  FDOT               2DEC     .570862491                            #  REVS/CSEC B+27= 2.67240019 E-6  RAD/SEC
053709,000377: 
053710,000378: 26,3646           77777 77767  BDOT               2DEC     -3.07500412 E-8                        #  REVS/CSEC B+28=-7.19756666 E-14 RAD/SEC
053711,000379: 
053712,000380: 26,3650           41215 66331  NODIO              2DEC     -.960101269                            #  REVS B-0      =-6.03249419      RAD
053713,000381: 
053714,000382: 26,3652           15237 26751  FSUBO              2DEC     .415998375                            #  REVS B-0      = 2.61379488      RAD
053715,000383: 
053716,000384: 26,3654           02052 35713  BSUBO              2DEC     .0651205006                            #  REVS B=0      = 0.409164173     RAD
053717,000385: 
053718,000386: 26,3656           37116 32630  WEARTH             2DEC     .973561855                            #  REVS/CSEC B+23= 7.29211515 E-5  RAD/SEC
053719,000387: 

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