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