Source Code

046056,000001: # Copyright: Public domain. 046057,000002: # Filename: JET_SELECTION_LOGIC.agc 046058,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055. 046059,000004: # It is part of the source code for the Command Module's (CM) 046060,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 046061,000006: # Assembler: yaYUL 046062,000007: # Contact: Ron Burkey <info@sandroid.org>. 046063,000008: # Website: www.ibiblio.org/apollo. 046064,000009: # Pages: 1039-1062 046065,000010: # Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the 046066,000011: # same name, using Comanche055 page images. 046067,000012: 046068,000013: # This source code has been transcribed or otherwise adapted from digitized 046069,000014: # images of a hardcopy from the MIT Museum. The digitization was performed 046070,000015: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many 046071,000016: # thanks to both. The images (with suitable reduction in storage size and 046072,000017: # consequent reduction in image quality as well) are available online at 046073,000018: # www.ibiblio.org/apollo. If for some reason you find that the images are 046074,000019: # illegible, contact me at info@sandroid.org about getting access to the 046075,000020: # (much) higher-quality images which Paul actually created. 046076,000021: 046077,000022: # Notations on the hardcopy document read, in part: 046078,000023: 046079,000024: # Assemble revision 055 of AGC program Comanche by NASA 046080,000025: # 2021113-051. 10:28 APR. 1, 1969 046081,000026: 046082,000027: # This AGC program shall also be referred to as 046083,000028: # Colossus 2A 046084,000029: 046085,000030: # Page 1039 046086,000031: 21,3765 BANK 21 046087,000032: 17,2000 SETLOC DAPS4 046088,000033: 17,2000 BANK 046089,000034: 046090,000035: 17,2552 COUNT 17/DAPJS 046091,000036: 046092,000037: 17,2552 E6,1510 EBANK= KMPAC 046093,000038: 046094,000039: # EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS 046095,000040: 046096,000041: 17,2552 22016 JETSLECT LXCH BANKRUPT 046097,000042: 17,2553 32634 CAF DELTATT3 # = 60 MS RESET TO EXECUTIVE PHASE1 046098,000043: 17,2554 61634 AD T5TIME 046099,000044: 17,2555 54030 TS TIME5 046100,000045: 17,2556 12561 TCF +3 046101,000046: 17,2557 32635 CAF DELATT20 # = 20 MS TO ASSURE A T5RUPT 046102,000047: 17,2560 54030 TS TIME5 046103,000048: 17,2561 33313 CAF =14MS # RESET T6 TO INITIALIZE THE JET CHANNELS 046104,000049: 17,2562 54031 TS TIME6 # IN 14 MS 046105,000050: 17,2563 35001 CAF NEGMAX 046106,000051: 17,2564 00006 EXTEND 046107,000052: 17,2565 05013 WOR CHAN13 046108,000053: 17,2566 00006 EXTEND 046109,000054: 17,2567 22012 QXCH QRUPT 046110,000055: 17,2570 32633 CAF XLNMASK # = 7700 OCT 046111,000056: 17,2571 00006 EXTEND # EXAMINE THE TRANSLATION 046112,000057: 17,2572 06031 RXOR CHAN31 # HAND CONTROLLER 046113,000058: 17,2573 72633 MASK XLNMASK 046114,000059: 17,2574 00006 EXTEND 046115,000060: 17,2575 12636 BZF NOXLNCMD 046116,000061: 17,2576 55502 TS T5TEMP 046117,000062: 17,2577 00006 EXTEND 046118,000063: 17,2600 75007 MP BIT9 046119,000064: 17,2601 76214 MASK THREE 046120,000065: 17,2602 55513 TS XNDX1 # AC QUAD X-TRANSLATION INDEX 046121,000066: 17,2603 55514 TS XNDX2 # BD QUAD X-TRANSLATION INDEX 046122,000067: 17,2604 31502 CA T5TEMP 046123,000068: 17,2605 00006 EXTEND # 1 = + XLN 046124,000069: 17,2606 75011 MP BIT7 # 2 = - XLN 046125,000070: 17,2607 76214 MASK THREE # 3 = NO XLN 046126,000071: 17,2610 55515 TS YNDX # Y-TRANSLATION INDEX 046127,000072: 046128,000073: 17,2611 31502 CA T5TEMP 046129,000074: 17,2612 00006 EXTEND 046130,000075: 17,2613 75013 MP BIT5 046131,000076: 17,2614 76214 MASK THREE 046132,000077: 17,2615 55516 TS ZNDX # Z-TRANSLATION INDEX 046133,000078: 046134,000079: 17,2616 31466 CA DAPDATR1 # SET ATTKALMN TO PICK UP FILTER GAINS FOR 046135,000080: 17,2617 75002 MASK BIT14 # TRANSLATIONS. 046136,000081: 17,2620 00006 EXTEND # CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED. 046137,000082: # Page 1040 046138,000083: 17,2621 12624 BZF NOLEM 046139,000084: 17,2622 46214 CS THREE # IF LEM IS ON, SET ATTKALMN = -3 046140,000085: 17,2623 12625 TCF +2 046141,000086: 17,2624 45016 NOLEM CS TWO # IF LEM IS OFF, SET ATTKALMN = -2. 046142,000087: 17,2625 55617 TS ATTKALMN 046143,000088: 17,2626 11631 CCS XTRANS # (+, -1, 0) 046144,000089: 17,2627 55513 TS XNDX1 # USING BD-X ZERO XNDX1 046145,000090: 17,2630 12642 TCF PWORD 046146,000091: 17,2631 55514 TS XNDX2 # USING AC-X ZERO XNDX2 046147,000092: 17,2632 12642 TCF PWORD 046148,000093: 17,2633 07700 XLNMASK OCT 7700 046149,000094: 046150,000095: 17,2634 37772 DELTATT3 DEC 16378 B-14 # = 60 MS 046151,000096: 17,2635 37776 DELATT20 DEC 16382 B-14 # = 20 MS 046152,000097: 046153,000098: 17,2636 55513 NOXLNCMD TS XNDX1 # ZERO ALL REQUESTS FOR TRANSLATION 046154,000099: 17,2637 55514 TS XNDX2 046155,000100: 17,2640 55515 TS YNDX 046156,000101: 17,2641 55516 TS ZNDX 046157,000102: 046158,000103: # PITCH COMMANDS TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT 046159,000104: 046160,000105: 17,2642 11562 PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS 046161,000106: 17,2643 35017 CAF ONE 046162,000107: 17,2644 12646 TCF +2 # 0 = NO PITCH 046163,000108: 17,2645 35016 CAF TWO # +1 = + PITCH 046164,000109: 17,2646 55520 TS PINDEX # +2 = - PITCH 046165,000110: 046166,000111: 17,2647 11626 CCS RACFAIL # FLAG FOR REAL AC QUAD FAILURES 046167,000112: 17,2650 12654 TCF AFAILP 046168,000113: 17,2651 12664 TCF TABPCOM # 0 = NO REAL AC FAILURES 046169,000114: 17,2652 12656 TCF CFAILP # + = A QUAD FAILED 046170,000115: 17,2653 12664 TCF TABPCOM # - = C QUAD FAILED 046171,000116: # IF FAILURES ARE PRESENT IGNORE 046172,000117: # X-TRANSLATIONS ON THIS AXIS 046173,000118: 046174,000119: 17,2654 34334 AFAILP CAF NINE # IF FAILURE IS PRESENT 1JET OPERATION 046175,000120: 17,2655 12666 TCF TABPCOM +2 # IS ASSUMED. IGNORE X-TRANSLATION 046176,000121: 17,2656 35771 CFAILP CAF TWELVE 046177,000122: 17,2657 12666 TCF TABPCOM +2 046178,000123: 046179,000124: 17,2660 00000 XLNNDX DEC 0 B-14 # INDICES FOR TRANSLATION COMMANDS 046180,000125: 17,2661 00003 DEC 3 B-14 # FOR USE IN TABLE LOOK UP 046181,000126: 17,2662 00006 DEC 6 B-14 046182,000127: 17,2663 00000 DEC 0 B-14 046183,000128: 046184,000129: 17,2664 5771 TWELVE = OCT14 046185,000130: 046186,000131: # TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT. 046187,000132: # BITS 9, 10 CONTAIN THE NUMBER OF PITCH JETS USED TO PERFORM THE PITCH ROTATION 046188,000133: # Page 1041 046189,000134: 046190,000135: 17,2664 51513 TABPCOM INDEX XNDX1 046191,000136: 17,2665 32660 CA XLNNDX 046192,000137: 17,2666 61520 AD PINDEX 046193,000138: 17,2667 50000 INDEX A 046194,000139: 17,2670 32714 CA PYTABLE 046195,000140: 17,2671 72733 MASK PJETS # =1417 OCT 046196,000141: 17,2672 55453 TS PWORD1 046197,000142: 17,2673 00006 EXTEND 046198,000143: 17,2674 75011 MP BIT7 046199,000144: 17,2675 55523 TS NPJETS # = NO. OF PITCH JETS 046200,000145: 046201,000146: # YAW JET COMMANDS TIMING(N X-TRANS, NO QUAD FAILURES) 32MCT 046202,000147: 046203,000148: 17,2676 11563 YWORD CCS TAU2 # CHECK FOR YAW COMMANDS 046204,000149: 17,2677 35017 CAF ONE 046205,000150: 17,2700 12702 TCF +2 046206,000151: 17,2701 35016 CAF TWO 046207,000152: 17,2702 55521 TS YINDEX # YAW ROTATION INDEX 046208,000153: 046209,000154: 17,2703 11627 CCS RBDFAIL # FLAG FOR B OR D QUAD FAILURES 046210,000155: 17,2704 12710 TCF BFAILY # 0 = NO BD FAILURE 046211,000156: 17,2705 12735 TCF TABYCOM # + - B QUAD FAILED 046212,000157: 17,2706 12712 TCF DFAILY # - = D QUAD FAILED 046213,000158: 17,2707 12735 TCF TABYCOM 046214,000159: 046215,000160: 17,2710 34334 BFAILY CAF NINE 046216,000161: 17,2711 12737 TCF TABYCOM +2 046217,000162: 17,2712 35771 DFAILY CAF TWELVE 046218,000163: 17,2713 12737 TCF TABYCOM +2 046219,000164: 046220,000165: # Page 1042 046221,000166: # TABLE FOR PITCH(YAW) COMMANDS 046222,000167: # BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED 046223,000168: # BITS 10,9 = NO. PITCH JETS USED TO PERFORM ROTATION 046224,000169: # BITS 8,7,6,5 = YAW, X-TRANSLATION JETS SELECTED 046225,000170: # BITS 12,11: NO. YAW JETS USED TO PERFORM ROTATION 046226,000171: 046227,000172: # ROT TRANS QUAD BIAS 046228,000173: 17,2714 00000 PYTABLE OCT 0 # 0 0 0 046229,000174: 17,2715 05125 OCT 5125 # + 0 0 046230,000175: 17,2716 05252 OCT 5252 # - 0 0 046231,000176: 17,2717 00231 OCT 0231 # 0 + 3 046232,000177: 17,2720 02421 OCT 2421 # + + 3 046233,000178: 17,2721 02610 OCT 2610 # - + 3 046234,000179: 17,2722 00146 OCT 0146 # 0 - 6 046235,000180: 17,2723 02504 OCT 2504 # + - 6 046236,000181: 17,2724 02442 OCT 2442 # - - 6 046237,000182: 17,2725 00000 OCT 0 # 0 A(B) 9 046238,000183: 17,2726 02421 OCT 2421 # + A(B) 9 046239,000184: 17,2727 02442 OCT 2442 # - A(B) 9 046240,000185: 17,2730 00000 OCT 0 # 0 C(D) 12 046241,000186: 17,2731 02504 OCT 2504 # + C(D) 12 046242,000187: 17,2732 02610 OCT 2610 # - C(D) 12 046243,000188: 046244,000189: # MASKS FOR PITCH AND YAW COMMANDS 046245,000190: 046246,000191: 17,2733 01417 PJETS OCT 1417 046247,000192: 17,2734 06360 YJETS OCT 6360 046248,000193: 046249,000194: # TABLE LOOK UP FOR YAW COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT 046250,000195: # BITS 11, 12 CONTAIN THE NUMBER OF YAW JETS USED TO PERFORM THE YAW ROTATION 046251,000196: 046252,000197: 17,2735 51514 TABYCOM INDEX XNDX2 046253,000198: 17,2736 32660 CA XLNNDX 046254,000199: 17,2737 61521 AD YINDEX 046255,000200: 17,2740 50000 INDEX A 046256,000201: 17,2741 32714 CA PYTABLE 046257,000202: 17,2742 72734 MASK YJETS # = 6360 OCT 046258,000203: 17,2743 55455 TS YWORD1 046259,000204: 17,2744 00006 EXTEND 046260,000205: 17,2745 75013 MP BIT5 046261,000206: 17,2746 55524 TS NYJETS # NO. OF YAW JETS USED TO PERFORM ROTATION 046262,000207: 046263,000208: # Page 1043 046264,000209: # ROLL COMMANDS TIMING(NO Y,Z TRANS, NO QUAD FAILS) 45MCT 046265,000210: 046266,000211: 17,2747 11561 RWORD CCS TAU # CHECK FOR ROLL COMMANDS 046267,000212: 17,2750 35017 CAF ONE 046268,000213: 17,2751 12753 TCF +2 046269,000214: 17,2752 35016 CAF TWO 046270,000215: 17,2753 55517 TS RINDEX 046271,000216: 046272,000217: 17,2754 11630 CCS ACORBD # FLAG FOR AC OR BD QUAD SELECTION FOR 046273,000218: 17,2755 13046 TCF BDROLL # ROLL COMMANDS 046274,000219: 17,2756 13046 TCF BDROLL # +, +0 = BD ROLL 046275,000220: 17,2757 12760 TCF +1 # -, -0 = AC ROLL 046276,000221: 046277,000222: 17,2760 11626 ACROLL CCS RACFAIL # CHECK FOR REAL FAILURES 046278,000223: 17,2761 12765 TCF RAFAIL # ON AC QUADS 046279,000224: 17,2762 12775 TCF RXLNS 046280,000225: 17,2763 12767 TCF RCFAIL 046281,000226: 17,2764 12775 TCF RXLNS 046282,000227: 046283,000228: 17,2765 34334 RAFAIL CAF NINE # QUAD FAILURE WILL GET 046284,000229: 17,2766 12777 TCF TABRCOM # 1-JET OPERATION 046285,000230: 17,2767 35771 RCFAIL CAF TWELVE 046286,000231: 17,2770 12777 TCF TABRCOM 046287,000232: 046288,000233: 17,2771 00000 XLN1NDX DEC 0 B-14 046289,000234: 17,2772 00001 DEC 1 B-14 # INDICES FOR TRANSLATION 046290,000235: 17,2773 00002 DEC 2 B-14 046291,000236: 17,2774 00000 DEC 0 B-14 046292,000237: 046293,000238: # TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT 046294,000239: # BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL 046295,000240: 046296,000241: 17,2775 51515 RXLNS INDEX YNDX # NO AC QUAD FAILURES 046297,000242: 17,2776 32660 CA XLNNDX # INCLUDE +,-,0, Y-TRANSLATION 046298,000243: 17,2777 61517 TABRCOM AD RINDEX 046299,000244: 17,3000 50000 INDEX A 046300,000245: 17,3001 33130 CA RTABLE 046301,000246: 17,3002 73147 MASK ACRJETS # = 3760 OCT 046302,000247: 17,3003 55451 TS RWORD1 046303,000248: 046304,000249: # CHECK FOR Z-TRANSLATIONS ON BD 046305,000250: 046306,000251: 17,3004 31516 BDZCHECK CA ZNDX 046307,000252: 17,3005 00006 EXTEND 046308,000253: 17,3006 63040 BZMF NOBDZ # NO Z-TRANSLATION 046309,000254: 046310,000255: # Page 1044 046311,000256: # TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES. Z-TRANSLATION WILL BE POSS- 046312,000257: # IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS. CRITERION: IF THE RESULTANT NET ROLL 046313,000258: # COMMANDS = 0 (WITH Z-TRANSLATION) AND IF TAU = 0, THEN INCLUDE THE BD Z-TRANSLATION COMMANDS. IF THE RESULTANT 046314,000259: # ROLL COMMAND = 0, AND IF TAU NZ, THEN IGNORE THE BD Z-TRANSLATION 046315,000260: 046316,000261: 17,3007 11627 CCS RBDFAIL 046317,000262: 17,3010 36214 CAF THREE 046318,000263: 17,3011 13013 TCF +2 046319,000264: 17,3012 36211 CAF SIX 046320,000265: 17,3013 51516 INDEX ZNDX 046321,000266: 17,3014 62771 AD XLN1NDX 046322,000267: 17,3015 50000 INDEX A 046323,000268: 17,3016 33151 CA YZTABLE 046324,000269: 17,3017 73162 MASK BDZJETS # = 3417 OCT 046325,000270: 17,3020 61451 AD RWORD1 # ADD TO ROLL COMMANDS 046326,000271: 17,3021 55502 TS T5TEMP # IF POSSIBLE. MUST CHECK TAU FIRST 046327,000272: 046328,000273: 17,3022 00006 EXTEND 046329,000274: 17,3023 75011 MP BIT7 # DETERMINE THE NET ROLL COMMAND WITH 046330,000275: 17,3024 66061 AD =-4 # Z-TRANSLATION ADDED ON 046331,000276: 17,3025 55522 TS NRJETS # NET NO. OF +,- ROLL JETS ON 046332,000277: 17,3026 00006 EXTEND 046333,000278: 17,3027 13033 BZF TAUCHECK 046334,000279: 046335,000280: 17,3030 31502 ACRBDZ CA T5TEMP # Z-TRANSLATION ACCEPTED EVEN THO WE MAY 046336,000281: 17,3031 55451 TS RWORD1 # HAVE INTRODUCED AN UNDESIRABLE ROLL 046337,000282: 17,3032 13274 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS 046338,000283: 046339,000284: 17,3033 11561 TAUCHECK CCS TAU 046340,000285: 17,3034 13040 TCF NOBDZ 046341,000286: 17,3035 13030 TCF ACRBDZ 046342,000287: 17,3036 13040 TCF NOBDZ 046343,000288: 17,3037 13030 TCF ACRBDZ 046344,000289: 046345,000290: 17,3040 31451 NOBDZ CA RWORD1 # Z-TRANSLATION NOT ACCEPTED 046346,000291: 17,3041 00006 EXTEND 046347,000292: 17,3042 75011 MP BIT7 046348,000293: 17,3043 67715 AD =-2 046349,000294: 17,3044 55522 TS NRJETS 046350,000295: 17,3045 13274 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATION 046351,000296: 046352,000297: # Page 1045 046353,000298: # BD QUAD SELECTION FOR ROLL COMMANDS 046354,000299: 046355,000300: 17,3046 11627 BDROLL CCS RBDFAIL 046356,000301: 17,3047 13053 TCF RBFAIL 046357,000302: 17,3050 13057 TCF RZXLNS 046358,000303: 17,3051 13055 TCF RDFAIL 046359,000304: 17,3052 13057 TCF RZXLNS 046360,000305: 17,3053 34334 RBFAIL CAF NINE 046361,000306: 17,3054 13061 TCF TABRZCMD 046362,000307: 17,3055 35771 RDFAIL CAF TWELVE 046363,000308: 17,3056 13061 TCF TABRZCMD 046364,000309: 046365,000310: 17,3057 51516 RZXLNS INDEX ZNDX # NO BD FAILURES 046366,000311: 17,3060 32660 CA XLNNDX # +,-,0 Z-TRANSLATION PRESENT 046367,000312: 17,3061 61517 TABRZCMD AD RINDEX 046368,000313: 17,3062 50000 INDEX A 046369,000314: 17,3063 33130 CA RTABLE 046370,000315: 17,3064 73150 MASK BDRJETS # = 34017 OCT 046371,000316: 17,3065 55451 TS RWORD1 046372,000317: 046373,000318: 17,3066 31515 ACYCHECK CA YNDX # ANY Y-TRANSLATION 046374,000319: 17,3067 00006 EXTEND 046375,000320: 17,3070 13122 BZF NOACY # NO Y-TRANSLATION 046376,000321: 17,3071 11626 CCS RACFAIL 046377,000322: 17,3072 36214 CAF THREE 046378,000323: 17,3073 13075 TCF +2 046379,000324: 17,3074 36211 CAF SIX 046380,000325: 17,3075 51515 INDEX YNDX 046381,000326: 17,3076 62771 AD XLN1NDX 046382,000327: 17,3077 50000 INDEX A 046383,000328: 17,3100 33151 CA YZTABLE 046384,000329: 17,3101 73163 MASK ACYJETS # = 34360 OCT 046385,000330: 17,3102 61451 AD RWORD1 046386,000331: 17,3103 55502 TS T5TEMP 046387,000332: 17,3104 00006 EXTEND # FOR EXPLANATION SEE CODING ON RTABLE 046388,000333: 17,3105 75014 MP BIT4 046389,000334: 17,3106 66061 AD =-4 046390,000335: 17,3107 55522 TS NRJETS # NO. OF NET ROLL JETS 046391,000336: 17,3110 00006 EXTEND 046392,000337: 17,3111 13115 BZF TAUCHCK # IF NRJETS = 0 046393,000338: 046394,000339: 17,3112 31502 BDRACZ CA T5TEMP # Y-TRANSLATION ACCEPTED 046395,000340: 17,3113 55451 TS RWORD1 046396,000341: 17,3114 13274 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS 046397,000342: 046398,000343: 17,3115 11561 TAUCHCK CCS TAU 046399,000344: 17,3116 13122 TCF NOACY 046400,000345: 17,3117 13112 TCF BDRACZ 046401,000346: 17,3120 13122 TCF NOACY 046402,000347: 17,3121 13112 TCF BDRACZ 046403,000348: 046404,000349: # Page 1046 046405,000350: 17,3122 31451 NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED 046406,000351: 17,3123 00006 EXTEND 046407,000352: 17,3124 75014 MP BIT4 046408,000353: 17,3125 67715 AD =-2 046409,000354: 17,3126 55522 TS NRJETS 046410,000355: 17,3127 13274 TCF ROLLTIME 046411,000356: 046412,000357: # Page 1047 046413,000358: # TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS 046414,000359: 046415,000360: # EITHER AC OR BD ROLL MAY BE SELECTED. IF AC ROLL IS SELECTED, Y-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY 046416,000361: # PROVIDED THAT THERE ARE NO AC QUAD FAILURES. IF THERE ARE AC FAILURES, Y-TRANSLATION COMMANDS WILL BE IGNORED, 046417,000362: # IN WHICH CASE THE ASTRONAUT SHOULD SWITCH TO BD ROLL. 046418,000363: 046419,000364: # IF BDROLL IS SELECTED, Z-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY PROVIDED THAT THERE ARE NO BD QUAD 046420,000365: # FAILURES. IF THERE ARE BD FAILURES, Z-TRANSLATION COMMANDS WILL BE IGNORED, IN WHICH CASE THE ASTRONAUT SHOULD 046421,000366: # SWITCH TO AC ROLL. 046422,000367: 046423,000368: # NOTE THAT IF ONE QUAD FAILS (E.G. B FAILED), Z-TRANSLATION IS STILL POSSIBLE AND THAT THE UNDESIREABLE ROLL 046424,000369: # INTRODUCED BY THIS TRANSLATION WILL BE COMPENSATED BY THE TWO AC ROLL JETS ACTUATED BY THE AUTOPILOT LOGIC. 046425,000370: 046426,000371: # WORD MAKE UP....RTABLE 046427,000372: 046428,000373: # TWO WORDS, CORRESPONDING TO AC OR BD ROLL SELECTION, HAVE BEEN COMBINED INTO ONE TABLE. THE WORD CORRESPONDING 046429,000374: # TO AC ROLL HAS THE FOLLOWING INTERPRETATION: 046430,000375: 046431,000376: # BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE FOR THE WORD SELECTED. THE CODING IS: 046432,000377: 046433,000378: # BIT NO. 11 10 9 NO. OF ROLL JETS 046434,000379: 046435,000380: # 0 0 0 -2 046436,000381: # 0 0 1 -1 046437,000382: # 0 1 0 0 046438,000383: # 0 1 1 +1 046439,000384: # 1 0 0 +2 046440,000385: 046441,000386: # THIS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM THE YZ-TRANSLATION TABLE, WHICH HAS THE SAME TYPE OF 046442,000387: # CODING AS ABOVE, AND THE NET ROLL DETERMINED BY SHIFTING THE RESULTANT WORD RIGHT 8 PLACES AND SUBTRACTING FOUR. 046443,000388: 046444,000389: # THE WORD CORRESPONDING TO THE BD ROLL HAS A SIMILAR INTEPRETATION, EXCEPT THAT BITS 12, 13, 14 ARE CODED 046445,000390: # (AS ABOVE) TO GIVE THE NET ROLL TORQUE. 046446,000391: 046447,000392: # ROLL TRANS QUADFAIL BIAS 046448,000393: 046449,000394: 17,3130 11000 RTABLE OCT 11000 # 0 0 046450,000395: 17,3131 22125 OCT 22125 # + 0 046451,000396: 17,3132 00252 OCT 00252 # - 0 046452,000397: 17,3133 11231 OCT 11231 # 0 +Y(+Z) 3 046453,000398: 17,3134 15421 OCT 15421 # + +Y(+Z) 3 046454,000399: 17,3135 04610 OCT 04610 # - +Y(+Z) 3 046455,000400: 17,3136 11146 OCT 11146 # 0 -Y(-Z) 6 046456,000401: 17,3137 15504 OCT 15504 # + -Y(-Z) 6 046457,000402: 17,3140 04442 OCT 04442 # - -Y(-Z) 6 046458,000403: 17,3141 11000 OCT 11000 # 0 A(B) 9 046459,000404: 17,3142 15504 OCT 15504 # + A(B) 9 046460,000405: 17,3143 04610 OCT 04610 # - A(B) 9 046461,000406: 17,3144 11000 OCT 11000 # 0 C(D) 12 046462,000407: 17,3145 15421 OCT 15421 # + C(D) 12 046463,000408: 17,3146 04442 OCT 04442 # - C(D) 12 046464,000409: 046465,000410: # Page 1048 046466,000411: # RTABLE MASKS: 046467,000412: 046468,000413: 17,3147 03760 ACRJETS OCT 03760 046469,000414: 17,3150 34017 BDRJETS OCT 34017 046470,000415: 046471,000416: # Page 1049 046472,000417: # Y, Z TRANSLATION TABLE 046473,000418: 046474,000419: # ONCE AC OR BD ROLL IS SELECTED THE QUAD PAIR WHICH IS NOT BEING USED TO SATISFY THE ROLL COMMANDS MAY BE 046475,000420: # USED TO SATISFY THE REMAINING TRANSLATION COMMANDS. HOWEVER, WE MUST MAKE SURE THAT ROLL COMMANDS ARE SATISFIED 046476,000421: # WHEN THEY OCCUR. THEREFORE, THE Y-Z TRANSLATIONS FROM THIS TABLE WILL BE IGNORED IF THE NET ROLL TORQUE OF THE 046477,000422: # COMBINED WORD IS ZERO AND THE ROLL COMMANDS ARE NON-ZERO. THIS SITUATION WOULD OCCUR, FOR EXAMPLE, IF WE EN- 046478,000423: # COUNTER SIMULTANEOUS +R +Y -Z COMMANDS AND A QUAD D FAILURE WHILE USING AC FOR ROLL. 046479,000424: 046480,000425: # TO FACILITATE THE LOGIC, THE Y-Z TRANSLATION TABLE HAS BEEN CODED IN A MANNER SIMILAR TO THE ROLL TABLE 046481,000426: # ABOVE. 046482,000427: 046483,000428: # BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Z-TRANSLATIONS. THE WORD SELECTED CAN THEN BE 046484,000429: # ADDED TO THE AC-ROLL WORD AND THE RESULTANT ROLL TORQUE DETERMINED FROM THE COMBINED WORD. SIMILARLY BITS 046485,000430: # 12,13,14 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Y-TRANSLATIONS WHEN BD-ROLL IS SELECTED. 046486,000431: 046487,000432: # TRANSLATION QUADFAIL BIAS 046488,000433: 046489,000434: 17,3151 11000 YZTABLE OCT 11000 # 0 0 046490,000435: 17,3152 11231 OCT 11231 # +Z(+Y) 0 046491,000436: 17,3153 11146 OCT 11146 # -Z(-Y) 0 046492,000437: 17,3154 11000 OCT 11000 # 0 B(A) 3 046493,000438: 17,3155 04610 OCT 04610 # +Z(+Y) B(A) 3 046494,000439: 17,3156 15504 OCT 15504 # -Z(-Y) B(A) 3 046495,000440: 17,3157 11000 OCT 11000 # 0 D(C) 6 046496,000441: 17,3160 15421 OCT 15421 # +Z(+Y) D(C) 6 046497,000442: 17,3161 04442 OCT 04442 # -Z(-Y) D(C) 6 046498,000443: 046499,000444: # YZ-TABLE MASKS: 046500,000445: 046501,000446: 17,3162 03417 BDZJETS OCT 03417 046502,000447: 17,3163 34360 ACYJETS OCT 34360 046503,000448: 046504,000449: # ADDITIONAL CONSTANTS 046505,000450: 046506,000451: 17,3164 7715 =-2 = NEG2 046507,000452: 17,3164 6061 =-4 = NEG4 046508,000453: 046509,000454: # Page 1050 046510,000455: # CALCULATION OF JET ON-TIMES 046511,000456: 046512,000457: # THE ROTATION COMMANDS (TAU'S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET 046513,000458: # OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS. TAU MUST 046514,000459: # ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5 046515,000460: # INTERVAL. 046516,000461: 046517,000462: # IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES 046518,000463: # (DFT'S, ALSO IN TERMS OF 1-JET OPERATION) FOR THE RATE FILTER. 046519,000464: 046520,000465: # NOTE THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO ROTATIONS WERE CALLED FOR. NEVERTHELESS, WE MUST 046521,000466: # UPDATE DFT. 046522,000467: 046523,000468: # WHEN THE ROTATIONS HAVE FINISHED, WE MUST PROVIDE CHANNEL INFORMATION TO THE T6 PROGRAM TO CONTINUE ON WITH 046524,000469: # THE TRANSLATIONS. THIS WILL BE DONE IN THE NEXT SECTION. HOWEVER, TO INSURE THAT JETS ARE NOT FIRED FOR LESS 046525,000470: # THAN A MINIMUM IMPULSE (14MS), ALL JET CHANNEL COMMANDS WILL BE HELD FIXED FROM THE START OF THE T5 PROGRAM FOR 046526,000471: # AT LEAST 14MS UNTIL THE INITIALIZATION OF NEW COMMANDS. MOREOVER, A 14MS ON-TIME WILL BE ADDED TO ANY ROTATIONAL 046527,000472: # COMMANDS GENERATED BY THE MANUAL CONTROLS OR THE JET SWITCHING LOGIC, AND ALL TRANSLATION COMMANDS WILL BE 046528,000473: # ACTIVE FOR AT LEAST ONE CYCLE OF THE T5 PROGRAM (.1SEC) 046529,000474: 046530,000475: # PITCH JET ON-TIME CALCULATION 046531,000476: 046532,000477: 17,3164 11562 PITCHTIM CCS TAU1 046533,000478: 17,3165 13174 TCF PTAUPOS 046534,000479: 17,3166 13170 TCF +2 046535,000480: 17,3167 13172 TCF PTAUNEG 046536,000481: 17,3170 55550 TS DFT1 # NO PITCH ROTATION 046537,000482: 17,3171 13372 TCF PBYPASS # COMMANDS 046538,000483: 046539,000484: 17,3172 41523 PTAUNEG CS NPJETS 046540,000485: 17,3173 55523 TS NPJETS 046541,000486: 17,3174 31562 PTAUPOS CA TAU1 046542,000487: 17,3175 00006 EXTEND 046543,000488: 17,3176 51523 INDEX NPJETS 046544,000489: 17,3177 73353 MP NJET 046545,000490: 17,3200 55461 TS BLAST1 046546,000491: 17,3201 63306 AD =-.1SEC 046547,000492: 17,3202 00006 EXTEND 046548,000493: 17,3203 63214 BZMF AD14MSP 046549,000494: 17,3204 51523 INDEX NPJETS 046550,000495: 17,3205 33307 CA DFTMAX # THE PITCH ON-TIME IS GREATER THAN .1 SEC 046551,000496: 17,3206 55550 TS DFT1 046552,000497: 17,3207 40000 COM 046553,000498: 17,3210 27562 ADS TAU1 # UPDATE TAU1 046554,000499: 17,3211 33310 CAF =+.1SEC # LIMIT THE LENGTH OF PITCH ROTATION 046555,000500: 17,3212 55461 TS BLAST1 # COMMANDS TO 0.1 SEC SO THAT ONLY 046556,000501: 17,3213 13357 TCF ASMBLWP # X-TRANSLATIONS WILL CONTINUE ON SWITCH 046557,000502: # OVER TO TVC 046558,000503: 17,3214 41461 AD14MSP CS BLAST1 # SEE IF JET ON TIME IS LESS THAN 046559,000504: 17,3215 63313 AD =14MS # MINIMUM IMPULSE TIME 046560,000505: 17,3216 00006 EXTEND 046561,000506: 17,3217 63222 BZMF PBLASTOK # IF SO LIMIT MINIMUM ON TIME TO 14 MS 046562,000507: 17,3220 33313 CAF =14MS 046563,000508: # Page 1051 046564,000509: 17,3221 55461 TS BLAST1 046565,000510: 17,3222 31461 PBLASTOK CA BLAST1 046566,000511: 17,3223 00006 EXTEND # THE PITCH COMMANDS WILL BE COMPLETED 046567,000512: 17,3224 71523 MP NPJETS # WITHIN THE TS-CYCLE TIME 046568,000513: 17,3225 23550 LXCH DFT1 # FOR USE IN UPDATING RATE FILTER 046569,000514: 17,3226 55562 TS TAU1 # ZERO TAU1 (ACC CONTAINS ZERO) 046570,000515: 17,3227 13357 TCF ASMBLWP 046571,000516: 046572,000517: # Page 1052 046573,000518: # YAW JET ON-TIME CALCULATION 046574,000519: 046575,000520: 17,3230 11563 YAWTIME CCS TAU2 046576,000521: 17,3231 13240 TCF YTAUPOS 046577,000522: 17,3232 13234 TCF +2 046578,000523: 17,3233 13236 TCF YTAUNEG 046579,000524: 17,3234 55551 TS DFT2 # NO YAW ROTATION COMMANDS 046580,000525: 17,3235 13536 TCF YBYPASS 046581,000526: 046582,000527: 17,3236 41524 YTAUNEG CS NYJETS 046583,000528: 17,3237 55524 TS NYJETS 046584,000529: 17,3240 31563 YTAUPOS CA TAU2 046585,000530: 17,3241 00006 EXTEND 046586,000531: 17,3242 51524 INDEX NYJETS 046587,000532: 17,3243 73353 MP NJET 046588,000533: 17,3244 55463 TS BLAST2 046589,000534: 17,3245 63306 AD =-.1SEC 046590,000535: 17,3246 00006 EXTEND 046591,000536: 17,3247 63260 BZMF AD14MSY 046592,000537: 17,3250 51524 INDEX NYJETS 046593,000538: 17,3251 33307 CA DFTMAX # YAW COMMANDS WILL LAST LONGER THAN .1SEC 046594,000539: 17,3252 55551 TS DFT2 046595,000540: 17,3253 40000 COM 046596,000541: 17,3254 27563 ADS TAU2 # DECREMENT TAU2 046597,000542: 17,3255 33310 CAF =+.1SEC # LIMIT THE LENGTH OF YAW ROTATION COMMAND 046598,000543: 17,3256 55463 TS BLAST2 # TO 0.1 SEC SO THAT ONLY X-TRANSLATION 046599,000544: 17,3257 13523 TCF ASMBLWY # WILL CONTINUE ON SWITCH OVER TO TVC 046600,000545: 046601,000546: 17,3260 41463 AD14MSY CS BLAST2 # SEE IF JET ON-TIME LESS THAN 046602,000547: 17,3261 63313 AD =14MS # MINIMUM IMPULSE TIME 046603,000548: 17,3262 00006 EXTEND 046604,000549: 17,3263 63266 BZMF YBLASTOK # IF SO, LIMIT MINIMUM ON-TIME TO 14 MS 046605,000550: 17,3264 33313 CAF =14MS 046606,000551: 17,3265 55463 TS BLAST2 046607,000552: 17,3266 31463 YBLASTOK CA BLAST2 # YAW COMMANDS WILL BE COMPLETED WITHIN 046608,000553: 17,3267 00006 EXTEND # THE T5CYCLE TIME 046609,000554: 17,3270 71524 MP NYJETS 046610,000555: 17,3271 23551 LXCH DFT2 046611,000556: 17,3272 55563 TS TAU2 # ZERO TAU2 046612,000557: 17,3273 13523 TCF ASMBLWY 046613,000558: 046614,000559: # Page 1053 046615,000560: # ROLL ON-TIME CALCULATION: 046616,000561: 046617,000562: 17,3274 11561 ROLLTIME CCS TAU 046618,000563: 17,3275 13314 TCF RBLAST 046619,000564: 17,3276 13300 TCF +2 046620,000565: 17,3277 13314 TCF RBLAST 046621,000566: 17,3300 51522 INDEX NRJETS 046622,000567: 17,3301 33307 CA DFTMAX # UPDATE DFT EVEN THO NO ROLL COMMANDS ARE 046623,000568: 17,3302 55547 TS DFT # PRESENT 046624,000569: 17,3303 13516 TCF RBYPASS 046625,000570: 046626,000571: 17,3304 77037 DEC -480 B-14 # =-.3SEC 046627,000572: 17,3305 77277 DEC -320 B-14 # =-.2SEC 046628,000573: 17,3306 77537 =-.1SEC DEC -160 B-14 # =-.1SEC 046629,000574: 17,3307 00000 DFTMAX DEC 0 B-14 # 0 046630,000575: 17,3310 00240 =+.1SEC DEC 160 B-14 # =+.1SEC 046631,000576: 17,3311 00500 DEC 320 B-14 # =+.2SEC 046632,000577: 17,3312 00740 DEC 480 B-14 # =+.3SEC 046633,000578: 17,3313 00027 =14MS DEC 23 B-14 # =14MS 046634,000579: 046635,000580: 17,3314 31561 RBLAST CA TAU 046636,000581: 17,3315 00006 EXTEND 046637,000582: 17,3316 51522 INDEX NRJETS 046638,000583: 17,3317 73353 MP NJET 046639,000584: 17,3320 55457 TS BLAST # BLAST IS AN INTERMEDIATE VARIABLE 046640,000585: # USED IN DETERMINING THE JET ON-TIMES 046641,000586: 17,3321 63306 AD =-.1SEC 046642,000587: 17,3322 00006 EXTEND 046643,000588: 17,3323 63334 BZMF AD14MSR 046644,000589: 17,3324 51522 INDEX NRJETS # THE ROLL ROTATION WILL LAST LONGER 046645,000590: 17,3325 33307 CA DFTMAX # THAN THE T5 CYCLE TIME 046646,000591: 17,3326 55547 TS DFT 046647,000592: 17,3327 40000 COM 046648,000593: 17,3330 27561 ADS TAU 046649,000594: 17,3331 33310 CAF =+.1SEC # LIMIT THE LENGTH OF ROLL ROTATION 046650,000595: 17,3332 55457 TS BLAST # COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z 046651,000596: 17,3333 13377 TCF ASMBLWR # TRANSLATION COMMANDS CONTINUE 046652,000597: 046653,000598: 17,3334 41457 AD14MSR CS BLAST # SEE IF THE JET ON-TIME LESS THAN 046654,000599: 17,3335 63313 AD =14MS # MINIMUM IMPULSE TIME 046655,000600: 17,3336 00006 EXTEND 046656,000601: 17,3337 63342 BZMF RBLASTOK 046657,000602: 17,3340 33313 CAF =14MS # IF SO, LIMIT MINIMUM ON-TIME TO 14 MS 046658,000603: 17,3341 55457 TS BLAST 046659,000604: 17,3342 31457 RBLASTOK CA BLAST 046660,000605: 17,3343 00006 EXTEND 046661,000606: 17,3344 71522 MP NRJETS 046662,000607: 17,3345 23547 LXCH DFT 046663,000608: 17,3346 55561 TS TAU # ZERO TAU 046664,000609: 17,3347 13377 TCF ASMBLWR 046665,000610: 046666,000611: # Page 1054 046667,000612: 17,3350 65252 DEC -.333333 # = -1/3 046668,000613: 17,3351 57777 DEC -.500000 # = -1.2 046669,000614: 17,3352 40000 DEC -.999999 # = -1 (NEGMAX) 046670,000615: 17,3353 00000 NJET DEC 0 B-14 046671,000616: 17,3354 37777 DEC .999999 # = +1 (POSMAX) 046672,000617: 17,3355 20000 DEC .500000 # = +1/2 046673,000618: 17,3356 12525 DEC .333333 # = +1/3 046674,000619: 046675,000620: # Page 1055 046676,000621: # WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH 046677,000622: # CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT. 046678,000623: 046679,000624: # IN THIS SECTION THESE NEW COMMANDS ARE GENERATED AND STORED FOR REPLACEMENT OF THE CHANNEL COMMANDS WHEN THE 046680,000625: # CORRESPONDING ROTATIONS ARE COMPLETED. 046681,000626: 046682,000627: # GENERATION OF THE SECOND PITCH(X-TRANS) WORD...PWORD2 046683,000628: 046684,000629: 17,3357 11626 ASMBLWP CCS RACFAIL 046685,000630: 17,3360 13366 TCF FPX2 # IF FAILURE ON AC IGNORE X-TRANSLATION 046686,000631: 17,3361 13363 TCF +2 046687,000632: 17,3362 13366 TCF FPX2 046688,000633: 17,3363 51513 INDEX XNDX1 046689,000634: 17,3364 32660 CA XLNNDX 046690,000635: 17,3365 50000 INDEX A 046691,000636: 17,3366 32714 FPX2 CA PYTABLE 046692,000637: 17,3367 72733 MASK PJETS 046693,000638: 17,3370 55454 TS PWORD2 046694,000639: 17,3371 13230 TCF YAWTIME 046695,000640: 046696,000641: 17,3372 31453 PBYPASS CA PWORD1 # THE T6 PROGRAM WILL LOAD PWORD2 046697,000642: 17,3373 55454 TS PWORD2 # UPON ENTRY 046698,000643: 17,3374 35021 CAF ZERO 046699,000644: 17,3375 55461 TS BLAST1 # THERE IS NO PWORD2 046700,000645: 17,3376 13230 TCF YAWTIME 046701,000646: 046702,000647: # Page 1056 046703,000648: # GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2) 046704,000649: 046705,000650: 17,3377 11515 ASMBLWR CCS YNDX # CHECK FOR Y-TRANS 046706,000651: 17,3400 13410 TCF ACBD2Y 046707,000652: 17,3401 35021 NO2Y CAF ZERO 046708,000653: 17,3402 55452 TS RWORD2 046709,000654: 17,3403 11516 CCS ZNDX # CHECK FOR Z-TRANS 046710,000655: 17,3404 13453 TCF ACBD2Z 046711,000656: 17,3405 35021 NO2Z CAF ZERO 046712,000657: 17,3406 27452 ADS RWORD2 046713,000658: 17,3407 13164 TCF PITCHTIM # RWORD2 ASSEMBLED 046714,000659: 046715,000660: 17,3410 11630 ACBD2Y CCS ACORBD 046716,000661: 17,3411 13426 TCF AC2Y # CAN DO Y-TRANS 046717,000662: 17,3412 13426 TCF AC2Y 046718,000663: 17,3413 13414 TCF +1 # USING AC FOR ROLL 046719,000664: 17,3414 11626 CCS RACFAIL 046720,000665: 17,3415 13401 TCF NO2Y # USING AC AND AC HAS FAILED 046721,000666: 17,3416 13420 TCF +2 046722,000667: 17,3417 13401 TCF NO2Y # DITTO 046723,000668: 046724,000669: 17,3420 51515 INDEX YNDX # NO FAILURES, CAN DO Y 046725,000670: 17,3421 32660 CA XLNNDX 046726,000671: 17,3422 50000 INDEX A 046727,000672: 17,3423 33130 CA RTABLE 046728,000673: 17,3424 73147 MASK ACRJETS 046729,000674: 17,3425 13402 TCF NO2Y +1 046730,000675: 046731,000676: 17,3426 11626 AC2Y CCS RACFAIL 046732,000677: 17,3427 36214 CAF THREE 046733,000678: 17,3430 13432 TCF +2 046734,000679: 17,3431 36211 CAF SIX 046735,000680: 17,3432 51515 INDEX YNDX 046736,000681: 17,3433 62771 AD XLN1NDX 046737,000682: 17,3434 50000 INDEX A 046738,000683: 17,3435 33151 CA YZTABLE 046739,000684: 17,3436 73163 MASK ACYJETS 046740,000685: 17,3437 55452 TS RWORD2 046741,000686: 17,3440 00006 EXTEND 046742,000687: 17,3441 75014 MP BIT4 046743,000688: 17,3442 67715 AD =-2 046744,000689: 17,3443 55522 TS NRJETS 046745,000690: 17,3444 41457 CS BLAST 046746,000691: 17,3445 63310 AD =+.1SEC 046747,000692: 17,3446 00006 EXTEND 046748,000693: 17,3447 71522 MP NRJETS 046749,000694: 17,3450 30001 CA L 046750,000695: 17,3451 27547 ADS DFT 046751,000696: 17,3452 13403 TCF NO2Y +2 046752,000697: # Page 1057 046753,000698: 17,3453 11630 ACBD2Z CCS ACORBD 046754,000699: 17,3454 13504 TCF BDF2Z # USING BD-ROLL 046755,000700: 17,3455 13504 TCF BDF2Z # MUST CHECK FOR BD FAILURES 046756,000701: 17,3456 13457 TCF +1 046757,000702: 17,3457 11627 CCS RBDFAIL # USING AC FOR ROLL, CAN DO Z-TRANS 046758,000703: 17,3460 36214 CAF THREE 046759,000704: 17,3461 13463 TCF +2 046760,000705: 17,3462 36211 CAF SIX 046761,000706: 17,3463 51516 INDEX ZNDX 046762,000707: 17,3464 62771 AD XLN1NDX 046763,000708: 17,3465 50000 INDEX A 046764,000709: 17,3466 33151 CA YZTABLE 046765,000710: 17,3467 73162 MASK BDZJETS 046766,000711: 17,3470 27452 ADS RWORD2 046767,000712: 17,3471 00006 EXTEND 046768,000713: 17,3472 75011 MP BIT7 046769,000714: 17,3473 67715 AD =-2 046770,000715: 17,3474 55522 TS NRJETS 046771,000716: 17,3475 41457 CS BLAST 046772,000717: 17,3476 63310 AD =+.1SEC 046773,000718: 17,3477 00006 EXTEND 046774,000719: 17,3500 71522 MP NRJETS 046775,000720: 17,3501 30001 CA L 046776,000721: 17,3502 27547 ADS DFT 046777,000722: 17,3503 13164 TCF PITCHTIM 046778,000723: 046779,000724: 17,3504 11627 BDF2Z CCS RBDFAIL 046780,000725: 17,3505 13405 TCF NO2Z # USING BD-ROLL AND BD HAS FAILED 046781,000726: 17,3506 13510 TCF +2 046782,000727: 17,3507 13405 TCF NO2Z # DITTO 046783,000728: 17,3510 51516 INDEX ZNDX 046784,000729: 17,3511 32660 CA XLNNDX 046785,000730: 17,3512 50000 INDEX A 046786,000731: 17,3513 33130 CA RTABLE 046787,000732: 17,3514 73150 MASK BDRJETS 046788,000733: 17,3515 13406 TCF NO2Z +1 046789,000734: 046790,000735: 17,3516 31451 RBYPASS CA RWORD1 046791,000736: 17,3517 55452 TS RWORD2 046792,000737: 17,3520 35021 CAF ZERO 046793,000738: 17,3521 55457 TS BLAST 046794,000739: 17,3522 13164 TCF PITCHTIM 046795,000740: 046796,000741: # Page 1058 046797,000742: # GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2 046798,000743: 046799,000744: 17,3523 11627 ASMBLWY CCS RBDFAIL 046800,000745: 17,3524 13532 TCF FYX2 # IF FAILURE ON BD IGNORE X-TRANSLATION 046801,000746: 17,3525 13527 TCF +2 046802,000747: 17,3526 13532 TCF FYX2 046803,000748: 17,3527 51514 INDEX XNDX2 046804,000749: 17,3530 32660 CA XLNNDX 046805,000750: 17,3531 50000 INDEX A 046806,000751: 17,3532 32714 FYX2 CA PYTABLE 046807,000752: 17,3533 72734 MASK YJETS 046808,000753: 17,3534 55456 TS YWORD2 046809,000754: 17,3535 13542 TCF T6SETUP 046810,000755: 046811,000756: 17,3536 31455 YBYPASS CA YWORD1 046812,000757: 17,3537 55456 TS YWORD2 046813,000758: 17,3540 35021 CAF ZERO 046814,000759: 17,3541 55463 TS BLAST2 046815,000760: 046816,000761: # Page 1059 046817,000762: # SORT THE JET ON-TIMES 046818,000763: 046819,000764: # AT THIS POINT ALL THE CHANNEL COMMANDS AND JET ON-TIMES HAVE BEEN DETERMINED. IN SUMMARY THESE ARE: 046820,000765: 046821,000766: # RWORD1 046822,000767: # RWORD2 BLAST 046823,000768: 046824,000769: # PWORD1 046825,000770: # PWORD2 BLAST1 046826,000771: 046827,000772: # YWORD1 046828,000773: # YWORD2 BLAST2 046829,000774: 046830,000775: # IN THIS SECTION THE JET ON-TIMES ARE SORTED AND THE SEQUENCE OF T6 INTERRUPTS IS DETERMINED. TO FACILITATE 046831,000776: # THE SORTING PROCESS AND THE T6 PROGRAM, THE VARIABLES BLAST, BLAST1, BLAST2, ARE RESERVED AS DOUBLE PRECISION 046832,000777: # WORDS. THE LOWER PART OF THESE WORDS CONTAIN A BRANCH INDEX ASSOCIATED WITH THE ROTATION AXIS OF THE HIGHER 046833,000778: # ORDER WORD. 046834,000779: 046835,000780: 17,3542 35021 T6SETUP CAF ZERO # BRANCH INDEX FOR ROLL 046836,000781: 17,3543 55460 TS BLAST +1 046837,000782: 17,3544 35015 CAF FOUR # BRANCH INDEX FOR PITCH 046838,000783: 17,3545 55462 TS BLAST1 +1 046839,000784: 17,3546 35024 CAF ELEVEN # BRANCH INDEX FOR YAW 046840,000785: 17,3547 55464 TS BLAST2 +1 046841,000786: 046842,000787: 17,3550 41457 CS BLAST 046843,000788: 17,3551 61461 AD BLAST1 046844,000789: 17,3552 00006 EXTEND 046845,000790: 17,3553 63577 BZMF DXCHT12 # T1 OR T2 046846,000791: 17,3554 41461 CHECKT23 CS BLAST1 046847,000792: 17,3555 61463 AD BLAST2 046848,000793: 17,3556 00006 EXTEND 046849,000794: 17,3557 63603 BZMF DXCHT23 046850,000795: 17,3560 41461 CALCDT6 CS BLAST1 046851,000796: 17,3561 27463 ADS BLAST2 046852,000797: 17,3562 41457 CS BLAST 046853,000798: 17,3563 27461 ADS BLAST1 # END OF SORTING PROCEDURE 046854,000799: 17,3564 00006 EXTEND # RESET T5LOC TO BEGIN PHASE1 046855,000800: 17,3565 33576 DCA RCS2CADR 046856,000801: 17,3566 53313 DXCH T5LOC 046857,000802: 17,3567 45017 ENDJETS CS BIT1 # RESET BIT1 FOR INITIALIZATION OF 046858,000803: 17,3570 71501 MASK RCSFLAGS # T6 PROGRAM 046859,000804: 17,3571 55501 TS RCSFLAGS 046860,000805: 17,3572 45021 CS ZERO # RESET T5PHASE FOR PHASE1 046861,000806: 17,3573 55465 TS T5PHASE 046862,000807: 17,3574 15333 TCF RESUME # RESUME INTERRUPTED PROGRAM 046863,000808: 046864,000809: 17,3575 E6,1510 EBANK= KMPAC 046865,000810: 17,3575 02122 42066 RCS2CADR 2CADR RCSATT 046866,000811: 046867,000812: # Page 1060 046868,000813: 17,3577 53460 DXCHT12 DXCH BLAST 046869,000814: 17,3600 53462 DXCH BLAST1 046870,000815: 17,3601 53460 DXCH BLAST 046871,000816: 17,3602 13554 TCF CHECKT23 046872,000817: 046873,000818: 17,3603 53462 DXCHT23 DXCH BLAST1 046874,000819: 17,3604 53464 DXCH BLAST2 046875,000820: 17,3605 53462 DXCH BLAST1 046876,000821: 17,3606 41457 CS BLAST 046877,000822: 17,3607 61461 AD BLAST1 046878,000823: 17,3610 00006 EXTEND 046879,000824: 17,3611 63613 BZMF +2 046880,000825: 17,3612 13560 TCF CALCDT6 046881,000826: 17,3613 53460 DXCH BLAST 046882,000827: 17,3614 53462 DXCH BLAST1 046883,000828: 17,3615 53460 DXCH BLAST 046884,000829: 17,3616 13560 TCF CALCDT6 046885,000830: 046886,000831: # Page 1061 046887,000832: # T6 PROGRAM AND CHANNEL SETUP 046888,000833: 046889,000834: 21,3765 BANK 21 046890,000835: 17,2000 SETLOC DAPS5 046891,000836: 17,2000 BANK 046892,000837: 046893,000838: 17,3617 22016 T6START LXCH BANKRUPT 046894,000839: 17,3620 00006 EXTEND 046895,000840: 17,3621 22012 QXCH QRUPT 046896,000841: 17,3622 10031 CCS TIME6 # CHECK TO SEE IF TIME6 WAS RESET 046897,000842: 17,3623 15333 TCF RESUME # AFTER T6RUPT OCCURRED (IN T5RUPT) 046898,000843: 17,3624 13626 TCF +2 # IF SO WAIT FOR NEXT T6RUPT BEFORE 046899,000844: 17,3625 15333 TCF RESUME # TAKING ACTION 046900,000845: 046901,000846: 17,3626 41501 CS RCSFLAGS 046902,000847: 17,3627 75017 MASK BIT1 # IF BIT1 IS 0 RESET TO 1 046903,000848: 17,3630 00006 EXTEND # AND INITIALIZE CHANNEL 046904,000849: 17,3631 13642 BZF T6RUPTOR 046905,000850: 17,3632 27501 ADS RCSFLAGS 046906,000851: 17,3633 31451 CA RWORD1 046907,000852: 17,3634 00006 EXTEND # INITIALIZE CHANNELS 5,6 WITH WORD1 046908,000853: 17,3635 01006 WRITE CHAN6 046909,000854: 17,3636 31453 CA PWORD1 046910,000855: 17,3637 61455 AD YWORD1 046911,000856: 17,3640 00006 EXTEND 046912,000857: 17,3641 01005 WRITE CHAN5 046913,000858: 046914,000859: 17,3642 11457 T6RUPTOR CCS BLAST 046915,000860: 17,3643 13722 TCF ZBLAST # ZERO BLAST1 046916,000861: 17,3644 13661 TCF REPLACE # REPLACE WORD1 046917,000862: 17,3645 13647 TCF +2 046918,000863: 17,3646 13661 TCF REPLACE 046919,000864: 17,3647 11461 T6L1 CCS BLAST1 046920,000865: 17,3650 13725 TCF ZBLAST1 046921,000866: 17,3651 13666 TCF REPLACE1 046922,000867: 17,3652 13654 TCF +2 046923,000868: 17,3653 13666 TCF REPLACE1 046924,000869: 17,3654 11463 T6L2 CCS BLAST2 046925,000870: 17,3655 13730 TCF ZBLAST2 046926,000871: 17,3656 13673 TCF REPLACE2 046927,000872: 17,3657 15333 TCF RESUME 046928,000873: 17,3660 13673 TCF REPLACE2 046929,000874: 046930,000875: 17,3661 51460 REPLACE INDEX BLAST +1 046931,000876: 17,3662 03700 TC REPLACER 046932,000877: 17,3663 45017 CS ONE 046933,000878: 17,3664 55457 TS BLAST 046934,000879: 17,3665 13647 TCF T6L1 046935,000880: 046936,000881: 17,3666 51462 REPLACE1 INDEX BLAST1 +1 046937,000882: # Page 1062 046938,000883: 17,3667 03700 TC REPLACER 046939,000884: 17,3670 45017 CS ONE 046940,000885: 17,3671 55461 TS BLAST1 046941,000886: 17,3672 13654 TCF T6L2 046942,000887: 046943,000888: 17,3673 51464 REPLACE2 INDEX BLAST2 +1 046944,000889: 17,3674 03700 TC REPLACER 046945,000890: 17,3675 45017 CS ONE 046946,000891: 17,3676 55463 TS BLAST2 046947,000892: 17,3677 15333 TCF RESUME 046948,000893: 046949,000894: 17,3700 31452 REPLACER CA RWORD2 # INITIALIZE CHANNELS 5,6 WITH WORD2 046950,000895: 17,3701 00006 EXTEND 046951,000896: 17,3702 01006 WRITE CHAN6 046952,000897: 17,3703 00002 TC Q 046953,000898: 046954,000899: 17,3704 32734 REPLACEP CA YJETS 046955,000900: 17,3705 00006 EXTEND 046956,000901: 17,3706 02005 RAND CHAN5 046957,000902: 17,3707 61454 AD PWORD2 046958,000903: 17,3710 00006 EXTEND 046959,000904: 17,3711 01005 WRITE CHAN5 046960,000905: 17,3712 00002 TC Q 046961,000906: 046962,000907: 17,3713 32733 REPLACEY CA PJETS 046963,000908: 17,3714 00006 EXTEND 046964,000909: 17,3715 02005 RAND CHAN5 046965,000910: 17,3716 61456 AD YWORD2 046966,000911: 17,3717 00006 EXTEND 046967,000912: 17,3720 01005 WRITE CHAN5 046968,000913: 17,3721 00002 TC Q 046969,000914: 046970,000915: 17,3722 35021 ZBLAST CAF ZERO 046971,000916: 17,3723 57457 XCH BLAST 046972,000917: 17,3724 13732 TCF ENABT6 046973,000918: 17,3725 35021 ZBLAST1 CAF ZERO 046974,000919: 17,3726 57461 XCH BLAST1 046975,000920: 17,3727 13732 TCF ENABT6 046976,000921: 17,3730 35021 ZBLAST2 CAF ZERO 046977,000922: 17,3731 57463 XCH BLAST2 046978,000923: 17,3732 54031 ENABT6 TS TIME6 046979,000924: 17,3733 35001 CAF NEGMAX 046980,000925: 17,3734 00006 EXTEND 046981,000926: 17,3735 05013 WOR CHAN13 # ENABLE T6RUPT 046982,000927: 17,3736 15333 TCF RESUME 046983,000928: 046984,000929: # END OF T6 INTERRUPT 046985,000930: 046986,000931: 17,3737 ENDSLECT EQUALS 046987,000932: End of include-file JET_SELECTION_LOGIC.agc. Parent file is MAIN.agc