Source Code

012037,000001: # Copyright: Public domain. 012038,000002: # Filename: CSM_GEOMETRY.agc 012039,000003: # Purpose: Part of the source code for Colossus, build 249. 012040,000004: # It is part of the source code for the Command Module's (CM) 012041,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 012042,000006: # Assembler: yaYUL 012043,000007: # Reference: pp. 282-293 of 1701.pdf. 012044,000008: # Contact: Ron Burkey <info@sandroid.org>. 012045,000009: # Website: www.ibiblio.org/apollo. 012046,000010: # Mod history: 08/08/04 RSB. Began transcribing. 012047,000011: 012048,000012: # The contents of the "Colossus249" files, in general, are transcribed 012049,000013: # from a scanned document obtained from MIT's website, 012050,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 012051,000015: # document read, in part: 012052,000016: 012053,000017: # Assemble revision 249 of AGC program Colossus by NASA 012054,000018: # 2021111-041. October 28, 1968. 012055,000019: 012056,000020: # This AGC program shall also be referred to as 012057,000021: # Colossus 1A 012058,000022: 012059,000023: # Prepared by 012060,000024: # Massachussets Institute of Technology 012061,000025: # 75 Cambridge Parkway 012062,000026: # Cambridge, Massachusetts 012063,000027: # under NASA contract NAS 9-4065. 012064,000028: 012065,000029: # Refer directly to the online document mentioned above for further information. 012066,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 012067,000031: 012068,000032: # In some cases, where the source code for Luminary 131 overlaps that of 012069,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131 012070,000034: # source file, and then is proofed to incorporate any changes. 012071,000035: 012072,000036: # Page 282 012073,000037: 22,2000 BANK 22 012074,000038: 23,2000 SETLOC COMGEOM1 012075,000039: 23,2000 BANK 012076,000040: 012077,000041: # THIS ROUTINE TAKES THE SHAFT AND TRUNNION ANGLES AS READ BY THE CM OPTICAL SYSTEM AND CONVERTS THEM INTO A UNIT 012078,000042: # VECTOR REFERENCED TO THE NAVIGATION BASE COORDINATE SYSTEM AND COINCIDENT WTIH THE SEXTAND LINE OF SIGHT. 012079,000043: 012080,000044: # THE INPUTS ARE: 1) THE SEXTAND SHAFT AND TRUNNION ANGLES ARE STORED SP IN LOCATIONS 3 AND 5 RESPECTIVELY OF THE 012081,000045: # MARK VAC AREA. 2) THE COMPLEMENT OF THE BASE ADDRESS OF THE MARK VAC AREA IS STORED SP AT LOCATION X1 OF YOUR 012082,000046: # JOB VAC AREA. 012083,000047: 012084,000048: # THE OUTPUT IS A HALF-UNIT VECTOR IN NAVIGATION BASE COORDINATES AND STORED AT LOCATION 32D OF THE VAC AREA. THE 012085,000049: # OUTPUT IS ALSO AVAILABLE AT MPAC. 012086,000050: 012087,000051: 23,2000 COUNT 23/GEOM 012088,000052: 012089,000053: 23,2000 47133 SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D 012090,000054: 23,2001 00006 5,1 # TRUNNION = TA 012091,000055: 23,2002 45510 CDULOGIC 012092,000056: 23,2003 41434 RTB PUSH 012093,000057: 23,2004 46027 SXTLOGIC 012094,000058: 23,2005 72556 SIN SL1 012095,000059: 23,2006 66606 PUSH SLOAD* # PD2 = SIN(TA) 012096,000060: 23,2007 00004 3,1 # SHAFT = SA 012097,000061: 23,2010 41434 RTB PUSH # PD4 = SA 012098,000062: 23,2011 45510 CDULOGIC 012099,000063: 012100,000064: 23,2012 41346 COS DMP 012101,000065: 23,2013 00003 2 012102,000066: 23,2014 14041 STODL STARM # COS(SA)SIN(TA) 012103,000067: 012104,000068: 23,2015 41356 SIN DMP 012105,000069: 23,2016 77626 STADR 012106,000070: 23,2017 63734 STODL STARM +2 # SIN(SA)SIN(TA) 012107,000071: 012108,000072: 23,2020 77746 COS 012109,000073: 23,2021 24045 STOVL STARM +4 012110,000074: 23,2022 00041 STARM # STARM = 32D 012111,000075: 23,2023 76521 MXV VSL1 012112,000076: 23,2024 06302 NB1NB2 012113,000077: 23,2025 00041 STORE 32D 012114,000078: 23,2026 77616 RVQ 012115,000079: 23,2027 32323 SXTLOGIC CAF 10DEGS- # CORRECT FOR 19.775 DEGREE OFFSET 012116,000080: 23,2030 26154 ADS MPAC 012117,000081: 23,2031 34676 CAF QUARTER 012118,000082: 23,2032 07256 TC SHORTMP 012119,000083: 23,2033 06030 TC DANZIG 012120,000084: 012121,000085: # Page 283 012122,000086: # CALCSXA COMPUTES THE SEXTANT SHAFT AND TRUNNION ANGLES REQUIRED TO POSITION THE OPTICS SUCH THAT A STAR LINE- 012123,000087: # OF-SIGHT LIES ALONG THE STAR FECTOR. THE ROUTINE TAKES THE GIVEN STAR VECTOR AND EXPRESSES IT AS A VECTOR REF- 012124,000088: # ERENECED TO THE OPTICS COORDINATE SYSTEM. IN ADDITION IT SETS UP THREE UNIT VECTORS DEFINING THE X, Y, AND Z AXES 012125,000089: # REFERENCED TO THE OPTICS COORDINATE SYSTEM. 012126,000090: 012127,000091: # THE INPUTS ARE: 1) THE STAR VECTOR REFERRED TO THE PRESENT STABLE MEMMBER COORDINATES STORED AT STAR. 2) SAME ANGLE 012128,000092: # INPUT AS *SMNB*, I.E., SINES AND COSINES OF THE CDU ANGLES, IN THE ORDER Y Z X, AT SINCDU AND COSCDU. A CALL 012129,000093: # TO CDUTRIG WILL PROVIDE THIS INPUT. 012130,000094: 012131,000095: # THE OUTPUT ARE THE SEXTANT SHAFT AND TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECTIVELY. (LOW ORDER PART 012132,000096: # EQUAL TO ZERO). 012133,000097: 012134,000098: 23,2034 77220 CALCSXA ITA VLOAD # PUSHDOWN 00-26D, 28D, 30D, 32D-36D 012135,000099: 23,2035 00034 28D 012136,000100: 23,2036 02766 STAR 012137,000101: 23,2037 77624 CALL 012138,000102: 23,2040 47577 *SMNB* 012139,000103: 23,2041 76521 MXV VSL1 012140,000104: 23,2042 06260 NB2NB1 012141,000105: 23,2043 26766 STOVL STAR 012142,000106: 23,2044 15330 HIUNITX 012143,000107: 23,2045 26555 STOVL XNB1 012144,000108: 23,2046 15326 HIUNITY 012145,000109: 23,2047 26563 STOVL YNB1 012146,000110: 23,2050 15324 HIUNITZ 012147,000111: 23,2051 36571 STCALL ZNB1 012148,000112: 23,2052 46076 SXTANG1 012149,000113: 012150,000114: # Page 284 012151,000115: # SXTANG COMPUTES THE SEXTANT SHAFT AND TRUNNION ANGLES REQUIRED TO POSITION THE OPTICS SUCH THAT A STAR LINE-OF- 012152,000116: # SIGHT LIES ALONG THE STAR VECTOR. 012153,000117: 012154,000118: # THE INPUTS ARE: 1) THE STAR VECTOR REFERRED TO ANY COORDINATE SYSTEM STORED AT STAR. 2) THE NAVIGATION BASE 012155,000119: # COORDINATES REFERRED TO THE SAME COORDINATE SYSTEM. THESE THREE HALF-UNIT VECTORS ARE STROED AT XNB, YNB,AND 012156,000120: # ZNB. 012157,000121: 012158,000122: # THE OUTPUTS ARE THE SEXTANT SHAFT AND TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECTIVELY. (LOW ORDER PART 012159,000123: # EQUAL TO ZERO). 012160,000124: 012161,000125: 23,2053 47020 SXTANG ITA RTB # PUSHDOWN 16D,18D,22D-26D,28D 012162,000126: 23,2054 00034 28D 012163,000127: 23,2055 45657 TRANSP1 # EREF WRT NB2 012164,000128: 23,2056 64375 VLOAD MXV 012165,000129: 23,2057 02714 XNB 012166,000130: 23,2060 06260 NB2NB1 012167,000131: 23,2061 77772 VSL1 012168,000132: 23,2062 26555 STOVL XNB1 012169,000133: 23,2063 02722 YNB 012170,000134: 23,2064 76521 MXV VSL1 012171,000135: 23,2065 06260 NB2NB1 012172,000136: 23,2066 26563 STOVL YNB1 012173,000137: 23,2067 02730 ZNB 012174,000138: 23,2070 76521 MXV VSL1 012175,000139: 23,2071 06260 NB2NB1 012176,000140: 23,2072 02571 STORE ZNB1 012177,000141: 012178,000142: 23,2073 47034 RTB RTB 012179,000143: 23,2074 45657 TRANSP1 012180,000144: 23,2075 45673 TRANSP2 012181,000145: 012182,000146: 23,2076 47375 SXTANG1 VLOAD VXV 012183,000147: 23,2077 02571 ZNB1 012184,000148: 23,2100 02766 STAR 012185,000149: 23,2101 77600 BOV 012186,000150: 23,2102 46103 +1 012187,000151: 23,2103 40056 UNIT BOV 012188,000152: 23,2104 46145 ZNB=S1 012189,000153: 23,2105 00027 STORE PDA # PDA = UNIT(ZNB X S) 012190,000154: 012191,000155: 23,2106 57441 DOT DCOMP 012192,000156: 23,2107 02555 XNB1 012193,000157: 23,2110 24023 STOVL SINTH # SIN(SA) = PDA . -XNB 012194,000158: 23,2111 00027 PDA 012195,000159: 012196,000160: 23,2112 77641 DOT 012197,000161: 23,2113 02563 YNB1 012198,000162: 23,2114 34021 STCALL COSTH # COS(SA) = PDA . YNB 012199,000163: 23,2115 47211 ARCTRIG 012200,000164: # Page 285 012201,000165: 23,2116 77634 RTB 012202,000166: 23,2117 45543 1STO2S 012203,000167: 23,2120 26774 STOVL SAC 012204,000168: 23,2121 02766 STAR 012205,000169: 23,2122 77600 BOV 012206,000170: 23,2123 46124 +1 012207,000171: 23,2124 72441 DOT SL1 012208,000172: 23,2125 02571 ZNB1 012209,000173: 23,2126 77726 ACOS 012210,000174: 23,2127 62440 BMN SL2 012211,000175: 23,2130 46142 SXTALARM # TRUNNION ANGLE NEGATIVE 012212,000176: 23,2131 45200 BOV DSU 012213,000177: 23,2132 46142 SXTALARM # TRUNNION ANGLE GREATER THAN 90 DEGREES 012214,000178: 23,2133 06331 20DEG- 012215,000179: 23,2134 77634 RTB 012216,000180: 23,2135 45543 1STO2S 012217,000181: 23,2136 02776 STORE PAC # FOR FLIGHT USE, CULTFLAG IS ON IF 012218,000182: 23,2137 77614 CLRGO # TRUNION IS GREATER THAN 90 DEGR 012219,000183: 23,2140 01630 CULTFLAG 012220,000184: 23,2141 00034 28D 012221,000185: 23,2142 77614 SXTALARM SETGO # ALARM HAS BEEN REMOVED FROM THIS 012222,000186: 23,2143 01430 CULTFLAG 012223,000187: 23,2144 00034 28D # SUBROUTINE, ALARM WILL BE SET BY MPI 012224,000188: 23,2145 77745 ZNB=S1 DLOAD 012225,000189: 23,2146 06325 270DEG 012226,000190: 23,2147 16774 STODL SAC 012227,000191: 23,2150 06327 20DEGS- 012228,000192: 23,2151 02776 STORE PAC 012229,000193: 23,2152 77614 CLRGO 012230,000194: 23,2153 01630 CULTFLAG 012231,000195: 23,2154 00034 28D 012232,000196: 012233,000197: # Page 286 012234,000198: # THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM, CSM BY ADDING 012235,000199: # THE CONIC R,V AND THE DEVIATIONS R,V. THE STATE VECTORS ARE CONVERTED TO 012236,000200: # METERS B-29 AND METERS/CSEC B-7 AND STORED APPROPIRATELY IN RN,VN OR 012237,000201: # R-OTHER, V-OTHER FOR DOWNLINK. THE ROUTINES NAMES ARE SWITCHED IN THE 012238,000202: # OTHER VEHICLES COMPUTER. 012239,000203: 012240,000204: # INPUT 012241,000205: # STATE VECTOR IN TEMPORARY STORAGE AREA 012242,000206: # IF STATE VECTOR IS SCALED POS B27 AND VEL B5 012243,000207: # SET X2 TO +2 012244,000208: # IF STATE VECTOR IS SCALED POS B29 AND VEL B7 012245,000209: # SET X2 TO 0 012246,000210: 012247,000211: # OUTPUT 012248,000212: # R(T) IN RN, V(T) IN VN, T IN PIPTIME 012249,000213: # OR 012250,000214: # R(T) IN R-OTHER, V(T) IN V-OTHER (T IS DEFINED BY T-OTHER) 012251,000215: 012252,000216: 23,2155 BANK 23 012253,000217: 10,2000 SETLOC COMGEOM2 012254,000218: 10,2000 BANK 012255,000219: 10,2237 COUNT 10/GEOM 012256,000220: 10,2237 43414 SVDWN1 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG 012257,000221: 10,2240 04756 AVEMIDSW 012258,000222: 10,2241 20242 +1 012259,000223: 10,2242 53775 VLOAD VSL* 012260,000224: 10,2243 01521 TDELTAV 012261,000225: 10,2244 57605 0 -7,2 012262,000226: 10,2245 53655 VAD VSL* 012263,000227: 10,2246 01535 RCV 012264,000228: 10,2247 57576 0,2 012265,000229: 10,2250 25171 STOVL RN 012266,000230: 10,2251 01527 TNUV 012267,000231: 10,2252 53257 VSL* VAD 012268,000232: 10,2253 57602 0 -4,2 012269,000233: 10,2254 01543 VCV 012270,000234: 10,2255 77657 VSL* 012271,000235: 10,2256 57576 0,2 012272,000236: 10,2257 15177 STODL VN 012273,000237: 10,2260 01517 TET 012274,000238: 10,2261 01205 STORE PIPTIME 012275,000239: 10,2262 77616 RVQ 012276,000240: 10,2263 53775 SVDWN2 VLOAD VSL* 012277,000241: 10,2264 01521 TDELTAV 012278,000242: 10,2265 57605 0 -7,2 012279,000243: 10,2266 53655 VAD VSL* 012280,000244: 10,2267 01535 RCV 012281,000245: # Page 287 012282,000246: 10,2270 57576 0,2 012283,000247: 10,2271 25722 STOVL R-OTHER 012284,000248: 10,2272 01527 TNUV 012285,000249: 10,2273 53257 VSL* VAD 012286,000250: 10,2274 57602 0 -4,2 012287,000251: 10,2275 01543 VCV 012288,000252: 10,2276 77657 VSL* 012289,000253: 10,2277 57576 0,2 012290,000254: 10,2300 01730 STORE V-OTHER 012291,000255: 10,2301 77616 RVQ 012292,000256: 012293,000257: # Page 288 012294,000258: # SUBROUTINE TO COMPUTE THE NATURAL LOG OF C(MPAC, MPAC +1). 012295,000259: 012296,000260: # ENTRY: CALL 012297,000261: # LOG 012298,000262: 012299,000263: # SUBROUTINE RETURNS WITH -LOG IN DP MPAC. 012300,000264: 012301,000265: # EBANK IS ARBITRARY. 012302,000266: 012303,000267: 14,2000 BANK 14 012304,000268: 23,2000 SETLOC POWFLIT2 012305,000269: 23,2000 BANK 012306,000270: 23,2155 COUNT 23/GEOM 012307,000271: 012308,000272: 23,2155 44301 LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG 012309,000273: 23,2156 00160 MPAC +3 # UNTIL IT LIES BETWEEN .5 AND 1. 012310,000274: 23,2157 06212 NEARLY1 # THE LOG OF THIS PART IS FOUND AND THE 012311,000275: 23,2160 77776 EXIT # LOG OF THE SHIFTED PART IS COMPUTED 012312,000276: 23,2161 07171 TC POLY # AND ADDED IN. SHIFT COUNT STORED 012313,000277: 23,2162 00002 DEC 2 B-14 # (N-1, SUPPLIED BY SMERZH) 012314,000278: 23,2163 00000 00000 2DEC 0 B-28 # IN MPAC +3. 012315,000279: 23,2165 01001 14636 2DEC .031335467 012316,000280: 23,2167 00325 07310 2DEC .0130145859 012317,000281: 23,2171 00541 16735 2DEC .0215738898 012318,000282: 012319,000283: 23,2173 34714 CAF ZERO 012320,000284: 23,2174 54156 TS MPAC +2 012321,000285: 23,2175 00006 EXTEND 012322,000286: 23,2176 32214 DCA CLOG2/32 012323,000287: 23,2177 52155 DXCH MPAC 012324,000288: 23,2200 52160 DXCH MPAC +3 012325,000289: 23,2201 40000 COM # LOAD POSITIVE SHIFT COUNT IN A. 012326,000290: 23,2202 07256 TC SHORTMP # MULTIPLY BY SHIFT COUNT. 012327,000291: 012328,000292: 23,2203 52156 DXCH MPAC +1 012329,000293: 23,2204 52155 DXCH MPAC 012330,000294: 23,2205 52160 DXCH MPAC +3 012331,000295: 23,2206 20155 DAS MPAC 012332,000296: 23,2207 06006 TC INTPRET # RESULT IN MPAC, MPAC +1 012333,000297: 012334,000298: 23,2210 77616 RVQ 012335,000299: 012336,000300: 23,2211 37777 37777 NEARLY1 2DEC .999999999 012337,000301: 012338,000302: # Page 289 012339,000303: 23,2213 00542 34414 CLOG2/32 2DEC .0216608494 012340,000304: 012341,000305: # Page 290 012342,000306: # SUBROUTINE NAME: EARTH ROTATOR (EARROT1 OR EARROT2) DATE: 15 FEB 67 012343,000307: # MOD NO: N +1 LOG SECTION: POWERED FLIGHT SUBROS 012344,000308: # MOD BY: ENTRY GROUP (BAIRNSFATHER) 012345,000309: 012346,000310: # FUNCTIONAL DESCRIPTION: THIS ROUTINE PROJECTS THE INITIAL EARTH TARGET VECTOR RTINIT AHEAD THROUGH 012347,000311: # THE ESTIMATED TIME OF FLIGHT. INITIAL CALL RESOLVES THE INITIAL TARGET VECTOR RTINIT INTO EASTERLY 012348,000312: # AND NORMAL COMPONENTS RTEAST AND RTNORM. INITIAL AND SUBSEQUENT CALLS ROTATE THIS VECTOR 012349,000313: # ABOUT THE (FULL) UNIT POLAR AXIS UNITW THROUGH THE ANGLE WIE DTEAROT TO OBTAIN THE ROTATED 012350,000314: # TARGET VECTOR RT. ALL VECTORS EXCEPT UNITW ARE HALF UNIT. 012351,000315: # THE EQUATIONS ARE: 012352,000316: # _ _ _ _ 012353,000317: # RT = RTINIT + RTNORM (COS(WT) - 1) + RTEAST SIN(WT) 012354,000318: 012355,000319: # WHERE WT = WIE DTEAROT 012356,000320: 012357,000321: # RTINIT = INITIAL TARGET VECTOR 012358,000322: # _ _ _ 012359,000323: # RTEAST = UNITW * RTINIT 012360,000324: # _ _ _ 012361,000325: # RTNORM = RTEAST * UNITW 012362,000326: 012363,000327: # FOR CONTINUOUS UPDATING, ONLY ONE ENTRY TO EARROT1 IS REQUIRED, WITH SUBSEQUENT ENTRIES AT EARROT2. 012364,000328: # 012365,000329: # CALLING SEQUENCE: FIRST CALL SUBSEQUENT CALL 012366,000330: # STCALL DTEAROT STCALL DTEAROT 012367,000331: # EARROT1 EARROT2 012368,000332: # C(MPAC) UNSPECIFIED C(MPAC) = DTEAROT 012369,000333: # PUSHLOC = PDL+0, ARBITRARY. 6 LOCATIONS USED. 012370,000334: 012371,000335: # SUBROUTINES USED: NONE 012372,000336: 012373,000337: # NORMAL EXIT MODES: RVQ 012374,000338: 012375,000339: # ALARMS: NONE 012376,000340: 012377,000341: # OUTPUT: RTEAST (-1) .5 UNIT VECTOR EAST, COMPNT OF RTINIT LEFT BY FIRST CALL 012378,000342: # RTNORM (-1) .5 UNIT VECTOR NORML, COMPNT OF RTINIT LEFT BY FIRST CALL 012379,000343: # RT (-1) .5 UNIT TARGET VECTOR, ROTATED LEFT BY ALL CALLS 012380,000344: # DTEAROT (-28) CS MAY BE CHANGED BY EARROT2, IF OVER 1 DAY 012381,000345: 012382,000346: # ERASABLE INITIALIZATION REQUIRED: 012383,000347: # UNITW (0) UNIT POLAR VECTOR PAD LOADED 012384,000348: # RTINIT (-1) .5 UNIT INITIAL TARGET VECTOR LEFT BY ENTRY 012385,000349: # DTEAROT (-26) CS TIME OF FLIGHT LEFT BY CALLER 012386,000350: 012387,000351: # DEBRIS: QPRET, PDL+0 ... PDL+5 012388,000352: # Page 291 012389,000353: 23,2215 E7,1451 EBANK= RTINIT 012390,000354: 012391,000355: 23,2215 47375 EARROT1 VLOAD VXV 012392,000356: 23,2216 01714 UNITW # FULL UNIT VECTOR 012393,000357: 23,2217 03452 RTINIT # .5 UNIT 012394,000358: 23,2220 03460 STORE RTEAST # .5 UNIT 012395,000359: 012396,000360: 23,2221 77635 VXV 012397,000361: 23,2222 01714 UNITW # FULL UNIT 012398,000362: 23,2223 17466 STODL RTNORM # .5 UNIT 012399,000363: 23,2224 03606 DTEAROT # (-28) CS 012400,000364: 012401,000365: 23,2225 56204 EARROT2 BOVB DDV 012402,000366: 23,2226 57343 TCDANZIG # RESET OVFIND, IF ON 012403,000367: 23,2227 06256 1/WIE 012404,000368: 23,2230 41400 BOV PUSH 012405,000369: 23,2231 46245 OVERADAY 012406,000370: 23,2232 45346 COS DSU 012407,000371: 23,2233 15330 HIDPHALF 012408,000372: 23,2234 65361 VXSC PDDL # XCH W PUSH LIST 012409,000373: 23,2235 03466 RTNORM # .5 UNIT 012410,000374: 23,2236 74356 SIN VXSC 012411,000375: 23,2237 03460 RTEAST # .5 UNIT 012412,000376: 23,2240 76455 VAD VSL1 012413,000377: 23,2241 53455 VAD UNIT # INSURE THAT RT IS "UNIT". 012414,000378: 23,2242 03452 RTINIT # .5 UNIT 012415,000379: 23,2243 03474 STORE RT # .5 UNIT TARGET VECTOR 012416,000380: 012417,000381: 23,2244 77616 RVQ 012418,000382: 012419,000383: 23,2245 75345 OVERADAY DLOAD SIGN 012420,000384: 23,2246 06256 1/WIE 012421,000385: 23,2247 03606 DTEAROT 012422,000386: 23,2250 77621 BDSU 012423,000387: 23,2251 03606 DTEAROT 012424,000388: 23,2252 03606 STORE DTEAROT 012425,000389: 012426,000390: 23,2253 77650 GOTO 012427,000391: 23,2254 46225 EARROT2 012428,000392: 012429,000393: # WIE 2DEC .1901487997 012430,000394: 23,2255 01015 34732 1/WIE 2DEC 8616410 B-28 012431,000395: 23,2257 15373 11346 NB2NB1 2DEC +.8431756920 B-1 012432,000396: 23,2261 00000 00000 2DEC 0 B-28 012433,000397: 23,2263 67313 65307 2DEC -.5376381241 B-1 012434,000398: # Page 292 012435,000399: 23,2265 00000 00000 ZERINFLT 2DEC 0 B-28 012436,000400: 23,2267 20000 00000 HALFNFLT 2DEC .5 012437,000401: 23,2271 00000 00000 2DEC 0 B-28 012438,000402: 23,2273 10464 12470 2DEC +.5376381241 B-1 012439,000403: 23,2275 00000 00000 2DEC 0 B-28 012440,000404: 23,2277 15373 11346 2DEC +.8431756920 B-1 012441,000405: 23,2301 15373 11346 NB1NB2 2DEC +.8431756920 B-1 012442,000406: 23,2303 00000 00000 2DEC 0 B-28 012443,000407: 23,2305 10464 12470 2DEC +.5376381241 B-1 012444,000408: 23,2307 00000 00000 2DEC 0 B-28 012445,000409: 23,2311 20000 00000 2DEC .5 012446,000410: 23,2313 00000 00000 2DEC 0 B-28 012447,000411: 23,2315 67313 65307 2DEC -.5376381241 B-1 012448,000412: 23,2317 00000 00000 2DEC 0 B-28 012449,000413: 23,2321 15373 11346 2DEC +.8431756920 B-1 012450,000414: # Page 293 012451,000415: 23,2323 07020 10DEGS- DEC 3600 B-14 012452,000416: 23,2324 60000 270DEG OCT 60000 # SHAFT 270 DEGREES 25 COMP. 012453,000417: 23,2325 00000 OCT 00000 012454,000418: 23,2326 61740 20DEGS- DEC -07199 B-14 012455,000419: 23,2327 77777 DEC -00000 B-14 012456,000420: 23,2330 07020 20DEG- DEC 03600 B-14 012457,000421: 23,2331 00000 DEC 00000 B-14 012458,000422: End of include-file CSM_GEOMETRY.agc. Parent file is MAIN.agc