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