Source Code
012356,000001: # Copyright: Public domain.
012357,000002: # Filename: CSM_GEOMETRY.agc
012358,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
012359,000004: # It is part of the source code for the Command Module's (CM)
012360,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
012361,000006: # Assembler: yaYUL
012362,000007: # Contact: Ron Burkey <info@sandroid.org>.
012363,000008: # Website: www.ibiblio.org/apollo.
012364,000009: # Pages: 285-296
012365,000010: # Mod history: 2009-05-08 RSB Adapted from the Colossus249/ file of the
012366,000011: # same name, using Comanche055 page images.
012367,000012:
012368,000013: # This source code has been transcribed or otherwise adapted from digitized
012369,000014: # images of a hardcopy from the MIT Museum. The digitization was performed
012370,000015: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
012371,000016: # thanks to both. The images (with suitable reduction in storage size and
012372,000017: # consequent reduction in image quality as well) are available online at
012373,000018: # www.ibiblio.org/apollo. If for some reason you find that the images are
012374,000019: # illegible, contact me at info@sandroid.org about getting access to the
012375,000020: # (much) higher-quality images which Paul actually created.
012376,000021:
012377,000022: # Notations on the hardcopy document read, in part:
012378,000023:
012379,000024: # Assemble revision 055 of AGC program Comanche by NASA
012380,000025: # 2021113-051. 10:28 APR. 1, 1969
012381,000026:
012382,000027: # This AGC program shall also be referred to as
012383,000028: # Colossus 2A
012384,000029:
012385,000030: # Page 285
012386,000031: 22,2000 BANK 22
012387,000032: 23,2000 SETLOC COMGEOM1
012388,000033: 23,2000 BANK
012389,000034:
012390,000035: # THIS ROUTINE TAKES THE SHAFT AND TRUNNION ANGLES AS READ BY THE CM OPTICAL SYSTEM AND CONVERTS THEM INTO A UNIT
012391,000036: # VECTOR REFERENCED TO THE NAVIGATION BASE COORDINATE SYSTEM AND COINCIDENT WTIH THE SEXTANT LINE OF SIGHT.
012392,000037:
012393,000038: # THE INPUTS ARE: 1) THE SEXTAND SHAFT AND TRUNNION ANGLES ARE STORED SP IN LOCATIONS 3 AND 5 RESPECTIVELY OF THE
012394,000039: # MARK VAC AREA. 2) THE COMPLEMENT OF THE BASE ADDRESS OF THE MARK VAC AREA IS STORED SP AT LOCATION X1 OF YOUR
012395,000040: # JOB VAC AREA.
012396,000041:
012397,000042: # THE OUTPUT IS A HALF-UNIT VECTOR IN NAVIGATION BASE COORDINATES AND STORED AT LOCATION 32D OF THE VAC AREA. THE
012398,000043: # OUTPUT IS ALSO AVAILABLE AT MPAC.
012399,000044:
012400,000045: 23,2000 COUNT 23/GEOM
012401,000046:
012402,000047: 23,2000 47133 SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D
012403,000048: 23,2001 00006 5,1 # TRUNNION = TA
012404,000049: 23,2002 45513 CDULOGIC
012405,000050: 23,2003 41434 RTB PUSH
012406,000051: 23,2004 46027 SXTLOGIC
012407,000052: 23,2005 72556 SIN SL1
012408,000053: 23,2006 66606 PUSH SLOAD* # PD2 = SIN(TA)
012409,000054: 23,2007 00004 3,1 # SHAFT = SA
012410,000055: 23,2010 41434 RTB PUSH # PD4 = SA
012411,000056: 23,2011 45513 CDULOGIC
012412,000057:
012413,000058: 23,2012 41346 COS DMP
012414,000059: 23,2013 00003 2
012415,000060: 23,2014 14041 STODL STARM # COS(SA)SIN(TA)
012416,000061:
012417,000062: 23,2015 41356 SIN DMP
012418,000063: 23,2016 77626 STADR
012419,000064: 23,2017 63734 STODL STARM +2 # SIN(SA)SIN(TA)
012420,000065:
012421,000066: 23,2020 77746 COS
012422,000067: 23,2021 24045 STOVL STARM +4
012423,000068: 23,2022 00041 STARM # STARM = 32D
012424,000069: 23,2023 76521 MXV VSL1
012425,000070: 23,2024 06302 NB1NB2
012426,000071: 23,2025 00041 STORE 32D
012427,000072: 23,2026 77616 RVQ
012428,000073:
012429,000074: 23,2027 32323 SXTLOGIC CAF 10DEGS- # CORRECT FOR 19.775 DEGREE OFFSET
012430,000075: 23,2030 26154 ADS MPAC
012431,000076: 23,2031 35003 CAF QUARTER
012432,000077: 23,2032 07256 TC SHORTMP
012433,000078: 23,2033 06030 TC DANZIG
012434,000079:
012435,000080: # Page 286
012436,000081: # CALCSXA COMPUTES THE SEXTANT SHAFT AND TRUNNION ANGLES REQUIRED TO POSITION THE OPTICS SUCH THAT A STAR LINE-
012437,000082: # OF-SIGHT LIES ALONG THE STAR VECTOR. THE ROUTINE TAKES THE GIVEN STAR VECTOR AND EXPRESSES IT AS A VECTOR REF-
012438,000083: # ERENECED TO THE OPTICS COORDINATE SYSTEM. IN ADDITION IT SETS UP THREE UNIT VECTORS DEFINING THE X, Y, AND Z AXES
012439,000084: # REFERENCED TO THE OPTICS COORDINATE SYSTEM.
012440,000085:
012441,000086: # THE INPUTS ARE: 1) THE STAR VECTOR REFERRED TO THE PRESENT STABLE MEMMBER COORDINATES STORED AT STAR. 2) SAME ANGLE
012442,000087: # INPUT AS *SMNB*, I.E., SINES AND COSINES OF THE CDU ANGLES, IN THE ORDER Y Z X, AT SINCDU AND COSCDU. A CALL
012443,000088: # TO CDUTRIG WILL PROVIDE THIS INPUT.
012444,000089:
012445,000090: # THE OUTPUT ARE THE SEXTANT SHAFT AND TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECTIVELY. (LOW ORDER PART
012446,000091: # EQUAL TO ZERO).
012447,000092:
012448,000093: 23,2034 77220 CALCSXA ITA VLOAD # PUSHDOWN 00-26D, 28D, 30D, 32D-36D
012449,000094: 23,2035 00034 28D
012450,000095: 23,2036 02766 STAR
012451,000096: 23,2037 77624 CALL
012452,000097: 23,2040 47644 *SMNB*
012453,000098: 23,2041 76521 MXV VSL1
012454,000099: 23,2042 06260 NB2NB1
012455,000100: 23,2043 26766 STOVL STAR
012456,000101: 23,2044 15333 HIUNITX
012457,000102: 23,2045 26555 STOVL XNB1
012458,000103: 23,2046 15331 HIUNITY
012459,000104: 23,2047 26563 STOVL YNB1
012460,000105: 23,2050 15327 HIUNITZ
012461,000106: 23,2051 36571 STCALL ZNB1
012462,000107: 23,2052 46076 SXTANG1
012463,000108:
012464,000109: # Page 287
012465,000110: # SXTANG COMPUTES THE SEXTANT SHAFT AND TRUNNION ANGLES REQUIRED TO POSITION THE OPTICS SUCH THAT A STAR LINE-OF-
012466,000111: # SIGHT LIES ALONG THE STAR VECTOR.
012467,000112:
012468,000113: # THE INPUTS ARE: 1) THE STAR VECTOR REFERRED TO ANY COORDINATE SYSTEM STORED AT STAR. 2) THE NAVIGATION BASE
012469,000114: # COORDINATES REFERRED TO THE SAME COORDINATE SYSTEM. THESE THREE HALF-UNIT VECTORS ARE STROED AT XNB, YNB,AND
012470,000115: # ZNB.
012471,000116:
012472,000117: # THE OUTPUTS ARE THE SEXTANT SHAFT AND TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECTIVELY. (LOW ORDER PART
012473,000118: # EQUAL TO ZERO).
012474,000119:
012475,000120: 23,2053 47020 SXTANG ITA RTB # PUSHDOWN 16D,18D,22D-26D,28D
012476,000121: 23,2054 00034 28D
012477,000122: 23,2055 45662 TRANSP1 # EREF WRT NB2
012478,000123: 23,2056 64375 VLOAD MXV
012479,000124: 23,2057 02714 XNB
012480,000125: 23,2060 06260 NB2NB1
012481,000126: 23,2061 77772 VSL1
012482,000127: 23,2062 26555 STOVL XNB1
012483,000128: 23,2063 02722 YNB
012484,000129: 23,2064 76521 MXV VSL1
012485,000130: 23,2065 06260 NB2NB1
012486,000131: 23,2066 26563 STOVL YNB1
012487,000132: 23,2067 02730 ZNB
012488,000133: 23,2070 76521 MXV VSL1
012489,000134: 23,2071 06260 NB2NB1
012490,000135: 23,2072 02571 STORE ZNB1
012491,000136:
012492,000137: 23,2073 47034 RTB RTB
012493,000138: 23,2074 45662 TRANSP1
012494,000139: 23,2075 45676 TRANSP2
012495,000140:
012496,000141: 23,2076 47375 SXTANG1 VLOAD VXV
012497,000142: 23,2077 02571 ZNB1
012498,000143: 23,2100 02766 STAR
012499,000144: 23,2101 77600 BOV
012500,000145: 23,2102 46103 +1
012501,000146: 23,2103 40056 UNIT BOV
012502,000147: 23,2104 46145 ZNB=S1
012503,000148: 23,2105 00027 STORE PDA # PDA = UNIT(ZNB X S)
012504,000149:
012505,000150: 23,2106 57441 DOT DCOMP
012506,000151: 23,2107 02555 XNB1
012507,000152: 23,2110 24023 STOVL SINTH # SIN(SA) = PDA . -XNB
012508,000153: 23,2111 00027 PDA
012509,000154:
012510,000155: 23,2112 77641 DOT
012511,000156: 23,2113 02563 YNB1
012512,000157: 23,2114 34021 STCALL COSTH # COS(SA) = PDA . YNB
012513,000158: 23,2115 47256 ARCTRIG
012514,000159: # Page 288
012515,000160: 23,2116 77634 RTB
012516,000161: 23,2117 45546 1STO2S
012517,000162: 23,2120 26774 STOVL SAC
012518,000163: 23,2121 02766 STAR
012519,000164: 23,2122 77600 BOV
012520,000165: 23,2123 46124 +1
012521,000166: 23,2124 72441 DOT SL1
012522,000167: 23,2125 02571 ZNB1
012523,000168: 23,2126 77726 ACOS
012524,000169: 23,2127 62440 BMN SL2
012525,000170: 23,2130 46142 SXTALARM # TRUNNION ANGLE NEGATIVE
012526,000171: 23,2131 45200 BOV DSU
012527,000172: 23,2132 46142 SXTALARM # TRUNNION ANGLE GREATER THAN 90 DEGREES
012528,000173: 23,2133 06331 20DEG-
012529,000174: 23,2134 77634 RTB
012530,000175: 23,2135 45546 1STO2S
012531,000176: 23,2136 02776 STORE PAC # FOR FLIGHT USE, CULTFLAG IS ON IF
012532,000177: 23,2137 77614 CLRGO # TRUNION IS GREATER THAN 90 DEG
012533,000178: 23,2140 01630 CULTFLAG
012534,000179: 23,2141 00034 28D
012535,000180: 23,2142 77614 SXTALARM SETGO # ALARM HAS BEEN REMOVED FROM THIS
012536,000181: 23,2143 01430 CULTFLAG
012537,000182: 23,2144 00034 28D # SUBROUTINE, ALARM WILL BE SET BY MPI
012538,000183: 23,2145 77745 ZNB=S1 DLOAD
012539,000184: 23,2146 06325 270DEG
012540,000185: 23,2147 16774 STODL SAC
012541,000186: 23,2150 06327 20DEGS-
012542,000187: 23,2151 02776 STORE PAC
012543,000188: 23,2152 77614 CLRGO
012544,000189: 23,2153 01630 CULTFLAG
012545,000190: 23,2154 00034 28D
012546,000191:
012547,000192: # Page 289
012548,000193: # THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM, CSM BY ADDING
012549,000194: # THE CONIC R,V AND THE DEVIATIONS R,V. THE STATE VECTORS ARE CONVERTED TO
012550,000195: # METERS B-29 AND METERS/CSEC B-7 AND STORED APPROPRIATELY IN RN,VN OR
012551,000196: # R-OTHER, V-OTHER FOR DOWNLINK. THE ROUTINES NAMES ARE SWITCHED IN THE
012552,000197: # OTHER VEHICLES COMPUTER.
012553,000198:
012554,000199: # INPUT
012555,000200: # STATE VECTOR IN TEMPORARY STORAGE AREA
012556,000201: # IF STATE VECTOR IS SCALED POS B27 AND VEL B5
012557,000202: # SET X2 TO +2
012558,000203: # IF STATE VECTOR IS SCALED POS B29 AND VEL B7
012559,000204: # SET X2 TO 0
012560,000205:
012561,000206: # OUTPUT
012562,000207: # R(T) IN RN, V(T) IN VN, T IN PIPTIME
012563,000208: # OR
012564,000209: # R(T) IN R-OTHER, V(T) IN V-OTHER (T IS DEFINED BY T-OTHER)
012565,000210:
012566,000211: 23,2155 BANK 23
012567,000212: 10,2000 SETLOC COMGEOM2
012568,000213: 10,2000 BANK
012569,000214: 10,2237 COUNT 10/GEOM
012570,000215: 10,2237 43414 SVDWN1 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG
012571,000216: 10,2240 04756 AVEMIDSW
012572,000217: 10,2241 20242 +1
012573,000218: 10,2242 53775 VLOAD VSL*
012574,000219: 10,2243 01521 TDELTAV
012575,000220: 10,2244 57605 0 -7,2
012576,000221: 10,2245 53655 VAD VSL*
012577,000222: 10,2246 01535 RCV
012578,000223: 10,2247 57576 0,2
012579,000224: 10,2250 25171 STOVL RN
012580,000225: 10,2251 01527 TNUV
012581,000226: 10,2252 53257 VSL* VAD
012582,000227: 10,2253 57602 0 -4,2
012583,000228: 10,2254 01543 VCV
012584,000229: 10,2255 77657 VSL*
012585,000230: 10,2256 57576 0,2
012586,000231: 10,2257 15177 STODL VN
012587,000232: 10,2260 01517 TET
012588,000233: 10,2261 01205 STORE PIPTIME
012589,000234: 10,2262 77616 RVQ
012590,000235:
012591,000236: 10,2263 53775 SVDWN2 VLOAD VSL*
012592,000237: 10,2264 01521 TDELTAV
012593,000238: 10,2265 57605 0 -7,2
012594,000239: 10,2266 53655 VAD VSL*
012595,000240: 10,2267 01535 RCV
012596,000241: # Page 290
012597,000242: 10,2270 57576 0,2
012598,000243: 10,2271 25722 STOVL R-OTHER
012599,000244: 10,2272 01527 TNUV
012600,000245: 10,2273 53257 VSL* VAD
012601,000246: 10,2274 57602 0 -4,2
012602,000247: 10,2275 01543 VCV
012603,000248: 10,2276 77657 VSL*
012604,000249: 10,2277 57576 0,2
012605,000250: 10,2300 01730 STORE V-OTHER
012606,000251: 10,2301 77616 RVQ
012607,000252:
012608,000253: # Page 291
012609,000254: # SUBROUTINE TO COMPUTE THE NATURAL LOG OF C(MPAC, MPAC +1).
012610,000255:
012611,000256: # ENTRY: CALL
012612,000257: # LOG
012613,000258:
012614,000259: # SUBROUTINE RETURNS WITH -LOG IN DP MPAC.
012615,000260:
012616,000261: # EBANK IS ARBITRARY.
012617,000262:
012618,000263: 14,2000 BANK 14
012619,000264: 23,2000 SETLOC POWFLIT2
012620,000265: 23,2000 BANK
012621,000266: 23,2155 COUNT 23/GEOM
012622,000267:
012623,000268: 23,2155 44301 LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG
012624,000269: 23,2156 00160 MPAC +3 # UNTIL IT LIES BETWEEN .5 AND 1.
012625,000270: 23,2157 06212 NEARLY1 # THE LOG OF THIS PART IS FOUND AND THE
012626,000271: 23,2160 77776 EXIT # LOG OF THE SHIFTED PART IS COMPUTED
012627,000272: 23,2161 07171 TC POLY # AND ADDED IN. SHIFT COUNT STORED
012628,000273: 23,2162 00002 DEC 2 B-14 # (N-1, SUPPLIED BY SMERZH)
012629,000274: 23,2163 00000 00000 2DEC 0 B-28 # IN MPAC +3.
012630,000275: 23,2165 01001 14636 2DEC .031335467
012631,000276: 23,2167 00325 07310 2DEC .0130145859
012632,000277: 23,2171 00541 16735 2DEC .0215738898
012633,000278:
012634,000279: 23,2173 35021 CAF ZERO
012635,000280: 23,2174 54156 TS MPAC +2
012636,000281: 23,2175 00006 EXTEND
012637,000282: 23,2176 32214 DCA CLOG2/32
012638,000283: 23,2177 52155 DXCH MPAC
012639,000284: 23,2200 52160 DXCH MPAC +3
012640,000285: 23,2201 40000 COM # LOAD POSITIVE SHIFT COUNT IN A.
012641,000286: 23,2202 07256 TC SHORTMP # MULTIPLY BY SHIFT COUNT.
012642,000287:
012643,000288: 23,2203 52156 DXCH MPAC +1
012644,000289: 23,2204 52155 DXCH MPAC
012645,000290: 23,2205 52160 DXCH MPAC +3
012646,000291: 23,2206 20155 DAS MPAC
012647,000292: 23,2207 06006 TC INTPRET # RESULT IN MPAC, MPAC +1
012648,000293:
012649,000294: 23,2210 77616 RVQ
012650,000295:
012651,000296: 23,2211 37777 37777 NEARLY1 2DEC .999999999
012652,000297:
012653,000298: # Page 292
012654,000299: 23,2213 00542 34414 CLOG2/32 2DEC .0216608494
012655,000300:
012656,000301: # Page 293
012657,000302: # SUBROUTINE NAME: EARTH ROTATOR (EARROT1 OR EARROT2) DATE: 15 FEB 67
012658,000303: # MOD NO: N +1 LOG SECTION: POWERED FLIGHT SUBROS
012659,000304: # MOD BY: ENTRY GROUP (BAIRNSFATHER)
012660,000305:
012661,000306: # FUNCTIONAL DESCRIPTION: THIS ROUTINE PROJECTS THE INITIAL EARTH TARGET VECTOR RTINIT AHEAD THROUGH
012662,000307: # THE ESTIMATED TIME OF FLIGHT. INITIAL CALL RESOLVES THE INITIAL TARGET VECTOR RTINIT INTO EASTERLY
012663,000308: # AND NORMAL COMPONENTS RTEAST AND RTNORM. INITIAL AND SUBSEQUENT CALLS ROTATE THIS VECTOR
012664,000309: # ABOUT THE (FULL) UNIT POLAR AXIS UNITW THROUGH THE ANGLE WIE DTEAROT TO OBTAIN THE ROTATED
012665,000310: # TARGET VECTOR RT. ALL VECTORS EXCEPT UNITW ARE HALF UNIT.
012666,000311: # THE EQUATIONS ARE:
012667,000312: # _ _ _ _
012668,000313: # RT = RTINIT + RTNORM (COS(WT) - 1) + RTEAST SIN(WT)
012669,000314:
012670,000315: # WHERE WT = WIE DTEAROT
012671,000316:
012672,000317: # RTINIT = INITIAL TARGET VECTOR
012673,000318: # _ _ _
012674,000319: # RTEAST = UNITW * RTINIT
012675,000320: # _ _ _
012676,000321: # RTNORM = RTEAST * UNITW
012677,000322:
012678,000323: # FOR CONTINUOUS UPDATING, ONLY ONE ENTRY TO EARROT1 IS REQUIRED, WITH SUBSEQUENT ENTRIES AT EARROT2.
012679,000324: #
012680,000325: # CALLING SEQUENCE: FIRST CALL SUBSEQUENT CALL
012681,000326: # STCALL DTEAROT STCALL DTEAROT
012682,000327: # EARROT1 EARROT2
012683,000328: # C(MPAC) UNSPECIFIED C(MPAC) = DTEAROT
012684,000329: # PUSHLOC = PDL+0, ARBITRARY. 6 LOCATIONS USED.
012685,000330:
012686,000331: # SUBROUTINES USED: NONE
012687,000332:
012688,000333: # NORMAL EXIT MODES: RVQ
012689,000334:
012690,000335: # ALARMS: NONE
012691,000336:
012692,000337: # OUTPUT: RTEAST (-1) .5 UNIT VECTOR EAST, COMPNT OF RTINIT LEFT BY FIRST CALL
012693,000338: # RTNORM (-1) .5 UNIT VECTOR NORML, COMPNT OF RTINIT LEFT BY FIRST CALL
012694,000339: # RT (-1) .5 UNIT TARGET VECTOR, ROTATED LEFT BY ALL CALLS
012695,000340: # DTEAROT (-28) CS MAY BE CHANGED BY EARROT2, IF OVER 1 DAY
012696,000341:
012697,000342: # ERASABLE INITIALIZATION REQUIRED:
012698,000343: # UNITW (0) UNIT POLAR VECTOR PAD LOADED
012699,000344: # RTINIT (-1) .5 UNIT INITIAL TARGET VECTOR LEFT BY ENTRY
012700,000345: # DTEAROT (-28) CS TIME OF FLIGHT LEFT BY CALLER
012701,000346:
012702,000347: # DEBRIS: QPRET, PDL+0 ... PDL+5
012703,000348: # Page 294
012704,000349: 23,2215 E7,1451 EBANK= RTINIT
012705,000350:
012706,000351: 23,2215 47375 EARROT1 VLOAD VXV
012707,000352: 23,2216 01714 UNITW # FULL UNIT VECTOR
012708,000353: 23,2217 03452 RTINIT # .5 UNIT
012709,000354: 23,2220 03460 STORE RTEAST # .5 UNIT
012710,000355:
012711,000356: 23,2221 77635 VXV
012712,000357: 23,2222 01714 UNITW # FULL UNIT
012713,000358: 23,2223 17466 STODL RTNORM # .5 UNIT
012714,000359: 23,2224 03606 DTEAROT # (-28) CS
012715,000360:
012716,000361: 23,2225 56204 EARROT2 BOVB DDV
012717,000362: 23,2226 57352 TCDANZIG # RESET OVFIND, IF ON
012718,000363: 23,2227 06256 1/WIE
012719,000364: 23,2230 41400 BOV PUSH
012720,000365: 23,2231 46245 OVERADAY
012721,000366: 23,2232 45346 COS DSU
012722,000367: 23,2233 15333 HIDPHALF
012723,000368: 23,2234 65361 VXSC PDDL # XCH W PUSH LIST
012724,000369: 23,2235 03466 RTNORM # .5 UNIT
012725,000370: 23,2236 74356 SIN VXSC
012726,000371: 23,2237 03460 RTEAST # .5 UNIT
012727,000372: 23,2240 76455 VAD VSL1
012728,000373: 23,2241 53455 VAD UNIT # INSURE THAT RT IS "UNIT".
012729,000374: 23,2242 03452 RTINIT # .5 UNIT
012730,000375: 23,2243 03474 STORE RT # .5 UNIT TARGET VECTOR
012731,000376:
012732,000377: 23,2244 77616 RVQ
012733,000378:
012734,000379: 23,2245 75345 OVERADAY DLOAD SIGN
012735,000380: 23,2246 06256 1/WIE
012736,000381: 23,2247 03606 DTEAROT
012737,000382: 23,2250 77621 BDSU
012738,000383: 23,2251 03606 DTEAROT
012739,000384: 23,2252 03606 STORE DTEAROT
012740,000385:
012741,000386: 23,2253 77650 GOTO
012742,000387: 23,2254 46225 EARROT2
012743,000388:
012744,000389: # WIE 2DEC .1901487997
012745,000390: 23,2255 01015 34732 1/WIE 2DEC 8616410 B-28
012746,000391: 23,2257 15373 11346 NB2NB1 2DEC +.8431756920 B-1
012747,000392: 23,2261 00000 00000 2DEC 0 B-28
012748,000393: 23,2263 67313 65307 2DEC -.5376381241 B-1
012749,000394: # Page 295
012750,000395: 23,2265 00000 00000 ZERINFLT 2DEC 0 B-28
012751,000396: 23,2267 20000 00000 HALFNFLT 2DEC .5
012752,000397: 23,2271 00000 00000 2DEC 0 B-28
012753,000398: 23,2273 10464 12470 2DEC +.5376381241 B-1
012754,000399: 23,2275 00000 00000 2DEC 0 B-28
012755,000400: 23,2277 15373 11346 2DEC +.8431756920 B-1
012756,000401: 23,2301 15373 11346 NB1NB2 2DEC +.8431756920 B-1
012757,000402: 23,2303 00000 00000 2DEC 0 B-28
012758,000403: 23,2305 10464 12470 2DEC +.5376381241 B-1
012759,000404: 23,2307 00000 00000 2DEC 0 B-28
012760,000405: 23,2311 20000 00000 2DEC .5
012761,000406: 23,2313 00000 00000 2DEC 0 B-28
012762,000407: 23,2315 67313 65307 2DEC -.5376381241 B-1
012763,000408: 23,2317 00000 00000 2DEC 0 B-28
012764,000409: 23,2321 15373 11346 2DEC +.8431756920 B-1
012765,000410: # Page 296
012766,000411: 23,2323 07020 10DEGS- DEC 3600 B-14
012767,000412: 23,2324 60000 270DEG OCT 60000 # SHAFT 270 DEGREES 25 COMP.
012768,000413: 23,2325 00000 OCT 00000
012769,000414: 23,2326 61740 20DEGS- DEC -07199 B-14
012770,000415: 23,2327 77777 DEC -00000 B-14
012771,000416: 23,2330 07020 20DEG- DEC 03600 B-14
012772,000417: 23,2331 00000 DEC 00000 B-14
012773,000418:
End of include-file CSM_GEOMETRY.agc. Parent file is MAIN.agc