Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
044543,000002: ## Copyright: Public domain.
044544,000003: ## Filename: JET_SELECTION_LOGIC.agc
044545,000004: ## Purpose: A section of Comanche revision 072.
044546,000005: ## It is part of the reconstructed source code for the first
044547,000006: ## release of the software for the Command Module's (CM) Apollo
044548,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
044549,000008: ## of this program are available; instead, this file was recreated
044550,000009: ## from a printout of Comanche 055, binary dumps of a set of
044551,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
044552,000011: ## and 072. It has been adapted such that the resulting bugger words
044553,000012: ## exactly match those specified for Comanche 072 in NASA drawing
044554,000013: ## 2021153G, which gives relatively high confidence that the
044555,000014: ## reconstruction is correct.
044556,000015: ## Assembler: yaYUL
044557,000016: ## Contact: Ron Burkey <info@sandroid.org>.
044558,000017: ## Website: www.ibiblio.org/apollo/index.html
044559,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
044560,000019:
044561,000020: 21,3777 BANK 21
044562,000021: 17,2000 SETLOC DAPS4
044563,000022: 17,2000 BANK
044564,000023:
044565,000024: 17,2610 COUNT 17/DAPJS
044566,000025:
044567,000026: 17,2610 E6,1510 EBANK= KMPAC
044568,000027:
044569,000028: # EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS
044570,000029:
044571,000030: 17,2610 22016 JETSLECT LXCH BANKRUPT
044572,000031: 17,2611 32672 CAF DELTATT3 # = 60 MS RESET TO EXECUTE PHASE1
044573,000032: 17,2612 61634 AD T5TIME
044574,000033: 17,2613 54030 TS TIME5
044575,000034: 17,2614 12617 TCF +3
044576,000035: 17,2615 32673 CAF DELATT20 # = 20 MS TO ASSURE A T5RUPT
044577,000036: 17,2616 54030 TS TIME5
044578,000037: 17,2617 33351 CAF =14MS # RESET T6 TO INITIALIZE THE JET CHANNELS
044579,000038: 17,2620 54031 TS TIME6 # IN 14 MS
044580,000039: 17,2621 35015 CAF NEGMAX
044581,000040: 17,2622 00006 EXTEND
044582,000041: 17,2623 05013 WOR CHAN13
044583,000042: 17,2624 00006 EXTEND
044584,000043: 17,2625 22012 QXCH QRUPT
044585,000044: 17,2626 32671 CAF XLNMASK # = 7700 OCT
044586,000045: 17,2627 00006 EXTEND # EXAMINE THE TRANSLATION
044587,000046: 17,2630 06031 RXOR CHAN31 # HAND CONTROLLER
044588,000047: 17,2631 72671 MASK XLNMASK
044589,000048: 17,2632 00006 EXTEND
044590,000049: 17,2633 12674 BZF NOXLNCMD
044591,000050: 17,2634 55502 TS T5TEMP
044592,000051: 17,2635 00006 EXTEND
044593,000052: 17,2636 75023 MP BIT9
044594,000053: 17,2637 76214 MASK THREE
044595,000054: 17,2640 55513 TS XNDX1 # AC QUAD X-TRANSLATION INDEX
044596,000055: 17,2641 55514 TS XNDX2 # BD QUAD X-TRANSLATION INDEX
044597,000056: 17,2642 31502 CA T5TEMP
044598,000057: 17,2643 00006 EXTEND # 1 = + XLN
044599,000058: 17,2644 75025 MP BIT7 # 2 = - XLN
044600,000059: 17,2645 76214 MASK THREE # 3 = NO XLN
044601,000060: 17,2646 55515 TS YNDX # Y-TRANSLATION INDEX
044602,000061:
044603,000062: 17,2647 31502 CA T5TEMP
044604,000063: 17,2650 00006 EXTEND
044605,000064: 17,2651 75027 MP BIT5
044606,000065: 17,2652 76214 MASK THREE
044607,000066: 17,2653 55516 TS ZNDX # Z-TRANSLATION INDEX
044608,000067:
044609,000068: 17,2654 31466 CA DAPDATR1 # SET ATTKALMN TO PICK UP FILTER GAINS FOR
044610,000069: 17,2655 75016 MASK BIT14 # TRANSLATIONS.
044611,000070: 17,2656 00006 EXTEND # CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED.
044612,000071: 17,2657 12662 BZF NOLEM
044613,000072: 17,2660 46214 CS THREE # IF LEM IS ON, SET ATTKALMN = -3
044614,000073: 17,2661 12663 TCF +2
044615,000074: 17,2662 45032 NOLEM CS TWO # IF LEM IS OFF, SET ATTKALMN = -2.
044616,000075: 17,2663 55617 TS ATTKALMN
044617,000076: 17,2664 11631 CCS XTRANS # (+, -1, 0)
044618,000077: 17,2665 55513 TS XNDX1 # USING BD-X ZERO XNDX1
044619,000078: 17,2666 12700 TCF PWORD
044620,000079: 17,2667 55514 TS XNDX2 # USING AC-X ZERO XNDX2
044621,000080: 17,2670 12700 TCF PWORD
044622,000081: 17,2671 07700 XLNMASK OCT 7700
044623,000082:
044624,000083: 17,2672 37772 DELTATT3 DEC 16378 B-14 # = 60 MS
044625,000084: 17,2673 37776 DELATT20 DEC 16382 B-14 # = 20 MS
044626,000085:
044627,000086: 17,2674 55513 NOXLNCMD TS XNDX1 # ZERO ALL REQUESTS FOR TRANSLATION
044628,000087: 17,2675 55514 TS XNDX2
044629,000088: 17,2676 55515 TS YNDX
044630,000089: 17,2677 55516 TS ZNDX
044631,000090:
044632,000091: # PITCH COMMANDS TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT
044633,000092:
044634,000093: 17,2700 11562 PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS
044635,000094: 17,2701 35033 CAF ONE
044636,000095: 17,2702 12704 TCF +2 # 0 = NO PITCH
044637,000096: 17,2703 35032 CAF TWO # +1 = + PITCH
044638,000097: 17,2704 55520 TS PINDEX # +2 = - PITCH
044639,000098:
044640,000099: 17,2705 11626 CCS RACFAIL # FLAG FOR REAL AC QUAD FAILURES
044641,000100: 17,2706 12712 TCF AFAILP
044642,000101: 17,2707 12722 TCF TABPCOM # 0 = NO REAL AC FAILURES
044643,000102: 17,2710 12714 TCF CFAILP # + = A QUAD FAILED
044644,000103: 17,2711 12722 TCF TABPCOM # - = C QUAD FAILED
044645,000104: # IF FAILURES ARE PRESENT IGNORE
044646,000105: # X-TRANSLATIONS ON THIS AXIS
044647,000106:
044648,000107: 17,2712 34334 AFAILP CAF NINE # IF FAILURE IS PRESENT 1JET OPERATION
044649,000108: 17,2713 12724 TCF TABPCOM +2 # IS ASSUMED. IGNORE X-TRANSLATION
044650,000109: 17,2714 35775 CFAILP CAF TWELVE
044651,000110: 17,2715 12724 TCF TABPCOM +2
044652,000111:
044653,000112: 17,2716 00000 XLNNDX DEC 0 B-14 # INDECES FOR TRANSLATION COMMANDS
044654,000113: 17,2717 00003 DEC 3 B-14 # FOR USE IN TABLE LOOK UP
044655,000114: 17,2720 00006 DEC 6 B-14
044656,000115: 17,2721 00000 DEC 0 B-14
044657,000116:
044658,000117: 17,2722 5775 TWELVE = OCT14
044659,000118:
044660,000119: # TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT.
044661,000120: # BITS 9, 10 CONTAIN THE NUMBER OF PITCH JETS USED TO PERFORM THE PITCH ROTATION
044662,000121:
044663,000122: 17,2722 51513 TABPCOM INDEX XNDX1
044664,000123: 17,2723 32716 CA XLNNDX
044665,000124: 17,2724 61520 AD PINDEX
044666,000125: 17,2725 50000 INDEX A
044667,000126: 17,2726 32752 CA PYTABLE
044668,000127: 17,2727 72771 MASK PJETS # =1417 OCT
044669,000128: 17,2730 55453 TS PWORD1
044670,000129: 17,2731 00006 EXTEND
044671,000130: 17,2732 75025 MP BIT7
044672,000131: 17,2733 55523 TS NPJETS # = NO. OF PITCH JETS
044673,000132:
044674,000133: # YAW JET COMMANDS TIMING(NO X-TRANS, NO QUAD FAILURES) 32MCT
044675,000134:
044676,000135: 17,2734 11563 YWORD CCS TAU2 # CHECK FOR YAW COMMANDS
044677,000136: 17,2735 35033 CAF ONE
044678,000137: 17,2736 12740 TCF +2
044679,000138: 17,2737 35032 CAF TWO
044680,000139: 17,2740 55521 TS YINDEX # YAW ROTATION INDEX
044681,000140:
044682,000141: 17,2741 11627 CCS RBDFAIL # FLAG FOR B OR D QUAD FAILURES
044683,000142: 17,2742 12746 TCF BFAILY # 0 = NO BD FAILURE
044684,000143: 17,2743 12773 TCF TABYCOM # + = B QUAD FAILED
044685,000144: 17,2744 12750 TCF DFAILY # - = D QUAD FAILED
044686,000145: 17,2745 12773 TCF TABYCOM
044687,000146:
044688,000147: 17,2746 34334 BFAILY CAF NINE
044689,000148: 17,2747 12775 TCF TABYCOM +2
044690,000149: 17,2750 35775 DFAILY CAF TWELVE
044691,000150: 17,2751 12775 TCF TABYCOM +2
044692,000151:
044693,000152: # TABLE FOR PITCH(YAW) COMMANDS
044694,000153: # BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED
044695,000154: # BITS 10,9 = NO. PITCH JETS USED TO PERFORM ROTATION
044696,000155: # BITS 8,7,6,5 = YAW, X-TRANSLATION JETS SELECTED
044697,000156: # BITS 12,11: NO. YAW JETS USED TO PERFORM ROTATION
044698,000157:
044699,000158: # ROT TRANS QUAD BIAS
044700,000159: 17,2752 00000 PYTABLE OCT 0 # 0 0 0
044701,000160: 17,2753 05125 OCT 5125 # + 0 0
044702,000161: 17,2754 05252 OCT 5252 # - 0 0
044703,000162: 17,2755 00231 OCT 0231 # 0 + 3
044704,000163: 17,2756 02421 OCT 2421 # + + 3
044705,000164: 17,2757 02610 OCT 2610 # - + 3
044706,000165: 17,2760 00146 OCT 0146 # 0 - 6
044707,000166: 17,2761 02504 OCT 2504 # + - 6
044708,000167: 17,2762 02442 OCT 2442 # - - 6
044709,000168: 17,2763 00000 OCT 0 # 0 A(B) 9
044710,000169: 17,2764 02421 OCT 2421 # + A(B) 9
044711,000170: 17,2765 02442 OCT 2442 # - A(B) 9
044712,000171: 17,2766 00000 OCT 0 # 0 C(D) 12
044713,000172: 17,2767 02504 OCT 2504 # + C(D) 12
044714,000173: 17,2770 02610 OCT 2610 # - C(D) 12
044715,000174:
044716,000175: # MASKS FOR PITCH AND YAW COMMANDS
044717,000176:
044718,000177: 17,2771 01417 PJETS OCT 1417
044719,000178: 17,2772 06360 YJETS OCT 6360
044720,000179:
044721,000180: # TABLE LOOK UP FOR YAW COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT
044722,000181: # BITS 11, 12 CONTAIN THE NUMBER OF YAW JETS USED TO PERFORM THE YAW ROTATION
044723,000182:
044724,000183: 17,2773 51514 TABYCOM INDEX XNDX2
044725,000184: 17,2774 32716 CA XLNNDX
044726,000185: 17,2775 61521 AD YINDEX
044727,000186: 17,2776 50000 INDEX A
044728,000187: 17,2777 32752 CA PYTABLE
044729,000188: 17,3000 72772 MASK YJETS # = 6360 OCT
044730,000189: 17,3001 55455 TS YWORD1
044731,000190: 17,3002 00006 EXTEND
044732,000191: 17,3003 75027 MP BIT5
044733,000192: 17,3004 55524 TS NYJETS # NO. OF YAW JETS USED TO PERFORM ROTATION
044734,000193:
044735,000194: # ROLL COMMANDS TIMING(NO Y,Z TRANS, NO QUAD FAILS) 45MCT
044736,000195:
044737,000196: 17,3005 11561 RWORD CCS TAU # CHECK FOR ROLL COMMANDS
044738,000197: 17,3006 35033 CAF ONE
044739,000198: 17,3007 13011 TCF +2
044740,000199: 17,3010 35032 CAF TWO
044741,000200: 17,3011 55517 TS RINDEX
044742,000201:
044743,000202: 17,3012 11630 CCS ACORBD # FLAG FOR AC OR BD QUAD SELECTION FOR
044744,000203: 17,3013 13104 TCF BDROLL # ROLL COMMANDS
044745,000204: 17,3014 13104 TCF BDROLL # +, +0 = BD ROLL
044746,000205: 17,3015 13016 TCF +1 # -, -0 = AC ROLL
044747,000206:
044748,000207: 17,3016 11626 ACROLL CCS RACFAIL # CHECK FOR REAL FAILURES
044749,000208: 17,3017 13023 TCF RAFAIL # ON AC QUADS
044750,000209: 17,3020 13033 TCF RXLNS
044751,000210: 17,3021 13025 TCF RCFAIL
044752,000211: 17,3022 13033 TCF RXLNS
044753,000212:
044754,000213: 17,3023 34334 RAFAIL CAF NINE # QUAD FAILURE WILL GET
044755,000214: 17,3024 13035 TCF TABRCOM # 1-JET OPERATION
044756,000215: 17,3025 35775 RCFAIL CAF TWELVE
044757,000216: 17,3026 13035 TCF TABRCOM
044758,000217:
044759,000218: 17,3027 00000 XLN1NDX DEC 0 B-14
044760,000219: 17,3030 00001 DEC 1 B-14 # INDECES FOR TRANSLATION
044761,000220: 17,3031 00002 DEC 2 B-14
044762,000221: 17,3032 00000 DEC 0 B-14
044763,000222:
044764,000223: # TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT
044765,000224: # BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL
044766,000225:
044767,000226: 17,3033 51515 RXLNS INDEX YNDX # NO AC QUAD FAILURES
044768,000227: 17,3034 32716 CA XLNNDX # INCLUDE +,-,0, Y-TRANSLATION
044769,000228: 17,3035 61517 TABRCOM AD RINDEX
044770,000229: 17,3036 50000 INDEX A
044771,000230: 17,3037 33166 CA RTABLE
044772,000231: 17,3040 73205 MASK ACRJETS # = 3760 OCT
044773,000232: 17,3041 55451 TS RWORD1
044774,000233:
044775,000234: # CHECK FOR Z-TRANSLATIONS ON BD
044776,000235:
044777,000236: 17,3042 31516 BDZCHECK CA ZNDX
044778,000237: 17,3043 00006 EXTEND
044779,000238: 17,3044 63076 BZMF NOBDZ # NO Z-TRANSLATION
044780,000239:
044781,000240: # TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES. Z-TRANSLATION WILL BE POSS-
044782,000241: # IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS. CRITERION.. IF THE RESULTANT NET ROLL
044783,000242: # COMMANDS = 0 (WITH Z-TRANSLATION) AND IF TAU = 0, THEN INCLUDE THE BD Z-TRANSLATION COMMANDS. IF THE RESULTANT
044784,000243: # ROLL COMMAND = 0, AND IF TAU NZ, THEN IGNORE THE BD Z-TRANSLATION
044785,000244:
044786,000245: 17,3045 11627 CCS RBDFAIL
044787,000246: 17,3046 36214 CAF THREE
044788,000247: 17,3047 13051 TCF +2
044789,000248: 17,3050 36211 CAF SIX
044790,000249: 17,3051 51516 INDEX ZNDX
044791,000250: 17,3052 63027 AD XLN1NDX
044792,000251: 17,3053 50000 INDEX A
044793,000252: 17,3054 33207 CA YZTABLE
044794,000253: 17,3055 73220 MASK BDZJETS # = 3417 OCT
044795,000254: 17,3056 61451 AD RWORD1 # ADD TO ROLL COMMANDS
044796,000255: 17,3057 55502 TS T5TEMP # IF POSSIBLE. MUST CHECK TAU FIRST
044797,000256:
044798,000257: 17,3060 00006 EXTEND
044799,000258: 17,3061 75025 MP BIT7 # DETERMINE THE NET ROLL COMMAND WITH
044800,000259: 17,3062 66061 AD =-4 # Z-TRANSLATION ADDED ON
044801,000260: 17,3063 55522 TS NRJETS # NET NO. OF +,- ROLL JETS ON
044802,000261: 17,3064 00006 EXTEND
044803,000262: 17,3065 13071 BZF TAUCHECK
044804,000263:
044805,000264: 17,3066 31502 ACRBDZ CA T5TEMP # Z-TRANSLATION ACCEPTED EVEN THO WE MAY
044806,000265: 17,3067 55451 TS RWORD1 # HAVE INTRODUCED AN UNDESIREABLE ROLL
044807,000266: 17,3070 13332 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS
044808,000267:
044809,000268: 17,3071 11561 TAUCHECK CCS TAU
044810,000269: 17,3072 13076 TCF NOBDZ
044811,000270: 17,3073 13066 TCF ACRBDZ
044812,000271: 17,3074 13076 TCF NOBDZ
044813,000272: 17,3075 13066 TCF ACRBDZ
044814,000273:
044815,000274: 17,3076 31451 NOBDZ CA RWORD1 # Z-TRANSLATION NOT ACCEPTED
044816,000275: 17,3077 00006 EXTEND
044817,000276: 17,3100 75025 MP BIT7
044818,000277: 17,3101 67715 AD =-2
044819,000278: 17,3102 55522 TS NRJETS
044820,000279: 17,3103 13332 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATION
044821,000280:
044822,000281: # BD QUAD SELECTION FOR ROLL COMMANDS
044823,000282:
044824,000283: 17,3104 11627 BDROLL CCS RBDFAIL
044825,000284: 17,3105 13111 TCF RBFAIL
044826,000285: 17,3106 13115 TCF RZXLNS
044827,000286: 17,3107 13113 TCF RDFAIL
044828,000287: 17,3110 13115 TCF RZXLNS
044829,000288: 17,3111 34334 RBFAIL CAF NINE
044830,000289: 17,3112 13117 TCF TABRZCMD
044831,000290: 17,3113 35775 RDFAIL CAF TWELVE
044832,000291: 17,3114 13117 TCF TABRZCMD
044833,000292:
044834,000293: 17,3115 51516 RZXLNS INDEX ZNDX # NO BD FAILURES
044835,000294: 17,3116 32716 CA XLNNDX # +,-,0 Z-TRANSLATION PRESENT
044836,000295: 17,3117 61517 TABRZCMD AD RINDEX
044837,000296: 17,3120 50000 INDEX A
044838,000297: 17,3121 33166 CA RTABLE
044839,000298: 17,3122 73206 MASK BDRJETS # = 34017 OCT
044840,000299: 17,3123 55451 TS RWORD1
044841,000300:
044842,000301: 17,3124 31515 ACYCHECK CA YNDX # ANY Y-TRANSLATION
044843,000302: 17,3125 00006 EXTEND
044844,000303: 17,3126 13160 BZF NOACY # NO Y-TRANSLATION
044845,000304: 17,3127 11626 CCS RACFAIL
044846,000305: 17,3130 36214 CAF THREE
044847,000306: 17,3131 13133 TCF +2
044848,000307: 17,3132 36211 CAF SIX
044849,000308: 17,3133 51515 INDEX YNDX
044850,000309: 17,3134 63027 AD XLN1NDX
044851,000310: 17,3135 50000 INDEX A
044852,000311: 17,3136 33207 CA YZTABLE
044853,000312: 17,3137 73221 MASK ACYJETS # = 34360 OCT
044854,000313: 17,3140 61451 AD RWORD1
044855,000314: 17,3141 55502 TS T5TEMP
044856,000315: 17,3142 00006 EXTEND # FOR EXPLANATION SEE CODING ON RTABLE
044857,000316: 17,3143 75030 MP BIT4
044858,000317: 17,3144 66061 AD =-4
044859,000318: 17,3145 55522 TS NRJETS # NO. OF NET ROLL JETS
044860,000319: 17,3146 00006 EXTEND
044861,000320: 17,3147 13153 BZF TAUCHCK # IF NRJETS = 0
044862,000321:
044863,000322: 17,3150 31502 BDRACZ CA T5TEMP # Y-TRANSLATION ACCEPTED
044864,000323: 17,3151 55451 TS RWORD1
044865,000324: 17,3152 13332 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS
044866,000325:
044867,000326: 17,3153 11561 TAUCHCK CCS TAU
044868,000327: 17,3154 13160 TCF NOACY
044869,000328: 17,3155 13150 TCF BDRACZ
044870,000329: 17,3156 13160 TCF NOACY
044871,000330: 17,3157 13150 TCF BDRACZ
044872,000331:
044873,000332: 17,3160 31451 NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED
044874,000333: 17,3161 00006 EXTEND
044875,000334: 17,3162 75030 MP BIT4
044876,000335: 17,3163 67715 AD =-2
044877,000336: 17,3164 55522 TS NRJETS
044878,000337: 17,3165 13332 TCF ROLLTIME
044879,000338:
044880,000339: # TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS
044881,000340:
044882,000341: # EITHER AC OR BD ROLL MAY BE SELECTED. IF AC ROLL IS SELECTED, Y-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY
044883,000342: # PROVIDED THAT THERE ARE NO AC QUAD FAILURES. IF THERE ARE AC FAILURES, Y-TRANSLATION COMMANDS WILL BE IGNORED,
044884,000343: # IN WHICH CASE THE ASTRONAUT SHOULD SWITCH TO BD ROLL.
044885,000344:
044886,000345: # IF BDROLL IS SELECTED, Z-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY PROVIDED THAT THERE ARE NO BD QUAD
044887,000346: # FAILURES. IF THERE ARE BD FAILURES, Z-TRANSLATION COMMANDS WILL BE IGNORED, IN WHICH CASE THE ASTRONAUT SHOULD
044888,000347: # SWITCH TO AC ROLL.
044889,000348:
044890,000349: # NOTE THAT IF ONE QUAD FAILS (E.G. B FAILED), Z-TRANSLATION IS STILL POSSIBLE AND THAT THE UNDESIREABLE ROLL
044891,000350: # INTRODUCED BY THIS TRANSLATION WILL BE COMPENSATED BY THE TWO AC ROLL JETS ACTUATED BY THE AUTOPILOT LOGIC.
044892,000351:
044893,000352: # WORD MAKE UP....RTABLE
044894,000353:
044895,000354: # TWO WORDS, CORRESPONDING TO AC OR BD ROLL SELECTION, HAVE BEEN COMBINED INTO ONE TABLE. THE WORD CORRESPOND-
044896,000355: # ING TO AC ROLL HAS THE FOLLOWING INTERPRETATION..
044897,000356:
044898,000357: # BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE FOR THE WORD SELECTED. THE CODING IS..
044899,000358:
044900,000359: # BIT NO. 11 10 9 NO. OF ROLL JETS
044901,000360:
044902,000361: # 0 0 0 -2
044903,000362: # 0 0 1 -1
044904,000363: # 0 1 0 0
044905,000364: # 0 1 1 +1
044906,000365: # 1 0 0 +2
044907,000366:
044908,000367: # THIS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM THE YZ-TRANSLATION TABLE, WHICH HAS THE SAME TYPE OF
044909,000368: # CODING AS ABOVE, AND THE NET ROLL DETERMINED BY SHIFTING THE RESULTANT WORD RIGHT 8 PLACES AND SUBTRACTING FOUR.
044910,000369:
044911,000370: # THE WORD CORRESPONDING TO BD ROLL HAS A SIMILIAR INTERPRETATION, EXCEPT THAT BITS 12, 13, 14 ARE CODED
044912,000371: # (AS ABOVE) TO GIVE THE NET ROLL TORQUE.
044913,000372:
044914,000373: # ROLL TRANS QUADFAIL BIAS
044915,000374:
044916,000375: 17,3166 11000 RTABLE OCT 11000 # 0 0
044917,000376: 17,3167 22125 OCT 22125 # + 0
044918,000377: 17,3170 00252 OCT 00252 # - 0
044919,000378: 17,3171 11231 OCT 11231 # 0 +Y(+Z) 3
044920,000379: 17,3172 15421 OCT 15421 # + +Y(+Z) 3
044921,000380: 17,3173 04610 OCT 04610 # - +Y(+Z) 3
044922,000381: 17,3174 11146 OCT 11146 # 0 -Y(-Z) 6
044923,000382: 17,3175 15504 OCT 15504 # + -Y(-Z) 6
044924,000383: 17,3176 04442 OCT 04442 # - -Y(-Z) 6
044925,000384: 17,3177 11000 OCT 11000 # 0 A(B) 9
044926,000385: 17,3200 15504 OCT 15504 # + A(B) 9
044927,000386: 17,3201 04610 OCT 04610 # - A(B) 9
044928,000387: 17,3202 11000 OCT 11000 # 0 C(D) 12
044929,000388: 17,3203 15421 OCT 15421 # + C(D) 12
044930,000389: 17,3204 04442 OCT 04442 # - C(D) 12
044931,000390:
044932,000391: # RTABLE MASKS-
044933,000392:
044934,000393: 17,3205 03760 ACRJETS OCT 03760
044935,000394: 17,3206 34017 BDRJETS OCT 34017
044936,000395:
044937,000396: # Y, Z TRANSLATION TABLE
044938,000397:
044939,000398: # ONCE AC OR BD ROLL IS SELECTED THE QUAD PAIR WHICH IS NOT BEING USED TO SATISFY THE ROLL COMMANDS MAY BE
044940,000399: # USED TO SATISFY THE REMAINING TRANSLATION COMMANDS. HOWEVER, WE MUST MAKE SURE THAT ROLL COMMANDS ARE SATISFIED
044941,000400: # WHEN THEY OCCUR. THEREFORE, THE Y-Z TRANSLATIONS FROM THIS TABLE WILL BE IGNORED IF THE NET ROLL TORQUE OF THE
044942,000401: # COMBINED WORD IS ZERO AND THE ROLL COMMANDS ARE NON-ZERO. THIS SITUATION WOULD OCCUR, FOR EXAMPLE, IF WE EN-
044943,000402: # COUNTER SIMULTANEOUS +R +Y -Z COMMANDS AND A QUAD D FAILURE WHILE USING AC FOR ROLL.
044944,000403: # TO FACILITATE THE LOGIC, THE Y-Z TRANSLATION TABLE HAS BEEN CODED IN A MANNER SIMILIAR TO THE ROLL TABLE
044945,000404: # ABOVE.
044946,000405: # BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Z-TRANSLATIONS. THE WORD SELECTED CAN THEN BE
044947,000406: # ADDED TO THE AC-ROLL WORD AND THE RESULTANT ROLL TORQUE DETERMINED FROM THE COMBINED WORD. SIMILIARLY BITS
044948,000407: # 12,13,14 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Y-TRANSLATIONS WHEN BD-ROLL IS SELECTED.
044949,000408:
044950,000409: # TRANSLATION QUADFAIL BIAS
044951,000410:
044952,000411: 17,3207 11000 YZTABLE OCT 11000 # 0 0
044953,000412: 17,3210 11231 OCT 11231 # +Z(+Y) 0
044954,000413: 17,3211 11146 OCT 11146 # -Z(-Y) 0
044955,000414: 17,3212 11000 OCT 11000 # 0 B(A) 3
044956,000415: 17,3213 04610 OCT 04610 # +Z(+Y) B(A) 3
044957,000416: 17,3214 15504 OCT 15504 # -Z(-Y) B(A) 3
044958,000417: 17,3215 11000 OCT 11000 # 0 D(C) 6
044959,000418: 17,3216 15421 OCT 15421 # +Z(+Y) D(C) 6
044960,000419: 17,3217 04442 OCT 04442 # -Z(-Y) D(C) 6
044961,000420:
044962,000421: # YZ-TABLE MASKS-
044963,000422:
044964,000423: 17,3220 03417 BDZJETS OCT 03417
044965,000424: 17,3221 34360 ACYJETS OCT 34360
044966,000425:
044967,000426: # ADDITIONAL CONSTANTS
044968,000427:
044969,000428: 17,3222 7715 =-2 = NEG2
044970,000429: 17,3222 6061 =-4 = NEG4
044971,000430:
044972,000431: # CALCULATION OF JET ON-TIMES
044973,000432:
044974,000433: # THE ROTATION COMMANDS (TAU:S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET
044975,000434: # OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS. TAU MUST
044976,000435: # ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5 INT-
044977,000436: # ERVAL.
044978,000437: # IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES
044979,000438: # (DFT:S, ALSO IN TERMS OF 1-JET OPERATION) FOR THE RATE FILTER.
044980,000439: # NOTE THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO ROTATIONS WERE CALLED FOR. NEVERTHELESS, WE MUST
044981,000440: # UPDATE DFT.
044982,000441: # WHEN THE ROTATIONS HAVE FINISHED, WE MUST PROVIDE CHANNEL INFORMATION TO THE T6 PROGRAM TO CONTINUE ON WITH
044983,000442: # THE TRANSLATIONS. THIS WILL BE DONE IN THE NEXT SECTION. HOWEVER, TO INSURE THAT JETS ARE NOT FIRED FOR LESS
044984,000443: # THAN A MINIMUM IMPULSE (14MS), ALL JET CHANNEL COMMANDS WILL BE HELD FIXED FROM THE START OF THE T5 PROGRAM FOR
044985,000444: # AT LEAST 14MS UNTIL THE INITIALIZATION OF NEW COMMANDS. MOREOVER, A 14MS ON-TIME WILL BE ADDED TO ANY ROTATIONAL
044986,000445: # COMMANDS GENERATED BY THE MANUAL CONTROLS OR THE JET SWITCHING LOGIC, AND ALL TRANSLATION COMMANDS WILL BE
044987,000446: # ACTIVE FOR AT LEAST ONE CYCLE OF THE T5 PROGRAM (.1SEC)
044988,000447:
044989,000448: # PITCH JET ON-TIME CALCULATION
044990,000449:
044991,000450: 17,3222 11562 PITCHTIM CCS TAU1
044992,000451: 17,3223 13232 TCF PTAUPOS
044993,000452: 17,3224 13226 TCF +2
044994,000453: 17,3225 13230 TCF PTAUNEG
044995,000454: 17,3226 55550 TS DFT1 # NO PITCH ROTATION
044996,000455: 17,3227 13430 TCF PBYPASS # COMMANDS
044997,000456:
044998,000457: 17,3230 41523 PTAUNEG CS NPJETS
044999,000458: 17,3231 55523 TS NPJETS
045000,000459: 17,3232 31562 PTAUPOS CA TAU1
045001,000460: 17,3233 00006 EXTEND
045002,000461: 17,3234 51523 INDEX NPJETS
045003,000462: 17,3235 73411 MP NJET
045004,000463: 17,3236 55461 TS BLAST1
045005,000464: 17,3237 63344 AD =-.1SEC
045006,000465: 17,3240 00006 EXTEND
045007,000466: 17,3241 63252 BZMF AD14MSP
045008,000467: 17,3242 51523 INDEX NPJETS
045009,000468: 17,3243 33345 CA DFTMAX # THE PITCH ON-TIME IS GREATER THAN .1 SEC
045010,000469: 17,3244 55550 TS DFT1
045011,000470: 17,3245 40000 COM
045012,000471: 17,3246 27562 ADS TAU1 # UPDATE TAU1
045013,000472: 17,3247 33346 CAF =+.1SEC # LIMIT THE LENGTH OF PITCH ROTATION
045014,000473: 17,3250 55461 TS BLAST1 # COMMANDS TO 0.1 SEC SO THAT ONLY
045015,000474: 17,3251 13415 TCF ASMBLWP # X-TRANSLATIONS WILL CONTINUE ON SWITCH
045016,000475: # OVER TO TVC
045017,000476: 17,3252 41461 AD14MSP CS BLAST1 # SEE IF JET ON TIME LESS THAN
045018,000477: 17,3253 63351 AD =14MS # MINIMUM IMPULSE TIME
045019,000478: 17,3254 00006 EXTEND
045020,000479: 17,3255 63260 BZMF PBLASTOK # IF SO LIMIT MINIMUM ON TIME TO 14 MS
045021,000480: 17,3256 33351 CAF =14MS
045022,000481: 17,3257 55461 TS BLAST1
045023,000482: 17,3260 31461 PBLASTOK CA BLAST1
045024,000483: 17,3261 00006 EXTEND # THE PITCH COMMANDS WILL BE COMPLETED
045025,000484: 17,3262 71523 MP NPJETS # WITHIN THE TS-CYCLE TIME
045026,000485: 17,3263 23550 LXCH DFT1 # FOR USE IN UPDATING RATE FILTER
045027,000486: 17,3264 55562 TS TAU1 # ZERO TAU1 (ACC CONTAINS ZERO)
045028,000487: 17,3265 13415 TCF ASMBLWP
045029,000488:
045030,000489: # YAW JET ON-TIME CALCULATION
045031,000490:
045032,000491: 17,3266 11563 YAWTIME CCS TAU2
045033,000492: 17,3267 13276 TCF YTAUPOS
045034,000493: 17,3270 13272 TCF +2
045035,000494: 17,3271 13274 TCF YTAUNEG
045036,000495: 17,3272 55551 TS DFT2 # NO YAW ROTATION COMMANDS
045037,000496: 17,3273 13574 TCF YBYPASS
045038,000497:
045039,000498: 17,3274 41524 YTAUNEG CS NYJETS
045040,000499: 17,3275 55524 TS NYJETS
045041,000500: 17,3276 31563 YTAUPOS CA TAU2
045042,000501: 17,3277 00006 EXTEND
045043,000502: 17,3300 51524 INDEX NYJETS
045044,000503: 17,3301 73411 MP NJET
045045,000504: 17,3302 55463 TS BLAST2
045046,000505: 17,3303 63344 AD =-.1SEC
045047,000506: 17,3304 00006 EXTEND
045048,000507: 17,3305 63316 BZMF AD14MSY
045049,000508: 17,3306 51524 INDEX NYJETS
045050,000509: 17,3307 33345 CA DFTMAX # YAW COMMANDS WILL LAST LONGER THAN .1SEC
045051,000510: 17,3310 55551 TS DFT2
045052,000511: 17,3311 40000 COM
045053,000512: 17,3312 27563 ADS TAU2 # DECREMENT TAU2
045054,000513: 17,3313 33346 CAF =+.1SEC # LIMIT THE LENGTH OF YAW ROTATION COMMAND
045055,000514: 17,3314 55463 TS BLAST2 # TO 0.1 SEC SO THAT ONLY X-TRANSLATION
045056,000515: 17,3315 13561 TCF ASMBLWY # WILL CONTINUE ON SWITCH OVER TO TVC
045057,000516:
045058,000517: 17,3316 41463 AD14MSY CS BLAST2 # SEE IF JET ON-TIME LESS THAN
045059,000518: 17,3317 63351 AD =14MS # MINIMUM IMPULSE TIME
045060,000519: 17,3320 00006 EXTEND
045061,000520: 17,3321 63324 BZMF YBLASTOK # IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
045062,000521: 17,3322 33351 CAF =14MS
045063,000522: 17,3323 55463 TS BLAST2
045064,000523: 17,3324 31463 YBLASTOK CA BLAST2 # YAW COMMANDS WILL BE COMPLETED WITHIN
045065,000524: 17,3325 00006 EXTEND # THE T5CYCLE TIME
045066,000525: 17,3326 71524 MP NYJETS
045067,000526: 17,3327 23551 LXCH DFT2
045068,000527: 17,3330 55563 TS TAU2 # ZERO TAU2
045069,000528: 17,3331 13561 TCF ASMBLWY
045070,000529:
045071,000530: # ROLL ON-TIME CALCULATION-
045072,000531:
045073,000532: 17,3332 11561 ROLLTIME CCS TAU
045074,000533: 17,3333 13352 TCF RBLAST
045075,000534: 17,3334 13336 TCF +2
045076,000535: 17,3335 13352 TCF RBLAST
045077,000536: 17,3336 51522 INDEX NRJETS
045078,000537: 17,3337 33345 CA DFTMAX # UPDATE DFT EVEN THO NO ROLL COMMANDS ARE
045079,000538: 17,3340 55547 TS DFT # PRESENT
045080,000539: 17,3341 13554 TCF RBYPASS
045081,000540:
045082,000541: 17,3342 77037 DEC -480 B-14 # =-.3SEC
045083,000542: 17,3343 77277 DEC -320 B-14 # =-.2SEC
045084,000543: 17,3344 77537 =-.1SEC DEC -160 B-14 # =-.1SEC
045085,000544: 17,3345 00000 DFTMAX DEC 0 B-14 # 0
045086,000545: 17,3346 00240 =+.1SEC DEC 160 B-14 # =+.1SEC
045087,000546: 17,3347 00500 DEC 320 B-14 # =+.2SEC
045088,000547: 17,3350 00740 DEC 480 B-14 # =+.3SEC
045089,000548: 17,3351 00027 =14MS DEC 23 B-14 # =14MS
045090,000549:
045091,000550: 17,3352 31561 RBLAST CA TAU
045092,000551: 17,3353 00006 EXTEND
045093,000552: 17,3354 51522 INDEX NRJETS
045094,000553: 17,3355 73411 MP NJET
045095,000554: 17,3356 55457 TS BLAST # BLAST IS AN INTERMEDIATE VARIABLE
045096,000555: # USED IN DETERMINING THE JET ON-TIMES
045097,000556: 17,3357 63344 AD =-.1SEC
045098,000557: 17,3360 00006 EXTEND
045099,000558: 17,3361 63372 BZMF AD14MSR
045100,000559: 17,3362 51522 INDEX NRJETS # THE ROLL ROTATION WILL LAST LONGER
045101,000560: 17,3363 33345 CA DFTMAX # THAN THE T5 CYCLE TIME
045102,000561: 17,3364 55547 TS DFT
045103,000562: 17,3365 40000 COM
045104,000563: 17,3366 27561 ADS TAU
045105,000564: 17,3367 33346 CAF =+.1SEC # LIMIT THE LENGTH OF ROLL ROTATION
045106,000565: 17,3370 55457 TS BLAST # COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z
045107,000566: 17,3371 13435 TCF ASMBLWR # TRANSLATION COMMANDS CONTINUE
045108,000567:
045109,000568: 17,3372 41457 AD14MSR CS BLAST # SEE IF THE JET ON-TIME LESS THAN
045110,000569: 17,3373 63351 AD =14MS # MINIMUM IMPULSE TIME
045111,000570: 17,3374 00006 EXTEND
045112,000571: 17,3375 63400 BZMF RBLASTOK
045113,000572: 17,3376 33351 CAF =14MS # IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
045114,000573: 17,3377 55457 TS BLAST
045115,000574: 17,3400 31457 RBLASTOK CA BLAST
045116,000575: 17,3401 00006 EXTEND
045117,000576: 17,3402 71522 MP NRJETS
045118,000577: 17,3403 23547 LXCH DFT
045119,000578: 17,3404 55561 TS TAU # ZERO TAU
045120,000579: 17,3405 13435 TCF ASMBLWR
045121,000580:
045122,000581: 17,3406 65252 DEC -.333333 # = -1/3
045123,000582: 17,3407 57777 DEC -.500000 # = -1/2
045124,000583: 17,3410 40000 DEC -.999999 # = -1 (NEGMAX)
045125,000584: 17,3411 00000 NJET DEC 0 B-14
045126,000585: 17,3412 37777 DEC .999999 # = +1 (POSMAX)
045127,000586: 17,3413 20000 DEC .500000 # = +1/2
045128,000587: 17,3414 12525 DEC .333333 # = +1/3
045129,000588:
045130,000589: # WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH
045131,000590: # CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT.
045132,000591:
045133,000592: # IN THIS SECTION THESE NEW COMMANDS ARE GENERATED AND STORED FOR REPLACEMENT OF THE CHANNEL COMMANDS WHEN THE
045134,000593: # CORRESPONDING ROTATIONS ARE COMPLETED.
045135,000594:
045136,000595: # GENERATION OF THE SECOND PITCH(X-TRANS) WORD...PWORD2
045137,000596:
045138,000597: 17,3415 11626 ASMBLWP CCS RACFAIL
045139,000598: 17,3416 13424 TCF FPX2 # IF FAILURE ON AC IGNORE X-TRANSLATION
045140,000599: 17,3417 13421 TCF +2
045141,000600: 17,3420 13424 TCF FPX2
045142,000601: 17,3421 51513 INDEX XNDX1
045143,000602: 17,3422 32716 CA XLNNDX
045144,000603: 17,3423 50000 INDEX A
045145,000604: 17,3424 32752 FPX2 CA PYTABLE
045146,000605: 17,3425 72771 MASK PJETS
045147,000606: 17,3426 55454 TS PWORD2
045148,000607: 17,3427 13266 TCF YAWTIME
045149,000608:
045150,000609: 17,3430 31453 PBYPASS CA PWORD1 # THE T6 PROGRAM WILL LOAD PWORD2
045151,000610: 17,3431 55454 TS PWORD2 # UPON ENTRY
045152,000611: 17,3432 35035 CAF ZERO
045153,000612: 17,3433 55461 TS BLAST1 # THERE IS NO PWORD2
045154,000613: 17,3434 13266 TCF YAWTIME
045155,000614:
045156,000615: # GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2)
045157,000616:
045158,000617: 17,3435 11515 ASMBLWR CCS YNDX # CHECK FOR Y-TRANS
045159,000618: 17,3436 13446 TCF ACBD2Y
045160,000619: 17,3437 35035 NO2Y CAF ZERO
045161,000620: 17,3440 55452 TS RWORD2
045162,000621: 17,3441 11516 CCS ZNDX # CHECK FOR Z-TRANS
045163,000622: 17,3442 13511 TCF ACBD2Z
045164,000623: 17,3443 35035 NO2Z CAF ZERO
045165,000624: 17,3444 27452 ADS RWORD2
045166,000625: 17,3445 13222 TCF PITCHTIM # RWORD2 ASSEMBLED
045167,000626:
045168,000627: 17,3446 11630 ACBD2Y CCS ACORBD
045169,000628: 17,3447 13464 TCF AC2Y # CAN DO Y-TRANS
045170,000629: 17,3450 13464 TCF AC2Y
045171,000630: 17,3451 13452 TCF +1 # USING AC FOR ROLL
045172,000631: 17,3452 11626 CCS RACFAIL
045173,000632: 17,3453 13437 TCF NO2Y # USING AC AND AC HAS FAILED
045174,000633: 17,3454 13456 TCF +2
045175,000634: 17,3455 13437 TCF NO2Y # DITTO
045176,000635:
045177,000636: 17,3456 51515 INDEX YNDX # NO FAILURES, CAN DO Y
045178,000637: 17,3457 32716 CA XLNNDX
045179,000638: 17,3460 50000 INDEX A
045180,000639: 17,3461 33166 CA RTABLE
045181,000640: 17,3462 73205 MASK ACRJETS
045182,000641: 17,3463 13440 TCF NO2Y +1
045183,000642:
045184,000643: 17,3464 11626 AC2Y CCS RACFAIL
045185,000644: 17,3465 36214 CAF THREE
045186,000645: 17,3466 13470 TCF +2
045187,000646: 17,3467 36211 CAF SIX
045188,000647: 17,3470 51515 INDEX YNDX
045189,000648: 17,3471 63027 AD XLN1NDX
045190,000649: 17,3472 50000 INDEX A
045191,000650: 17,3473 33207 CA YZTABLE
045192,000651: 17,3474 73221 MASK ACYJETS
045193,000652: 17,3475 55452 TS RWORD2
045194,000653: 17,3476 00006 EXTEND
045195,000654: 17,3477 75030 MP BIT4
045196,000655: 17,3500 67715 AD =-2
045197,000656: 17,3501 55522 TS NRJETS
045198,000657: 17,3502 41457 CS BLAST
045199,000658: 17,3503 63346 AD =+.1SEC
045200,000659: 17,3504 00006 EXTEND
045201,000660: 17,3505 71522 MP NRJETS
045202,000661: 17,3506 30001 CA L
045203,000662: 17,3507 27547 ADS DFT
045204,000663: 17,3510 13441 TCF NO2Y +2
045205,000664: 17,3511 11630 ACBD2Z CCS ACORBD
045206,000665: 17,3512 13542 TCF BDF2Z # USING BD-ROLL
045207,000666: 17,3513 13542 TCF BDF2Z # MUST CHECK FOR BD FAILURES
045208,000667: 17,3514 13515 TCF +1
045209,000668: 17,3515 11627 CCS RBDFAIL # USING AC FOR ROLL, CAN DO Z-TRANS
045210,000669: 17,3516 36214 CAF THREE
045211,000670: 17,3517 13521 TCF +2
045212,000671: 17,3520 36211 CAF SIX
045213,000672: 17,3521 51516 INDEX ZNDX
045214,000673: 17,3522 63027 AD XLN1NDX
045215,000674: 17,3523 50000 INDEX A
045216,000675: 17,3524 33207 CA YZTABLE
045217,000676: 17,3525 73220 MASK BDZJETS
045218,000677: 17,3526 27452 ADS RWORD2
045219,000678: 17,3527 00006 EXTEND
045220,000679: 17,3530 75025 MP BIT7
045221,000680: 17,3531 67715 AD =-2
045222,000681: 17,3532 55522 TS NRJETS
045223,000682: 17,3533 41457 CS BLAST
045224,000683: 17,3534 63346 AD =+.1SEC
045225,000684: 17,3535 00006 EXTEND
045226,000685: 17,3536 71522 MP NRJETS
045227,000686: 17,3537 30001 CA L
045228,000687: 17,3540 27547 ADS DFT
045229,000688: 17,3541 13222 TCF PITCHTIM
045230,000689:
045231,000690: 17,3542 11627 BDF2Z CCS RBDFAIL
045232,000691: 17,3543 13443 TCF NO2Z # USING BD-ROLL AND BD HAS FAILED
045233,000692: 17,3544 13546 TCF +2
045234,000693: 17,3545 13443 TCF NO2Z # DITTO
045235,000694: 17,3546 51516 INDEX ZNDX
045236,000695: 17,3547 32716 CA XLNNDX
045237,000696: 17,3550 50000 INDEX A
045238,000697: 17,3551 33166 CA RTABLE
045239,000698: 17,3552 73206 MASK BDRJETS
045240,000699: 17,3553 13444 TCF NO2Z +1
045241,000700:
045242,000701: 17,3554 31451 RBYPASS CA RWORD1
045243,000702: 17,3555 55452 TS RWORD2
045244,000703: 17,3556 35035 CAF ZERO
045245,000704: 17,3557 55457 TS BLAST
045246,000705: 17,3560 13222 TCF PITCHTIM
045247,000706:
045248,000707: # GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2
045249,000708:
045250,000709: 17,3561 11627 ASMBLWY CCS RBDFAIL
045251,000710: 17,3562 13570 TCF FYX2 # IF FAILURE ON BD IGNORE X-TRANSLATION
045252,000711: 17,3563 13565 TCF +2
045253,000712: 17,3564 13570 TCF FYX2
045254,000713: 17,3565 51514 INDEX XNDX2
045255,000714: 17,3566 32716 CA XLNNDX
045256,000715: 17,3567 50000 INDEX A
045257,000716: 17,3570 32752 FYX2 CA PYTABLE
045258,000717: 17,3571 72772 MASK YJETS
045259,000718: 17,3572 55456 TS YWORD2
045260,000719: 17,3573 13600 TCF T6SETUP
045261,000720:
045262,000721: 17,3574 31455 YBYPASS CA YWORD1
045263,000722: 17,3575 55456 TS YWORD2
045264,000723: 17,3576 35035 CAF ZERO
045265,000724: 17,3577 55463 TS BLAST2
045266,000725:
045267,000726: # SORT THE JET ON-TIMES
045268,000727:
045269,000728: # AT THIS POINT ALL THE CHANNEL COMMANDS AND JET ON-TIMES HAVE BEEN DETERMINED. IN SUMMARY THESE ARE-
045270,000729:
045271,000730: # RWORD1
045272,000731: # RWORD2 BLAST
045273,000732:
045274,000733: # PWORD1
045275,000734: # PWORD2 BLAST1
045276,000735:
045277,000736: # YWORD1
045278,000737: # YWORD2 BLAST2
045279,000738:
045280,000739: # IN THIS SECTION THE JET ON-TIMES ARE SORTED AND THE SEQUENCE OF T6 INTERRUPTS IS DETERMINED. TO FACILITATE
045281,000740: # THE SORTING PROCESS AND THE T6 PROGRAM, THE VARIABLES BLAST, BLAST1, BLAST2, ARE RESERVED AS DOUBLE PRECISION
045282,000741: # WORDS. THE LOWER PART OF THESE WORDS CONTAIN A BRANCH INDEX ASSOCIATED WITH THE ROTATION AXIS OF THE HIGHER
045283,000742: # ORDER WORD.
045284,000743:
045285,000744: 17,3600 35035 T6SETUP CAF ZERO # BRANCH INDEX FOR ROLL
045286,000745: 17,3601 55460 TS BLAST +1
045287,000746: 17,3602 35031 CAF FOUR # BRANCH INDEX FOR PITCH
045288,000747: 17,3603 55462 TS BLAST1 +1
045289,000748: 17,3604 35040 CAF ELEVEN # BRANCH INDEX FOR YAW
045290,000749: 17,3605 55464 TS BLAST2 +1
045291,000750:
045292,000751: 17,3606 41457 CS BLAST
045293,000752: 17,3607 61461 AD BLAST1
045294,000753: 17,3610 00006 EXTEND
045295,000754: 17,3611 63635 BZMF DXCHT12 # T1 GR T2
045296,000755: 17,3612 41461 CHECKT23 CS BLAST1
045297,000756: 17,3613 61463 AD BLAST2
045298,000757: 17,3614 00006 EXTEND
045299,000758: 17,3615 63641 BZMF DXCHT23
045300,000759: 17,3616 41461 CALCDT6 CS BLAST1
045301,000760: 17,3617 27463 ADS BLAST2
045302,000761: 17,3620 41457 CS BLAST
045303,000762: 17,3621 27461 ADS BLAST1 # END OF SORTING PROCEDURE
045304,000763: 17,3622 00006 EXTEND # RESET T5LOC TO BEGIN PHASE1
045305,000764: 17,3623 33634 DCA RCS2CADR
045306,000765: 17,3624 53313 DXCH T5LOC
045307,000766: 17,3625 45033 ENDJETS CS BIT1 # RESET BIT1 FOR INITIALIZATION OF
045308,000767: 17,3626 71501 MASK RCSFLAGS # T6 PROGRAM
045309,000768: 17,3627 55501 TS RCSFLAGS
045310,000769: 17,3630 45035 CS ZERO # RESET T5PHASE FOR PHASE1
045311,000770: 17,3631 55465 TS T5PHASE
045312,000771: 17,3632 15347 TCF RESUME # RESUME INTERRUPTED PROGRAM
045313,000772:
045314,000773: 17,3633 E6,1510 EBANK= KMPAC
045315,000774: 17,3633 02134 42066 RCS2CADR 2CADR RCSATT
045316,000775:
045317,000776: 17,3635 53460 DXCHT12 DXCH BLAST
045318,000777: 17,3636 53462 DXCH BLAST1
045319,000778: 17,3637 53460 DXCH BLAST
045320,000779: 17,3640 13612 TCF CHECKT23
045321,000780:
045322,000781: 17,3641 53462 DXCHT23 DXCH BLAST1
045323,000782: 17,3642 53464 DXCH BLAST2
045324,000783: 17,3643 53462 DXCH BLAST1
045325,000784: 17,3644 41457 CS BLAST
045326,000785: 17,3645 61461 AD BLAST1
045327,000786: 17,3646 00006 EXTEND
045328,000787: 17,3647 63651 BZMF +2
045329,000788: 17,3650 13616 TCF CALCDT6
045330,000789: 17,3651 53460 DXCH BLAST
045331,000790: 17,3652 53462 DXCH BLAST1
045332,000791: 17,3653 53460 DXCH BLAST
045333,000792: 17,3654 13616 TCF CALCDT6
045334,000793:
045335,000794: # T6 PROGRAM AND CHANNEL SETUP
045336,000795:
045337,000796: 21,3777 BANK 21
045338,000797: 17,2000 SETLOC DAPS5
045339,000798: 17,2000 BANK
045340,000799:
045341,000800: 17,3655 22016 T6START LXCH BANKRUPT
045342,000801: 17,3656 00006 EXTEND
045343,000802: 17,3657 22012 QXCH QRUPT
045344,000803: 17,3660 10031 CCS TIME6 # CHECK TO SEE IF TIME6 WAS RESET
045345,000804: 17,3661 15347 TCF RESUME # AFTER T6RUPT OCCURED (IN T5RUPT)
045346,000805: 17,3662 13664 TCF +2 # IF SO WAIT FOR NEXT T6RUPT BEFORE
045347,000806: 17,3663 15347 TCF RESUME # TAKING ACTION
045348,000807:
045349,000808: 17,3664 41501 CS RCSFLAGS
045350,000809: 17,3665 75033 MASK BIT1 # IF BIT1 IS 0 RESET TO 1
045351,000810: 17,3666 00006 EXTEND # AND INITIALIZE CHANNEL
045352,000811: 17,3667 13700 BZF T6RUPTOR
045353,000812: 17,3670 27501 ADS RCSFLAGS
045354,000813: 17,3671 31451 CA RWORD1
045355,000814: 17,3672 00006 EXTEND # INITIALIZE CHANNELS 5,6 WITH WORD1
045356,000815: 17,3673 01006 WRITE CHAN6
045357,000816: 17,3674 31453 CA PWORD1
045358,000817: 17,3675 61455 AD YWORD1
045359,000818: 17,3676 00006 EXTEND
045360,000819: 17,3677 01005 WRITE CHAN5
045361,000820:
045362,000821: 17,3700 11457 T6RUPTOR CCS BLAST
045363,000822: 17,3701 13760 TCF ZBLAST # ZERO BLAST1
045364,000823: 17,3702 13717 TCF REPLACE # REPLACE WORD1
045365,000824: 17,3703 13705 TCF +2
045366,000825: 17,3704 13717 TCF REPLACE
045367,000826: 17,3705 11461 T6L1 CCS BLAST1
045368,000827: 17,3706 13763 TCF ZBLAST1
045369,000828: 17,3707 13724 TCF REPLACE1
045370,000829: 17,3710 13712 TCF +2
045371,000830: 17,3711 13724 TCF REPLACE1
045372,000831: 17,3712 11463 T6L2 CCS BLAST2
045373,000832: 17,3713 13766 TCF ZBLAST2
045374,000833: 17,3714 13731 TCF REPLACE2
045375,000834: 17,3715 15347 TCF RESUME
045376,000835: 17,3716 13731 TCF REPLACE2
045377,000836:
045378,000837: 17,3717 51460 REPLACE INDEX BLAST +1
045379,000838: 17,3720 03736 TC REPLACER
045380,000839: 17,3721 45033 CS ONE
045381,000840: 17,3722 55457 TS BLAST
045382,000841: 17,3723 13705 TCF T6L1
045383,000842:
045384,000843: 17,3724 51462 REPLACE1 INDEX BLAST1 +1
045385,000844: 17,3725 03736 TC REPLACER
045386,000845: 17,3726 45033 CS ONE
045387,000846: 17,3727 55461 TS BLAST1
045388,000847: 17,3730 13712 TCF T6L2
045389,000848:
045390,000849: 17,3731 51464 REPLACE2 INDEX BLAST2 +1
045391,000850: 17,3732 03736 TC REPLACER
045392,000851: 17,3733 45033 CS ONE
045393,000852: 17,3734 55463 TS BLAST2
045394,000853: 17,3735 15347 TCF RESUME
045395,000854:
045396,000855: 17,3736 31452 REPLACER CA RWORD2 # INITIALIZE CHANNELS 5,6 WITH WORD2
045397,000856: 17,3737 00006 EXTEND
045398,000857: 17,3740 01006 WRITE CHAN6
045399,000858: 17,3741 00002 TC Q
045400,000859:
045401,000860: 17,3742 32772 REPLACEP CA YJETS
045402,000861: 17,3743 00006 EXTEND
045403,000862: 17,3744 02005 RAND CHAN5
045404,000863: 17,3745 61454 AD PWORD2
045405,000864: 17,3746 00006 EXTEND
045406,000865: 17,3747 01005 WRITE CHAN5
045407,000866: 17,3750 00002 TC Q
045408,000867:
045409,000868: 17,3751 32771 REPLACEY CA PJETS
045410,000869: 17,3752 00006 EXTEND
045411,000870: 17,3753 02005 RAND CHAN5
045412,000871: 17,3754 61456 AD YWORD2
045413,000872: 17,3755 00006 EXTEND
045414,000873: 17,3756 01005 WRITE CHAN5
045415,000874: 17,3757 00002 TC Q
045416,000875:
045417,000876: 17,3760 35035 ZBLAST CAF ZERO
045418,000877: 17,3761 57457 XCH BLAST
045419,000878: 17,3762 13770 TCF ENABT6
045420,000879: 17,3763 35035 ZBLAST1 CAF ZERO
045421,000880: 17,3764 57461 XCH BLAST1
045422,000881: 17,3765 13770 TCF ENABT6
045423,000882: 17,3766 35035 ZBLAST2 CAF ZERO
045424,000883: 17,3767 57463 XCH BLAST2
045425,000884: 17,3770 54031 ENABT6 TS TIME6
045426,000885: 17,3771 35015 CAF NEGMAX
045427,000886: 17,3772 00006 EXTEND
045428,000887: 17,3773 05013 WOR CHAN13 # ENABLE T6RUPT
045429,000888: 17,3774 15347 TCF RESUME
045430,000889:
045431,000890: # END OF T6 INTERRUPT
045432,000891:
045433,000892: 17,3775 ENDSLECT EQUALS
045434,000893:
End of include-file JET_SELECTION_LOGIC.agc. Parent file is MAIN.agc