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