Source Code
|
These source-code files are part of a reconstructed copy of Comanche 67, the
Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.
They have been adapted from sources files for Comanche 55, and updated via
disassembly of binary dumps of original core rope memory modules, part numbers
2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.
Since only binary dumps (rather than listings) of Comanche 67 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
044164,000002: ## Copyright: Public domain.
044165,000003: ## Filename: JET_SELECTION_LOGIC.agc
044166,000004: ## Purpose: A section of Comanche revision 067.
044167,000005: ## It is part of the reconstructed source code for the flight
044168,000006: ## software for the Command Module's (CM) Apollo Guidance Computer
044169,000007: ## (AGC) for Apollo 12. No original listings of this program are
044170,000008: ## available; instead, this file was created via dissassembly of
044171,000009: ## dumps of Comanche 067 core rope modules and comparison with
044172,000010: ## other AGC programs.
044173,000011: ## Assembler: yaYUL
044174,000012: ## Contact: Ron Burkey <info@sandroid.org>.
044175,000013: ## Website: www.ibiblio.org/apollo/index.html
044176,000014: ## Mod history: 2023-08-16 MAS Created from Comanche 055.
044177,000015:
044178,000016: 21,3777 BANK 21
044179,000017: 17,2000 SETLOC DAPS4
044180,000018: 17,2000 BANK
044181,000019:
044182,000020: 17,2610 COUNT 17/DAPJS
044183,000021:
044184,000022: 17,2610 E6,1510 EBANK= KMPAC
044185,000023:
044186,000024: # EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS
044187,000025:
044188,000026: 17,2610 22016 JETSLECT LXCH BANKRUPT
044189,000027: 17,2611 32672 CAF DELTATT3 # = 60 MS RESET TO EXECUTE PHASE1
044190,000028: 17,2612 61634 AD T5TIME
044191,000029: 17,2613 54030 TS TIME5
044192,000030: 17,2614 12617 TCF +3
044193,000031: 17,2615 32673 CAF DELATT20 # = 20 MS TO ASSURE A T5RUPT
044194,000032: 17,2616 54030 TS TIME5
044195,000033: 17,2617 33351 CAF =14MS # RESET T6 TO INITIALIZE THE JET CHANNELS
044196,000034: 17,2620 54031 TS TIME6 # IN 14 MS
044197,000035: 17,2621 35015 CAF NEGMAX
044198,000036: 17,2622 00006 EXTEND
044199,000037: 17,2623 05013 WOR CHAN13
044200,000038: 17,2624 00006 EXTEND
044201,000039: 17,2625 22012 QXCH QRUPT
044202,000040: 17,2626 32671 CAF XLNMASK # = 7700 OCT
044203,000041: 17,2627 00006 EXTEND # EXAMINE THE TRANSLATION
044204,000042: 17,2630 06031 RXOR CHAN31 # HAND CONTROLLER
044205,000043: 17,2631 72671 MASK XLNMASK
044206,000044: 17,2632 00006 EXTEND
044207,000045: 17,2633 12674 BZF NOXLNCMD
044208,000046: 17,2634 55502 TS T5TEMP
044209,000047: 17,2635 00006 EXTEND
044210,000048: 17,2636 75023 MP BIT9
044211,000049: 17,2637 76214 MASK THREE
044212,000050: 17,2640 55513 TS XNDX1 # AC QUAD X-TRANSLATION INDEX
044213,000051: 17,2641 55514 TS XNDX2 # BD QUAD X-TRANSLATION INDEX
044214,000052: 17,2642 31502 CA T5TEMP
044215,000053: 17,2643 00006 EXTEND # 1 = + XLN
044216,000054: 17,2644 75025 MP BIT7 # 2 = - XLN
044217,000055: 17,2645 76214 MASK THREE # 3 = NO XLN
044218,000056: 17,2646 55515 TS YNDX # Y-TRANSLATION INDEX
044219,000057:
044220,000058: 17,2647 31502 CA T5TEMP
044221,000059: 17,2650 00006 EXTEND
044222,000060: 17,2651 75027 MP BIT5
044223,000061: 17,2652 76214 MASK THREE
044224,000062: 17,2653 55516 TS ZNDX # Z-TRANSLATION INDEX
044225,000063:
044226,000064: 17,2654 31466 CA DAPDATR1 # SET ATTKALMN TO PICK UP FILTER GAINS FOR
044227,000065: 17,2655 75016 MASK BIT14 # TRANSLATIONS.
044228,000066: 17,2656 00006 EXTEND # CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED.
044229,000067: 17,2657 12662 BZF NOLEM
044230,000068: 17,2660 46214 CS THREE # IF LEM IS ON, SET ATTKALMN = -3
044231,000069: 17,2661 12663 TCF +2
044232,000070: 17,2662 45032 NOLEM CS TWO # IF LEM IS OFF, SET ATTKALMN = -2.
044233,000071: 17,2663 55617 TS ATTKALMN
044234,000072: 17,2664 11631 CCS XTRANS # (+, -1, 0)
044235,000073: 17,2665 55513 TS XNDX1 # USING BD-X ZERO XNDX1
044236,000074: 17,2666 12700 TCF PWORD
044237,000075: 17,2667 55514 TS XNDX2 # USING AC-X ZERO XNDX2
044238,000076: 17,2670 12700 TCF PWORD
044239,000077: 17,2671 07700 XLNMASK OCT 7700
044240,000078:
044241,000079: 17,2672 37772 DELTATT3 DEC 16378 B-14 # = 60 MS
044242,000080: 17,2673 37776 DELATT20 DEC 16382 B-14 # = 20 MS
044243,000081:
044244,000082: 17,2674 55513 NOXLNCMD TS XNDX1 # ZERO ALL REQUESTS FOR TRANSLATION
044245,000083: 17,2675 55514 TS XNDX2
044246,000084: 17,2676 55515 TS YNDX
044247,000085: 17,2677 55516 TS ZNDX
044248,000086:
044249,000087: # PITCH COMMANDS TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT
044250,000088:
044251,000089: 17,2700 11562 PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS
044252,000090: 17,2701 35033 CAF ONE
044253,000091: 17,2702 12704 TCF +2 # 0 = NO PITCH
044254,000092: 17,2703 35032 CAF TWO # +1 = + PITCH
044255,000093: 17,2704 55520 TS PINDEX # +2 = - PITCH
044256,000094:
044257,000095: 17,2705 11626 CCS RACFAIL # FLAG FOR REAL AC QUAD FAILURES
044258,000096: 17,2706 12712 TCF AFAILP
044259,000097: 17,2707 12722 TCF TABPCOM # 0 = NO REAL AC FAILURES
044260,000098: 17,2710 12714 TCF CFAILP # + = A QUAD FAILED
044261,000099: 17,2711 12722 TCF TABPCOM # - = C QUAD FAILED
044262,000100: # IF FAILURES ARE PRESENT IGNORE
044263,000101: # X-TRANSLATIONS ON THIS AXIS
044264,000102:
044265,000103: 17,2712 34334 AFAILP CAF NINE # IF FAILURE IS PRESENT 1JET OPERATION
044266,000104: 17,2713 12724 TCF TABPCOM +2 # IS ASSUMED. IGNORE X-TRANSLATION
044267,000105: 17,2714 35775 CFAILP CAF TWELVE
044268,000106: 17,2715 12724 TCF TABPCOM +2
044269,000107:
044270,000108: 17,2716 00000 XLNNDX DEC 0 B-14 # INDECES FOR TRANSLATION COMMANDS
044271,000109: 17,2717 00003 DEC 3 B-14 # FOR USE IN TABLE LOOK UP
044272,000110: 17,2720 00006 DEC 6 B-14
044273,000111: 17,2721 00000 DEC 0 B-14
044274,000112:
044275,000113: 17,2722 5775 TWELVE = OCT14
044276,000114:
044277,000115: # TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT.
044278,000116: # BITS 9, 10 CONTAIN THE NUMBER OF PITCH JETS USED TO PERFORM THE PITCH ROTATION
044279,000117:
044280,000118: 17,2722 51513 TABPCOM INDEX XNDX1
044281,000119: 17,2723 32716 CA XLNNDX
044282,000120: 17,2724 61520 AD PINDEX
044283,000121: 17,2725 50000 INDEX A
044284,000122: 17,2726 32752 CA PYTABLE
044285,000123: 17,2727 72771 MASK PJETS # =1417 OCT
044286,000124: 17,2730 55453 TS PWORD1
044287,000125: 17,2731 00006 EXTEND
044288,000126: 17,2732 75025 MP BIT7
044289,000127: 17,2733 55523 TS NPJETS # = NO. OF PITCH JETS
044290,000128:
044291,000129: # YAW JET COMMANDS TIMING(NO X-TRANS, NO QUAD FAILURES) 32MCT
044292,000130:
044293,000131: 17,2734 11563 YWORD CCS TAU2 # CHECK FOR YAW COMMANDS
044294,000132: 17,2735 35033 CAF ONE
044295,000133: 17,2736 12740 TCF +2
044296,000134: 17,2737 35032 CAF TWO
044297,000135: 17,2740 55521 TS YINDEX # YAW ROTATION INDEX
044298,000136:
044299,000137: 17,2741 11627 CCS RBDFAIL # FLAG FOR B OR D QUAD FAILURES
044300,000138: 17,2742 12746 TCF BFAILY # 0 = NO BD FAILURE
044301,000139: 17,2743 12773 TCF TABYCOM # + = B QUAD FAILED
044302,000140: 17,2744 12750 TCF DFAILY # - = D QUAD FAILED
044303,000141: 17,2745 12773 TCF TABYCOM
044304,000142:
044305,000143: 17,2746 34334 BFAILY CAF NINE
044306,000144: 17,2747 12775 TCF TABYCOM +2
044307,000145: 17,2750 35775 DFAILY CAF TWELVE
044308,000146: 17,2751 12775 TCF TABYCOM +2
044309,000147:
044310,000148: # TABLE FOR PITCH(YAW) COMMANDS
044311,000149: # BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED
044312,000150: # BITS 10,9 = NO. PITCH JETS USED TO PERFORM ROTATION
044313,000151: # BITS 8,7,6,5 = YAW, X-TRANSLATION JETS SELECTED
044314,000152: # BITS 12,11: NO. YAW JETS USED TO PERFORM ROTATION
044315,000153:
044316,000154: # ROT TRANS QUAD BIAS
044317,000155: 17,2752 00000 PYTABLE OCT 0 # 0 0 0
044318,000156: 17,2753 05125 OCT 5125 # + 0 0
044319,000157: 17,2754 05252 OCT 5252 # - 0 0
044320,000158: 17,2755 00231 OCT 0231 # 0 + 3
044321,000159: 17,2756 02421 OCT 2421 # + + 3
044322,000160: 17,2757 02610 OCT 2610 # - + 3
044323,000161: 17,2760 00146 OCT 0146 # 0 - 6
044324,000162: 17,2761 02504 OCT 2504 # + - 6
044325,000163: 17,2762 02442 OCT 2442 # - - 6
044326,000164: 17,2763 00000 OCT 0 # 0 A(B) 9
044327,000165: 17,2764 02421 OCT 2421 # + A(B) 9
044328,000166: 17,2765 02442 OCT 2442 # - A(B) 9
044329,000167: 17,2766 00000 OCT 0 # 0 C(D) 12
044330,000168: 17,2767 02504 OCT 2504 # + C(D) 12
044331,000169: 17,2770 02610 OCT 2610 # - C(D) 12
044332,000170:
044333,000171: # MASKS FOR PITCH AND YAW COMMANDS
044334,000172:
044335,000173: 17,2771 01417 PJETS OCT 1417
044336,000174: 17,2772 06360 YJETS OCT 6360
044337,000175:
044338,000176: # TABLE LOOK UP FOR YAW COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT
044339,000177: # BITS 11, 12 CONTAIN THE NUMBER OF YAW JETS USED TO PERFORM THE YAW ROTATION
044340,000178:
044341,000179: 17,2773 51514 TABYCOM INDEX XNDX2
044342,000180: 17,2774 32716 CA XLNNDX
044343,000181: 17,2775 61521 AD YINDEX
044344,000182: 17,2776 50000 INDEX A
044345,000183: 17,2777 32752 CA PYTABLE
044346,000184: 17,3000 72772 MASK YJETS # = 6360 OCT
044347,000185: 17,3001 55455 TS YWORD1
044348,000186: 17,3002 00006 EXTEND
044349,000187: 17,3003 75027 MP BIT5
044350,000188: 17,3004 55524 TS NYJETS # NO. OF YAW JETS USED TO PERFORM ROTATION
044351,000189:
044352,000190: # ROLL COMMANDS TIMING(NO Y,Z TRANS, NO QUAD FAILS) 45MCT
044353,000191:
044354,000192: 17,3005 11561 RWORD CCS TAU # CHECK FOR ROLL COMMANDS
044355,000193: 17,3006 35033 CAF ONE
044356,000194: 17,3007 13011 TCF +2
044357,000195: 17,3010 35032 CAF TWO
044358,000196: 17,3011 55517 TS RINDEX
044359,000197:
044360,000198: 17,3012 11630 CCS ACORBD # FLAG FOR AC OR BD QUAD SELECTION FOR
044361,000199: 17,3013 13104 TCF BDROLL # ROLL COMMANDS
044362,000200: 17,3014 13104 TCF BDROLL # +, +0 = BD ROLL
044363,000201: 17,3015 13016 TCF +1 # -, -0 = AC ROLL
044364,000202:
044365,000203: 17,3016 11626 ACROLL CCS RACFAIL # CHECK FOR REAL FAILURES
044366,000204: 17,3017 13023 TCF RAFAIL # ON AC QUADS
044367,000205: 17,3020 13033 TCF RXLNS
044368,000206: 17,3021 13025 TCF RCFAIL
044369,000207: 17,3022 13033 TCF RXLNS
044370,000208:
044371,000209: 17,3023 34334 RAFAIL CAF NINE # QUAD FAILURE WILL GET
044372,000210: 17,3024 13035 TCF TABRCOM # 1-JET OPERATION
044373,000211: 17,3025 35775 RCFAIL CAF TWELVE
044374,000212: 17,3026 13035 TCF TABRCOM
044375,000213:
044376,000214: 17,3027 00000 XLN1NDX DEC 0 B-14
044377,000215: 17,3030 00001 DEC 1 B-14 # INDECES FOR TRANSLATION
044378,000216: 17,3031 00002 DEC 2 B-14
044379,000217: 17,3032 00000 DEC 0 B-14
044380,000218:
044381,000219: # TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT
044382,000220: # BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL
044383,000221:
044384,000222: 17,3033 51515 RXLNS INDEX YNDX # NO AC QUAD FAILURES
044385,000223: 17,3034 32716 CA XLNNDX # INCLUDE +,-,0, Y-TRANSLATION
044386,000224: 17,3035 61517 TABRCOM AD RINDEX
044387,000225: 17,3036 50000 INDEX A
044388,000226: 17,3037 33166 CA RTABLE
044389,000227: 17,3040 73205 MASK ACRJETS # = 3760 OCT
044390,000228: 17,3041 55451 TS RWORD1
044391,000229:
044392,000230: # CHECK FOR Z-TRANSLATIONS ON BD
044393,000231:
044394,000232: 17,3042 31516 BDZCHECK CA ZNDX
044395,000233: 17,3043 00006 EXTEND
044396,000234: 17,3044 63076 BZMF NOBDZ # NO Z-TRANSLATION
044397,000235:
044398,000236: # TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES. Z-TRANSLATION WILL BE POSS-
044399,000237: # IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS. CRITERION.. IF THE RESULTANT NET ROLL
044400,000238: # COMMANDS = 0 (WITH Z-TRANSLATION) AND IF TAU = 0, THEN INCLUDE THE BD Z-TRANSLATION COMMANDS. IF THE RESULTANT
044401,000239: # ROLL COMMAND = 0, AND IF TAU NZ, THEN IGNORE THE BD Z-TRANSLATION
044402,000240:
044403,000241: 17,3045 11627 CCS RBDFAIL
044404,000242: 17,3046 36214 CAF THREE
044405,000243: 17,3047 13051 TCF +2
044406,000244: 17,3050 36211 CAF SIX
044407,000245: 17,3051 51516 INDEX ZNDX
044408,000246: 17,3052 63027 AD XLN1NDX
044409,000247: 17,3053 50000 INDEX A
044410,000248: 17,3054 33207 CA YZTABLE
044411,000249: 17,3055 73220 MASK BDZJETS # = 3417 OCT
044412,000250: 17,3056 61451 AD RWORD1 # ADD TO ROLL COMMANDS
044413,000251: 17,3057 55502 TS T5TEMP # IF POSSIBLE. MUST CHECK TAU FIRST
044414,000252:
044415,000253: 17,3060 00006 EXTEND
044416,000254: 17,3061 75025 MP BIT7 # DETERMINE THE NET ROLL COMMAND WITH
044417,000255: 17,3062 66061 AD =-4 # Z-TRANSLATION ADDED ON
044418,000256: 17,3063 55522 TS NRJETS # NET NO. OF +,- ROLL JETS ON
044419,000257: 17,3064 00006 EXTEND
044420,000258: 17,3065 13071 BZF TAUCHECK
044421,000259:
044422,000260: 17,3066 31502 ACRBDZ CA T5TEMP # Z-TRANSLATION ACCEPTED EVEN THO WE MAY
044423,000261: 17,3067 55451 TS RWORD1 # HAVE INTRODUCED AN UNDESIREABLE ROLL
044424,000262: 17,3070 13332 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS
044425,000263:
044426,000264: 17,3071 11561 TAUCHECK CCS TAU
044427,000265: 17,3072 13076 TCF NOBDZ
044428,000266: 17,3073 13066 TCF ACRBDZ
044429,000267: 17,3074 13076 TCF NOBDZ
044430,000268: 17,3075 13066 TCF ACRBDZ
044431,000269:
044432,000270: 17,3076 31451 NOBDZ CA RWORD1 # Z-TRANSLATION NOT ACCEPTED
044433,000271: 17,3077 00006 EXTEND
044434,000272: 17,3100 75025 MP BIT7
044435,000273: 17,3101 67715 AD =-2
044436,000274: 17,3102 55522 TS NRJETS
044437,000275: 17,3103 13332 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATION
044438,000276:
044439,000277: # BD QUAD SELECTION FOR ROLL COMMANDS
044440,000278:
044441,000279: 17,3104 11627 BDROLL CCS RBDFAIL
044442,000280: 17,3105 13111 TCF RBFAIL
044443,000281: 17,3106 13115 TCF RZXLNS
044444,000282: 17,3107 13113 TCF RDFAIL
044445,000283: 17,3110 13115 TCF RZXLNS
044446,000284: 17,3111 34334 RBFAIL CAF NINE
044447,000285: 17,3112 13117 TCF TABRZCMD
044448,000286: 17,3113 35775 RDFAIL CAF TWELVE
044449,000287: 17,3114 13117 TCF TABRZCMD
044450,000288:
044451,000289: 17,3115 51516 RZXLNS INDEX ZNDX # NO BD FAILURES
044452,000290: 17,3116 32716 CA XLNNDX # +,-,0 Z-TRANSLATION PRESENT
044453,000291: 17,3117 61517 TABRZCMD AD RINDEX
044454,000292: 17,3120 50000 INDEX A
044455,000293: 17,3121 33166 CA RTABLE
044456,000294: 17,3122 73206 MASK BDRJETS # = 34017 OCT
044457,000295: 17,3123 55451 TS RWORD1
044458,000296:
044459,000297: 17,3124 31515 ACYCHECK CA YNDX # ANY Y-TRANSLATION
044460,000298: 17,3125 00006 EXTEND
044461,000299: 17,3126 13160 BZF NOACY # NO Y-TRANSLATION
044462,000300: 17,3127 11626 CCS RACFAIL
044463,000301: 17,3130 36214 CAF THREE
044464,000302: 17,3131 13133 TCF +2
044465,000303: 17,3132 36211 CAF SIX
044466,000304: 17,3133 51515 INDEX YNDX
044467,000305: 17,3134 63027 AD XLN1NDX
044468,000306: 17,3135 50000 INDEX A
044469,000307: 17,3136 33207 CA YZTABLE
044470,000308: 17,3137 73221 MASK ACYJETS # = 34360 OCT
044471,000309: 17,3140 61451 AD RWORD1
044472,000310: 17,3141 55502 TS T5TEMP
044473,000311: 17,3142 00006 EXTEND # FOR EXPLANATION SEE CODING ON RTABLE
044474,000312: 17,3143 75030 MP BIT4
044475,000313: 17,3144 66061 AD =-4
044476,000314: 17,3145 55522 TS NRJETS # NO. OF NET ROLL JETS
044477,000315: 17,3146 00006 EXTEND
044478,000316: 17,3147 13153 BZF TAUCHCK # IF NRJETS = 0
044479,000317:
044480,000318: 17,3150 31502 BDRACZ CA T5TEMP # Y-TRANSLATION ACCEPTED
044481,000319: 17,3151 55451 TS RWORD1
044482,000320: 17,3152 13332 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS
044483,000321:
044484,000322: 17,3153 11561 TAUCHCK CCS TAU
044485,000323: 17,3154 13160 TCF NOACY
044486,000324: 17,3155 13150 TCF BDRACZ
044487,000325: 17,3156 13160 TCF NOACY
044488,000326: 17,3157 13150 TCF BDRACZ
044489,000327:
044490,000328: 17,3160 31451 NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED
044491,000329: 17,3161 00006 EXTEND
044492,000330: 17,3162 75030 MP BIT4
044493,000331: 17,3163 67715 AD =-2
044494,000332: 17,3164 55522 TS NRJETS
044495,000333: 17,3165 13332 TCF ROLLTIME
044496,000334:
044497,000335: # TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS
044498,000336:
044499,000337: # EITHER AC OR BD ROLL MAY BE SELECTED. IF AC ROLL IS SELECTED, Y-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY
044500,000338: # PROVIDED THAT THERE ARE NO AC QUAD FAILURES. IF THERE ARE AC FAILURES, Y-TRANSLATION COMMANDS WILL BE IGNORED,
044501,000339: # IN WHICH CASE THE ASTRONAUT SHOULD SWITCH TO BD ROLL.
044502,000340:
044503,000341: # IF BDROLL IS SELECTED, Z-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY PROVIDED THAT THERE ARE NO BD QUAD
044504,000342: # FAILURES. IF THERE ARE BD FAILURES, Z-TRANSLATION COMMANDS WILL BE IGNORED, IN WHICH CASE THE ASTRONAUT SHOULD
044505,000343: # SWITCH TO AC ROLL.
044506,000344:
044507,000345: # NOTE THAT IF ONE QUAD FAILS (E.G. B FAILED), Z-TRANSLATION IS STILL POSSIBLE AND THAT THE UNDESIREABLE ROLL
044508,000346: # INTRODUCED BY THIS TRANSLATION WILL BE COMPENSATED BY THE TWO AC ROLL JETS ACTUATED BY THE AUTOPILOT LOGIC.
044509,000347:
044510,000348: # WORD MAKE UP....RTABLE
044511,000349:
044512,000350: # TWO WORDS, CORRESPONDING TO AC OR BD ROLL SELECTION, HAVE BEEN COMBINED INTO ONE TABLE. THE WORD CORRESPOND-
044513,000351: # ING TO AC ROLL HAS THE FOLLOWING INTERPRETATION..
044514,000352:
044515,000353: # BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE FOR THE WORD SELECTED. THE CODING IS..
044516,000354:
044517,000355: # BIT NO. 11 10 9 NO. OF ROLL JETS
044518,000356:
044519,000357: # 0 0 0 -2
044520,000358: # 0 0 1 -1
044521,000359: # 0 1 0 0
044522,000360: # 0 1 1 +1
044523,000361: # 1 0 0 +2
044524,000362:
044525,000363: # THIS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM THE YZ-TRANSLATION TABLE, WHICH HAS THE SAME TYPE OF
044526,000364: # CODING AS ABOVE, AND THE NET ROLL DETERMINED BY SHIFTING THE RESULTANT WORD RIGHT 8 PLACES AND SUBTRACTING FOUR.
044527,000365:
044528,000366: # THE WORD CORRESPONDING TO BD ROLL HAS A SIMILIAR INTERPRETATION, EXCEPT THAT BITS 12, 13, 14 ARE CODED
044529,000367: # (AS ABOVE) TO GIVE THE NET ROLL TORQUE.
044530,000368:
044531,000369: # ROLL TRANS QUADFAIL BIAS
044532,000370:
044533,000371: 17,3166 11000 RTABLE OCT 11000 # 0 0
044534,000372: 17,3167 22125 OCT 22125 # + 0
044535,000373: 17,3170 00252 OCT 00252 # - 0
044536,000374: 17,3171 11231 OCT 11231 # 0 +Y(+Z) 3
044537,000375: 17,3172 15421 OCT 15421 # + +Y(+Z) 3
044538,000376: 17,3173 04610 OCT 04610 # - +Y(+Z) 3
044539,000377: 17,3174 11146 OCT 11146 # 0 -Y(-Z) 6
044540,000378: 17,3175 15504 OCT 15504 # + -Y(-Z) 6
044541,000379: 17,3176 04442 OCT 04442 # - -Y(-Z) 6
044542,000380: 17,3177 11000 OCT 11000 # 0 A(B) 9
044543,000381: 17,3200 15504 OCT 15504 # + A(B) 9
044544,000382: 17,3201 04610 OCT 04610 # - A(B) 9
044545,000383: 17,3202 11000 OCT 11000 # 0 C(D) 12
044546,000384: 17,3203 15421 OCT 15421 # + C(D) 12
044547,000385: 17,3204 04442 OCT 04442 # - C(D) 12
044548,000386:
044549,000387: # RTABLE MASKS-
044550,000388:
044551,000389: 17,3205 03760 ACRJETS OCT 03760
044552,000390: 17,3206 34017 BDRJETS OCT 34017
044553,000391:
044554,000392: # Y, Z TRANSLATION TABLE
044555,000393:
044556,000394: # ONCE AC OR BD ROLL IS SELECTED THE QUAD PAIR WHICH IS NOT BEING USED TO SATISFY THE ROLL COMMANDS MAY BE
044557,000395: # USED TO SATISFY THE REMAINING TRANSLATION COMMANDS. HOWEVER, WE MUST MAKE SURE THAT ROLL COMMANDS ARE SATISFIED
044558,000396: # WHEN THEY OCCUR. THEREFORE, THE Y-Z TRANSLATIONS FROM THIS TABLE WILL BE IGNORED IF THE NET ROLL TORQUE OF THE
044559,000397: # COMBINED WORD IS ZERO AND THE ROLL COMMANDS ARE NON-ZERO. THIS SITUATION WOULD OCCUR, FOR EXAMPLE, IF WE EN-
044560,000398: # COUNTER SIMULTANEOUS +R +Y -Z COMMANDS AND A QUAD D FAILURE WHILE USING AC FOR ROLL.
044561,000399: # TO FACILITATE THE LOGIC, THE Y-Z TRANSLATION TABLE HAS BEEN CODED IN A MANNER SIMILIAR TO THE ROLL TABLE
044562,000400: # ABOVE.
044563,000401: # BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Z-TRANSLATIONS. THE WORD SELECTED CAN THEN BE
044564,000402: # ADDED TO THE AC-ROLL WORD AND THE RESULTANT ROLL TORQUE DETERMINED FROM THE COMBINED WORD. SIMILIARLY BITS
044565,000403: # 12,13,14 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Y-TRANSLATIONS WHEN BD-ROLL IS SELECTED.
044566,000404:
044567,000405: # TRANSLATION QUADFAIL BIAS
044568,000406:
044569,000407: 17,3207 11000 YZTABLE OCT 11000 # 0 0
044570,000408: 17,3210 11231 OCT 11231 # +Z(+Y) 0
044571,000409: 17,3211 11146 OCT 11146 # -Z(-Y) 0
044572,000410: 17,3212 11000 OCT 11000 # 0 B(A) 3
044573,000411: 17,3213 04610 OCT 04610 # +Z(+Y) B(A) 3
044574,000412: 17,3214 15504 OCT 15504 # -Z(-Y) B(A) 3
044575,000413: 17,3215 11000 OCT 11000 # 0 D(C) 6
044576,000414: 17,3216 15421 OCT 15421 # +Z(+Y) D(C) 6
044577,000415: 17,3217 04442 OCT 04442 # -Z(-Y) D(C) 6
044578,000416:
044579,000417: # YZ-TABLE MASKS-
044580,000418:
044581,000419: 17,3220 03417 BDZJETS OCT 03417
044582,000420: 17,3221 34360 ACYJETS OCT 34360
044583,000421:
044584,000422: # ADDITIONAL CONSTANTS
044585,000423:
044586,000424: 17,3222 7715 =-2 = NEG2
044587,000425: 17,3222 6061 =-4 = NEG4
044588,000426:
044589,000427: # CALCULATION OF JET ON-TIMES
044590,000428:
044591,000429: # THE ROTATION COMMANDS (TAU:S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET
044592,000430: # OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS. TAU MUST
044593,000431: # ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5 INT-
044594,000432: # ERVAL.
044595,000433: # IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES
044596,000434: # (DFT:S, ALSO IN TERMS OF 1-JET OPERATION) FOR THE RATE FILTER.
044597,000435: # NOTE THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO ROTATIONS WERE CALLED FOR. NEVERTHELESS, WE MUST
044598,000436: # UPDATE DFT.
044599,000437: # WHEN THE ROTATIONS HAVE FINISHED, WE MUST PROVIDE CHANNEL INFORMATION TO THE T6 PROGRAM TO CONTINUE ON WITH
044600,000438: # THE TRANSLATIONS. THIS WILL BE DONE IN THE NEXT SECTION. HOWEVER, TO INSURE THAT JETS ARE NOT FIRED FOR LESS
044601,000439: # THAN A MINIMUM IMPULSE (14MS), ALL JET CHANNEL COMMANDS WILL BE HELD FIXED FROM THE START OF THE T5 PROGRAM FOR
044602,000440: # AT LEAST 14MS UNTIL THE INITIALIZATION OF NEW COMMANDS. MOREOVER, A 14MS ON-TIME WILL BE ADDED TO ANY ROTATIONAL
044603,000441: # COMMANDS GENERATED BY THE MANUAL CONTROLS OR THE JET SWITCHING LOGIC, AND ALL TRANSLATION COMMANDS WILL BE
044604,000442: # ACTIVE FOR AT LEAST ONE CYCLE OF THE T5 PROGRAM (.1SEC)
044605,000443:
044606,000444: # PITCH JET ON-TIME CALCULATION
044607,000445:
044608,000446: 17,3222 11562 PITCHTIM CCS TAU1
044609,000447: 17,3223 13232 TCF PTAUPOS
044610,000448: 17,3224 13226 TCF +2
044611,000449: 17,3225 13230 TCF PTAUNEG
044612,000450: 17,3226 55550 TS DFT1 # NO PITCH ROTATION
044613,000451: 17,3227 13430 TCF PBYPASS # COMMANDS
044614,000452:
044615,000453: 17,3230 41523 PTAUNEG CS NPJETS
044616,000454: 17,3231 55523 TS NPJETS
044617,000455: 17,3232 31562 PTAUPOS CA TAU1
044618,000456: 17,3233 00006 EXTEND
044619,000457: 17,3234 51523 INDEX NPJETS
044620,000458: 17,3235 73411 MP NJET
044621,000459: 17,3236 55461 TS BLAST1
044622,000460: 17,3237 63344 AD =-.1SEC
044623,000461: 17,3240 00006 EXTEND
044624,000462: 17,3241 63252 BZMF AD14MSP
044625,000463: 17,3242 51523 INDEX NPJETS
044626,000464: 17,3243 33345 CA DFTMAX # THE PITCH ON-TIME IS GREATER THAN .1 SEC
044627,000465: 17,3244 55550 TS DFT1
044628,000466: 17,3245 40000 COM
044629,000467: 17,3246 27562 ADS TAU1 # UPDATE TAU1
044630,000468: 17,3247 33346 CAF =+.1SEC # LIMIT THE LENGTH OF PITCH ROTATION
044631,000469: 17,3250 55461 TS BLAST1 # COMMANDS TO 0.1 SEC SO THAT ONLY
044632,000470: 17,3251 13415 TCF ASMBLWP # X-TRANSLATIONS WILL CONTINUE ON SWITCH
044633,000471: # OVER TO TVC
044634,000472: 17,3252 41461 AD14MSP CS BLAST1 # SEE IF JET ON TIME LESS THAN
044635,000473: 17,3253 63351 AD =14MS # MINIMUM IMPULSE TIME
044636,000474: 17,3254 00006 EXTEND
044637,000475: 17,3255 63260 BZMF PBLASTOK # IF SO LIMIT MINIMUM ON TIME TO 14 MS
044638,000476: 17,3256 33351 CAF =14MS
044639,000477: 17,3257 55461 TS BLAST1
044640,000478: 17,3260 31461 PBLASTOK CA BLAST1
044641,000479: 17,3261 00006 EXTEND # THE PITCH COMMANDS WILL BE COMPLETED
044642,000480: 17,3262 71523 MP NPJETS # WITHIN THE TS-CYCLE TIME
044643,000481: 17,3263 23550 LXCH DFT1 # FOR USE IN UPDATING RATE FILTER
044644,000482: 17,3264 55562 TS TAU1 # ZERO TAU1 (ACC CONTAINS ZERO)
044645,000483: 17,3265 13415 TCF ASMBLWP
044646,000484:
044647,000485: # YAW JET ON-TIME CALCULATION
044648,000486:
044649,000487: 17,3266 11563 YAWTIME CCS TAU2
044650,000488: 17,3267 13276 TCF YTAUPOS
044651,000489: 17,3270 13272 TCF +2
044652,000490: 17,3271 13274 TCF YTAUNEG
044653,000491: 17,3272 55551 TS DFT2 # NO YAW ROTATION COMMANDS
044654,000492: 17,3273 13574 TCF YBYPASS
044655,000493:
044656,000494: 17,3274 41524 YTAUNEG CS NYJETS
044657,000495: 17,3275 55524 TS NYJETS
044658,000496: 17,3276 31563 YTAUPOS CA TAU2
044659,000497: 17,3277 00006 EXTEND
044660,000498: 17,3300 51524 INDEX NYJETS
044661,000499: 17,3301 73411 MP NJET
044662,000500: 17,3302 55463 TS BLAST2
044663,000501: 17,3303 63344 AD =-.1SEC
044664,000502: 17,3304 00006 EXTEND
044665,000503: 17,3305 63316 BZMF AD14MSY
044666,000504: 17,3306 51524 INDEX NYJETS
044667,000505: 17,3307 33345 CA DFTMAX # YAW COMMANDS WILL LAST LONGER THAN .1SEC
044668,000506: 17,3310 55551 TS DFT2
044669,000507: 17,3311 40000 COM
044670,000508: 17,3312 27563 ADS TAU2 # DECREMENT TAU2
044671,000509: 17,3313 33346 CAF =+.1SEC # LIMIT THE LENGTH OF YAW ROTATION COMMAND
044672,000510: 17,3314 55463 TS BLAST2 # TO 0.1 SEC SO THAT ONLY X-TRANSLATION
044673,000511: 17,3315 13561 TCF ASMBLWY # WILL CONTINUE ON SWITCH OVER TO TVC
044674,000512:
044675,000513: 17,3316 41463 AD14MSY CS BLAST2 # SEE IF JET ON-TIME LESS THAN
044676,000514: 17,3317 63351 AD =14MS # MINIMUM IMPULSE TIME
044677,000515: 17,3320 00006 EXTEND
044678,000516: 17,3321 63324 BZMF YBLASTOK # IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
044679,000517: 17,3322 33351 CAF =14MS
044680,000518: 17,3323 55463 TS BLAST2
044681,000519: 17,3324 31463 YBLASTOK CA BLAST2 # YAW COMMANDS WILL BE COMPLETED WITHIN
044682,000520: 17,3325 00006 EXTEND # THE T5CYCLE TIME
044683,000521: 17,3326 71524 MP NYJETS
044684,000522: 17,3327 23551 LXCH DFT2
044685,000523: 17,3330 55563 TS TAU2 # ZERO TAU2
044686,000524: 17,3331 13561 TCF ASMBLWY
044687,000525:
044688,000526: # ROLL ON-TIME CALCULATION-
044689,000527:
044690,000528: 17,3332 11561 ROLLTIME CCS TAU
044691,000529: 17,3333 13352 TCF RBLAST
044692,000530: 17,3334 13336 TCF +2
044693,000531: 17,3335 13352 TCF RBLAST
044694,000532: 17,3336 51522 INDEX NRJETS
044695,000533: 17,3337 33345 CA DFTMAX # UPDATE DFT EVEN THO NO ROLL COMMANDS ARE
044696,000534: 17,3340 55547 TS DFT # PRESENT
044697,000535: 17,3341 13554 TCF RBYPASS
044698,000536:
044699,000537: 17,3342 77037 DEC -480 B-14 # =-.3SEC
044700,000538: 17,3343 77277 DEC -320 B-14 # =-.2SEC
044701,000539: 17,3344 77537 =-.1SEC DEC -160 B-14 # =-.1SEC
044702,000540: 17,3345 00000 DFTMAX DEC 0 B-14 # 0
044703,000541: 17,3346 00240 =+.1SEC DEC 160 B-14 # =+.1SEC
044704,000542: 17,3347 00500 DEC 320 B-14 # =+.2SEC
044705,000543: 17,3350 00740 DEC 480 B-14 # =+.3SEC
044706,000544: 17,3351 00027 =14MS DEC 23 B-14 # =14MS
044707,000545:
044708,000546: 17,3352 31561 RBLAST CA TAU
044709,000547: 17,3353 00006 EXTEND
044710,000548: 17,3354 51522 INDEX NRJETS
044711,000549: 17,3355 73411 MP NJET
044712,000550: 17,3356 55457 TS BLAST # BLAST IS AN INTERMEDIATE VARIABLE
044713,000551: # USED IN DETERMINING THE JET ON-TIMES
044714,000552: 17,3357 63344 AD =-.1SEC
044715,000553: 17,3360 00006 EXTEND
044716,000554: 17,3361 63372 BZMF AD14MSR
044717,000555: 17,3362 51522 INDEX NRJETS # THE ROLL ROTATION WILL LAST LONGER
044718,000556: 17,3363 33345 CA DFTMAX # THAN THE T5 CYCLE TIME
044719,000557: 17,3364 55547 TS DFT
044720,000558: 17,3365 40000 COM
044721,000559: 17,3366 27561 ADS TAU
044722,000560: 17,3367 33346 CAF =+.1SEC # LIMIT THE LENGTH OF ROLL ROTATION
044723,000561: 17,3370 55457 TS BLAST # COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z
044724,000562: 17,3371 13435 TCF ASMBLWR # TRANSLATION COMMANDS CONTINUE
044725,000563:
044726,000564: 17,3372 41457 AD14MSR CS BLAST # SEE IF THE JET ON-TIME LESS THAN
044727,000565: 17,3373 63351 AD =14MS # MINIMUM IMPULSE TIME
044728,000566: 17,3374 00006 EXTEND
044729,000567: 17,3375 63400 BZMF RBLASTOK
044730,000568: 17,3376 33351 CAF =14MS # IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
044731,000569: 17,3377 55457 TS BLAST
044732,000570: 17,3400 31457 RBLASTOK CA BLAST
044733,000571: 17,3401 00006 EXTEND
044734,000572: 17,3402 71522 MP NRJETS
044735,000573: 17,3403 23547 LXCH DFT
044736,000574: 17,3404 55561 TS TAU # ZERO TAU
044737,000575: 17,3405 13435 TCF ASMBLWR
044738,000576:
044739,000577: 17,3406 65252 DEC -.333333 # = -1/3
044740,000578: 17,3407 57777 DEC -.500000 # = -1/2
044741,000579: 17,3410 40000 DEC -.999999 # = -1 (NEGMAX)
044742,000580: 17,3411 00000 NJET DEC 0 B-14
044743,000581: 17,3412 37777 DEC .999999 # = +1 (POSMAX)
044744,000582: 17,3413 20000 DEC .500000 # = +1/2
044745,000583: 17,3414 12525 DEC .333333 # = +1/3
044746,000584:
044747,000585: # WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH
044748,000586: # CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT.
044749,000587:
044750,000588: # IN THIS SECTION THESE NEW COMMANDS ARE GENERATED AND STORED FOR REPLACEMENT OF THE CHANNEL COMMANDS WHEN THE
044751,000589: # CORRESPONDING ROTATIONS ARE COMPLETED.
044752,000590:
044753,000591: # GENERATION OF THE SECOND PITCH(X-TRANS) WORD...PWORD2
044754,000592:
044755,000593: 17,3415 11626 ASMBLWP CCS RACFAIL
044756,000594: 17,3416 13424 TCF FPX2 # IF FAILURE ON AC IGNORE X-TRANSLATION
044757,000595: 17,3417 13421 TCF +2
044758,000596: 17,3420 13424 TCF FPX2
044759,000597: 17,3421 51513 INDEX XNDX1
044760,000598: 17,3422 32716 CA XLNNDX
044761,000599: 17,3423 50000 INDEX A
044762,000600: 17,3424 32752 FPX2 CA PYTABLE
044763,000601: 17,3425 72771 MASK PJETS
044764,000602: 17,3426 55454 TS PWORD2
044765,000603: 17,3427 13266 TCF YAWTIME
044766,000604:
044767,000605: 17,3430 31453 PBYPASS CA PWORD1 # THE T6 PROGRAM WILL LOAD PWORD2
044768,000606: 17,3431 55454 TS PWORD2 # UPON ENTRY
044769,000607: 17,3432 35035 CAF ZERO
044770,000608: 17,3433 55461 TS BLAST1 # THERE IS NO PWORD2
044771,000609: 17,3434 13266 TCF YAWTIME
044772,000610:
044773,000611: # GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2)
044774,000612:
044775,000613: 17,3435 11515 ASMBLWR CCS YNDX # CHECK FOR Y-TRANS
044776,000614: 17,3436 13446 TCF ACBD2Y
044777,000615: 17,3437 35035 NO2Y CAF ZERO
044778,000616: 17,3440 55452 TS RWORD2
044779,000617: 17,3441 11516 CCS ZNDX # CHECK FOR Z-TRANS
044780,000618: 17,3442 13511 TCF ACBD2Z
044781,000619: 17,3443 35035 NO2Z CAF ZERO
044782,000620: 17,3444 27452 ADS RWORD2
044783,000621: 17,3445 13222 TCF PITCHTIM # RWORD2 ASSEMBLED
044784,000622:
044785,000623: 17,3446 11630 ACBD2Y CCS ACORBD
044786,000624: 17,3447 13464 TCF AC2Y # CAN DO Y-TRANS
044787,000625: 17,3450 13464 TCF AC2Y
044788,000626: 17,3451 13452 TCF +1 # USING AC FOR ROLL
044789,000627: 17,3452 11626 CCS RACFAIL
044790,000628: 17,3453 13437 TCF NO2Y # USING AC AND AC HAS FAILED
044791,000629: 17,3454 13456 TCF +2
044792,000630: 17,3455 13437 TCF NO2Y # DITTO
044793,000631:
044794,000632: 17,3456 51515 INDEX YNDX # NO FAILURES, CAN DO Y
044795,000633: 17,3457 32716 CA XLNNDX
044796,000634: 17,3460 50000 INDEX A
044797,000635: 17,3461 33166 CA RTABLE
044798,000636: 17,3462 73205 MASK ACRJETS
044799,000637: 17,3463 13440 TCF NO2Y +1
044800,000638:
044801,000639: 17,3464 11626 AC2Y CCS RACFAIL
044802,000640: 17,3465 36214 CAF THREE
044803,000641: 17,3466 13470 TCF +2
044804,000642: 17,3467 36211 CAF SIX
044805,000643: 17,3470 51515 INDEX YNDX
044806,000644: 17,3471 63027 AD XLN1NDX
044807,000645: 17,3472 50000 INDEX A
044808,000646: 17,3473 33207 CA YZTABLE
044809,000647: 17,3474 73221 MASK ACYJETS
044810,000648: 17,3475 55452 TS RWORD2
044811,000649: 17,3476 00006 EXTEND
044812,000650: 17,3477 75030 MP BIT4
044813,000651: 17,3500 67715 AD =-2
044814,000652: 17,3501 55522 TS NRJETS
044815,000653: 17,3502 41457 CS BLAST
044816,000654: 17,3503 63346 AD =+.1SEC
044817,000655: 17,3504 00006 EXTEND
044818,000656: 17,3505 71522 MP NRJETS
044819,000657: 17,3506 30001 CA L
044820,000658: 17,3507 27547 ADS DFT
044821,000659: 17,3510 13441 TCF NO2Y +2
044822,000660: 17,3511 11630 ACBD2Z CCS ACORBD
044823,000661: 17,3512 13542 TCF BDF2Z # USING BD-ROLL
044824,000662: 17,3513 13542 TCF BDF2Z # MUST CHECK FOR BD FAILURES
044825,000663: 17,3514 13515 TCF +1
044826,000664: 17,3515 11627 CCS RBDFAIL # USING AC FOR ROLL, CAN DO Z-TRANS
044827,000665: 17,3516 36214 CAF THREE
044828,000666: 17,3517 13521 TCF +2
044829,000667: 17,3520 36211 CAF SIX
044830,000668: 17,3521 51516 INDEX ZNDX
044831,000669: 17,3522 63027 AD XLN1NDX
044832,000670: 17,3523 50000 INDEX A
044833,000671: 17,3524 33207 CA YZTABLE
044834,000672: 17,3525 73220 MASK BDZJETS
044835,000673: 17,3526 27452 ADS RWORD2
044836,000674: 17,3527 00006 EXTEND
044837,000675: 17,3530 75025 MP BIT7
044838,000676: 17,3531 67715 AD =-2
044839,000677: 17,3532 55522 TS NRJETS
044840,000678: 17,3533 41457 CS BLAST
044841,000679: 17,3534 63346 AD =+.1SEC
044842,000680: 17,3535 00006 EXTEND
044843,000681: 17,3536 71522 MP NRJETS
044844,000682: 17,3537 30001 CA L
044845,000683: 17,3540 27547 ADS DFT
044846,000684: 17,3541 13222 TCF PITCHTIM
044847,000685:
044848,000686: 17,3542 11627 BDF2Z CCS RBDFAIL
044849,000687: 17,3543 13443 TCF NO2Z # USING BD-ROLL AND BD HAS FAILED
044850,000688: 17,3544 13546 TCF +2
044851,000689: 17,3545 13443 TCF NO2Z # DITTO
044852,000690: 17,3546 51516 INDEX ZNDX
044853,000691: 17,3547 32716 CA XLNNDX
044854,000692: 17,3550 50000 INDEX A
044855,000693: 17,3551 33166 CA RTABLE
044856,000694: 17,3552 73206 MASK BDRJETS
044857,000695: 17,3553 13444 TCF NO2Z +1
044858,000696:
044859,000697: 17,3554 31451 RBYPASS CA RWORD1
044860,000698: 17,3555 55452 TS RWORD2
044861,000699: 17,3556 35035 CAF ZERO
044862,000700: 17,3557 55457 TS BLAST
044863,000701: 17,3560 13222 TCF PITCHTIM
044864,000702:
044865,000703: # GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2
044866,000704:
044867,000705: 17,3561 11627 ASMBLWY CCS RBDFAIL
044868,000706: 17,3562 13570 TCF FYX2 # IF FAILURE ON BD IGNORE X-TRANSLATION
044869,000707: 17,3563 13565 TCF +2
044870,000708: 17,3564 13570 TCF FYX2
044871,000709: 17,3565 51514 INDEX XNDX2
044872,000710: 17,3566 32716 CA XLNNDX
044873,000711: 17,3567 50000 INDEX A
044874,000712: 17,3570 32752 FYX2 CA PYTABLE
044875,000713: 17,3571 72772 MASK YJETS
044876,000714: 17,3572 55456 TS YWORD2
044877,000715: 17,3573 13600 TCF T6SETUP
044878,000716:
044879,000717: 17,3574 31455 YBYPASS CA YWORD1
044880,000718: 17,3575 55456 TS YWORD2
044881,000719: 17,3576 35035 CAF ZERO
044882,000720: 17,3577 55463 TS BLAST2
044883,000721:
044884,000722: # SORT THE JET ON-TIMES
044885,000723:
044886,000724: # AT THIS POINT ALL THE CHANNEL COMMANDS AND JET ON-TIMES HAVE BEEN DETERMINED. IN SUMMARY THESE ARE-
044887,000725:
044888,000726: # RWORD1
044889,000727: # RWORD2 BLAST
044890,000728:
044891,000729: # PWORD1
044892,000730: # PWORD2 BLAST1
044893,000731:
044894,000732: # YWORD1
044895,000733: # YWORD2 BLAST2
044896,000734:
044897,000735: # IN THIS SECTION THE JET ON-TIMES ARE SORTED AND THE SEQUENCE OF T6 INTERRUPTS IS DETERMINED. TO FACILITATE
044898,000736: # THE SORTING PROCESS AND THE T6 PROGRAM, THE VARIABLES BLAST, BLAST1, BLAST2, ARE RESERVED AS DOUBLE PRECISION
044899,000737: # WORDS. THE LOWER PART OF THESE WORDS CONTAIN A BRANCH INDEX ASSOCIATED WITH THE ROTATION AXIS OF THE HIGHER
044900,000738: # ORDER WORD.
044901,000739:
044902,000740: 17,3600 35035 T6SETUP CAF ZERO # BRANCH INDEX FOR ROLL
044903,000741: 17,3601 55460 TS BLAST +1
044904,000742: 17,3602 35031 CAF FOUR # BRANCH INDEX FOR PITCH
044905,000743: 17,3603 55462 TS BLAST1 +1
044906,000744: 17,3604 35040 CAF ELEVEN # BRANCH INDEX FOR YAW
044907,000745: 17,3605 55464 TS BLAST2 +1
044908,000746:
044909,000747: 17,3606 41457 CS BLAST
044910,000748: 17,3607 61461 AD BLAST1
044911,000749: 17,3610 00006 EXTEND
044912,000750: 17,3611 63635 BZMF DXCHT12 # T1 GR T2
044913,000751: 17,3612 41461 CHECKT23 CS BLAST1
044914,000752: 17,3613 61463 AD BLAST2
044915,000753: 17,3614 00006 EXTEND
044916,000754: 17,3615 63641 BZMF DXCHT23
044917,000755: 17,3616 41461 CALCDT6 CS BLAST1
044918,000756: 17,3617 27463 ADS BLAST2
044919,000757: 17,3620 41457 CS BLAST
044920,000758: 17,3621 27461 ADS BLAST1 # END OF SORTING PROCEDURE
044921,000759: 17,3622 00006 EXTEND # RESET T5LOC TO BEGIN PHASE1
044922,000760: 17,3623 33634 DCA RCS2CADR
044923,000761: 17,3624 53313 DXCH T5LOC
044924,000762: 17,3625 45033 ENDJETS CS BIT1 # RESET BIT1 FOR INITIALIZATION OF
044925,000763: 17,3626 71501 MASK RCSFLAGS # T6 PROGRAM
044926,000764: 17,3627 55501 TS RCSFLAGS
044927,000765: 17,3630 45035 CS ZERO # RESET T5PHASE FOR PHASE1
044928,000766: 17,3631 55465 TS T5PHASE
044929,000767: 17,3632 15347 TCF RESUME # RESUME INTERRUPTED PROGRAM
044930,000768:
044931,000769: 17,3633 E6,1510 EBANK= KMPAC
044932,000770: 17,3633 02134 42066 RCS2CADR 2CADR RCSATT
044933,000771:
044934,000772: 17,3635 53460 DXCHT12 DXCH BLAST
044935,000773: 17,3636 53462 DXCH BLAST1
044936,000774: 17,3637 53460 DXCH BLAST
044937,000775: 17,3640 13612 TCF CHECKT23
044938,000776:
044939,000777: 17,3641 53462 DXCHT23 DXCH BLAST1
044940,000778: 17,3642 53464 DXCH BLAST2
044941,000779: 17,3643 53462 DXCH BLAST1
044942,000780: 17,3644 41457 CS BLAST
044943,000781: 17,3645 61461 AD BLAST1
044944,000782: 17,3646 00006 EXTEND
044945,000783: 17,3647 63651 BZMF +2
044946,000784: 17,3650 13616 TCF CALCDT6
044947,000785: 17,3651 53460 DXCH BLAST
044948,000786: 17,3652 53462 DXCH BLAST1
044949,000787: 17,3653 53460 DXCH BLAST
044950,000788: 17,3654 13616 TCF CALCDT6
044951,000789:
044952,000790: # T6 PROGRAM AND CHANNEL SETUP
044953,000791:
044954,000792: 21,3777 BANK 21
044955,000793: 17,2000 SETLOC DAPS5
044956,000794: 17,2000 BANK
044957,000795:
044958,000796: 17,3655 22016 T6START LXCH BANKRUPT
044959,000797: 17,3656 00006 EXTEND
044960,000798: 17,3657 22012 QXCH QRUPT
044961,000799: 17,3660 10031 CCS TIME6 # CHECK TO SEE IF TIME6 WAS RESET
044962,000800: 17,3661 15347 TCF RESUME # AFTER T6RUPT OCCURED (IN T5RUPT)
044963,000801: 17,3662 13664 TCF +2 # IF SO WAIT FOR NEXT T6RUPT BEFORE
044964,000802: 17,3663 15347 TCF RESUME # TAKING ACTION
044965,000803:
044966,000804: 17,3664 41501 CS RCSFLAGS
044967,000805: 17,3665 75033 MASK BIT1 # IF BIT1 IS 0 RESET TO 1
044968,000806: 17,3666 00006 EXTEND # AND INITIALIZE CHANNEL
044969,000807: 17,3667 13700 BZF T6RUPTOR
044970,000808: 17,3670 27501 ADS RCSFLAGS
044971,000809: 17,3671 31451 CA RWORD1
044972,000810: 17,3672 00006 EXTEND # INITIALIZE CHANNELS 5,6 WITH WORD1
044973,000811: 17,3673 01006 WRITE CHAN6
044974,000812: 17,3674 31453 CA PWORD1
044975,000813: 17,3675 61455 AD YWORD1
044976,000814: 17,3676 00006 EXTEND
044977,000815: 17,3677 01005 WRITE CHAN5
044978,000816:
044979,000817: 17,3700 11457 T6RUPTOR CCS BLAST
044980,000818: 17,3701 13760 TCF ZBLAST # ZERO BLAST1
044981,000819: 17,3702 13717 TCF REPLACE # REPLACE WORD1
044982,000820: 17,3703 13705 TCF +2
044983,000821: 17,3704 13717 TCF REPLACE
044984,000822: 17,3705 11461 T6L1 CCS BLAST1
044985,000823: 17,3706 13763 TCF ZBLAST1
044986,000824: 17,3707 13724 TCF REPLACE1
044987,000825: 17,3710 13712 TCF +2
044988,000826: 17,3711 13724 TCF REPLACE1
044989,000827: 17,3712 11463 T6L2 CCS BLAST2
044990,000828: 17,3713 13766 TCF ZBLAST2
044991,000829: 17,3714 13731 TCF REPLACE2
044992,000830: 17,3715 15347 TCF RESUME
044993,000831: 17,3716 13731 TCF REPLACE2
044994,000832:
044995,000833: 17,3717 51460 REPLACE INDEX BLAST +1
044996,000834: 17,3720 03736 TC REPLACER
044997,000835: 17,3721 45033 CS ONE
044998,000836: 17,3722 55457 TS BLAST
044999,000837: 17,3723 13705 TCF T6L1
045000,000838:
045001,000839: 17,3724 51462 REPLACE1 INDEX BLAST1 +1
045002,000840: 17,3725 03736 TC REPLACER
045003,000841: 17,3726 45033 CS ONE
045004,000842: 17,3727 55461 TS BLAST1
045005,000843: 17,3730 13712 TCF T6L2
045006,000844:
045007,000845: 17,3731 51464 REPLACE2 INDEX BLAST2 +1
045008,000846: 17,3732 03736 TC REPLACER
045009,000847: 17,3733 45033 CS ONE
045010,000848: 17,3734 55463 TS BLAST2
045011,000849: 17,3735 15347 TCF RESUME
045012,000850:
045013,000851: 17,3736 31452 REPLACER CA RWORD2 # INITIALIZE CHANNELS 5,6 WITH WORD2
045014,000852: 17,3737 00006 EXTEND
045015,000853: 17,3740 01006 WRITE CHAN6
045016,000854: 17,3741 00002 TC Q
045017,000855:
045018,000856: 17,3742 32772 REPLACEP CA YJETS
045019,000857: 17,3743 00006 EXTEND
045020,000858: 17,3744 02005 RAND CHAN5
045021,000859: 17,3745 61454 AD PWORD2
045022,000860: 17,3746 00006 EXTEND
045023,000861: 17,3747 01005 WRITE CHAN5
045024,000862: 17,3750 00002 TC Q
045025,000863:
045026,000864: 17,3751 32771 REPLACEY CA PJETS
045027,000865: 17,3752 00006 EXTEND
045028,000866: 17,3753 02005 RAND CHAN5
045029,000867: 17,3754 61456 AD YWORD2
045030,000868: 17,3755 00006 EXTEND
045031,000869: 17,3756 01005 WRITE CHAN5
045032,000870: 17,3757 00002 TC Q
045033,000871:
045034,000872: 17,3760 35035 ZBLAST CAF ZERO
045035,000873: 17,3761 57457 XCH BLAST
045036,000874: 17,3762 13770 TCF ENABT6
045037,000875: 17,3763 35035 ZBLAST1 CAF ZERO
045038,000876: 17,3764 57461 XCH BLAST1
045039,000877: 17,3765 13770 TCF ENABT6
045040,000878: 17,3766 35035 ZBLAST2 CAF ZERO
045041,000879: 17,3767 57463 XCH BLAST2
045042,000880: 17,3770 54031 ENABT6 TS TIME6
045043,000881: 17,3771 35015 CAF NEGMAX
045044,000882: 17,3772 00006 EXTEND
045045,000883: 17,3773 05013 WOR CHAN13 # ENABLE T6RUPT
045046,000884: 17,3774 15347 TCF RESUME
045047,000885:
045048,000886: # END OF T6 INTERRUPT
045049,000887:
045050,000888: 17,3775 ENDSLECT EQUALS
045051,000889:
End of include-file JET_SELECTION_LOGIC.agc. Parent file is MAIN.agc