Source Code

016932,000001: # Copyright: Public domain. 016933,000002: # Filename: R60_62.agc 016934,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055. 016935,000004: # It is part of the source code for the Command Module's (CM) 016936,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 016937,000006: # Assembler: yaYUL 016938,000007: # Contact: Ron Burkey <info@sandroid.org>. 016939,000008: # Website: www.ibiblio.org/apollo. 016940,000009: # Pages: 390-398 016941,000010: # Mod history: 2009-05-09 RSB Adapted from the Colossus249/ file 016942,000011: # of the same name, using Comanche055 page 016943,000012: # images. 016944,000013: 016945,000014: # This source code has been transcribed or otherwise adapted from digitized 016946,000015: # images of a hardcopy from the MIT Museum. The digitization was performed 016947,000016: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many 016948,000017: # thanks to both. The images (with suitable reduction in storage size and 016949,000018: # consequent reduction in image quality as well) are available online at 016950,000019: # www.ibiblio.org/apollo. If for some reason you find that the images are 016951,000020: # illegible, contact me at info@sandroid.org about getting access to the 016952,000021: # (much) higher-quality images which Paul actually created. 016953,000022: 016954,000023: # Notations on the hardcopy document read, in part: 016955,000024: 016956,000025: # Assemble revision 055 of AGC program Comanche by NASA 016957,000026: # 2021113-051. 10:28 APR. 1, 1969 016958,000027: 016959,000028: # This AGC program shall also be referred to as 016960,000029: # Colossus 2A 016961,000030: 016962,000031: # Page 390 016963,000032: 34,2002 BANK 34 016964,000033: 27,2000 SETLOC MANUVER 016965,000034: 27,2000 BANK 016966,000035: 016967,000036: 27,2000 1146 EBANK= TEMPR60 016968,000037: 016969,000038: 27,2000 COUNT 27/R60 016970,000039: 016971,000040: # CONFORMS TO GSOP CHAPTER FOUR REVISION LOGIC 09 JAN 18, 1968 016972,000041: 016973,000042: 27,2000 04711 R60CSM TC MAKECADR 016974,000043: 27,2001 55146 TS TEMPR60 016975,000044: 016976,000045: # INSERT PRIODSP CHECK WITH R22 (V06N49) WITH JENNINGS BRODEUR 016977,000046: 016978,000047: 27,2002 35012 REDOMANN CAF BIT6 016979,000048: 27,2003 70101 MASK FLAGWRD5 # IS 3-AXIS FLAG SET 016980,000049: 27,2004 10000 CCS A 016981,000050: 27,2005 12013 TCF TOBALL # YES 016982,000051: 27,2006 06006 TC INTPRET 016983,000052: 27,2007 77624 CALL 016984,000053: 27,2010 56126 VECPOINT # TO COMPUTE FINAL ANGLES 016985,000054: 27,2011 01156 STORE CPHI # STORE FINAL ANGLES -- CPHI, CTHETA, CPSI 016986,000055: 27,2012 77776 EXIT 016987,000056: 016988,000057: 27,2013 32125 TOBALL CAF V06N18 016989,000058: 27,2014 04662 TC BANKCALL 016990,000059: 27,2015 21132 CADR GOPERF2R # DISPLAY PLEASE PERFORM AUTO MANEUVER 016991,000060: 27,2016 02114 TC R61TEST 016992,000061: 27,2017 02023 TC REDOMANC # PROCEED 016993,000062: 27,2020 12052 TCF ENDMANU1 # ENTER I.E., FINISHED WITH R60 016994,000063: 016995,000064: 27,2021 02056 TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS 016996,000065: 27,2022 05217 TC ENDOFJOB 016997,000066: 016998,000067: 27,2023 35012 REDOMANC CAF BIT6 016999,000068: 27,2024 70101 MASK FLAGWRD5 # IS 3-AXIS FLAG SET 017000,000069: 27,2025 10000 CCS A 017001,000070: 27,2026 12034 TCF TOBALLC # YES 017002,000071: 27,2027 06006 TC INTPRET 017003,000072: 27,2030 77624 CALL 017004,000073: 27,2031 56126 VECPOINT # TO COMPUTE FINAL ANGLES 017005,000074: 27,2032 01156 STORE CPHI # STORE ANGLES 017006,000075: 27,2033 77776 EXIT 017007,000076: 017008,000077: 27,2034 34371 TOBALLC CAF PRIO30 # IS MODE AUTO AND CTL GNC 017009,000078: # Page 391 017010,000079: 27,2035 00006 EXTEND 017011,000080: 27,2036 06031 RXOR CHAN31 017012,000081: 27,2037 77707 MASK 13,14,15 017013,000082: 27,2040 00006 EXTEND 017014,000083: 27,2041 12043 BZF +2 # AUTO, NON-FLASH N18 017015,000084: 27,2042 12013 TCF TOBALL # NOT AUTO 017016,000085: 017017,000086: 27,2043 32125 CAF V06N18 # STATIC UP NON-FLASHING V06 N18 017018,000087: 27,2044 04662 TC BANKCALL 017019,000088: 27,2045 20676 CADR GODSPR 017020,000089: 27,2046 02056 TC CHKLINUS 017021,000090: 017022,000091: 27,2047 04662 STARTMNV TC BANKCALL 017023,000092: 27,2050 17627 CADR GOMANUR 017024,000093: 27,2051 12013 ENDMANUV TCF TOBALL # FINISHED MANEUVER. 017025,000094: 017026,000095: 27,2052 05560 ENDMANU1 TC DOWNFLAG # RESET 3-AXIS FLAG 017027,000096: 27,2053 00124 ADRES 3AXISFLG # BIT 6 FLAG 5 017028,000097: 27,2054 31146 CAE TEMPR60 017029,000098: 27,2055 04704 TC BANKJUMP 017030,000099: 017031,000100: 27,2056 40100 CHKLINUS CS FLAGWRD4 017032,000101: 27,2057 75004 MASK BIT12 # IS PRIORITY DISPLAY FLAG SET? 017033,000102: 27,2060 10000 CCS A 017034,000103: 27,2061 00002 TC Q # NO -- EXIT 017035,000104: 27,2062 30002 CA Q 017036,000105: 27,2063 54156 TS MPAC +2 # SAVE RETURN 017037,000106: 27,2064 46214 CS THREE # OBTAIN LOCATION FOR RESTART 017038,000107: 27,2065 60133 AD BUF2 # HOLD Q OF LAST DISPLAY 017039,000108: 27,2066 55053 TS TBASE1 017040,000109: 017041,000110: 27,2067 05412 TC PHASCHNG 017042,000111: 27,2070 00071 OCT 71 # 1.7SPOT FOR RELINUS 017043,000112: 017044,000113: 27,2071 35011 CAF BIT7 017045,000114: 27,2072 05526 TC LINUS # GO SET BITS FOR PRIORITY DISPLAY 017046,000115: 27,2073 00156 TC MPAC +2 017047,000116: 017048,000117: 27,2074 35013 RELINUS CAF BIT5 # IS TRACK FLAG ON 017049,000118: 27,2075 70075 MASK FLAGWRD1 017050,000119: 27,2076 00006 EXTEND 017051,000120: 27,2077 12111 BZF GOREDO20 # NO 017052,000121: 017053,000122: 27,2100 05546 TC UPFLAG 017054,000123: 27,2101 00077 ADRES PDSPFLAG # R60 PRIODSP FLAG 017055,000124: 017056,000125: 27,2102 05546 TC UPFLAG 017057,000126: 27,2103 00024 ADRES TARG1FLG # FOR R52 017058,000127: 017059,000128: 27,2104 35021 CAF ZERO # RESET TO ZERO, SINCE 017060,000129: # Page 392 017061,000130: 27,2105 55303 TS OPTIND # OPTIND WAS SET TO -1 BY V379 017062,000131: 017063,000132: 27,2106 35066 CAF PRIO14 # RESTORE ORIGINAL PRIORITY 017064,000133: 27,2107 05210 TC PRIOCHNG 017065,000134: 017066,000135: 27,2110 01053 TC TBASE1 017067,000136: 017068,000137: 27,2111 05412 GOREDO20 TC PHASCHNG 017069,000138: 27,2112 00111 OCT 111 # 1.11 FOR PIKUP20 017070,000139: 017071,000140: 27,2113 05217 TC ENDOFJOB 017072,000141: 017073,000142: 27,2114 31011 R61TEST CA MODREG # ARE WE IN P00. IF YES THIS MUST BE 017074,000143: 27,2115 00006 EXTEND # VERB49 OR VERB89 SO DO ENDEXT. 017075,000144: 27,2116 12052 BZF ENDMANU1 # RESET 3-AXIS & RETURN. USER DOES ENDEXT 017076,000145: 27,2117 30100 CA FLAGWRD4 # ARE WE IN R61 (P20) 017077,000146: 27,2120 75004 MASK BIT12 017078,000147: 27,2121 00006 EXTEND 017079,000148: 27,2122 14106 BZF GOTOP00H # NO 017080,000149: 27,2123 04622 TC GOTOV56 # YES 017081,000150: 017082,000151: 27,2124 20100 BIT14+7 OCT 20100 017083,000152: 27,2125 01422 V06N18 VN 0618 017084,000153: 017085,000154: # Page 393 017086,000155: # PROGRAM DESCRIPTION -- VECPOINT 017087,000156: 017088,000157: # THIS INTERPRETIVE SUBROUTINE MAY BE USED TO POINT A SPACECRAFT AXIS IN A DESIRED DIRECTION. THE AXIS 017089,000158: # TO BE POINTED MUST APPEAR AS A HALF UNIT DOUBLE PRECISION VECTOR IN SUCCESSIVE LOCATIONS OF ERASABLE MEMORY 017090,000159: # BEGINNING WITH THE LOCATION CALLED SCAXIS. THE COMPONENTS OF THIS VECTOR ARE GIVEN IN SPACECRAFT COORDINATES. 017091,000160: # THE DIRECTION IN WHICH THIS AXIS IS TO BE POINTED MUST APPEAR AS A HALF UNIT DOUBLE PRECISION VECTOR IN 017092,000161: # SUCCESSIVE LOCATIONS OF ERASABLE MEMORY BEGINNING WITH THE ADDRESS CALLED POINTVSM. THE COMPONENTS OF THIS 017093,000162: # VECTOR ARE GIVEN IN STABLE MEMBER COORDINATES. WITH THIS INFORMTION VECPOINT COMPUTES A SET OF THREE GIMBAL 017094,000163: # ANGLES (2'S COMPLEMENT) CORRESPONDING TO THE CROSS-PRODUCT ROTATION BETWEEN SCAXIS AND POINTVSM AND STORES THEM 017095,000164: # IN T(MPAC) BEFORE RETURNING TO THE CALLER. 017096,000165: 017097,000166: # THIS ROTATION, HOWEVER, MAY BRING THE S/C INTO GIMBAL LOCK. WHEN POINTING A VECTOR IN THE Y-Z PLANE, 017098,000167: # THE TRANSPONDER AXIS, OR THE AOT FOR THE LEM, THE PROGRAM WILL CORRECT THIS PROGLEM BY ROTATING THE CROSS- 017099,000168: # PRODUCT ATTITUDE ABOUT POINTVSM BY A FIXED AMOUNT SUFFICIENT TO ROTATE THE DESIRED S/C ATTITUDE OUT OF GIMBAL 017100,000169: # LOCK. IF THE AXIS TO BE POINTED IS MORE THAN 40.6 DEGREES BUT LESS THAN 60.5 DEG FROM THE +X (OR -X) AXIS, 017101,000170: # THE ADDITIONAL ROTATION TO AVOID GIMBAL LOCK IS 35 DEGREES. IF THE AXIS IS MORE THAN 60.5 DEGREES FROM +X (OR -X) 017102,000171: # THE ADDITIONAL ROTATION IS 35 DEGREES. THE GIMBAL ANGLES CORRESPONDING TO THIS ATTITUDE ARE THEN COMPUTED AND 017103,000172: # STORED AS 2'S COMPLEMENT ANGLES N T(MPAC) BEFORE RETURNING TO THE CALLER. 017104,000173: 017105,000174: # WHEN POINTING THE X-AXIS, OR THE THRUST VECTOR, OR ANY VECTOR WITHIN 40.6 DEG OF THE X-AXIS, VECPOINT 017106,000175: # CANNOT CORRECT FOR A CROSS-PRODUCT ROTATION INTO GIMBAL LOCK. IN THIS CASE A PLATFORM REALIGNMENT WOULD BE 017107,000176: # REQUIRED TO POINT THE VECTOR IN THE DESIRED DIRECTION. AT PRESENT NO INDICATION IS GIVEN FOR THIS SITUATION 017108,000177: # EXCEPT THAT THE FINAL MIDDLE GIMBAL ANGLE IN MPAC +2 IS GREATER THAN 59 DEGREES. 017109,000178: 017110,000179: # CALLING SEQUENCE 017111,000180: 017112,000181: # 1) LOAD SCAXIS, POINTVSM 017113,000182: # 2) CALL 017114,000183: # VECPOINT 017115,000184: 017116,000185: # RETURNS WITH 017117,000186: 017118,000187: # 1) DESIRED OUTER GIMBAL ANGLE IN MPAC 017119,000188: # 2) DESIRED INNER GIMBAL ANGLE IN MPAC +1 017120,000189: # 3) DESIRED MIDDLE GIMBAL ANGLE IN MPAC +2 017121,000190: 017122,000191: # ERASABLES USED -- 017123,000192: 017124,000193: # 1) SCAXIS 6 017125,000194: # 2) POINTVSM 6 017126,000195: # 3) MIS 18 017127,000196: # 4) DEL 18 017128,000197: # 5) COF 6 017129,000198: # 6) VECQTEMP 1 017130,000199: # 7) ALL OF VAC AREA 43 017131,000200: 017132,000201: # TOTAL 99 017133,000202: 017134,000203: 27,2000 SETLOC VECPT 017135,000204: 27,2000 BANK 017136,000205: # Page 394 017137,000206: 27,2126 E6,1661 EBANK= BCDU 017138,000207: 017139,000208: 27,2126 COUNT 27/VECPT 017140,000209: 017141,000210: 27,2126 40020 VECPOINT STQ BOV # SAVE RETURN ADDRESS 017142,000211: 27,2127 03310 VECQTEMP 017143,000212: 27,2130 56131 VECLEAR # AND CLEAR OVFIND 017144,000213: 27,2131 47164 VECLEAR AXC,2 RTB 017145,000214: 27,2132 03320 MIS # READ THE PRESENT CDU ANGLES AND 017146,000215: 27,2133 44376 READCDUK # STORE THEM IN PD25, 26, 27 017147,000216: 27,2134 34032 STCALL 25D 017148,000217: 27,2135 44405 CDUTODCM # S/C AXES TO STABLE MEMBER AXES (MIS) 017149,000218: 27,2136 61375 VLOAD VXM 017150,000219: 27,2137 03357 POINTVSM # RESOLVE THE POINTING DIRECTION VF INTO 017151,000220: 27,2140 03321 MIS # INITIAL S/C AXES (VF = POINTVSM) 017152,000221: 27,2141 77656 UNIT 017153,000222: 27,2142 00035 STORE 28D 017154,000223: # PD 28 29 30 31 32 33 017155,000224: 27,2143 53435 VXV UNIT # TAKE THE CROSS PRODUCT VF X VI 017156,000225: 27,2144 03351 SCAXIS # WHERE VI = SCAXIS 017157,000226: 27,2145 57400 BOV VCOMP 017158,000227: 27,2146 56256 PICKAXIS 017159,000228: 27,2147 17343 STODL COF # CHECK MAGNITUDE 017160,000229: 27,2150 00045 36D # OF CROSS PRODUCT 017161,000230: 27,2151 50025 DSU BMN # VECTOR, IF LESS 017162,000231: 27,2152 16327 DPB-14 # THAN B-14 ASSUME 017163,000232: 27,2153 56256 PICKAXIS # UNIT OPERATION 017164,000233: 27,2154 50375 VLOAD DOT # INVALID. 017165,000234: 27,2155 03351 SCAXIS 017166,000235: 27,2156 00035 28D 017167,000236: 27,2157 65552 SL1 ARCCOS 017168,000237: 27,2160 77624 COMPMATX CALL # NO COMPUTE THE TRANSFORMATION FROM 017169,000238: 27,2161 44530 DELCOMP # FINAL S/C AXES TO INITIAL S/C AXES MFI 017170,000239: 27,2162 75160 AXC,1 AXC,2 017171,000240: 27,2163 03320 MIS # COMPUTE THE TRANSFORMATION FROM FINAL 017172,000241: 27,2164 03425 DEL # S/C AXES TO STABLE MEMBER AXES 017173,000242: 27,2165 77624 CALL # MFS = MIS MFI 017174,000243: 27,2166 44304 MXM3 # (IN PD LIST) 017175,000244: 017176,000245: 27,2167 51545 DLOAD ABS 017177,000246: 27,2170 00007 6 # MFS6 = SIN(CPSI) $2 017178,000247: 27,2171 50025 DSU BMN 017179,000248: 27,2172 16314 SINGIMLC # = SIN(59 DEGS) $2 017180,000249: 27,2173 56246 FINDGIMB # /CPSI/ LESS THAN 59 DEGS. 017181,000250: # I.E., DESIRED ATTITUDE NOT IN GIMBAL LOCK 017182,000251: 017183,000252: 27,2174 51545 DLOAD ABS # CHECK TO SEE IF WE ARE POINTING 017184,000253: 27,2175 03351 SCAXIS # THE THRUST AXIS 017185,000254: 27,2176 51025 DSU BPL 017186,000255: 27,2177 16316 SINVEC1 # SIN 49.4 DEGS $2 017187,000256: # Page 395 017188,000257: 27,2200 56246 FINDGIMB # IF SO, WE ARE TRYING TO POINT IT INTO 017189,000258: 27,2201 77775 VLOAD # GIMBAL LOCK, ABORT COULD GO HERE 017190,000259: 27,2202 77626 STADR 017191,000260: 27,2203 50442 STOVL MIS +12D 017192,000261: 27,2204 77626 STADR # STORE MFS (IN PD LIST) IN MIS 017193,000262: 27,2205 50450 STOVL MIS +6 017194,000263: 27,2206 77626 STADR 017195,000264: 27,2207 50456 STOVL MIS 017196,000265: 27,2210 03327 MIS +6 # INNER GIMBAL AXIS IN FINAL S/C AXES 017197,000266: 27,2211 57444 BPL VCOMP # LOCATE THE IG AXIS DIRECTION CLOSEST TO 017198,000267: 27,2212 56213 IGSAMEX # FINAL X S/C AXIS 017199,000268: 017200,000269: 27,2213 50035 IGSAMEX VXV BMN # FIND THE SHORTEST WAY OF ROTATING THE 017201,000270: 27,2214 03351 SCAXIS # S/C OUT OF GIMBAL LOCK BY A ROTATION 017202,000271: 27,2215 56222 U=SCAXIS # ABOUT +- SCAXIS, I.E., IF (IG (SGN MFS3) 017203,000272: # X SCAXIS . XF) LESS THAN Q, U = SCAXIS 017204,000273: # OTHERWISE U = -SCAXIS. 017205,000274: 017206,000275: 27,2216 57575 VLOAD VCOMP 017207,000276: 27,2217 03351 SCAXIS 017208,000277: 27,2220 37343 STCALL COF # ROTATE ABOUT -SCAXIS 017209,000278: 27,2221 56225 CHEKAXIS 017210,000279: 27,2222 77775 U=SCAXIS VLOAD 017211,000280: 27,2223 03351 SCAXIS 017212,000281: 27,2224 03343 STORE COF # ROTATE ABOUT + SCAXIS 017213,000282: 27,2225 51545 CHEKAXIS DLOAD ABS 017214,000283: 27,2226 03351 SCAXIS # SEE IF WE ARE POINTING THE AOT 017215,000284: 27,2227 51025 DSU BPL 017216,000285: 27,2230 16320 SINVEC2 # SIN 29.5 DEGS $2 017217,000286: 27,2231 56235 PICKANG1 # IF SO, ROTATE 50 DEGS ABOUT +- SCAXIS 017218,000287: 27,2232 52145 DLOAD GOTO # IF NOT, MUST BE POINTING THE TRANSPONDER 017219,000288: 27,2233 16324 VECANG2 # OR SOME VECTOR IN THE Y, OR Z PLANE 017220,000289: 27,2234 56237 COMPMFSN # IN THIS CASE ROTATE 35 DEGS TO GET OUT 017221,000290: # OF GIMBAL LOCK (VECANG2 $360) 017222,000291: 27,2235 77745 PICKANG1 DLOAD 017223,000292: 27,2236 16322 VECANG1 # = 50 DEGS. $360 017224,000293: 27,2237 77624 COMPMFSN CALL 017225,000294: 27,2240 44530 DELCOMP # COMPUTE THE ROTATION ABOUT SCAXIS TO 017226,000295: 27,2241 75160 AXC,1 AXC,2 # BRING MFS OUT OF GIMBAL LOCK 017227,000296: 27,2242 03320 MIS 017228,000297: 27,2243 03425 DEL 017229,000298: 27,2244 77624 CALL # COMPUTE THE NEW TRANSFORMATION FROM 017230,000299: 27,2245 44304 MXM3 # DESIRED S/C AXES TO STABLE MEMBER AXES 017231,000300: # WHICH WILL ALIGN VI WITH VF AND AVOID 017232,000301: # GIMBAL LOCK 017233,000302: 27,2246 45160 FINDGIMB AXC,1 CALL 017234,000303: 27,2247 00000 0 # EXTRACT THE COMMANDED CDU ANGLES FROM 017235,000304: 27,2250 44655 DCMTOCDU # THIS MATRIX 017236,000305: 27,2251 40234 RTB SETPD 017237,000306: 27,2252 45552 V1STO2S # CONVERT TO 2'S COMPLEMENT 017238,000307: # Page 396 017239,000308: 27,2253 00001 0 017240,000309: 27,2254 77650 GOTO 017241,000310: 27,2255 03310 VECQTEMP # RETURN TO CALLER 017242,000311: 017243,000312: 27,2256 50375 PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF, VI 017244,000313: 27,2257 00035 28D 017245,000314: 27,2260 03351 SCAXIS 017246,000315: 27,2261 72240 BMN TLOAD 017247,000316: 27,2262 56266 ROT180 017248,000317: 27,2263 00032 25D 017249,000318: 27,2264 77650 GOTO # IF VF = VI, CDU DESIRED = PRESENT CDU 017250,000319: 27,2265 03310 VECQTEMP # PRESENT CDU ANGLES 017251,000320: 017252,000321: 27,2266 47375 ROT180 VLOAD VXV # IF VF, VI ANTI-PARALLEL, 180 DEG ROTATION 017253,000322: 27,2267 03327 MIS +6 # IS REQUIRED. Y STABLE MEMBER AXIS IN 017254,000323: 27,2270 15333 HIUNITX # INITIAL S/C AXES. 017255,000324: 27,2271 47256 UNIT VXV # FIND Y(SM) X X(I) 017256,000325: 27,2272 03351 SCAXIS # FIND UNIT(VI X UNIT(Y(SM) X X(I))) 017257,000326: 27,2273 40056 UNIT BOV # I.E., PICK A VECTOR IN THE PLANE OF X(I), 017258,000327: 27,2274 56310 PICKX # Y(SM) PERPENDICULAR TO VI 017259,000328: 27,2275 17343 STODL COF 017260,000329: 27,2276 00045 36D # CHECK MAGNITUDE 017261,000330: 27,2277 50025 DSU BMN # OF THIS VECTOR. 017262,000331: 27,2300 16327 DPB-14 # IF LESS THAN B-14, 017263,000332: 27,2301 56310 PICKX # PICK X-AXIS. 017264,000333: 27,2302 77775 VLOAD 017265,000334: 27,2303 03343 COF 017266,000335: 27,2304 17343 XROT STODL COF 017267,000336: 27,2305 15333 HIDPHALF 017268,000337: 27,2306 77650 GOTO 017269,000338: 27,2307 56160 COMPMATX 017270,000339: 27,2310 52175 PICKX VLOAD GOTO # PICK THE XAXIS IN THIS CASE 017271,000340: 27,2311 15333 HIUNITX 017272,000341: 27,2312 56304 XROT 017273,000342: 35,2000 BANK 35 017274,000343: 27,2000 SETLOC MANUVER1 017275,000344: 27,2000 BANK 017276,000345: 017277,000346: 27,2313 15555 35172 SINGIMLC 2DEC .4285836003 # = SIN(59) $2 017278,000347: 017279,000348: 27,2315 14113 36326 SINVEC1 2DEC .3796356537 # = SIN(49.4) $2 017280,000349: 017281,000350: 27,2317 07701 35703 SINVEC2 2DEC .2462117800 # = SIN(29.5) $2 017282,000351: 017283,000352: 27,2321 04343 21616 VECANG1 2DEC .1388888889 # = 50 DEGREES $360 017284,000353: 017285,000354: 27,2323 03070 34344 VECANG2 2DEC .09722222222 # = 35 DEGREES $360 017286,000355: 017287,000356: 017288,000357: 27,2325 00000 1BITDP OCT 0 # KEEP THIS BEFORE DPB(-14) ******** 017289,000358: 27,2326 00001 DPB-14 OCT 00001 017290,000359: # Page 397 017291,000360: 27,2327 00000 OCT 00000 017292,000361: 34,2002 BANK 34 017293,000362: 27,2000 SETLOC MANUVER 017294,000363: 27,2000 BANK 017295,000364: 017296,000365: # Page 398 017297,000366: # ROUTINE FOR INITIATING AUTOMATIC MANEUVER VIA KEYBOARD (V49) 017298,000367: 017299,000368: 27,2330 1155 EBANK= CPHI 017300,000369: 017301,000370: 27,2330 COUNT 27/R62 017302,000371: 017303,000372: 27,2330 35052 R62DISP CAF V06N22 # DISPLAY COMMAND ICDUS CPHI, CTHETA, CPHI 017304,000373: 27,2331 04662 TC BANKCALL 017305,000374: 27,2332 20720 CADR GOFLASH 017306,000375: 27,2333 15534 TCF ENDEXT 017307,000376: 27,2334 12336 TCF GOMOVE # PROCEED 017308,000377: 27,2335 12330 TCF R62DISP # ENTER 017309,000378: 017310,000379: # ASTRONAUT MAY LOAD NEW ICDUS AT THIS 017311,000380: # POINT. 017312,000381: 27,2336 05546 GOMOVE TC UPFLAG # SET FOR 3-AXIS MANEUVER 017313,000382: 27,2337 00124 ADRES 3AXISFLG 017314,000383: 017315,000384: 27,2340 04662 TC BANKCALL 017316,000385: 27,2341 56000 CADR R60CSM 017317,000386: 27,2342 15534 TCF ENDEXT 017318,000387: End of include-file R60_62.agc. Parent file is MAIN.agc