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