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. |
013189,000002: ## Copyright: Public domain.
013190,000003: ## Filename: CSM_GEOMETRY.agc
013191,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
013192,000005: ## build 072. This is for the Command Module's (CM)
013193,000006: ## Apollo Guidance Computer (AGC), for
013194,000007: ## Apollo 15-17.
013195,000008: ## Assembler: yaYUL
013196,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
013197,000010: ## Website: www.ibiblio.org/apollo/index.html
013198,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
013199,000012: ## Mod history: 2009-08-08 JL Adapted from corresponding Comanche 055 file.
013200,000013: ## 2010-02-08 JL Fixed a line that should have been commented out on p305.
013201,000014: ## 2010-02-20 RSB Un-##'d this header.
013202,000015: ## 2017-01-21 RSB Proofed comment text by diff'ing vs Comanche 55
013203,000016: ## and corrected errors found.
013204,000017: ## 2017-01-28 RSB WTIH -> WITH.
013205,000018:
|
|
Page 297 |
013207,000020:
013208,000021: 23,2000 SETLOC COMGEOM1
013209,000022: 23,2000 BANK
013210,000023:
013211,000024: # THIS ROUTINE TAKES THE SHAFT AND TRUNNION ANGLES AS READ BY THE CM OPTICAL SYSTEM AND CONVERTS THEM INTO A UNIT
013212,000025: # VECTOR REFERENCED TO THE NAVIGATION BASE COORDINATE SYSTEM AND COINCIDENT WITH THE SEXTANT LINE OF SIGHT.
013213,000026:
013214,000027: # THE INPUTS ARE 1) THE SEXTANT SHAFT AND TRUNNION ANGLES ARE STORED SP IN LOCATIONS 3 AND 5 RESPECTIVELY OF THE
013215,000028: # MARK VAC AREA. 2) THE COMPLEMENT OF THE BASE ADDRESS OF THE MARK VAC AREA IS STORED SP AT LOCATION X1 OF YOUR
013216,000029: # JOB VAC AREA.
013217,000030:
013218,000031: # THE OUTPUT IS A HALF-UNIT VECTOR IN NAVIGATION BASE COORDINATES AND STORED AT LOCATION 32D OF THE VAC AREA. THE
013219,000032: # OUTPUT IS ALSO AVAILABLE AT MPAC.
013220,000033:
013221,000034: 23,2000 COUNT* $$/GEOM
013222,000035: 23,2000 47133 SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D
013223,000036: 23,2001 00006 5,1 # TRUNNION = TA
013224,000037: 23,2002 51754 CDULOGIC
013225,000038: 23,2003 41434 RTB PUSH
013226,000039: 23,2004 46027 SXTLOGIC
013227,000040: 23,2005 72556 SIN SL1
013228,000041: 23,2006 66606 PUSH SLOAD* # PD2 = SIN(TA)
013229,000042: 23,2007 00004 3,1 # SHAFT = SA
013230,000043: 23,2010 41434 RTB PUSH # PD4 = SA
013231,000044: 23,2011 51754 CDULOGIC
013232,000045:
013233,000046: 23,2012 41346 COS DMP
013234,000047: 23,2013 00003 2
013235,000048: 23,2014 14041 STODL STARM # COS(SA)SIN(TA)
013236,000049:
013237,000050: 23,2015 41356 SIN DMP
013238,000051: 23,2016 77626 STADR
013239,000052: 23,2017 63734 STODL STARM +2 # SIN(SA)SIN(TA)
013240,000053:
013241,000054: 23,2020 77746 COS
013242,000055: 23,2021 24045 STOVL STARM +4
013243,000056: 23,2022 00041 STARM # STARM = 32D
013244,000057: 23,2023 76521 MXV VSL1
013245,000058: 23,2024 06300 NB1NB2
013246,000059: 23,2025 00041 STORE 32D
013247,000060: 23,2026 77616 RVQ
013248,000061:
013249,000062: 23,2027 32321 SXTLOGIC CAF 10DEGS- # CORRECT FOR 19.775 DEGREE OFFSET
013250,000063: 23,2030 26154 ADS MPAC
013251,000064: 23,2031 34754 CAF QUARTER
013252,000065: 23,2032 07256 TC SHORTMP
013253,000066: 23,2033 06030 TC DANZIG
013254,000067:
|
|
Page 298 |
013256,000069:
013257,000070: # CALCSXA COMPUTES THE SEXTANT SHAFT AND TRUNNION ANGLES REQUIRED TO POSITION THE OPTICS SUCH THAT A STAR LINE-
013258,000071: # OF-SIGHT LIES ALONG THE STAR VECTOR. THE ROUTINE TAKES THE GIVEN STAR VECTOR AND EXPRESSES IT AS A VECTOR REF-
013259,000072: # ERENCED TO THE OPTICS COORDINATE SYSTEM. IN ADDITION IT SETS UP THREE UNIT VECTORS DEFINING THE X, Y, AND Z AXES
013260,000073: # REFERENCED TO THE OPTICS COORDINATE SYSTEM.
013261,000074:
013262,000075: # THE INPUTS ARE 1) THE STAR VECTOR REFERRED TO PRESENT STABLE MEMBER COORDINATES STORED AT STAR. 2) SAME ANGLE
013263,000076: # INPUT AS *SMNB*, I.E. SINES AND COSINES OF THE CDU ANGLES, IN THE ORDER Y Z X, AT SINCDU AND COSCDU. A CALL
013264,000077: # TO CDUTRIG WILL PROVIDE THIS INPUT.
013265,000078:
013266,000079: # THE OUTPUTS ARE THE SEXTANT SHAFT AND TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECTIVELY. (LOW ORDER PART
013267,000080: # EQUAL TO ZERO).
013268,000081:
013269,000082: 23,2034 77220 CALCSXA ITA VLOAD # PUSHDOWN 00-26D,28D,30D,32D-36D
013270,000083: 23,2035 00034 28D
013271,000084: 23,2036 02766 STAR
013272,000085: 23,2037 77624 CALL
013273,000086: 23,2040 47633 *SMNB*
013274,000087: 23,2041 76521 MXV VSL1
013275,000088: 23,2042 06256 NB2NB1
013276,000089: 23,2043 26766 STOVL STAR
013277,000090: 23,2044 15334 HIUNITX
013278,000091: 23,2045 26555 STOVL XNB1
013279,000092: 23,2046 15332 HIUNITY
013280,000093: 23,2047 26563 STOVL YNB1
013281,000094: 23,2050 15330 HIUNITZ
013282,000095: 23,2051 36571 STCALL ZNB1
013283,000096: 23,2052 46076 SXTANG1
013284,000097:
|
|
Page 299 |
013286,000099:
013287,000100: # SXTANG COMPUTES THE SEXTANT SHAFT AND TRUNNION ANGLES REQUIRED TO POSITION THE OPTICS SUCH THAT A STAR LINE-OF-
013288,000101: # SIGHT LIES ALONG THE STAR VECTOR.
013289,000102:
013290,000103: # THE INPUTS ARE 1) THE STAR VECTOR REFERRED TO ANY COORDINATE SYSTEM STORED AT STAR. 2) THE NAVIGATION BASE
013291,000104: # COORDINATES REFERRED TO THE SAME COORDINATE SYSTEM. THESE THREE HALF-UNIT VECTORS ARE STORED AT XNB, YNB, AND
013292,000105: # ZNB.
013293,000106:
013294,000107: # THE OUTPUTS ARE THE SEXTANT SHAFT AND TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECTIVELY. (LOW ORDER PART
013295,000108: # EQUAL TO ZERO).
013296,000109:
013297,000110: 23,2053 47020 SXTANG ITA RTB # PUSHDOWN 16D,18D,22D-26D,28D
013298,000111: 23,2054 00034 28D
013299,000112: 23,2055 45731 TRANSP1 # EREF WRT NB2
013300,000113: 23,2056 64375 VLOAD MXV
013301,000114: 23,2057 02714 XNB
013302,000115: 23,2060 06256 NB2NB1
013303,000116: 23,2061 77772 VSL1
013304,000117: 23,2062 26555 STOVL XNB1
013305,000118: 23,2063 02722 YNB
013306,000119: 23,2064 76521 MXV VSL1
013307,000120: 23,2065 06256 NB2NB1
013308,000121: 23,2066 26563 STOVL YNB1
013309,000122: 23,2067 02730 ZNB
013310,000123: 23,2070 76521 MXV VSL1
013311,000124: 23,2071 06256 NB2NB1
013312,000125: 23,2072 02571 STORE ZNB1
013313,000126:
013314,000127: 23,2073 47034 RTB RTB
013315,000128: 23,2074 45731 TRANSP1
013316,000129: 23,2075 45745 TRANSP2
013317,000130:
013318,000131: 23,2076 47375 SXTANG1 VLOAD VXV
013319,000132: 23,2077 02571 ZNB1
013320,000133: 23,2100 02766 STAR
013321,000134: 23,2101 77600 BOV
013322,000135: 23,2102 46103 +1
013323,000136: 23,2103 40056 UNIT BOV
013324,000137: 23,2104 46145 ZNB=S1
013325,000138: 23,2105 00027 STORE PDA # PDA = UNIT(ZNB X S)
013326,000139:
013327,000140: 23,2106 57441 DOT DCOMP
013328,000141: 23,2107 02555 XNB1
013329,000142: 23,2110 24023 STOVL SINTH # SIN(SA) = PDA . -XNB
013330,000143: 23,2111 00027 PDA
013331,000144:
013332,000145: 23,2112 77641 DOT
013333,000146: 23,2113 02563 YNB1
013334,000147: 23,2114 34021 STCALL COSTH # COS(SA) = PDA . YNB
013335,000148: 23,2115 47311 ARCTRIG
|
|
Page 300 |
013337,000150: 23,2116 77634 RTB
013338,000151: 23,2117 45640 1STO2S
013339,000152: 23,2120 26774 STOVL SAC
013340,000153: 23,2121 02766 STAR
013341,000154: 23,2122 77600 BOV
013342,000155: 23,2123 46124 +1
013343,000156: 23,2124 72441 DOT SL1
013344,000157: 23,2125 02571 ZNB1
013345,000158: 23,2126 77726 ACOS
013346,000159: 23,2127 62440 BMN SL2
013347,000160: 23,2130 46142 SXTALARM # TRUNNION ANGLE NEGATIVE
013348,000161: 23,2131 45200 BOV DSU
013349,000162: 23,2132 46142 SXTALARM # TRUNNION ANGLE GREATER THAN 90 DEGREES
013350,000163: 23,2133 06327 20DEG-
013351,000164: 23,2134 77634 RTB
013352,000165: 23,2135 45640 1STO2S
013353,000166: 23,2136 02776 STORE PAC # FOR FLIGHT USE, CULTFLAG IS ON IF
013354,000167: 23,2137 77614 CLRGO # TRUNION IS GREATER THAN 90 DEG
013355,000168: 23,2140 01630 CULTFLAG
013356,000169: 23,2141 00034 28D
013357,000170: 23,2142 77614 SXTALARM SETGO # ALARM HAS BEEN REMOVED FROM THIS
013358,000171: 23,2143 01430 CULTFLAG
013359,000172: 23,2144 00034 28D # SUBROUTINE, ALARM WILL BE SET BY MPI
013360,000173: 23,2145 77745 ZNB=S1 DLOAD
013361,000174: 23,2146 06323 270DEG
013362,000175: 23,2147 16774 STODL SAC
013363,000176: 23,2150 06325 20DEGS-
013364,000177: 23,2151 02776 STORE PAC
013365,000178: 23,2152 77614 CLRGO
013366,000179: 23,2153 01630 CULTFLAG
013367,000180: 23,2154 00034 28D
013368,000181:
|
|
Page 301 |
013370,000183:
013371,000184: # THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM, CSM BY ADDING
013372,000185: # THE CONIC R,V AND THE DEVIATIONS R,V. THE STATE VECTORS ARE CONVERTED TO
013373,000186: # METERS B-29 AND METERS/CSEC B-7 AND STORED APPROPRIATELY IN RN,VN OR
013374,000187: # R-OTHER , V-OTHER FOR DOWNLINK. THE ROUTINES NAMES ARE SWITCHED IN THE
013375,000188: # OTHER VEHICLES COMPUTER.
013376,000189:
013377,000190: # INPUT
013378,000191: # STATE VECTOR IN TEMPORARY STORAGE AREA
013379,000192: # IF STATE VECTOR IS SCALED POS B27 AND VEL B5
013380,000193: # SET X2 TO +2
013381,000194: # IF STATE VECTOR IS SCALED POS B29 AND VEL B7
013382,000195: # SET X2 TO 0
013383,000196:
013384,000197: # OUTPUT
013385,000198: # R(T) IN RN, V(T) IN VN, T IN PIPTIME
013386,000199: # OR
013387,000200: # R(T) IN R-OTHER, V(T) IN V-OTHER (T IS DEFINED BY T-OTHER)
013388,000201:
013389,000202: 10,2000 SETLOC COMGEOM2
013390,000203: 10,2000 BANK
013391,000204: 10,2240 COUNT* $$/GEOM
013392,000205: 10,2240 43414 SVDWN1 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG
013393,000206: 10,2241 04756 AVEMIDSW
013394,000207: 10,2242 20243 +1
013395,000208: 10,2243 53775 VLOAD VSL*
013396,000209: 10,2244 01521 TDELTAV
013397,000210: 10,2245 57605 0 -7,2
013398,000211: 10,2246 53655 VAD VSL*
013399,000212: 10,2247 01535 RCV
013400,000213: 10,2250 57576 0,2
013401,000214: 10,2251 25030 STOVL RN
013402,000215: 10,2252 01527 TNUV
013403,000216: 10,2253 53257 VSL* VAD
013404,000217: 10,2254 57602 0 -4,2
013405,000218: 10,2255 01543 VCV
013406,000219: 10,2256 77657 VSL*
013407,000220: 10,2257 57576 0,2
013408,000221: 10,2260 15036 STODL VN
013409,000222: 10,2261 01517 TET
013410,000223: 10,2262 01044 STORE PIPTIME
013411,000224: 10,2263 77616 RVQ
013412,000225:
013413,000226: 10,2264 53775 SVDWN2 VLOAD VSL*
013414,000227: 10,2265 01521 TDELTAV
013415,000228: 10,2266 57605 0 -7,2
013416,000229: 10,2267 53655 VAD VSL*
013417,000230: 10,2270 01535 RCV
013418,000231: 10,2271 57576 0,2
|
|
Page 302 |
013420,000233: 10,2272 25720 STOVL R-OTHER
013421,000234: 10,2273 01527 TNUV
013422,000235: 10,2274 53257 VSL* VAD
013423,000236: 10,2275 57602 0 -4,2
013424,000237: 10,2276 01543 VCV
013425,000238: 10,2277 77657 VSL*
013426,000239: 10,2300 57576 0,2
013427,000240: 10,2301 01726 STORE V-OTHER
013428,000241: 10,2302 77616 RVQ
013429,000242:
|
|
Page 303 |
013431,000244:
013432,000245: # SUBROUTINE TO COMPUTE THE NATURAL LOG OF C(MPAC, MPAC +1).
013433,000246:
013434,000247: # ENTRY: CALL
013435,000248: # LOG
013436,000249:
013437,000250: # SUBROUTINE RETURNS WITH -LOG IN DP MPAC.
013438,000251:
013439,000252: # EBANK IS ARBITRARY..
013440,000253:
013441,000254: 23,2000 SETLOC POWFLIT2
013442,000255: 23,2000 BANK
013443,000256: 23,2155 COUNT* $$/GEOM
013444,000257: 23,2155 44301 LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG
013445,000258: 23,2156 00160 MPAC +3 # UNTIL IT LIES BETWEEN .5 AND 1.
013446,000259: 23,2157 15344 NEARLY1 # THE LOG OF THIS PART IS FOUND AND THE
013447,000260: 23,2160 77776 EXIT # LOG OF THE SHIFTED PART IS COMPUTED
013448,000261:
013449,000262: 23,2161 07171 TC POLY # AND ADDED IN. SHIFT COUNT STORED
013450,000263:
013451,000264: 23,2162 00002 DEC 2 B-14 # (N-1, SUPPLIED BY SMERZH)
013452,000265: 23,2163 00000 00000 2DEC 0 B-28 # IN MPAC +3.
013453,000266: 23,2165 01001 14636 2DEC .031335467
013454,000267: 23,2167 00325 07310 2DEC .0130145859
013455,000268: 23,2171 00541 16735 2DEC .0215738898
013456,000269:
013457,000270: 23,2173 34772 CAF ZERO
013458,000271: 23,2174 54156 TS MPAC +2
013459,000272: 23,2175 00006 EXTEND
013460,000273: 23,2176 32212 DCA CLOG2/32
013461,000274: 23,2177 52155 DXCH MPAC
013462,000275: 23,2200 52160 DXCH MPAC +3
013463,000276: 23,2201 40000 COM # LOAD POSITIVE SHIFT COUNT IN A.
013464,000277: 23,2202 07256 TC SHORTMP # MULTIPLY BY SHIFT COUNT.
013465,000278:
013466,000279: 23,2203 52156 DXCH MPAC +1
013467,000280: 23,2204 52155 DXCH MPAC
013468,000281: 23,2205 52160 DXCH MPAC +3
013469,000282: 23,2206 20155 DAS MPAC
013470,000283: 23,2207 06006 TC INTPRET # RESULT IN MPAC, MPAC +1
013471,000284:
013472,000285: 23,2210 77616 RVQ
013473,000286:
013474,000287: 23,2211 26,3343 NEARLY1 = NEARONE
013475,000288: 23,2211 00542 34414 CLOG2/32 2DEC .0216608494
013476,000289:
|
|
Page 304 |
013478,000291:
013479,000292: # SUBROUTINE NAME: EARTH ROTATOR (EARROT1 OR EARROT2) DATE: 15 FEB 67
013480,000293: # MOD NO: N +1 LOG SECTION: POWERED FLIGHT SUBROS
013481,000294: # MOD BY: ENTRY GROUP (BAIRNSFATHER)
013482,000295:
013483,000296: # FUNCTIONAL DESCRIPTION: THIS ROUTINE PROJECTS THE INITIAL EARTH TARGET VECTOR RTINIT AHEAD THROUGH
013484,000297: # THE ESTIMATED TIME OF FLIGHT. INITIAL CALL RESOLVES THE INITIAL TARGET VECTOR RTINIT INTO EASTERLY
013485,000298: # AND NORMAL COMPONENTS RTEAST AND RTNORM . INITIAL AND SUBSEQUENT CALLS ROTATE THIS VECTOR
013486,000299: # ABOUT THE (FULL) UNIT POLAR AXIS UNITW THROUGH THE ANGLE WIE DTEAROT TO OBTAIN THE ROTATED
013487,000300: # TARGET VECTOR RT . ALL VECTORS EXCEPT UNITW ARE HALF UNIT.
013488,000301: # THE EQUATIONS ARE
013489,000302: # - - - -
013490,000303: # RT = RTINIT + RTNORM (COS(WT) - 1) + RTEAST SIN(WT)
013491,000304:
013492,000305: # WHERE WT = WIE DTEAROT
013493,000306:
013494,000307: # RTINIT = INITIAL TARGET VECTOR
013495,000308: # - - -
013496,000309: # RTEAST = UNITW * RTINIT
013497,000310: # - - -
013498,000311: # RTNORM = RTEAST * UNITW
013499,000312:
013500,000313: # FOR CONTINUOUS UPDATING, ONLY ONE ENTRY TO EARROT1 IS REQUIRED, WITH SUBSEQUENT ENTRIES AT EARROT2.
013501,000314:
013502,000315: # CALLING SEQUENCE: FIRST CALL SUBSEQUENT CALL
013503,000316: # STCALL DTEAROT STCALL DTEAROT
013504,000317: # EARROT1 EARROT2
013505,000318: # C(MPAC) UNSPECIFIED C(MPAC) = DTEAROT
013506,000319: # PUSHLOC = PDL+0, ARBITRARY. 6 LOCATIONS USED.
013507,000320:
013508,000321: # SUBROUTINES USED: NONE
013509,000322:
013510,000323: # NORMAL EXIT MODES: RVQ
013511,000324:
013512,000325: # ALARMS: NONE
013513,000326:
013514,000327: # OUTPUT: RTEAST (-1) .5 UNIT VECTOR EAST, COMPNT OF RTINIT LEFT BY FIRST CALL
013515,000328: # RTNORM (-1) .5 UNIT VECTOR NORML, COMPNT OF RTINIT LEFT BY FIRST CALL
013516,000329: # RT (-1) .5 UNIT TARGET VECTOR, ROTATED LEFT BY ALL CALLS
013517,000330: # DTEAROT (-28) CS MAY BE CHANGED BY EARROT2, IF OVER 1 DAY
013518,000331:
013519,000332: # ERASABLE INITIALIZATION REQUIRED:
013520,000333: # UNITW (0) UNIT POLAR VECTOR PAD LOADED
013521,000334: # RTINIT (-1) .5 UNIT INITIAL TARGET VECTOR LEFT BY ENTRY
013522,000335: # DTEAROT (-28) CS TIME OF FLIGHT LEFT BY CALLER
013523,000336:
013524,000337: # DEBRIS: QPRET, PDL+0 ... PDL+5
013525,000338:
|
|
Page 305 |
013527,000340: 23,2213 E7,1451 EBANK= RTINIT
013528,000341:
013529,000342: 23,2213 47375 EARROT1 VLOAD VXV
013530,000343: 23,2214 01712 UNITW # FULL UNIT VECTOR
013531,000344: 23,2215 03452 RTINIT # .5 UNIT
013532,000345: 23,2216 03460 STORE RTEAST # .5 UNIT
013533,000346:
013534,000347: 23,2217 77635 VXV
013535,000348: 23,2220 01712 UNITW # FULL UNIT
013536,000349: 23,2221 17466 STODL RTNORM # .5 UNIT
013537,000350: 23,2222 03606 DTEAROT # (-28) CS
013538,000351:
013539,000352: 23,2223 56204 EARROT2 BOVB DDV
013540,000353: 23,2224 57544 TCDANZIG # RESET OVFIND, IF ON
013541,000354: 23,2225 06254 1/WIE
013542,000355: 23,2226 41400 BOV PUSH
013543,000356: 23,2227 46243 OVERADAY
013544,000357: 23,2230 45346 COS DSU
013545,000358: 23,2231 15334 HIDPHALF
013546,000359: 23,2232 65361 VXSC PDDL # XCH W PUSH LIST
013547,000360: 23,2233 03466 RTNORM # .5 UNIT
013548,000361: 23,2234 74356 SIN VXSC
013549,000362: 23,2235 03460 RTEAST # .5 UNIT
013550,000363: 23,2236 76455 VAD VSL1
013551,000364: 23,2237 53455 VAD UNIT # INSURE THAT RT IS 'UNIT'.
013552,000365: 23,2240 03452 RTINIT # .5 UNIT
013553,000366: 23,2241 03474 STORE RT # .5 UNIT TARGET VECTOR
013554,000367:
013555,000368: 23,2242 77616 RVQ
013556,000369:
013557,000370: 23,2243 75345 OVERADAY DLOAD SIGN
013558,000371: 23,2244 06254 1/WIE
013559,000372: 23,2245 03606 DTEAROT
013560,000373: 23,2246 77621 BDSU
013561,000374: 23,2247 03606 DTEAROT
013562,000375: 23,2250 03606 STORE DTEAROT
013563,000376:
013564,000377: 23,2251 77650 GOTO
013565,000378: 23,2252 46223 EARROT2
013566,000379:
013567,000380: # WIE 2DEC .1901487997
013568,000381: 23,2253 01015 34732 1/WIE 2DEC 8616410 B-28
013569,000382:
013570,000383: 23,2255 15373 11346 NB2NB1 2DEC +.8431756920 B-1
013571,000384: 23,2257 00000 00000 2DEC 0 B-28
013572,000385: 23,2261 67313 65307 2DEC -.5376381241 B-1
013573,000386:
|
|
Page 306 |
013575,000388:
013576,000389: 23,2263 00000 00000 ZERINFLT 2DEC 0 B-28
013577,000390:
013578,000391: 23,2265 20000 00000 HALFNFLT 2DEC .5
013579,000392: 23,2267 00000 00000 2DEC 0 B-28
013580,000393: 23,2271 10464 12470 2DEC +.5376381241 B-1
013581,000394: 23,2273 00000 00000 2DEC 0 B-28
013582,000395: 23,2275 15373 11346 2DEC +.8431756920 B-1
013583,000396:
013584,000397: 23,2277 15373 11346 NB1NB2 2DEC +.8431756920 B-1
013585,000398: 23,2301 00000 00000 2DEC 0 B-28
013586,000399: 23,2303 10464 12470 2DEC +.5376381241 B-1
013587,000400: 23,2305 00000 00000 2DEC 0 B-28
013588,000401: 23,2307 20000 00000 2DEC .5
013589,000402: 23,2311 00000 00000 2DEC 0 B-28
013590,000403: 23,2313 67313 65307 2DEC -.5376381241 B-1
013591,000404: 23,2315 00000 00000 2DEC 0 B-28
013592,000405: 23,2317 15373 11346 2DEC +.8431756920 B-1
013593,000406:
|
|
Page 307 |
013595,000408:
013596,000409: 23,2321 07020 10DEGS- DEC 3600 B-14
013597,000410:
013598,000411: 23,2322 60000 270DEG OCT 60000 # SHAFT 270 DEGREES 2S COMP.
013599,000412: 23,2323 00000 OCT 00000
013600,000413:
013601,000414: 23,2324 61740 20DEGS- DEC -07199 B-14
013602,000415: 23,2325 77777 DEC -00000 B-14
013603,000416:
013604,000417: 23,2326 07020 20DEG- DEC 03600 B-14
013605,000418: 23,2327 00000 DEC 00000 B-14
End of include-file CSM_GEOMETRY.agc. Parent file is MAIN.agc