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