Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
012458,000002: ## Copyright: Public domain.
012459,000003: ## Filename: CSM_GEOMETRY.agc
012460,000004: ## Purpose: A section of Skylark revision 048.
012461,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
012462,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
012463,000007: ## this software are available; instead, this file was created via
012464,000008: ## disassembly of dumps of the core rope modules actually flown on
012465,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
012466,000010: ## Museum of Space History.
012467,000011: ## Assembler: yaYUL
012468,000012: ## Contact: Ron Burkey <info@sandroid.org>.
012469,000013: ## Website: www.ibiblio.org/apollo/index.html
012470,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072.
012471,000015: ## 2024-02-27 MAS Updated for Skylark 48.
012472,000016:
012473,000017:
012474,000018: 23,2000 SETLOC COMGEOM1
012475,000019: 23,2000 BANK
012476,000020:
012477,000021: # THIS ROUTINE TAKES THE SHAFT AND TRUNNION ANGLES AS READ BY THE CM OPTICAL SYSTEM AND CONVERTS THEM INTO A UNIT
012478,000022: # VECTOR REFERENCED TO THE NAVIGATION BASE COORDINATE SYSTEM AND COINCIDENT WITH THE SEXTANT LINE OF SIGHT.
012479,000023:
012480,000024: # THE INPUTS ARE 1) THE SEXTANT SHAFT AND TRUNNION ANGLES ARE STORED SP IN LOCATIONS 3 AND 5 RESPECTIVELY OF THE
012481,000025: # MARK VAC AREA. 2) THE COMPLEMENT OF THE BASE ADDRESS OF THE MARK VAC AREA IS STORED SP AT LOCATION X1 OF YOUR
012482,000026: # JOB VAC AREA.
012483,000027:
012484,000028: # THE OUTPUT IS A HALF-UNIT VECTOR IN NAVIGATION BASE COORDINATES AND STORED AT LOCATION 32D OF THE VAC AREA. THE
012485,000029: # OUTPUT IS ALSO AVAILABLE AT MPAC.
012486,000030:
012487,000031: 23,2000 COUNT* $$/GEOM
012488,000032: 23,2000 47133 SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D
012489,000033: 23,2001 00006 5,1 # TRUNNION = TA
012490,000034: 23,2002 45566 CDULOGIC
012491,000035: 23,2003 41434 RTB PUSH
012492,000036: 23,2004 46027 SXTLOGIC
012493,000037: 23,2005 72556 SIN SL1
012494,000038: 23,2006 66606 PUSH SLOAD* # PD2 = SIN(TA)
012495,000039: 23,2007 00004 3,1 # SHAFT = SA
012496,000040: 23,2010 41434 RTB PUSH # PD4 = SA
012497,000041: 23,2011 45566 CDULOGIC
012498,000042:
012499,000043: 23,2012 41346 COS DMP
012500,000044: 23,2013 00003 2
012501,000045: 23,2014 14041 STODL STARM # COS(SA)SIN(TA)
012502,000046:
012503,000047: 23,2015 41356 SIN DMP
012504,000048: 23,2016 77626 STADR
012505,000049: 23,2017 63734 STODL STARM +2 # SIN(SA)SIN(TA)
012506,000050:
012507,000051: 23,2020 77746 COS
012508,000052: 23,2021 24045 STOVL STARM +4
012509,000053: 23,2022 00041 STARM # STARM = 32D
012510,000054: 23,2023 76521 MXV VSL1
012511,000055: 23,2024 06300 NB1NB2
012512,000056: 23,2025 00041 STORE 32D
012513,000057: 23,2026 77616 RVQ
012514,000058:
012515,000059: 23,2027 32321 SXTLOGIC CAF 10DEGS- # CORRECT FOR 19.775 DEGREE OFFSET
012516,000060: 23,2030 26154 ADS MPAC
012517,000061: 23,2031 34765 CAF QUARTER
012518,000062: 23,2032 07256 TC SHORTMP
012519,000063: 23,2033 06030 TC DANZIG
012520,000064:
012521,000065:
012522,000066: # CALCSXA COMPUTES THE SEXTANT SHAFT AND TRUNNION ANGLES REQUIRED TO POSITION THE OPTICS SUCH THAT A STAR LINE-
012523,000067: # OF-SIGHT LIES ALONG THE STAR VECTOR. THE ROUTINE TAKES THE GIVEN STAR VECTOR AND EXPRESSES IT AS A VECTOR REF-
012524,000068: # ERENCED TO THE OPTICS COORDINATE SYSTEM. IN ADDITION IT SETS UP THREE UNIT VECTORS DEFINING THE X, Y, AND Z AXES
012525,000069: # REFERENCED TO THE OPTICS COORDINATE SYSTEM.
012526,000070:
012527,000071: # THE INPUTS ARE 1) THE STAR VECTOR REFERRED TO PRESENT STABLE MEMBER COORDINATES STORED AT STAR. 2) SAME ANGLE
012528,000072: # INPUT AS *SMNB*, I.E. SINES AND COSINES OF THE CDU ANGLES, IN THE ORDER Y Z X, AT SINCDU AND COSCDU. A CALL
012529,000073: # TO CDUTRIG WILL PROVIDE THIS INPUT.
012530,000074:
012531,000075: # THE OUTPUTS ARE THE SEXTANT SHAFT AND TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECTIVELY. (LOW ORDER PART
012532,000076: # EQUAL TO ZERO).
012533,000077:
012534,000078: 23,2034 77220 CALCSXA ITA VLOAD # PUSHDOWN 00-26D,28D,30D,32D-36D
012535,000079: 23,2035 00034 28D
012536,000080: 23,2036 02766 STAR
012537,000081: 23,2037 77624 CALL
012538,000082: 23,2040 47623 *SMNB*
012539,000083: 23,2041 76521 MXV VSL1
012540,000084: 23,2042 06256 NB2NB1
012541,000085: 23,2043 26766 STOVL STAR
012542,000086: 23,2044 15202 HIUNITX
012543,000087: 23,2045 26555 STOVL XNB1
012544,000088: 23,2046 15200 HIUNITY
012545,000089: 23,2047 26563 STOVL YNB1
012546,000090: 23,2050 15176 HIUNITZ
012547,000091: 23,2051 36571 STCALL ZNB1
012548,000092: 23,2052 46076 SXTANG1
012549,000093:
012550,000094:
012551,000095: # SXTANG COMPUTES THE SEXTANT SHAFT AND TRUNNION ANGLES REQUIRED TO POSITION THE OPTICS SUCH THAT A STAR LINE-OF-
012552,000096: # SIGHT LIES ALONG THE STAR VECTOR.
012553,000097:
012554,000098: # THE INPUTS ARE 1) THE STAR VECTOR REFERRED TO ANY COORDINATE SYSTEM STORED AT STAR. 2) THE NAVIGATION BASE
012555,000099: # COORDINATES REFERRED TO THE SAME COORDINATE SYSTEM. THESE THREE HALF-UNIT VECTORS ARE STORED AT XNB, YNB, AND
012556,000100: # ZNB.
012557,000101:
012558,000102: # THE OUTPUTS ARE THE SEXTANT SHAFT AND TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECTIVELY. (LOW ORDER PART
012559,000103: # EQUAL TO ZERO).
012560,000104:
012561,000105: 23,2053 47020 SXTANG ITA RTB # PUSHDOWN 16D,18D,22D-26D,28D
012562,000106: 23,2054 00034 28D
012563,000107: 23,2055 45712 TRANSP1 # EREF WRT NB2
012564,000108: 23,2056 64375 VLOAD MXV
012565,000109: 23,2057 02703 XNB
012566,000110: 23,2060 06256 NB2NB1
012567,000111: 23,2061 77772 VSL1
012568,000112: 23,2062 26555 STOVL XNB1
012569,000113: 23,2063 02711 YNB
012570,000114: 23,2064 76521 MXV VSL1
012571,000115: 23,2065 06256 NB2NB1
012572,000116: 23,2066 26563 STOVL YNB1
012573,000117: 23,2067 02717 ZNB
012574,000118: 23,2070 76521 MXV VSL1
012575,000119: 23,2071 06256 NB2NB1
012576,000120: 23,2072 02571 STORE ZNB1
012577,000121:
012578,000122: 23,2073 47034 RTB RTB
012579,000123: 23,2074 45712 TRANSP1
012580,000124: 23,2075 45726 TRANSP2
012581,000125:
012582,000126: 23,2076 47375 SXTANG1 VLOAD VXV
012583,000127: 23,2077 02571 ZNB1
012584,000128: 23,2100 02766 STAR
012585,000129: 23,2101 77600 BOV
012586,000130: 23,2102 46103 +1
012587,000131: 23,2103 40056 UNIT BOV
012588,000132: 23,2104 46145 ZNB=S1
012589,000133: 23,2105 00027 STORE PDA # PDA = UNIT(ZNB X S)
012590,000134:
012591,000135: 23,2106 57441 DOT DCOMP
012592,000136: 23,2107 02555 XNB1
012593,000137: 23,2110 24023 STOVL SINTH # SIN(SA) = PDA . -XNB
012594,000138: 23,2111 00027 PDA
012595,000139:
012596,000140: 23,2112 77641 DOT
012597,000141: 23,2113 02563 YNB1
012598,000142: 23,2114 34021 STCALL COSTH # COS(SA) = PDA . YNB
012599,000143: 23,2115 47250 ARCTRIG
012600,000144: 23,2116 77634 RTB
012601,000145: 23,2117 45621 1STO2S
012602,000146: 23,2120 26774 STOVL SAC
012603,000147: 23,2121 02766 STAR
012604,000148: 23,2122 77600 BOV
012605,000149: 23,2123 46124 +1
012606,000150: 23,2124 72441 DOT SL1
012607,000151: 23,2125 02571 ZNB1
012608,000152: 23,2126 77726 ACOS
012609,000153: 23,2127 62440 BMN SL2
012610,000154: 23,2130 46142 SXTALARM # TRUNNION ANGLE NEGATIVE
012611,000155: 23,2131 45200 BOV DSU
012612,000156: 23,2132 46142 SXTALARM # TRUNNION ANGLE GREATER THAN 90 DEGREES
012613,000157: 23,2133 06327 20DEG-
012614,000158: 23,2134 77634 RTB
012615,000159: 23,2135 45621 1STO2S
012616,000160: 23,2136 02776 STORE PAC # FOR FLIGHT USE, CULTFLAG IS ON IF
012617,000161: 23,2137 77614 CLRGO # TRUNION IS GREATER THAN 90 DEG
012618,000162: 23,2140 01630 CULTFLAG
012619,000163: 23,2141 00034 28D
012620,000164: 23,2142 77614 SXTALARM SETGO # ALARM HAS BEEN REMOVED FROM THIS
012621,000165: 23,2143 01430 CULTFLAG
012622,000166: 23,2144 00034 28D # SUBROUTINE, ALARM WILL BE SET BY MPI
012623,000167: 23,2145 77745 ZNB=S1 DLOAD
012624,000168: 23,2146 06323 270DEG
012625,000169: 23,2147 16774 STODL SAC
012626,000170: 23,2150 06325 20DEGS-
012627,000171: 23,2151 02776 STORE PAC
012628,000172: 23,2152 77614 CLRGO
012629,000173: 23,2153 01630 CULTFLAG
012630,000174: 23,2154 00034 28D
012631,000175:
012632,000176:
012633,000177: # THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM, CSM BY ADDING
012634,000178: # THE CONIC R,V AND THE DEVIATIONS R,V. THE STATE VECTORS ARE CONVERTED TO
012635,000179: # METERS B-29 AND METERS/CSEC B-7 AND STORED APPROPRIATELY IN RN,VN OR
012636,000180: # R-OTHER , V-OTHER FOR DOWNLINK. THE ROUTINES NAMES ARE SWITCHED IN THE
012637,000181: # OTHER VEHICLES COMPUTER.
012638,000182:
012639,000183: # INPUT
012640,000184: # STATE VECTOR IN TEMPORARY STORAGE AREA
012641,000185:
012642,000186: # OUTPUT
012643,000187: # R(T) IN RN, V(T) IN VN, T IN PIPTIME
012644,000188: # OR
012645,000189: # R(T) IN R-OTHER, V(T) IN V-OTHER (T IS DEFINED BY T-OTHER)
012646,000190:
012647,000191: 10,2000 SETLOC COMGEOM2
012648,000192: 10,2000 BANK
012649,000193: 10,2226 COUNT* $$/GEOM
012650,000194: 10,2226 43414 SVDWN1 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG
012651,000195: 10,2227 04756 AVEMIDSW
012652,000196: 10,2230 20231 +1
012653,000197: 10,2231 44575 VLOAD VSR7
012654,000198: 10,2232 01521 TDELTAV
012655,000199: 10,2233 77655 VAD
012656,000200: 10,2234 01535 RCV
012657,000201: 10,2235 25022 STOVL RN
012658,000202: 10,2236 01527 TNUV
012659,000203: 10,2237 53302 VSR4 VAD
012660,000204: 10,2240 01543 VCV
012661,000205: 10,2241 15030 STODL VN
012662,000206: 10,2242 01517 TET
012663,000207: 10,2243 01036 STORE PIPTIME
012664,000208: 10,2244 77616 RVQ
012665,000209:
012666,000210: 10,2245 44575 SVDWN2 VLOAD VSR7
012667,000211: 10,2246 01521 TDELTAV
012668,000212: 10,2247 77655 VAD
012669,000213: 10,2250 01535 RCV
012670,000214: 10,2251 25704 STOVL R-OTHER
012671,000215: 10,2252 01527 TNUV
012672,000216: 10,2253 53302 VSR4 VAD
012673,000217: 10,2254 01543 VCV
012674,000218: 10,2255 01712 STORE V-OTHER
012675,000219: 10,2256 77616 RVQ
012676,000220:
012677,000221:
012678,000222: # SUBROUTINE TO COMPUTE THE NATURAL LOG OF C(MPAC, MPAC +1).
012679,000223:
012680,000224: # ENTRY: CALL
012681,000225: # LOG
012682,000226:
012683,000227: # SUBROUTINE RETURNS WITH -LOG IN DP MPAC.
012684,000228:
012685,000229: # EBANK IS ARBITRARY..
012686,000230:
012687,000231: 23,2000 SETLOC POWFLIT2
012688,000232: 23,2000 BANK
012689,000233: 23,2155 COUNT* $$/GEOM
012690,000234: 23,2155 44301 LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG
012691,000235: 23,2156 00160 MPAC +3 # UNTIL IT LIES BETWEEN .5 AND 1.
012692,000236: 23,2157 15212 NEARLY1 # THE LOG OF THIS PART IS FOUND AND THE
012693,000237: 23,2160 77776 EXIT # LOG OF THE SHIFTED PART IS COMPUTED
012694,000238:
012695,000239: 23,2161 07171 TC POLY # AND ADDED IN. SHIFT COUNT STORED
012696,000240:
012697,000241: 23,2162 00002 DEC 2 B-14 # (N-1, SUPPLIED BY SMERZH)
012698,000242: 23,2163 00000 00000 2DEC 0 B-28 # IN MPAC +3.
012699,000243: 23,2165 01001 14636 2DEC .031335467
012700,000244: 23,2167 00325 07310 2DEC .0130145859
012701,000245: 23,2171 00541 16735 2DEC .0215738898
012702,000246:
012703,000247: 23,2173 35003 CAF ZERO
012704,000248: 23,2174 54156 TS MPAC +2
012705,000249: 23,2175 00006 EXTEND
012706,000250: 23,2176 32212 DCA CLOG2/32
012707,000251: 23,2177 52155 DXCH MPAC
012708,000252: 23,2200 52160 DXCH MPAC +3
012709,000253: 23,2201 40000 COM # LOAD POSITIVE SHIFT COUNT IN A.
012710,000254: 23,2202 07256 TC SHORTMP # MULTIPLY BY SHIFT COUNT.
012711,000255:
012712,000256: 23,2203 52156 DXCH MPAC +1
012713,000257: 23,2204 52155 DXCH MPAC
012714,000258: 23,2205 52160 DXCH MPAC +3
012715,000259: 23,2206 20155 DAS MPAC
012716,000260: 23,2207 06006 TC INTPRET # RESULT IN MPAC, MPAC +1
012717,000261:
012718,000262: 23,2210 77616 RVQ
012719,000263:
012720,000264: 23,2211 26,3211 NEARLY1 = NEARONE
012721,000265: 23,2211 00542 34414 CLOG2/32 2DEC .0216608494
012722,000266:
012723,000267:
012724,000268: # SUBROUTINE NAME: EARTH ROTATOR (EARROT1 OR EARROT2) DATE: 15 FEB 67
012725,000269: # MOD NO: N +1 LOG SECTION: POWERED FLIGHT SUBROS
012726,000270: # MOD BY: ENTRY GROUP (BAIRNSFATHER)
012727,000271:
012728,000272: # FUNCTIONAL DESCRIPTION: THIS ROUTINE PROJECTS THE INITIAL EARTH TARGET VECTOR RTINIT AHEAD THROUGH
012729,000273: # THE ESTIMATED TIME OF FLIGHT. INITIAL CALL RESOLVES THE INITIAL TARGET VECTOR RTINIT INTO EASTERLY
012730,000274: # AND NORMAL COMPONENTS RTEAST AND RTNORM . INITIAL AND SUBSEQUENT CALLS ROTATE THIS VECTOR
012731,000275: # ABOUT THE (FULL) UNIT POLAR AXIS UNITW THROUGH THE ANGLE WIE DTEAROT TO OBTAIN THE ROTATED
012732,000276: # TARGET VECTOR RT . ALL VECTORS EXCEPT UNITW ARE HALF UNIT.
012733,000277: # THE EQUATIONS ARE
012734,000278: # - - - -
012735,000279: # RT = RTINIT + RTNORM (COS(WT) - 1) + RTEAST SIN(WT)
012736,000280:
012737,000281: # WHERE WT = WIE DTEAROT
012738,000282:
012739,000283: # RTINIT = INITIAL TARGET VECTOR
012740,000284: # - - -
012741,000285: # RTEAST = UNITW * RTINIT
012742,000286: # - - -
012743,000287: # RTNORM = RTEAST * UNITW
012744,000288:
012745,000289: # FOR CONTINUOUS UPDATING, ONLY ONE ENTRY TO EARROT1 IS REQUIRED, WITH SUBSEQUENT ENTRIES AT EARROT2.
012746,000290:
012747,000291: # CALLING SEQUENCE: FIRST CALL SUBSEQUENT CALL
012748,000292: # STCALL DTEAROT STCALL DTEAROT
012749,000293: # EARROT1 EARROT2
012750,000294: # C(MPAC) UNSPECIFIED C(MPAC) = DTEAROT
012751,000295: # PUSHLOC = PDL+0, ARBITRARY. 6 LOCATIONS USED.
012752,000296:
012753,000297: # SUBROUTINES USED: NONE
012754,000298:
012755,000299: # NORMAL EXIT MODES: RVQ
012756,000300:
012757,000301: # ALARMS: NONE
012758,000302:
012759,000303: # OUTPUT: RTEAST (-1) .5 UNIT VECTOR EAST, COMPNT OF RTINIT LEFT BY FIRST CALL
012760,000304: # RTNORM (-1) .5 UNIT VECTOR NORML, COMPNT OF RTINIT LEFT BY FIRST CALL
012761,000305: # RT (-1) .5 UNIT TARGET VECTOR, ROTATED LEFT BY ALL CALLS
012762,000306: # DTEAROT (-28) CS MAY BE CHANGED BY EARROT2, IF OVER 1 DAY
012763,000307:
012764,000308: # ERASABLE INITIALIZATION REQUIRED:
012765,000309: # UNITW (0) UNIT POLAR VECTOR PAD LOADED
012766,000310: # RTINIT (-1) .5 UNIT INITIAL TARGET VECTOR LEFT BY ENTRY
012767,000311: # DTEAROT (-28) CS TIME OF FLIGHT LEFT BY CALLER
012768,000312:
012769,000313: # DEBRIS: QPRET, PDL+0 ... PDL+5
012770,000314:
012771,000315: 23,2213 E7,1451 EBANK= RTINIT
012772,000316:
012773,000317: 23,2213 47375 EARROT1 VLOAD VXV
012774,000318: 23,2214 02031 UNITW # FULL UNIT VECTOR
012775,000319: 23,2215 03452 RTINIT # .5 UNIT
012776,000320: 23,2216 03460 STORE RTEAST # .5 UNIT
012777,000321:
012778,000322: 23,2217 77635 VXV
012779,000323: 23,2220 02031 UNITW # FULL UNIT
012780,000324: 23,2221 17466 STODL RTNORM # .5 UNIT
012781,000325: 23,2222 03606 DTEAROT # (-28) CS
012782,000326:
012783,000327: 23,2223 56204 EARROT2 BOVB DDV
012784,000328: 23,2224 57450 TCDANZIG # RESET OVFIND, IF ON
012785,000329: 23,2225 06254 1/WIE
012786,000330: 23,2226 41400 BOV PUSH
012787,000331: 23,2227 46243 OVERADAY
012788,000332: 23,2230 45346 COS DSU
012789,000333: 23,2231 15202 HIDPHALF
012790,000334: 23,2232 65361 VXSC PDDL # XCH W PUSH LIST
012791,000335: 23,2233 03466 RTNORM # .5 UNIT
012792,000336: 23,2234 74356 SIN VXSC
012793,000337: 23,2235 03460 RTEAST # .5 UNIT
012794,000338: 23,2236 76455 VAD VSL1
012795,000339: 23,2237 53455 VAD UNIT # INSURE THAT RT IS 'UNIT'.
012796,000340: 23,2240 03452 RTINIT # .5 UNIT
012797,000341: 23,2241 03474 STORE RT # .5 UNIT TARGET VECTOR
012798,000342:
012799,000343: 23,2242 77616 RVQ
012800,000344:
012801,000345: 23,2243 75345 OVERADAY DLOAD SIGN
012802,000346: 23,2244 06254 1/WIE
012803,000347: 23,2245 03606 DTEAROT
012804,000348: 23,2246 77621 BDSU
012805,000349: 23,2247 03606 DTEAROT
012806,000350: 23,2250 03606 STORE DTEAROT
012807,000351:
012808,000352: 23,2251 77650 GOTO
012809,000353: 23,2252 46223 EARROT2
012810,000354:
012811,000355: # WIE 2DEC .1901487997
012812,000356: 23,2253 01015 34732 1/WIE 2DEC 8616410 B-28
012813,000357:
012814,000358: 23,2255 15373 11346 NB2NB1 2DEC +.8431756920 B-1
012815,000359: 23,2257 00000 00000 2DEC 0 B-28
012816,000360: 23,2261 67313 65307 2DEC -.5376381241 B-1
012817,000361:
012818,000362:
012819,000363: 23,2263 00000 00000 ZERINFLT 2DEC 0 B-28
012820,000364:
012821,000365: 23,2265 20000 00000 HALFNFLT 2DEC .5
012822,000366: 23,2267 00000 00000 2DEC 0 B-28
012823,000367: 23,2271 10464 12470 2DEC +.5376381241 B-1
012824,000368: 23,2273 00000 00000 2DEC 0 B-28
012825,000369: 23,2275 15373 11346 2DEC +.8431756920 B-1
012826,000370:
012827,000371: 23,2277 15373 11346 NB1NB2 2DEC +.8431756920 B-1
012828,000372: 23,2301 00000 00000 2DEC 0 B-28
012829,000373: 23,2303 10464 12470 2DEC +.5376381241 B-1
012830,000374: 23,2305 00000 00000 2DEC 0 B-28
012831,000375: 23,2307 20000 00000 2DEC .5
012832,000376: 23,2311 00000 00000 2DEC 0 B-28
012833,000377: 23,2313 67313 65307 2DEC -.5376381241 B-1
012834,000378: 23,2315 00000 00000 2DEC 0 B-28
012835,000379: 23,2317 15373 11346 2DEC +.8431756920 B-1
012836,000380:
012837,000381:
012838,000382: 23,2321 07020 10DEGS- DEC 3600 B-14
012839,000383:
012840,000384: 23,2322 60000 270DEG OCT 60000 # SHAFT 270 DEGREES 2S COMP.
012841,000385: 23,2323 00000 OCT 00000
012842,000386:
012843,000387: 23,2324 61740 20DEGS- DEC -07199 B-14
012844,000388: 23,2325 77777 DEC -00000 B-14
012845,000389:
012846,000390: 23,2326 07020 20DEG- DEC 03600 B-14
012847,000391: 23,2327 00000 DEC 00000 B-14
End of include-file CSM_GEOMETRY.agc. Parent file is MAIN.agc