GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
053225,000002: ## Copyright: Public domain.
053226,000003: ## Filename: PLANETARY_INERTIAL_ORIENTATION.agc
053227,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
053228,000005: ## build 072. This is for the Command Module's (CM)
053229,000006: ## Apollo Guidance Computer (AGC), for
053230,000007: ## Apollo 15-17.
053231,000008: ## Assembler: yaYUL
053232,000009: ## Contact: Sergio Navarro <sergionavarrog@gmail.com>
053233,000010: ## Website: www.ibiblio.org/apollo/index.html
053234,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
053235,000012: ## Mod history: 2009-09-03 SN Adapted from corresponding Comanche 055 file.
053236,000013: ## 2009-09-05 JL Fix typos. Remove code not in Artemis072.
053237,000014: ## 2010-02-20 RSB Un-##'d this header.
053238,000015: ## 2017-02-08 RSB Proofed comment text by diff'ing vs Comanche 55.
053239,000016: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
053240,000017: ## side-by-side diff of Luminary 69/99/116/131/210.
053241,000018:
|
|
Page 1243 |
053243,000020: # ..... RP-TO-R SUBROUTINE .....
053244,000021: # SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
053245,000022: # EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
053246,000023:
053247,000024: # R = MT(T) * (RP + LP X RP) MT = M MATRIX TRANSPOSE
053248,000025:
053249,000026: # CALLING SEQUENCE
053250,000027: # L CALL
053251,000028: # L+1 RP-TO-R
053252,000029:
053253,000030: # SUBROUTINES USED
053254,000031: # EARTHMX, MOONMX, EARTHL
053255,000032:
053256,000033: # ITEMS AVAILABLE FROM LAUNCH DATA
053257,000034: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
053258,000035: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
053259,000036:
053260,000037: # ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
053261,000038:
053262,000039: # INPUT
053263,000040: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
053264,000041: # 0-5D = RP VECTOR
053265,000042: # 6-7D = TIME
053266,000043:
053267,000044: # OUTPUT
053268,000045: # MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
053269,000046:
053270,000047: 26,2000 SETLOC PLANTIN
053271,000048: 26,2000 BANK
053272,000049:
053273,000050: 26,3345 COUNT* $$/LUROT
053274,000051:
053275,000052: 26,3345 46020 RP-TO-R STQ BHIZ
053276,000053: 26,3346 00050 RPREXIT
053277,000054: 26,3347 55362 RPTORA
053278,000055: 26,3350 77624 CALL # COMPUTE M MATRIX FOR MOON
053279,000056: 26,3351 55416 MOONMX # LP=LM FOR MOON RADIANS B0
053280,000057: 26,3352 77775 VLOAD
053281,000058: 26,3353 02012 504LM
053282,000059: 26,3354 53235 RPTORB VXV VAD
053283,000060: 26,3355 00001 504RPR
053284,000061: 26,3356 00001 504RPR
053285,000062: 26,3357 52105 VXM GOTO
053286,000063: 26,3360 00025 MMATRIX # MPAC=R=MT(T)*(RP+LPXRP)
053287,000064: 26,3361 55406 RPRPXXXX # RESET PUSHLOC TO 0 BEFORE EXITING
053288,000065: 26,3362 77624 RPTORA CALL # EARTH COMPUTATIONS
053289,000066: 26,3363 55567 EARTHMX # M MATRIX B-1
053290,000067: # AND L VECTOR RADIANS B0
053291,000068: 26,3364 76521 MXV VSL1 # LP=M(T)*L RAD B-0
053292,000069: 26,3365 00025 MMATRIX
053293,000070: 26,3366 77650 GOTO
|
|
Page 1244 |
053295,000072: 26,3367 55354 RPTORB
053296,000073:
|
|
Page 1245 |
053298,000075: # ..... R-TO-RP SUBROUTINE .....
053299,000076: # SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
053300,000077: # (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
053301,000078:
053302,000079: # RP = M(T) * (R - L X R)
053303,000080:
053304,000081: # CALLING SEQUENCE
053305,000082: # L CALL
053306,000083: # L+1 R-TO-RP
053307,000084:
053308,000085: # SUBROUTINES USED
053309,000086: # EARTHMX, MOONMX, EARTHL
053310,000087:
053311,000088: # INPUT
053312,000089: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
053313,000090: # 0-5D = R VECTOR
053314,000091: # 6-7D = TIME
053315,000092:
053316,000093: # ITEMS AVAILABLE FROM LAUNCH DATA
053317,000094: # 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
053318,000095: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
053319,000096:
053320,000097: # ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
053321,000098:
053322,000099: # OUTPUT
053323,000100: # MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
053324,000101:
053325,000102: 26,3370 46020 R-TO-RP STQ BHIZ
053326,000103: 26,3371 00050 RPREXIT
053327,000104: 26,3372 55412 RTORPA
053328,000105: 26,3373 77624 CALL
053329,000106: 26,3374 55416 MOONMX
053330,000107: 26,3375 61375 VLOAD VXM
053331,000108: 26,3376 02012 504LM # LP=LM
053332,000109: 26,3377 00025 MMATRIX
053333,000110: 26,3400 77772 VSL1 # L = MT(T)*LP RADIANS B0
053334,000111: 26,3401 51235 RTORPB VXV BVSU
053335,000112: 26,3402 00001 504RPR
053336,000113: 26,3403 00001 504RPR
053337,000114: 26,3404 77721 MXV # M(T)*(R-LXR) B-2
053338,000115: 26,3405 00025 MMATRIX
053339,000116: 26,3406 40372 RPRPXXXX VSL1 SETPD
053340,000117: 26,3407 00001 0D
053341,000118: 26,3410 77650 GOTO
053342,000119: 26,3411 00050 RPREXIT
053343,000120: 26,3412 77624 RTORPA CALL # EARTH COMPUTATIONS
053344,000121: 26,3413 55567 EARTHMX
053345,000122: 26,3414 77650 GOTO # MPAC=L=(-AX,-AY,0) RAD B-0
053346,000123: 26,3415 55401 RTORPB
053347,000124:
|
|
Page 1246 |
053349,000126: # ..... MOONMX SUBROUTINE .....
053350,000127: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
053351,000128:
053352,000129: # CALLING SEQUENCE
053353,000130: # L CALL
053354,000131: # L+1 MOONMX
053355,000132:
053356,000133: # SUBROUTINES USED
053357,000134: # NEWANGLE
053358,000135:
053359,000136: # INPUT
053360,000137: # 6-7D = TIME
053361,000138:
053362,000139: # ITEMS AVAILABLE FROM LAUNCH DATA
053363,000140: # BSUBO, BDOT
053364,000141: # TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
053365,000142: # COSI = COS(I) B-1
053366,000143: # SINI = SIN(I) B-1
053367,000144: # I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
053368,000145: # PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
053369,000146:
053370,000147: # OUTPUT
053371,000148: # MMATRIX = 3X3 M MATRIX B-1 (STORED IN VAC AREA)
053372,000149:
053373,000150: 26,3416 40220 MOONMX STQ SETPD
053374,000151: 26,3417 00051 EARTHMXX
053375,000152: 26,3420 00011 8D
053376,000153: 26,3421 77770 AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE
053377,000154: 26,3422 00005 5
053378,000155: 26,3423 65345 DLOAD PDDL # PD 10D 8-9D=BSUBO
053379,000156: 26,3424 15647 BSUBO # 10-11D=BDOT
053380,000157: 26,3425 15641 BDOT
053381,000158: 26,3426 45006 PUSH CALL # PD 12D
053382,000159: 26,3427 55543 NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0
053383,000160: 26,3430 71406 PUSH COS # PD 10D
053384,000161: 26,3431 14041 STODL COB # PD 8D COS(B) B-1
053385,000162: 26,3432 77756 SIN # SIN(B) B-1
053386,000163: 26,3433 14043 STODL SOB # SETUP INPUT FOR NEWANGLE
053387,000164: 26,3434 15645 FSUBO # 8-9D=FSUBO
053388,000165: 26,3435 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT
053389,000166: 26,3436 15637 FDOT
053390,000167: 26,3437 45170 AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE
053391,000168: 26,3440 00004 4
053392,000169: 26,3441 55543 NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
053393,000170: 26,3442 14027 STODL AVECTR +2 # SAVE F TEMP
053394,000171: 26,3443 15643 NODIO # 8-9D=NODIO
053395,000172: 26,3444 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
053396,000173: 26,3445 15635 NODDOT # MPAC=T
053397,000174: 26,3446 45170 AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
053398,000175: 26,3447 00005 5
053399,000176: 26,3450 55543 NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
|
|
Page 1247 |
053401,000178: 26,3451 71406 PUSH COS # PD 10D 8-9D= NODI REVS B0
053402,000179: 26,3452 77606 PUSH # PD 12D 10-11D= COS(NODI) B-1
053403,000180: 26,3453 00025 STORE AVECTR
053404,000181: 26,3454 76405 DMP SL1R
053405,000182: 26,3455 00041 COB # COS(NODI) B-1
053406,000183: 26,3456 14035 STODL BVECTR +2 # PD 10D 20-25D=AVECTR= COB*SIN(NODI)
053407,000184: 26,3457 76405 DMP SL1R # SOB*SIN(NODI)
053408,000185: 26,3460 00043 SOB
053409,000186: 26,3461 14037 STODL BVECTR +4 # PD 8D
053410,000187: 26,3462 41556 SIN PUSH # PD 10D -SIN(NODI) B-1
053411,000188: 26,3463 77676 DCOMP # 26-31D=BVECTR= COB*COS(NODI)
053412,000189: 26,3464 14033 STODL BVECTR # PD 8D SOB*COS(NODI)
053413,000190: 26,3465 00027 AVECTR +2 # MOVE F FROM TEMP LOC. TO 504F
053414,000191: 26,3466 14007 STODL 504F
053415,000192: 26,3467 76405 DMP SL1R
053416,000193: 26,3470 00041 COB
053417,000194: 26,3471 14027 STODL AVECTR +2
053418,000195: 26,3472 00011 SINNODI # 8-9D=SIN(NODI) B-1
053419,000196: 26,3473 76405 DMP SL1R
053420,000197: 26,3474 00043 SOB
053421,000198: 26,3475 14031 STODL AVECTR +4 # 0
053422,000199: 26,3476 15336 HI6ZEROS # 8-13D= CVECTR= -SOB B-1
053423,000200: 26,3477 57525 PDDL DCOMP # PD 10D COB
053424,000201: 26,3500 00043 SOB
053425,000202: 26,3501 63325 PDDL PDVL # PD 12D THEN PD 14D
053426,000203: 26,3502 00041 COB
053427,000204: 26,3503 00033 BVECTR
053428,000205: 26,3504 63361 VXSC PDVL # PD 20D BVECTR*SINI B-2
053429,000206: 26,3505 15633 SINI
053430,000207: 26,3506 00011 CVECTR
053431,000208: 26,3507 53361 VXSC VAD # PD 14D CVECTR*COSI B-2
053432,000209: 26,3510 15631 COSI
053433,000210: 26,3511 77772 VSL1
053434,000211: 26,3512 24041 STOVL MMATRIX +12D # PD 8D M2=BVECTR*SINI+CVECTR*COSI B-1
053435,000212: 26,3513 63361 VXSC PDVL # PD 14D
053436,000213: 26,3514 15633 SINI # CVECTR*SINI B-2
053437,000214: 26,3515 00033 BVECTR
053438,000215: 26,3516 52361 VXSC VSU # PD 8D BVECTR*COSI B-2
053439,000216: 26,3517 15631 COSI
053440,000217: 26,3520 65372 VSL1 PDDL # PD 14D
053441,000218: 26,3521 00007 504F # 8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
053442,000219: 26,3522 74346 COS VXSC
053443,000220: 26,3523 00011 DVECTR
053444,000221: 26,3524 73525 PDDL SIN # PD 20D 14-19D= DVECTR*COSF B-2
053445,000222: 26,3525 00007 504F
053446,000223: 26,3526 52361 VXSC VSU # PD 14D AVECTR*SINF B-2
053447,000224: 26,3527 00025 AVECTR
053448,000225: 26,3530 77772 VSL1
053449,000226: 26,3531 14033 STODL MMATRIX +6 # M1= AVECTR*SINF-DVECTR*COSF B-1
053450,000227: 26,3532 00007 504F
|
|
Page 1248 |
053452,000229: 26,3533 74356 SIN VXSC # PD 8D
053453,000230: 26,3534 71525 PDDL COS # PD 14D 8-13D=DVECTR*SINF B-2
053454,000231: 26,3535 00007 504F
053455,000232: 26,3536 53361 VXSC VAD # PD 8D AVECTR*COSF B-2
053456,000233: 26,3537 00025 AVECTR
053457,000234: 26,3540 57572 VSL1 VCOMP
053458,000235: 26,3541 34025 STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
053459,000236: 26,3542 00051 EARTHMXX
053460,000237:
053461,000238: # COMPUTE X=X0+(XDOT)(T+T0)
053462,000239: # 8-9D= XO (REVS B-0), PUSHLOC SET AT 12D
053463,000240: # 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
053464,000241: # AND B+27 FOR FDOT
053465,000242: # X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NODDOT AND
053466,000243: # BDOT AND 4 FOR FDOT
053467,000244: # 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
053468,000245:
053469,000246: 26,3543 54345 NEWANGLE DLOAD SR # ENTER PD 12D
053470,000247: 26,3544 00007 6D
053471,000248: 26,3545 20617 14D
053472,000249: 26,3546 72371 TAD TLOAD # CHANGE MODE TO TP
053473,000250: 26,3547 01707 TIMSUBO
053474,000251: 26,3550 00155 MPAC
053475,000252: 26,3551 14017 STODL TIMSUBM # T+T0 CSEC B-42
053476,000253: 26,3552 00020 TIMSUBM +1
053477,000254: 26,3553 77605 DMP # PD 10D MULT BY XDOT IN 10-11D
053478,000255: 26,3554 43257 SL* DAD # PD 8D ADD XO IN 8-9D AFTER SHIFTING
053479,000256: 26,3555 20206 5,1 # SUCH THAT SCALING IS B-0
053480,000257: 26,3556 67206 PUSH SLOAD # PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
053481,000258: 26,3557 00017 TIMSUBM
053482,000259: 26,3560 41261 SL DMP
053483,000260: 26,3561 20212 9D
053484,000261: 26,3562 00013 10D # XDOT
053485,000262: 26,3563 43257 SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X
053486,000263: 26,3564 20213 10D,1 # IS SCALED REVS/CSEC B-0
053487,000264: 26,3565 43400 HERE BOV RVQ # TURN OFF OVERFLOW IF SET BY SHIFT
053488,000265: 26,3566 55565 HERE # INSTRUCTION BEFORE EXITING
053489,000266: # MPAC=X=X0+(XDOT)(T+T0) REVS B0
053490,000267:
|
|
Page 1249 |
053492,000269: # ..... EARTHMX SUBROUTINE .....
053493,000270: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
053494,000271:
053495,000272: # CALLING SEQUENCE
053496,000273: # L CALL
053497,000274: # L+1 EARTHMX
053498,000275:
053499,000276: # SUBROUTINES USED
053500,000277: # NEWANGLE
053501,000278:
053502,000279: # INPUT
053503,000280: # INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0
053504,000281: # TEPHEM CSEC B-42
053505,000282: # 6-7D= TIME CSEC B-28
053506,000283:
053507,000284: # OUTPUT
053508,000285: # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
053509,000286:
053510,000287: 26,3567 40220 EARTHMX STQ SETPD # SET 8-9D=AZO
053511,000288: 26,3570 00051 EARTHMXX
053512,000289: 26,3571 00011 8D # 10-11D=WEARTH
053513,000290: 26,3572 77770 AXT,1 # FOR SL 5, AND SL 10 IN NEWANGLE
053514,000291: 26,3573 00000 0
053515,000292: 26,3574 65345 DLOAD PDDL # LEAVING PD SET AT 12D FOR NEWANGLE
053516,000293: 26,3575 15653 AZO
053517,000294: 26,3576 15651 WEARTH
053518,000295: 26,3577 45006 PUSH CALL
053519,000296: 26,3600 55543 NEWANGLE
053520,000297: 26,3601 41401 SETPD PUSH # 18-19D=504AZ
053521,000298: 26,3602 00023 18D # COS(AZ) SIN(AZ) 0
053522,000299: 26,3603 65346 COS PDDL # 20-37D= MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
053523,000300: 26,3604 00023 504AZ # 0 0 1
053524,000301: 26,3605 65356 SIN PDDL
053525,000302: 26,3606 15336 HI6ZEROS
053526,000303: 26,3607 73525 PDDL SIN
053527,000304: 26,3610 00023 504AZ
053528,000305: 26,3611 65276 DCOMP PDDL
053529,000306: 26,3612 00023 504AZ
053530,000307: 26,3613 63346 COS PDVL
053531,000308: 26,3614 15336 HI6ZEROS
053532,000309: 26,3615 41525 PDDL PUSH
053533,000310: 26,3616 15334 HIDPHALF
|
|
Page 1250 |
053535,000312: # ..... EARTHL SUBROUTINE .....
053536,000313: # SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
053537,000314:
053538,000315: # CALLING SEQUENCE
053539,000316: # L CALL
053540,000317: # L+1 EARTHL
053541,000318:
053542,000319: # INPUT
053543,000320: # AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
053544,000321:
053545,000322: # OUTPUT
053546,000323: # -AX
053547,000324: # MPAC= -AY RADIANS B-0
053548,000325: # 0
053549,000326:
053550,000327: 26,3617 71201 EARTHL SETPD DLOAD
053551,000328: 26,3620 00017 14D
053552,000329: 26,3621 15336 HI6ZEROS
053553,000330: 26,3622 65325 PDDL PDDL
053554,000331: 26,3623 01712 -AYO
053555,000332: 26,3624 01714 AXO
053556,000333: 26,3625 55476 DCOMP VDEF
053557,000334: 26,3626 77650 GOTO
053558,000335: 26,3627 00051 EARTHMXX
053559,000336:
|
|
Page 1251 |
053561,000338: # CONSTANTS AND ERASABLE ASSIGNMENTS
053562,000339:
053563,000340: 26,3630 04,3757 1B1 = DP1/2 # 1 SCALED B-1
053564,000341: 26,3630 17775 02052 COSI 2DEC* 9.996417320 E-1 B-1* # COS(5521.5 SEC.)
053565,000342: 26,3632 00333 10374 SINI 2DEC* 2.676579050 E-2 B-1* # SIN(5521.5 SEC.)
053566,000343: 26,3634 0000050 RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
053567,000344: 26,3634 0000051 EARTHMXX = S2 # EARTHMX,MOONMX SUBR. EXITS
053568,000345: 26,3634 504RPR = 0D # 6 REGS R OR RP VECTOR
053569,000346: 26,3634 SINNODI = 8D # 2 SIN(NODI)
053570,000347: 26,3634 DVECTR = 8D # 6 D VECTOR MOON
053571,000348: 26,3634 CVECTR = 8D # 6 C VECTR MOON
053572,000349: 26,3634 504AZ = 18D # 2 AZ
053573,000350: 26,3634 TIMSUBM = 14D # 3 TIME SUB M (MOON) T+T0 IN GETAZ
053574,000351: 26,3634 504LPL = 14D # 6 L OR LP VECTOR
053575,000352: 26,3634 AVECTR = 20D # 6 A VECTOR (MOON)
053576,000353: 26,3634 BVECTR = 26D # 6 B VECTOR (MOON)
053577,000354: 26,3634 MMATRIX = 20D # 18 M MATRIX
053578,000355: 26,3634 COB = 32D # 2 COS(B) B-1
053579,000356: 26,3634 SOB = 34D # 2 SIN(B) B-1
053580,000357: 26,3634 504F = 6D # 2 F (MOON)
053581,000358: 26,3634 77665 42175 NODDOT 2DEC* -1.703706128 E-11 B28* # REVS/CS.
053582,000359: 26,3636 22211 00636 FDOT 2DEC* +4.253263471 E-9 B27* # REVS/CS.
053583,000360: 26,3640 77777 77767 BDOT 2DEC* -1.145531390 E-16 B28* # REVS/CS.
053584,000361: 26,3642 34076 30363 NODIO 2DEC* +8.788308600 E-1 B # REV.
053585,000362: 26,3644 24760 00133 FSUBO 2DEC* +6.552737750 E-1 B # REV.
053586,000363: 26,3646 02052 35250 BSUBO 2DEC* +6.511941688 E-2 B # REV.
053587,000364: 26,3650 37116 32631 WEARTH 2DEC* +1.160576171 E-7 B23* # REV/CS.
053588,000365: 26,3652 30576 10326 AZO 2DEC* +7.733314844 E-1 B # REVS.
End of include-file PLANETARY_INERTIAL_ORIENTATION.agc. Parent file is MAIN.agc