Source Code
|
These source-code files were obtained by digitally photographing
a Solarium 55 (Apollo 6) program listing from the American Computer Museum in
Bozeman, Montana. Photography was by Ron Burkey, with assistance from
museum curator George Keremedjiev and Montana
State University curator Kim Scott. The listing originally belonged to Eldon C. Hall,
who donated it to the museum. Volunteers then manually typed in the
source code or else modified similar pre-existing Colossus 249
(Apollo 9) source files to incorporate changes, although this transcription was
principally done by Jim Lawton and corrected by Ron Burkey.
Notations on the program listing read, in part:
YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55
BY NASA 1021108-021 DEC. 4, 1966
Note that the date is the date of the printout, not the date of the program revision.
Due to statements by Jay Sampson, the original contractor from AC Electronics
who created Solarium 54 (Apollo 4)
from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and
Solarium 55 (Apollo 6) are actually identical programs. The change in numbering,
from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed
that the source-code represented here is equally appropriate for both Apollo 4 and
Apollo 6 missions.
|
024666,000002: ## Copyright: Public domain.
024667,000003: ## Filename: POWERED_FLIGHT_SUBROUTINES.agc
024668,000004: ## Purpose: Part of the source code for Solarium build 55. This
024669,000005: ## is for the Command Module's (CM) Apollo Guidance
024670,000006: ## Computer (AGC), for Apollo 6.
024671,000007: ## Assembler: yaYUL --block1
024672,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
024673,000009: ## Website: www.ibiblio.org/apollo/index.html
024674,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
024675,000011: ## Mod history: 2009-09-27 JL Created.
024676,000012: ## 2016-08-20 RSB Typos.
024677,000013: ## 2016-08-21 RSB More typos.
024678,000014: ## 2016-08-23 RSB More of the same.
024679,000015: ## 2016-08-24 RSB And a few final ones!
024680,000016: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments,
024681,000017: ## and fixed errors found.
024682,000018:
|
|
Page 628
|
024684,000020: # THIS ROUTINE ENTERED AT CDUTRIG READS PRESENT CDU REGISTERS AND STORES THEM SCALED AT ONE REVOLUTION AS A DP
024685,000021: # VECTOR IN CDUTEMP. IT COMPUTES SIN,COS(CDUX,Y,Z) AND STORES THEM IN SINCDU,+2,+4 AND COSCDU,+2,+4 RESPECTIVELY
024686,000022: # SCALED AT 2(+1). WHEN ENTERED AT THETRIG THE ROUTINE PERFORMS THE SAME FUNCTION WITH THE DESIRED CDU ANGLE REG-
024687,000023: # ISTERS THETAD,+1,+2. ENTER WITH C(X1) =6 FOR X,Y,Z ( =4 FOR Y,Z ONLY)
024688,000024:
024689,000025:
024690,000026:
024691,000027: 25,6000 SETLOC 52000
024692,000028: 25,6000 77576 CDUTRIG EXIT 0
024693,000029:
024694,000030: 25,6001 20017 INHINT
024695,000031: 25,6002 40047 CS CDUX
024696,000032: 25,6003 51314 TS CDUTEMP
024697,000033: 25,6004 40050 CS CDUY
024698,000034: 25,6005 51316 TS CDUTEMP +2
024699,000035: 25,6006 40051 CS CDUZ
024700,000036: 25,6007 51320 TS CDUTEMP +4
024701,000037: 25,6010 20016 RELINT
024702,000038: 25,6011 06023 TC JUMP3
024703,000039:
024704,000040: 25,6012 77576 THETRIG EXIT 0
024705,000041:
024706,000042: 25,6013 20017 INHINT
024707,000043: 25,6014 40700 CS THETAD
024708,000044: 25,6015 51314 TS CDUTEMP
024709,000045: 25,6016 40701 CS THETAD +1
024710,000046: 25,6017 51316 TS CDUTEMP +2
024711,000047: 25,6020 40702 CS THETAD +2
024712,000048: 25,6021 51320 TS CDUTEMP +4
024713,000049: 25,6022 20016 RELINT
024714,000050:
024715,000051: 25,6023 40647 JUMP3 CS FLAGWRD2 # TEST IF CDUX FLAG SET
024716,000052: 25,6024 74501 MASK BIT14 # (CDUXFLAG MASK)
024717,000053: 25,6025 10000 CCS A
024718,000054: 25,6026 06037 TC JUMP8 # IT IS NOT
024719,000055: 25,6027 34302 CAF LOW11
024720,000056: 25,6030 71314 MASK CDUTEMP
024721,000057: 25,6031 50022 TS CYL
024722,000058: 25,6032 40022 CS CYL
024723,000059: 25,6033 40022 CS CYL
024724,000060: 25,6034 40022 CS CYL
024725,000061: 25,6035 30022 XCH CYL
024726,000062: 25,6036 31314 XCH CDUTEMP
024727,000063:
024728,000064: 25,6037 04000 JUMP8 TC INTPRET
024729,000065:
024730,000066: 25,6040 55576 SINCOS AST,1 0
024731,000067: 25,6041 00003 2
024732,000068:
024733,000069: 25,6042 42175 REPEAT1 SMOVE* 1
|
|
Page 629
|
024735,000071: 25,6043 47171 COMP RTB
024736,000072: 25,6044 02645 CDUTEMP +6,1
024737,000073: 25,6045 20304 CDULOGIC
024738,000074: 25,6046 36645 STORE CDUTEMP +6,1
024739,000075:
024740,000076: 25,6047 47575 NOLOD 1
024741,000077: 25,6050 57176 SIN
024742,000078: 25,6051 36675 STORE SINCDU +6,1
024743,000079:
024744,000080: 25,6052 54176 COS* 0
024745,000081: 25,6053 02645 CDUTEMP +6,1
024746,000082: 25,6054 36711 STORE COSCDU +6,1
024747,000083:
024748,000084: 25,6055 51574 TIX,1 2
024749,000085: 25,6056 65116 ABS TSLT # TEST IF COS(THETAD+2) LESS THAN COS(60)
024750,000086: 25,6057 71775 BOV EXIT
024751,000087: 25,6060 12043 REPEAT1
024752,000088: 25,6061 01343 COSCDU +4
024753,000089: 25,6062 00003 2
024754,000090: 25,6063 12070 NOGIMLOC # IT IS NOT. NO NEED TO ALARM
024755,000091:
024756,000092: 25,6064 03007 TC ALARM
024757,000093: 25,6065 01407 OCT 01407
024758,000094:
024759,000095: 25,6066 04000 TC INTPRET
024760,000096:
024761,000097: 25,6067 40576 NOGIMLOC ITCQ 0
024762,000098:
024763,000099: 25,6070 77760 HIGH11 OCT 77760
024764,000100:
|
|
Page 630
|
024766,000102:
024767,000103: # THIS ROUTINE COMPUTES DESIRED CDU(GIMBAL) ANGLES GIVEN THE DESIRED NAV. BASE AXES IN XNB AS THREE HALF UNIT
024768,000104: # VECTORS IN STABLE MEMBER COORDINATES. THE DESIRED CDUX,Y,Z APPEAR IN MPAC, +1, +2 AT THE SAME SCALING AS CDUX,
024769,000105: # Y, Z WITH THE INTERPRETER SET TO THE TP MODE
024770,000106:
024771,000107:
024772,000108:
024773,000109: 25,6071 45575 CALCCDU ITA 1
024774,000110: 25,6072 76776 ITC
024775,000111: 25,6073 00051 S1
024776,000112: 25,6074 04353 CALCGTA
024777,000113:
024778,000114: 25,6075 43575 TEST 1 # IF CDUXFLAG SET, RESCALE OGC TO 8 REVS
024779,000115: 25,6076 76576 RTB
024780,000116: 25,6077 00043 CDUXFLAG
024781,000117: 25,6100 12103 GETOGC
024782,000118: 25,6101 20721 CDUXFIX
024783,000119:
024784,000120: 25,6102 75175 GETOGC VMOVE 1
024785,000121: 25,6103 76421 RTB ITCI
024786,000122: 25,6104 01521 OGC
024787,000123: 25,6105 20624 V1STO2S
024788,000124: 25,6106 00051 S1
024789,000125:
|
|
Page 631
|
024791,000127:
024792,000128: # THIS ROUTINE COMPUTES THE MATRIX WHICH TRANSFORMS FROM STABLE MEMBER COORDINATES TO NAV. BASE COORDINATES. IT
024793,000129: # REQUIRES SIN,COS(CDUX,Y,Z) IN SINCDU, +2, +4 AND COSCDU, +2, +4 RESPECTIVELY SCALED TO ONE HALF. THE MATRIX IS
024794,000130: # STORED IN X,Y,ZNB AS THREE HALF UNIT ROW VECTORS
024795,000131:
024796,000132:
024797,000133:
024798,000134: 25,6107 64775 CALCSMNB DMP 1
024799,000135: 25,6110 47176 COMP
024800,000136: 25,6111 01333 SINCDU +2
024801,000137: 25,6112 01343 COSCDU +4
024802,000138:
024803,000139: 25,6113 56776 TSRT 0
024804,000140: 25,6114 01335 SINCDU +4
024805,000141: 25,6115 00002 1
024806,000142:
024807,000143: 25,6116 64775 DMP 1
024808,000144: 25,6117 41022 VDEF VSLT
024809,000145: 25,6120 01341 COSCDU +2
024810,000146: 25,6121 01343 COSCDU +4
024811,000147: 25,6122 00002 1
024812,000148: 25,6123 33477 STORE XNB
024813,000149:
024814,000150: 25,6124 64775 DMP 1
024815,000151: 25,6125 63776 TSLT
024816,000152: 25,6126 01331 SINCDU
024817,000153: 25,6127 01335 SINCDU +4
024818,000154: 25,6130 00002 1
024819,000155: 25,6131 32033 STORE 26D
024820,000156:
024821,000157: 25,6132 47575 NOLOD 1
024822,000158: 25,6133 64776 DMP
024823,000159: 25,6134 01333 SINCDU +2
024824,000160:
024825,000161: 25,6135 64775 DMP 1
024826,000162: 25,6136 66776 DSU
024827,000163: 25,6137 01337 COSCDU
024828,000164: 25,6140 01341 COSCDU +2
024829,000165:
024830,000166: 25,6141 64775 DMP 1
024831,000167: 25,6142 47176 COMP
024832,000168: 25,6143 01331 SINCDU
024833,000169: 25,6144 01343 COSCDU +4
024834,000170:
024835,000171: 25,6145 64776 DMP 0
024836,000172: 25,6146 01337 COSCDU
024837,000173: 25,6147 01333 SINCDU +2
024838,000174:
024839,000175: 25,6150 64774 DMP 2
024840,000176: 25,6151 70603 DAD VDEF
024841,000177: 25,6152 44776 VSLT
|
|
Page 632
|
024843,000179: 25,6153 01341 COSCDU +2
024844,000180: 25,6154 00033 26D
024845,000181: 25,6155 77777 -
024846,000182: 25,6156 00002 1
024847,000183: 25,6157 33513 STORE ZNB
024848,000184:
024849,000185: 25,6160 47575 NOLOD 1
024850,000186: 25,6161 41622 VXV VSLT
024851,000187: 25,6162 01477 XNB
024852,000188: 25,6163 00002 1
024853,000189: 25,6164 33505 STORE YNB
024854,000190:
024855,000191: 25,6165 40576 ITCQ 0
024856,000192:
|
|
Page 633
|
024858,000194:
024859,000195: # ROUTINE CALCSCNB TRANSFORMS A MATRIX OF HALF UNIT VECTORS ALONG SPACECRAFT AXES, XSCD, INTO A MATRIX OF HALF
024860,000196: # UNIT VECTORS ALONG NAV. BASE AXES, XNB. ROUTINE CALCNBSC DOES THE INVERSE, STORING THE MATRIX OF UNIT VECTORS
024861,000197: # ALONG SPACECRAFT AXES IN XSC
024862,000198:
024863,000199:
024864,000200:
024865,000201: 25,6166 75776 CALCSCNB VXSC 0
024866,000202: 25,6167 01411 XSCD
024867,000203: 25,6170 12241 COS33
024868,000204:
024869,000205: 25,6171 75775 VXSC 1
024870,000206: 25,6172 46776 BVSU
024871,000207: 25,6173 01425 ZSCD
024872,000208: 25,6174 12237 SIN33
024873,000209: 25,6175 33477 STORE XNB
024874,000210:
024875,000211: 25,6176 75176 VMOVE 0
024876,000212: 25,6177 01417 YSCD
024877,000213: 25,6200 33505 STORE YNB
024878,000214:
024879,000215: 25,6201 75776 VXSC 0
024880,000216: 25,6202 01411 XSCD
024881,000217: 25,6203 12237 SIN33
024882,000218:
024883,000219: 25,6204 75775 VXSC 1
024884,000220: 25,6205 50776 VAD
024885,000221: 25,6206 01425 ZSCD
024886,000222: 25,6207 12241 COS33
024887,000223: 25,6210 33513 STORE ZNB
024888,000224:
024889,000225: 25,6211 40576 ITCQ 0
024890,000226:
|
|
Page 634
|
024892,000228:
024893,000229: 25,6212 75776 CALCNBSC VXSC 0
024894,000230: 25,6213 01477 XNB
024895,000231: 25,6214 12241 COS33
024896,000232:
024897,000233: 25,6215 75775 VXSC 1
024898,000234: 25,6216 50776 VAD
024899,000235: 25,6217 01513 ZNB
024900,000236: 25,6220 12237 SIN33
024901,000237: 25,6221 33367 STORE XSC
024902,000238:
024903,000239: 25,6222 75176 VMOVE 0
024904,000240: 25,6223 01505 YNB
024905,000241: 25,6224 33375 STORE YSC
024906,000242:
024907,000243: 25,6225 75776 VXSC 0
024908,000244: 25,6226 01477 XNB
024909,000245: 25,6227 12237 SIN33
024910,000246:
024911,000247: 25,6230 75775 VXSC 1
024912,000248: 25,6231 74776 VSU
024913,000249: 25,6232 01513 ZNB
024914,000250: 25,6233 12241 COS33
024915,000251: 25,6234 33403 STORE ZSC
024916,000252:
024917,000253: 25,6235 40576 ITCQ 0
024918,000254:
024919,000255: 25,6236 21333 13542 SIN33 2DEC 0.544639000
024920,000256: 25,6240 32654 30735 COS33 2DEC 0.838670600
024921,000257:
|
|
Page 635
|
024923,000259:
024924,000260: # THIS ROUTINE COMPUTES INCREMENTAL CHANGES IN CDU(GIMBAL) ANGLES FROM INCREMENTAL ANGULAR CHANGES ABOUT SM AXES.
024925,000261: # IT REQUIRES SM INCREMENTS AS A DP VECTOR IN VAC SCALED AT ONE REVOLUTION, SIN,COS(CDUX,Y,Z) IN SINCDU, +2, +4
024926,000262: # AND COSCDU, +2, +4 RESPECTIVELY SCALED TO ONE HALF. CDU INCREMENTS APPEAR IN THE VAC SCALED AT ONE REV.
024927,000263:
024928,000264: 25,6242 64776 SMCDURES DMP 0
024929,000265: 25,6243 00041 32D
024930,000266: 25,6244 01341 COSCDU +2
024931,000267:
024932,000268: 25,6245 64775 DMP 1
024933,000269: 25,6246 65712 BDSU DDV
024934,000270: 25,6247 00045 36D
024935,000271: 25,6250 01333 SINCDU +2
024936,000272: 25,6251 77777 -
024937,000273: 25,6252 01343 COSCDU +4
024938,000274: 25,6253 32027 STORE 22D
024939,000275:
024940,000276: 25,6254 47574 NOLOD 2
024941,000277: 25,6255 64716 DMP TSLT
024942,000278: 25,6256 65776 BDSU
024943,000279: 25,6257 01335 SINCDU +4
024944,000280: 25,6260 00002 1
024945,000281: 25,6261 00043 34D
024946,000282: 25,6262 32031 STORE 24D
024947,000283:
024948,000284: 25,6263 64776 DMP 0
024949,000285: 25,6264 00041 32D
024950,000286: 25,6265 01333 SINCDU +2
024951,000287:
024952,000288: 25,6266 64775 DMP 1
024953,000289: 25,6267 70716 DAD TSLT
024954,000290: 25,6270 00045 36D
024955,000291: 25,6271 01341 COSCDU +2
024956,000292: 25,6272 77777 -
024957,000293: 25,6273 00002 1
024958,000294: 25,6274 32033 STORE 26D
024959,000295:
024960,000296: 25,6275 75175 VMOVE 1
024961,000297: 25,6276 40576 ITCQ
024962,000298: 25,6277 00027 22D
024963,000299:
|
|
Page 636
|
024965,000301: # THIS ROUTINE COMPUTES INCREMENTAL ANGULAR CHANGES ABOUT NAV. BASE AXES FROM INCREMENTAL CDU ANGLE CHANGES. IT
024966,000302: # REQUIRES THE CDU INCREMENTS AS A DP VECTOR IN DCDU, +2, +4, SCALED AT ONE REVOLUTION. SIN,COS(CDUX,Y,Z) MUST BE
024967,000303: # IN SINCDU, +2, +4, AND COSCDU, +2, +4 RESPECTIVELY SCALED AT ONE HALF. INCREMENTAL NAV. BASE ANGLES APPEAR IN
024968,000304: # DNB, +2, +4 SCALED AT ONE REVOLUTION
024969,000305:
024970,000306:
024971,000307:
024972,000308: 25,6300 64775 CDUNBRES DMP 1
024973,000309: 25,6301 63776 TSLT
024974,000310: 25,6302 01343 COSCDU +4
024975,000311: 25,6303 01347 DCDU +2
024976,000312: 25,6304 00002 1
024977,000313: 25,6305 32033 STORE 26D
024978,000314:
024979,000315: 25,6306 47575 NOLOD 1
024980,000316: 25,6307 64776 DMP
024981,000317: 25,6310 01331 SINCDU
024982,000318:
024983,000319: 25,6311 64775 DMP 1
024984,000320: 25,6312 66776 DSU
024985,000321: 25,6313 01337 COSCDU
024986,000322: 25,6314 01351 DCDU +4
024987,000323:
024988,000324: 25,6315 64776 DMP 0
024989,000325: 25,6316 00033 26D
024990,000326: 25,6317 01337 COSCDU
024991,000327:
024992,000328: 25,6320 64775 DMP 1
024993,000329: 25,6321 70776 DAD
024994,000330: 25,6322 01331 SINCDU
024995,000331: 25,6323 01351 DCDU +4
024996,000332:
024997,000333: 25,6324 56776 TSRT 0
024998,000334: 25,6325 01345 DCDU
024999,000335: 25,6326 00002 1
025000,000336:
025001,000337: 25,6327 64774 DMP 2
025002,000338: 25,6330 70603 DAD VDEF
025003,000339: 25,6331 44776 VSLT
025004,000340: 25,6332 01335 SINCDU +4
025005,000341: 25,6333 01347 DCDU +2
025006,000342: 25,6334 77777 -
025007,000343: 25,6335 00002 1
025008,000344: 25,6336 33353 STORE DNB
025009,000345:
025010,000346: 25,6337 40576 ITCQ 0
025011,000347:
|
|
Page 637
|
025013,000349:
025014,000350: # THIS ROUTINE COMPUTES INCREMENTAL CHANGES TO CDU ANGLES FROM INCREMENTAL ANGULAR CHANGES ABOUT NAV. BASE AXES.
025015,000351: # IT REQUIRES THE INCREMENTAL NAV. BASE ANGLES AS A DP VECTOR IN VAC SCALED AT 1 REVOLUTION. SIN,COS(CDUX,Y,Z)
025016,000352: # MUST BE IN SINCDU, COSCDU RESPECTIVELY SCALED AT 2(+1). IT LEAVES CDU INCREMENTS AS A DP VECTOR IN DCDU AT THE
025017,000353: # SAME SCALING
025018,000354:
025019,000355:
025020,000356:
025021,000357: 25,6340 64776 NBCDURES DMP 0
025022,000358: 25,6341 00045 36D
025023,000359: 25,6342 01331 SINCDU
025024,000360:
025025,000361: 25,6343 64775 DMP 1
025026,000362: 25,6344 66712 DSU DDV
025027,000363: 25,6345 00043 34D
025028,000364: 25,6346 01337 COSCDU
025029,000365: 25,6347 77777 -
025030,000366: 25,6350 01343 COSCDU +4
025031,000367: 25,6351 33347 STORE DCDU +2
025032,000368:
025033,000369: 25,6352 47574 NOLOD 2
025034,000370: 25,6353 64633 DMP COMP
025035,000371: 25,6354 63742 TSLT DAD
025036,000372: 25,6355 01335 SINCDU +4
025037,000373: 25,6356 00002 1
025038,000374: 25,6357 00041 32D
025039,000375: 25,6360 33345 STORE DCDU
025040,000376:
025041,000377: 25,6361 64776 DMP 0
025042,000378: 25,6362 00043 34D
025043,000379: 25,6363 01331 SINCDU
025044,000380:
025045,000381: 25,6364 64775 DMP 1
025046,000382: 25,6365 70716 DAD TSLT
025047,000383: 25,6366 00045 36D
025048,000384: 25,6367 01337 COSCDU
025049,000385: 25,6370 77777 -
025050,000386: 25,6371 00002 1
025051,000387: 25,6372 33351 STORE DCDU +4
025052,000388:
025053,000389: 25,6373 40576 ITCQ 0
025054,000390:
|
|
Page 638
|
025056,000392:
025057,000393: # THIS ROUTINE RESOLVES THE SMALL ANGLE VECTOR STORED AS SM COMPONENTS IN VAC. SCALED TO ONE REVOLUTION, INTO
025058,000394: # COMMANDED CDU ANGLE CHANGES VAC, +2,+4, SCALED TO ONE REVOLUTION, THROUGH THE DESIRED CDU ANGLES DEFINED BY
025059,000395: # THETAD,+1,+2. THE ROUTINE THEN INCREMENTS THETAD,+1,+2 IN 2S COMP. AT CDUX,Y,Z SCALING
025060,000396:
025061,000397:
025062,000398:
025063,000399: 25,6374 45575 CDUDRIVE ITA 1
025064,000400: 25,6375 75572 AXT,1 ITC
025065,000401: 25,6376 00052 S2
025066,000402: 25,6377 00005 4
025067,000403: 25,6400 12013 THETRIG
025068,000404:
025069,000405: 25,6401 76776 CDUDRVE2 ITC 0
025070,000406: 25,6402 12243 SMCDURES
025071,000407:
025072,000408: 25,6403 43575 TEST 1 # TEST IF CDUX FLAG SET
025073,000409: 25,6404 56776 TSRT
025074,000410: 25,6405 00043 CDUXFLAG
025075,000411: 25,6406 12413 CDUDRVE1
025076,000412: 25,6407 00041 32D
025077,000413: 25,6410 00005 4
025078,000414: 25,6411 32041 STORE 32D
025079,000415:
025080,000416: 25,6412 47574 CDUDRVE1 NOLOD 2 # RESCALE DCDU AND BRANCH TO
025081,000417: 25,6413 44771 VSLT RTB # INCREMENT THETAD
025082,000418: 25,6414 44576 ITCI
025083,000419: 25,6415 00002 1
025084,000420: 25,6416 20416 INCRCDUS
025085,000421: 25,6417 00052 S2
025086,000422:
|
|
Page 639
|
025088,000424:
025089,000425: # THE FOLLOWING SERIES OF CLOSED SUBROUTINES COMPUTE THE REQUIRED VELOCITY VR, SCALED TO 2(+8)M/CS, VELOCITY-TO-BE
025090,000426: # -GAINED VG, SCALED TO 2(+7)M/CS, AND THE MDOIFIED B-VECTOR CBDT, SCALED TO 2(+4)M/CS, FOR THE DIFFERENT PHASES
025091,000427: # OF POWERED FLIGHT.
025092,000428:
025093,000429:
025094,000430:
025095,000431: 25,6420 75176 CALCVGB VMOVE 0
025096,000432: 25,6421 01417 VR
025097,000433: 25,6422 33411 STORE CBDT # (CBDT USED HERE AS TEMP. STORAGE FOR VR)
025098,000434:
025099,000435: 25,6423 45575 ITA 1
025100,000436: 25,6424 73421 LXA,1 ITCI
025101,000437: 25,6425 00052 S2
025102,000438: 25,6426 01042 XSHIFT
025103,000439: 25,6427 01471 VRCADR
025104,000440:
025105,000441: 25,6430 47575 CALCCBDT NOLOD 1
025106,000442: 25,6431 74622 VSU VSLT
025107,000443: 25,6432 01411 CBDT # OLD VR
025108,000444: 25,6433 00005 4 # D(VR) TO PD SCALED AT 2(+4) M/CS
025109,000445:
025110,000446: 25,6434 75775 VXSC 1
025111,000447: 25,6435 50766 VAD VXSC
025112,000448: 25,6436 01010 GRAVITY
025113,000449: 25,6437 01030 DELTAT
025114,000450: 25,6440 77777 -
025115,000451: 25,6441 15573 CFACTOR # SCALED AT 2(+0)
025116,000452: 25,6442 33411 STORE CBDT # SCALED AT 2(+4) M/CS
025117,000453:
025118,000454: 25,6443 44775 VSLT 1
025119,000455: 25,6444 74752 VSU STZ
025120,000456: 25,6445 01417 VR
025121,000457: 25,6446 00002 1
025122,000458: 25,6447 00774 VN
025123,000459: 25,6450 00123 OVFIND # FIRST PASS THRU CALCVGB MAY OVERFLOW
025124,000460: 25,6451 33353 STORE VG # SCALED AT 2(+7) M/CS
025125,000461:
025126,000462: 25,6452 44576 ITCI 0
025127,000463: 25,6453 00052 S2
025128,000464:
|
|
Page 640
|
025130,000466:
025131,000467: # THESE ROUTINES COMPUTE VR FOR THE TWO NOMINAL SPS BURNS OF FLIGHT 501
025132,000468: 25,6454 75575 501SPS1 AXT,1 1 # C(X1) = +0 (SPS1)
025133,000469: 25,6455 74572 AXT,2 ITC # C(X2) =+1 (SPS1)
025134,000470: 25,6456 00001 0
025135,000471: 25,6457 00002 1
025136,000472: 25,6460 12466 +5
025137,000473:
025138,000474: 25,6461 53575 501SPS2 AXC,1 1 # C(X1) = -2 (SPS2)
025139,000475: 25,6462 52576 AXC,2 # C(X2) =-1 (SPS2)
025140,000476: 25,6463 00003 2
025141,000477: 25,6464 00002 1
025142,000478:
025143,000479: 25,6465 44170 DMOVE* 6
025144,000480: 25,6466 62732 DDV DSU
025145,000481: 25,6467 51130 DSQ DSU*
025146,000482: 25,6470 65122 ABS DMP
025147,000483: 25,6471 62272 DDV* TSRT
025148,000484: 25,6472 53056 SQRT SIGN
025149,000485: 25,6473 75776 VXSC
025150,000486: 25,6474 03325 SEMILAT,1 # SCALED AT 2(+27)M
025151,000487: 25,6475 01024 RMAG # 2(+25)M
025152,000488: 25,6476 15565 DP2(-2)
025153,000489: 25,6477 03315 ESQ(VR),1 # SCALED AT 2(+4)
025154,000490: 25,6500 13376 MUE # SCALED AT 2(+38) M(+3)/CS(+2)
025155,000491: 25,6501 03325 SEMILAT,1
025156,000492: 25,6502 00006 5
025157,000493: 25,6503 00050 X2
025158,000494: 25,6504 01016 UNITR # VRAD TO PD SCALED AT 2(+11) M/CS
025159,000495:
025160,000496: 25,6505 45174 DMOVE 2
025161,000497: 25,6506 64312 DMP* DDV
025162,000498: 25,6507 53176 SQRT
025163,000499: 25,6510 13542 MUE(41)
025164,000500: 25,6511 03325 SEMILAT,1
025165,000501: 25,6512 01026 RMAGSQ # SCALED AT 2(+50)M(+2)
025166,000502: # VHOR MAG. TO PD SCALED AT 2(+9) M/CS
025167,000503: 25,6513 41773 VXV 3
025168,000504: 25,6514 73006 UNIT VXV
025169,000505: 25,6515 75642 VXSC VAD
025170,000506: 25,6516 44776 VSLT
025171,000507: 25,6517 01016 UNITR
025172,000508: 25,6520 01107 VIGNTION
025173,000509: 25,6521 01016 UNITR
025174,000510: 25,6522 77777 -
025175,000511: 25,6523 77777 -
025176,000512: 25,6524 00004 3
025177,000513: 25,6525 33417 STORE VR
025178,000514:
025179,000515: 25,6526 76776 ITC 0
025180,000516: 25,6527 12431 CALCCBDT
025181,000517:
|
|
Page 641
|
025183,000519:
025184,000520: # THIS ROUTINE COMPUTES VG, CBDT, FOR LANDING AREA CONTROL DURING BOOST ABORTS ON FLIGHT 501
025185,000521:
025186,000522:
025187,000523:
025188,000524: 25,6530 41775 501ABORT VXV 1
025189,000525: 25,6531 44776 VSLT
025190,000526: 25,6532 00766 RN
025191,000527: 25,6533 00774 VN
025192,000528: 25,6534 00002 1 # 4 SCALED 2(+31) M(+2)/CS
025193,000529:
025194,000530: 25,6535 47575 NOLOD 1
025195,000531: 25,6536 73176 UNIT
025196,000532: 25,6537 33367 STORE UNITRXV # UNIT NORMAL TO PLANE, IP 2(+1)
025197,000533:
025198,000534: 25,6540 66775 DSU 1
025199,000535: 25,6541 56776 TSRT
025200,000536: 25,6542 13131 RINTALT
025201,000537: 25,6543 01024 RMAG
025202,000538: 25,6544 00003 2 # (RE - R) MAG SCALED 2(+27)
025203,000539:
025204,000540: 25,6545 41775 VXV 1
025205,000541: 25,6546 44776 VSLT
025206,000542: 25,6547 01367 UNITRXV # IP
025207,000543: 25,6550 01016 UNITR # IR
025208,000544: 25,6551 00002 1 # TIMES 2
025209,000545: 25,6552 33375 STORE UNITHORZ # UNIT HORIZONTAL IN PLANE, IHP 2(+1)
025210,000546:
025211,000547: 25,6553 47575 NOLOD 1
025212,000548: 25,6554 42776 DOT
025213,000549: 25,6555 00774 VN # IHP.V SCALED 2(+8)
025214,000550:
025215,000551: 25,6556 42774 DOT 2
025216,000552: 25,6557 56712 TSRT DDV
025217,000553: 25,6560 64776 DMP
025218,000554: 25,6561 00774 VN
025219,000555: 25,6562 01016 UNITR # IR.V SCALED 2(+8)
025220,000556: 25,6563 00004 3 # TIMES 2(-3)
025221,000557: 25,6564 77777 - # DIVIDE BY IHP.V SCALED 2(+8)
025222,000558: 25,6565 13131 RINTALT # RE COT(GAMMA) SCALED 2(+28)
025223,000559:
025224,000560: 25,6566 67175 VSQ 1
025225,000561: 25,6567 62776 DDV
025226,000562: 25,6570 00001 0 # H SCALED 2(+31)
025227,000563: 25,6571 13376 MUE # H(SQ)/MUE = P SCALED 2(+24)
025228,000564:
025229,000565: 25,6572 67175 VSQ 1
025230,000566: 25,6573 56712 TSRT DDV
025231,000567: 25,6574 00774 VN # V(SQ) 2(+14)
025232,000568: 25,6575 00005 4 # TIMES 2(-4)
025233,000569: 25,6576 13376 MUE # V(SQ)/MUE SCALED 2(-20)
|
|
Page 642
|
025235,000571: 25,6577 62774 DDV 2
025236,000572: 25,6600 66722 DSU DMP
025237,000573: 25,6601 65776 BDSU
025238,000574: 25,6602 13133 DP2(-4)
025239,000575: 25,6603 01024 RMAG
025240,000576: 25,6604 77777 -
025241,000577: 25,6605 13131 RINTALT
025242,000578: 25,6606 13133 DP2(-4) # (1+RE((V**2/2 MUE)-1/R)) SCALED 2(+4)
025243,000579:
025244,000580: 25,6607 47574 NOLOD 2
025245,000581: 25,6610 73653 BMN SQRT
025246,000582: 25,6611 64716 DMP TSLT
025247,000583: 25,6612 13115 SMACHECK # SMA LESS THAN RE/2
025248,000584: 25,6613 13153 V400
025249,000585: 25,6614 00003 2 # VE TO PD SCALED 2(+7) M/CS
025250,000586:
025251,000587: 25,6615 66775 DSU 1
025252,000588: 25,6616 43776 BPL
025253,000589: 25,6617 13157 VCRIT # 22,000 FT/SEC SCALED 2(+7) M/CS
025254,000590: 25,6620 77777 - # VE SCALED 2(+7) M/CS
025255,000591: 25,6621 13104 GETRANGE # SET RANGE TO MINRANGE
025256,000592:
025257,000593: 25,6622 64774 DMP 2
025258,000594: 25,6623 70722 DAD DMP
025259,000595: 25,6624 70716 DAD TSLT
025260,000596: 25,6625 00017 14D # VE SCALED 2(+7)
025261,000597: 25,6626 13147 KRANGE2
025262,000598: 25,6627 13145 KRANGE1
025263,000599: 25,6630 00017 14D # VE SCALED 2(+7)
025264,000600: 25,6631 13143 KRANGE0
025265,000601: 25,6632 00005 4
025266,000602: 25,6633 32025 STORE 20D # ENTRY RANGE ANGLE SCALED 2(+0) REVS.
025267,000603:
025268,000604: 25,6634 47575 GOTRANGE NOLOD 1
025269,000605: 25,6635 55166 COS VXSC
025270,000606: 25,6636 01531 RTATLANT # RADIAL COMP UNIT TARG VECT 2(+2)
025271,000607:
025272,000608: 25,6637 57175 SIN 1
025273,000609: 25,6640 63776 TSLT
025274,000610: 25,6641 00025 20D
025275,000611: 25,6642 00002 1 # SINE OF RANGE ANGLE 2(+0)
025276,000612:
025277,000613: 25,6643 41775 VXV 1
025278,000614: 25,6644 73176 UNIT
025279,000615: 25,6645 01531 RTATLANT
025280,000616: 25,6646 01016 UNITR
025281,000617: 25,6647 32027 STORE 22D # -UNITN, -IN, DESIRED NORMAL SCALED 2(+1)
025282,000618:
025283,000619: 25,6650 47574 NOLOD 2
025284,000620: 25,6651 41766 VXV VXSC
|
|
Page 643
|
025286,000622: 25,6652 50622 VAD VSLT
025287,000623: 25,6653 01531 RTATLANT
025288,000624: 25,6654 77777 -
025289,000625: 25,6655 77777 -
025290,000626: 25,6656 00002 1
025291,000627: 25,6657 33433 STORE RTARG # UNIT TARGET VECTOR SCALED 2(+1)
025292,000628:
025293,000629: 25,6660 64771 DMP 5
025294,000630: 25,6661 62732 DDV DSU
025295,000631: 25,6662 73653 BMN SQRT
025296,000632: 25,6663 64726 DMP BDSU
025297,000633: 25,6664 61746 BDDV BOV
025298,000634: 25,6665 76472 RTB TSRT
025299,000635: 25,6666 13131 RINTALT # RE SCALED 2(+25)
025300,000636: 25,6667 77777 -
025301,000637: 25,6670 77777 - # P SCALED 2(+24)
025302,000638: 25,6671 13135 DP2(-6)
025303,000639: 25,6672 13121 GAMCHECK # COT(GAMMAE) SQ NEGATIVE
025304,000640: 25,6673 01024 RMAG # R COT(GAMMAE) SCALED 2(+28)
025305,000641: 25,6674 77777 - # RE COT(GAMMA) SCALED 2(+28)
025306,000642: 25,6675 77777 - # (RE - R) SCALED 2(+27)
025307,000643: 25,6676 13125 TANCHECK # TAN(THETAFF/2) EXCEEDS ----
025308,000644: 25,6677 20265 FRESHPD # ZERO PD POINTER
025309,000645: 25,6700 00010 7D # X = TAN(THETAFF/2) SCALED 2(+6)
025310,000646:
025311,000647: 25,6701 47575 NOLOD 1
025312,000648: 25,6702 51142 DSQ DAD
025313,000649: 25,6703 13141 DP2(-12) # DENOMINATOR SCALED 2(+12)
025314,000650:
025315,000651: 25,6704 47574 NOLOD 2
025316,000652: 25,6705 66633 DSU COMP
025317,000653: 25,6706 62776 DDV
025318,000654: 25,6707 13137 DP2(-11) # 1 - X(SQ) SCALED 2(+12)
025319,000655: 25,6710 00003 2 # COSEFF SCALED 2(+0)
025320,000656:
025321,000657: 25,6711 42774 DOT 2
025322,000658: 25,6712 63732 TSLT DSU
025323,000659: 25,6713 43776 BPL
025324,000660: 25,6714 01016 UNITR
025325,000661: 25,6715 01433 RTARG
025326,000662: 25,6716 00003 2 # COS ANGLE R TO TARG 2(+0)
025327,000663: 25,6717 00005 4 # COS FREE FALL ANGLE 2(+0)
025328,000664: 25,6720 13111 PASTIT # FF ANGLE EXCEEDS ANGLE TO TARGET
025329,000665:
025330,000666: 25,6721 56775 TSRT 1
025331,000667: 25,6722 62766 DDV VXSC
025332,000668: 25,6723 00001 0
025333,000669: 25,6724 00006 5
025334,000670: 25,6725 00003 2 # SINEFF SCALED 2(+0)
025335,000671: 25,6726 01375 UNITHORZ # IHP SINEFF SCALED 2(+1)
|
|
Page 644
|
025337,000673: 25,6727 75775 VXSC 1
025338,000674: 25,6730 50762 VAD VSU
025339,000675: 25,6731 01016 UNITR
025340,000676: 25,6732 00005 4 # IR COSEFF 2(+1)
025341,000677: 25,6733 77777 - # UNIT VECTOR ALONG ENTRY-POINT VECT 2(+1)
025342,000678: 25,6734 01433 RTARG # MINUS UNIT TARGET VECTOR 2(+1)
025343,000679:
025344,000680: 25,6735 47575 NOLOD 1
025345,000681: 25,6736 71176 ABVAL
025346,000682: 25,6737 32003 STORE 2 # D SCALED 2(+2)
025347,000683:
025348,000684: 25,6740 71174 ABVAL 2
025349,000685: 25,6741 75612 VXSC DOT
025350,000686: 25,6742 56776 TSRT
025351,000687: 25,6743 00774 VN
025352,000688: 25,6744 01375 UNITHORZ
025353,000689: 25,6745 00027 22D # -UNITN 2(+1)
025354,000690: 25,6746 00002 1 # DELTA V NORMAL SCALED 2(+11)
025355,000691:
025356,000692: 25,6747 71174 ABVAL 2
025357,000693: 25,6750 65716 BDSU TSLT
025358,000694: 25,6751 65176 ABS
025359,000695: 25,6752 01425 DIFFVECT # MAG OLD DIFFVECT 2(+2) AFTER ABVAL
025360,000696: 25,6753 00003 2 # NEW MAG DIFFVECT 2(+2)
025361,000697: 25,6754 00002 1 # DELD SCALED 2(+1)
025362,000698:
025363,000699: 25,6755 47576 NOLOD 0
025364,000700: 25,6756 32001 STORE 0 # DELD TO PD 0 ALSO
025365,000701:
025366,000702: 25,6757 64773 DMP 3
025367,000703: 25,6760 56712 TSRT DDV
025368,000704: 25,6761 70706 DAD BDDV
025369,000705: 25,6762 71672 BOV TSRT
025370,000706: 25,6763 01030 DELTAT
025371,000707: 25,6764 00003 2
025372,000708: 25,6765 00016 13D
025373,000709: 25,6766 77777 -
025374,000710: 25,6767 13155 TGOBIAS # 5 SECS
025375,000711: 25,6770 77777 - # ATTEMPT TO COMPUTE NEW ANORMAL 2(-12)
025376,000712: 25,6771 13066 ANOVFLOW # IF OVF, ANORMAL = 8 FT/S/S SIGN DELTA V
025377,000713: 25,6772 00004 3 # SCALE AN TRIAL BACK TO 2(-9)
025378,000714: 25,6773 33441 STORE ANORMAL # ANORMAL SCALED 2(-9) M/CS(+2)
025379,000715:
025380,000716: 25,6774 47575 GO-ON NOLOD 1
025381,000717: 25,6775 75776 VXSC
025382,000718: 25,6776 01367 UNITRXV # ANORMAL ALONG IP SCALED 2(-8)
025383,000719:
025384,000720: 25,6777 75775 VXSC 1
025385,000721: 25,7000 71176 ABVAL
025386,000722: 25,7001 01002 DELV
|
|
Page 645
|
025388,000724: 25,7002 21742 KPIP
025389,000725: 25,7003 32005 STORE 4 # MEASURED DELTA V SCALED 2(+5)
025390,000726:
025391,000727: 25,7004 47573 NOLOD 3
025392,000728: 25,7005 62722 DDV DMP
025393,000729: 25,7006 63766 TSLT VXSC
025394,000730: 25,7007 50753 VAD UNIT
025395,000731: 25,7010 01030 DELTAT
025396,000732: 25,7011 13167 FULHAM # APPROX COS OF THRUST ONTO HORIZ PLANE
025397,000733: 25,7012 00006 5
025398,000734: 25,7013 01375 UNITHORZ # COEF OF SIN TERM OF IT SCALED 2(+1)
025399,000735:
025400,000736: 25,7014 62775 DDV 1
025401,000737: 25,7015 63142 ASIN DAD
025402,000738: 25,7016 13165 RVH # RADIUS TO VISUAL HORIZON SCALED 2(+26) M
025403,000739: 25,7017 01024 RMAG # R SCALED 2(+25)
025404,000740: 25,7020 01443 LOOKANG # PHI SCALED 2(+0) REV.
025405,000741:
025406,000742: 25,7021 47575 NOLOD 1
025407,000743: 25,7022 55166 COS VXSC
025408,000744: 25,7023 01016 UNITR # COS(PHI) IR SCALED 2(+2)
025409,000745:
025410,000746: 25,7024 57174 SIN 2
025411,000747: 25,7025 75762 VXSC VSU
025412,000748: 25,7026 44776 VSLT
025413,000749: 25,7027 00023 18D # PHI
025414,000750: 25,7030 00015 12D # SIN COEF SCALED 2(+1)
025415,000751: 25,7031 77777 - # COS(PHI) SCALED 2(+2)
025416,000752: 25,7032 00002 1 # UNIT FINAL, IT, SCALED 2(+1)
025417,000753:
025418,000754: 25,7033 64773 DMP 3
025419,000755: 25,7034 62716 DDV TSLT
025420,000756: 25,7035 71672 BOV TSRT
025421,000757: 25,7036 75771 VXSC RTB
025422,000758: 25,7037 00003 2 # D 2(+2)
025423,000759: 25,7040 00005 4 # DELTA V 2(+5)
025424,000760: 25,7041 00001 0 # DELTA D 2(+1)
025425,000761: 25,7042 00002 1 # IS MAG VG GR THAN 2(+5) M/CS
025426,000762: 25,7043 13074 FIXVG # IF YES, SET MAG VG TO 2(+5) M/CS
025427,000763: 25,7044 00002 1 # IF NO, SCALE MAG VG BACK TO 2(+6)
025428,000764: 25,7045 77777 - # IT 2(+1)
025429,000765: 25,7046 20265 FRESHPD # ZERO PD POINTER
025430,000766: 25,7047 33353 STORE VG # VG SCALED 2(+7) M/CS
025431,000767:
025432,000768: 25,7050 75176 PREXIT VMOVE 0
025433,000769: 25,7051 00007 6
025434,000770: 25,7052 33425 STORE DIFFVECT # SAVE NEW DIFFVECT SCALED 2(+1)
025435,000771:
025436,000772: 25,7053 75176 VMOVE 0
025437,000773: 25,7054 15575 ZEROVEC
|
|
Page 646
|
025439,000775: 25,7055 33411 STORE CBDT # CBDT = 0 FOR 501 ABORTS
025440,000776:
025441,000777: 25,7056 44576 ITCI 0
025442,000778: 25,7057 00052 S2 # RETURN
025443,000779:
025444,000780: 25,7060 04000 CHEKEXIT TC INTPRET # EXIT FOR VR CHECK FAILURES
025445,000781:
025446,000782: 25,7061 76575 RTB 1
025447,000783: 25,7062 76776 ITC
025448,000784: 25,7063 20265 FRESHPD # ZERO PD POINTER
025449,000785: 25,7064 25657 VRFAIL
025450,000786:
025451,000787: 25,7065 53776 ANOVFLOW SIGN 0
025452,000788: 25,7066 13161 ANPSEUDO # AN = 8 FT/S/S SIGNED WITH DELTA V
025453,000789: 25,7067 00015 12D # DELTA V
025454,000790: 25,7070 33441 STORE ANORMAL
025455,000791:
025456,000792: 25,7071 76776 ITC 0
025457,000793: 25,7072 12775 GO-ON
025458,000794:
025459,000795: 25,7073 75175 FIXVG VMOVE 1
025460,000796: 25,7074 75771 VXSC RTB
025461,000797: 25,7075 77777 - # IT 2(+1)
025462,000798: 25,7076 15573 DP2(-1)
025463,000799: 25,7077 20265 FRESHPD # ZERO PD POINTER
025464,000800: 25,7100 33353 STORE VG # MAG VG 2(+5) M/CS SCALED 2(+7)
025465,000801:
025466,000802: 25,7101 76776 ITC 0
025467,000803: 25,7102 13051 PREXIT # GO CLOSE OUT 501 ABORT
025468,000804:
025469,000805: 25,7103 45176 GETRANGE DMOVE 0
025470,000806: 25,7104 13151 MINRANGE
025471,000807: 25,7105 32025 STORE 20D # FREEZE RANGE ANGLE AT MINRANGE
025472,000808:
025473,000809: 25,7106 76776 ITC 0
025474,000810: 25,7107 12635 GOTRANGE # CONTINUE
025475,000811:
025476,000812: 25,7110 77576 PASTIT EXIT 0
025477,000813: 25,7111 03007 TC ALARM
025478,000814: 25,7112 01403 OCT 01403
025479,000815: 25,7113 07060 TC CHEKEXIT
025480,000816:
025481,000817: 25,7114 77576 SMACHECK EXIT 0
025482,000818: 25,7115 03007 TC ALARM
025483,000819: 25,7116 01404 OCT 01404
025484,000820: 25,7117 07060 TC CHEKEXIT
025485,000821:
025486,000822: 25,7120 77576 GAMCHECK EXIT 0
025487,000823: 25,7121 03007 TC ALARM
025488,000824: 25,7122 01405 OCT 01405
|
|
Page 647
|
025490,000826: 25,7123 07060 TC CHEKEXIT
025491,000827:
025492,000828: 25,7124 77576 TANCHECK EXIT 0
025493,000829: 25,7125 03007 TC ALARM
025494,000830: 25,7126 01406 OCT 01406
025495,000831: 25,7127 07060 TC CHEKEXIT
025496,000832:
025497,000833: 25,7130 06145 33650 RINTALT 2DEC 6500085 B-25 # 400K FT RADIUS
025498,000834: 25,7132 02000 00000 DP2(-4) 2DEC 0.0625
025499,000835: 25,7134 00400 00000 DP2(-6) 2DEC 0.015625
025500,000836: 25,7136 00010 00000 DP2(-11) 2DEC 0.000488281
025501,000837: 25,7140 00004 00000 DP2(-12) 2DEC 0.000244141
025502,000838: 25,7142 06010 35650 KRANGE0 2DEC 0.188045173 # 2(+4)
025503,000839: 25,7144 51120 56532 KRANGE1 2DEC -.713839193 # 2(+11)
025504,000840: 25,7146 25641 36206 KRANGE2 2DEC 0.681759381 # 2(+18)
025505,000841: 25,7150 00467 16603 MINRANGE 2DEC 0.019010080 # 6.8436288 DEG 2(+0) REVS.
025506,000842: 25,7152 33537 15244 V400 2DEC 0.865198746 # 110.7454396 2(+7) M/CS
025507,000843: 25,7154 00000 37200 TGOBIAS 2DEC 0.000059605 # 5 SECS 2(+23) CS
025508,000844: 25,7156 20607 05301 VCRIT 2DEC 0.523875000 # 22,000 FT/SEC 2(+7) M/CS
025509,000845: 25,7160 03775 17232 ANPSEUDO 2DEC 0.124846080 # 8 FT/S/S 2(-9) M/CS/CS
025510,000846: 25,7162 06052 12650 RE 2DEC 0.190084130 # 6.378165 E6 M 2(+25) M
025511,000847: 25,7164 03025 05324 RVH 2DEC 0.095042065 # 6.378165 E6 M 2(+26) M
025512,000848: 25,7166 36044 03661 FULHAM 2DEC 0.9397046 # COS 20 DEG.
025513,000849:
|
|
Page 648
|
025515,000851:
025516,000852: # THESE ROUTINES COMPUTE VR TO ACHIEVE A CIRCULAR EARTH- OR MOON-CENTERED ORBIT
025517,000853:
025518,000854:
025519,000855:
025520,000856: 25,7170 45175 EARTHORB DMOVE 1
025521,000857: 25,7171 76776 ITC
025522,000858: 25,7172 13376 MUE
025523,000859: 25,7173 13201 SQRTMU/R
025524,000860:
025525,000861: 25,7174 45175 LUNDEBST DMOVE 1
025526,000862: 25,7175 63576 INCR,1
025527,000863: 25,7176 13400 MUM
025528,000864: 25,7177 00007 6D
025529,000865:
025530,000866: 25,7200 47574 SQRTMU/R NOLOD 2
025531,000867: 25,7201 62714 DDV TSLT*
025532,000868: 25,7202 53176 SQRT
025533,000869: 25,7203 01024 RMAG
025534,000870: 25,7204 00021 8D,1 # C(X1) =14-N (EARTH)
025535,000871: # =20-N (MOON)
025536,000872: 25,7205 41775 VXV 1
025537,000873: 25,7206 73166 UNIT VXSC
025538,000874: 25,7207 01016 UNITR
025539,000875: 25,7210 01323 UNITN
025540,000876: 25,7211 33417 STORE VR # VR SCALED AT 2(+8)M/CS
025541,000877:
025542,000878: 25,7212 76776 ITC 0
025543,000879: 25,7213 12431 CALCCBDT
025544,000880:
|
|
Page 649
|
025546,000882:
025547,000883: # THIS ROUTINE COMPUTES VR TO ACHIEVE HYPERBOLIC VELOCITY VF FOR TRANSEARTH INJECTION
025548,000884:
025549,000885:
025550,000886:
025551,000887: 25,7214 62775 TRANSEAR DDV 1
025552,000888: 25,7215 63376 TSLT*
025553,000889: 25,7216 13400 MUM
025554,000890: 25,7217 01024 RMAG
025555,000891: 25,7220 00011 4,1
025556,000892:
025557,000893: 25,7221 73176 UNIT 0
025558,000894: 25,7222 01323 VF # VF SCALED AT 2(+4)M/CS
025559,000895: 25,7223 33367 STORE UNITF
025560,000896:
025561,000897: 25,7224 47572 NOLOD 4
025562,000898: 25,7225 42742 DOT DAD
025563,000899: 25,7226 64716 DMP TSLT
025564,000900: 25,7227 61742 BDDV DAD
025565,000901: 25,7230 53176 SQRT
025566,000902: 25,7231 01016 UNITR
025567,000903: 25,7232 15565 DP2(-2)
025568,000904: 25,7233 00035 28D # (VF SQ)
025569,000905: 25,7234 00004 3
025570,000906: 25,7235 77777 -
025571,000907: 25,7236 13263 DP2(-10)
025572,000908: 25,7237 32033 STORE 26D # SCALED AT 2(+5)
025573,000909:
025574,000910: 25,7240 47575 NOLOD 1
025575,000911: 25,7241 70766 DAD VXSC
025576,000912: 25,7242 13261 DP2(-5)
025577,000913: 25,7243 01367 UNITF
025578,000914:
025579,000915: 25,7244 66774 DSU 2
025580,000916: 25,7245 75642 VXSC VAD
025581,000917: 25,7246 75622 VXSC VSLT
025582,000918: 25,7247 00033 26D
025583,000919: 25,7250 13261 DP2(-5)
025584,000920: 25,7251 01016 UNITR
025585,000921: 25,7252 77777 -
025586,000922: 25,7253 00037 30D # (VF)
025587,000923: 25,7254 00003 2
025588,000924: 25,7255 33417 STORE VR # VR SCALED AT 2(+8)M/CS
025589,000925:
025590,000926: 25,7256 76776 ITC 0
025591,000927: 25,7257 12431 CALCCBDT
025592,000928:
025593,000929: 25,7260 01000 00000 DP2(-5) 2DEC 0.03125
025594,000930: 25,7262 00020 00000 DP2(-10) 2DEC 0.000976563
025595,000931:
|
|
Page 650
|
025597,000933:
025598,000934: # THIS ROUTINE COMPUTES VR TO ACHIEVE A TRANSLUNAR ELLIPSE DEFINED BY A TARGET VECTOR RTRNSLUN AND A SEMI MAJOR
025599,000935: # AXIS SMA
025600,000936:
025601,000937:
025602,000938:
025603,000939: 25,7264 63775 TRANSLUN TSLT 1
025604,000940: 25,7265 53176 SQRT
025605,000941: 25,7266 13376 MUE
025606,000942: 25,7267 00002 1
025607,000943:
025608,000944: 25,7270 45175 DMOVE 1
025609,000945: 25,7271 56376 TSRT*
025610,000946: 25,7272 00037 30D # (RN)
025611,000947: 25,7273 00025 10D,1 # RN RESCALED TO 2(+26)M
025612,000948:
025613,000949: 25,7274 75174 VMOVE 2
025614,000950: 25,7275 45232 VSRT* BVSU
025615,000951: 25,7276 73026 UNIT VSRT
025616,000952: 25,7277 00766 RN
025617,000953: 25,7300 00025 10D,1 # RTRNSLUN-RMAG SCALED AT 2(+25)M
025618,000954: 25,7301 01323 RTRNSLUN
025619,000955: 25,7302 00002 1
025620,000956:
025621,000957: 25,7303 45775 VSRT 1
025622,000958: 25,7304 46776 BVSU
025623,000959: 25,7305 01016 UNITR
025624,000960: 25,7306 00002 1
025625,000961: 25,7307 33367 STORE UNITD
025626,000962:
025627,000963: 25,7310 47575 NOLOD 1
025628,000964: 25,7311 50776 VAD
025629,000965: 25,7312 01016 UNITR
025630,000966: 25,7313 33375 STORE UNITS
025631,000967:
025632,000968: 25,7314 71174 ABVAL 2
025633,000969: 25,7315 70742 DAD DAD
025634,000970: 25,7316 56776 TSRT
025635,000971: 25,7317 01323 RTRNSLUN
025636,000972: 25,7320 00037 30D # (C)
025637,000973: 25,7321 77777 - # (RN)
025638,000974: 25,7322 00002 1
025639,000975: 25,7323 33433 STORE S # S SCALED AT 2(+26)M
025640,000976:
025641,000977: 25,7324 47575 NOLOD 1
025642,000978: 25,7325 66676 DSU TSLC
025643,000979: 25,7326 00037 30D # (C)
025644,000980: 25,7327 00050 X2
025645,000981: 25,7330 33435 STORE DN
025646,000982:
025647,000983: 25,7331 47575 NOLOD 1
|
|
Page 651
|
025649,000985: 25,7332 56326 TSRT* BDSU
025650,000986: 25,7333 00016 6,2
025651,000987: 25,7334 01437 SMA
025652,000988:
025653,000989: 25,7335 64773 DMP 3
025654,000990: 25,7336 61711 BDDV INCR,2
025655,000991: 25,7337 63253 TSLT* SQRT
025656,000992: 25,7340 53766 SIGN VXSC
025657,000993: 25,7341 01437 SMA
025658,000994: 25,7342 01435 DN
025659,000995: 25,7343 77777 -
025660,000996: 25,7344 00021 16D
025661,000997: 25,7345 00002 0,2
025662,000998: 25,7346 01425 SGNTHETA
025663,000999: 25,7347 01375 UNITS
025664,001000:
025665,001001: 25,7350 56775 TSRT 1
025666,001002: 25,7351 65672 BDSU TSRT
025667,001003: 25,7352 01433 S
025668,001004: 25,7353 00007 6D
025669,001005: 25,7354 01437 SMA
025670,001006: 25,7355 00005 4
025671,001007:
025672,001008: 25,7356 64772 DMP 4
025673,001009: 25,7357 61653 BDDV SQRT
025674,001010: 25,7360 56766 TSRT VXSC
025675,001011: 25,7361 50622 VAD VSLT
025676,001012: 25,7362 75776 VXSC
025677,001013: 25,7363 01437 SMA
025678,001014: 25,7364 01433 S
025679,001015: 25,7365 77777 -
025680,001016: 25,7366 00007 6
025681,001017: 25,7367 01367 UNITD
025682,001018: 25,7370 77777 -
025683,001019: 25,7371 00012 9D
025684,001020: 25,7372 33417 STORE VR # VR SCALED AT 2(+8)M/CS
025685,001021:
025686,001022: 25,7373 76776 ITC 0
025687,001023: 25,7374 12431 CALCCBDT
025688,001024:
025689,001025: 25,7375 04507 33420 MUE 2DEC 0.145011008 # 3.98603223 E14 SCALED 2(+38)M(+3)/CS(+2)
025690,001026: 25,7377 03516 10273 MUM 2DEC 0.114151696 # 4.90277800 E08 SCALED 2(+32)M(+3)/CS(+2)
025691,001027:
|
|
Page 652
|
025693,001029:
025694,001030: # THIS ROUTINE COMPUTES THE DESIRED THRUST DIRECTION AS A HALF UNIT VECTOR XSC. IT COMPUTES THE HALF UNIT VECTOR
025695,001031: # YSC ALONG RN*XSC (I.E. DEFINES A PITCH AXIS HORIZONTAL, YAW AXIS UP ROLL ATTITUDE) AND ZSC ALONG XSC*YSC. IT
025696,001032: # REQUIRES PRIOR PASSES THROUGH ROUTINES CALCRVG AND CALCVGB TO ESTABLISH UNITR, VG, AND CBDT. X1 MUST CONTAIN
025697,001033: # 0,2,4... TO LOAD THE APPROPRIATE INTEGRATED INITIAL THRUST ACCELERATION MAGNITUDE ATDT
025698,001034:
025699,001035:
025700,001036:
025701,001037: 25,7401 73176 CALCXSC UNIT 0
025702,001038: 25,7402 01353 VG
025703,001039: 25,7403 33353 STORE UNITVG
025704,001040:
025705,001041: 25,7404 47574 NOLOD 2
025706,001042: 25,7405 40622 VPROJ VSLT
025707,001043: 25,7406 46776 BVSU
025708,001044: 25,7407 01411 CBDT # SCALED AT 2(+4)M/CS
025709,001045: 25,7410 00003 2
025710,001046: 25,7411 01411 CBDT
025711,001047:
025712,001048: 25,7412 47571 NOLOD 5
025713,001049: 25,7413 71110 ABVAL DDV*
025714,001050: 25,7414 51126 DSQ BDSU
025715,001051: 25,7415 53120 SQRT DMP*
025716,001052: 25,7416 63766 TSLT VXSC
025717,001053: 25,7417 50753 VAD UNIT
025718,001054: 25,7420 03631 ATDT,1 # SCALED AT 2(+5)M/CS
025719,001055: 25,7421 21043 NEARONE
025720,001056: 25,7422 03631 ATDT,1
025721,001057: 25,7423 00003 2
025722,001058: 25,7424 01353 UNITVG
025723,001059: 25,7425 33367 STORE XSC
025724,001060:
025725,001061: 25,7426 47574 NOLOD 2
025726,001062: 25,7427 41753 VXV UNIT
025727,001063: 25,7430 47176 COMP
025728,001064: 25,7431 01016 UNITR
025729,001065: 25,7432 33375 STORE YSC
025730,001066:
025731,001067: 25,7433 43575 TEST 1
025732,001068: 25,7434 75033 VMOVE COMP
025733,001069: 25,7435 00054 SPS2FLAG
025734,001070: 25,7436 13442 HEADWN2
025735,001071: 25,7437 01375 YSC
025736,001072: 25,7440 33375 STORE YSC
025737,001073:
025738,001074: 25,7441 47574 HEADWN2 NOLOD 2
025739,001075: 25,7442 41753 VXV UNIT
025740,001076: 25,7443 47176 COMP
025741,001077: 25,7444 01367 XSC
025742,001078: 25,7445 33403 STORE ZSC
|
|
Page 653
|
025744,001080: 25,7446 40576 ITCQ 0
025745,001081:
|
|
Page 654
|
025747,001083:
025748,001084: # THIS ROUTINE RESOLVES THE VECTOR IN RTINIT THROUGH AN ANGULAR ROTATION WIE(DTEAROT) SCALED AT ONE REV-
025749,001085: # OLUTION ABOUT THE UNIT POLAR AXIS UMITW. IT REQUIRES DTEAROT SCALED AT 2(+28)CS. IT LEAVES THE RESOLVED
025750,001086: # VECTOR IN RT WITH EASTERLY AND NORMAL COMPONENTS IN RTEAST AND RTNORM RESPECTIVELY, AT THE SAME SCALING. FOR
025751,001087: # CONTINUOUS UPDATING ONLY ONE ENTRY AT EARROT1 IS REQUIRED, WITH SUBSEQUENT ENTRIES AT EARROT2
025752,001088:
025753,001089:
025754,001090:
025755,001091: 25,7447 41775 EARROT1 VXV 1
025756,001092: 25,7450 44776 VSLT
025757,001093: 25,7451 01044 UNITW
025758,001094: 25,7452 01115 RTINIT
025759,001095: 25,7453 00003 2
025760,001096: 25,7454 33123 STORE RTEAST
025761,001097:
025762,001098: 25,7455 47575 NOLOD 1
025763,001099: 25,7456 41622 VXV VSLT
025764,001100: 25,7457 01044 UNITW
025765,001101: 25,7460 00002 1
025766,001102: 25,7461 33131 STORE RTNORM
025767,001103:
025768,001104: 25,7462 72775 EARROT2 STZ 1 # BRANCH TO OVERADAY UNTIL DTEAROT
025769,001105: 25,7463 62746 DDV BOV # LESS THAN ONE SIDEREAL DAY
025770,001106: 25,7464 00123 OVFIND
025771,001107: 25,7465 01145 DTEAROT
025772,001108: 25,7466 13520 1/WIE # TIME FOR ONE SIDEREAL REVOLUTION
025773,001109: 25,7467 13507 OVERADAY
025774,001110: 25,7470 32037 STORE 30D
025775,001111:
025776,001112: 25,7471 47574 NOLOD 2
025777,001113: 25,7472 55132 COS DSU
025778,001114: 25,7473 75776 VXSC
025779,001115: 25,7474 15573 DP2(-1)
025780,001116: 25,7475 01131 RTNORM
025781,001117:
025782,001118: 25,7476 57174 SIN 2
025783,001119: 25,7477 75642 VXSC VAD
025784,001120: 25,7500 50776 VAD
025785,001121: 25,7501 00037 30D
025786,001122: 25,7502 01123 RTEAST
025787,001123: 25,7503 01115 RTINIT
025788,001124: 25,7504 33215 STORE RT
025789,001125:
025790,001126: 25,7505 40576 ITCQ 0
025791,001127:
025792,001128: 25,7506 53775 OVERADAY SIGN 1
025793,001129: 25,7507 65776 BDSU
025794,001130: 25,7510 13520 1/WIE
025795,001131: 25,7511 01145 DTEAROT
025796,001132: 25,7512 01145 DTEAROT
025797,001133: 25,7513 33145 STORE DTEAROT
|
|
Page 655
|
025799,001135: 25,7514 43776 BPL 0 # GO BACK WITHOUT DISTURBING QPRET.
025800,001136: 25,7515 13520 1/WIE # ANY POSITIVE CONSTANT WILL DO.
025801,001137: 25,7516 13463 EARROT2
025802,001138:
025803,001139: 25,7517 01015 34732 1/WIE 2DEC 0.032098629 # 8.61641000 E4 SECS SCALED AT 2(+28)CS
025804,001140:
|
|
Page 656
|
025806,001142:
025807,001143: # CONVERSION CONSTANTS FOR FREE FALL INTEGRATION PROGRAM
025808,001144:
025809,001145: 25,7521 20304 23351 SCLRAVMD 2DEC .512
025810,001146: 25,7523 37200 00000 SCLRMDAV 2DEC 1000 B-10
025811,001147: 25,7525 21601 34056 SCLTAVMD 2DEC 4.4384169 B-3
025812,001148: 25,7527 24605 15301 SCLVAVMD 2DEC .64876819
025813,001149: 25,7531 30523 00147 SCLVMDAV 2DEC .770691300
025814,001150:
025815,001151:
025816,001152: # POWERED FLIGHT CONSTANTS. DELCDU SCALED AT KE/2 REVS (KE =A/P GAIN=1.5) EVS (KE =A/P GAIN =1.5)
025817,001153: 25,7533 00134 27361 DELCDU 2DEC 0.00566 # ( =1.02 DEG)
025818,001154: 25,7535 00113 26154 2DEC 0.00462 # ( =0.83 DEG)
025819,001155: 25,7537 00216 33625 2DEC 0.00872 # ( =1.57 DEG)
025820,001156: 25,7541 00450 37342 MUE(41) 2DEC .145011008 B-3 # SCALED AT 2(+41)M(+3)/CS(+2)
025821,001157:
|
|
Page 657
|
025823,001159:
025824,001160: # ROUTINE CALCMANU COMPUTES THE SEQUENCE OF MANUEVERS REQUIRED IN GOING FROM AN INITIAL ATTITUDE DEFINED BY THE
025825,001161: # EULER ANGLES IN THETAD,+1,+2 WHICH ARE THE PRESENT OUTER, MIDDLE, INNER GIMBAL ANGLES, TO AN ATTITUDE DEFINED
025826,001162: # BY THE MATRIX X,Y,ZSCD, THE DESIRED BODY AXES. CALCMANU WILL EXIT WITH A MANEUVER ANGLE IN THETAMAN SCALED AT
025827,001163: # 1 REV, AND THE HALF UNIT VECTOR IN WC. ROTATIONS ARE BASED ON A PITCH/YAW-THEN ROLL POLICY. IF THIS
025828,001164: # POLICY WOULD CAUSE GIMBAL LOCK, A ROLL-PITCH/YAW-ROLL IS ADOPTED. IN EXTREMELY RARE CASES, INVOLVING MANEU-
025829,001165: # VERS FROM ONE GIMBAL LOCK AREA TO THE OTHER, THE POLICY MAY BE PITCH/YAW-ROLL-PITCH/YAW-ROLL, OR EVEN ROLL-
025830,001166: # PITCH/YAW-ROLL-PITCH/YAW-ROLL. IN ALL CASES, IF THE MANEUVER IS A ROLL, ROLLFLAG WILL BE ON. IF THERE IS NO
025831,001167: # MANEUVER REQUIRED,(VEHICLE LESS THAN ABOUT 3 DEGS AWAY FROM DESIRED ATTITUDE), CALCFLAG WILL BEOFF.
025832,001168: # OTHERWISE, CALCFLAG IS ON. CALCMANU PRESUMES THAT INITIAL CONDITIONS AND FINAL CONDITIONS ARE NOT IN GIMBAL LOCK
025833,001169: 26,6000 SETLOC 54000
025834,001170: 26,6000 77576 CALCMANU EXIT 0
025835,001171:
025836,001172: 26,6001 03440 TC FLAG2UP
025837,001173: 26,6002 12000 OCT 12000 # SET BACKFLAG, CALCFLAG
025838,001174:
025839,001175: 26,6003 03452 TC FLAG2DWN
025840,001176: 26,6004 04600 OCT 04600 # REMOVE ROLLFLAG ,NEGFLAG,BEGINFLG
025841,001177:
025842,001178: 26,6005 04000 TC INTPRET
025843,001179:
025844,001180: 26,6006 75575 AXT,1 1
025845,001181: 26,6007 45572 ITA ITC
025846,001182: 26,6010 00007 6
025847,001183: 26,6011 01472 EXITCADR
025848,001184: 26,6012 12013 THETRIG
025849,001185:
025850,001186: 26,6013 76776 ITC 0
025851,001187: 26,6014 12110 CALCSMNB # COMPUTE X,Y,ZNB
025852,001188:
025853,001189: 26,6015 76776 ITC 0
025854,001190: 26,6016 12213 CALCNBSC # COMPUTE X,Y,ZSC
025855,001191:
025856,001192: 26,6017 74575 AXT,2 1
025857,001193: 26,6020 76576 RTB # SET X2 TO 0
025858,001194: 26,6021 00001 0
025859,001195: 26,6022 20265 FRESHPD # SET PD POINTER TO 0
025860,001196:
025861,001197: 26,6023 42774 DOT 2
025862,001198: 26,6024 65132 ABS DSU
025863,001199: 26,6025 43776 BPL
025864,001200: 26,6026 01367 XSC
025865,001201: 26,6027 01411 XSCD
025866,001202: 26,6030 15655 COSSIX
025867,001203: 26,6031 14102 180/ZERO
025868,001204:
025869,001205: 26,6032 41775 NOT179 VXV 1
025870,001206: 26,6033 73176 UNIT
025871,001207: 26,6034 01367 XSC
025872,001208: 26,6035 01411 XSCD
025873,001209: 26,6036 33323 STORE WC
|
|
Page 658
|
025875,001211:
025876,001212: 26,6037 65175 ACCEPTWC ABS 1
025877,001213: 26,6040 66616 DSU BPL
025878,001214: 26,6041 01325 WC +2
025879,001215: 26,6042 15543 COS27 # IF WC IS 27 OR LESS DEGS AWAY FROM
025880,001216: 26,6043 15520 GETPTCH # +,- YSM, GIMBAL LOCK IS IMPOSSIBLE
025881,001217:
025882,001218: 26,6044 41775 VXV 1 # PITCH/YAW MAY CAUSE GIMBAL LOCK. VARIOUS
025883,001219: 26,6045 41753 VXV UNIT # TESTS MUST BE MADE
025884,001220: 26,6046 01323 WC
025885,001221: 26,6047 15601 UNITY # MP IS POINT OF CLOSEST APPROACH TO +YSM
025886,001222: 26,6050 01323 WC # MP TO PD AT 0
025887,001223:
025888,001224: 26,6051 45176 DMOVE 0
025889,001225: 26,6052 15575 ZEROVEC
025890,001226: 26,6053 32020 STORE 15D
025891,001227:
025892,001228: 26,6054 47575 NOLOD 1
025893,001229: 26,6055 41776 VXV
025894,001230: 26,6056 01411 XSCD # MP*XSCD TO PD AT 6
025895,001231:
025896,001232: 26,6057 41775 VXV 1
025897,001233: 26,6060 42616 DOT BPL
025898,001234: 26,6061 00001 0
025899,001235: 26,6062 01367 XSC
025900,001236: 26,6063 77777 - # BRANCH TO BEGINARC IF ARC FROM XSC TO
025901,001237: 26,6064 14351 BEGINARC # XSCD DOES NOT INCLUDE MP OR -MP
025902,001238:
025903,001239: 26,6065 50775 VAD 1
025904,001240: 26,6066 42616 DOT BPL
025905,001241: 26,6067 01367 XSC
025906,001242: 26,6070 01411 XSCD
025907,001243: 26,6071 00001 0
025908,001244: 26,6072 14076 PLUSPOLE
025909,001245:
025910,001246: 26,6073 42576 SWITCH 0
025911,001247: 26,6074 00050 NEGFLAG # -MP IS ON ARC
025912,001248:
025913,001249: 26,6075 76776 PLUSPOLE ITC 0
025914,001250: 26,6076 14201 NORMLIMS
025915,001251:
025916,001252: 26,6077 76776 ITC 0
025917,001253: 26,6100 14316 FILENORM
025918,001254:
025919,001255: 26,6101 42775 180/ZERO DOT 1
025920,001256: 26,6102 73776 BMN
025921,001257: 26,6103 01367 XSC
025922,001258: 26,6104 01411 XSCD
025923,001259: 26,6105 15351 180CASE
025924,001260:
025925,001261: 26,6106 47575 NOLOD 1
|
|
Page 659
|
025927,001263: 26,6107 66756 DSU BMN
025928,001264: 26,6110 15541 COS3
025929,001265: 26,6111 15401 NOGIMTST
025930,001266:
025931,001267: 26,6112 42773 DOT 3
025932,001268: 26,6113 75622 VXSC VSLT
025933,001269: 26,6114 74633 VSU COMP
025934,001270: 26,6115 73012 UNIT DOT
025935,001271: 26,6116 01425 ZSCD
025936,001272: 26,6117 01367 XSC
025937,001273: 26,6120 01367 XSC
025938,001274: 26,6121 00003 2
025939,001275: 26,6122 01425 ZSCD
025940,001276: 26,6123 01403 ZSC # COSROLL TO PD AT 0 SCALED AT 2(2)
025941,001277:
025942,001278: 26,6124 47575 NOLOD 1
025943,001279: 26,6125 66616 DSU BPL
025944,001280: 26,6126 15655 COSSIX
025945,001281: 26,6127 14171 CALCSNAP
025946,001282:
025947,001283: 26,6130 41775 VXV 1 # ROLL IS REQUIRED
025948,001284: 26,6131 42776 DOT
025949,001285: 26,6132 01403 ZSC
025950,001286: 26,6133 01425 ZSCD
025951,001287: 26,6134 01367 XSC # XSC.(ZSC*ZSCD) TO PD AT 2
025952,001288:
025953,001289: 26,6135 63775 TSLT 1
025954,001290: 26,6136 61056 ACOS SIGN
025955,001291: 26,6137 00001 0
025956,001292: 26,6140 00002 1
025957,001293: 26,6141 33455 STORE THETAMAN
025958,001294:
025959,001295: 26,6142 65174 ABS 2
025960,001296: 26,6143 66756 DSU BMN
025961,001297: 26,6144 76776 ITC
025962,001298: 26,6145 01371 XSC +2
025963,001299: 26,6146 15545 COS63
025964,001300: 26,6147 14152 NOTEST
025965,001301: 26,6150 15240 ROLLTEST # SHORT ROLL MAY GO THROUGH GIMBAL LOCK
025966,001302:
025967,001303: 26,6151 53775 NOTEST SIGN 1 # ATTACH SIGN OF THETAMAN TO WC
025968,001304: 26,6152 75776 VXSC
025969,001305: 26,6153 21043 NEARONE
025970,001306: 26,6154 01455 THETAMAN
025971,001307: 26,6155 01367 XSC
025972,001308: 26,6156 33323 STORE WC
025973,001309:
025974,001310: 26,6157 65176 ABS 0 # THETAMAN MUST BE +VE FOR MANUJOB
025975,001311: 26,6160 01455 THETAMAN
025976,001312: 26,6161 33455 STORE THETAMAN
|
|
Page 660
|
025978,001314: 26,6162 77576 EXIT 0
025979,001315:
025980,001316: 26,6163 03440 TC FLAG2UP
025981,001317: 26,6164 04000 OCT 04000 # SET ROLLFLAG
025982,001318:
025983,001319: 26,6165 04000 TC INTPRET
025984,001320:
025985,001321: 26,6166 44576 ITCI 0
025986,001322: 26,6167 01472 EXITCADR # EXIT ON THE ROLL WHEN PITCH/YAW IS OVER
025987,001323:
025988,001324: 26,6170 42575 CALCSNAP SWITCH 1 # WE ARE THERE
025989,001325: 26,6171 76776 ITC
025990,001326: 26,6172 00046 CALCFLAG # REMOVE CALCFLAG
025991,001327: 26,6173 12167 CALCSCNB
025992,001328:
025993,001329: 26,6174 76776 ITC 0
025994,001330: 26,6175 12072 CALCCDU # SET THETAD,S TO CORRECT VALUES
025995,001331:
025996,001332: 26,6176 44576 ITCI 0
025997,001333: 26,6177 01472 EXITCADR # THIS IS THE LAST EXIT FROM CALCMANU
025998,001334:
025999,001335: 26,6200 45574 NORMLIMS ITA 2
026000,001336: 26,6201 76455 RTB AXC,1 # SET PD TO 18
026001,001337: 26,6202 65103 ABS ACOS
026002,001338: 26,6203 01455 THETAMAN # (TEMPORARY STORAGE)
026003,001339: 26,6204 15645 SETPD18
026004,001340: 26,6205 00003 2 # -2 TO X1
026005,001341: 26,6206 00003 2 # C TO 18
026006,001342:
026007,001343: 26,6207 47575 BACKLIM NOLOD 1
026008,001344: 26,6210 65776 BDSU
026009,001345: 26,6211 15557 30DEG # 30-C TO 20 AT 4PI
026010,001346:
026011,001347: 26,6212 55176 COS 0
026012,001348: 26,6213 00025 20D # COS(30-C) TO PD AT 22
026013,001349:
026014,001350: 26,6214 57174 SIN 2
026015,001351: 26,6215 62722 DDV DMP
026016,001352: 26,6216 61072 ACOS TSRT
026017,001353: 26,6217 00025 20D
026018,001354: 26,6220 77777 -
026019,001355: 26,6221 15551 1/TAN33 # (1/TAN33 SCALED AT 2(1) )
026020,001356: 26,6222 00002 1 # OKA TO 22 AT 4PI
026021,001357:
026022,001358: 26,6223 45176 DMOVE 0
026023,001359: 26,6224 15563 90DEG # 90 DEGREES TO 24
026024,001360:
026025,001361: 26,6225 43176 SMOVE 0
026026,001362: 26,6226 00047 X1 # X1 TO 26
|
|
Page 661
|
026028,001364: 26,6227 45174 DMOVE 2
026029,001365: 26,6230 47056 COMP SIGN
026030,001366: 26,6231 70633 DAD COMP
026031,001367: 26,6232 15563 90DEG # -180 IF X1=-2,0 IF X1=0, TO 24
026032,001368:
026033,001369: 26,6233 45175 DMOVE 1
026034,001370: 26,6234 43433 TEST COMP
026035,001371: 26,6235 15563 90DEG # 90DEG SCALED AT 4PI
026036,001372: 26,6236 00050 NEGFLAG
026037,001373: 26,6237 14242 POSPOLE
026038,001374: 26,6240 32033 STORE 26D
026039,001375:
026040,001376: # +90 IN MPAC IF FLAG=0
026041,001377: # -90 IN MPAC IF FLAG=1
026042,001378: 26,6241 47575 POSPOLE NOLOD 1
026043,001379: 26,6242 53776 SIGN
026044,001380: 26,6243 01325 WC +2
026045,001381:
026046,001382: # +90 IN 24 IF
026047,001383: # A) FLAG=0, WC +2 POS
026048,001384: # B) FLAG=1, WC +2 NEG
026049,001385: # -90 IN 24 IF
026050,001386: # A) FLAG=0, WC +2 NEG
026051,001387: # B) FLAG=1, WC +2 POS
026052,001388: 26,6244 47575 NOLOD 1
026053,001389: 26,6245 66776 DSU
026054,001390: 26,6246 00031 24D # 180J-90SIGMIM TO 28
026055,001391:
026056,001392: 26,6247 43175 SMOVE 1
026057,001393: 26,6250 47776 BZE
026058,001394: 26,6251 00047 X1
026059,001395: 26,6252 14300 CNEGLIMS # TO CNEGLIMS IF X1 IS ZERO
026060,001396:
026061,001397: 26,6253 66776 DSU 0
026062,001398: 26,6254 00035 28D
026063,001399: 26,6255 00027 22D
026064,001400: 26,6256 32007 STORE 6 # NBL1 TO 6, SCALED AT 4PI
026065,001401:
026066,001402: 26,6257 70776 DAD 0
026067,001403: 26,6260 00027 22D
026068,001404: 26,6261 32010 STORE 7 # NEL1 TO 7
026069,001405:
026070,001406: 26,6262 66775 DSU 1
026071,001407: 26,6263 43776 BPL
026072,001408: 26,6264 00023 18D
026073,001409: 26,6265 15561 3DEG
026074,001410: 26,6266 14314 ENDNORMS
026075,001411:
026076,001412: 26,6267 75575 AXT,1 1
026077,001413: 26,6270 76433 RTB COMP
|
|
Page 662
|
026079,001415: 26,6271 00001 0 # SET X1 TO 0
026080,001416: 26,6272 15651 SETPD20
026081,001417: 26,6273 00023 18D # COMPLEMENT C
026082,001418: 26,6274 32023 STORE 18D
026083,001419:
026084,001420: 26,6275 76776 ITC 0
026085,001421: 26,6276 14210 BACKLIM # BACKLIMITS EXIST IF C LESS THAN 3
026086,001422:
026087,001423: 26,6277 66776 CNEGLIMS DSU 0
026088,001424: 26,6300 00035 28D
026089,001425: 26,6301 00027 22D
026090,001426: 26,6302 32011 STORE 8D # NBL0 TO 8
026091,001427:
026092,001428: 26,6303 70774 DAD 2
026093,001429: 26,6304 73535 LXA,1 SXA,1
026094,001430: 26,6305 75576 AXT,1
026095,001431: 26,6306 00035 28D
026096,001432: 26,6307 00027 22D
026097,001433: 26,6310 00116 MPAC
026098,001434: 26,6311 00012 9D # NEL0 TO 9, PROTECTING 10
026099,001435: 26,6312 00001 0 # RESET X1 TO 0
026100,001436:
026101,001437: 26,6313 44576 ENDNORMS ITCI 0 # END OF NORMLIMS CALCULATIONS
026102,001438: 26,6314 01455 THETAMAN # END OF NORMLIMS CALCS
026103,001439:
026104,001440: 26,6315 43176 FILENORM SMOVE 0
026105,001441: 26,6316 00007 6D # 6 INTO 10 IF X1=0 ,OR
026106,001442: 26,6317 34025 STORE 10D,1 # 6 INTO 12 IF X1=-2
026107,001443:
026108,001444: 26,6320 43175 SMOVE 1 # 7 INTO 11 IF X1=0 , OR
026109,001445: 26,6321 62576 INCR,2 # 7 INTO 13 IF X1=-2
026110,001446: 26,6322 00010 7
026111,001447: 26,6323 77776 - 2 # MOVE LIMIT LIST POINTER BY -2 (TO -2)
026112,001448: 26,6324 34027 STORE 11D,1
026113,001449:
026114,001450: 26,6325 43175 SMOVE 1
026115,001451: 26,6326 73611 BMN SWITCH
026116,001452: 26,6327 00047 X1
026117,001453: 26,6330 14341 SET15D
026118,001454: 26,6331 00044 BACKFLAG # SET BACKFLAG
026119,001455:
026120,001456: 26,6332 43176 SMOVE 0
026121,001457: 26,6333 00011 8D
026122,001458: 26,6334 32015 STORE 12D # 8 INTO 12 IF X1=0
026123,001459:
026124,001460: 26,6335 43176 SMOVE 0
026125,001461: 26,6336 00012 9D
026126,001462: 26,6337 32016 STORE 13D # 9 INTO 13 IF X1=0
026127,001463:
026128,001464: 26,6340 45175 SET15D DMOVE 1
|
|
Page 663
|
026130,001466: 26,6341 43433 TEST COMP
026131,001467: 26,6342 15573 UNITX
026132,001468: 26,6343 00050 NEGFLAG
026133,001469: 26,6344 14347 PLUSMP
026134,001470: 26,6345 32020 STORE 15D
026135,001471:
026136,001472: 26,6346 47576 PLUSMP NOLOD 0
026137,001473: 26,6347 32020 STORE 15D
026138,001474:
026139,001475: 26,6350 75575 BEGINARC AXT,1 1
026140,001476: 26,6351 42576 SWITCH # SET X1 TO 0
026141,001477: 26,6352 00001 0
026142,001478: 26,6353 00051 BEGINFLG # SET BEGINFLG
026143,001479:
026144,001480: 26,6354 76575 ENDCHEK RTB 1
026145,001481: 26,6355 77576 EXIT
026146,001482: 26,6356 15645 SETPD18
026147,001483:
026148,001484: 26,6357 03452 TC FLAG2DWN
026149,001485: 26,6360 00400 OCT 00400 # REMOVE NEGFLAG
026150,001486:
026151,001487: 26,6361 04000 TC INTPRET
026152,001488:
026153,001489: 26,6362 64175 ABS* 1
026154,001490: 26,6363 65616 BDSU BPL
026155,001491: 26,6364 02761 XSC +2,1
026156,001492: 26,6365 15545 COS63 # IS END CLOSE TO A POLE Q.
026157,001493: 26,6366 14714 OVERYET # BRANCH TO OVERYET IF NOT
026158,001494:
026159,001495: 26,6367 43575 SETWARN TEST 1
026160,001496: 26,6370 42576 SWITCH
026161,001497: 26,6371 00051 BEGINFLG
026162,001498: 26,6372 14375 DONTSET # SET ROLLFLAG IF BEGINNING OF ARC NEAR
026163,001499: 26,6373 00045 ROLLFLAG # LOCK
026164,001500:
026165,001501: 26,6374 44175 DONTSET DMOVE* 1
026166,001502: 26,6375 43611 BPL SWITCH
026167,001503: 26,6376 02761 XSC +2,1
026168,001504: 26,6377 14402 POSPOLE1 # IF XSC +2,1 NEG, SET NEGFLAG
026169,001505: 26,6400 00050 NEGFLAG
026170,001506:
026171,001507: 26,6401 43174 POSPOLE1 SMOVE 2
026172,001508: 26,6402 43556 TEST BMN
026173,001509: 26,6403 76776 ITC
026174,001510: 26,6404 00020 15D
026175,001511: 26,6405 00050 NEGFLAG
026176,001512: 26,6406 14412 NEAR+MP
026177,001513: 26,6407 14714 OVERYET
026178,001514: 26,6410 14416 F2
|
|
Page 664
|
026180,001516:
026181,001517: 26,6411 47575 NEAR+MP NOLOD 1
026182,001518: 26,6412 47616 BZE BPL
026183,001519: 26,6413 14416 F2
026184,001520: 26,6414 14714 OVERYET
026185,001521:
026186,001522: 26,6415 42776 F2 DOT 0
026187,001523: 26,6416 01411 XSCD
026188,001524: 26,6417 00001 0
026189,001525:
026190,001526: 26,6420 42774 DOT 2
026191,001527: 26,6421 66615 DSU TEST
026192,001528: 26,6422 47176 COMP
026193,001529: 26,6423 01367 XSC
026194,001530: 26,6424 00001 0
026195,001531: 26,6425 77777 -
026196,001532: 26,6426 00050 NEGFLAG
026197,001533: 26,6427 14432 BEGIN1
026198,001534: 26,6430 33433 STORE DTEMP1
026199,001535:
026200,001536: 26,6431 47575 BEGIN1 NOLOD 1
026201,001537: 26,6432 43433 TEST COMP
026202,001538: 26,6433 00051 BEGINFLG
026203,001539: 26,6434 14437 BEGIN2
026204,001540: 26,6435 33433 STORE DTEMP1
026205,001541:
026206,001542: 26,6436 47575 BEGIN2 NOLOD 1
026207,001543: 26,6437 43776 BPL
026208,001544: 26,6440 14714 OVERYET
026209,001545:
026210,001546: 26,6441 43174 F3 SMOVE 2 # SPLITMANU( IF IT HAPPENS) NEEDS TO KNOW
026211,001547: 26,6442 66615 DSU TEST # WHICH LIMITS REFER TO THE BEGINNING OF
026212,001548: 26,6443 47176 COMP
026213,001549: 26,6444 00050 X2
026214,001550: 26,6445 15567 DP2(-13)
026215,001551: 26,6446 00051 BEGINFLG
026216,001552: 26,6447 14452 F4
026217,001553: 26,6450 32051 STORE S1
026218,001554:
026219,001555: # IF S1=+,-2, THEN THE LIMITS ABOUT TO BE
026220,001556: # CALCULATED WILL END UP IN PD AT 0
026221,001557: # IF S1=+,-4, THE LIMITS WILL END UP AT
026222,001558: # 2,4 IN PD
026223,001559: # IF S1 IS NEG, THEN THE TAGGED LIMITS
026224,001560: # ARE THE ONES NOT TO USE IN SPLTMANU
026225,001561: # IF S1 IS POS, THE TAGGED LIMITS SHOULD
026226,001562: # BE USED
026227,001563: 26,6451 47576 F4 NOLOD 0
026228,001564: 26,6452 32051 STORE S1
026229,001565:
026230,001566: 26,6453 45175 DMOVE 1
|
|
Page 665
|
026232,001568: 26,6454 43433 TEST COMP
026233,001569: 26,6455 15573 UNITX
026234,001570: 26,6456 00051 BEGINFLG
026235,001571: 26,6457 14462 F5
026236,001572: 26,6460 33433 STORE DTEMP1
026237,001573:
026238,001574: 26,6461 47575 F5 NOLOD 1
026239,001575: 26,6462 43433 TEST COMP
026240,001576: 26,6463 00050 NEGFLAG
026241,001577: 26,6464 14467 F6
026242,001578: 26,6465 33433 STORE DTEMP1
026243,001579:
026244,001580: 26,6466 47575 F6 NOLOD 1
026245,001581: 26,6467 53776 SIGN
026246,001582: 26,6470 01325 WC +2
026247,001583: 26,6471 33433 STORE DTEMP1
026248,001584:
026249,001585: 26,6472 64176 ABS* 0
026250,001586: 26,6473 02761 XSC +2,1 # COSC TO 18 AT 2(1)
026251,001587:
026252,001588: 26,6474 56774 TSRT 2
026253,001589: 26,6475 66711 DSU INCR,2
026254,001590: 26,6476 73776 BMN
026255,001591: 26,6477 00023 18D
026256,001592: 26,6500 00002 1
026257,001593: 26,6501 15541 COS3
026258,001594: 26,6502 77776 - 2
026259,001595: 26,6503 14511 SOMESUN
026260,001596:
026261,001597: 26,6504 76776 ITC 0
026262,001598: 26,6505 14201 NORMLIMS
026263,001599:
026264,001600: 26,6506 76776 ITC 0
026265,001601: 26,6507 14673 ALLSHADE
026266,001602:
026267,001603: 26,6510 74173 SOMESUN VMOVE* 3
026268,001604: 26,6511 41604 VXV VXV*
026269,001605: 26,6512 73033 UNIT COMP
026270,001606: 26,6513 43433 TEST COMP
026271,001607: 26,6514 02755 XSC,1
026272,001608: 26,6515 15601 UNITY
026273,001609: 26,6516 02755 XSC,1
026274,001610: 26,6517 00050 NEGFLAG
026275,001611: 26,6520 14523 POSP1
026276,001612: 26,6521 32025 STORE 20D
026277,001613:
026278,001614: 26,6522 73575 POSP1 LXA,1 1
026279,001615: 26,6523 47576 NOLOD
026280,001616: 26,6524 00047 X1
|
|
Page 666
|
026282,001618: 26,6525 61175 ACOS 1
026283,001619: 26,6526 56776 TSRT
026284,001620: 26,6527 00023 18D
026285,001621: 26,6530 00002 1 # C/2 TO 26 SCALED AT 2PI
026286,001622:
026287,001623: 26,6531 47575 NOLOD 1
026288,001624: 26,6532 66673 DSU SIN
026289,001625: 26,6533 15553 1.5DEG # SIN(C/2-1.5) TO 28
026290,001626:
026291,001627: 26,6534 66775 DSU 1
026292,001628: 26,6535 57122 SIN DMP
026293,001629: 26,6536 15555 31.5DEG
026294,001630: 26,6537 00033 26D # SIN(C/2-1.5)SIN,31.5-C/2) TO 28
026295,001631:
026296,001632: 26,6540 70775 DAD 1
026297,001633: 26,6541 57176 SIN
026298,001634: 26,6542 00033 26D # SIN(C/2+1.5) TO PD AT 30
026299,001635: 26,6543 15553 1.5DEG
026300,001636:
026301,001637: 26,6544 70774 DAD 2
026302,001638: 26,6545 57122 SIN DMP
026303,001639: 26,6546 61653 BDDV SQRT
026304,001640: 26,6547 00033 26D
026305,001641: 26,6550 15555 31.5DEG
026306,001642: 26,6551 32045 STORE VACZ
026307,001643:
026308,001644: 26,6552 45176 DMOVE 0
026309,001645: 26,6553 21043 NEARONE
026310,001646: 26,6554 32041 STORE VACX
026311,001647:
026312,001648: 26,6555 76575 RTB 1 # PD SET TO AVOID CONFLICT WITH ARCTAN
026313,001649: 26,6556 76526 RTB BDSU
026314,001650: 26,6557 15643 SETPD6
026315,001651: 26,6560 20504 ARCTAN
026316,001652: 26,6561 15565 DP2(-2)
026317,001653: 26,6562 32033 STORE 26D # SA AT 26 SCALED AT 4PI
026318,001654:
026319,001655: 26,6563 42776 DOT 0
026320,001656: 26,6564 01323 WC
026321,001657: 26,6565 00025 20D # TO PD TO SIGN AR IN NEXT EQUATION
026322,001658:
026323,001659: 26,6566 74172 VMOVE* 4
026324,001660: 26,6567 41753 VXV UNIT
026325,001661: 26,6570 42633 DOT COMP
026326,001662: 26,6571 63703 TSLT ACOS
026327,001663: 26,6572 56656 TSRT SIGN
026328,001664: 26,6573 02755 XSC,1 # POINT.UNIT(WC*XSC,1)
026329,001665: 26,6574 01323 WC
026330,001666: 26,6575 00025 20D
026331,001667: 26,6576 00002 1
|
|
Page 667
|
026333,001669: 26,6577 00002 1 # AR TO THETAMAN, SCALED AT 4PI
026334,001670: 26,6600 33455 STORE THETAMAN
026335,001671:
026336,001672: 26,6601 66776 DSU 0
026337,001673: 26,6602 01455 THETAMAN
026338,001674: 26,6603 00033 26D
026339,001675: 26,6604 34026 STORE 10D,2 # AR-SA
026340,001676:
026341,001677: 26,6605 76575 RTB 1
026342,001678: 26,6606 70776 DAD
026343,001679: 26,6607 15647 SETPD28
026344,001680: 26,6610 01455 THETAMAN
026345,001681: 26,6611 34030 STORE 11D,2 # AR+SA
026346,001682:
026347,001683: 26,6612 74175 VMOVE* 1
026348,001684: 26,6613 42723 DOT ABS
026349,001685: 26,6614 02755 XSC,1 # ABS(XSC,1.MP) TO 26 AT 2(2)
026350,001686: 26,6615 00001 0
026351,001687:
026352,001688: 26,6616 65175 ABS 1
026353,001689: 26,6617 61176 ACOS
026354,001690: 26,6620 00003 2 # ACOS(ABS(MP.UNITY)) TO 28
026355,001691:
026356,001692: 26,6621 47574 NOLOD 2
026357,001693: 26,6622 70663 DAD COS
026358,001694: 26,6623 64716 DMP TSLT
026359,001695: 26,6624 15557 30DEG
026360,001696: 26,6625 00033 26D
026361,001697: 26,6626 00002 1
026362,001698: 26,6627 32021 STORE 16D # COSB TO 16 AT 2(2)
026363,001699:
026364,001700: 26,6630 66773 DSU 3
026365,001701: 26,6631 65063 ABS COS
026366,001702: 26,6632 64716 DMP TSLT
026367,001703: 26,6633 65616 BDSU BPL
026368,001704: 26,6634 15557 30DEG
026369,001705: 26,6635 77777 -
026370,001706: 26,6636 77777 -
026371,001707: 26,6637 00002 1
026372,001708: 26,6640 15571 C33
026373,001709: 26,6641 14714 OVERYET # IF C33-COSA POS
026374,001710:
026375,001711: 26,6642 76776 ITC 0
026376,001712: 26,6643 14201 NORMLIMS
026377,001713:
026378,001714: 26,6644 66775 DSU 1
026379,001715: 26,6645 73776 BMN
026380,001716: 26,6646 15571 C33
026381,001717: 26,6647 00021 16D
026382,001718: 26,6650 14673 ALLSHADE
|
|
Page 668
|
026384,001720: 26,6651 44176 DMOVE* 0
026385,001721: 26,6652 00030 11D,2 # 11D,2 TO PD FOR PROTECTION
026386,001722:
026387,001723: 26,6653 43776 BPL 0
026388,001724: 26,6654 01433 DTEMP1
026389,001725: 26,6655 14666 11MANU
026390,001726:
026391,001727: 26,6656 43176 SMOVE 0
026392,001728: 26,6657 00007 6 # NBL1 REPLACES AR-SA
026393,001729: 26,6660 34026 STORE 10D,2
026394,001730:
026395,001731: 26,6661 45176 DMOVE 0
026396,001732: 26,6662 34030 STORE 11D,2 # NOW REINSERT 11,2
026397,001733:
026398,001734: 26,6663 76776 ITC 0
026399,001735: 26,6664 14714 OVERYET
026400,001736:
026401,001737: 26,6665 43176 11MANU SMOVE 0
026402,001738: 26,6666 00010 7
026403,001739: 26,6667 34030 STORE 11D,2
026404,001740:
026405,001741: 26,6670 76776 ITC 0
026406,001742: 26,6671 14714 OVERYET
026407,001743:
026408,001744: 26,6672 43775 ALLSHADE BPL 1
026409,001745: 26,6673 41423 LODON DMOVE
026410,001746: 26,6674 01433 DTEMP1
026411,001747: 26,6675 14706 12MANU
026412,001748: 26,6676 00007 6
026413,001749: 26,6677 34026 STORE 10D,2
026414,001750:
026415,001751: 26,6700 43176 SMOVE 0
026416,001752: 26,6701 00012 9D
026417,001753: 26,6702 34030 STORE 11D,2
026418,001754:
026419,001755: 26,6703 76776 ITC 0
026420,001756: 26,6704 14714 OVERYET
026421,001757:
026422,001758: 26,6705 43176 12MANU SMOVE 0
026423,001759: 26,6706 00011 8D
026424,001760: 26,6707 34026 STORE 10D,2
026425,001761:
026426,001762: 26,6710 43176 SMOVE 0
026427,001763: 26,6711 00010 7
026428,001764: 26,6712 34030 STORE 11D,2
026429,001765:
026430,001766: 26,6713 43175 OVERYET SMOVE 1
026431,001767: 26,6714 70636 DAD BZE
026432,001768: 26,6715 00050 X2
026433,001769: 26,6716 13141 DP2(-12)
|
|
Page 669
|
026435,001771: 26,6717 14731 FINISHUP
026436,001772:
026437,001773: 26,6720 43574 TEST 2 # ENDCHEK IS DONE TWICE, FOR THE
026438,001774: 26,6721 53411 AXC,1 SWITCH # BEGINNING AND FOR THE END OF THE ARC
026439,001775: 26,6722 76776 ITC
026440,001776: 26,6723 00051 BEGINFLG
026441,001777: 26,6724 14731 FINISHUP
026442,001778: 26,6725 00023 18D # -18 TO X1
026443,001779: 26,6726 00051 BEGINFLG # REMOVE BEGINFLG
026444,001780: 26,6727 14355 ENDCHEK # GO BACK, GET LIMITS FOR END OF ARC
026445,001781:
026446,001782: 26,6730 43175 FINISHUP SMOVE 1
026447,001783: 26,6731 47776 BZE
026448,001784: 26,6732 00050 X2
026449,001785: 26,6733 15520 GETPTCH # NO LIMITS DETECTED
026450,001786:
026451,001787: 26,6734 76575 RTB 1
026452,001788: 26,6735 41776 VXV
026453,001789: 26,6736 15651 SETPD20
026454,001790: 26,6737 01477 XNB
026455,001791: 26,6740 01367 XSC # XNB*XSC TO PD AT 20
026456,001792:
026457,001793: 26,6741 41775 VXV 1
026458,001794: 26,6742 42776 DOT
026459,001795: 26,6743 01323 WC
026460,001796: 26,6744 01367 XSC
026461,001797: 26,6745 00025 20D
026462,001798: 26,6746 32023 STORE 18D # (WC*XSC).(XNB*XSC) TO 18
026463,001799:
026464,001800: 26,6747 73173 UNIT 3
026465,001801: 26,6750 42633 DOT COMP
026466,001802: 26,6751 63703 TSLT ACOS
026467,001803: 26,6752 53672 SIGN TSRT
026468,001804: 26,6753 77777 -
026469,001805: 26,6754 01323 WC
026470,001806: 26,6755 00002 1
026471,001807: 26,6756 77777 -
026472,001808: 26,6757 00002 1
026473,001809: 26,6760 34032 STORE 12D,2 # SCALED AT 4PI
026474,001810:
026475,001811: 26,6761 43175 SMOVE 1
026476,001812: 26,6762 52565 AXC,2 AXT,1
026477,001813: 26,6763 00050 X2
026478,001814: 26,6764 00001 0
026479,001815: 26,6765 00001 0 # 0 INTO X2 AND X1
026480,001816: 26,6766 32037 STORE 30D # SAVE X2
026481,001817:
026482,001818: 26,6767 42175 22MANU SMOVE* 1
026483,001819: 26,6770 66776 DSU
026484,001820: 26,6771 00034 13D,2
|
|
Page 670
|
026486,001822: 26,6772 00015 12D
026487,001823:
026488,001824: 26,6773 47575 23MANU NOLOD 1
026489,001825: 26,6774 66616 DSU BPL
026490,001826: 26,6775 15573 360DEG
026491,001827: 26,6776 14774 23MANU
026492,001828:
026493,001829: 26,6777 47575 20MANU NOLOD 1
026494,001830: 26,7000 70756 DAD BMN
026495,001831: 26,7001 15573 360DEG
026496,001832: 26,7002 15000 20MANU
026497,001833: 26,7003 34001 STORE 0,1
026498,001834:
026499,001835: 26,7004 73575 LXA,1 1
026500,001836: 26,7005 62515 INCR,2 INCR,1
026501,001837: 26,7006 00047 X1
026502,001838: 26,7007 77777 -1
026503,001839: 26,7010 77776 -2
026504,001840:
026505,001841: 26,7011 43175 SMOVE 1
026506,001842: 26,7012 65756 BDSU BMN
026507,001843: 26,7013 00050 X2
026508,001844: 26,7014 00037 30D
026509,001845: 26,7015 14770 22MANU
026510,001846:
026511,001847: 26,7016 70775 DAD 1
026512,001848: 26,7017 47776 BZE
026513,001849: 26,7020 00037 30D
026514,001850: 26,7021 15567 DP2(-13)
026515,001851: 26,7022 15333 EZCASE
026516,001852:
026517,001853: 26,7023 66775 DSU 1
026518,001854: 26,7024 73776 BMN
026519,001855: 26,7025 00005 4
026520,001856: 26,7026 00001 0
026521,001857: 26,7027 15106 30MANU
026522,001858:
026523,001859: 26,7030 66775 DSU 1
026524,001860: 26,7031 73776 BMN
026525,001861: 26,7032 00003 2
026526,001862: 26,7033 00001 0
026527,001863: 26,7034 15061 31MANU
026528,001864:
026529,001865: 26,7035 66775 DSU 1
026530,001866: 26,7036 73776 BMN
026531,001867: 26,7037 00003 2
026532,001868: 26,7040 00005 4
026533,001869: 26,7041 15434 SPLITMNU
026534,001870:
026535,001871: 26,7042 66775 DSU 1
|
|
Page 671
|
026537,001873: 26,7043 73776 BMN
026538,001874: 26,7044 00007 6
026539,001875: 26,7045 00001 0
026540,001876: 26,7046 15520 GETPTCH
026541,001877:
026542,001878: 26,7047 43574 TEST 2
026543,001879: 26,7050 56732 TSRT DSU
026544,001880: 26,7051 76776 ITC
026545,001881: 26,7052 00044 BACKFLAG # (BACKFLAG DOWN MEANS DO BACKTEST
026546,001882: 26,7053 15317 BACKTEST
026547,001883: 26,7054 00001 0
026548,001884: 26,7055 00002 1
026549,001885: 26,7056 00007 6
026550,001886: 26,7057 15204 40MANU
026551,001887:
026552,001888: 26,7060 66775 31MANU DSU 1
026553,001889: 26,7061 73776 BMN
026554,001890: 26,7062 00007 6
026555,001891: 26,7063 00001 0
026556,001892: 26,7064 15100 33MANU
026557,001893:
026558,001894: 26,7065 43574 333MANU TEST 2
026559,001895: 26,7066 70672 DAD TSRT
026560,001896: 26,7067 66772 DSU ITC
026561,001897: 26,7070 00044 BACKFLAG
026562,001898: 26,7071 15317 BACKTEST
026563,001899: 26,7072 00001 0
026564,001900: 26,7073 00003 2
026565,001901: 26,7074 00002 1
026566,001902: 26,7075 00007 6
026567,001903: 26,7076 15204 40MANU
026568,001904:
026569,001905: 26,7077 66775 33MANU DSU 1
026570,001906: 26,7100 73772 BMN ITC
026571,001907: 26,7101 00007 6
026572,001908: 26,7102 00003 2
026573,001909: 26,7103 15066 333MANU
026574,001910: 26,7104 15520 GETPTCH
026575,001911:
026576,001912: 26,7105 66775 30MANU DSU 1
026577,001913: 26,7106 73776 BMN
026578,001914: 26,7107 00003 2
026579,001915: 26,7110 00001 0
026580,001916: 26,7111 15131 35MANU
026581,001917:
026582,001918: 26,7112 66775 DSU 1
026583,001919: 26,7113 73776 BMN
026584,001920: 26,7114 00007 6
026585,001921: 26,7115 00005 4
026586,001922: 26,7116 15520 GETPTCH
|
|
Page 672
|
026588,001924:
026589,001925: 26,7117 43574 38MANU TEST 2
026590,001926: 26,7120 56732 TSRT DSU
026591,001927: 26,7121 76776 ITC
026592,001928: 26,7122 00044 BACKFLAG
026593,001929: 26,7123 15317 BACKTEST
026594,001930: 26,7124 00005 4
026595,001931: 26,7125 00002 1
026596,001932: 26,7126 00007 6
026597,001933: 26,7127 15204 40MANU
026598,001934:
026599,001935: 26,7130 66775 35MANU DSU 1
026600,001936: 26,7131 73776 BMN
026601,001937: 26,7132 00003 2
026602,001938: 26,7133 00005 4
026603,001939: 26,7134 15151 36MANU
026604,001940:
026605,001941: 26,7135 66775 DSU 1
026606,001942: 26,7136 73776 BMN
026607,001943: 26,7137 00007 6
026608,001944: 26,7140 00003 2
026609,001945: 26,7141 15170 37MANU
026610,001946:
026611,001947: 26,7142 66775 DSU 1
026612,001948: 26,7143 43772 BPL ITC
026613,001949: 26,7144 00007 6
026614,001950: 26,7145 00001 0
026615,001951: 26,7146 15120 38MANU
026616,001952: 26,7147 15520 GETPTCH
026617,001953:
026618,001954: 26,7150 66775 36MANU DSU 1
026619,001955: 26,7151 73776 BMN
026620,001956: 26,7152 00007 6
026621,001957: 26,7153 00005 4
026622,001958: 26,7154 15176 366MANU
026623,001959:
026624,001960: 26,7155 43574 368MANU TEST 2
026625,001961: 26,7156 70672 DAD TSRT
026626,001962: 26,7157 66772 DSU ITC
026627,001963: 26,7160 00044 BACKFLAG
026628,001964: 26,7161 15317 BACKTEST
026629,001965: 26,7162 00005 4
026630,001966: 26,7163 00003 2
026631,001967: 26,7164 00002 1
026632,001968: 26,7165 00007 6
026633,001969: 26,7166 15204 40MANU
026634,001970:
026635,001971: 26,7167 66775 37MANU DSU 1
026636,001972: 26,7170 73772 BMN ITC
026637,001973: 26,7171 00007 6
026638,001974: 26,7172 00005 4
|
|
Page 673
|
026640,001976: 26,7173 15520 GETPTCH
026641,001977: 26,7174 15120 38MANU
026642,001978:
026643,001979: 26,7175 66775 366MANU DSU 1
026644,001980: 26,7176 73772 BMN ITC
026645,001981: 26,7177 00007 6
026646,001982: 26,7200 00003 2
026647,001983: 26,7201 15156 368MANU
026648,001984: 26,7202 15520 GETPTCH
026649,001985:
026650,001986: 26,7203 47574 40MANU NOLOD 2 # ROLL IS IN MPAC,MPAC +1,SCALED AT 4PI
026651,001987: 26,7204 66756 DSU BMN
026652,001988: 26,7205 66772 DSU ITC
026653,001989: 26,7206 15565 DP2(-2)
026654,001990: 26,7207 15213 41MANU
026655,001991: 26,7210 15565 DP2(-2)
026656,001992: 26,7211 15225 42MANU
026657,001993:
026658,001994: 26,7212 47574 41MANU NOLOD 2
026659,001995: 26,7213 70616 DAD BPL
026660,001996: 26,7214 70772 DAD ITC
026661,001997: 26,7215 15573 360DEG
026662,001998: 26,7216 15222 43MANU
026663,001999: 26,7217 15565 DP2(-2)
026664,002000: 26,7220 15225 42MANU
026665,002001:
026666,002002: 26,7221 47575 43MANU NOLOD 1
026667,002003: 26,7222 66776 DSU
026668,002004: 26,7223 15565 DP2(-2)
026669,002005:
026670,002006: 26,7224 47575 42MANU NOLOD 1
026671,002007: 26,7225 63776 TSLT
026672,002008: 26,7226 00002 1
026673,002009: 26,7227 33455 STORE THETAMAN # ROLL IN THETAMAN, SCALED AT 2PI
026674,002010:
026675,002011: 26,7230 43576 TEST 0
026676,002012: 26,7231 00045 ROLLFLAG # IF ROLLFLAG ISNT ON
026677,002013: 26,7232 15657 DONE # WE ARE DONE
026678,002014:
026679,002015: 26,7233 76776 ITC 0
026680,002016: 26,7234 15240 ROLLTEST # SHORT WAY ROLL MAY HIT GIMBAL LOCK
026681,002017:
026682,002018: 26,7235 76776 ITC 0
026683,002019: 26,7236 15657 DONE
026684,002020:
026685,002021: 26,7237 76574 ROLLTEST RTB 2
026686,002022: 26,7240 41606 VXV VXV
026687,002023: 26,7241 73176 UNIT
026688,002024: 26,7242 20265 FRESHPD
026689,002025: 26,7243 01367 XSC
|
|
Page 674
|
026691,002027: 26,7244 01477 XNB
026692,002028: 26,7245 01367 XSC # TEMP1 TO DP AT 0
026693,002029:
026694,002030: 26,7246 53774 SIGN 2
026695,002031: 26,7247 75606 VXSC VXV
026696,002032: 26,7250 41753 VXV UNIT
026697,002033: 26,7251 21043 NEARONE
026698,002034: 26,7252 01371 XSC +2
026699,002035: 26,7253 01367 XSC
026700,002036: 26,7254 15601 UNITY
026701,002037: 26,7255 01367 XSC
026702,002038:
026703,002039: 26,7256 42775 DOT 1
026704,002040: 26,7257 63703 TSLT ACOS
026705,002041: 26,7260 00001 0
026706,002042: 26,7261 00007 6
026707,002043: 26,7262 00002 1
026708,002044: 26,7263 32021 STORE 16D
026709,002045:
026710,002046: 26,7264 65175 ABS 1
026711,002047: 26,7265 66756 DSU BMN
026712,002048: 26,7266 01455 THETAMAN
026713,002049: 26,7267 00021 16D
026714,002050: 26,7270 15316 ENDTST
026715,002051:
026716,002052: 26,7271 75174 VMOVE 2
026717,002053: 26,7272 41612 VXV DOT
026718,002054: 26,7273 73776 BMN
026719,002055: 26,7274 77777 -
026720,002056: 26,7275 77777 -
026721,002057: 26,7276 01367 XSC
026722,002058: 26,7277 15310 50MANU
026723,002059:
026724,002060: 26,7300 45175 DMOVE 1
026725,002061: 26,7301 43742 BPL DAD
026726,002062: 26,7302 01455 THETAMAN
026727,002063: 26,7303 15316 ENDTST
026728,002064: 26,7304 21043 NEARONE
026729,002065: 26,7305 33455 STORE THETAMAN
026730,002066:
026731,002067: 26,7306 40576 ITCQ 0
026732,002068:
026733,002069: 26,7307 45175 50MANU DMOVE 1
026734,002070: 26,7310 73732 BMN DSU
026735,002071: 26,7311 01455 THETAMAN
026736,002072: 26,7312 15316 ENDTST
026737,002073: 26,7313 21043 NEARONE
026738,002074: 26,7314 33455 STORE THETAMAN
026739,002075:
026740,002076: 26,7315 40576 ENDTST ITCQ 0
026741,002077:
|
|
Page 675
|
026743,002079:
026744,002080: 26,7316 72575 BACKTEST LXA,2 1
026745,002081: 26,7317 42576 SWITCH
026746,002082: 26,7320 00037 30D # RESET SAVED X2
026747,002083: 26,7321 00044 BACKFLAG # TURN BACKFLAG ON (DONT DO AGAIN)
026748,002084:
026749,002085: 26,7322 43176 SMOVE 0
026750,002086: 26,7323 00013 10D
026751,002087: 26,7324 32015 STORE 12D
026752,002088:
026753,002089: 26,7325 73575 LXA,1 1
026754,002090: 26,7326 67572 SXA,1 ITC
026755,002091: 26,7327 00014 11D
026756,002092: 26,7330 00016 13D
026757,002093: 26,7331 14731 FINISHUP
026758,002094:
026759,002095: 26,7332 66775 EZCASE DSU 1
026760,002096: 26,7333 73776 BMN
026761,002097: 26,7334 00003 2
026762,002098: 26,7335 00001 0
026763,002099: 26,7336 15520 GETPTCH # NO ROLL REQ,D
026764,002100:
026765,002101: 26,7337 43574 TEST 2
026766,002102: 26,7340 56732 TSRT DSU
026767,002103: 26,7341 76776 ITC
026768,002104: 26,7342 00044 BACKFLAG
026769,002105: 26,7343 15317 BACKTEST
026770,002106: 26,7344 00001 0
026771,002107: 26,7345 00002 1
026772,002108: 26,7346 00003 2
026773,002109: 26,7347 15204 40MANU
026774,002110:
026775,002111: 26,7350 47575 180CASE NOLOD 1
026776,002112: 26,7351 70616 DAD BPL
026777,002113: 26,7352 15653 COSONE
026778,002114: 26,7353 14033 NOT179
026779,002115:
026780,002116: 26,7354 42774 DOT 2
026781,002117: 26,7355 65132 ABS DSU
026782,002118: 26,7356 43776 BPL
026783,002119: 26,7357 01367 XSC
026784,002120: 26,7360 15601 UNITY
026785,002121: 26,7361 15653 COSONE
026786,002122: 26,7362 15374 ZEROWC
026787,002123:
026788,002124: 26,7363 41775 VXV 1
026789,002125: 26,7364 41753 VXV UNIT
026790,002126: 26,7365 01367 XSC
026791,002127: 26,7366 15601 UNITY
026792,002128: 26,7367 01367 XSC
026793,002129: 26,7370 33323 STORE WC
|
|
Page 676
|
026795,002131: 26,7371 76776 ITC 0
026796,002132: 26,7372 14040 ACCEPTWC
026797,002133:
026798,002134: 26,7373 75176 ZEROWC VMOVE 0
026799,002135: 26,7374 01403 ZSC
026800,002136: 26,7375 33323 STORE WC
026801,002137:
026802,002138: 26,7376 76776 ITC 0
026803,002139: 26,7377 14040 ACCEPTWC
026804,002140:
026805,002141: 26,7400 41775 NOGIMTST VXV 1
026806,002142: 26,7401 73176 UNIT
026807,002143: 26,7402 01367 XSC
026808,002144: 26,7403 01411 XSCD
026809,002145: 26,7404 33323 STORE WC
026810,002146:
026811,002147: 26,7405 76776 ITC 0
026812,002148: 26,7406 15520 GETPTCH
026813,002149:
026814,002150: 26,7407 65175 DONE1 ABS 1
026815,002151: 26,7410 66756 DSU BMN
026816,002152: 26,7411 01455 THETAMAN
026817,002153: 26,7412 15553 1.5DEG
026818,002154: 26,7413 15520 GETPTCH
026819,002155:
026820,002156: 26,7414 53775 SIGN 1
026821,002157: 26,7415 75776 VXSC
026822,002158: 26,7416 21043 NEARONE
026823,002159: 26,7417 01455 THETAMAN
026824,002160: 26,7420 01367 XSC
026825,002161: 26,7421 33323 STORE WC
026826,002162:
026827,002163: 26,7422 65176 ABS 0
026828,002164: 26,7423 01455 THETAMAN
026829,002165: 26,7424 33455 STORE THETAMAN
026830,002166:
026831,002167: 26,7425 77576 EXIT 0
026832,002168:
026833,002169: 26,7426 03440 TC FLAG2UP
026834,002170: 26,7427 04000 OCT 04000 # SET ROLLFLAG
026835,002171:
026836,002172: 26,7430 04000 TC INTPRET
026837,002173:
026838,002174: 26,7431 44576 ITCI 0 # EXIT FOR ROLL THAT AVOIDS GIMBAL LOCK IN
026839,002175: 26,7432 01472 EXITCADR # SUBSEQUENT PITCH/YAW MANEUVER
026840,002176:
026841,002177: 26,7433 43173 SPLITMNU SMOVE 3
026842,002178: 26,7434 65132 ABS DSU
026843,002179: 26,7435 67605 BHIZ LODON
026844,002180: 26,7436 43016 SMOVE BPL
|
|
Page 677
|
026846,002182: 26,7437 00051 S1
026847,002183: 26,7440 15567 DP2(-13)
026848,002184: 26,7441 15502 SPLIT1
026849,002185: 26,7442 00051 S1
026850,002186: 26,7443 15460 SPLIT3
026851,002187:
026852,002188: 26,7444 66775 SPLIT2 DSU 1
026853,002189: 26,7445 73776 BMN
026854,002190: 26,7446 00007 6
026855,002191: 26,7447 00001 0
026856,002192: 26,7450 15507 SPLIT5
026857,002193:
026858,002194: 26,7451 56775 TSRT 1
026859,002195: 26,7452 66772 DSU ITC
026860,002196: 26,7453 00001 0
026861,002197: 26,7454 00002 1
026862,002198: 26,7455 00007 6
026863,002199: 26,7456 15204 40MANU
026864,002200:
026865,002201: 26,7457 66775 SPLIT3 DSU 1
026866,002202: 26,7460 43776 BPL
026867,002203: 26,7461 00007 6
026868,002204: 26,7462 00005 4
026869,002205: 26,7463 15472 SPLIT4
026870,002206:
026871,002207: 26,7464 66775 DSU 1
026872,002208: 26,7465 43776 BPL
026873,002209: 26,7466 00007 6
026874,002210: 26,7467 00003 2
026875,002211: 26,7470 15507 SPLIT5
026876,002212:
026877,002213: 26,7471 70774 SPLIT4 DAD 2
026878,002214: 26,7472 56732 TSRT DSU
026879,002215: 26,7473 76776 ITC
026880,002216: 26,7474 00003 2
026881,002217: 26,7475 00005 4
026882,002218: 26,7476 00002 1
026883,002219: 26,7477 00007 6
026884,002220: 26,7500 15204 40MANU
026885,002221:
026886,002222: 26,7501 43175 SPLIT1 SMOVE 1
026887,002223: 26,7502 43772 BPL ITC
026888,002224: 26,7503 00051 S1
026889,002225: 26,7504 15445 SPLIT2
026890,002226: 26,7505 15460 SPLIT3
026891,002227:
026892,002228: 26,7506 76776 SPLIT5 ITC 0
026893,002229: 26,7507 15530 CALCPTCH
026894,002230:
026895,002231: 26,7510 45175 DMOVE 1
|
|
Page 678
|
026897,002233: 26,7511 56776 TSRT
026898,002234: 26,7512 01455 THETAMAN
026899,002235: 26,7513 00002 1
026900,002236: 26,7514 33455 STORE THETAMAN
026901,002237:
026902,002238: 26,7515 76776 ITC 0
026903,002239: 26,7516 15522 GETPTCH2
026904,002240: 26,7517 76776 GETPTCH ITC 0
026905,002241: 26,7520 15530 CALCPTCH
026906,002242:
026907,002243: 26,7521 77576 GETPTCH2 EXIT 0
026908,002244:
026909,002245: 26,7522 03452 TC FLAG2DWN
026910,002246: 26,7523 04000 OCT 04000 # REMOVE ROLLFLAG
026911,002247:
026912,002248: 26,7524 04000 TC INTPRET
026913,002249:
026914,002250: 26,7525 44576 ITCI 0
026915,002251: 26,7526 01472 EXITCADR # EXIT FOR PITCH/YAW PORTION OF MANEUVER
026916,002252:
026917,002253: 26,7527 42775 CALCPTCH DOT 1
026918,002254: 26,7530 63703 TSLT ACOS
026919,002255: 26,7531 01367 XSC
026920,002256: 26,7532 01411 XSCD
026921,002257: 26,7533 00002 1
026922,002258: 26,7534 33455 STORE THETAMAN
026923,002259:
026924,002260: 26,7535 40576 ITCQ 0
026925,002261:
026926,002262: 26,7536 03062 TC CCSHOLE
026927,002263: 26,7537 03062 TC CCSHOLE
026928,002264:
026929,002265: 26,7540 07772 14276 COS3 2DEC .249657385 # SCALED AT 2(4)
026930,002266: 26,7542 16203 04007 COS27 2DEC .445503260 # SCALED AT 2(1)
026931,002267: 26,7544 07207 02705 COS63 2DEC .226995250 # SCALED AT 2(1)
026932,002268: 26,7546 15666 17272 COS30 2DEC .433012700 # SCALED AT 2(1)
026933,002269: 26,7550 30506 22276 1/TAN33 2DEC .76993250 # SCALED AT 2(1)
026934,002270: 26,7552 00104 10421 1.5DEG 2DEC .004166666 # SCALED AT 2PI
026935,002271: 26,7554 02631 23146 31.5DEG 2DEC .0875 # SCALED AT 2PI
026936,002272: 26,7556 02525 12524 30DEG 2DEC .08333333 # SCALED AT 2PI
026937,002273: 26,7560 00210 21041 3DEG 2DEC .00833333 # SCALED AT 2PI
|
|
Page 679
|
026939,002275: 26,7562 04000 00000 90DEG 2DEC 0.125 # SCALED AT 4PI
026940,002276: 26,7564 10000 00000 DP2(-2) 2DEC 0.25
026941,002277: 26,7566 26,7564 SIN30 EQUALS DP2(-2)
026942,002278: 26,7566 00002 00000 DP2(-13) 2OCT 0000200000
026943,002279: 26,7570 06553 06165 C33 2DEC .209667643
026944,002280: 26,7572 20000 00000 UNITX 2DEC 0.5
026945,002281: 26,7574 00000 00000 ZEROVEC 2DEC 0.0
026946,002282: 26,7576 00000 00000 2DEC 0.0
026947,002283: 26,7600 00000 00000 UNITY 2DEC 0.0
026948,002284: 26,7602 20000 00000 2DEC 0.5
026949,002285: 26,7604 00000 00000 2DEC 0.0
026950,002286: 26,7606 15326 14356 SCNBMAT 2DEC 0.419335300
026951,002287: 26,7610 00000 00000 2DEC 0.0
026952,002288: 26,7612 67222 52116 2DEC -.272319500
026953,002289: 26,7614 00000 00000 2DEC 0.0
026954,002290: 26,7616 20000 00000 2DEC 0.5
026955,002291: 26,7620 00000 00000 2DEC 0.0
026956,002292: 26,7622 10555 25661 2DEC 0.272319500
026957,002293: 26,7624 00000 00000 2DEC 0.0
026958,002294: 26,7626 15326 14356 2DEC 0.419335300
026959,002295: 26,7630 00133 00327 DTH 2DEC 0.005555 # 2.0 DEG SCALED AT 2PI
026960,002296: 26,7632 00243 32703 2DEC 0.01 # 3.6 DEG
026961,002297: 26,7634 00525 12374 2DEC 0.020833 # 7.5 DEG
026962,002298:
026963,002299:
026964,002300: 26,7636 33540 SETPD16 CAF SIXTN
026965,002301: 26,7637 60067 AD FIXLOC
026966,002302: 26,7640 50123 TS PUSHLOC
|
|
Page 680
|
026968,002304: 26,7641 04703 TC RE-ENTER
026969,002305:
026970,002306: 26,7642 34475 SETPD6 CAF SIX
026971,002307: 26,7643 07637 TC SETPD16 +1
026972,002308:
026973,002309: 26,7644 33542 SETPD18 CAF EIGHTN
026974,002310: 26,7645 07637 TC SETPD16 +1
026975,002311:
026976,002312: 26,7646 33554 SETPD28 CAF TWENTY8
026977,002313: 26,7647 07637 TC SETPD16 +1
026978,002314:
026979,002315: 26,7650 33544 SETPD20 CAF TWENTY0
026980,002316: 26,7651 07637 TC SETPD16 +1
026981,002317:
026982,002318: 26,7652 07777 14256 COSONE 2DEC .2499625 # SCALED AT 2(4)
026983,002319: 26,7654 07737 27116 COSSIX 2DEC .2480300 # SCALED AT 2(4)
026984,002320: 26,7656 26,7572 180DEG EQUALS UNITX # SCALED AT 2PI.
026985,002321: 26,7656 26,7572 DP2(-1) EQUALS UNITX
026986,002322: 26,7656 26,7572 360DEG EQUALS UNITX # SCALED AT 4PI.
026987,002323: 26,7656 26,7572 CFACTOR EQUALS UNITX
026988,002324:
026989,002325: 26,7656 42774 DONE DOT 2
026990,002326: 26,7657 70616 DAD BPL
026991,002327: 26,7660 41406 LODON VXV
026992,002328: 26,7661 01367 XSC
026993,002329: 26,7662 01411 XSCD
026994,002330: 26,7663 15655 COSSIX
026995,002331: 26,7664 15410 DONE1
026996,002332: 26,7665 15601 UNITY
026997,002333: 26,7666 01477 XNB
026998,002334:
026999,002335: 26,7667 53775 SIGN 1
027000,002336: 26,7670 75753 VXSC UNIT
027001,002337: 26,7671 21043 NEARONE
027002,002338: 26,7672 01501 XNB +2
027003,002339: 26,7673 33323 STORE WC
027004,002340:
027005,002341: 26,7674 45175 DMOVE 1
027006,002342: 26,7675 56776 TSRT
027007,002343: 26,7676 15557 30DEG
027008,002344: 26,7677 00002 1
027009,002345: 26,7700 33455 STORE THETAMAN
027010,002346:
027011,002347: 26,7701 76776 ITC 0
027012,002348: 26,7702 15522 GETPTCH2
027013,002349:
027014,002350: 26,7703 14250 00520 R280K 2DEC 6.463509 E6 B-24
|
|
Page 681
|
027016,002352: 26,7705 14313 27520 R400K 2DEC 6.500085 E6 B-24
027017,002353: 26,7707 00134 05075 DP.36 2DEC .36 B-6
End of include-file POWERED_FLIGHT_SUBROUTINES.agc. Parent file is MAIN.agc