Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
049273,000002: ## Copyright: Public domain.
049274,000003: ## Filename: PLANETARY_INERTIAL_ORIENTATION.agc
049275,000004: ## Purpose: A log section of Zerlina 56, the final revision of
049276,000005: ## Don Eyles's offline development program for the variable
049277,000006: ## guidance period servicer. It also includes a new P66 with LPD
049278,000007: ## (Landing Point Designator) capability, based on an idea of John
049279,000008: ## Young's. Neither of these advanced features were actually flown,
049280,000009: ## but Zerlina was also the birthplace of other big improvements to
049281,000010: ## Luminary including the terrain model and new (Luminary 1E)
049282,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
049283,000012: ## and revision 56 includes all changes up to and including Luminary
049284,000013: ## 183. It is therefore quite close to the Apollo 14 program,
049285,000014: ## Luminary 178, where not modified with new features.
049286,000015: ## Reference: pp. 1131-1139
049287,000016: ## Assembler: yaYUL
049288,000017: ## Contact: Ron Burkey <info@sandroid.org>.
049289,000018: ## Website: www.ibiblio.org/apollo/index.html
049290,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
049291,000020: ## 2017-08-28 MAS Updated for Zerlina 56.
049292,000021:
|
|
Page 1131 |
049294,000023: # ..... RP-TO-R SUBROUTINE .....
049295,000024: # SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM,EITHER
049296,000025: # EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
049297,000026:
049298,000027: # R=MT(T)*(RP+LPXRP) MT = M MATRIX TRANSPOSE
049299,000028:
049300,000029: # CALLING SEQUENCE
049301,000030: # L CALL
049302,000031: # L+1 RP-TO-R
049303,000032:
049304,000033: # SUBROUTINES USED
049305,000034: # EARTHMX,MOONMX,EARTHL
049306,000035:
049307,000036: # ITEMS AVAILABLE FROM LAUNCH DATA
049308,000037: # 504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
049309,000038: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
049310,000039: # ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
049311,000040:
049312,000041: # INPUT
049313,000042: # MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
049314,000043: # 0-5D= RP VECTOR
049315,000044: # 6-7D= TIME
049316,000045:
049317,000046: # OUTPUT
049318,000047: # MPAC= R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
049319,000048:
049320,000049: 26,2000 SETLOC PLANTIN1
049321,000050: 26,2000 BANK
049322,000051:
049323,000052: 26,3720 COUNT* $$/LUROT
049324,000053:
049325,000054: 26,3720 46020 RP-TO-R STQ BHIZ
049326,000055: 26,3721 00050 RPREXIT
049327,000056: 26,3722 55735 RPTORA
049328,000057: 26,3723 77624 CALL # COMPUTE M MATRIX FOR MOON
049329,000058: 26,3724 51674 MOONMX # LP=LM FOR MOON RADIANS B0
049330,000059: 26,3725 77775 VLOAD
049331,000060: 26,3726 02013 504LM
049332,000061: 26,3727 53235 RPTORB VXV VAD
049333,000062: 26,3730 00001 504RPR
049334,000063: 26,3731 00001 504RPR
049335,000064: 26,3732 52105 VXM GOTO
049336,000065: 26,3733 00025 MMATRIX # MPAC=R=MT(T)*(RP+LPXRP)
049337,000066: 26,3734 51662 RPRPXXXX # RESET PUSHLOC TO 0 BEFORE EXITING
049338,000067: 26,3735 77624 RPTORA CALL # EARTH COMPUTATIONS
049339,000068: 26,3736 55745 EARTHMX # M MATRIX B-1
049340,000069: 26,3737 77624 CALL
049341,000070: 26,3740 15761 EARTHL # L VECTOR RADIANS B0
049342,000071: 26,3741 76521 MXV VSL1 # LP=M(T)*L RAD B-0
049343,000072: 26,3742 00025 MMATRIX
|
|
Page 1132 |
049345,000074: 26,3743 77650 GOTO
049346,000075: 26,3744 55727 RPTORB
049347,000076: 24,2000 SETLOC PLANTIN
049348,000077: 24,2000 BANK
049349,000078: 24,3644 COUNT* $$/LUROT
049350,000079:
|
|
Page 1133 |
049352,000081: # ..... R-TO-RP SUBROUTINE .....
049353,000082: # SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
049354,000083: # (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
049355,000084:
049356,000085: # RP=M(T)*(R-LXR)
049357,000086:
049358,000087: # CALLING SEQUENCE
049359,000088: # L CALL
049360,000089: # L+1 R-TO-RP
049361,000090:
049362,000091: # SUBROUTINES USED
049363,000092: # EARTHMX,MOONMX,EARTHL
049364,000093:
049365,000094: # INPUT
049366,000095: # MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
049367,000096: # 0-5D= R VECTOR
049368,000097: # 6-7D= TIME
049369,000098:
049370,000099: # ITEMS AVAILABLE FROM LAUNCH DATA
049371,000100: # 504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
049372,000101: # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
049373,000102: # ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
049374,000103:
049375,000104: # OUTPUT
049376,000105: # MPAC=RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
049377,000106:
049378,000107: 24,3644 46020 R-TO-RP STQ BHIZ
049379,000108: 24,3645 00050 RPREXIT
049380,000109: 24,3646 51666 RTORPA
049381,000110: 24,3647 77624 CALL
049382,000111: 24,3650 51674 MOONMX
049383,000112: 24,3651 61375 VLOAD VXM
049384,000113: 24,3652 02013 504LM # LP=LM
049385,000114: 24,3653 00025 MMATRIX
049386,000115: 24,3654 77772 VSL1 # L=MT(T)*LP RADIANS B0
049387,000116: 24,3655 51235 RTORPB VXV BVSU
049388,000117: 24,3656 00001 504RPR
049389,000118: 24,3657 00001 504RPR
049390,000119: 24,3660 77721 MXV # M(T)*(R-LXR) B-2
049391,000120: 24,3661 00025 MMATRIX
049392,000121: 24,3662 40372 RPRPXXXX VSL1 SETPD
049393,000122: 24,3663 00001 0D
049394,000123: 24,3664 77650 GOTO
049395,000124: 24,3665 00050 RPREXIT
049396,000125: 24,3666 77624 RTORPA CALL # EARTH COMPUTATIONS
049397,000126: 24,3667 55745 EARTHMX
049398,000127: 24,3670 77624 CALL
049399,000128: 24,3671 15761 EARTHL
049400,000129: 24,3672 77650 GOTO # MPAC=L=(-AX,-AY,0) RAD B-0
049401,000130: 24,3673 51655 RTORPB
049402,000131:
|
|
Page 1134 |
049404,000133: # ..... MOONMX SUBROUTINE .....
049405,000134: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
049406,000135:
049407,000136: # CALLING SEQUENCE
049408,000137: # L CALL
049409,000138: # L+1 MOONMX
049410,000139:
049411,000140: # SUBROUTINES USED
049412,000141: # NEWANGLE
049413,000142:
049414,000143: # INPUT
049415,000144: # 6-7D= TIME
049416,000145: # ITEMS AVAILABLE FROM LAUNCH DATA
049417,000146: # BSUBO,BDOT
049418,000147: # TIMSUBO,NODIO,NODDOT,FSUBO,FDOT
049419,000148: # COSI= COS(I) B-1
049420,000149: # SINI= SIN(I) B-1
049421,000150: # I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
049422,000151: # PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
049423,000152:
049424,000153: # OUTPUT
049425,000154: # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
049426,000155:
049427,000156: 24,3674 40220 MOONMX STQ SETPD
049428,000157: 24,3675 00051 EARTHMXX
049429,000158: 24,3676 00011 8D
049430,000159: 24,3677 77770 AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE
049431,000160: 24,3700 00005 5
049432,000161: 24,3701 65345 DLOAD PDDL # PD 10D 8-9D=BSUBO
049433,000162: 24,3702 14017 BSUBO # 10-11D= BDOT
049434,000163: 24,3703 14011 BDOT
049435,000164: 24,3704 45006 PUSH CALL # PD 12D
049436,000165: 24,3705 51743 NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0
049437,000166: 24,3706 71406 PUSH COS # PD 10D
049438,000167: 24,3707 14041 STODL COB # PD 8D COS(B) B-1
049439,000168: 24,3710 77756 SIN # SIN(B) B-1
049440,000169: 24,3711 14043 STODL SOB # SETUP INPUT FOR NEWANGLE
049441,000170: 24,3712 14015 FSUBO # 8-9D=FSUBO
049442,000171: 24,3713 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT
049443,000172: 24,3714 14007 FDOT
049444,000173: 24,3715 45170 AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE
049445,000174: 24,3716 00004 4
049446,000175: 24,3717 51743 NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
049447,000176: 24,3720 14027 STODL AVECTR +2 # SAVE F TEMP
049448,000177: 24,3721 14013 NODIO # 8-9D=NODIO
049449,000178: 24,3722 41525 PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
049450,000179: 24,3723 14005 NODDOT # MPAC=T
049451,000180: 24,3724 45170 AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
049452,000181: 24,3725 00005 5
049453,000182: 24,3726 51743 NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
|
|
Page 1135 |
049455,000184: 24,3727 71406 PUSH COS # PD 10D 8-9D= NODI REVS B0
049456,000185: 24,3730 77606 PUSH # PD 12D 10-11D= COS(NODI) B-1
049457,000186: 24,3731 00025 STORE AVECTR
049458,000187: 24,3732 76405 DMP SL1R
049459,000188: 24,3733 00041 COB # COS(NODI) B-1
049460,000189: 24,3734 14035 STODL BVECTR +2 # PD 10D 20-25D=AVECTR= COB*SIN(NODI)
049461,000190: 24,3735 76405 DMP SL1R # SOB*SIN(NODI)
049462,000191: 24,3736 00043 SOB
049463,000192: 24,3737 14037 STODL BVECTR +4 # PD 8D
049464,000193: 24,3740 41556 SIN PUSH # PD 10D -SIN(NODI) B-1
049465,000194: 24,3741 52076 DCOMP GOTO # 26-31D=BVECTR= COV*COS(NODI)
049466,000195: 24,3742 53710 MOONMXA
049467,000196: 25,3710 BANK 25
049468,000197: 25,2000 SETLOC PLANTIN3
049469,000198: 25,2000 BANK
049470,000199: 25,3710 COUNT* $$/LUROT
049471,000200:
049472,000201: 25,3710 14033 MOONMXA STODL BVECTR # PD 8D SOB*COS(NODI)
049473,000202: 25,3711 00027 AVECTR +2 # MOVE F FROM TEMP LOC. TO 504F
049474,000203: 25,3712 14007 STODL 504F
049475,000204: 25,3713 76405 DMP SL1R
049476,000205: 25,3714 00041 COB
049477,000206: 25,3715 14027 STODL AVECTR +2
049478,000207: 25,3716 00011 SINNODI # 8-9D=SIN(NODI) B-1
049479,000208: 25,3717 76405 DMP SL1R
049480,000209: 25,3720 00043 SOB
049481,000210: 25,3721 14031 STODL AVECTR +4 # 0
049482,000211: 25,3722 06520 HI6ZEROS # 8-13D= CVECTR= -SOB B-1
049483,000212: 25,3723 57525 PDDL DCOMP # PD 10D COB
049484,000213: 25,3724 00043 SOB
049485,000214: 25,3725 63325 PDDL PDVL # PD 12D THEN PD 14D
049486,000215: 25,3726 00041 COB
049487,000216: 25,3727 00033 BVECTR
049488,000217: 25,3730 63361 VXSC PDVL # PD 20D BVECTR*SINI B-2
049489,000218: 25,3731 14003 SINI
049490,000219: 25,3732 00011 CVECTR
049491,000220: 25,3733 53361 VXSC VAD # PD 14D CVECTR*COSI B-2
049492,000221: 25,3734 14001 COSI
049493,000222: 25,3735 77772 VSL1
049494,000223: 25,3736 24041 STOVL MMATRIX +12D # PD 8D M2=BVECTR*SINI+CVECTR*COSI B-1
049495,000224: 25,3737 63361 VXSC PDVL # PD 14D
049496,000225: 25,3740 14003 SINI # CVECTR*SINI B-2
049497,000226: 25,3741 00033 BVECTR
049498,000227: 25,3742 52361 VXSC VSU # PD 8D BVECTR*COSI B-2
049499,000228: 25,3743 14001 COSI
049500,000229: 25,3744 65372 VSL1 PDDL # PD 14D
049501,000230: 25,3745 00007 504F # 8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
049502,000231: 25,3746 74346 COS VXSC
049503,000232: 25,3747 00011 DVECTR
049504,000233: 25,3750 73525 PDDL SIN # PD 20D 14-19D= DVECTR*COSF B-2
|
|
Page 1136 |
049506,000235: 25,3751 00007 504F
049507,000236: 25,3752 52361 VXSC VSU # PD 14D AVECTR*SINF B-2
049508,000237: 25,3753 00025 AVECTR
049509,000238: 25,3754 77772 VSL1
049510,000239: 25,3755 14033 STODL MMATRIX +6 # M1= AVECTR*SINF-DVECTR*COSF B-1
049511,000240: 25,3756 00007 504F
049512,000241: 25,3757 74356 SIN VXSC # PD 8D
049513,000242: 25,3760 71525 PDDL COS # PD 14D 8-13D=DVECTR*SINF B-2
049514,000243: 25,3761 00007 504F
049515,000244: 25,3762 53361 VXSC VAD # PD 8D AVECTR*COSF B-2
049516,000245: 25,3763 00025 AVECTR
049517,000246: 25,3764 57572 VSL1 VCOMP
049518,000247: 25,3765 34025 STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
049519,000248: 25,3766 00051 EARTHMXX
049520,000249: # COMPUTE X=X0+(XDOT)(T+T0)
049521,000250: # 8-9D= XO (REVS B-0),PUSHLOC SET AT 12D
049522,000251: # 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
049523,000252: # AND B+27 FOR FDOT
049524,000253: # X1=DIFFERENCE IN 23 AND SCALING OF XDOT,=0 FOR WEARTH,5 FOR NODDOT AND
049525,000254: # BDOT AND 4 FOR FDOT
049526,000255: # 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
049527,000256:
049528,000257: 24,3743 BANK 24
049529,000258: 24,2000 SETLOC PLANTIN
049530,000259: 24,2000 BANK
049531,000260:
049532,000261: 24,3743 54345 NEWANGLE DLOAD SR # ENTER PD 12D
049533,000262: 24,3744 00007 6D
049534,000263: 24,3745 20617 14D
049535,000264: 24,3746 72371 TAD TLOAD # CHANGE MODE TO TP
049536,000265: 24,3747 01707 TIMSUBO
049537,000266: 24,3750 00155 MPAC
049538,000267: 24,3751 14017 STODL TIMSUBM # T+T0 CSEC B-42
049539,000268: 24,3752 00020 TIMSUBM +1
049540,000269: 24,3753 77605 DMP # PD 10D MULT BY XDOT IN 10-11D
049541,000270: 24,3754 43257 SL* DAD # PD 8D ADD XO IN 8-9D AFTER SHIFTING
049542,000271: 24,3755 20206 5,1 # SUCH THAT SCALING IS B-0
049543,000272: 24,3756 67206 PUSH SLOAD # PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
049544,000273: 24,3757 00017 TIMSUBM
049545,000274: 24,3760 41261 SL DMP
049546,000275: 24,3761 20212 9D
049547,000276: 24,3762 00013 10D # XDOT
049548,000277: 24,3763 43257 SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X
049549,000278: 24,3764 20213 10D,1 # IS SCALED REVS/CSEC B-0
049550,000279: 24,3765 77600 BOV # TURN OFF OVERFLOW IF SET BY SHIFT
049551,000280: 24,3766 51767 +1 # INSTRUCTION BEFORE EXITING
049552,000281: 24,3767 77616 RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0
049553,000282:
|
|
Page 1137 |
049555,000284: # ..... EARTHMX SUBROUTINE .....
049556,000285: # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
049557,000286:
049558,000287: # CALLING SEQUENCE
049559,000288: # L CALL
049560,000289: # L+1 EARTHMX
049561,000290:
049562,000291: # SUBROUTINES USED
049563,000292: # NEWANGLE
049564,000293:
049565,000294: # INPUT
049566,000295: # INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0
049567,000296: # TEPHEM CSEC B-42
049568,000297: # 6-7D= TIME CSEC B-28
049569,000298:
049570,000299: # OUTPUT
049571,000300: # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
049572,000301:
049573,000302: 26,3745 BANK 26
049574,000303: 26,2000 SETLOC PLANTIN1
049575,000304: 26,2000 BANK
049576,000305: 26,3745 COUNT* $$/LUROT
049577,000306:
049578,000307: 26,3745 40220 EARTHMX STQ SETPD # SET 8-9D=AZO
049579,000308: 26,3746 00051 EARTHMXX
049580,000309: 26,3747 00011 8D # 10-11D=WEARTH
049581,000310: 26,3750 77770 AXT,1 # FOR SL 5, AND SL 10 IN NEWANGLE
049582,000311: 26,3751 00000 0
049583,000312: 26,3752 65345 DLOAD PDDL # LEAVING PD SET AT 12D FOR NEWANGLE
049584,000313: 26,3753 14023 AZO
049585,000314: 26,3754 14021 WEARTH
049586,000315: 26,3755 45006 PUSH CALL
049587,000316: 26,3756 51743 NEWANGLE
049588,000317: 26,3757 41401 SETPD PUSH # 18-19D=504AZ
049589,000318: 26,3760 00023 18D # COS(AZ) SIN(AZ) 0
049590,000319: 26,3761 65346 COS PDDL # 20-37D= MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
049591,000320: 26,3762 00023 504AZ # 0 0 1
049592,000321: 26,3763 65356 SIN PDDL
049593,000322: 26,3764 06520 HI6ZEROS
049594,000323: 26,3765 73525 PDDL SIN
049595,000324: 26,3766 00023 504AZ
049596,000325: 26,3767 65276 DCOMP PDDL
049597,000326: 26,3770 00023 504AZ
049598,000327: 26,3771 63346 COS PDVL
049599,000328: 26,3772 06520 HI6ZEROS
049600,000329: 26,3773 41525 PDDL PUSH
049601,000330: 26,3774 06516 HIDPHALF
049602,000331: 26,3775 77650 GOTO
049603,000332: 26,3776 00051 EARTHMXX
049604,000333:
|
|
Page 1138 |
049606,000335: # ..... EARTHL SUBROUTINE .....
049607,000336: # SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
049608,000337:
049609,000338: # CALLING SEQUENCE
049610,000339: # L CALL
049611,000340: # L+1 EARTHL
049612,000341:
049613,000342: # INPUT
049614,000343: # AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
049615,000344:
049616,000345: # OUTPUT
049617,000346: # -AX
049618,000347: # MPAC= -AY RADIANS B-0
049619,000348: # 0
049620,000349:
049621,000350: 06,3761 BANK 06
049622,000351: 06,2000 SETLOC EARTHLOC
049623,000352: 06,2000 BANK
049624,000353: 06,3761 COUNT* $$/LUROT
049625,000354:
049626,000355: 06,3761 57545 EARTHL DLOAD DCOMP
049627,000356: 06,3762 01714 AXO
049628,000357: 06,3763 14017 STODL 504LPL
049629,000358: 06,3764 01712 -AYO
049630,000359: 06,3765 14021 STODL 504LPL +2
049631,000360: 06,3766 24007 LO6ZEROS
049632,000361: 06,3767 24023 STOVL 504LPL +4
049633,000362: 06,3770 00017 504LPL
049634,000363: 06,3771 77616 RVQ
049635,000364:
|
|
Page 1139 |
049637,000366: # CONSTANTS AND ERASABLE ASSIGNMENTS
049638,000367: 06,3772 12,2004 1B1 = DP1/2 # 1 SCALED B-1
049639,000368: 06,3772 0000050 RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
049640,000369: 06,3772 0000051 EARTHMXX = S2 # EARTHMX,MOONMX SUBR. EXITS
049641,000370: 06,3772 504RPR = 0D # 6 REGS R OR RP VECTOR
049642,000371: 06,3772 SINNODI = 8D # 2 SIN(NODI)
049643,000372: 06,3772 DVECTR = 8D # 6 D VECTOR MOON
049644,000373: 06,3772 CVECTR = 8D # 6 C VECTR MOON
049645,000374: 06,3772 504AZ = 18D # 2 AZ
049646,000375: 06,3772 TIMSUBM = 14D # 3 TIME SUB M (MOON) T+T0 IN GETAZ
049647,000376: 06,3772 504LPL = 14D # 6 L OR LP VECTOR
049648,000377: 06,3772 AVECTR = 20D # 6 A VECTOR (MOON)
049649,000378: 06,3772 BVECTR = 26D # 6 B VECTOR (MOON)
049650,000379: 06,3772 MMATRIX = 20D # 18 M MATRIX
049651,000380: 06,3772 COB = 32D # 2 COS(B) B-1
049652,000381: 06,3772 SOB = 34D # 2 SIN(B) B-1
049653,000382: 06,3772 504F = 6D # 2 F(MOON)
End of include-file PLANETARY_INERTIAL_ORIENTATION.agc. Parent file is MAIN.agc