Source Code
![]() |
These source-code files were obtained by digitally photographing the
Colossus 237 program listing from the private collection of original
AGC developer Fred Martin, and then modifying pre-existing Colossus 249
(Apollo 9) source files to incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968 |
043580,000002: # Copyright: Public domain.
043581,000003: # Filename: JET_SELECTION_LOGIC.agc
043582,000004: # Purpose: Part of the source code for Colossus build 237.
043583,000005: # This is for the Command Module's (CM) Apollo Guidance
043584,000006: # Computer (AGC), we believe for Apollo 8.
043585,000007: # Assembler: yaYUL
043586,000008: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
043587,000009: # Website: www.ibiblio.org/apollo/index.html
043588,000010: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
043589,000011: # Mod history: 2011-04-06 JL Adapted from corresponding Colossus 249 file.
043590,000012:
043591,000013: # # Page 1007
043592,000014: 21,3751 BANK 21
043593,000015: 17,2000 SETLOC DAPS4
043594,000016: 17,2000 BANK
043595,000017:
043596,000018: 17,2601 COUNT 17/DAPJS
043597,000019:
043598,000020: 17,2601 E6,1510 EBANK= KMPAC
043599,000021: # EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS
043600,000022:
043601,000023: 17,2601 22016 JETSLECT LXCH BANKRUPT
043602,000024: 17,2602 32663 CAF DELTATT3 # = 60 MS RESET TO EXECUTE PHASE1
043603,000025: 17,2603 61634 AD T5TIME
043604,000026: 17,2604 54030 TS TIME5
043605,000027: 17,2605 12610 TCF +3
043606,000028: 17,2606 32664 CAF DELATT20 # = 20 MS TO ASSURE A T5RUPT
043607,000029: 17,2607 54030 TS TIME5
043608,000030: 17,2610 33342 CAF =14MS # RESET T6 TO INITIALIZE THE JET CHANNELS
043609,000031: 17,2611 54031 TS TIME6 # IN 14 MS
043610,000032: 17,2612 34674 CAF NEGMAX
043611,000033: 17,2613 00006 EXTEND
043612,000034: 17,2614 05013 WOR CHAN13
043613,000035: 17,2615 00006 EXTEND
043614,000036: 17,2616 22012 QXCH QRUPT
043615,000037: 17,2617 32662 CAF XLNMASK # = 7700 OCT
043616,000038: 17,2620 00006 EXTEND # EXAMINE THE TRANSLATION
043617,000039: 17,2621 06031 RXOR CHAN31 # HAND CONTROLLER
043618,000040: 17,2622 72662 MASK XLNMASK
043619,000041: 17,2623 00006 EXTEND
043620,000042: 17,2624 12665 BZF NOXLNCMD
043621,000043: 17,2625 55502 TS T5TEMP
043622,000044: 17,2626 00006 EXTEND
043623,000045: 17,2627 74702 MP BIT9
043624,000046: 17,2630 76214 MASK THREE
043625,000047: 17,2631 55513 TS XNDX1 # AC QUAD X-TRANSLATION INDEX
043626,000048: 17,2632 55514 TS XNDX2 # BD QUAD X-TRANSLATION INDEX
043627,000049: 17,2633 31502 CA T5TEMP
043628,000050: 17,2634 00006 EXTEND # 1 = + XLN
043629,000051: 17,2635 74704 MP BIT7 # 2 = - XLN
043630,000052: 17,2636 76214 MASK THREE # 3 = NO XLN
043631,000053: 17,2637 55515 TS YNDX # Y-TRANSLATION INDEX
043632,000054:
043633,000055: 17,2640 31502 CA T5TEMP
043634,000056: 17,2641 00006 EXTEND
043635,000057: 17,2642 74706 MP BIT5
043636,000058: 17,2643 76214 MASK THREE
043637,000059: 17,2644 55516 TS ZNDX # Z-TRANSLATION INDEX
043638,000060:
043639,000061: 17,2645 31466 CA DAPDATR1 # SET ATTKALMN TO PICK UP FILTER GAINS FOR
043640,000062: 17,2646 74675 MASK BIT14 # TRANSLATIONS.
043641,000063: 17,2647 00006 EXTEND # CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED.
043642,000064: # # Page 1008
043643,000065: 17,2650 12653 BZF NOLEM
043644,000066: 17,2651 46214 CS THREE # IF LEM IS ON, SET ATTKALMN = -3
043645,000067: 17,2652 12654 TCF +2
043646,000068: 17,2653 44711 NOLEM CS TWO # IF LEM IS OFF, SET ATTKALMN = -2.
043647,000069: 17,2654 55617 TS ATTKALMN
043648,000070: 17,2655 11631 CCS XTRANS # (+, -1, 0)
043649,000071: 17,2656 55513 TS XNDX1 # USING BD-X ZERO XNDX1
043650,000072: 17,2657 12671 TCF PWORD
043651,000073: 17,2660 55514 TS XNDX2 # USING AC-X ZERO XNDX2
043652,000074: 17,2661 12671 TCF PWORD
043653,000075: 17,2662 07700 XLNMASK OCT 7700
043654,000076:
043655,000077:
043656,000078: 17,2663 37772 DELTATT3 DEC 16378 B-14 # = 60 MS
043657,000079: 17,2664 37776 DELATT20 DEC 16382 B-14 # = 20 MS
043658,000080:
043659,000081: 17,2665 55513 NOXLNCMD TS XNDX1 # ZERO ALL REQUESTS FOR TRANSLATION
043660,000082: 17,2666 55514 TS XNDX2
043661,000083: 17,2667 55515 TS YNDX
043662,000084: 17,2670 55516 TS ZNDX
043663,000085:
043664,000086: # PITCH COMMANDS TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT
043665,000087:
043666,000088: 17,2671 11562 PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS
043667,000089: 17,2672 34712 CAF ONE
043668,000090: 17,2673 12675 TCF +2 # 0 = NO PITCH
043669,000091: 17,2674 34711 CAF TWO # +1 = + PITCH
043670,000092: 17,2675 55520 TS PINDEX # +2 = - PITCH
043671,000093:
043672,000094: 17,2676 11626 CCS RACFAIL # FLAG FOR REAL AC QUAD FAILURES
043673,000095: 17,2677 12703 TCF AFAILP
043674,000096: 17,2700 12713 TCF TABPCOM # 0 = NO REAL AC FAILURES
043675,000097: 17,2701 12705 TCF CFAILP # + = A QUAD FAILED
043676,000098: 17,2702 12713 TCF TABPCOM # - = C QUAD FAILED
043677,000099: # IF FAILURES ARE PRESENT IGNORE
043678,000100: # X-TRANSLATIONS ON THIS AXIS
043679,000101:
043680,000102: 17,2703 34334 AFAILP CAF NINE # IF FAILURE IS PRESENT 1JET OPERATION
043681,000103: 17,2704 12715 TCF TABPCOM +2 # IS ASSUMED. IGNORE X-TRANSLATION
043682,000104: 17,2705 35660 CFAILP CAF TWELVE
043683,000105: 17,2706 12715 TCF TABPCOM +2
043684,000106:
043685,000107: 17,2707 00000 XLNNDX DEC 0 B-14 # INDECES FOR TRANSLATION COMMANDS
043686,000108: 17,2710 00003 DEC 3 B-14 # FOR USE IN TABLE LOOK UP
043687,000109: 17,2711 00006 DEC 6 B-14
043688,000110: 17,2712 00000 DEC 0 B-14
043689,000111:
043690,000112: 17,2713 5660 TWELVE = OCT14
043691,000113: # TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT.
043692,000114: # BITS 9, 10 CONTAIN THE NUMBER OF PITCH JETS USED TO PERFORM THE PITCH ROTATION
043693,000115: # # Page 1009
043694,000116: 17,2713 51513 TABPCOM INDEX XNDX1
043695,000117: 17,2714 32707 CA XLNNDX
043696,000118: 17,2715 61520 AD PINDEX
043697,000119: 17,2716 50000 INDEX A
043698,000120: 17,2717 32743 CA PYTABLE
043699,000121: 17,2720 72762 MASK PJETS # =1417 OCT
043700,000122: 17,2721 55453 TS PWORD1
043701,000123: 17,2722 00006 EXTEND
043702,000124: 17,2723 74704 MP BIT7
043703,000125: 17,2724 55523 TS NPJETS # = NO. OF PITCH JETS
043704,000126:
043705,000127: # YAW JET COMMANDS TIMING(NO X-TRANS, NO QUAD FAILURES) 32MCT
043706,000128:
043707,000129: 17,2725 11563 YWORD CCS TAU2 # CHECK FOR YAW COMMANDS
043708,000130: 17,2726 34712 CAF ONE
043709,000131: 17,2727 12731 TCF +2
043710,000132: 17,2730 34711 CAF TWO
043711,000133: 17,2731 55521 TS YINDEX # YAW ROTATION INDEX
043712,000134:
043713,000135: 17,2732 11627 CCS RBDFAIL # FLAG FOR B OR D QUAD FAILURES
043714,000136: 17,2733 12737 TCF BFAILY # 0 = NO BD FAILURE
043715,000137: 17,2734 12764 TCF TABYCOM # + = B QUAD FAILED
043716,000138: 17,2735 12741 TCF DFAILY # - = D QUAD FAILED
043717,000139: 17,2736 12764 TCF TABYCOM
043718,000140:
043719,000141: 17,2737 34334 BFAILY CAF NINE
043720,000142: 17,2740 12766 TCF TABYCOM +2
043721,000143: 17,2741 35660 DFAILY CAF TWELVE
043722,000144: 17,2742 12766 TCF TABYCOM +2
043723,000145:
043724,000146: # # Page 1010
043725,000147: # TABLE FOR PITCH(YAW) COMMANDS
043726,000148: # BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED
043727,000149: # BITS 10,9 = NO. PITCH JETS USED TO PERFORM ROTATION
043728,000150: # BITS 8,7,6,5 = YAW, X-TRANSLATION JETS SELECTED
043729,000151: # BITS 12,11 : NO. YAW JETS USED TO PERFORM ROTATION
043730,000152:
043731,000153: # ROT TRANS QUAD BIAS
043732,000154: 17,2743 00000 PYTABLE OCT 0 # 0 0 0
043733,000155: 17,2744 05125 OCT 5125 # + 0 0
043734,000156: 17,2745 05252 OCT 5252 # - 0 0
043735,000157: 17,2746 00231 OCT 0231 # 0 + 3
043736,000158: 17,2747 02421 OCT 2421 # + + 3
043737,000159: 17,2750 02610 OCT 2610 # - + 3
043738,000160: 17,2751 00146 OCT 0146 # 0 - 6
043739,000161: 17,2752 02504 OCT 2504 # + - 6
043740,000162: 17,2753 02442 OCT 2442 # - - 6
043741,000163: 17,2754 00000 OCT 0 # 0 A(B) 9
043742,000164: 17,2755 02421 OCT 2421 # + A(B) 9
043743,000165: 17,2756 02442 OCT 2442 # - A(B) 9
043744,000166: 17,2757 00000 OCT 0 # 0 C(D) 12
043745,000167: 17,2760 02504 OCT 2504 # + C(D) 12
043746,000168: 17,2761 02610 OCT 2610 # - C(D) 12
043747,000169:
043748,000170: # MASKS FOR PITCH AND YAW COMMANDS
043749,000171:
043750,000172: 17,2762 01417 PJETS OCT 1417
043751,000173: 17,2763 06360 YJETS OCT 6360
043752,000174:
043753,000175: # TABLE LOOK UP FOR YAW COMMANDS WTIH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT
043754,000176: # BITS 11, 12 CONTAIN THE NUMBER OF YAW JETS USED TO PERFORM THE YAW ROTATION
043755,000177:
043756,000178: 17,2764 51514 TABYCOM INDEX XNDX2
043757,000179: 17,2765 32707 CA XLNNDX
043758,000180: 17,2766 61521 AD YINDEX
043759,000181: 17,2767 50000 INDEX A
043760,000182: 17,2770 32743 CA PYTABLE
043761,000183: 17,2771 72763 MASK YJETS # = 6360 OCT
043762,000184: 17,2772 55455 TS YWORD1
043763,000185: 17,2773 00006 EXTEND
043764,000186: 17,2774 74706 MP BIT5
043765,000187: 17,2775 55524 TS NYJETS # NO. OF YAW JETS USED TO PERFORM ROTATION
043766,000188:
043767,000189: # # Page 1011
043768,000190: # ROLL COMMANDS TIMING(NO Y,Z TRANS, NO QUAD FAILS) 45MCT
043769,000191:
043770,000192: 17,2776 11561 RWORD CCS TAU # CHECK FOR ROLL COMMANDS
043771,000193: 17,2777 34712 CAF ONE
043772,000194: 17,3000 13002 TCF +2
043773,000195: 17,3001 34711 CAF TWO
043774,000196: 17,3002 55517 TS RINDEX
043775,000197:
043776,000198: 17,3003 11630 CCS ACORBD # FLAG FOR AC OR BD QUAD SELECTION FOR
043777,000199: 17,3004 13075 TCF BDROLL # ROLL COMMANDS
043778,000200: 17,3005 13075 TCF BDROLL # +, +0 = BD ROLL
043779,000201: 17,3006 13007 TCF +1 # -, -0 = AC ROLL
043780,000202:
043781,000203: 17,3007 11626 ACROLL CCS RACFAIL # CHECK FOR REAL FAILURES
043782,000204: 17,3010 13014 TCF RAFAIL # ON AC QUADS
043783,000205: 17,3011 13024 TCF RXLNS
043784,000206: 17,3012 13016 TCF RCFAIL
043785,000207: 17,3013 13024 TCF RXLNS
043786,000208:
043787,000209: 17,3014 34334 RAFAIL CAF NINE # QUAD FAILURE WILL GET
043788,000210: 17,3015 13026 TCF TABRCOM # 1-JET OPERATION
043789,000211: 17,3016 35660 RCFAIL CAF TWELVE
043790,000212: 17,3017 13026 TCF TABRCOM
043791,000213:
043792,000214: 17,3020 00000 XLN1NDX DEC 0 B-14
043793,000215: 17,3021 00001 DEC 1 B-14 # INDECES FOR TRANSLATION
043794,000216: 17,3022 00002 DEC 2 B-14
043795,000217: 17,3023 00000 DEC 0 B-14
043796,000218:
043797,000219: # TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT
043798,000220: # BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL
043799,000221:
043800,000222: 17,3024 51515 RXLNS INDEX YNDX # NO AC QUAD FAILURES
043801,000223: 17,3025 32707 CA XLNNDX # INCLUDE +,-,0, Y-TRANSLATION
043802,000224: 17,3026 61517 TABRCOM AD RINDEX
043803,000225: 17,3027 50000 INDEX A
043804,000226: 17,3030 33157 CA RTABLE
043805,000227: 17,3031 73176 MASK ACRJETS # = 3760 OCT
043806,000228: 17,3032 55451 TS RWORD1
043807,000229:
043808,000230: # CHECK FOR Z-TRANSLATIONS ON BD
043809,000231:
043810,000232: 17,3033 31516 BDZCHECK CA ZNDX
043811,000233: 17,3034 00006 EXTEND
043812,000234: 17,3035 63067 BZMF NOBDZ # NO Z-TRANSLATION
043813,000235:
043814,000236: # # Page 1012
043815,000237: # TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES. Z-TRANSLATION WILL BE POSS-
043816,000238: # IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS. CRITERION.. IF THE RESULTANT NET ROLL
043817,000239: # COMMANDS = 0 (WITH Z-TRANSLATION) AND IF TAU = 0, THEN INCLUDE THE BD Z-TRANSLATION COMMANDS. IF THE RESULTANT
043818,000240: # ROLL COMMAND = 0, AND IF TAU NZ, THEN IGNORE THE BD Z-TRANSLATION
043819,000241:
043820,000242: 17,3036 11627 CCS RBDFAIL
043821,000243: 17,3037 36214 CAF THREE
043822,000244: 17,3040 13042 TCF +2
043823,000245: 17,3041 36211 CAF SIX
043824,000246: 17,3042 51516 INDEX ZNDX
043825,000247: 17,3043 63020 AD XLN1NDX
043826,000248: 17,3044 50000 INDEX A
043827,000249: 17,3045 33200 CA YZTABLE
043828,000250: 17,3046 73211 MASK BDZJETS # = 3417 OCT
043829,000251: 17,3047 61451 AD RWORD1 # ADD TO ROLL COMMANDS
043830,000252: 17,3050 55502 TS T5TEMP # IF POSSIBLE. MUST CHECK TAU FIRST
043831,000253:
043832,000254: 17,3051 00006 EXTEND
043833,000255: 17,3052 74704 MP BIT7 # DETERMINE THE NET ROLL COMMAND WITH
043834,000256: 17,3053 66061 AD =-4 # Z-TRANSLATION ADDED ON
043835,000257: 17,3054 55522 TS NRJETS # NET NO. OF +,- ROLL JETS ON
043836,000258: 17,3055 00006 EXTEND
043837,000259: 17,3056 13062 BZF TAUCHECK
043838,000260:
043839,000261: 17,3057 31502 ACRBDZ CA T5TEMP # Z-TRANSLATION ACCEPTED EVEN THO WE MAY
043840,000262: 17,3060 55451 TS RWORD1 # HAVE INTRODUCED AND UNDESIREABLE ROLL
043841,000263: 17,3061 13323 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS
043842,000264:
043843,000265: 17,3062 11561 TAUCHECK CCS TAU
043844,000266: 17,3063 13067 TCF NOBDZ
043845,000267: 17,3064 13057 TCF ACRBDZ
043846,000268: 17,3065 13067 TCF NOBDZ
043847,000269: 17,3066 13057 TCF ACRBDZ
043848,000270:
043849,000271: 17,3067 31451 NOBDZ CA RWORD1 # Z-TRANSLATION NOT ACCEPTED
043850,000272: 17,3070 00006 EXTEND
043851,000273: 17,3071 74704 MP BIT7
043852,000274: 17,3072 67715 AD =-2
043853,000275: 17,3073 55522 TS NRJETS
043854,000276: 17,3074 13323 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATION
043855,000277:
043856,000278: # # Page 1013
043857,000279: # BD QUAD SELECTION FOR ROLL COMMANDS
043858,000280:
043859,000281: 17,3075 11627 BDROLL CCS RBDFAIL
043860,000282: 17,3076 13102 TCF RBFAIL
043861,000283: 17,3077 13106 TCF RZXLNS
043862,000284: 17,3100 13104 TCF RDFAIL
043863,000285: 17,3101 13106 TCF RZXLNS
043864,000286: 17,3102 34334 RBFAIL CAF NINE
043865,000287: 17,3103 13110 TCF TABRZCMD
043866,000288: 17,3104 35660 RDFAIL CAF TWELVE
043867,000289: 17,3105 13110 TCF TABRZCMD
043868,000290:
043869,000291: 17,3106 51516 RZXLNS INDEX ZNDX # NO BD FAILURES
043870,000292: 17,3107 32707 CA XLNNDX # +,-,0 Z-TRANSLATION PRESENT
043871,000293: 17,3110 61517 TABRZCMD AD RINDEX
043872,000294: 17,3111 50000 INDEX A
043873,000295: 17,3112 33157 CA RTABLE
043874,000296: 17,3113 73177 MASK BDRJETS # = 34017 OCT
043875,000297: 17,3114 55451 TS RWORD1
043876,000298:
043877,000299: 17,3115 31515 ACYCHECK CA YNDX # ANY Y-TRANSLATION
043878,000300: 17,3116 00006 EXTEND
043879,000301: 17,3117 13151 BZF NOACY # NO Y-TRANSLATION
043880,000302: 17,3120 11626 CCS RACFAIL
043881,000303: 17,3121 36214 CAF THREE
043882,000304: 17,3122 13124 TCF +2
043883,000305: 17,3123 36211 CAF SIX
043884,000306: 17,3124 51515 INDEX YNDX
043885,000307: 17,3125 63020 AD XLN1NDX
043886,000308: 17,3126 50000 INDEX A
043887,000309: 17,3127 33200 CA YZTABLE
043888,000310: 17,3130 73212 MASK ACYJETS # = 34360 OCT
043889,000311: 17,3131 61451 AD RWORD1
043890,000312: 17,3132 55502 TS T5TEMP
043891,000313: 17,3133 00006 EXTEND # FOR EXPLANATION SEE CODING ON RTABLE
043892,000314: 17,3134 74707 MP BIT4
043893,000315: 17,3135 66061 AD =-4
043894,000316: 17,3136 55522 TS NRJETS # NO. OF NET ROLL JETS
043895,000317: 17,3137 00006 EXTEND
043896,000318: 17,3140 13144 BZF TAUCHCK # IF NRJETS = 0
043897,000319:
043898,000320: 17,3141 31502 BDRACZ CA T5TEMP # Y-TRANSLATION ACCEPTED
043899,000321: 17,3142 55451 TS RWORD1
043900,000322: 17,3143 13323 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS
043901,000323:
043902,000324: 17,3144 11561 TAUCHCK CCS TAU
043903,000325: 17,3145 13151 TCF NOACY
043904,000326: 17,3146 13141 TCF BDRACZ
043905,000327: 17,3147 13151 TCF NOACY
043906,000328: 17,3150 13141 TCF BDRACZ
043907,000329: # # Page 1014
043908,000330: 17,3151 31451 NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED
043909,000331: 17,3152 00006 EXTEND
043910,000332: 17,3153 74707 MP BIT4
043911,000333: 17,3154 67715 AD =-2
043912,000334: 17,3155 55522 TS NRJETS
043913,000335: 17,3156 13323 TCF ROLLTIME
043914,000336:
043915,000337: # # Page 1015
043916,000338: # TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS
043917,000339:
043918,000340: # EITHER AC OR BD ROLL MAY BE SELECTED. IF AC ROLL IS SELECTED, Y-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY
043919,000341: # PROVIDED THAT THERE ARE NO AC QUAD FAILURES. IF THERE ARE AC FAILURES, Y-TRANSLATION COMMANDS WILL BE IGNORED,
043920,000342: # IN WHICH CASE THE ASTRONAUT SHOULD SWITCH TO BD ROLL.
043921,000343: # IF BDROLL IS SELECTED, Z-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY PROVIDED THAT THERE ARE NO BD QUAD
043922,000344: # FAILURES. IF THERE ARE BD FAILURES, Z-TRANSLATION COMMANDS WILL BE IGNORED, IN WHICH CASE THE ASTRONAUT SHOULD
043923,000345: # SWITCH TO AC ROLL.
043924,000346: # NOTE THAT IF ONE QUAD FAILS (E.G. B FAILED), Z-TRANSLATION IS STILL POSSIBLE AND THAT THE UNDESIREABLE ROLL
043925,000347: # INTRODUCED BY THIS TRANSLATION WILL BE COMPENSATED BY THE TWO AC ROLL JETS ACTUATED BY THE AUTOPILOT LOGIC.
043926,000348:
043927,000349: # WORD MAKE UP....RTABLE
043928,000350:
043929,000351: # TWO WORDS, CORRESPONDING TO AC OR BD ROLL SELECTION, HAVE BEEN COMBINED INTO ONE TABLE. THE WORD CORRESPOND-
043930,000352: # ING TO AC ROLL HAS THE FOLLOWING INTERPRETATION..
043931,000353: # BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE FOR THE WORD SELECTED. THE CODING IS..
043932,000354: # BIT NO. 11 10 9 NO. OF ROLL JETS
043933,000355:
043934,000356: # 0 0 0 -2
043935,000357: # 0 0 1 -1
043936,000358: # 0 1 0 0
043937,000359: # 0 1 1 +1
043938,000360: # 1 0 0 +2
043939,000361:
043940,000362:
043941,000363: # THIS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM THE YZ-TRANSLATION TABLE, WHICH HAS THE SAME TYPE OF
043942,000364: # CODING AS ABOVE, AND THE NET ROLL DETERMINED BY SHIFTING THE RESULTANT WORD RIGHT 8 PLACES AND SUBTRACTING FOUR.
043943,000365:
043944,000366: # THE WORD CORRESPONDING TO BD ROLL HAS A SIMILIAR INTERPRETATION, EXCEPT THAT BITS 12, 13, 14 ARE CODED
043945,000367: # (AS ABOVE) TO GIVE THE NET ROLL TORQUE.
043946,000368:
043947,000369:
043948,000370: # ROLL TRANS QUADFAIL BIAS
043949,000371:
043950,000372: 17,3157 11000 RTABLE OCT 11000 # 0 0
043951,000373: 17,3160 22125 OCT 22125 # + 0
043952,000374: 17,3161 00252 OCT 00252 # - 0
043953,000375: 17,3162 11231 OCT 11231 # 0 +Y(+Z) 3
043954,000376: 17,3163 15421 OCT 15421 # + +Y(+Z) 3
043955,000377: 17,3164 04610 OCT 04610 # - +Y(+Z) 3
043956,000378: 17,3165 11146 OCT 11146 # 0 -Y(-Z) 6
043957,000379: 17,3166 15504 OCT 15504 # + -Y(-Z) 6
043958,000380: 17,3167 04442 OCT 04442 # - -Y(-Z) 6
043959,000381: 17,3170 11000 OCT 11000 # 0 A(B) 9
043960,000382: 17,3171 15504 OCT 15504 # + A(B) 9
043961,000383: 17,3172 04610 OCT 04610 # - A(B) 9
043962,000384: 17,3173 11000 OCT 11000 # 0 C(D) 12
043963,000385: 17,3174 15421 OCT 15421 # + C(D) 12
043964,000386: 17,3175 04442 OCT 04442 # - C(D) 12
043965,000387:
043966,000388: # # Page 1016
043967,000389: # RTABLE MASKS -
043968,000390:
043969,000391: 17,3176 03760 ACRJETS OCT 03760
043970,000392: 17,3177 34017 BDRJETS OCT 34017
043971,000393:
043972,000394: # # Page 1017
043973,000395: # Y, Z TRANSLATION TABLE
043974,000396:
043975,000397: # ONCE AC OR BD ROLL IS SELECTED THE QUAD PAIR WHICH IS NOT BEING USED TO SATISFY THE ROLL COMMANDS MAY BE
043976,000398: # USED TO SATISFY THE REMAINING TRANSLATION COMMANDS. HOWEVER, WE MUST MAKE SURE THAT ROLL COMMANDS ARE SATISFIED
043977,000399: # WHEN THEY OCCUR. THEREFORE, THE Y-Z TRANSLATIONS FROM THIS TABLE WILL BE IGNORED IF THE NET ROLL TORQUE OF THE
043978,000400: # COMBINED WORD IS ZERO AND THE ROLL COMMANDS ARE NON-ZERO. THIS SITUATION WOULD OCCUR, FOR EXAMPLE, IF WE EN-
043979,000401: # COUNTER SIMULTANEOUS +R +Y -Z COMMANDS AND A QUAD D FAILURE WHILE USING AC FOR ROLL.
043980,000402: # TO FACILITATE THE LOGIC, THE Y-Z TRANSLATION TABLE HAS BEEN CODED IN A MANNER SIMILAR TO THE ROLL TABLE
043981,000403: # ABOVE.
043982,000404: # BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Z-TRANSLATIONS. THE WORD SELECTED CAN THEN BE
043983,000405: # ADDED TO THE AC-ROLL WORD AND THE RESULTANT ROLL TORQUE DETERMINED FROM THE COMBINED WORD. SIMILIARLY BITS
043984,000406: # 12,13,14 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Y-TRANSLATIONS WHEN BD-ROLL IS SELECTED.
043985,000407:
043986,000408: # TRANSLATION QUADFAIL BIAS
043987,000409:
043988,000410: 17,3200 11000 YZTABLE OCT 11000 # 0 0
043989,000411: 17,3201 11231 OCT 11231 # +Z(+Y) 0
043990,000412: 17,3202 11146 OCT 11146 # -Z(-Y) 0
043991,000413: 17,3203 11000 OCT 11000 # 0 B(A) 3
043992,000414: 17,3204 04610 OCT 04610 # +Z(+Y) B(A) 3
043993,000415: 17,3205 15504 OCT 15504 # -Z(-Y) B(A) 3
043994,000416: 17,3206 11000 OCT 11000 # 0 D(C) 6
043995,000417: 17,3207 15421 OCT 15421 # +Z(+Y) D(C) 6
043996,000418: 17,3210 04442 OCT 04442 # -Z(-Y) D(C) 6
043997,000419:
043998,000420: # YZ-TABLE MASKS-
043999,000421:
044000,000422: 17,3211 03417 BDZJETS OCT 03417
044001,000423: 17,3212 34360 ACYJETS OCT 34360
044002,000424:
044003,000425: # ADDITIONAL CONSTANTS
044004,000426:
044005,000427: 17,3213 7715 =-2 = NEG2
044006,000428: 17,3213 6061 =-4 = NEG4
044007,000429:
044008,000430: # # Page 1018
044009,000431: # CALCULATION OF JET ON-TIMES
044010,000432:
044011,000433: # THE ROTATION COMMANDS (TAU:S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET
044012,000434: # OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS. TAU MUST
044013,000435: # ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5 INT-
044014,000436: # ERVAL.
044015,000437: # IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES
044016,000438: # (DFT:S, ALSO IN TERMS OF 1-JET OPERATION) FOR THE RATE FILTER.
044017,000439: # NOTE THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO ROTATIONS WERE CALLED FOR. NEVERTHELESS, WE MUST
044018,000440: # UPDATE DFT.
044019,000441: # WHEN THE ROTATIONS HAVE FINISHED, WE MUST PROVIDE CHANNEL INFORMATION TO THE T6 PROGRAM TO CONTINUE ON WITH
044020,000442: # THE TRANSLATIONS. THIS WILL BE DONE IN THE NEXT SECTION. HOWEVER, TO INSURE THAT JETS ARE NOT FIRED FOR LESS
044021,000443: # THAN A MINIMUM IMPULSE (14MS), ALL JET CHANNEL COMMANDS WILL BE HELD FIXED FROM THE START OF THE T5 PROGRAM FOR
044022,000444: # AT LEAST 14MS UNTIL THE INITIALIZATION OF NEW COMMANDS. MOREOVER, A 14MS ON-TIME WILL BE ADDED TO ANY ROTATIONAL
044023,000445: # COMMANDS GENERATED BY THE MANUAL CONTROLS OR THE JET SWITCHING LOGIC, AND ALL TRANSLATION COMMANDS WILL BE
044024,000446: # ACTIVE FOR ATLEAST ONE CYCLE OF THE T5 PROGRAM (.1SEC)
044025,000447:
044026,000448: # PITCH JET ON-TIME CALCULATION
044027,000449:
044028,000450: 17,3213 11562 PITCHTIM CCS TAU1
044029,000451: 17,3214 13223 TCF PTAUPOS
044030,000452: 17,3215 13217 TCF +2
044031,000453: 17,3216 13221 TCF PTAUNEG
044032,000454: 17,3217 55550 TS DFT1 # NO PITCH ROTATION
044033,000455: 17,3220 13421 TCF PBYPASS # COMMANDS
044034,000456:
044035,000457: 17,3221 41523 PTAUNEG CS NPJETS
044036,000458: 17,3222 55523 TS NPJETS
044037,000459: 17,3223 31562 PTAUPOS CA TAU1
044038,000460: 17,3224 00006 EXTEND
044039,000461: 17,3225 51523 INDEX NPJETS
044040,000462: 17,3226 73402 MP NJET
044041,000463: 17,3227 55461 TS BLAST1
044042,000464: 17,3230 63335 AD =-.1SEC
044043,000465: 17,3231 00006 EXTEND
044044,000466: 17,3232 63243 BZMF AD14MSP
044045,000467: 17,3233 51523 INDEX NPJETS
044046,000468: 17,3234 33336 CA DFTMAX # THE PITCH ON-TIME IS GREATER THAN .1 SEC
044047,000469: 17,3235 55550 TS DFT1
044048,000470: 17,3236 40000 COM
044049,000471: 17,3237 27562 ADS TAU1 # UPDATE TAU1
044050,000472: 17,3240 33337 CAF =+.1SEC # LIMIT THE LENGTH OF PITCH ROTATION
044051,000473: 17,3241 55461 TS BLAST1 # COMMANDS TO 0.1 SEC SO THAT ONLY
044052,000474: 17,3242 13406 TCF ASMBLWP # X-TRANSLATIONS WILL CONTINUE ON SWITCH
044053,000475: # OVER TO TVC
044054,000476: 17,3243 41461 AD14MSP CS BLAST1 # SEE IF JET ON TIME IS LESS THAN
044055,000477: 17,3244 63342 AD =14MS # MINIMUM IMPULSE TIME
044056,000478: 17,3245 00006 EXTEND
044057,000479: 17,3246 63251 BZMF PBLASTOK # IF SO LIMIT MINIMUM ON TIME TO 14 MS
044058,000480: 17,3247 33342 CAF =14MS
044059,000481: # # Page 1019
044060,000482: 17,3250 55461 TS BLAST1
044061,000483: 17,3251 31461 PBLASTOK CA BLAST1
044062,000484: 17,3252 00006 EXTEND # THE PITCH COMMANDS WILL BE COMPLETED
044063,000485: 17,3253 71523 MP NPJETS # WITHIN THE TS-CYCLE TIME
044064,000486: 17,3254 23550 LXCH DFT1 # FOR USE IN UPDATING RATE FILTER
044065,000487: 17,3255 55562 TS TAU1 # ZERO TAU1 (ACC CONTAINS ZERO)
044066,000488: 17,3256 13406 TCF ASMBLWP
044067,000489:
044068,000490: # # Page 1020
044069,000491: # YAW JET ON-TIME CALCULATION
044070,000492:
044071,000493: 17,3257 11563 YAWTIME CCS TAU2
044072,000494: 17,3260 13267 TCF YTAUPOS
044073,000495: 17,3261 13263 TCF +2
044074,000496: 17,3262 13265 TCF YTAUNEG
044075,000497: 17,3263 55551 TS DFT2 # NO YAW ROTATION COMMANDS
044076,000498: 17,3264 13565 TCF YBYPASS
044077,000499:
044078,000500: 17,3265 41524 YTAUNEG CS NYJETS
044079,000501: 17,3266 55524 TS NYJETS
044080,000502: 17,3267 31563 YTAUPOS CA TAU2
044081,000503: 17,3270 00006 EXTEND
044082,000504: 17,3271 51524 INDEX NYJETS
044083,000505: 17,3272 73402 MP NJET
044084,000506: 17,3273 55463 TS BLAST2
044085,000507: 17,3274 63335 AD =-.1SEC
044086,000508: 17,3275 00006 EXTEND
044087,000509: 17,3276 63307 BZMF AD14MSY
044088,000510: 17,3277 51524 INDEX NYJETS
044089,000511: 17,3300 33336 CA DFTMAX # YAW COMMANDS WILL LAST LONGER THAN .1SEC
044090,000512: 17,3301 55551 TS DFT2
044091,000513: 17,3302 40000 COM
044092,000514: 17,3303 27563 ADS TAU2 # DECREMENT TAU2
044093,000515: 17,3304 33337 CAF =+.1SEC # LIMIT THE LENGTH OF YAW ROTATION COMMAND
044094,000516: 17,3305 55463 TS BLAST2 # TO 0.1 SEC SO THAT ONLY X-TRANSLATION
044095,000517: 17,3306 13552 TCF ASMBLWY # WILL CONTINUE ON SWITCH OVER TO TVC
044096,000518:
044097,000519: 17,3307 41463 AD14MSY CS BLAST2 # SEE IF JET ON-TIME LESS THAN
044098,000520: 17,3310 63342 AD =14MS # MINIMUM IMPULSE TIME
044099,000521: 17,3311 00006 EXTEND
044100,000522: 17,3312 63315 BZMF YBLASTOK # IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
044101,000523: 17,3313 33342 CAF =14MS
044102,000524: 17,3314 55463 TS BLAST2
044103,000525: 17,3315 31463 YBLASTOK CA BLAST2 # YAW COMMANDS WILL BE COMPLETED WITHIN
044104,000526: 17,3316 00006 EXTEND # THE T5CYCLE TIME
044105,000527: 17,3317 71524 MP NYJETS
044106,000528: 17,3320 23551 LXCH DFT2
044107,000529: 17,3321 55563 TS TAU2 # ZERO TAU2
044108,000530: 17,3322 13552 TCF ASMBLWY
044109,000531:
044110,000532: # # Page 1021
044111,000533: # ROLL ON-TIME CALCULATION-
044112,000534:
044113,000535: 17,3323 11561 ROLLTIME CCS TAU
044114,000536: 17,3324 13343 TCF RBLAST
044115,000537: 17,3325 13327 TCF +2
044116,000538: 17,3326 13343 TCF RBLAST
044117,000539: 17,3327 51522 INDEX NRJETS
044118,000540: 17,3330 33336 CA DFTMAX # UPDATE DFT EVEN THO NO ROLL COMMANDS ARE
044119,000541: 17,3331 55547 TS DFT # PRESENT
044120,000542: 17,3332 13545 TCF RBYPASS
044121,000543:
044122,000544: 17,3333 77037 DEC -480 B-14 # = -.3SEC
044123,000545: 17,3334 77277 DEC -320 B-14 # = -.2SEC
044124,000546: 17,3335 77537 =-.1SEC DEC -160 B-14 # = -.1SEC
044125,000547: 17,3336 00000 DFTMAX DEC 0 B-14 # 0
044126,000548: 17,3337 00240 =+.1SEC DEC 160 B-14 # = +.1SEC
044127,000549: 17,3340 00500 DEC 320 B-14 # = +.2SEC
044128,000550: 17,3341 00740 DEC 480 B-14 # = +.3SEC
044129,000551: 17,3342 00027 =14MS DEC 23 B-14 # =14MS
044130,000552:
044131,000553: 17,3343 31561 RBLAST CA TAU
044132,000554: 17,3344 00006 EXTEND
044133,000555: 17,3345 51522 INDEX NRJETS
044134,000556: 17,3346 73402 MP NJET
044135,000557: 17,3347 55457 TS BLAST # BLAST IS AN INTERMEDIATE VARIABLE
044136,000558: # USED IN DETERMINING THE JET ON-TIMES
044137,000559: 17,3350 63335 AD =-.1SEC
044138,000560: 17,3351 00006 EXTEND
044139,000561: 17,3352 63363 BZMF AD14MSR
044140,000562: 17,3353 51522 INDEX NRJETS # THE ROLL ROTATION WILL LAST LONGER
044141,000563: 17,3354 33336 CA DFTMAX # THAN THE T5 CYCLE TIME
044142,000564: 17,3355 55547 TS DFT
044143,000565: 17,3356 40000 COM
044144,000566: 17,3357 27561 ADS TAU
044145,000567: 17,3360 33337 CAF =+.1SEC # LIMIT THE LENGTH OF ROLL ROTATION
044146,000568: 17,3361 55457 TS BLAST # COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z
044147,000569: 17,3362 13426 TCF ASMBLWR # TRANSLATION COMMANDS CONTINUE
044148,000570:
044149,000571: 17,3363 41457 AD14MSR CS BLAST # SEE IF THE JET ON-TIME LESS THAN
044150,000572: 17,3364 63342 AD =14MS # MINIMUM IMPULSE TIME
044151,000573: 17,3365 00006 EXTEND
044152,000574: 17,3366 63371 BZMF RBLASTOK
044153,000575: 17,3367 33342 CAF =14MS # IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
044154,000576: 17,3370 55457 TS BLAST
044155,000577: 17,3371 31457 RBLASTOK CA BLAST
044156,000578: 17,3372 00006 EXTEND
044157,000579: 17,3373 71522 MP NRJETS
044158,000580: 17,3374 23547 LXCH DFT
044159,000581: 17,3375 55561 TS TAU # ZERO TAU
044160,000582: 17,3376 13426 TCF ASMBLWR
044161,000583: # # Page 1022
044162,000584: 17,3377 65252 DEC -.333333 # = -1/3
044163,000585: 17,3400 57777 DEC -.500000 # = -1.2
044164,000586: 17,3401 40000 DEC -.999999 # = -1 (NEGMAX)
044165,000587: 17,3402 00000 NJET DEC 0 B-14
044166,000588: 17,3403 37777 DEC .999999 # = +1 (POSMAX)
044167,000589: 17,3404 20000 DEC .500000 # = +1/2
044168,000590: 17,3405 12525 DEC .333333 # = +1/3
044169,000591:
044170,000592: # # Page 1023
044171,000593: # WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH
044172,000594: # CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT.
044173,000595: # IN THIS SECTION THESE NEW COMMANDS ARE GENERATED AND STORED FOR REPLACEMENT OF THE CHANNEL COMMANDS WHEN THE
044174,000596: # CORRESPONDING ROTATIONS ARE COMPLETED.
044175,000597:
044176,000598: # GENERATION OF THE SECOND PITCH(X-TRANS) WORD...PWORD2
044177,000599:
044178,000600: 17,3406 11626 ASMBLWP CCS RACFAIL
044179,000601: 17,3407 13415 TCF FPX2 # IF FAILURE ON AC IGNORE X-TRANSLATION
044180,000602: 17,3410 13412 TCF +2
044181,000603: 17,3411 13415 TCF FPX2
044182,000604: 17,3412 51513 INDEX XNDX1
044183,000605: 17,3413 32707 CA XLNNDX
044184,000606: 17,3414 50000 INDEX A
044185,000607: 17,3415 32743 FPX2 CA PYTABLE
044186,000608: 17,3416 72762 MASK PJETS
044187,000609: 17,3417 55454 TS PWORD2
044188,000610: 17,3420 13257 TCF YAWTIME
044189,000611:
044190,000612: 17,3421 31453 PBYPASS CA PWORD1 # THE T6 PROGRAM WILL LOAD PWORD2
044191,000613: 17,3422 55454 TS PWORD2 # UPON ENTRY
044192,000614: 17,3423 34714 CAF ZERO
044193,000615: 17,3424 55461 TS BLAST1 # THERE IS NO PWORD2
044194,000616: 17,3425 13257 TCF YAWTIME
044195,000617:
044196,000618: # # Page 1024
044197,000619: # GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2)
044198,000620:
044199,000621: 17,3426 11515 ASMBLWR CCS YNDX # CHECK FOR Y-TRANS
044200,000622: 17,3427 13437 TCF ACBD2Y
044201,000623: 17,3430 34714 NO2Y CAF ZERO
044202,000624: 17,3431 55452 TS RWORD2
044203,000625: 17,3432 11516 CCS ZNDX # CHECK FOR Z-TRANS
044204,000626: 17,3433 13502 TCF ACBD2Z
044205,000627: 17,3434 34714 NO2Z CAF ZERO
044206,000628: 17,3435 27452 ADS RWORD2
044207,000629: 17,3436 13213 TCF PITCHTIM # RWORD2 ASSEMBLED
044208,000630:
044209,000631: 17,3437 11630 ACBD2Y CCS ACORBD
044210,000632: 17,3440 13455 TCF AC2Y # CAN DO Y-TRANS
044211,000633: 17,3441 13455 TCF AC2Y
044212,000634: 17,3442 13443 TCF +1 # USING AC FOR ROLL
044213,000635: 17,3443 11626 CCS RACFAIL
044214,000636: 17,3444 13430 TCF NO2Y # USING AC AND AC HAS FAILED
044215,000637: 17,3445 13447 TCF +2
044216,000638: 17,3446 13430 TCF NO2Y # DITTO
044217,000639:
044218,000640: 17,3447 51515 INDEX YNDX # NO FAILURES, CAN DO Y
044219,000641: 17,3450 32707 CA XLNNDX
044220,000642: 17,3451 50000 INDEX A
044221,000643: 17,3452 33157 CA RTABLE
044222,000644: 17,3453 73176 MASK ACRJETS
044223,000645: 17,3454 13431 TCF NO2Y +1
044224,000646:
044225,000647: 17,3455 11626 AC2Y CCS RACFAIL
044226,000648: 17,3456 36214 CAF THREE
044227,000649: 17,3457 13461 TCF +2
044228,000650: 17,3460 36211 CAF SIX
044229,000651: 17,3461 51515 INDEX YNDX
044230,000652: 17,3462 63020 AD XLN1NDX
044231,000653: 17,3463 50000 INDEX A
044232,000654: 17,3464 33200 CA YZTABLE
044233,000655: 17,3465 73212 MASK ACYJETS
044234,000656: 17,3466 55452 TS RWORD2
044235,000657: 17,3467 00006 EXTEND
044236,000658: 17,3470 74707 MP BIT4
044237,000659: 17,3471 67715 AD =-2
044238,000660: 17,3472 55522 TS NRJETS
044239,000661: 17,3473 41457 CS BLAST
044240,000662: 17,3474 63337 AD =+.1SEC
044241,000663: 17,3475 00006 EXTEND
044242,000664: 17,3476 71522 MP NRJETS
044243,000665: 17,3477 30001 CA L
044244,000666: 17,3500 27547 ADS DFT
044245,000667: 17,3501 13432 TCF NO2Y +2
044246,000668:
044247,000669: # # Page 1025
044248,000670: 17,3502 11630 ACBD2Z CCS ACORBD
044249,000671: 17,3503 13533 TCF BDF2Z # USING BD-ROLL
044250,000672: 17,3504 13533 TCF BDF2Z # MUST CHECK FOR BD FAILURES
044251,000673: 17,3505 13506 TCF +1
044252,000674: 17,3506 11627 CCS RBDFAIL # USING AC FOR ROLL, CAN DO Z-TRANS
044253,000675: 17,3507 36214 CAF THREE
044254,000676: 17,3510 13512 TCF +2
044255,000677: 17,3511 36211 CAF SIX
044256,000678: 17,3512 51516 INDEX ZNDX
044257,000679: 17,3513 63020 AD XLN1NDX
044258,000680: 17,3514 50000 INDEX A
044259,000681: 17,3515 33200 CA YZTABLE
044260,000682: 17,3516 73211 MASK BDZJETS
044261,000683: 17,3517 27452 ADS RWORD2
044262,000684: 17,3520 00006 EXTEND
044263,000685: 17,3521 74704 MP BIT7
044264,000686: 17,3522 67715 AD =-2
044265,000687: 17,3523 55522 TS NRJETS
044266,000688: 17,3524 41457 CS BLAST
044267,000689: 17,3525 63337 AD =+.1SEC
044268,000690: 17,3526 00006 EXTEND
044269,000691: 17,3527 71522 MP NRJETS
044270,000692: 17,3530 30001 CA L
044271,000693: 17,3531 27547 ADS DFT
044272,000694: 17,3532 13213 TCF PITCHTIM
044273,000695:
044274,000696: 17,3533 11627 BDF2Z CCS RBDFAIL
044275,000697: 17,3534 13434 TCF NO2Z # USING BD-ROLL AND BD HAS FAILED
044276,000698: 17,3535 13537 TCF +2
044277,000699: 17,3536 13434 TCF NO2Z # DITTO
044278,000700: 17,3537 51516 INDEX ZNDX
044279,000701: 17,3540 32707 CA XLNNDX
044280,000702: 17,3541 50000 INDEX A
044281,000703: 17,3542 33157 CA RTABLE
044282,000704: 17,3543 73177 MASK BDRJETS
044283,000705: 17,3544 13435 TCF NO2Z +1
044284,000706:
044285,000707: 17,3545 31451 RBYPASS CA RWORD1
044286,000708: 17,3546 55452 TS RWORD2
044287,000709: 17,3547 34714 CAF ZERO
044288,000710: 17,3550 55457 TS BLAST
044289,000711: 17,3551 13213 TCF PITCHTIM
044290,000712:
044291,000713: # # Page 1026
044292,000714: # GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2
044293,000715:
044294,000716: 17,3552 11627 ASMBLWY CCS RBDFAIL
044295,000717: 17,3553 13561 TCF FYX2 # IF FAILURE ON BD IGNORE X-TRANSLATION
044296,000718: 17,3554 13556 TCF +2
044297,000719: 17,3555 13561 TCF FYX2
044298,000720: 17,3556 51514 INDEX XNDX2
044299,000721: 17,3557 32707 CA XLNNDX
044300,000722: 17,3560 50000 INDEX A
044301,000723: 17,3561 32743 FYX2 CA PYTABLE
044302,000724: 17,3562 72763 MASK YJETS
044303,000725: 17,3563 55456 TS YWORD2
044304,000726: 17,3564 13571 TCF T6SETUP
044305,000727:
044306,000728: 17,3565 31455 YBYPASS CA YWORD1
044307,000729: 17,3566 55456 TS YWORD2
044308,000730: 17,3567 34714 CAF ZERO
044309,000731: 17,3570 55463 TS BLAST2
044310,000732:
044311,000733: # # Page 1027
044312,000734: # SORT THE JET ON-TIMES
044313,000735:
044314,000736: # AT THIS POINT ALL THE CHANNEL COMMANDS AND JET ON-TIMES HAVE BEEN DETERMINED. IN SUMMARY THESE ARE-
044315,000737:
044316,000738: # RWORD1
044317,000739: # RWORD2 BLAST
044318,000740:
044319,000741: # PWORD1
044320,000742: # PWORD2 BLAST1
044321,000743:
044322,000744: # YWORD1
044323,000745: # YWORD2 BLAST2
044324,000746:
044325,000747: # IN THIS SECTION THE JET ON-TIMES ARE SORTED AND THE SEQUENCE OF T6 INTERRUPTS IS DETERMINED. TO FACILITATE
044326,000748: # THE SORTING PROCESS AND THE T6 PROGRAM, THE VARIABLES BLAST, BLAST1, BLAST2, ARE RESERVED AS DOUBLE PRECISION
044327,000749: # WORDS. THE LOWER PART OF THESE WORDS CONTAIN A BRANCH INDEX ASSOCIATED WITH THE ROTATION AXIS OF THE HIGHER
044328,000750: # ORDER WORD.
044329,000751:
044330,000752: 17,3571 34714 T6SETUP CAF ZERO # BRANCH INDEX FOR ROLL
044331,000753: 17,3572 55460 TS BLAST +1
044332,000754: 17,3573 34710 CAF FOUR # BRANCH INDEX FOR PITCH
044333,000755: 17,3574 55462 TS BLAST1 +1
044334,000756: 17,3575 34717 CAF ELEVEN # BRANCH INDEX FOR YAW
044335,000757: 17,3576 55464 TS BLAST2 +1
044336,000758:
044337,000759: 17,3577 41457 CS BLAST
044338,000760: 17,3600 61461 AD BLAST1
044339,000761: 17,3601 00006 EXTEND
044340,000762: 17,3602 63626 BZMF DXCHT12 # T1 OR T2
044341,000763: 17,3603 41461 CHECKT23 CS BLAST1
044342,000764: 17,3604 61463 AD BLAST2
044343,000765: 17,3605 00006 EXTEND
044344,000766: 17,3606 63632 BZMF DXCHT23
044345,000767: 17,3607 41461 CALCDT6 CS BLAST1
044346,000768: 17,3610 27463 ADS BLAST2
044347,000769: 17,3611 41457 CS BLAST
044348,000770: 17,3612 27461 ADS BLAST1 # END OF SORTING PROCEDURE
044349,000771: 17,3613 00006 EXTEND # RESET T5LOC TO BEGIN PHASE1
044350,000772: 17,3614 33625 DCA RCS2CADR
044351,000773: 17,3615 53313 DXCH T5LOC
044352,000774: 17,3616 44712 ENDJETS CS BIT1 # RESET BIT1 FOR INITIALIZATION OF
044353,000775: 17,3617 71501 MASK RCSFLAGS # T6 PROGRAM
044354,000776: 17,3620 55501 TS RCSFLAGS
044355,000777: 17,3621 44714 CS ZERO # RESET T5PHASE FOR PHASE1
044356,000778: 17,3622 55465 TS T5PHASE
044357,000779: 17,3623 15222 TCF RESUME # RESUME INTERRUPTED PROGRAM
044358,000780:
044359,000781:
044360,000782: 17,3624 E6,1510 EBANK= KMPAC
044361,000783: 17,3624 02106 42066 RCS2CADR 2CADR RCSATT
044362,000784: # # Page 1028
044363,000785: 17,3626 53460 DXCHT12 DXCH BLAST
044364,000786: 17,3627 53462 DXCH BLAST1
044365,000787: 17,3630 53460 DXCH BLAST
044366,000788: 17,3631 13603 TCF CHECKT23
044367,000789:
044368,000790: 17,3632 53462 DXCHT23 DXCH BLAST1
044369,000791: 17,3633 53464 DXCH BLAST2
044370,000792: 17,3634 53462 DXCH BLAST1
044371,000793: 17,3635 41457 CS BLAST
044372,000794: 17,3636 61461 AD BLAST1
044373,000795: 17,3637 00006 EXTEND
044374,000796: 17,3640 63642 BZMF +2
044375,000797: 17,3641 13607 TCF CALCDT6
044376,000798: 17,3642 53460 DXCH BLAST
044377,000799: 17,3643 53462 DXCH BLAST1
044378,000800: 17,3644 53460 DXCH BLAST
044379,000801: 17,3645 13607 TCF CALCDT6
044380,000802:
044381,000803: # # Page 1029
044382,000804: # T6 PROGRAM AND CHANNEL SETUP
044383,000805:
044384,000806: 21,3751 BANK 21
044385,000807: 17,2000 SETLOC DAPS5
044386,000808: 17,2000 BANK
044387,000809:
044388,000810: 17,3646 22016 T6START LXCH BANKRUPT
044389,000811: 17,3647 00006 EXTEND
044390,000812: 17,3650 22012 QXCH QRUPT
044391,000813: 17,3651 10031 CCS TIME6 # CHECK TO SEE IF TIME6 WAS RESET
044392,000814: 17,3652 15222 TCF RESUME # AFTER T6RUPT OCCURRED(IN T5RUPT)
044393,000815: 17,3653 13655 TCF +2 # IF SO WAIT FOR NEXT T6RUPT BEFORE
044394,000816: 17,3654 15222 TCF RESUME # TAKING ACTION
044395,000817:
044396,000818: 17,3655 41501 CS RCSFLAGS
044397,000819: 17,3656 74712 MASK BIT1 # IF BIT1 IS 0 RESET TO 1
044398,000820: 17,3657 00006 EXTEND # AND INITIALIZE CHANNEL
044399,000821: 17,3660 13671 BZF T6RUPTOR
044400,000822: 17,3661 27501 ADS RCSFLAGS
044401,000823: 17,3662 31451 CA RWORD1
044402,000824: 17,3663 00006 EXTEND # INITIALIZE CHANNELS 5,6 WITH WORD1
044403,000825: 17,3664 01006 WRITE CHAN6
044404,000826: 17,3665 31453 CA PWORD1
044405,000827: 17,3666 61455 AD YWORD1
044406,000828: 17,3667 00006 EXTEND
044407,000829: 17,3670 01005 WRITE CHAN5
044408,000830:
044409,000831: 17,3671 11457 T6RUPTOR CCS BLAST
044410,000832: 17,3672 13751 TCF ZBLAST # ZERO BLAST1
044411,000833: 17,3673 13710 TCF REPLACE # REPLACE WORD1
044412,000834: 17,3674 13676 TCF +2
044413,000835: 17,3675 13710 TCF REPLACE
044414,000836: 17,3676 11461 T6L1 CCS BLAST1
044415,000837: 17,3677 13754 TCF ZBLAST1
044416,000838: 17,3700 13715 TCF REPLACE1
044417,000839: 17,3701 13703 TCF +2
044418,000840: 17,3702 13715 TCF REPLACE1
044419,000841: 17,3703 11463 T6L2 CCS BLAST2
044420,000842: 17,3704 13757 TCF ZBLAST2
044421,000843: 17,3705 13722 TCF REPLACE2
044422,000844: 17,3706 15222 TCF RESUME
044423,000845: 17,3707 13722 TCF REPLACE2
044424,000846:
044425,000847: 17,3710 51460 REPLACE INDEX BLAST +1
044426,000848: 17,3711 03727 TC REPLACER
044427,000849: 17,3712 44712 CS ONE
044428,000850: 17,3713 55457 TS BLAST
044429,000851: 17,3714 13676 TCF T6L1
044430,000852:
044431,000853: 17,3715 51462 REPLACE1 INDEX BLAST1 +1
044432,000854: # # Page 1030
044433,000855: 17,3716 03727 TC REPLACER
044434,000856: 17,3717 44712 CS ONE
044435,000857: 17,3720 55461 TS BLAST1
044436,000858: 17,3721 13703 TCF T6L2
044437,000859:
044438,000860: 17,3722 51464 REPLACE2 INDEX BLAST2 +1
044439,000861: 17,3723 03727 TC REPLACER
044440,000862: 17,3724 44712 CS ONE
044441,000863: 17,3725 55463 TS BLAST2
044442,000864: 17,3726 15222 TCF RESUME
044443,000865:
044444,000866: 17,3727 31452 REPLACER CA RWORD2
044445,000867: 17,3730 00006 EXTEND # INITIALIZE CHANNELS 5,6 WITH WORD 2
044446,000868: 17,3731 01006 WRITE CHAN6
044447,000869: 17,3732 00002 TC Q
044448,000870:
044449,000871: 17,3733 32763 REPLACEP CA YJETS
044450,000872: 17,3734 00006 EXTEND
044451,000873: 17,3735 02005 RAND CHAN5
044452,000874: 17,3736 61454 AD PWORD2
044453,000875: 17,3737 00006 EXTEND
044454,000876: 17,3740 01005 WRITE CHAN5
044455,000877: 17,3741 00002 TC Q
044456,000878:
044457,000879: 17,3742 32762 REPLACEY CA PJETS
044458,000880: 17,3743 00006 EXTEND
044459,000881: 17,3744 02005 RAND CHAN5
044460,000882: 17,3745 61456 AD YWORD2
044461,000883: 17,3746 00006 EXTEND
044462,000884: 17,3747 01005 WRITE CHAN5
044463,000885: 17,3750 00002 TC Q
044464,000886:
044465,000887: 17,3751 34714 ZBLAST CAF ZERO
044466,000888: 17,3752 57457 XCH BLAST
044467,000889: 17,3753 13761 TCF ENABT6
044468,000890: 17,3754 34714 ZBLAST1 CAF ZERO
044469,000891: 17,3755 57461 XCH BLAST1
044470,000892: 17,3756 13761 TCF ENABT6
044471,000893: 17,3757 34714 ZBLAST2 CAF ZERO
044472,000894: 17,3760 57463 XCH BLAST2
044473,000895: 17,3761 54031 ENABT6 TS TIME6
044474,000896: 17,3762 34674 CAF NEGMAX
044475,000897: 17,3763 00006 EXTEND
044476,000898: 17,3764 05013 WOR CHAN13 # ENABLE T6RUPT
044477,000899: 17,3765 15222 TCF RESUME
044478,000900:
044479,000901: # END OF T6 INTERRUPT
044480,000902:
044481,000903: 17,3766 ENDSLECT EQUALS
End of include-file JET_SELECTION_LOGIC.agc. Parent file is MAIN.agc