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
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)
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