Source Code
|
These source-code files are part of a reconstructed copy of Corona 261, the
final, flown release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) software for the AS-202 mission.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241,
1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo
4 and 6 software, Solarium 55, was used as a starting point, since it was directly
derived from Corona and (at least in theory) only minimally modified.
Since only binary dumps (rather than listings) of Corona are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
026048,000002: ## Copyright: Public domain.
026049,000003: ## Filename: POWERED_FLIGHT_SUBROUTINES.agc
026050,000004: ## Purpose: A section of Corona revision 261.
026051,000005: ## It is part of the source code for the Apollo Guidance Computer
026052,000006: ## (AGC) for AS-202. No original listings of this software are
026053,000007: ## available; instead, this file was created via disassembly of
026054,000008: ## the core rope modules actually flown on the mission.
026055,000009: ## Assembler: yaYUL
026056,000010: ## Contact: Ron Burkey <info@sandroid.org>.
026057,000011: ## Website: www.ibiblio.org/apollo/index.html
026058,000012: ## Mod history: 2023-05-27 MAS Created from Solarium 55.
026059,000013: ## 2023-07-29 MAS Updated for Corona.
026060,000014:
026061,000015: # THIS ROUTINE ENTERED AT CDUTRIG READS PRESENT CDU REGISTERS AND STORES THEM SCALED AT ONE REVOLUTION AS A DP
026062,000016: # VECTOR IN CDUTEMP. IT COMPUTES SIN,COS(CDUX,Y,Z) AND STORES THEM IN SINCDU,+2,+4 AND COSCDU,+2,+4 RESPECTIVELY
026063,000017: # SCALED AT 2(+1). WHEN ENTERED AT THETRIG THE ROUTINE PERFORMS THE SAME FUNCTION WITH THE DESIRED CDU ANGLE REG-
026064,000018: # ISTERS THETAD,+1,+2. ENTER WITH C(X1) =6 FOR X,Y,Z ( =4 FOR Y,Z ONLY)
026065,000019:
026066,000020:
026067,000021:
026068,000022: 25,6000 SETLOC 52000
026069,000023: 25,6000 77576 CDUTRIG EXIT 0
026070,000024:
026071,000025: 25,6001 20017 INHINT
026072,000026: 25,6002 40047 CS CDUX
026073,000027: 25,6003 51314 TS CDUTEMP
026074,000028: 25,6004 40050 CS CDUY
026075,000029: 25,6005 51316 TS CDUTEMP +2
026076,000030: 25,6006 40051 CS CDUZ
026077,000031: 25,6007 51320 TS CDUTEMP +4
026078,000032: 25,6010 20016 RELINT
026079,000033: 25,6011 06023 TC JUMP3
026080,000034:
026081,000035: 25,6012 77576 THETRIG EXIT 0
026082,000036:
026083,000037: 25,6013 20017 INHINT
026084,000038: 25,6014 40700 CS THETAD
026085,000039: 25,6015 51314 TS CDUTEMP
026086,000040: 25,6016 40701 CS THETAD +1
026087,000041: 25,6017 51316 TS CDUTEMP +2
026088,000042: 25,6020 40702 CS THETAD +2
026089,000043: 25,6021 51320 TS CDUTEMP +4
026090,000044: 25,6022 20016 RELINT
026091,000045:
026092,000046: 25,6023 40647 JUMP3 CS FLAGWRD2 # TEST IF CDUX FLAG SET
026093,000047: 25,6024 74501 MASK BIT14 # (CDUXFLAG MASK)
026094,000048: 25,6025 10000 CCS A
026095,000049: 25,6026 06037 TC JUMP8 # IT IS NOT
026096,000050: 25,6027 34302 CAF LOW11
026097,000051: 25,6030 71314 MASK CDUTEMP
026098,000052: 25,6031 50022 TS CYL
026099,000053: 25,6032 40022 CS CYL
026100,000054: 25,6033 40022 CS CYL
026101,000055: 25,6034 40022 CS CYL
026102,000056: 25,6035 30022 XCH CYL
026103,000057: 25,6036 31314 XCH CDUTEMP
026104,000058:
026105,000059: 25,6037 04000 JUMP8 TC INTPRET
026106,000060:
026107,000061: 25,6040 55576 SINCOS AST,1 0
026108,000062: 25,6041 00003 2
026109,000063:
026110,000064: 25,6042 42175 REPEAT1 SMOVE* 1
026111,000065: 25,6043 47171 COMP RTB
026112,000066: 25,6044 02645 CDUTEMP +6,1
026113,000067: 25,6045 20303 CDULOGIC
026114,000068: 25,6046 36645 STORE CDUTEMP +6,1
026115,000069:
026116,000070: 25,6047 47575 NOLOD 1
026117,000071: 25,6050 57176 SIN
026118,000072: 25,6051 36675 STORE SINCDU +6,1
026119,000073:
026120,000074: 25,6052 54176 COS* 0
026121,000075: 25,6053 02645 CDUTEMP +6,1
026122,000076: 25,6054 36711 STORE COSCDU +6,1
026123,000077:
026124,000078: 25,6055 51574 TIX,1 2
026125,000079: 25,6056 65116 ABS TSLT # TEST IF COS(THETAD+2) LESS THAN COS(60)
026126,000080: 25,6057 71775 BOV EXIT
026127,000081: 25,6060 12043 REPEAT1
026128,000082: 25,6061 01343 COSCDU +4
026129,000083: 25,6062 00003 2
026130,000084: 25,6063 12070 NOGIMLOC # IT IS NOT. NO NEED TO ALARM
026131,000085:
026132,000086: 25,6064 03015 TC ALARM
026133,000087: 25,6065 01407 OCT 01407
026134,000088:
026135,000089: 25,6066 04000 TC INTPRET
026136,000090:
026137,000091: 25,6067 40576 NOGIMLOC ITCQ 0
026138,000092:
026139,000093: 25,6070 77760 HIGH11 OCT 77760
026140,000094:
026141,000095:
026142,000096: # THIS ROUTINE COMPUTES DESIRED CDU(GIMBAL) ANGLES GIVEN THE DESIRED NAV. BASE AXES IN XNB AS THREE HALF UNIT
026143,000097: # VECTORS IN STABLE MEMBER COORDINATES. THE DESIRED CDUX,Y,Z APPEAR IN MPAC, +1, +2 AT THE SAME SCALING AS CDUX,
026144,000098: # Y, Z WITH THE INTERPRETER SET TO THE TP MODE
026145,000099:
026146,000100:
026147,000101:
026148,000102: 25,6071 45575 CALCCDU ITA 1
026149,000103: 25,6072 76776 ITC
026150,000104: 25,6073 00051 S1
026151,000105: 25,6074 04353 CALCGTA
026152,000106:
026153,000107: 25,6075 43575 TEST 1 # IF CDUXFLAG SET, RESCALE OGC TO 8 REVS
026154,000108: 25,6076 76576 RTB
026155,000109: 25,6077 00043 CDUXFLAG
026156,000110: 25,6100 12103 GETOGC
026157,000111: 25,6101 20726 CDUXFIX
026158,000112:
026159,000113: 25,6102 75175 GETOGC VMOVE 1
026160,000114: 25,6103 76421 RTB ITCI
026161,000115: 25,6104 01521 OGC
026162,000116: 25,6105 20631 V1STO2S
026163,000117: 25,6106 00051 S1
026164,000118:
026165,000119:
026166,000120: # THIS ROUTINE COMPUTES THE MATRIX WHICH TRANSFORMS FROM STABLE MEMBER COORDINATES TO NAV. BASE COORDINATES. IT
026167,000121: # REQUIRES SIN,COS(CDUX,Y,Z) IN SINCDU, +2, +4 AND COSCDU, +2, +4 RESPECTIVELY SCALED TO ONE HALF. THE MATRIX IS
026168,000122: # STORED IN X,Y,ZNB AS THREE HALF UNIT ROW VECTORS
026169,000123:
026170,000124:
026171,000125:
026172,000126: 25,6107 64775 CALCSMNB DMP 1
026173,000127: 25,6110 47176 COMP
026174,000128: 25,6111 01333 SINCDU +2
026175,000129: 25,6112 01343 COSCDU +4
026176,000130:
026177,000131: 25,6113 56776 TSRT 0
026178,000132: 25,6114 01335 SINCDU +4
026179,000133: 25,6115 00002 1
026180,000134:
026181,000135: 25,6116 64775 DMP 1
026182,000136: 25,6117 41022 VDEF VSLT
026183,000137: 25,6120 01341 COSCDU +2
026184,000138: 25,6121 01343 COSCDU +4
026185,000139: 25,6122 00002 1
026186,000140: 25,6123 33477 STORE XNB
026187,000141:
026188,000142: 25,6124 64775 DMP 1
026189,000143: 25,6125 63776 TSLT
026190,000144: 25,6126 01331 SINCDU
026191,000145: 25,6127 01335 SINCDU +4
026192,000146: 25,6130 00002 1
026193,000147: 25,6131 32033 STORE 26D
026194,000148:
026195,000149: 25,6132 47575 NOLOD 1
026196,000150: 25,6133 64776 DMP
026197,000151: 25,6134 01333 SINCDU +2
026198,000152:
026199,000153: 25,6135 64775 DMP 1
026200,000154: 25,6136 66776 DSU
026201,000155: 25,6137 01337 COSCDU
026202,000156: 25,6140 01341 COSCDU +2
026203,000157:
026204,000158: 25,6141 64775 DMP 1
026205,000159: 25,6142 47176 COMP
026206,000160: 25,6143 01331 SINCDU
026207,000161: 25,6144 01343 COSCDU +4
026208,000162:
026209,000163: 25,6145 64776 DMP 0
026210,000164: 25,6146 01337 COSCDU
026211,000165: 25,6147 01333 SINCDU +2
026212,000166:
026213,000167: 25,6150 64774 DMP 2
026214,000168: 25,6151 70603 DAD VDEF
026215,000169: 25,6152 44776 VSLT
026216,000170: 25,6153 01341 COSCDU +2
026217,000171: 25,6154 00033 26D
026218,000172: 25,6155 77777 -
026219,000173: 25,6156 00002 1
026220,000174: 25,6157 33513 STORE ZNB
026221,000175:
026222,000176: 25,6160 47575 NOLOD 1
026223,000177: 25,6161 41622 VXV VSLT
026224,000178: 25,6162 01477 XNB
026225,000179: 25,6163 00002 1
026226,000180: 25,6164 33505 STORE YNB
026227,000181:
026228,000182: 25,6165 40576 ITCQ 0
026229,000183:
026230,000184:
026231,000185: # ROUTINE CALCSCNB TRANSFORMS A MATRIX OF HALF UNIT VECTORS ALONG SPACECRAFT AXES, XSCD, INTO A MATRIX OF HALF
026232,000186: # UNIT VECTORS ALONG NAV. BASE AXES, XNB. ROUTINE CALCNBSC DOES THE INVERSE, STORING THE MATRIX OF UNIT VECTORS
026233,000187: # ALONG SPACECRAFT AXES IN XSC
026234,000188:
026235,000189:
026236,000190:
026237,000191: 25,6166 75776 CALCSCNB VXSC 0
026238,000192: 25,6167 01411 XSCD
026239,000193: 25,6170 12241 COS33
026240,000194:
026241,000195: 25,6171 75775 VXSC 1
026242,000196: 25,6172 46776 BVSU
026243,000197: 25,6173 01425 ZSCD
026244,000198: 25,6174 12237 SIN33
026245,000199: 25,6175 33477 STORE XNB
026246,000200:
026247,000201: 25,6176 75176 VMOVE 0
026248,000202: 25,6177 01417 YSCD
026249,000203: 25,6200 33505 STORE YNB
026250,000204:
026251,000205: 25,6201 75776 VXSC 0
026252,000206: 25,6202 01411 XSCD
026253,000207: 25,6203 12237 SIN33
026254,000208:
026255,000209: 25,6204 75775 VXSC 1
026256,000210: 25,6205 50776 VAD
026257,000211: 25,6206 01425 ZSCD
026258,000212: 25,6207 12241 COS33
026259,000213: 25,6210 33513 STORE ZNB
026260,000214:
026261,000215: 25,6211 40576 ITCQ 0
026262,000216:
026263,000217:
026264,000218: 25,6212 75776 CALCNBSC VXSC 0
026265,000219: 25,6213 01477 XNB
026266,000220: 25,6214 12241 COS33
026267,000221:
026268,000222: 25,6215 75775 VXSC 1
026269,000223: 25,6216 50776 VAD
026270,000224: 25,6217 01513 ZNB
026271,000225: 25,6220 12237 SIN33
026272,000226: 25,6221 33367 STORE XSC
026273,000227:
026274,000228: 25,6222 75176 VMOVE 0
026275,000229: 25,6223 01505 YNB
026276,000230: 25,6224 33375 STORE YSC
026277,000231:
026278,000232: 25,6225 75776 VXSC 0
026279,000233: 25,6226 01477 XNB
026280,000234: 25,6227 12237 SIN33
026281,000235:
026282,000236: 25,6230 75775 VXSC 1
026283,000237: 25,6231 74776 VSU
026284,000238: 25,6232 01513 ZNB
026285,000239: 25,6233 12241 COS33
026286,000240: 25,6234 33403 STORE ZSC
026287,000241:
026288,000242: 25,6235 40576 ITCQ 0
026289,000243:
026290,000244: 25,6236 21333 13542 SIN33 2DEC 0.544639000
026291,000245: 25,6240 32654 30735 COS33 2DEC 0.838670600
026292,000246:
026293,000247:
026294,000248: # THIS ROUTINE COMPUTES INCREMENTAL CHANGES IN CDU(GIMBAL) ANGLES FROM INCREMENTAL ANGULAR CHANGES ABOUT SM AXES.
026295,000249: # IT REQUIRES SM INCREMENTS AS A DP VECTOR IN VAC SCALED AT ONE REVOLUTION, SIN,COS(CDUX,Y,Z) IN SINCDU, +2, +4
026296,000250: # AND COSCDU, +2, +4 RESPECTIVELY SCALED TO ONE HALF. CDU INCREMENTS APPEAR IN DCDU SCALED AT ONE REV.
026297,000251:
026298,000252: 25,6242 64776 SMCDURES DMP 0
026299,000253: 25,6243 00041 32D
026300,000254: 25,6244 01341 COSCDU +2
026301,000255:
026302,000256: 25,6245 64775 DMP 1
026303,000257: 25,6246 65712 BDSU DDV
026304,000258: 25,6247 00045 36D
026305,000259: 25,6250 01333 SINCDU +2
026306,000260: 25,6251 77777 -
026307,000261: 25,6252 01343 COSCDU +4
026308,000262: 25,6253 33345 STORE DCDU
026309,000263:
026310,000264: 25,6254 47574 NOLOD 2
026311,000265: 25,6255 64716 DMP TSLT
026312,000266: 25,6256 65776 BDSU
026313,000267: 25,6257 01335 SINCDU +4
026314,000268: 25,6260 00002 1
026315,000269: 25,6261 00043 34D
026316,000270: 25,6262 33347 STORE DCDU +2
026317,000271:
026318,000272: 25,6263 64776 DMP 0
026319,000273: 25,6264 00041 32D
026320,000274: 25,6265 01333 SINCDU +2
026321,000275:
026322,000276: 25,6266 64775 DMP 1
026323,000277: 25,6267 70716 DAD TSLT
026324,000278: 25,6270 00045 36D
026325,000279: 25,6271 01341 COSCDU +2
026326,000280: 25,6272 77777 -
026327,000281: 25,6273 00002 1
026328,000282: 25,6274 33351 STORE DCDU +4
026329,000283:
026330,000284: 25,6275 40576 ITCQ 0
026331,000285:
026332,000286: # THIS ROUTINE COMPUTES INCREMENTAL ANGULAR CHANGES ABOUT NAV. BASE AXES FROM INCREMENTAL CDU ANGLE CHANGES. IT
026333,000287: # REQUIRES THE CDU INCREMENTS AS A DP VECTOR IN DCDU, +2, +4, SCALED AT ONE REVOLUTION. SIN,COS(CDUX,Y,Z) MUST BE
026334,000288: # IN SINCDU, +2, +4, AND COSCDU, +2, +4 RESPECTIVELY SCALED AT ONE HALF. INCREMENTAL NAV. BASE ANGLES APPEAR IN
026335,000289: # DNB, +2, +4 SCALED AT ONE REVOLUTION
026336,000290:
026337,000291:
026338,000292:
026339,000293: 25,6276 64775 CDUNBRES DMP 1
026340,000294: 25,6277 63776 TSLT
026341,000295: 25,6300 01343 COSCDU +4
026342,000296: 25,6301 01347 DCDU +2
026343,000297: 25,6302 00002 1
026344,000298: 25,6303 32033 STORE 26D
026345,000299:
026346,000300: 25,6304 47575 NOLOD 1
026347,000301: 25,6305 64776 DMP
026348,000302: 25,6306 01331 SINCDU
026349,000303:
026350,000304: 25,6307 64775 DMP 1
026351,000305: 25,6310 66776 DSU
026352,000306: 25,6311 01337 COSCDU
026353,000307: 25,6312 01351 DCDU +4
026354,000308:
026355,000309: 25,6313 64776 DMP 0
026356,000310: 25,6314 00033 26D
026357,000311: 25,6315 01337 COSCDU
026358,000312:
026359,000313: 25,6316 64775 DMP 1
026360,000314: 25,6317 70776 DAD
026361,000315: 25,6320 01331 SINCDU
026362,000316: 25,6321 01351 DCDU +4
026363,000317:
026364,000318: 25,6322 56776 TSRT 0
026365,000319: 25,6323 01345 DCDU
026366,000320: 25,6324 00002 1
026367,000321:
026368,000322: 25,6325 64774 DMP 2
026369,000323: 25,6326 70603 DAD VDEF
026370,000324: 25,6327 44776 VSLT
026371,000325: 25,6330 01335 SINCDU +4
026372,000326: 25,6331 01347 DCDU +2
026373,000327: 25,6332 77777 -
026374,000328: 25,6333 00002 1
026375,000329: 25,6334 33353 STORE DNB
026376,000330:
026377,000331: 25,6335 40576 ITCQ 0
026378,000332:
026379,000333:
026380,000334: # THIS ROUTINE COMPUTES INCREMENTAL CHANGES TO CDU ANGLES FROM INCREMENTAL ANGULAR CHANGES ABOUT NAV. BASE AXES.
026381,000335: # IT REQUIRES THE INCREMENTAL NAV. BASE ANGLES AS A DP VECTOR IN VAC SCALED AT 1 REVOLUTION. SIN,COS(CDUX,Y,Z)
026382,000336: # MUST BE IN SINCDU, COSCDU RESPECTIVELY SCALED AT 2(+1). IT LEAVES CDU INCREMENTS AS A DP VECTOR IN DCDU AT THE
026383,000337: # SAME SCALING
026384,000338:
026385,000339:
026386,000340:
026387,000341: 25,6336 64776 NBCDURES DMP 0
026388,000342: 25,6337 00045 36D
026389,000343: 25,6340 01331 SINCDU
026390,000344:
026391,000345: 25,6341 64775 DMP 1
026392,000346: 25,6342 66712 DSU DDV
026393,000347: 25,6343 00043 34D
026394,000348: 25,6344 01337 COSCDU
026395,000349: 25,6345 77777 -
026396,000350: 25,6346 01343 COSCDU +4
026397,000351: 25,6347 33347 STORE DCDU +2
026398,000352:
026399,000353: 25,6350 47574 NOLOD 2
026400,000354: 25,6351 64633 DMP COMP
026401,000355: 25,6352 63742 TSLT DAD
026402,000356: 25,6353 01335 SINCDU +4
026403,000357: 25,6354 00002 1
026404,000358: 25,6355 00041 32D
026405,000359: 25,6356 33345 STORE DCDU
026406,000360:
026407,000361: 25,6357 64776 DMP 0
026408,000362: 25,6360 00043 34D
026409,000363: 25,6361 01331 SINCDU
026410,000364:
026411,000365: 25,6362 64775 DMP 1
026412,000366: 25,6363 70716 DAD TSLT
026413,000367: 25,6364 00045 36D
026414,000368: 25,6365 01337 COSCDU
026415,000369: 25,6366 77777 -
026416,000370: 25,6367 00002 1
026417,000371: 25,6370 33351 STORE DCDU +4
026418,000372:
026419,000373: 25,6371 40576 ITCQ 0
026420,000374:
026421,000375:
026422,000376: # THIS ROUTINE RESOLVES THE SMALL ANGLE VECTOR STORED AS SM COMPONENTS IN VAC. SCALED TO ONE REVOLUTION, INTO
026423,000377: # COMMANDED CDU ANGLE CHANGES VAC, +2,+4, SCALED TO ONE REVOLUTION, THROUGH THE DESIRED CDU ANGLES DEFINED BY
026424,000378: # THETAD,+1,+2. THE ROUTINE THEN INCREMENTS THETAD,+1,+2 IN 2S COMP. AT CDUX,Y,Z SCALING
026425,000379:
026426,000380:
026427,000381:
026428,000382: 25,6372 45575 CDUDRIVE ITA 1
026429,000383: 25,6373 75572 AXT,1 ITC
026430,000384: 25,6374 00052 S2
026431,000385: 25,6375 00005 4
026432,000386: 25,6376 12013 THETRIG
026433,000387:
026434,000388: 25,6377 76776 CDUDRVE2 ITC 0
026435,000389: 25,6400 12243 SMCDURES
026436,000390:
026437,000391: 25,6401 43575 TEST 1 # TEST IF CDUX FLAG SET
026438,000392: 25,6402 56776 TSRT
026439,000393: 25,6403 00043 CDUXFLAG
026440,000394: 25,6404 12411 CDUDRVE1
026441,000395: 25,6405 01345 DCDU
026442,000396: 25,6406 00005 4
026443,000397: 25,6407 33345 STORE DCDU
026444,000398:
026445,000399: 25,6410 44775 CDUDRVE1 VSLT 1 # RESCALE DCDU AND BRANCH TO
026446,000400: 25,6411 76421 RTB ITCI # INCREMENT THETAD
026447,000401: 25,6412 01345 DCDU
026448,000402: 25,6413 00002 1
026449,000403: 25,6414 20423 INCRCDUS
026450,000404: 25,6415 00052 S2
026451,000405:
026452,000406: 25,6416 41775 CALCTFF VXV 1
026453,000407: 25,6417 67112 VSQ DDV
026454,000408: 25,6420 01016 UNITR
026455,000409: 25,6421 00774 VN
026456,000410: 25,6422 01024 RMAG
026457,000411:
026458,000412: 25,6423 62775 DDV 1
026459,000413: 25,6424 63732 TSLT DSU
026460,000414: 25,6425 21736 MUEARTH
026461,000415: 25,6426 01026 RMAGSQ
026462,000416: 25,6427 00005 4
026463,000417:
026464,000418: 25,6430 42776 DOT 0
026465,000419: 25,6431 00774 VN
026466,000420: 25,6432 01016 UNITR
026467,000421:
026468,000422: 25,6433 51176 DSQ 0
026469,000423: 25,6434 00003 2
026470,000424:
026471,000425: 25,6435 77576 EXIT 0
026472,000426:
026473,000427: 25,6436 36507 CAF NOMBURN # TEST IF ANY NOMINAL BURN (SPS1,SPS2,
026474,000428: 25,6437 70647 MASK FLAGWRD2 # SPS3, SPS4) FLAG SET
026475,000429: 25,6440 10000 CCS A
026476,000430: 25,6441 45503 CS TWO
026477,000431: 25,6442 20067 INDEX FIXLOC # X1=-2 FOR 400K FT. AND 0 FOR 280K FT.
026478,000432: 25,6443 50046 TS X1
026479,000433: 25,6444 04000 TC INTPRET
026480,000434: 25,6445 45171 DMOVE 5
026481,000435: 25,6446 66316 DSU* TSLT
026482,000436: 25,6447 64742 DMP DAD
026483,000437: 25,6450 73653 BMN SQRT
026484,000438: 25,6451 70672 DAD TSRT
026485,000439: 25,6452 62746 DDV BOV
026486,000440: 25,6453 01024 RMAG
026487,000441: 25,6454 25207 R280K,1
026488,000442: 25,6455 00002 1
026489,000443: 25,6456 00001 0
026490,000444: 25,6457 77777 -
026491,000445: 25,6460 12470 TFFZERO
026492,000446: 25,6461 77777 -
026493,000447: 25,6462 00014 11D
026494,000448: 25,6463 77777 -
026495,000449: 25,6464 12476 TFFMAX
026496,000450: 25,6465 33457 STORE TFF
026497,000451:
026498,000452: 25,6466 40576 ITCQ 0
026499,000453:
026500,000454: 25,6467 45175 TFFZERO DMOVE 1
026501,000455: 25,6470 76576 RTB
026502,000456: 25,6471 07246 DPZERO
026503,000457: 25,6472 20264 FRESHPD
026504,000458: 25,6473 33457 STORE TFF
026505,000459:
026506,000460: 25,6474 40576 ITCQ 0
026507,000461:
026508,000462: 25,6475 45175 TFFMAX DMOVE 1
026509,000463: 25,6476 76576 RTB
026510,000464: 25,6477 21051 NEARONE
026511,000465: 25,6500 20264 FRESHPD
026512,000466: 25,6501 33457 STORE TFF
026513,000467:
026514,000468: 25,6502 40576 ITCQ 0
026515,000469:
026516,000470: 25,6503 06124 00250 R280K 2DEC 6.463509 E6 B-25
026517,000471: 25,6505 06145 33650 R400K 2DEC 6.500085 E6 B-25
026518,000472:
026519,000473: 25,6507 00170 NOMBURN OCT 00170
026520,000474:
026521,000475:
026522,000476: # THE FOLLOWING SERIES OF CLOSED SUBROUTINES COMPUTE THE REQUIRED VELOCITY VR, SCALED TO 2(+8)M/CS, VELOCITY-TO-BE
026523,000477: # -GAINED VG, SCALED TO 2(+7)M/CS, AND THE MDOIFIED B-VECTOR CBDT, SCALED TO 2(+4)M/CS, FOR THE DIFFERENT PHASES
026524,000478: # OF POWERED FLIGHT.
026525,000479:
026526,000480:
026527,000481:
026528,000482: 25,6510 75176 CALCVGB VMOVE 0
026529,000483: 25,6511 01417 VR
026530,000484: 25,6512 33411 STORE CBDT # (CBDT USED HERE AS TEMP. STORAGE FOR VR)
026531,000485:
026532,000486: 25,6513 45575 ITA 1
026533,000487: 25,6514 73421 LXA,1 ITCI
026534,000488: 25,6515 00052 S2
026535,000489: 25,6516 01042 XSHIFT
026536,000490: 25,6517 01471 VRCADR
026537,000491:
026538,000492: 25,6520 47575 CALCCBDT NOLOD 1
026539,000493: 25,6521 74622 VSU VSLT
026540,000494: 25,6522 01411 CBDT # OLD VR
026541,000495: 25,6523 00005 4 # D(VR) TO PD SCALED AT 2(+4) M/CS
026542,000496:
026543,000497: 25,6524 75775 VXSC 1
026544,000498: 25,6525 50766 VAD VXSC
026545,000499: 25,6526 01010 GRAVITY
026546,000500: 25,6527 01030 DELTAT
026547,000501: 25,6530 77777 -
026548,000502: 25,6531 15573 CFACTOR # SCALED AT 2(+0)
026549,000503: 25,6532 33411 STORE CBDT # SCALED AT 2(+4) M/CS
026550,000504:
026551,000505: 25,6533 44775 VSLT 1
026552,000506: 25,6534 74752 VSU STZ
026553,000507: 25,6535 01417 VR
026554,000508: 25,6536 00002 1
026555,000509: 25,6537 00774 VN
026556,000510: 25,6540 00123 OVFIND # FIRST PASS THRU CALCVGB MAY OVERFLOW
026557,000511: 25,6541 33353 STORE VG # SCALED AT 2(+7) M/CS
026558,000512:
026559,000513: 25,6542 44576 ITCI 0
026560,000514: 25,6543 00052 S2
026561,000515:
026562,000516:
026563,000517: # THESE ROUTINES COMPUTE VR FOR THE TWO NOMINAL SPS BURNS OF FLIGHT 202
026564,000518: 25,6544 75575 202SPS1 AXT,1 1 # C(X1) = +0 (SPS1)
026565,000519: 25,6545 74572 AXT,2 ITC # C(X2) =+1 (SPS1)
026566,000520: 25,6546 00001 0
026567,000521: 25,6547 00002 1
026568,000522: 25,6550 12556 +5
026569,000523:
026570,000524: 25,6551 53575 202SPS2 AXC,1 1 # C(X1) = -2 (SPS2)
026571,000525: 25,6552 52576 AXC,2 # C(X2) =-1 (SPS2)
026572,000526: 25,6553 00003 2
026573,000527: 25,6554 00002 1
026574,000528:
026575,000529: 25,6555 44170 DMOVE* 6
026576,000530: 25,6556 62732 DDV DSU
026577,000531: 25,6557 51130 DSQ DSU*
026578,000532: 25,6560 65122 ABS DMP
026579,000533: 25,6561 62272 DDV* TSRT
026580,000534: 25,6562 53056 SQRT SIGN
026581,000535: 25,6563 75776 VXSC
026582,000536: 25,6564 03325 SEMILAT,1 # SCALED AT 2(+27)M
026583,000537: 25,6565 01024 RMAG # 2(+25)M
026584,000538: 25,6566 15565 DP2(-2)
026585,000539: 25,6567 03315 ESQ(VR),1 # SCALED AT 2(+4)
026586,000540: 25,6570 13475 MUE # SCALED AT 2(+38) M(+3)/CS(+2)
026587,000541: 25,6571 03325 SEMILAT,1
026588,000542: 25,6572 00006 5
026589,000543: 25,6573 00050 X2
026590,000544: 25,6574 01016 UNITR # VRAD TO PD SCALED AT 2(+11) M/CS
026591,000545:
026592,000546: 25,6575 45174 DMOVE 2
026593,000547: 25,6576 64312 DMP* DDV
026594,000548: 25,6577 53176 SQRT
026595,000549: 25,6600 13475 MUE
026596,000550: 25,6601 03325 SEMILAT,1
026597,000551: 25,6602 01026 RMAGSQ # SCALED AT 2(+50)M(+2)
026598,000552: # VHOR MAG. TO PD SCALED AT 2(+9) M/CS
026599,000553: 25,6603 41775 VXV 1
026600,000554: 25,6604 73176 UNIT
026601,000555: 25,6605 01541 RTPACIFC
026602,000556: 25,6606 01016 UNITR
026603,000557:
026604,000558: 25,6607 47575 NOLOD 1
026605,000559: 25,6610 42633 DOT COMP
026606,000560: 25,6611 01044 UNITW
026607,000561: 25,6612 32033 STORE 26D
026608,000562:
026609,000563: 25,6613 41775 VXV 1
026610,000564: 25,6614 75776 VXSC
026611,000565: 25,6615 01016 UNITR
026612,000566:
026613,000567: 25,6616 53774 SIGN 2
026614,000568: 25,6617 75642 VXSC VAD
026615,000569: 25,6620 44776 VSLT
026616,000570: 25,6621 21051 NEARONE
026617,000571: 25,6622 00033 26D
026618,000572: 25,6623 77777 -
026619,000573: 25,6624 77777 -
026620,000574: 25,6625 00004 3
026621,000575: 25,6626 33417 STORE VR
026622,000576:
026623,000577: 25,6627 76776 ITC 0
026624,000578: 25,6630 12521 CALCCBDT
026625,000579:
026626,000580:
026627,000581: # THIS ROUTINE COMPUTES VG, CBDT, FOR LANDING AREA CONTROL DURING BOOST ABORTS ON FLIGHT 202
026628,000582:
026629,000583:
026630,000584:
026631,000585: 25,6631 41776 202ABORT VXV 0
026632,000586: 25,6632 00766 RN
026633,000587: 25,6633 00774 VN
026634,000588:
026635,000589: 25,6634 47575 NOLOD 1
026636,000590: 25,6635 73176 UNIT
026637,000591: 25,6636 33367 STORE UNITRXV # UNIT NORMAL TO PLANE, IP 2(+1)
026638,000592:
026639,000593: 25,6637 66775 DSU 1
026640,000594: 25,6640 56776 TSRT
026641,000595: 25,6641 13230 RINTALT
026642,000596: 25,6642 01024 RMAG
026643,000597: 25,6643 00003 2 # (RE - R) MAG SCALED 2(+27)
026644,000598:
026645,000599: 25,6644 41775 VXV 1
026646,000600: 25,6645 44776 VSLT
026647,000601: 25,6646 01367 UNITRXV # IP
026648,000602: 25,6647 01016 UNITR # IR
026649,000603: 25,6650 00002 1 # TIMES 2
026650,000604: 25,6651 33375 STORE UNITHORZ # UNIT HORIZONTAL IN PLANE, IHP 2(+1)
026651,000605:
026652,000606: 25,6652 47575 NOLOD 1
026653,000607: 25,6653 42776 DOT
026654,000608: 25,6654 00774 VN # IHP.V SCALED 2(+8)
026655,000609:
026656,000610: 25,6655 42774 DOT 2
026657,000611: 25,6656 56712 TSRT DDV
026658,000612: 25,6657 64776 DMP
026659,000613: 25,6660 00774 VN
026660,000614: 25,6661 01016 UNITR # IR.V SCALED 2(+8)
026661,000615: 25,6662 00004 3 # TIMES 2(-3)
026662,000616: 25,6663 77777 - # DIVIDE BY IHP.V SCALED 2(+8)
026663,000617: 25,6664 13230 RINTALT # RE COT(GAMMA) SCALED 2(+28)
026664,000618:
026665,000619: 25,6665 67175 VSQ 1
026666,000620: 25,6666 62776 DDV
026667,000621: 25,6667 00001 0 # H SCALED 2(+31)
026668,000622: 25,6670 13475 MUE # H(SQ)/MUE = P SCALED 2(+24)
026669,000623:
026670,000624: 25,6671 67175 VSQ 1
026671,000625: 25,6672 56712 TSRT DDV
026672,000626: 25,6673 00774 VN # V(SQ) 2(+14)
026673,000627: 25,6674 00005 4 # TIMES 2(-4)
026674,000628: 25,6675 13475 MUE # V(SQ)/MUE SCALED 2(-20)
026675,000629: 25,6676 62774 DDV 2
026676,000630: 25,6677 66722 DSU DMP
026677,000631: 25,6700 65776 BDSU
026678,000632: 25,6701 13232 DP2(-4)
026679,000633: 25,6702 01024 RMAG
026680,000634: 25,6703 77777 -
026681,000635: 25,6704 13230 RINTALT
026682,000636: 25,6705 13232 DP2(-4) # (1+RE((V**2/2 MUE)-1/R)) SCALED 2(+4)
026683,000637:
026684,000638: 25,6706 47574 NOLOD 2
026685,000639: 25,6707 73653 BMN SQRT
026686,000640: 25,6710 64716 DMP TSLT
026687,000641: 25,6711 13214 SMACHECK # SMA LESS THAN RE/2
026688,000642: 25,6712 13252 V400
026689,000643: 25,6713 00003 2 # VE TO PD SCALED 2(+7) M/CS
026690,000644:
026691,000645: 25,6714 66775 DSU 1
026692,000646: 25,6715 43776 BPL
026693,000647: 25,6716 13256 VCRIT # 22,000 FT/SEC SCALED 2(+7) M/CS
026694,000648: 25,6717 77777 - # VE SCALED 2(+7) M/CS
026695,000649: 25,6720 13203 GETRANGE # SET RANGE TO MINRANGE
026696,000650:
026697,000651: 25,6721 64774 DMP 2
026698,000652: 25,6722 70722 DAD DMP
026699,000653: 25,6723 70716 DAD TSLT
026700,000654: 25,6724 00017 14D # VE SCALED 2(+7)
026701,000655: 25,6725 13246 KRANGE2
026702,000656: 25,6726 13244 KRANGE1
026703,000657: 25,6727 00017 14D # VE SCALED 2(+7)
026704,000658: 25,6730 13242 KRANGE0
026705,000659: 25,6731 00005 4
026706,000660: 25,6732 32025 STORE 20D # ENTRY RANGE ANGLE SCALED 2(+0) REVS.
026707,000661:
026708,000662: 25,6733 47575 GOTRANGE NOLOD 1
026709,000663: 25,6734 55166 COS VXSC
026710,000664: 25,6735 01531 RTATLANT # RADIAL COMP UNIT TARG VECT 2(+2)
026711,000665:
026712,000666: 25,6736 57175 SIN 1
026713,000667: 25,6737 63776 TSLT
026714,000668: 25,6740 00025 20D
026715,000669: 25,6741 00002 1 # SINE OF RANGE ANGLE 2(+0)
026716,000670:
026717,000671: 25,6742 41775 VXV 1
026718,000672: 25,6743 73176 UNIT
026719,000673: 25,6744 01531 RTATLANT
026720,000674: 25,6745 01016 UNITR
026721,000675: 25,6746 32027 STORE 22D # -UNITN, -IN, DESIRED NORMAL SCALED 2(+1)
026722,000676:
026723,000677: 25,6747 47574 NOLOD 2
026724,000678: 25,6750 41766 VXV VXSC
026725,000679: 25,6751 50622 VAD VSLT
026726,000680: 25,6752 01531 RTATLANT
026727,000681: 25,6753 77777 -
026728,000682: 25,6754 77777 -
026729,000683: 25,6755 00002 1
026730,000684: 25,6756 33433 STORE RTARG # UNIT TARGET VECTOR SCALED 2(+1)
026731,000685:
026732,000686: 25,6757 64771 DMP 5
026733,000687: 25,6760 62732 DDV DSU
026734,000688: 25,6761 73653 BMN SQRT
026735,000689: 25,6762 64726 DMP BDSU
026736,000690: 25,6763 61746 BDDV BOV
026737,000691: 25,6764 76472 RTB TSRT
026738,000692: 25,6765 13230 RINTALT # RE SCALED 2(+25)
026739,000693: 25,6766 77777 -
026740,000694: 25,6767 77777 - # P SCALED 2(+24)
026741,000695: 25,6770 13234 DP2(-6)
026742,000696: 25,6771 13220 GAMCHECK # COT(GAMMAE) SQ NEGATIVE
026743,000697: 25,6772 01024 RMAG # R COT(GAMMAE) SCALED 2(+28)
026744,000698: 25,6773 77777 - # RE COT(GAMMA) SCALED 2(+28)
026745,000699: 25,6774 77777 - # (RE - R) SCALED 2(+27)
026746,000700: 25,6775 13224 TANCHECK # TAN(THETAFF/2) EXCEEDS ----
026747,000701: 25,6776 20264 FRESHPD # ZERO PD POINTER
026748,000702: 25,6777 00010 7D # X = TAN(THETAFF/2) SCALED 2(+6)
026749,000703:
026750,000704: 25,7000 47575 NOLOD 1
026751,000705: 25,7001 51142 DSQ DAD
026752,000706: 25,7002 13240 DP2(-12) # DENOMINATOR SCALED 2(+12)
026753,000707:
026754,000708: 25,7003 47574 NOLOD 2
026755,000709: 25,7004 66633 DSU COMP
026756,000710: 25,7005 62776 DDV
026757,000711: 25,7006 13236 DP2(-11) # 1 - X(SQ) SCALED 2(+12)
026758,000712: 25,7007 00003 2 # COSEFF SCALED 2(+0)
026759,000713:
026760,000714: 25,7010 42774 DOT 2
026761,000715: 25,7011 63732 TSLT DSU
026762,000716: 25,7012 43776 BPL
026763,000717: 25,7013 01016 UNITR
026764,000718: 25,7014 01433 RTARG
026765,000719: 25,7015 00003 2 # COS ANGLE R TO TARG 2(+0)
026766,000720: 25,7016 00005 4 # COS FREE FALL ANGLE 2(+0)
026767,000721: 25,7017 13210 PASTIT # FF ANGLE EXCEEDS ANGLE TO TARGET
026768,000722:
026769,000723: 25,7020 56775 TSRT 1
026770,000724: 25,7021 62766 DDV VXSC
026771,000725: 25,7022 00001 0
026772,000726: 25,7023 00006 5
026773,000727: 25,7024 00003 2 # SINEFF SCALED 2(+0)
026774,000728: 25,7025 01375 UNITHORZ # IHP SINEFF SCALED 2(+1)
026775,000729: 25,7026 75775 VXSC 1
026776,000730: 25,7027 50762 VAD VSU
026777,000731: 25,7030 01016 UNITR
026778,000732: 25,7031 00005 4 # IR COSEFF 2(+1)
026779,000733: 25,7032 77777 - # UNIT VECTOR ALONG ENTRY-POINT VECT 2(+1)
026780,000734: 25,7033 01433 RTARG # MINUS UNIT TARGET VECTOR 2(+1)
026781,000735:
026782,000736: 25,7034 47575 NOLOD 1
026783,000737: 25,7035 71176 ABVAL
026784,000738: 25,7036 32003 STORE 2 # D SCALED 2(+2)
026785,000739:
026786,000740: 25,7037 71174 ABVAL 2
026787,000741: 25,7040 75612 VXSC DOT
026788,000742: 25,7041 56776 TSRT
026789,000743: 25,7042 00774 VN
026790,000744: 25,7043 01375 UNITHORZ
026791,000745: 25,7044 00027 22D # -UNITN 2(+1)
026792,000746: 25,7045 00002 1 # DELTA V NORMAL SCALED 2(+11)
026793,000747:
026794,000748: 25,7046 71174 ABVAL 2
026795,000749: 25,7047 65716 BDSU TSLT
026796,000750: 25,7050 65176 ABS
026797,000751: 25,7051 01425 DIFFVECT # MAG OLD DIFFVECT 2(+2) AFTER ABVAL
026798,000752: 25,7052 00003 2 # NEW MAG DIFFVECT 2(+2)
026799,000753: 25,7053 00002 1 # DELD SCALED 2(+1)
026800,000754:
026801,000755: 25,7054 47576 NOLOD 0
026802,000756: 25,7055 32001 STORE 0 # DELD TO PD 0 ALSO
026803,000757:
026804,000758: 25,7056 64773 DMP 3
026805,000759: 25,7057 56712 TSRT DDV
026806,000760: 25,7060 70706 DAD BDDV
026807,000761: 25,7061 71672 BOV TSRT
026808,000762: 25,7062 01030 DELTAT
026809,000763: 25,7063 00003 2
026810,000764: 25,7064 00016 13D
026811,000765: 25,7065 77777 -
026812,000766: 25,7066 13254 TGOBIAS # 5 SECS
026813,000767: 25,7067 77777 - # ATTEMPT TO COMPUTE NEW ANORMAL 2(-12)
026814,000768: 25,7070 13165 ANOVFLOW # IF OVF, ANORMAL = 8 FT/S/S SIGN DELTA V
026815,000769: 25,7071 00004 3 # SCALE AN TRIAL BACK TO 2(-9)
026816,000770: 25,7072 33441 STORE ANORMAL # ANORMAL SCALED 2(-9) M/CS(+2)
026817,000771:
026818,000772: 25,7073 47575 GO-ON NOLOD 1
026819,000773: 25,7074 75776 VXSC
026820,000774: 25,7075 01367 UNITRXV # ANORMAL ALONG IP SCALED 2(-8)
026821,000775:
026822,000776: 25,7076 75775 VXSC 1
026823,000777: 25,7077 71176 ABVAL
026824,000778: 25,7100 01002 DELV
026825,000779: 25,7101 21730 KPIP
026826,000780: 25,7102 32005 STORE 4 # MEASURED DELTA V SCALED 2(+5)
026827,000781:
026828,000782: 25,7103 47573 NOLOD 3
026829,000783: 25,7104 62722 DDV DMP
026830,000784: 25,7105 63766 TSLT VXSC
026831,000785: 25,7106 50753 VAD UNIT
026832,000786: 25,7107 01030 DELTAT
026833,000787: 25,7110 13266 FULHAM # APPROX COS OF THRUST ONTO HORIZ PLANE
026834,000788: 25,7111 00006 5
026835,000789: 25,7112 01375 UNITHORZ # COEF OF SIN TERM OF IT SCALED 2(+1)
026836,000790:
026837,000791: 25,7113 62775 DDV 1
026838,000792: 25,7114 63142 ASIN DAD
026839,000793: 25,7115 13264 RVH # RADIUS TO VISUAL HORIZON SCALED 2(+26) M
026840,000794: 25,7116 01024 RMAG # R SCALED 2(+25)
026841,000795: 25,7117 01443 LOOKANG # PHI SCALED 2(+0) REV.
026842,000796:
026843,000797: 25,7120 47575 NOLOD 1
026844,000798: 25,7121 55166 COS VXSC
026845,000799: 25,7122 01016 UNITR # COS(PHI) IR SCALED 2(+2)
026846,000800:
026847,000801: 25,7123 57174 SIN 2
026848,000802: 25,7124 75762 VXSC VSU
026849,000803: 25,7125 44776 VSLT
026850,000804: 25,7126 00023 18D # PHI
026851,000805: 25,7127 00015 12D # SIN COEF SCALED 2(+1)
026852,000806: 25,7130 77777 - # COS(PHI) SCALED 2(+2)
026853,000807: 25,7131 00002 1 # UNIT FINAL, IT, SCALED 2(+1)
026854,000808:
026855,000809: 25,7132 64773 DMP 3
026856,000810: 25,7133 62716 DDV TSLT
026857,000811: 25,7134 71672 BOV TSRT
026858,000812: 25,7135 75771 VXSC RTB
026859,000813: 25,7136 00003 2 # D 2(+2)
026860,000814: 25,7137 00005 4 # DELTA V 2(+5)
026861,000815: 25,7140 00001 0 # DELTA D 2(+1)
026862,000816: 25,7141 00002 1 # IS MAG VG GR THAN 2(+5) M/CS
026863,000817: 25,7142 13173 FIXVG # IF YES, SET MAG VG TO 2(+5) M/CS
026864,000818: 25,7143 00002 1 # IF NO, SCALE MAG VG BACK TO 2(+6)
026865,000819: 25,7144 77777 - # IT 2(+1)
026866,000820: 25,7145 20264 FRESHPD # ZERO PD POINTER
026867,000821: 25,7146 33353 STORE VG # VG SCALED 2(+7) M/CS
026868,000822:
026869,000823: 25,7147 75176 PREXIT VMOVE 0
026870,000824: 25,7150 00007 6
026871,000825: 25,7151 33425 STORE DIFFVECT # SAVE NEW DIFFVECT SCALED 2(+1)
026872,000826:
026873,000827: 25,7152 75176 VMOVE 0
026874,000828: 25,7153 15575 ZEROVEC
026875,000829: 25,7154 33411 STORE CBDT # CBDT = 0 FOR 202 ABORTS
026876,000830:
026877,000831: 25,7155 44576 ITCI 0
026878,000832: 25,7156 00052 S2 # RETURN
026879,000833:
026880,000834: 25,7157 04000 CHEKEXIT TC INTPRET # EXIT FOR VR CHECK FAILURES
026881,000835:
026882,000836: 25,7160 76575 RTB 1
026883,000837: 25,7161 76776 ITC
026884,000838: 25,7162 20264 FRESHPD # ZERO PD POINTER
026885,000839: 25,7163 25723 VRFAIL
026886,000840:
026887,000841: 25,7164 53776 ANOVFLOW SIGN 0
026888,000842: 25,7165 13260 ANPSEUDO # AN = 8 FT/S/S SIGNED WITH DELTA V
026889,000843: 25,7166 00015 12D # DELTA V
026890,000844: 25,7167 33441 STORE ANORMAL
026891,000845:
026892,000846: 25,7170 76776 ITC 0
026893,000847: 25,7171 13074 GO-ON
026894,000848:
026895,000849: 25,7172 75175 FIXVG VMOVE 1
026896,000850: 25,7173 75771 VXSC RTB
026897,000851: 25,7174 77777 - # IT 2(+1)
026898,000852: 25,7175 15573 DP2(-1)
026899,000853: 25,7176 20264 FRESHPD # ZERO PD POINTER
026900,000854: 25,7177 33353 STORE VG # MAG VG 2(+5) M/CS SCALED 2(+7)
026901,000855:
026902,000856: 25,7200 76776 ITC 0
026903,000857: 25,7201 13150 PREXIT # GO CLOSE OUT 202 ABORT
026904,000858:
026905,000859: 25,7202 45176 GETRANGE DMOVE 0
026906,000860: 25,7203 13250 MINRANGE
026907,000861: 25,7204 32025 STORE 20D # FREEZE RANGE ANGLE AT MINRANGE
026908,000862:
026909,000863: 25,7205 76776 ITC 0
026910,000864: 25,7206 12734 GOTRANGE # CONTINUE
026911,000865:
026912,000866: 25,7207 77576 PASTIT EXIT 0
026913,000867: 25,7210 03015 TC ALARM
026914,000868: 25,7211 01403 OCT 01403
026915,000869: 25,7212 07157 TC CHEKEXIT
026916,000870:
026917,000871: 25,7213 77576 SMACHECK EXIT 0
026918,000872: 25,7214 03015 TC ALARM
026919,000873: 25,7215 01404 OCT 01404
026920,000874: 25,7216 07157 TC CHEKEXIT
026921,000875:
026922,000876: 25,7217 77576 GAMCHECK EXIT 0
026923,000877: 25,7220 03015 TC ALARM
026924,000878: 25,7221 01405 OCT 01405
026925,000879: 25,7222 07157 TC CHEKEXIT
026926,000880:
026927,000881: 25,7223 77576 TANCHECK EXIT 0
026928,000882: 25,7224 03015 TC ALARM
026929,000883: 25,7225 01406 OCT 01406
026930,000884: 25,7226 07157 TC CHEKEXIT
026931,000885:
026932,000886: 25,7227 06145 33650 RINTALT 2DEC 6500085 B-25 # 400K FT RADIUS
026933,000887: 25,7231 02000 00000 DP2(-4) 2DEC 0.0625
026934,000888: 25,7233 00400 00000 DP2(-6) 2DEC 0.015625
026935,000889: 25,7235 00010 00000 DP2(-11) 2DEC 0.000488281
026936,000890: 25,7237 00004 00000 DP2(-12) 2DEC 0.000244141
026937,000891: 25,7241 06010 35650 KRANGE0 2DEC 0.188045173 # 2(+4)
026938,000892: 25,7243 51120 56532 KRANGE1 2DEC -.713839193 # 2(+11)
026939,000893: 25,7245 25641 36206 KRANGE2 2DEC 0.681759381 # 2(+18)
026940,000894: 25,7247 00467 16603 MINRANGE 2DEC 0.019010080 # 6.8436288 DEG 2(+0) REVS.
026941,000895: 25,7251 33537 15244 V400 2DEC 0.865198746 # 110.7454396 2(+7) M/CS
026942,000896: 25,7253 00000 37200 TGOBIAS 2DEC 0.000059605 # 5 SECS 2(+23) CS
026943,000897: 25,7255 20607 05301 VCRIT 2DEC 0.523875000 # 22,000 FT/SEC 2(+7) M/CS
026944,000898: 25,7257 03775 17232 ANPSEUDO 2DEC 0.124846080 # 8 FT/S/S 2(-9) M/CS/CS
026945,000899: 25,7261 06052 12650 RE 2DEC 0.190084130 # 6.378165 E6 M 2(+25) M
026946,000900: 25,7263 03025 05324 RVH 2DEC 0.095042065 # 6.378165 E6 M 2(+26) M
026947,000901: 25,7265 36044 03661 FULHAM 2DEC 0.9397046 # COS 20 DEG.
026948,000902:
026949,000903:
026950,000904: # THESE ROUTINES COMPUTE VR TO ACHIEVE A CIRCULAR EARTH- OR MOON-CENTERED ORBIT
026951,000905:
026952,000906:
026953,000907:
026954,000908: 25,7267 45175 EARTHORB DMOVE 1
026955,000909: 25,7270 76776 ITC
026956,000910: 25,7271 13475 MUE
026957,000911: 25,7272 13300 SQRTMU/R
026958,000912:
026959,000913: 25,7273 45175 LUNDEBST DMOVE 1
026960,000914: 25,7274 63576 INCR,1
026961,000915: 25,7275 13477 MUM
026962,000916: 25,7276 00007 6D
026963,000917:
026964,000918: 25,7277 47574 SQRTMU/R NOLOD 2
026965,000919: 25,7300 62714 DDV TSLT*
026966,000920: 25,7301 53176 SQRT
026967,000921: 25,7302 01024 RMAG
026968,000922: 25,7303 00021 8D,1 # C(X1) =14-N (EARTH)
026969,000923: # =20-N (MOON)
026970,000924: 25,7304 41775 VXV 1
026971,000925: 25,7305 73166 UNIT VXSC
026972,000926: 25,7306 01016 UNITR
026973,000927: 25,7307 01323 UNITN
026974,000928: 25,7310 33417 STORE VR # VR SCALED AT 2(+8)M/CS
026975,000929:
026976,000930: 25,7311 76776 ITC 0
026977,000931: 25,7312 12521 CALCCBDT
026978,000932:
026979,000933:
026980,000934: # THIS ROUTINE COMPUTES VR TO ACHIEVE HYPERBOLIC VELOCITY VF FOR TRANSEARTH INJECTION
026981,000935:
026982,000936:
026983,000937:
026984,000938: 25,7313 62775 TRANSEAR DDV 1
026985,000939: 25,7314 63376 TSLT*
026986,000940: 25,7315 13477 MUM
026987,000941: 25,7316 01024 RMAG
026988,000942: 25,7317 00011 4,1
026989,000943:
026990,000944: 25,7320 73176 UNIT 0
026991,000945: 25,7321 01323 VF # VF SCALED AT 2(+4)M/CS
026992,000946: 25,7322 33367 STORE UNITF
026993,000947:
026994,000948: 25,7323 47572 NOLOD 4
026995,000949: 25,7324 42742 DOT DAD
026996,000950: 25,7325 64716 DMP TSLT
026997,000951: 25,7326 61742 BDDV DAD
026998,000952: 25,7327 53176 SQRT
026999,000953: 25,7330 01016 UNITR
027000,000954: 25,7331 15565 DP2(-2)
027001,000955: 25,7332 00035 28D # (VF SQ)
027002,000956: 25,7333 00004 3
027003,000957: 25,7334 77777 -
027004,000958: 25,7335 13362 DP2(-10)
027005,000959: 25,7336 32033 STORE 26D # SCALED AT 2(+5)
027006,000960:
027007,000961: 25,7337 47575 NOLOD 1
027008,000962: 25,7340 70766 DAD VXSC
027009,000963: 25,7341 13360 DP2(-5)
027010,000964: 25,7342 01367 UNITF
027011,000965:
027012,000966: 25,7343 66774 DSU 2
027013,000967: 25,7344 75642 VXSC VAD
027014,000968: 25,7345 75622 VXSC VSLT
027015,000969: 25,7346 00033 26D
027016,000970: 25,7347 13360 DP2(-5)
027017,000971: 25,7350 01016 UNITR
027018,000972: 25,7351 77777 -
027019,000973: 25,7352 00037 30D # (VF)
027020,000974: 25,7353 00003 2
027021,000975: 25,7354 33417 STORE VR # VR SCALED AT 2(+8)M/CS
027022,000976:
027023,000977: 25,7355 76776 ITC 0
027024,000978: 25,7356 12521 CALCCBDT
027025,000979:
027026,000980: 25,7357 01000 00000 DP2(-5) 2DEC 0.03125
027027,000981: 25,7361 00020 00000 DP2(-10) 2DEC 0.000976563
027028,000982:
027029,000983:
027030,000984: # THIS ROUTINE COMPUTES VR TO ACHIEVE A TRANSLUNAR ELLIPSE DEFINED BY A TARGET VECTOR RTRNSLUN AND A SEMI MAJOR
027031,000985: # AXIS SMA
027032,000986:
027033,000987:
027034,000988:
027035,000989: 25,7363 63775 TRANSLUN TSLT 1
027036,000990: 25,7364 53176 SQRT
027037,000991: 25,7365 13475 MUE
027038,000992: 25,7366 00002 1
027039,000993:
027040,000994: 25,7367 45175 DMOVE 1
027041,000995: 25,7370 56376 TSRT*
027042,000996: 25,7371 00037 30D # (RN)
027043,000997: 25,7372 00025 10D,1 # RN RESCALED TO 2(+26)M
027044,000998:
027045,000999: 25,7373 75174 VMOVE 2
027046,001000: 25,7374 45232 VSRT* BVSU
027047,001001: 25,7375 73026 UNIT VSRT
027048,001002: 25,7376 00766 RN
027049,001003: 25,7377 00025 10D,1 # RTRNSLUN-RMAG SCALED AT 2(+25)M
027050,001004: 25,7400 01323 RTRNSLUN
027051,001005: 25,7401 00002 1
027052,001006:
027053,001007: 25,7402 45775 VSRT 1
027054,001008: 25,7403 46776 BVSU
027055,001009: 25,7404 01016 UNITR
027056,001010: 25,7405 00002 1
027057,001011: 25,7406 33367 STORE UNITD
027058,001012:
027059,001013: 25,7407 47575 NOLOD 1
027060,001014: 25,7410 50776 VAD
027061,001015: 25,7411 01016 UNITR
027062,001016: 25,7412 33375 STORE UNITS
027063,001017:
027064,001018: 25,7413 71174 ABVAL 2
027065,001019: 25,7414 70742 DAD DAD
027066,001020: 25,7415 56776 TSRT
027067,001021: 25,7416 01323 RTRNSLUN
027068,001022: 25,7417 00037 30D # (C)
027069,001023: 25,7420 77777 - # (RN)
027070,001024: 25,7421 00002 1
027071,001025: 25,7422 33433 STORE S # S SCALED AT 2(+26)M
027072,001026:
027073,001027: 25,7423 47575 NOLOD 1
027074,001028: 25,7424 66676 DSU TSLC
027075,001029: 25,7425 00037 30D # (C)
027076,001030: 25,7426 00050 X2
027077,001031: 25,7427 33435 STORE DN
027078,001032:
027079,001033: 25,7430 47575 NOLOD 1
027080,001034: 25,7431 56326 TSRT* BDSU
027081,001035: 25,7432 00016 6,2
027082,001036: 25,7433 01437 SMA
027083,001037:
027084,001038: 25,7434 64773 DMP 3
027085,001039: 25,7435 61711 BDDV INCR,2
027086,001040: 25,7436 63253 TSLT* SQRT
027087,001041: 25,7437 53766 SIGN VXSC
027088,001042: 25,7440 01437 SMA
027089,001043: 25,7441 01435 DN
027090,001044: 25,7442 77777 -
027091,001045: 25,7443 00021 16D
027092,001046: 25,7444 00002 0,2
027093,001047: 25,7445 01425 SGNTHETA
027094,001048: 25,7446 01375 UNITS
027095,001049:
027096,001050: 25,7447 56775 TSRT 1
027097,001051: 25,7450 65672 BDSU TSRT
027098,001052: 25,7451 01433 S
027099,001053: 25,7452 00007 6D
027100,001054: 25,7453 01437 SMA
027101,001055: 25,7454 00005 4
027102,001056:
027103,001057: 25,7455 64772 DMP 4
027104,001058: 25,7456 61653 BDDV SQRT
027105,001059: 25,7457 56766 TSRT VXSC
027106,001060: 25,7460 50622 VAD VSLT
027107,001061: 25,7461 75776 VXSC
027108,001062: 25,7462 01437 SMA
027109,001063: 25,7463 01433 S
027110,001064: 25,7464 77777 -
027111,001065: 25,7465 00007 6
027112,001066: 25,7466 01367 UNITD
027113,001067: 25,7467 77777 -
027114,001068: 25,7470 00012 9D
027115,001069: 25,7471 33417 STORE VR # VR SCALED AT 2(+8)M/CS
027116,001070:
027117,001071: 25,7472 76776 ITC 0
027118,001072: 25,7473 12521 CALCCBDT
027119,001073:
027120,001074: 25,7474 04507 33420 MUE 2DEC 0.145011008 # 3.98603223 E14 SCALED 2(+38)M(+3)/CS(+2)
027121,001075: 25,7476 03516 10273 MUM 2DEC 0.114151696 # 4.90277800 E08 SCALED 2(+32)M(+3)/CS(+2)
027122,001076:
027123,001077:
027124,001078: # THIS ROUTINE COMPUTES THE DESIRED THRUST DIRECTION AS A HALF UNIT VECTOR XSC. IT COMPUTES THE HALF UNIT VECTOR
027125,001079: # YSC ALONG RN*XSC (I.E. DEFINES A PITCH AXIS HORIZONTAL, YAW AXIS UP ROLL ATTITUDE) AND ZSC ALONG XSC*YSC. IT
027126,001080: # REQUIRES PRIOR PASSES THROUGH ROUTINES CALCRVG AND CALCVGB TO ESTABLISH UNITR, VG, AND CBDT. X1 MUST CONTAIN
027127,001081: # 0,2,4... TO LOAD THE APPROPRIATE INTEGRATED INITIAL THRUST ACCELERATION MAGNITUDE ATDT
027128,001082:
027129,001083:
027130,001084:
027131,001085: 25,7500 73176 CALCXSC UNIT 0
027132,001086: 25,7501 01353 VG
027133,001087: 25,7502 33353 STORE UNITVG
027134,001088:
027135,001089: 25,7503 47574 NOLOD 2
027136,001090: 25,7504 40622 VPROJ VSLT
027137,001091: 25,7505 46776 BVSU
027138,001092: 25,7506 01411 CBDT # SCALED AT 2(+4)M/CS
027139,001093: 25,7507 00003 2
027140,001094: 25,7510 01411 CBDT
027141,001095:
027142,001096: 25,7511 47571 NOLOD 5
027143,001097: 25,7512 71110 ABVAL DDV*
027144,001098: 25,7513 51126 DSQ BDSU
027145,001099: 25,7514 53120 SQRT DMP*
027146,001100: 25,7515 63766 TSLT VXSC
027147,001101: 25,7516 50753 VAD UNIT
027148,001102: 25,7517 27505 ATDT,1 # SCALED AT 2(+5)M/CS
027149,001103: 25,7520 21051 NEARONE
027150,001104: 25,7521 27505 ATDT,1
027151,001105: 25,7522 00003 2
027152,001106: 25,7523 01353 UNITVG
027153,001107: 25,7524 33367 STORE XSC
027154,001108:
027155,001109: 25,7525 47574 NOLOD 2
027156,001110: 25,7526 41753 VXV UNIT
027157,001111: 25,7527 47176 COMP
027158,001112: 25,7530 01016 UNITR
027159,001113: 25,7531 33375 STORE YSC
027160,001114:
027161,001115: 25,7532 47574 NOLOD 2
027162,001116: 25,7533 41753 VXV UNIT
027163,001117: 25,7534 47176 COMP
027164,001118: 25,7535 01367 XSC
027165,001119: 25,7536 33403 STORE ZSC
027166,001120: 25,7537 40576 ITCQ 0
027167,001121:
027168,001122:
027169,001123: # THIS ROUTINE RESOLVES THE VECTOR IN RTINIT THROUGH AN ANGULAR ROTATION WIE(DTEAROT) SCALED AT ONE REV-
027170,001124: # OLUTION ABOUT THE UNIT POLAR AXIS UMITW. IT REQUIRES DTEAROT SCALED AT 2(+28)CS. IT LEAVES THE RESOLVED
027171,001125: # VECTOR IN RT WITH EASTERLY AND NORMAL COMPONENTS IN RTEAST AND RTNORM RESPECTIVELY, AT THE SAME SCALING. FOR
027172,001126: # CONTINUOUS UPDATING ONLY ONE ENTRY AT EARROT1 IS REQUIRED, WITH SUBSEQUENT ENTRIES AT EARROT2
027173,001127:
027174,001128:
027175,001129:
027176,001130: 25,7540 41775 EARROT1 VXV 1
027177,001131: 25,7541 44776 VSLT
027178,001132: 25,7542 01044 UNITW
027179,001133: 25,7543 01115 RTINIT
027180,001134: 25,7544 00003 2
027181,001135: 25,7545 33123 STORE RTEAST
027182,001136:
027183,001137: 25,7546 47575 NOLOD 1
027184,001138: 25,7547 41622 VXV VSLT
027185,001139: 25,7550 01044 UNITW
027186,001140: 25,7551 00002 1
027187,001141: 25,7552 33131 STORE RTNORM
027188,001142:
027189,001143: 25,7553 72775 EARROT2 STZ 1 # BRANCH TO OVERADAY UNTIL DTEAROT
027190,001144: 25,7554 62746 DDV BOV # LESS THAN ONE SIDEREAL DAY
027191,001145: 25,7555 00123 OVFIND
027192,001146: 25,7556 01145 DTEAROT
027193,001147: 25,7557 13611 1/WIE # TIME FOR ONE SIDEREAL REVOLUTION
027194,001148: 25,7560 13600 OVERADAY
027195,001149: 25,7561 32037 STORE 30D
027196,001150:
027197,001151: 25,7562 47574 NOLOD 2
027198,001152: 25,7563 55132 COS DSU
027199,001153: 25,7564 75776 VXSC
027200,001154: 25,7565 15573 DP2(-1)
027201,001155: 25,7566 01131 RTNORM
027202,001156:
027203,001157: 25,7567 57174 SIN 2
027204,001158: 25,7570 75642 VXSC VAD
027205,001159: 25,7571 50776 VAD
027206,001160: 25,7572 00037 30D
027207,001161: 25,7573 01123 RTEAST
027208,001162: 25,7574 01115 RTINIT
027209,001163: 25,7575 33215 STORE RT
027210,001164:
027211,001165: 25,7576 40576 ITCQ 0
027212,001166:
027213,001167: 25,7577 53775 OVERADAY SIGN 1
027214,001168: 25,7600 65776 BDSU
027215,001169: 25,7601 13611 1/WIE
027216,001170: 25,7602 01145 DTEAROT
027217,001171: 25,7603 01145 DTEAROT
027218,001172: 25,7604 33145 STORE DTEAROT
027219,001173: 25,7605 43776 BPL 0 # GO BACK WITHOUT DISTURBING QPRET.
027220,001174: 25,7606 13611 1/WIE # ANY POSITIVE CONSTANT WILL DO.
027221,001175: 25,7607 13554 EARROT2
027222,001176:
027223,001177: 25,7610 01015 34732 1/WIE 2DEC 0.032098629 # 8.61641000 E4 SECS SCALED AT 2(+28)CS
027224,001178:
027225,001179:
027226,001180: # CONVERSION CONSTANTS FOR FREE FALL INTEGRATION PROGRAM
027227,001181:
027228,001182: 25,7612 20304 23351 SCLRAVMD 2DEC .512
027229,001183: 25,7614 37200 00000 SCLRMDAV 2DEC 1000 B-10
027230,001184: 25,7616 21601 34056 SCLTAVMD 2DEC 4.4384169 B-3
027231,001185: 25,7620 24605 15301 SCLVAVMD 2DEC .64876819
027232,001186: 25,7622 30523 00147 SCLVMDAV 2DEC .770691300
027233,001187:
027234,001188: # C.G. ROTATION ABOUT Y AND Z S/C AXES
027235,001189: 25,7624 01315 23641 CGY 2DEC .0438
027236,001190: 25,7626 00226 27346 2DEC .0092
027237,001191: 25,7630 04072 37340 CGZ 2DEC .1286
027238,001192: 25,7632 01703 14105 2DEC .0588
027239,001193:
027240,001194: # POWERED FLIGHT CONSTANTS. DELCDU SCALED AT KE/2 REVS (KE =A/P GAIN=1.5) EVS (KE =A/P GAIN =1.5)
027241,001195: 25,7634 00134 27361 DELCDU 2DEC 0.00566 # ( =1.02 DEG)
027242,001196: 25,7636 00113 26154 2DEC 0.00462 # ( =0.83 DEG)
027243,001197: 25,7640 00216 33625 2DEC 0.00872 # ( =1.57 DEG)
027244,001198:
027245,001199: 25,7642 00061 03040 ATDT 2DEC 9.589 E-2 B-5
027246,001200: 25,7644 00234 01660 2DEC 30.48 E-2 B-5
027247,001201:
027248,001202: # ROUTINE CALCMANU COMPUTES THE SEQUENCE OF MANUEVERS REQUIRED IN GOING FROM AN INITIAL ATTITUDE DEFINED BY THE
027249,001203: # EULER ANGLES IN THETAD,+1,+2 WHICH ARE THE PRESENT OUTER, MIDDLE, INNER GIMBAL ANGLES, TO AN ATTITUDE DEFINED
027250,001204: # BY THE MATRIX X,Y,ZSCD, THE DESIRED BODY AXES. CALCMANU WILL EXIT WITH A MANEUVER ANGLE IN THETAMAN SCALED AT
027251,001205: # 1 REV, AND THE HALF UNIT VECTOR IN WC. ROTATIONS ARE BASED ON A PITCH/YAW-THEN ROLL POLICY. IF THIS
027252,001206: # POLICY WOULD CAUSE GIMBAL LOCK, A ROLL-PITCH/YAW-ROLL IS ADOPTED. IN EXTREMELY RARE CASES, INVOLVING MANEU-
027253,001207: # VERS FROM ONE GIMBAL LOCK AREA TO THE OTHER, THE POLICY MAY BE PITCH/YAW-ROLL-PITCH/YAW-ROLL, OR EVEN ROLL-
027254,001208: # PITCH/YAW-ROLL-PITCH/YAW-ROLL. IN ALL CASES, IF THE MANEUVER IS A ROLL, ROLLFLAG WILL BE ON. IF THERE IS NO
027255,001209: # MANEUVER REQUIRED,(VEHICLE LESS THAN ABOUT 3 DEGS AWAY FROM DESIRED ATTITUDE), CALCFLAG WILL BEOFF.
027256,001210: # OTHERWISE, CALCFLAG IS ON. CALCMANU PRESUMES THAT INITIAL CONDITIONS AND FINAL CONDITIONS ARE NOT IN GIMBAL LOCK
027257,001211: 26,6000 SETLOC 54000
027258,001212: 26,6000 77576 CALCMANU EXIT 0
027259,001213:
027260,001214: 26,6001 03446 TC FLAG2UP
027261,001215: 26,6002 12000 OCT 12000 # SET BACKFLAG, CALCFLAG
027262,001216:
027263,001217: 26,6003 03460 TC FLAG2DWN
027264,001218: 26,6004 04600 OCT 04600 # REMOVE ROLLFLAG ,NEGFLAG,BEGINFLG
027265,001219:
027266,001220: 26,6005 04000 TC INTPRET
027267,001221:
027268,001222: 26,6006 75575 AXT,1 1
027269,001223: 26,6007 45572 ITA ITC
027270,001224: 26,6010 00007 6
027271,001225: 26,6011 01472 EXITCADR
027272,001226: 26,6012 12013 THETRIG
027273,001227:
027274,001228: 26,6013 76776 ITC 0
027275,001229: 26,6014 12110 CALCSMNB # COMPUTE X,Y,ZNB
027276,001230:
027277,001231: 26,6015 76776 ITC 0
027278,001232: 26,6016 12213 CALCNBSC # COMPUTE X,Y,ZSC
027279,001233:
027280,001234: 26,6017 74575 AXT,2 1
027281,001235: 26,6020 76576 RTB # SET X2 TO 0
027282,001236: 26,6021 00001 0
027283,001237: 26,6022 20264 FRESHPD # SET PD POINTER TO 0
027284,001238:
027285,001239: 26,6023 42774 DOT 2
027286,001240: 26,6024 65132 ABS DSU
027287,001241: 26,6025 43776 BPL
027288,001242: 26,6026 01367 XSC
027289,001243: 26,6027 01411 XSCD
027290,001244: 26,6030 15541 COS3
027291,001245: 26,6031 14077 180/ZERO
027292,001246:
027293,001247: 26,6032 41775 NOT179 VXV 1
027294,001248: 26,6033 73176 UNIT
027295,001249: 26,6034 01367 XSC
027296,001250: 26,6035 01411 XSCD
027297,001251: 26,6036 33323 STORE WC
027298,001252:
027299,001253: 26,6037 65175 ACCEPTWC ABS 1
027300,001254: 26,6040 66616 DSU BPL
027301,001255: 26,6041 01325 WC +2
027302,001256: 26,6042 15543 COS27 # IF WC IS 27 OR LESS DEGS AWAY FROM
027303,001257: 26,6043 15522 GETPTCH # +,- YSM, GIMBAL LOCK IS IMPOSSIBLE
027304,001258:
027305,001259: 26,6044 41775 VXV 1 # PITCH/YAW MAY CAUSE GIMBAL LOCK. VARIOUS
027306,001260: 26,6045 41753 VXV UNIT # TESTS MUST BE MADE
027307,001261: 26,6046 01323 WC
027308,001262: 26,6047 15601 UNITY # MP IS POINT OF CLOSEST APPROACH TO +YSM
027309,001263: 26,6050 01323 WC # MP TO PD AT 0
027310,001264:
027311,001265:
027312,001266: 26,6051 47575 NOLOD 1
027313,001267: 26,6052 41776 VXV
027314,001268: 26,6053 01411 XSCD # MP*XSCD TO PD AT 6
027315,001269:
027316,001270: 26,6054 41775 VXV 1
027317,001271: 26,6055 42616 DOT BPL
027318,001272: 26,6056 00001 0
027319,001273: 26,6057 01367 XSC
027320,001274: 26,6060 77777 - # BRANCH TO BEGINARC IF ARC FROM XSC TO
027321,001275: 26,6061 14334 BEGINARC # XSCD DOES NOT INCLUDE MP OR -MP
027322,001276:
027323,001277: 26,6062 50775 VAD 1
027324,001278: 26,6063 42616 DOT BPL
027325,001279: 26,6064 01367 XSC
027326,001280: 26,6065 01411 XSCD
027327,001281: 26,6066 00001 0
027328,001282: 26,6067 14073 PLUSPOLE
027329,001283:
027330,001284: 26,6070 42576 SWITCH 0
027331,001285: 26,6071 00050 NEGFLAG # -MP IS ON ARC
027332,001286:
027333,001287: 26,6072 76776 PLUSPOLE ITC 0
027334,001288: 26,6073 14172 NORMLIMS
027335,001289:
027336,001290: 26,6074 76776 ITC 0
027337,001291: 26,6075 14311 FILENORM
027338,001292:
027339,001293: 26,6076 42775 180/ZERO DOT 1
027340,001294: 26,6077 73776 BMN
027341,001295: 26,6100 01367 XSC
027342,001296: 26,6101 01411 XSCD
027343,001297: 26,6102 15306 180CASE
027344,001298:
027345,001299:
027346,001300: 26,6103 42773 DOT 3
027347,001301: 26,6104 75622 VXSC VSLT
027348,001302: 26,6105 74633 VSU COMP
027349,001303: 26,6106 73012 UNIT DOT
027350,001304: 26,6107 01425 ZSCD
027351,001305: 26,6110 01367 XSC
027352,001306: 26,6111 01367 XSC
027353,001307: 26,6112 00003 2
027354,001308: 26,6113 01425 ZSCD
027355,001309: 26,6114 01403 ZSC # COSROLL TO PD AT 0 SCALED AT 2(2)
027356,001310:
027357,001311: 26,6115 47575 NOLOD 1
027358,001312: 26,6116 66616 DSU BPL
027359,001313: 26,6117 15541 COS3
027360,001314: 26,6120 14162 CALCSNAP
027361,001315:
027362,001316: 26,6121 41775 VXV 1 # ROLL IS REQUIRED
027363,001317: 26,6122 42776 DOT
027364,001318: 26,6123 01403 ZSC
027365,001319: 26,6124 01425 ZSCD
027366,001320: 26,6125 01367 XSC # XSC.(ZSC*ZSCD) TO PD AT 2
027367,001321:
027368,001322: 26,6126 63775 TSLT 1
027369,001323: 26,6127 61056 ACOS SIGN
027370,001324: 26,6130 00001 0
027371,001325: 26,6131 00002 1
027372,001326: 26,6132 33455 STORE THETAMAN
027373,001327:
027374,001328: 26,6133 65174 ABS 2
027375,001329: 26,6134 66756 DSU BMN
027376,001330: 26,6135 76776 ITC
027377,001331: 26,6136 01371 XSC +2
027378,001332: 26,6137 15545 COS63
027379,001333: 26,6140 14143 NOTEST
027380,001334: 26,6141 15174 ROLLTEST # SHORT ROLL MAY GO THROUGH GIMBAL LOCK
027381,001335:
027382,001336: 26,6142 53775 NOTEST SIGN 1 # ATTACH SIGN OF THETAMAN TO WC
027383,001337: 26,6143 75776 VXSC
027384,001338: 26,6144 21051 NEARONE
027385,001339: 26,6145 01455 THETAMAN
027386,001340: 26,6146 01367 XSC
027387,001341: 26,6147 33323 STORE WC
027388,001342:
027389,001343: 26,6150 65176 ABS 0 # THETAMAN MUST BE +VE FOR MANUJOB
027390,001344: 26,6151 01455 THETAMAN
027391,001345: 26,6152 33455 STORE THETAMAN
027392,001346: 26,6153 77576 EXIT 0
027393,001347:
027394,001348: 26,6154 03446 TC FLAG2UP
027395,001349: 26,6155 04000 OCT 04000 # SET ROLLFLAG
027396,001350:
027397,001351: 26,6156 04000 TC INTPRET
027398,001352:
027399,001353: 26,6157 44576 ITCI 0
027400,001354: 26,6160 01472 EXITCADR # EXIT ON THE ROLL WHEN PITCH/YAW IS OVER
027401,001355:
027402,001356: 26,6161 42575 CALCSNAP SWITCH 1 # WE ARE THERE
027403,001357: 26,6162 76776 ITC
027404,001358: 26,6163 00046 CALCFLAG # REMOVE CALCFLAG
027405,001359: 26,6164 12167 CALCSCNB
027406,001360:
027407,001361: 26,6165 76776 ITC 0
027408,001362: 26,6166 12072 CALCCDU # SET THETAD,S TO CORRECT VALUES
027409,001363:
027410,001364: 26,6167 44576 ITCI 0
027411,001365: 26,6170 01472 EXITCADR # THIS IS THE LAST EXIT FROM CALCMANU
027412,001366:
027413,001367: 26,6171 45574 NORMLIMS ITA 2
027414,001368: 26,6172 76455 RTB AXC,1 # SET PD TO 18
027415,001369: 26,6173 65103 ABS ACOS
027416,001370: 26,6174 01455 THETAMAN # (TEMPORARY STORAGE)
027417,001371: 26,6175 15645 SETPD18
027418,001372: 26,6176 00003 2 # -2 TO X1
027419,001373: 26,6177 00003 2 # C TO 18
027420,001374:
027421,001375: 26,6200 47575 BACKLIM NOLOD 1
027422,001376: 26,6201 65776 BDSU
027423,001377: 26,6202 15557 30DEG # 30-C TO 20 AT 4PI
027424,001378:
027425,001379: 26,6203 55176 COS 0
027426,001380: 26,6204 00025 20D # COS(30-C) TO PD AT 22
027427,001381:
027428,001382: 26,6205 57174 SIN 2
027429,001383: 26,6206 62722 DDV DMP
027430,001384: 26,6207 61072 ACOS TSRT
027431,001385: 26,6210 00025 20D
027432,001386: 26,6211 77777 -
027433,001387: 26,6212 15551 1/TAN33 # (1/TAN33 SCALED AT 2(1) )
027434,001388: 26,6213 00002 1 # OKA TO 22 AT 4PI
027435,001389:
027436,001390: 26,6214 45176 DMOVE 0
027437,001391: 26,6215 15563 90DEG # 90 DEGREES TO 24
027438,001392:
027439,001393: 26,6216 43176 SMOVE 0
027440,001394: 26,6217 00047 X1 # X1 TO 26
027441,001395: 26,6220 45174 DMOVE 2
027442,001396: 26,6221 47056 COMP SIGN
027443,001397: 26,6222 70633 DAD COMP
027444,001398: 26,6223 15563 90DEG # -180 IF X1=-2,0 IF X1=0, TO 24
027445,001399: 26,6224 77777 -
027446,001400: 26,6225 77777 -
027447,001401:
027448,001402: 26,6226 45175 DMOVE 1
027449,001403: 26,6227 43433 TEST COMP
027450,001404: 26,6230 15563 90DEG # 90DEG SCALED AT 4PI
027451,001405: 26,6231 00050 NEGFLAG
027452,001406: 26,6232 14235 POSPOLE
027453,001407: 26,6233 32033 STORE 26D
027454,001408:
027455,001409: # +90 IN MPAC IF FLAG=0
027456,001410: # -90 IN MPAC IF FLAG=1
027457,001411: 26,6234 47575 POSPOLE NOLOD 1
027458,001412: 26,6235 53776 SIGN
027459,001413: 26,6236 01325 WC +2
027460,001414:
027461,001415: # +90 IN 24 IF
027462,001416: # A) FLAG=0, WC +2 POS
027463,001417: # B) FLAG=1, WC +2 NEG
027464,001418: # -90 IN 24 IF
027465,001419: # A) FLAG=0, WC +2 NEG
027466,001420: # B) FLAG=1, WC +2 POS
027467,001421: 26,6237 47575 NOLOD 1
027468,001422: 26,6240 66776 DSU
027469,001423: 26,6241 00031 24D # 180J-90SIGMIM TO 28
027470,001424:
027471,001425: 26,6242 43175 SMOVE 1
027472,001426: 26,6243 47776 BZE
027473,001427: 26,6244 00047 X1
027474,001428: 26,6245 14273 CNEGLIMS # TO CNEGLIMS IF X1 IS ZERO
027475,001429:
027476,001430: 26,6246 66776 DSU 0
027477,001431: 26,6247 00035 28D
027478,001432: 26,6250 00027 22D
027479,001433: 26,6251 32007 STORE 6 # NBL1 TO 6, SCALED AT 4PI
027480,001434:
027481,001435: 26,6252 70776 DAD 0
027482,001436: 26,6253 00027 22D
027483,001437: 26,6254 32010 STORE 7 # NEL1 TO 7
027484,001438:
027485,001439: 26,6255 66775 DSU 1
027486,001440: 26,6256 43776 BPL
027487,001441: 26,6257 00023 18D
027488,001442: 26,6260 15561 3DEG
027489,001443: 26,6261 14307 ENDNORMS
027490,001444:
027491,001445: 26,6262 75575 AXT,1 1
027492,001446: 26,6263 76433 RTB COMP
027493,001447: 26,6264 00001 0 # SET X1 TO 0
027494,001448: 26,6265 15651 SETPD20
027495,001449: 26,6266 00023 18D # COMPLEMENT C
027496,001450: 26,6267 32023 STORE 18D
027497,001451:
027498,001452: 26,6270 76776 ITC 0
027499,001453: 26,6271 14201 BACKLIM # BACKLIMITS EXIST IF C LESS THAN 3
027500,001454:
027501,001455: 26,6272 66776 CNEGLIMS DSU 0
027502,001456: 26,6273 00035 28D
027503,001457: 26,6274 00027 22D
027504,001458: 26,6275 32011 STORE 8D # NBL0 TO 8
027505,001459:
027506,001460: 26,6276 70774 DAD 2
027507,001461: 26,6277 73535 LXA,1 SXA,1
027508,001462: 26,6300 75576 AXT,1
027509,001463: 26,6301 00035 28D
027510,001464: 26,6302 00027 22D
027511,001465: 26,6303 00116 MPAC
027512,001466: 26,6304 00012 9D # NEL0 TO 9, PROTECTING 10
027513,001467: 26,6305 00001 0 # RESET X1 TO 0
027514,001468:
027515,001469: 26,6306 44576 ENDNORMS ITCI 0 # END OF NORMLIMS CALCULATIONS
027516,001470: 26,6307 01455 THETAMAN # END OF NORMLIMS CALCS
027517,001471:
027518,001472: 26,6310 43176 FILENORM SMOVE 0
027519,001473: 26,6311 00007 6D # 6 INTO 10 IF X1=0 ,OR
027520,001474: 26,6312 34025 STORE 10D,1 # 6 INTO 12 IF X1=-2
027521,001475:
027522,001476: 26,6313 43175 SMOVE 1 # 7 INTO 11 IF X1=0 , OR
027523,001477: 26,6314 62576 INCR,2 # 7 INTO 13 IF X1=-2
027524,001478: 26,6315 00010 7
027525,001479: 26,6316 77776 - 2 # MOVE LIMIT LIST POINTER BY -2 (TO -2)
027526,001480: 26,6317 34027 STORE 11D,1
027527,001481:
027528,001482: 26,6320 43175 SMOVE 1
027529,001483: 26,6321 73611 BMN SWITCH
027530,001484: 26,6322 00047 X1
027531,001485: 26,6323 14334 BEGINARC
027532,001486: 26,6324 00044 BACKFLAG # SET BACKFLAG
027533,001487:
027534,001488: 26,6325 43176 SMOVE 0
027535,001489: 26,6326 00011 8D
027536,001490: 26,6327 32015 STORE 12D # 8 INTO 12 IF X1=0
027537,001491:
027538,001492: 26,6330 43176 SMOVE 0
027539,001493: 26,6331 00012 9D
027540,001494: 26,6332 32016 STORE 13D # 9 INTO 13 IF X1=0
027541,001495:
027542,001496:
027543,001497: 26,6333 75575 BEGINARC AXT,1 1
027544,001498: 26,6334 42576 SWITCH # SET X1 TO 0
027545,001499: 26,6335 00001 0
027546,001500: 26,6336 00051 BEGINFLG # SET BEGINFLG
027547,001501:
027548,001502: 26,6337 76575 ENDCHEK RTB 1
027549,001503: 26,6340 77576 EXIT
027550,001504: 26,6341 15645 SETPD18
027551,001505:
027552,001506: 26,6342 03460 TC FLAG2DWN
027553,001507: 26,6343 00400 OCT 00400 # REMOVE NEGFLAG
027554,001508:
027555,001509: 26,6344 04000 TC INTPRET
027556,001510:
027557,001511: 26,6345 64175 ABS* 1
027558,001512: 26,6346 65616 BDSU BPL
027559,001513: 26,6347 02761 XSC +2,1
027560,001514: 26,6350 15545 COS63 # IS END CLOSE TO A POLE Q.
027561,001515: 26,6351 14657 OVERYET # BRANCH TO OVERYET IF NOT
027562,001516:
027563,001517: 26,6352 43575 SETWARN TEST 1
027564,001518: 26,6353 42576 SWITCH
027565,001519: 26,6354 00051 BEGINFLG
027566,001520: 26,6355 14360 DONTSET # SET ROLLFLAG IF BEGINNING OF ARC NEAR
027567,001521: 26,6356 00045 ROLLFLAG # LOCK
027568,001522:
027569,001523: 26,6357 44175 DONTSET DMOVE* 1
027570,001524: 26,6360 43611 BPL SWITCH
027571,001525: 26,6361 02761 XSC +2,1
027572,001526: 26,6362 14365 SOMESUN
027573,001527: 26,6363 00050 NEGFLAG
027574,001528:
027575,001529: 26,6364 74173 SOMESUN VMOVE* 3
027576,001530: 26,6365 41604 VXV VXV*
027577,001531: 26,6366 73033 UNIT COMP
027578,001532: 26,6367 43433 TEST COMP
027579,001533: 26,6370 02755 XSC,1
027580,001534: 26,6371 15601 UNITY
027581,001535: 26,6372 02755 XSC,1
027582,001536: 26,6373 00050 NEGFLAG
027583,001537: 26,6374 14377 POSP1
027584,001538: 26,6375 32023 STORE 18D
027585,001539:
027586,001540: 26,6376 73575 POSP1 LXA,1 1
027587,001541: 26,6377 47576 NOLOD
027588,001542: 26,6400 00047 X1
027589,001543:
027590,001544: 26,6401 74174 VMOVE* 2
027591,001545: 26,6402 41612 VXV DOT
027592,001546: 26,6403 43776 BPL
027593,001547: 26,6404 02755 XSC,1
027594,001548: 26,6405 01323 WC
027595,001549: 26,6406 00023 18D
027596,001550: 26,6407 14416 POSP2
027597,001551:
027598,001552: 26,6410 43175 SMOVE 1
027599,001553: 26,6411 73772 BMN ITC
027600,001554: 26,6412 00047 X1
027601,001555: 26,6413 14657 OVERYET
027602,001556: 26,6414 14422 POSP3
027603,001557:
027604,001558: 26,6415 43175 POSP2 SMOVE 1
027605,001559: 26,6416 47776 BZE
027606,001560: 26,6417 00047 X1
027607,001561: 26,6420 14657 OVERYET
027608,001562:
027609,001563: 26,6421 64176 POSP3 ABS* 0
027610,001564: 26,6422 02761 XSC +2,1
027611,001565:
027612,001566: 26,6423 43174 SMOVE 2
027613,001567: 26,6424 66615 DSU TEST
027614,001568: 26,6425 47176 COMP
027615,001569: 26,6426 00050 X2
027616,001570: 26,6427 15567 DP2(-13)
027617,001571: 26,6430 00051 BEGINFLG
027618,001572: 26,6431 14434 +2
027619,001573: 26,6432 32051 STORE S1
027620,001574:
027621,001575: 26,6433 47576 NOLOD 0
027622,001576: 26,6434 32051 STORE S1
027623,001577:
027624,001578: 26,6435 42776 DOT 0
027625,001579: 26,6436 01323 WC
027626,001580: 26,6437 00023 18D # TO PD TO SIGN AR IN NEXT EQUATION
027627,001581: 26,6440 33433 STORE DTEMP1
027628,001582:
027629,001583: 26,6441 56775 TSRT 1
027630,001584: 26,6442 66756 DSU BMN
027631,001585: 26,6443 00031 24D
027632,001586: 26,6444 00002 1
027633,001587: 26,6445 15541 COS3
027634,001588: 26,6446 14461 POSP4
027635,001589:
027636,001590: 26,6447 43176 SMOVE 0
027637,001591: 26,6450 00047 X1
027638,001592:
027639,001593: 26,6451 53776 SIGN 0
027640,001594: 26,6452 01433 DTEMP1
027641,001595: 26,6453 33433 STORE DTEMP1
027642,001596:
027643,001597: 26,6454 76776 ITC 0
027644,001598: 26,6455 14172 NORMLIMS
027645,001599:
027646,001600: 26,6456 76776 ITC 0
027647,001601: 26,6457 14636 ALLSHADE
027648,001602:
027649,001603: 26,6460 61175 POSP4 ACOS 1
027650,001604: 26,6461 56776 TSRT
027651,001605: 26,6462 00031 24D
027652,001606: 26,6463 00002 1 # C/2 TO 26 SCALED AT 2PI
027653,001607:
027654,001608: 26,6464 47575 NOLOD 1
027655,001609: 26,6465 66673 DSU SIN
027656,001610: 26,6466 15553 1.5DEG # SIN(C/2-1.5) TO 28
027657,001611:
027658,001612: 26,6467 66775 DSU 1
027659,001613: 26,6470 57122 SIN DMP
027660,001614: 26,6471 15555 31.5DEG
027661,001615: 26,6472 00033 26D # SIN(C/2-1.5)SIN,31.5-C/2) TO 28
027662,001616:
027663,001617: 26,6473 70775 DAD 1
027664,001618: 26,6474 57176 SIN
027665,001619: 26,6475 00033 26D # SIN(C/2+1.5) TO PD AT 30
027666,001620: 26,6476 15553 1.5DEG
027667,001621:
027668,001622: 26,6477 70774 DAD 2
027669,001623: 26,6500 57122 SIN DMP
027670,001624: 26,6501 61653 BDDV SQRT
027671,001625: 26,6502 00033 26D
027672,001626: 26,6503 15555 31.5DEG
027673,001627: 26,6504 32045 STORE VACZ
027674,001628:
027675,001629: 26,6505 45176 DMOVE 0
027676,001630: 26,6506 21051 NEARONE
027677,001631: 26,6507 32041 STORE VACX
027678,001632:
027679,001633: 26,6510 76575 RTB 1 # PD SET TO AVOID CONFLICT WITH ARCTAN
027680,001634: 26,6511 76526 RTB BDSU
027681,001635: 26,6512 15643 SETPD6
027682,001636: 26,6513 20511 ARCTAN
027683,001637: 26,6514 15565 DP2(-2)
027684,001638: 26,6515 32033 STORE 26D # SA AT 26 SCALED AT 4PI
027685,001639:
027686,001640: 26,6516 74172 VMOVE* 4
027687,001641: 26,6517 41753 VXV UNIT
027688,001642: 26,6520 42633 DOT COMP
027689,001643: 26,6521 63703 TSLT ACOS
027690,001644: 26,6522 53672 SIGN TSRT
027691,001645: 26,6523 02755 XSC,1 # POINT.UNIT(WC*XSC,1)
027692,001646: 26,6524 01323 WC
027693,001647: 26,6525 00023 18D
027694,001648: 26,6526 00002 1
027695,001649: 26,6527 01433 DTEMP1
027696,001650: 26,6530 00002 1 # AR TO THETAMAN, SCALED AT 4PI
027697,001651: 26,6531 33455 STORE THETAMAN
027698,001652:
027699,001653: 26,6532 66776 DSU 0
027700,001654: 26,6533 01455 THETAMAN
027701,001655: 26,6534 00033 26D
027702,001656: 26,6535 34032 STORE 12D,2 # AR-SA
027703,001657:
027704,001658: 26,6536 76575 RTB 1
027705,001659: 26,6537 70776 DAD
027706,001660: 26,6540 15647 SETPD28
027707,001661: 26,6541 01455 THETAMAN
027708,001662: 26,6542 34034 STORE 13D,2 # AR+SA
027709,001663:
027710,001664: 26,6543 41773 VXV 3
027711,001665: 26,6544 62406 INCR,2 VXV
027712,001666: 26,6545 73012 UNIT DOT
027713,001667: 26,6546 65116 ABS TSLT
027714,001668: 26,6547 00001 0 # ACOS(ABS(MP.UNITY)) TO 28
027715,001669: 26,6550 15601 UNITY
027716,001670: 26,6551 77776 -2
027717,001671: 26,6552 00001 0
027718,001672: 26,6553 00023 18D
027719,001673: 26,6554 00003 2
027720,001674:
027721,001675: 26,6555 51174 DSQ 2
027722,001676: 26,6556 65653 BDSU SQRT
027723,001677: 26,6557 64722 DMP DMP
027724,001678: 26,6560 00031 24D
027725,001679: 26,6561 15565 SIN30
027726,001680: 26,6562 15565 SIN30
027727,001681:
027728,001682: 26,6563 64776 DMP 0
027729,001683: 26,6564 15547 COS30
027730,001684: 26,6565 00031 24D
027731,001685:
027732,001686: 26,6566 66776 DSU 0
027733,001687: 26,6567 00035 28D
027734,001688: 26,6570 00033 26D
027735,001689: 26,6571 32021 STORE 16D # COSB TO 16 AT 2(2)
027736,001690:
027737,001691: 26,6572 70775 DAD 1
027738,001692: 26,6573 65616 BDSU BPL
027739,001693: 26,6574 77777 -
027740,001694: 26,6575 77777 -
027741,001695: 26,6576 15571 C33
027742,001696: 26,6577 14657 OVERYET # IF C33-COSA POS
027743,001697:
027744,001698: 26,6600 43176 SMOVE 0
027745,001699: 26,6601 00047 X1
027746,001700:
027747,001701: 26,6602 53776 SIGN 0
027748,001702: 26,6603 01433 DTEMP1
027749,001703: 26,6604 33433 STORE DTEMP1
027750,001704:
027751,001705: 26,6605 76776 ITC 0
027752,001706: 26,6606 14172 NORMLIMS
027753,001707:
027754,001708: 26,6607 66775 DSU 1
027755,001709: 26,6610 73776 BMN
027756,001710: 26,6611 15571 C33
027757,001711: 26,6612 00021 16D
027758,001712: 26,6613 14636 ALLSHADE
027759,001713: 26,6614 44176 DMOVE* 0
027760,001714: 26,6615 00030 11D,2 # 11D,2 TO PD FOR PROTECTION
027761,001715:
027762,001716: 26,6616 43776 BPL 0
027763,001717: 26,6617 01433 DTEMP1
027764,001718: 26,6620 14631 11MANU
027765,001719:
027766,001720: 26,6621 43176 SMOVE 0
027767,001721: 26,6622 00007 6 # NBL1 REPLACES AR-SA
027768,001722: 26,6623 34026 STORE 10D,2
027769,001723:
027770,001724: 26,6624 45176 DMOVE 0
027771,001725: 26,6625 34030 STORE 11D,2 # NOW REINSERT 11,2
027772,001726:
027773,001727: 26,6626 76776 ITC 0
027774,001728: 26,6627 14657 OVERYET
027775,001729:
027776,001730: 26,6630 43176 11MANU SMOVE 0
027777,001731: 26,6631 00010 7
027778,001732: 26,6632 34030 STORE 11D,2
027779,001733:
027780,001734: 26,6633 76776 ITC 0
027781,001735: 26,6634 14657 OVERYET
027782,001736:
027783,001737: 26,6635 43775 ALLSHADE BPL 1
027784,001738: 26,6636 45176 DMOVE
027785,001739: 26,6637 01433 DTEMP1
027786,001740: 26,6640 14651 12MANU
027787,001741: 26,6641 00007 6
027788,001742: 26,6642 34026 STORE 10D,2
027789,001743:
027790,001744: 26,6643 43176 SMOVE 0
027791,001745: 26,6644 00012 9D
027792,001746: 26,6645 34030 STORE 11D,2
027793,001747:
027794,001748: 26,6646 76776 ITC 0
027795,001749: 26,6647 14657 OVERYET
027796,001750:
027797,001751: 26,6650 43176 12MANU SMOVE 0
027798,001752: 26,6651 00011 8D
027799,001753: 26,6652 34026 STORE 10D,2
027800,001754:
027801,001755: 26,6653 43176 SMOVE 0
027802,001756: 26,6654 00010 7
027803,001757: 26,6655 34030 STORE 11D,2
027804,001758:
027805,001759: 26,6656 43574 OVERYET TEST 2 # ENDCHEK IS DONE TWICE, FOR THE
027806,001760: 26,6657 53411 AXC,1 SWITCH # BEGINNING AND FOR THE END OF THE ARC
027807,001761: 26,6660 76776 ITC
027808,001762: 26,6661 00051 BEGINFLG
027809,001763: 26,6662 14667 FINISHUP
027810,001764: 26,6663 00023 18D # -18 TO X1
027811,001765: 26,6664 00051 BEGINFLG # REMOVE BEGINFLG
027812,001766: 26,6665 14340 ENDCHEK # GO BACK, GET LIMITS FOR END OF ARC
027813,001767:
027814,001768: 26,6666 43175 FINISHUP SMOVE 1
027815,001769: 26,6667 47776 BZE
027816,001770: 26,6670 00050 X2
027817,001771: 26,6671 15522 GETPTCH # NO LIMITS DETECTED
027818,001772:
027819,001773: 26,6672 76575 RTB 1
027820,001774: 26,6673 41776 VXV
027821,001775: 26,6674 15651 SETPD20
027822,001776: 26,6675 01477 XNB
027823,001777: 26,6676 01367 XSC # XNB*XSC TO PD AT 20
027824,001778:
027825,001779: 26,6677 41775 VXV 1
027826,001780: 26,6700 42776 DOT
027827,001781: 26,6701 01323 WC
027828,001782: 26,6702 01367 XSC
027829,001783: 26,6703 00025 20D
027830,001784: 26,6704 32023 STORE 18D # (WC*XSC).(XNB*XSC) TO 18
027831,001785:
027832,001786: 26,6705 73173 UNIT 3
027833,001787: 26,6706 42633 DOT COMP
027834,001788: 26,6707 63703 TSLT ACOS
027835,001789: 26,6710 53672 SIGN TSRT
027836,001790: 26,6711 77777 -
027837,001791: 26,6712 01323 WC
027838,001792: 26,6713 00002 1
027839,001793: 26,6714 77777 -
027840,001794: 26,6715 00002 1
027841,001795: 26,6716 34032 STORE 12D,2 # SCALED AT 4PI
027842,001796:
027843,001797: 26,6717 43175 SMOVE 1
027844,001798: 26,6720 52565 AXC,2 AXT,1
027845,001799: 26,6721 00050 X2
027846,001800: 26,6722 00001 0
027847,001801: 26,6723 00001 0 # 0 INTO X2 AND X1
027848,001802: 26,6724 32037 STORE 30D # SAVE X2
027849,001803:
027850,001804: 26,6725 42175 22MANU SMOVE* 1
027851,001805: 26,6726 66776 DSU
027852,001806: 26,6727 00034 13D,2
027853,001807: 26,6730 00015 12D
027854,001808:
027855,001809: 26,6731 47575 23MANU NOLOD 1
027856,001810: 26,6732 66616 DSU BPL
027857,001811: 26,6733 15573 360DEG
027858,001812: 26,6734 14732 23MANU
027859,001813:
027860,001814: 26,6735 47575 20MANU NOLOD 1
027861,001815: 26,6736 70756 DAD BMN
027862,001816: 26,6737 15573 360DEG
027863,001817: 26,6740 14736 20MANU
027864,001818: 26,6741 34001 STORE 0,1
027865,001819:
027866,001820: 26,6742 73575 LXA,1 1
027867,001821: 26,6743 62515 INCR,2 INCR,1
027868,001822: 26,6744 00047 X1
027869,001823: 26,6745 77777 -1
027870,001824: 26,6746 77776 -2
027871,001825:
027872,001826: 26,6747 43175 SMOVE 1
027873,001827: 26,6750 65756 BDSU BMN
027874,001828: 26,6751 00050 X2
027875,001829: 26,6752 00037 30D
027876,001830: 26,6753 14726 22MANU
027877,001831:
027878,001832: 26,6754 70775 DAD 1
027879,001833: 26,6755 47776 BZE
027880,001834: 26,6756 00037 30D
027881,001835: 26,6757 15567 DP2(-13)
027882,001836: 26,6760 15270 EZCASE
027883,001837:
027884,001838: 26,6761 66775 DSU 1
027885,001839: 26,6762 73776 BMN
027886,001840: 26,6763 00005 4
027887,001841: 26,6764 00001 0
027888,001842: 26,6765 15044 30MANU
027889,001843:
027890,001844: 26,6766 66775 DSU 1
027891,001845: 26,6767 73776 BMN
027892,001846: 26,6770 00003 2
027893,001847: 26,6771 00001 0
027894,001848: 26,6772 15017 31MANU
027895,001849:
027896,001850: 26,6773 66775 DSU 1
027897,001851: 26,6774 73776 BMN
027898,001852: 26,6775 00003 2
027899,001853: 26,6776 00005 4
027900,001854: 26,6777 15432 SPLITMNU
027901,001855:
027902,001856: 26,7000 66775 DSU 1
027903,001857: 26,7001 73776 BMN
027904,001858: 26,7002 00007 6
027905,001859: 26,7003 00001 0
027906,001860: 26,7004 15522 GETPTCH
027907,001861:
027908,001862: 26,7005 43574 TEST 2
027909,001863: 26,7006 56732 TSRT DSU
027910,001864: 26,7007 76776 ITC
027911,001865: 26,7010 00044 BACKFLAG # (BACKFLAG DOWN MEANS DO BACKTEST
027912,001866: 26,7011 15253 BACKTEST
027913,001867: 26,7012 00001 0
027914,001868: 26,7013 00002 1
027915,001869: 26,7014 00007 6
027916,001870: 26,7015 15140 40MANU
027917,001871:
027918,001872: 26,7016 66775 31MANU DSU 1
027919,001873: 26,7017 73776 BMN
027920,001874: 26,7020 00007 6
027921,001875: 26,7021 00001 0
027922,001876: 26,7022 15036 33MANU
027923,001877:
027924,001878: 26,7023 43574 333MANU TEST 2
027925,001879: 26,7024 70672 DAD TSRT
027926,001880: 26,7025 66772 DSU ITC
027927,001881: 26,7026 00044 BACKFLAG
027928,001882: 26,7027 15253 BACKTEST
027929,001883: 26,7030 00001 0
027930,001884: 26,7031 00003 2
027931,001885: 26,7032 00002 1
027932,001886: 26,7033 00007 6
027933,001887: 26,7034 15140 40MANU
027934,001888:
027935,001889: 26,7035 66775 33MANU DSU 1
027936,001890: 26,7036 73772 BMN ITC
027937,001891: 26,7037 00007 6
027938,001892: 26,7040 00003 2
027939,001893: 26,7041 15024 333MANU
027940,001894: 26,7042 15522 GETPTCH
027941,001895:
027942,001896: 26,7043 66775 30MANU DSU 1
027943,001897: 26,7044 73776 BMN
027944,001898: 26,7045 00003 2
027945,001899: 26,7046 00001 0
027946,001900: 26,7047 15067 35MANU
027947,001901:
027948,001902: 26,7050 66775 DSU 1
027949,001903: 26,7051 73776 BMN
027950,001904: 26,7052 00007 6
027951,001905: 26,7053 00005 4
027952,001906: 26,7054 15522 GETPTCH
027953,001907:
027954,001908: 26,7055 43574 38MANU TEST 2
027955,001909: 26,7056 56732 TSRT DSU
027956,001910: 26,7057 76776 ITC
027957,001911: 26,7060 00044 BACKFLAG
027958,001912: 26,7061 15253 BACKTEST
027959,001913: 26,7062 00005 4
027960,001914: 26,7063 00002 1
027961,001915: 26,7064 00007 6
027962,001916: 26,7065 15140 40MANU
027963,001917:
027964,001918: 26,7066 66775 35MANU DSU 1
027965,001919: 26,7067 73776 BMN
027966,001920: 26,7070 00003 2
027967,001921: 26,7071 00005 4
027968,001922: 26,7072 15110 36MANU
027969,001923:
027970,001924: 26,7073 66775 DSU 1
027971,001925: 26,7074 73776 BMN
027972,001926: 26,7075 00007 6
027973,001927: 26,7076 00003 2
027974,001928: 26,7077 15122 37MANU
027975,001929:
027976,001930: 26,7100 66775 DSU 1
027977,001931: 26,7101 43776 BPL
027978,001932: 26,7102 00007 6
027979,001933: 26,7103 00001 0
027980,001934: 26,7104 15056 38MANU
027981,001935:
027982,001936: 26,7105 76776 ITC 0
027983,001937: 26,7106 15522 GETPTCH
027984,001938:
027985,001939: 26,7107 43574 36MANU TEST 2
027986,001940: 26,7110 70672 DAD TSRT
027987,001941: 26,7111 66772 DSU ITC
027988,001942: 26,7112 00044 BACKFLAG
027989,001943: 26,7113 15253 BACKTEST
027990,001944: 26,7114 00005 4
027991,001945: 26,7115 00003 2
027992,001946: 26,7116 00002 1
027993,001947: 26,7117 00007 6
027994,001948: 26,7120 15140 40MANU
027995,001949:
027996,001950: 26,7121 66775 37MANU DSU 1
027997,001951: 26,7122 73776 BMN
027998,001952: 26,7123 00007 6
027999,001953: 26,7124 00005 4
028000,001954: 26,7125 15522 GETPTCH
028001,001955:
028002,001956: 26,7126 43574 TEST 2
028003,001957: 26,7127 56732 TSRT DSU
028004,001958: 26,7130 76776 ITC
028005,001959: 26,7131 00044 BACKFLAG
028006,001960: 26,7132 15253 BACKTEST
028007,001961: 26,7133 00005 4
028008,001962: 26,7134 00002 1
028009,001963: 26,7135 00007 6
028010,001964: 26,7136 15140 40MANU
028011,001965:
028012,001966: 26,7137 47574 40MANU NOLOD 2 # ROLL IS IN MPAC,MPAC +1,SCALED AT 4PI
028013,001967: 26,7140 66756 DSU BMN
028014,001968: 26,7141 66772 DSU ITC
028015,001969: 26,7142 15565 DP2(-2)
028016,001970: 26,7143 15147 41MANU
028017,001971: 26,7144 15565 DP2(-2)
028018,001972: 26,7145 15161 42MANU
028019,001973:
028020,001974: 26,7146 47574 41MANU NOLOD 2
028021,001975: 26,7147 70616 DAD BPL
028022,001976: 26,7150 70772 DAD ITC
028023,001977: 26,7151 15573 360DEG
028024,001978: 26,7152 15156 43MANU
028025,001979: 26,7153 15565 DP2(-2)
028026,001980: 26,7154 15161 42MANU
028027,001981:
028028,001982: 26,7155 47575 43MANU NOLOD 1
028029,001983: 26,7156 66776 DSU
028030,001984: 26,7157 15565 DP2(-2)
028031,001985:
028032,001986: 26,7160 47575 42MANU NOLOD 1
028033,001987: 26,7161 63776 TSLT
028034,001988: 26,7162 00002 1
028035,001989: 26,7163 33455 STORE THETAMAN # ROLL IN THETAMAN, SCALED AT 2PI
028036,001990:
028037,001991: 26,7164 43576 TEST 0
028038,001992: 26,7165 00045 ROLLFLAG # IF ROLLFLAG ISNT ON
028039,001993: 26,7166 15413 DONE # WE ARE DONE
028040,001994:
028041,001995: 26,7167 76776 ITC 0
028042,001996: 26,7170 15174 ROLLTEST # SHORT WAY ROLL MAY HIT GIMBAL LOCK
028043,001997:
028044,001998: 26,7171 76776 ITC 0
028045,001999: 26,7172 15413 DONE
028046,002000:
028047,002001: 26,7173 76574 ROLLTEST RTB 2
028048,002002: 26,7174 41606 VXV VXV
028049,002003: 26,7175 73176 UNIT
028050,002004: 26,7176 20264 FRESHPD
028051,002005: 26,7177 01367 XSC
028052,002006: 26,7200 01477 XNB
028053,002007: 26,7201 01367 XSC # TEMP1 TO DP AT 0
028054,002008:
028055,002009: 26,7202 53774 SIGN 2
028056,002010: 26,7203 75606 VXSC VXV
028057,002011: 26,7204 41753 VXV UNIT
028058,002012: 26,7205 21051 NEARONE
028059,002013: 26,7206 01371 XSC +2
028060,002014: 26,7207 01367 XSC
028061,002015: 26,7210 15601 UNITY
028062,002016: 26,7211 01367 XSC
028063,002017:
028064,002018: 26,7212 42775 DOT 1
028065,002019: 26,7213 63703 TSLT ACOS
028066,002020: 26,7214 00001 0
028067,002021: 26,7215 00007 6
028068,002022: 26,7216 00002 1
028069,002023: 26,7217 32021 STORE 16D
028070,002024:
028071,002025: 26,7220 65175 ABS 1
028072,002026: 26,7221 66756 DSU BMN
028073,002027: 26,7222 01455 THETAMAN
028074,002028: 26,7223 00021 16D
028075,002029: 26,7224 15252 ENDTST
028076,002030:
028077,002031: 26,7225 75174 VMOVE 2
028078,002032: 26,7226 41612 VXV DOT
028079,002033: 26,7227 73776 BMN
028080,002034: 26,7230 77777 -
028081,002035: 26,7231 77777 -
028082,002036: 26,7232 01367 XSC
028083,002037: 26,7233 15244 50MANU
028084,002038:
028085,002039: 26,7234 45175 DMOVE 1
028086,002040: 26,7235 43742 BPL DAD
028087,002041: 26,7236 01455 THETAMAN
028088,002042: 26,7237 15252 ENDTST
028089,002043: 26,7240 21051 NEARONE
028090,002044: 26,7241 33455 STORE THETAMAN
028091,002045:
028092,002046: 26,7242 40576 ITCQ 0
028093,002047:
028094,002048: 26,7243 45175 50MANU DMOVE 1
028095,002049: 26,7244 73732 BMN DSU
028096,002050: 26,7245 01455 THETAMAN
028097,002051: 26,7246 15252 ENDTST
028098,002052: 26,7247 21051 NEARONE
028099,002053: 26,7250 33455 STORE THETAMAN
028100,002054:
028101,002055: 26,7251 40576 ENDTST ITCQ 0
028102,002056:
028103,002057:
028104,002058: 26,7252 72575 BACKTEST LXA,2 1
028105,002059: 26,7253 42576 SWITCH
028106,002060: 26,7254 00037 30D # RESET SAVED X2
028107,002061: 26,7255 00044 BACKFLAG # TURN BACKFLAG ON (DONT DO AGAIN)
028108,002062:
028109,002063: 26,7256 43176 SMOVE 0
028110,002064: 26,7257 00013 10D
028111,002065: 26,7260 32015 STORE 12D
028112,002066:
028113,002067: 26,7261 73575 LXA,1 1
028114,002068: 26,7262 67576 SXA,1
028115,002069: 26,7263 00014 11D
028116,002070: 26,7264 00016 13D
028117,002071:
028118,002072: 26,7265 76776 ITC 0
028119,002073: 26,7266 14667 FINISHUP
028120,002074:
028121,002075: 26,7267 66775 EZCASE DSU 1
028122,002076: 26,7270 73776 BMN
028123,002077: 26,7271 00003 2
028124,002078: 26,7272 00001 0
028125,002079: 26,7273 15522 GETPTCH # NO ROLL REQ,D
028126,002080:
028127,002081: 26,7274 43574 TEST 2
028128,002082: 26,7275 56732 TSRT DSU
028129,002083: 26,7276 76776 ITC
028130,002084: 26,7277 00044 BACKFLAG
028131,002085: 26,7300 15253 BACKTEST
028132,002086: 26,7301 00001 0
028133,002087: 26,7302 00002 1
028134,002088: 26,7303 00003 2
028135,002089: 26,7304 15140 40MANU
028136,002090:
028137,002091: 26,7305 65175 180CASE ABS 1
028138,002092: 26,7306 65756 BDSU BMN
028139,002093: 26,7307 01371 XSC +2
028140,002094: 26,7310 15547 COS30
028141,002095: 26,7311 15375 NOGIMTST
028142,002096:
028143,002097: 26,7312 41776 VXV 0
028144,002098: 26,7313 01367 XSC
028145,002099: 26,7314 15601 UNITY
028146,002100:
028147,002101: 26,7315 42776 DOT 0
028148,002102: 26,7316 01411 XSCD
028149,002103: 26,7317 00001 0
028150,002104:
028151,002105: 26,7320 53774 SIGN 2
028152,002106: 26,7321 75606 VXSC VXV
028153,002107: 26,7322 73176 UNIT
028154,002108: 26,7323 21051 NEARONE
028155,002109: 26,7324 77777 -
028156,002110: 26,7325 01367 XSC
028157,002111: 26,7326 33323 STORE WC
028158,002112:
028159,002113: 26,7327 65175 ABS 1
028160,002114: 26,7330 66616 DSU BPL
028161,002115: 26,7331 01325 WC +2
028162,002116: 26,7332 15543 COS27
028163,002117: 26,7333 15522 GETPTCH
028164,002118:
028165,002119: 26,7334 41776 VXV 0
028166,002120: 26,7335 01323 WC
028167,002121: 26,7336 01367 XSC
028168,002122:
028169,002123: 26,7337 41775 VXV 1
028170,002124: 26,7340 41753 VXV UNIT
028171,002125: 26,7341 01367 XSC
028172,002126: 26,7342 01477 XNB
028173,002127: 26,7343 01367 XSC
028174,002128:
028175,002129: 26,7344 42775 DOT 1
028176,002130: 26,7345 63776 TSLT
028177,002131: 26,7346 00007 6
028178,002132: 26,7347 00001 0
028179,002133: 26,7350 00003 2
028180,002134: 26,7351 32015 STORE 12D
028181,002135:
028182,002136: 26,7352 75175 VMOVE 1
028183,002137: 26,7353 41612 VXV DOT
028184,002138: 26,7354 77777 -
028185,002139: 26,7355 77777 -
028186,002140: 26,7356 01367 XSC
028187,002141:
028188,002142: 26,7357 77576 EXIT 0
028189,002143:
028190,002144: 26,7360 03446 TC FLAG2UP
028191,002145: 26,7361 04000 OCT 04000
028192,002146:
028193,002147: 26,7362 04000 TC INTPRET
028194,002148: 26,7363 65174 ABS 2
028195,002149: 26,7364 61056 ACOS SIGN
028196,002150: 26,7365 53776 SIGN
028197,002151: 26,7366 00015 12D
028198,002152: 26,7367 00015 12D
028199,002153: 26,7370 77777 -
028200,002154: 26,7371 33455 STORE THETAMAN
028201,002155:
028202,002156: 26,7372 76776 ITC 0
028203,002157: 26,7373 15413 DONE
028204,002158:
028205,002159: 26,7374 41775 NOGIMTST VXV 1
028206,002160: 26,7375 73176 UNIT
028207,002161: 26,7376 01367 XSC
028208,002162: 26,7377 01477 XNB
028209,002163: 26,7400 33323 STORE WC
028210,002164:
028211,002165: 26,7401 45176 DMOVE 0
028212,002166: 26,7402 15565 SIN30
028213,002167: 26,7403 33455 STORE THETAMAN
028214,002168:
028215,002169: 26,7404 77576 EXIT 0
028216,002170:
028217,002171: 26,7405 03460 TC FLAG2DWN
028218,002172: 26,7406 04000 OCT 04000
028219,002173:
028220,002174: 26,7407 04000 TC INTPRET
028221,002175: 26,7410 44576 ITCI 0
028222,002176: 26,7411 01472 EXITCADR
028223,002177:
028224,002178: 26,7412 53775 DONE SIGN 1
028225,002179: 26,7413 75776 VXSC
028226,002180: 26,7414 21051 NEARONE
028227,002181: 26,7415 01455 THETAMAN
028228,002182: 26,7416 01367 XSC
028229,002183: 26,7417 33323 STORE WC
028230,002184:
028231,002185: 26,7420 65176 ABS 0
028232,002186: 26,7421 01455 THETAMAN
028233,002187: 26,7422 33455 STORE THETAMAN
028234,002188:
028235,002189: 26,7423 77576 EXIT 0
028236,002190:
028237,002191: 26,7424 03446 TC FLAG2UP
028238,002192: 26,7425 04000 OCT 04000 # SET ROLLFLAG
028239,002193:
028240,002194: 26,7426 04000 TC INTPRET
028241,002195:
028242,002196: 26,7427 44576 ITCI 0 # EXIT FOR ROLL THAT AVOIDS GIMBAL LOCK IN
028243,002197: 26,7430 01472 EXITCADR # SUBSEQUENT PITCH/YAW MANEUVER
028244,002198:
028245,002199: 26,7431 65175 SPLITMNU ABS 1
028246,002200: 26,7432 66636 DSU BZE
028247,002201: 26,7433 00043 34D
028248,002202: 26,7434 15567 DP2(-13)
028249,002203: 26,7435 15500 SPLIT1
028250,002204:
028251,002205: 26,7436 45175 DMOVE 1
028252,002206: 26,7437 73776 BMN
028253,002207: 26,7440 00043 34D
028254,002208: 26,7441 15456 SPLIT3
028255,002209:
028256,002210: 26,7442 66775 SPLIT2 DSU 1
028257,002211: 26,7443 73776 BMN
028258,002212: 26,7444 00007 6
028259,002213: 26,7445 00001 0
028260,002214: 26,7446 15505 SPLIT5
028261,002215:
028262,002216: 26,7447 56775 TSRT 1
028263,002217: 26,7450 66772 DSU ITC
028264,002218: 26,7451 00001 0
028265,002219: 26,7452 00002 1
028266,002220: 26,7453 00007 6
028267,002221: 26,7454 15140 40MANU
028268,002222:
028269,002223: 26,7455 66775 SPLIT3 DSU 1
028270,002224: 26,7456 43776 BPL
028271,002225: 26,7457 00007 6
028272,002226: 26,7460 00005 4
028273,002227: 26,7461 15470 SPLIT4
028274,002228:
028275,002229: 26,7462 66775 DSU 1
028276,002230: 26,7463 43776 BPL
028277,002231: 26,7464 00007 6
028278,002232: 26,7465 00003 2
028279,002233: 26,7466 15505 SPLIT5
028280,002234:
028281,002235: 26,7467 70774 SPLIT4 DAD 2
028282,002236: 26,7470 56732 TSRT DSU
028283,002237: 26,7471 76776 ITC
028284,002238: 26,7472 00003 2
028285,002239: 26,7473 00005 4
028286,002240: 26,7474 00002 1
028287,002241: 26,7475 00007 6
028288,002242: 26,7476 15140 40MANU
028289,002243:
028290,002244: 26,7477 45175 SPLIT1 DMOVE 1
028291,002245: 26,7500 73772 BMN ITC
028292,002246: 26,7501 00043 34D
028293,002247: 26,7502 15443 SPLIT2
028294,002248: 26,7503 15456 SPLIT3
028295,002249:
028296,002250: 26,7504 76776 SPLIT5 ITC 0
028297,002251: 26,7505 15532 CALCPTCH
028298,002252:
028299,002253: 26,7506 45175 DMOVE 1
028300,002254: 26,7507 56776 TSRT
028301,002255: 26,7510 01455 THETAMAN
028302,002256: 26,7511 00002 1
028303,002257: 26,7512 33455 STORE THETAMAN
028304,002258:
028305,002259: 26,7513 77576 EXIT 0
028306,002260:
028307,002261: 26,7514 03460 TC FLAG2DWN
028308,002262: 26,7515 04000 OCT 04000 # REMOVE ROLLFLAG
028309,002263:
028310,002264: 26,7516 04000 TC INTPRET
028311,002265: 26,7517 44576 ITCI 0
028312,002266: 26,7520 01472 EXITCADR # EXIT FOR PITCH/YAW PORTION OF MANEUVER
028313,002267:
028314,002268: 26,7521 76776 GETPTCH ITC 0
028315,002269: 26,7522 15532 CALCPTCH
028316,002270:
028317,002271: 26,7523 77576 EXIT 0
028318,002272:
028319,002273: 26,7524 03460 TC FLAG2DWN
028320,002274: 26,7525 04000 OCT 04000 # REMOVE ROLLFLAG
028321,002275:
028322,002276: 26,7526 04000 TC INTPRET
028323,002277:
028324,002278: 26,7527 44576 ITCI 0
028325,002279: 26,7530 01472 EXITCADR # EXIT FOR PITCH/YAW PORTION OF MANEUVER
028326,002280:
028327,002281: 26,7531 42775 CALCPTCH DOT 1
028328,002282: 26,7532 63703 TSLT ACOS
028329,002283: 26,7533 01367 XSC
028330,002284: 26,7534 01411 XSCD
028331,002285: 26,7535 00002 1
028332,002286: 26,7536 33455 STORE THETAMAN
028333,002287:
028334,002288: 26,7537 40576 ITCQ 0
028335,002289:
028336,002290: 26,7540 07772 14276 COS3 2DEC .249657385 # SCALED AT 2(4)
028337,002291: 26,7542 16203 04007 COS27 2DEC .445503260 # SCALED AT 2(1)
028338,002292: 26,7544 07207 02705 COS63 2DEC .226995250 # SCALED AT 2(1)
028339,002293: 26,7546 15666 17272 COS30 2DEC .433012700 # SCALED AT 2(1)
028340,002294: 26,7550 30506 22276 1/TAN33 2DEC .76993250 # SCALED AT 2(1)
028341,002295: 26,7552 00104 10421 1.5DEG 2DEC .004166666 # SCALED AT 2PI
028342,002296: 26,7554 02631 23146 31.5DEG 2DEC .0875 # SCALED AT 2PI
028343,002297: 26,7556 02525 12524 30DEG 2DEC .08333333 # SCALED AT 2PI
028344,002298: 26,7560 00210 21041 3DEG 2DEC .00833333 # SCALED AT 2PI
028345,002299: 26,7562 04000 00000 90DEG 2DEC 0.125 # SCALED AT 4PI
028346,002300: 26,7564 10000 00000 DP2(-2) 2DEC 0.25
028347,002301: 26,7566 26,7564 SIN30 EQUALS DP2(-2)
028348,002302: 26,7566 00002 00000 DP2(-13) 2OCT 0000200000
028349,002303: 26,7570 06553 06165 C33 2DEC .209667643
028350,002304: 26,7572 20000 00000 UNITX 2DEC 0.5
028351,002305: 26,7574 00000 00000 ZEROVEC 2DEC 0.0
028352,002306: 26,7576 00000 00000 2DEC 0.0
028353,002307: 26,7600 00000 00000 UNITY 2DEC 0.0
028354,002308: 26,7602 20000 00000 2DEC 0.5
028355,002309: 26,7604 00000 00000 2DEC 0.0
028356,002310: 26,7606 15326 14356 SCNBMAT 2DEC 0.419335300
028357,002311: 26,7610 00000 00000 2DEC 0.0
028358,002312: 26,7612 67222 52116 2DEC -.272319500
028359,002313: 26,7614 00000 00000 2DEC 0.0
028360,002314: 26,7616 20000 00000 2DEC 0.5
028361,002315: 26,7620 00000 00000 2DEC 0.0
028362,002316: 26,7622 10555 25661 2DEC 0.272319500
028363,002317: 26,7624 00000 00000 2DEC 0.0
028364,002318: 26,7626 15326 14356 2DEC 0.419335300
028365,002319: 26,7630 00133 00327 DTH 2DEC 0.005555 # 2.0 DEG SCALED AT 2PI
028366,002320: 26,7632 00243 32703 2DEC 0.01 # 3.6 DEG
028367,002321: 26,7634 00525 12374 2DEC 0.020833 # 7.5 DEG
028368,002322:
028369,002323:
028370,002324: 26,7636 33524 SETPD16 CAF SIXTN
028371,002325: 26,7637 60067 AD FIXLOC
028372,002326: 26,7640 50123 TS PUSHLOC
028373,002327: 26,7641 04703 TC RE-ENTER
028374,002328:
028375,002329: 26,7642 34475 SETPD6 CAF SIX
028376,002330: 26,7643 07637 TC SETPD16 +1
028377,002331:
028378,002332: 26,7644 33526 SETPD18 CAF EIGHTN
028379,002333: 26,7645 07637 TC SETPD16 +1
028380,002334:
028381,002335: 26,7646 33540 SETPD28 CAF TWENTY8
028382,002336: 26,7647 07637 TC SETPD16 +1
028383,002337:
028384,002338: 26,7650 33530 SETPD20 CAF TWENTY0
028385,002339: 26,7651 07637 TC SETPD16 +1
028386,002340:
028387,002341: 26,7652 26,7572 180DEG EQUALS UNITX # SCALED AT 2PI.
028388,002342: 26,7652 26,7572 DP2(-1) EQUALS UNITX
028389,002343: 26,7652 26,7572 360DEG EQUALS UNITX # SCALED AT 4PI.
028390,002344: 26,7652 26,7572 CFACTOR EQUALS UNITX
End of include-file POWERED_FLIGHT_SUBROUTINES.agc. Parent file is MAIN.agc