Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
may be 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 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
045416,000002: # Copyright: Public domain.
045417,000003: # Filename: JET_SELECTION_LOGIC.agc
045418,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
045419,000005: # build 072. This is for the Command Module's (CM)
045420,000006: # Apollo Guidance Computer (AGC), we believe for
045421,000007: # Apollo 15-17.
045422,000008: # Assembler: yaYUL
045423,000009: # Contact: Sergio Navarro <sergionavarrog@gmail.com>
045424,000010: # Website: www.ibiblio.org/apollo/index.html
045425,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
045426,000012: # Mod history: 2009-08-27 SN Adapted from corresponding Comanche 055 file.
045427,000013: # 2009-09-09 JL Fixed typos.
045428,000014: # 2010-02-20 RSB Un-##'d this header.
045429,000015:
045430,000016: # # Page 1038
045431,000017: 17,2000 SETLOC DAPS4
045432,000018: 17,2000 BANK
045433,000019:
045434,000020: 17,2541 COUNT* $$/DAPJS
045435,000021: 17,2541 E6,1510 EBANK= KMPAC
045436,000022:
045437,000023: # EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS
045438,000024:
045439,000025: 17,2541 22016 JETSLECT LXCH BANKRUPT
045440,000026: 17,2542 32624 CAF DELTATT3 # = 60 MS RESET TO EXECUTIVE PHASE1
045441,000027: 17,2543 61634 AD T5TIME
045442,000028: 17,2544 54030 TS TIME5
045443,000029: 17,2545 12550 TCF +3
045444,000030: 17,2546 37663 CAF DELATT20 # = 20 MS TO ASSURE A T5RUPT
045445,000031: 17,2547 54030 TS TIME5
045446,000032: 17,2550 33302 CAF =14MS # RESET T6 TO INITIALIZE THE JET CHANNELS
045447,000033: 17,2551 54031 TS TIME6 # IN 14 MS
045448,000034: 17,2552 00006 EXTEND
045449,000035: 17,2553 22012 QXCH QRUPT
045450,000036: 17,2554 04542 TC C13STALL
045451,000037: 17,2555 34752 CAF NEGMAX
045452,000038: 17,2556 00006 EXTEND
045453,000039: 17,2557 05013 WOR CHAN13
045454,000040: 17,2560 32623 CAF XLNMASK # = 7700 OCT
045455,000041: 17,2561 00006 EXTEND # EXAMINE THE TRANSLATION
045456,000042: 17,2562 06031 RXOR CHAN31 # HAND CONTROLLER
045457,000043: 17,2563 72623 MASK XLNMASK
045458,000044: 17,2564 00006 EXTEND
045459,000045: 17,2565 12625 BZF NOXLNCMD
045460,000046: 17,2566 55502 TS T5TEMP
045461,000047: 17,2567 00006 EXTEND
045462,000048: 17,2570 74760 MP BIT9
045463,000049: 17,2571 76214 MASK THREE
045464,000050: 17,2572 55513 TS XNDX1 # AC QUAD X-TRANSLATION INDEX
045465,000051: 17,2573 55514 TS XNDX2 # BD QUAD X-TRANSLATION INDEX
045466,000052: 17,2574 31502 CA T5TEMP
045467,000053: 17,2575 00006 EXTEND # 1 = + XLN
045468,000054: 17,2576 74762 MP BIT7 # 2 = - XLN
045469,000055: 17,2577 76214 MASK THREE # 3 = NO XLN
045470,000056: 17,2600 55515 TS YNDX # Y-TRANSLATION INDEX
045471,000057:
045472,000058: 17,2601 31502 CA T5TEMP
045473,000059: 17,2602 00006 EXTEND
045474,000060: 17,2603 74764 MP BIT5
045475,000061: 17,2604 76214 MASK THREE
045476,000062: 17,2605 55516 TS ZNDX # Z-TRANSLATION INDEX
045477,000063:
045478,000064: 17,2606 31465 CA DAPDATR1 # SET ATTKALMN TO PICK UP FILTER GAINS FOR
045479,000065: 17,2607 74753 MASK BIT14 # TRANSLATIONS.
045480,000066: 17,2610 00006 EXTEND # CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED.
045481,000067: 17,2611 12614 BZF NOLEM
045482,000068: # # Page 1039
045483,000069: 17,2612 46214 CS THREE # IF LEM IS ON, SET ATTKALMN = -3
045484,000070: 17,2613 12615 TCF +2
045485,000071: 17,2614 44767 NOLEM CS TWO # IF LEM IS OFF, SET ATTKALMN = -2.
045486,000072: 17,2615 55617 TS ATTKALMN
045487,000073: 17,2616 11631 CCS XTRANS # (+, -1, 0)
045488,000074: 17,2617 55513 TS XNDX1 # USING BD-X ZERO XNDX1
045489,000075: 17,2620 12631 TCF PWORD
045490,000076: 17,2621 55514 TS XNDX2 # USING AC-X ZERO XNDX2
045491,000077: 17,2622 12631 TCF PWORD
045492,000078: 17,2623 07700 XLNMASK OCT 7700
045493,000079:
045494,000080: 17,2624 37772 DELTATT3 DEC 16378 B-14 # = 60 MS
045495,000081: 17,2625 7663 DELATT20 = OCT37776 # = 20 MS
045496,000082: 17,2625 55513 NOXLNCMD TS XNDX1 # ZERO ALL REQUESTS FOR TRANSLATION
045497,000083: 17,2626 55514 TS XNDX2
045498,000084: 17,2627 55515 TS YNDX
045499,000085: 17,2630 55516 TS ZNDX
045500,000086:
045501,000087: # PITCH COMMANDS TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT
045502,000088:
045503,000089: 17,2631 11562 PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS
045504,000090: 17,2632 34770 CAF ONE
045505,000091: 17,2633 12635 TCF +2 # 0 = NO PITCH
045506,000092: 17,2634 34767 CAF TWO # +1 = + PITCH
045507,000093: 17,2635 55520 TS PINDEX # +2 = - PITCH
045508,000094:
045509,000095: 17,2636 11626 CCS RACFAIL # FLAG FOR REAL AC QUAD FAILURES
045510,000096: 17,2637 12643 TCF AFAILP
045511,000097: 17,2640 12653 TCF TABPCOM # 0 = NO REAL AC FAILURES
045512,000098: 17,2641 12645 TCF CFAILP # + = A QUAD FAILED
045513,000099: 17,2642 12653 TCF TABPCOM # - = C QUAD FAILED
045514,000100: # IF FAILURES ARE PRESENT IGNORE
045515,000101: # X-TRANSLATIONS ON THIS AXIS
045516,000102:
045517,000103: 17,2643 34322 AFAILP CAF NINE # IF FAILURE IS PRESENT 1JET OPERATION
045518,000104: 17,2644 12655 TCF TABPCOM +2 # IS ASSUMED. IGNORE X-TRANSLATION
045519,000105: 17,2645 35775 CFAILP CAF TWELVE
045520,000106: 17,2646 12655 TCF TABPCOM +2
045521,000107:
045522,000108: 17,2647 00000 XLNNDX DEC 0 B-14 # INDECES FOR TRANSLATION COMMANDS
045523,000109: 17,2650 00003 DEC 3 B-14 # FOR USE IN TABLE LOOK UP
045524,000110: 17,2651 00006 DEC 6 B-14
045525,000111: 17,2652 00000 DEC 0 B-14
045526,000112:
045527,000113: 17,2653 5775 TWELVE = OCT14
045528,000114:
045529,000115: # TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT.
045530,000116: # BITS 9, 10 CONTAIN THE NUMBER OF PITCH JETS USED TO PERFORM THE PITCH ROTATION
045531,000117:
045532,000118: 17,2653 51513 TABPCOM INDEX XNDX1
045533,000119: # # Page 1040
045534,000120: 17,2654 32647 CA XLNNDX
045535,000121: 17,2655 61520 +2 AD PINDEX
045536,000122: 17,2656 50000 INDEX A
045537,000123: 17,2657 32703 CA PYTABLE
045538,000124: 17,2660 72722 MASK PJETS # =1417 OCT
045539,000125: 17,2661 55452 TS PWORD1
045540,000126: 17,2662 00006 EXTEND
045541,000127: 17,2663 74762 MP BIT7
045542,000128: 17,2664 55523 TS NPJETS # = NO. OF PITCH JETS
045543,000129:
045544,000130: # YAW JET COMMANDS TIMING(NO X-TRANS, NO QUAD FAILURES) 32MCT
045545,000131:
045546,000132: 17,2665 11563 YWORD CCS TAU2 # CHECK FOR YAW COMMANDS
045547,000133: 17,2666 34770 CAF ONE
045548,000134: 17,2667 12671 TCF +2
045549,000135: 17,2670 34767 CAF TWO
045550,000136: 17,2671 55521 TS YINDEX # YAW ROTATION INDEX
045551,000137:
045552,000138: 17,2672 11627 CCS RBDFAIL # FLAG FOR B OR D QUAD FAILURES
045553,000139: 17,2673 12677 TCF BFAILY # 0 = NO BD FAILURE
045554,000140: 17,2674 12724 TCF TABYCOM # + = B QUAD FAILED
045555,000141: 17,2675 12701 TCF DFAILY # - = D QUAD FAILED
045556,000142: 17,2676 12724 TCF TABYCOM
045557,000143:
045558,000144: 17,2677 34322 BFAILY CAF NINE
045559,000145: 17,2700 12726 TCF TABYCOM +2
045560,000146: 17,2701 35775 DFAILY CAF TWELVE
045561,000147: 17,2702 12726 TCF TABYCOM +2
045562,000148:
045563,000149: # # Page 1041
045564,000150: # TABLE FOR PITCH(YAW) COMMANDS
045565,000151: # BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED
045566,000152: # BITS 10,9 = NO. PITCH JETS USED TO PERFORM ROTATION
045567,000153: # BITS 8,7,6,5 = YAW, X-TRANSLATION JETS SELECTED
045568,000154: # BITS 12,11: NO. YAW JETS USED TO PERFORM ROTATION
045569,000155:
045570,000156: # ROT TRANS QUAD BIAS
045571,000157: 17,2703 00000 PYTABLE OCT 0 # 0 0 0
045572,000158: 17,2704 05125 OCT 5125 # + 0 0
045573,000159: 17,2705 05252 OCT 5252 # - 0 0
045574,000160: 17,2706 00231 OCT 0231 # 0 + 3
045575,000161: 17,2707 02421 OCT 2421 # + + 3
045576,000162: 17,2710 02610 OCT 2610 # - + 3
045577,000163: 17,2711 00146 OCT 0146 # 0 - 6
045578,000164: 17,2712 02504 OCT 2504 # + - 6
045579,000165: 17,2713 02442 OCT 2442 # - - 6
045580,000166: 17,2714 00000 OCT 0 # 0 A(B) 9
045581,000167: 17,2715 02421 OCT 2421 # + A(B) 9
045582,000168: 17,2716 02442 OCT 2442 # - A(B) 9
045583,000169: 17,2717 00000 OCT 0 # 0 C(D) 12
045584,000170: 17,2720 02504 OCT 2504 # + C(D) 12
045585,000171: 17,2721 02610 OCT 2610 # - C(D) 12
045586,000172:
045587,000173: # MASKS FOR PITCH AND YAW COMMANDS
045588,000174:
045589,000175: 17,2722 01417 PJETS OCT 1417
045590,000176: 17,2723 06360 YJETS OCT 6360
045591,000177:
045592,000178: # TABLE LOOK UP FOR YAW COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT
045593,000179: # BITS 11, 12 CONTAIN THE NUMBER OF YAW JETS USED TO PERFORM THE YAW ROTATION
045594,000180:
045595,000181: 17,2724 51514 TABYCOM INDEX XNDX2
045596,000182: 17,2725 32647 CA XLNNDX
045597,000183: 17,2726 61521 +2 AD YINDEX
045598,000184: 17,2727 50000 INDEX A
045599,000185: 17,2730 32703 CA PYTABLE
045600,000186: 17,2731 72723 MASK YJETS # = 6360 OCT
045601,000187: 17,2732 55454 TS YWORD1
045602,000188: 17,2733 00006 EXTEND
045603,000189: 17,2734 74764 MP BIT5
045604,000190: 17,2735 55524 TS NYJETS # NO. OF YAW JETS USED TO PERFORM ROTATION
045605,000191:
045606,000192: # # Page 1042
045607,000193:
045608,000194: # ROLL COMMANDS TIMING(NO Y,Z TRANS, NO QUAD FAILS) 45MCT
045609,000195:
045610,000196: 17,2736 11561 RWORD CCS TAU # CHECK FOR ROLL COMMANDS
045611,000197: 17,2737 34770 CAF ONE
045612,000198: 17,2740 12742 TCF +2
045613,000199: 17,2741 34767 CAF TWO
045614,000200: 17,2742 55517 TS RINDEX
045615,000201:
045616,000202: 17,2743 11630 CCS ACORBD # FLAG FOR AC OR BD QUAD SELECTION FOR
045617,000203: 17,2744 13035 TCF BDROLL # ROLL COMMANDS
045618,000204: 17,2745 13035 TCF BDROLL # +, +0 = BD ROLL
045619,000205: 17,2746 12747 TCF +1 # -, -0 = AC ROLL
045620,000206:
045621,000207: 17,2747 11626 ACROLL CCS RACFAIL # CHECK FOR REAL FAILURES
045622,000208: 17,2750 12754 TCF RAFAIL # ON AC QUADS
045623,000209: 17,2751 12764 TCF RXLNS
045624,000210: 17,2752 12756 TCF RCFAIL
045625,000211: 17,2753 12764 TCF RXLNS
045626,000212:
045627,000213: 17,2754 34322 RAFAIL CAF NINE # QUAD FAILURE WILL GET
045628,000214: 17,2755 12766 TCF TABRCOM # 1-JET OPERATION
045629,000215: 17,2756 35775 RCFAIL CAF TWELVE
045630,000216: 17,2757 12766 TCF TABRCOM
045631,000217:
045632,000218: 17,2760 00000 XLN1NDX DEC 0 B-14
045633,000219: 17,2761 00001 DEC 1 B-14 # INDECES FOR TRANSLATION
045634,000220: 17,2762 00002 DEC 2 B-14
045635,000221: 17,2763 00000 DEC 0 B-14
045636,000222:
045637,000223: # TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT
045638,000224: # BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL
045639,000225:
045640,000226: 17,2764 51515 RXLNS INDEX YNDX # NO AC QUAD FAILURES
045641,000227: 17,2765 32647 CA XLNNDX # INCLUDE +,-,0, Y-TRANSLATION
045642,000228: 17,2766 61517 TABRCOM AD RINDEX
045643,000229: 17,2767 50000 INDEX A
045644,000230: 17,2770 33117 CA RTABLE
045645,000231: 17,2771 73136 MASK ACRJETS # = 3760 OCT
045646,000232: 17,2772 55450 TS RWORD1
045647,000233:
045648,000234: # CHECK FOR Z-TRANSLATIONS ON BD
045649,000235:
045650,000236: 17,2773 31516 BDZCHECK CA ZNDX
045651,000237: 17,2774 00006 EXTEND
045652,000238: 17,2775 63027 BZMF NOBDZ # NO Z-TRANSLATION
045653,000239:
045654,000240: # # Page 1043
045655,000241: # TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES. Z-TRANSLATION WILL BE POSS-
045656,000242: # IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS. CRITERION.. IF THE RESULTANT NET ROLL
045657,000243: # COMMANDS = 0 (WITH Z-TRANSLATION) AND IF TAU = 0, THEN INCLUDE THE BD Z-TRANSLATION COMMANDS. IF THE RESULTANT
045658,000244: # ROLL COMMAND = 0, AND IF TAU NZ, THEN IGNORE THE BD Z-TRANSLATION
045659,000245:
045660,000246: 17,2776 11627 CCS RBDFAIL
045661,000247: 17,2777 36214 CAF THREE
045662,000248: 17,3000 13002 TCF +2
045663,000249: 17,3001 36211 CAF SIX
045664,000250: 17,3002 51516 INDEX ZNDX
045665,000251: 17,3003 62760 AD XLN1NDX
045666,000252: 17,3004 50000 INDEX A
045667,000253: 17,3005 33140 CA YZTABLE
045668,000254: 17,3006 73151 MASK BDZJETS # = 3417 OCT
045669,000255: 17,3007 61450 AD RWORD1 # ADD TO ROLL COMMANDS
045670,000256: 17,3010 55502 TS T5TEMP # IF POSSIBLE. MUST CHECK TAU FIRST
045671,000257:
045672,000258: 17,3011 00006 EXTEND
045673,000259: 17,3012 74762 MP BIT7 # DETERMINE THE NET ROLL COMMAND WITH
045674,000260: 17,3013 66061 AD =-4 # Z-TRANSLATION ADDED ON
045675,000261: 17,3014 55522 TS NRJETS # NET NO. OF +,- ROLL JETS ON
045676,000262: 17,3015 00006 EXTEND
045677,000263: 17,3016 13022 BZF TAUCHECK
045678,000264:
045679,000265: 17,3017 31502 ACRBDZ CA T5TEMP # Z-TRANSLATION ACCEPTED EVEN THO WE MAY
045680,000266: 17,3020 55450 TS RWORD1 # HAVE INTRODUCED AN UNDESIRABLE ROLL
045681,000267: 17,3021 13263 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS
045682,000268:
045683,000269: 17,3022 11561 TAUCHECK CCS TAU
045684,000270: 17,3023 13027 TCF NOBDZ
045685,000271: 17,3024 13017 TCF ACRBDZ
045686,000272: 17,3025 13027 TCF NOBDZ
045687,000273: 17,3026 13017 TCF ACRBDZ
045688,000274:
045689,000275: 17,3027 31450 NOBDZ CA RWORD1 # Z-TRANSLATION NOT ACCEPTED
045690,000276: 17,3030 00006 EXTEND
045691,000277: 17,3031 74762 MP BIT7
045692,000278: 17,3032 67701 AD =-2
045693,000279: 17,3033 55522 TS NRJETS
045694,000280: 17,3034 13263 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATION
045695,000281:
045696,000282: # # Page 1044
045697,000283: # BD QUAD SELECTION FOR ROLL COMMANDS
045698,000284:
045699,000285: 17,3035 11627 BDROLL CCS RBDFAIL
045700,000286: 17,3036 13042 TCF RBFAIL
045701,000287: 17,3037 13046 TCF RZXLNS
045702,000288: 17,3040 13044 TCF RDFAIL
045703,000289: 17,3041 13046 TCF RZXLNS
045704,000290: 17,3042 34322 RBFAIL CAF NINE
045705,000291: 17,3043 13050 TCF TABRZCMD
045706,000292: 17,3044 35775 RDFAIL CAF TWELVE
045707,000293: 17,3045 13050 TCF TABRZCMD
045708,000294:
045709,000295: 17,3046 51516 RZXLNS INDEX ZNDX # NO BD FAILURES
045710,000296: 17,3047 32647 CA XLNNDX # +,-,0 Z-TRANSLATION PRESENT
045711,000297: 17,3050 61517 TABRZCMD AD RINDEX
045712,000298: 17,3051 50000 INDEX A
045713,000299: 17,3052 33117 CA RTABLE
045714,000300: 17,3053 73137 MASK BDRJETS # = 34017 OCT
045715,000301: 17,3054 55450 TS RWORD1
045716,000302:
045717,000303: 17,3055 31515 ACYCHECK CA YNDX # ANY Y-TRANSLATION
045718,000304: 17,3056 00006 EXTEND
045719,000305: 17,3057 13111 BZF NOACY # NO Y-TRANSLATION
045720,000306: 17,3060 11626 CCS RACFAIL
045721,000307: 17,3061 36214 CAF THREE
045722,000308: 17,3062 13064 TCF +2
045723,000309: 17,3063 36211 CAF SIX
045724,000310: 17,3064 51515 INDEX YNDX
045725,000311: 17,3065 62760 AD XLN1NDX
045726,000312: 17,3066 50000 INDEX A
045727,000313: 17,3067 33140 CA YZTABLE
045728,000314: 17,3070 73152 MASK ACYJETS # = 34360 OCT
045729,000315: 17,3071 61450 AD RWORD1
045730,000316: 17,3072 55502 TS T5TEMP
045731,000317: 17,3073 00006 EXTEND # FOR EXPLANATION SEE CODING ON RTABLE
045732,000318: 17,3074 74765 MP BIT4
045733,000319: 17,3075 66061 AD =-4
045734,000320: 17,3076 55522 TS NRJETS # NO. OF NET ROLL JETS
045735,000321: 17,3077 00006 EXTEND
045736,000322: 17,3100 13104 BZF TAUCHCK # IF NRJETS = 0
045737,000323:
045738,000324: 17,3101 31502 BDRACZ CA T5TEMP # Y-TRANSLATION ACCEPTED
045739,000325: 17,3102 55450 TS RWORD1
045740,000326: 17,3103 13263 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS
045741,000327:
045742,000328: 17,3104 11561 TAUCHCK CCS TAU
045743,000329: 17,3105 13111 TCF NOACY
045744,000330: 17,3106 13101 TCF BDRACZ
045745,000331: 17,3107 13111 TCF NOACY
045746,000332: 17,3110 13101 TCF BDRACZ
045747,000333:
045748,000334: # # Page 1045
045749,000335: 17,3111 31450 NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED
045750,000336: 17,3112 00006 EXTEND
045751,000337: 17,3113 74765 MP BIT4
045752,000338: 17,3114 67701 AD =-2
045753,000339: 17,3115 55522 TS NRJETS
045754,000340: 17,3116 13263 TCF ROLLTIME
045755,000341:
045756,000342: # # Page 1046
045757,000343:
045758,000344: # TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS
045759,000345:
045760,000346: # EITHER AC OR BD ROLL MAY BE SELECTED. IF AC ROLL IS SELECTED, Y-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY
045761,000347: # PROVIDED THAT THERE ARE NO AC QUAD FAILURES. IF THERE ARE AC FAILURES, Y-TRANSLATION COMMANDS WILL BE IGNORED,
045762,000348: # IN WHICH CASE THE ASTRONAUT SHOULD SWITCH TO BD ROLL.
045763,000349: # IF BDROLL IS SELECTED, Z-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY PROVIDED THAT THERE ARE NO BD QUAD
045764,000350: # FAILURES. IF THERE ARE BD FAILURES, Z-TRANSLATION COMMANDS WILL BE IGNORED, IN WHICH CASE THE ASTRONAUT SHOULD
045765,000351: # SWITCH TO AC ROLL.
045766,000352: # NOTE THAT IF ONE QUAD FAILS (E.G. B FAILED), Z-TRANSLATION IS STILL POSSIBLE AND THAT THE UNDESIREABLE ROLL
045767,000353: # INTRODUCED BY THIS TRANSLATION WILL BE COMPENSATED BY THE TWO AC ROLL JETS ACTUATED BY THE AUTOPILOT LOGIC.
045768,000354:
045769,000355: # WORD MAKE UP....RTABLE
045770,000356:
045771,000357: # TWO WORDS, CORRESPONDING TO AC OR BD ROLL SELECTION, HAVE BEEN COMBINED INTO ONE TABLE. THE WORD CORRESPOND-
045772,000358: # ING TO AC ROLL HAS THE FOLLOWING INTERPRETATION..
045773,000359: # BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE FOR THE WORD SELECTED. THE CODING IS:
045774,000360:
045775,000361: # BIT NO. 11 10 9 NO. OF ROLL JETS
045776,000362:
045777,000363: # 0 0 0 -2
045778,000364: # 0 0 1 -1
045779,000365: # 0 1 0 0
045780,000366: # 0 1 1 +1
045781,000367: # 1 0 0 +2
045782,000368:
045783,000369:
045784,000370: # THIS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM THE YZ-TRANSLATION TABLE, WHICH HAS THE SAME TYPE OF
045785,000371: # CODING AS ABOVE, AND THE NET ROLL DETERMINED BY SHIFTING THE RESULTANT WORD RIGHT 8 PLACES AND SUBTRACTING FOUR.
045786,000372:
045787,000373: # THE WORD CORRESPONDING TO THE BD ROLL HAS A SIMILAR INTEPRETATION, EXCEPT THAT BITS 12, 13, 14 ARE CODED
045788,000374: # (AS ABOVE) TO GIVE THE NET ROLL TORQUE.
045789,000375:
045790,000376:
045791,000377: # ROLL TRANS QUADFAIL BIAS
045792,000378:
045793,000379: 17,3117 11000 RTABLE OCT 11000 # 0 0
045794,000380: 17,3120 22125 OCT 22125 # + 0
045795,000381: 17,3121 00252 OCT 00252 # - 0
045796,000382: 17,3122 11231 OCT 11231 # 0 +Y(+Z) 3
045797,000383: 17,3123 15421 OCT 15421 # + +Y(+Z) 3
045798,000384: 17,3124 04610 OCT 04610 # - +Y(+Z) 3
045799,000385: 17,3125 11146 OCT 11146 # 0 -Y(-Z) 6
045800,000386: 17,3126 15504 OCT 15504 # + -Y(-Z) 6
045801,000387: 17,3127 04442 OCT 04442 # - -Y(-Z) 6
045802,000388: 17,3130 11000 OCT 11000 # 0 A(B) 9
045803,000389: 17,3131 15504 OCT 15504 # + A(B) 9
045804,000390: 17,3132 04610 OCT 04610 # - A(B) 9
045805,000391: 17,3133 11000 OCT 11000 # 0 C(D) 12
045806,000392: 17,3134 15421 OCT 15421 # + C(D) 12
045807,000393: 17,3135 04442 OCT 04442 # - C(D) 12
045808,000394:
045809,000395: # # Page 1047
045810,000396: # RTABLE MASKS -
045811,000397:
045812,000398: 17,3136 03760 ACRJETS OCT 03760
045813,000399: 17,3137 34017 BDRJETS OCT 34017
045814,000400:
045815,000401: # # Page 1048
045816,000402: # Y, Z TRANSLATION TABLE
045817,000403:
045818,000404: # ONCE AC OR BD ROLL IS SELECTED THE QUAD PAIR WHICH IS NOT BEING USED TO SATISFY THE ROLL COMMANDS MAY BE
045819,000405: # USED TO SATISFY THE REMAINING TRANSLATION COMMANDS. HOWEVER, WE MUST MAKE SURE THAT ROLL COMMANDS ARE SATISFIED
045820,000406: # WHEN THEY OCCUR. THEREFORE, THE Y-Z TRANSLATIONS FROM THIS TABLE WILL BE IGNORED IF THE NET ROLL TORQUE OF THE
045821,000407: # COMBINED WORD IS ZERO AND THE ROLL COMMANDS ARE NON-ZERO. THIS SITUATION WOULD OCCUR, FOR EXAMPLE, IF WE EN-
045822,000408: # COUNTER SIMULTANEOUS +R +Y -Z COMMANDS AND A QUAD D FAILURE WHILE USING AC FOR ROLL.
045823,000409: # TO FACILITATE THE LOGIC, THE Y-Z TRANSLATION TABLE HAS BEEN CODED IN A MANNER SIMILAR TO THE ROLL TABLE
045824,000410: # ABOVE.
045825,000411: # BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Z-TRANSLATIONS. THE WORD SELECTED CAN THEN BE
045826,000412: # ADDED TO THE AC-ROLL WORD AND THE RESULTANT ROLL TORQUE DETERMINED FROM THE COMBINED WORD. SIMILARLY BITS
045827,000413: # 12,13,14 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Y-TRANSLATIONS WHEN BD-ROLL IS SELECTED.
045828,000414:
045829,000415: # TRANSLATION QUADFAIL BIAS
045830,000416:
045831,000417: 17,3140 11000 YZTABLE OCT 11000 # 0 0
045832,000418: 17,3141 11231 OCT 11231 # +Z(+Y) 0
045833,000419: 17,3142 11146 OCT 11146 # -Z(-Y) 0
045834,000420: 17,3143 11000 OCT 11000 # 0 B(A) 3
045835,000421: 17,3144 04610 OCT 04610 # +Z(+Y) B(A) 3
045836,000422: 17,3145 15504 OCT 15504 # -Z(-Y) B(A) 3
045837,000423: 17,3146 11000 OCT 11000 # 0 D(C) 6
045838,000424: 17,3147 15421 OCT 15421 # +Z(+Y) D(C) 6
045839,000425: 17,3150 04442 OCT 04442 # -Z(-Y) D(C) 6
045840,000426:
045841,000427: # YZ-TABLE MASKS-
045842,000428:
045843,000429: 17,3151 03417 BDZJETS OCT 03417
045844,000430: 17,3152 34360 ACYJETS OCT 34360
045845,000431:
045846,000432: # ADDITIONAL CONSTANTS
045847,000433:
045848,000434: 17,3153 7701 =-2 = NEG2
045849,000435: 17,3153 6061 =-4 = NEG4
045850,000436:
045851,000437: # # Page 1049
045852,000438: # CALCULATION OF JET ON-TIMES
045853,000439:
045854,000440: # THE ROTATION COMMANDS (TAU'S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET
045855,000441: # OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS. TAU MUST
045856,000442: # ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5
045857,000443: # INTERVAL.
045858,000444: # IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES
045859,000445: # (DFT'S, ALSO IN TERMS OF 1-JET OPERATION) FOR THE RATE FILTER.
045860,000446: # NOTE THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO ROTATIONS WERE CALLED FOR. NEVERTHELESS, WE MUST
045861,000447: # UPDATE DFT.
045862,000448: # WHEN THE ROTATIONS HAVE FINISHED, WE MUST PROVIDE CHANNEL INFORMATION TO THE T6 PROGRAM TO CONTINUE ON WITH
045863,000449: # THE TRANSLATIONS. THIS WILL BE DONE IN THE NEXT SECTION. HOWEVER, TO INSURE THAT JETS ARE NOT FIRED FOR LESS
045864,000450: # THAN A MINIMUM IMPULSE (14MS), ALL JET CHANNEL COMMANDS WILL BE HELD FIXED FROM THE START OF THE T5 PROGRAM FOR
045865,000451: # AT LEAST 14MS UNTIL THE INITIALIZATION OF NEW COMMANDS. MOREOVER, A 14MS ON-TIME WILL BE ADDED TO ANY ROTATIONAL
045866,000452: # COMMANDS GENERATED BY THE MANUAL CONTROLS OR THE JET SWITCHING LOGIC, AND ALL TRANSLATION COMMANDS WILL BE
045867,000453: # ACTIVE FOR AT LEAST ONE CYCLE OF THE T5 PROGRAM (.1SEC)
045868,000454:
045869,000455: # PITCH JET ON-TIME CALCULATION
045870,000456:
045871,000457: 17,3153 11562 PITCHTIM CCS TAU1
045872,000458: 17,3154 13163 TCF PTAUPOS
045873,000459: 17,3155 13157 TCF +2
045874,000460: 17,3156 13161 TCF PTAUNEG
045875,000461: 17,3157 55550 TS DFT1 # NO PITCH ROTATION
045876,000462: 17,3160 13361 TCF PBYPASS # COMMANDS
045877,000463:
045878,000464: 17,3161 41523 PTAUNEG CS NPJETS
045879,000465: 17,3162 55523 TS NPJETS
045880,000466: 17,3163 31562 PTAUPOS CA TAU1
045881,000467: 17,3164 00006 EXTEND
045882,000468: 17,3165 51523 INDEX NPJETS
045883,000469: 17,3166 73342 MP NJET
045884,000470: 17,3167 55460 TS BLAST1
045885,000471: 17,3170 63275 AD =-.1SEC
045886,000472: 17,3171 00006 EXTEND
045887,000473: 17,3172 63203 BZMF AD14MSP
045888,000474: 17,3173 51523 INDEX NPJETS
045889,000475: 17,3174 33276 CA DFTMAX # THE PITCH ON-TIME IS GREATER THAN .1 SEC
045890,000476: 17,3175 55550 TS DFT1
045891,000477: 17,3176 40000 COM
045892,000478: 17,3177 27562 ADS TAU1 # UPDATE TAU1
045893,000479: 17,3200 33277 CAF =+.1SEC # LIMIT THE LENGTH OF PITCH ROTATION
045894,000480: 17,3201 55460 TS BLAST1 # COMMANDS TO 0.1 SEC SO THAT ONLY
045895,000481: 17,3202 13346 TCF ASMBLWP # X-TRANSLATIONS WILL CONTINUE ON SWITCH
045896,000482: # OVER TO TVC
045897,000483: 17,3203 41460 AD14MSP CS BLAST1 # SEE IF JET ON TIME IS LESS THAN
045898,000484: 17,3204 63302 AD =14MS # MINIMUM IMPULSE TIME
045899,000485: 17,3205 00006 EXTEND
045900,000486: 17,3206 63211 BZMF PBLASTOK # IF SO LIMIT MINIMUM ON TIME TO 14 MS
045901,000487: 17,3207 33302 CAF =14MS
045902,000488: # # Page 1050
045903,000489: 17,3210 55460 TS BLAST1
045904,000490: 17,3211 31460 PBLASTOK CA BLAST1
045905,000491: 17,3212 00006 EXTEND # THE PITCH COMMANDS WILL BE COMPLETED
045906,000492: 17,3213 71523 MP NPJETS # WITHIN THE TS-CYCLE TIME
045907,000493: 17,3214 23550 LXCH DFT1 # FOR USE IN UPDATING RATE FILTER
045908,000494: 17,3215 55562 TS TAU1 # ZERO TAU1 (ACC CONTAINS ZERO)
045909,000495: 17,3216 13346 TCF ASMBLWP
045910,000496:
045911,000497: # # Page 1051
045912,000498: # YAW JET ON-TIME CALCULATION
045913,000499:
045914,000500: 17,3217 11563 YAWTIME CCS TAU2
045915,000501: 17,3220 13227 TCF YTAUPOS
045916,000502: 17,3221 13223 TCF +2
045917,000503: 17,3222 13225 TCF YTAUNEG
045918,000504: 17,3223 55551 TS DFT2 # NO YAW ROTATION COMMANDS
045919,000505: 17,3224 13525 TCF YBYPASS
045920,000506:
045921,000507: 17,3225 41524 YTAUNEG CS NYJETS
045922,000508: 17,3226 55524 TS NYJETS
045923,000509: 17,3227 31563 YTAUPOS CA TAU2
045924,000510: 17,3230 00006 EXTEND
045925,000511: 17,3231 51524 INDEX NYJETS
045926,000512: 17,3232 73342 MP NJET
045927,000513: 17,3233 55462 TS BLAST2
045928,000514: 17,3234 63275 AD =-.1SEC
045929,000515: 17,3235 00006 EXTEND
045930,000516: 17,3236 63247 BZMF AD14MSY
045931,000517: 17,3237 51524 INDEX NYJETS
045932,000518: 17,3240 33276 CA DFTMAX # YAW COMMANDS WILL LAST LONGER THAN .1SEC
045933,000519: 17,3241 55551 TS DFT2
045934,000520: 17,3242 40000 COM
045935,000521: 17,3243 27563 ADS TAU2 # DECREMENT TAU2
045936,000522: 17,3244 33277 CAF =+.1SEC # LIMIT THE LENGTH OF YAW ROTATION COMMAND
045937,000523: 17,3245 55462 TS BLAST2 # TO 0.1 SEC SO THAT ONLY X-TRANSLATION
045938,000524: 17,3246 13512 TCF ASMBLWY # WILL CONTINUE ON SWITCH OVER TO TVC
045939,000525:
045940,000526: 17,3247 41462 AD14MSY CS BLAST2 # SEE IF JET ON-TIME LESS THAN
045941,000527: 17,3250 63302 AD =14MS # MINIMUM IMPULSE TIME
045942,000528: 17,3251 00006 EXTEND
045943,000529: 17,3252 63255 BZMF YBLASTOK # IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
045944,000530: 17,3253 33302 CAF =14MS
045945,000531: 17,3254 55462 TS BLAST2
045946,000532: 17,3255 31462 YBLASTOK CA BLAST2 # YAW COMMANDS WILL BE COMPLETED WITHIN
045947,000533: 17,3256 00006 EXTEND # THE T5CYCLE TIME
045948,000534: 17,3257 71524 MP NYJETS
045949,000535: 17,3260 23551 LXCH DFT2
045950,000536: 17,3261 55563 TS TAU2 # ZERO TAU2
045951,000537: 17,3262 13512 TCF ASMBLWY
045952,000538:
045953,000539: # # Page 1052
045954,000540: # ROLL ON-TIME CALCULATION-
045955,000541:
045956,000542: 17,3263 11561 ROLLTIME CCS TAU
045957,000543: 17,3264 13303 TCF RBLAST
045958,000544: 17,3265 13267 TCF +2
045959,000545: 17,3266 13303 TCF RBLAST
045960,000546: 17,3267 51522 INDEX NRJETS
045961,000547: 17,3270 33276 CA DFTMAX # UPDATE DFT EVEN THO NO ROLL COMMANDS ARE
045962,000548: 17,3271 55547 TS DFT # PRESENT
045963,000549: 17,3272 13505 TCF RBYPASS
045964,000550:
045965,000551: 17,3273 77037 DEC -480 B-14 # = -.3SEC
045966,000552: 17,3274 77277 DEC -320 B-14 # = -.2SEC
045967,000553: 17,3275 77537 =-.1SEC DEC -160 B-14 # = -.1SEC
045968,000554: 17,3276 00000 DFTMAX DEC 0 B-14 # 0
045969,000555: 17,3277 00240 =+.1SEC DEC 160 B-14 # = +.1SEC
045970,000556: 17,3300 00500 DEC 320 B-14 # = +.2SEC
045971,000557: 17,3301 00740 DEC 480 B-14 # = +.3SEC
045972,000558: 17,3302 00027 =14MS DEC 23 B-14 # =14MS
045973,000559:
045974,000560: 17,3303 31561 RBLAST CA TAU
045975,000561: 17,3304 00006 EXTEND
045976,000562: 17,3305 51522 INDEX NRJETS
045977,000563: 17,3306 73342 MP NJET
045978,000564: 17,3307 55456 TS BLAST # BLAST IS AN INTERMEDIATE VARIABLE
045979,000565: # USED IN DETERMINING THE JET ON-TIMES
045980,000566: 17,3310 63275 AD =-.1SEC
045981,000567: 17,3311 00006 EXTEND
045982,000568: 17,3312 63323 BZMF AD14MSR
045983,000569: 17,3313 51522 INDEX NRJETS # THE ROLL ROTATION WILL LAST LONGER
045984,000570: 17,3314 33276 CA DFTMAX # THAN THE T5 CYCLE TIME
045985,000571: 17,3315 55547 TS DFT
045986,000572: 17,3316 40000 COM
045987,000573: 17,3317 27561 ADS TAU
045988,000574: 17,3320 33277 CAF =+.1SEC # LIMIT THE LENGTH OF ROLL ROTATION
045989,000575: 17,3321 55456 TS BLAST # COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z
045990,000576: 17,3322 13366 TCF ASMBLWR # TRANSLATION COMMANDS CONTINUE
045991,000577:
045992,000578: 17,3323 41456 AD14MSR CS BLAST # SEE IF THE JET ON-TIME LESS THAN
045993,000579: 17,3324 63302 AD =14MS # MINIMUM IMPULSE TIME
045994,000580: 17,3325 00006 EXTEND
045995,000581: 17,3326 63331 BZMF RBLASTOK
045996,000582: 17,3327 33302 CAF =14MS # IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
045997,000583: 17,3330 55456 TS BLAST
045998,000584: 17,3331 31456 RBLASTOK CA BLAST
045999,000585: 17,3332 00006 EXTEND
046000,000586: 17,3333 71522 MP NRJETS
046001,000587: 17,3334 23547 LXCH DFT
046002,000588: 17,3335 55561 TS TAU # ZERO TAU
046003,000589: 17,3336 13366 TCF ASMBLWR
046004,000590:
046005,000591: # # Page 1053
046006,000592: 17,3337 65252 DEC -.333333 # = -1/3
046007,000593: 17,3340 57777 DEC -.500000 # = -1/2
046008,000594: 17,3341 40000 DEC -.999999 # = -1 (NEGMAX)
046009,000595: 17,3342 00000 NJET DEC 0 B-14
046010,000596: 17,3343 37777 DEC .999999 # = +1 (POSMAX)
046011,000597: 17,3344 20000 DEC .500000 # = +1/2
046012,000598: 17,3345 12525 DEC .333333 # = +1/3
046013,000599:
046014,000600: # # Page 1054
046015,000601: # WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH
046016,000602: # CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT.
046017,000603: # IN THIS SECTION THESE NEW COMMANDS ARE GENERATED AND STORED FOR REPLACEMENT OF THE CHANNEL COMMANDS WHEN THE
046018,000604: # CORRESPONDING ROTATIONS ARE COMPLETED.
046019,000605:
046020,000606: # GENERATION OF THE SECOND PITCH(X-TRANS) WORD...PWORD2
046021,000607:
046022,000608: 17,3346 11626 ASMBLWP CCS RACFAIL
046023,000609: 17,3347 13355 TCF FPX2 # IF FAILURE ON AC IGNORE X-TRANSLATION
046024,000610: 17,3350 13352 TCF +2
046025,000611: 17,3351 13355 TCF FPX2
046026,000612: 17,3352 51513 INDEX XNDX1
046027,000613: 17,3353 32647 CA XLNNDX
046028,000614: 17,3354 50000 INDEX A
046029,000615: 17,3355 32703 FPX2 CA PYTABLE
046030,000616: 17,3356 72722 MASK PJETS
046031,000617: 17,3357 55453 TS PWORD2
046032,000618: 17,3360 13217 TCF YAWTIME
046033,000619:
046034,000620: 17,3361 31452 PBYPASS CA PWORD1 # THE T6 PROGRAM WILL LOAD PWORD2
046035,000621: 17,3362 55453 TS PWORD2 # UPON ENTRY
046036,000622: 17,3363 34772 CAF ZERO
046037,000623: 17,3364 55460 TS BLAST1 # THERE IS NO PWORD2
046038,000624: 17,3365 13217 TCF YAWTIME
046039,000625:
046040,000626: # # Page 1055
046041,000627: # GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2)
046042,000628:
046043,000629: 17,3366 11515 ASMBLWR CCS YNDX # CHECK FOR Y-TRANS
046044,000630: 17,3367 13377 TCF ACBD2Y
046045,000631: 17,3370 34772 NO2Y CAF ZERO
046046,000632: 17,3371 55451 +1 TS RWORD2
046047,000633: 17,3372 11516 CCS ZNDX # CHECK FOR Z-TRANS
046048,000634: 17,3373 13442 TCF ACBD2Z
046049,000635: 17,3374 34772 NO2Z CAF ZERO
046050,000636: 17,3375 27451 +1 ADS RWORD2
046051,000637: 17,3376 13153 TCF PITCHTIM # RWORD2 ASSEMBLED
046052,000638:
046053,000639: 17,3377 11630 ACBD2Y CCS ACORBD
046054,000640: 17,3400 13415 TCF AC2Y # CAN DO Y-TRANS
046055,000641: 17,3401 13415 TCF AC2Y
046056,000642: 17,3402 13403 TCF +1 # USING AC FOR ROLL
046057,000643: 17,3403 11626 CCS RACFAIL
046058,000644: 17,3404 13370 TCF NO2Y # USING AC AND AC HAS FAILED
046059,000645: 17,3405 13407 TCF +2
046060,000646: 17,3406 13370 TCF NO2Y # DITTO
046061,000647:
046062,000648: 17,3407 51515 INDEX YNDX # NO FAILURES, CAN DO Y
046063,000649: 17,3410 32647 CA XLNNDX
046064,000650: 17,3411 50000 INDEX A
046065,000651: 17,3412 33117 CA RTABLE
046066,000652: 17,3413 73136 MASK ACRJETS
046067,000653: 17,3414 13371 TCF NO2Y +1
046068,000654:
046069,000655: 17,3415 11626 AC2Y CCS RACFAIL
046070,000656: 17,3416 36214 CAF THREE
046071,000657: 17,3417 13421 TCF +2
046072,000658: 17,3420 36211 CAF SIX
046073,000659: 17,3421 51515 INDEX YNDX
046074,000660: 17,3422 62760 AD XLN1NDX
046075,000661: 17,3423 50000 INDEX A
046076,000662: 17,3424 33140 CA YZTABLE
046077,000663: 17,3425 73152 MASK ACYJETS
046078,000664: 17,3426 55451 TS RWORD2
046079,000665: 17,3427 00006 EXTEND
046080,000666: 17,3430 74765 MP BIT4
046081,000667: 17,3431 67701 AD =-2
046082,000668: 17,3432 55522 TS NRJETS
046083,000669: 17,3433 41456 CS BLAST
046084,000670: 17,3434 63277 AD =+.1SEC
046085,000671: 17,3435 00006 EXTEND
046086,000672: 17,3436 71522 MP NRJETS
046087,000673: 17,3437 30001 CA L
046088,000674: 17,3440 27547 ADS DFT
046089,000675: 17,3441 13372 TCF NO2Y +2
046090,000676: # # Page 1056
046091,000677: 17,3442 11630 ACBD2Z CCS ACORBD
046092,000678: 17,3443 13473 TCF BDF2Z # USING BD-ROLL
046093,000679: 17,3444 13473 TCF BDF2Z # MUST CHECK FOR BD FAILURES
046094,000680: 17,3445 13446 TCF +1
046095,000681: 17,3446 11627 CCS RBDFAIL # USING AC FOR ROLL, CAN DO Z-TRANS
046096,000682: 17,3447 36214 CAF THREE
046097,000683: 17,3450 13452 TCF +2
046098,000684: 17,3451 36211 CAF SIX
046099,000685: 17,3452 51516 INDEX ZNDX
046100,000686: 17,3453 62760 AD XLN1NDX
046101,000687: 17,3454 50000 INDEX A
046102,000688: 17,3455 33140 CA YZTABLE
046103,000689: 17,3456 73151 MASK BDZJETS
046104,000690: 17,3457 27451 ADS RWORD2
046105,000691: 17,3460 00006 EXTEND
046106,000692: 17,3461 74762 MP BIT7
046107,000693: 17,3462 67701 AD =-2
046108,000694: 17,3463 55522 TS NRJETS
046109,000695: 17,3464 41456 CS BLAST
046110,000696: 17,3465 63277 AD =+.1SEC
046111,000697: 17,3466 00006 EXTEND
046112,000698: 17,3467 71522 MP NRJETS
046113,000699: 17,3470 30001 CA L
046114,000700: 17,3471 27547 ADS DFT
046115,000701: 17,3472 13153 TCF PITCHTIM
046116,000702:
046117,000703: 17,3473 11627 BDF2Z CCS RBDFAIL
046118,000704: 17,3474 13374 TCF NO2Z # USING BD-ROLL AND BD HAS FAILED
046119,000705: 17,3475 13477 TCF +2
046120,000706: 17,3476 13374 TCF NO2Z # DITTO
046121,000707: 17,3477 51516 INDEX ZNDX
046122,000708: 17,3500 32647 CA XLNNDX
046123,000709: 17,3501 50000 INDEX A
046124,000710: 17,3502 33117 CA RTABLE
046125,000711: 17,3503 73137 MASK BDRJETS
046126,000712: 17,3504 13375 TCF NO2Z +1
046127,000713:
046128,000714: 17,3505 31450 RBYPASS CA RWORD1
046129,000715: 17,3506 55451 TS RWORD2
046130,000716: 17,3507 34772 CAF ZERO
046131,000717: 17,3510 55456 TS BLAST
046132,000718: 17,3511 13153 TCF PITCHTIM
046133,000719:
046134,000720: # # Page 1057
046135,000721: # GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2
046136,000722:
046137,000723: 17,3512 11627 ASMBLWY CCS RBDFAIL
046138,000724: 17,3513 13521 TCF FYX2 # IF FAILURE ON BD IGNORE X-TRANSLATION
046139,000725: 17,3514 13516 TCF +2
046140,000726: 17,3515 13521 TCF FYX2
046141,000727: 17,3516 51514 INDEX XNDX2
046142,000728: 17,3517 32647 CA XLNNDX
046143,000729: 17,3520 50000 INDEX A
046144,000730: 17,3521 32703 FYX2 CA PYTABLE
046145,000731: 17,3522 72723 MASK YJETS
046146,000732: 17,3523 55455 TS YWORD2
046147,000733: 17,3524 13531 TCF T6SETUP
046148,000734:
046149,000735: 17,3525 31454 YBYPASS CA YWORD1
046150,000736: 17,3526 55455 TS YWORD2
046151,000737: 17,3527 34772 CAF ZERO
046152,000738: 17,3530 55462 TS BLAST2
046153,000739:
046154,000740: # # Page 1058
046155,000741: # SORT THE JET ON-TIMES
046156,000742:
046157,000743: # AT THIS POINT ALL THE CHANNEL COMMANDS AND JET ON-TIMES HAVE BEEN DETERMINED. IN SUMMARY THESE ARE:
046158,000744:
046159,000745: # RWORD1
046160,000746: # RWORD2 BLAST
046161,000747:
046162,000748: # PWORD1
046163,000749: # PWORD2 BLAST1
046164,000750:
046165,000751: # YWORD1
046166,000752: # YWORD2 BLAST2
046167,000753:
046168,000754: # IN THIS SECTION THE JET ON-TIMES ARE SORTED AND THE SEQUENCE OF T6 INTERRUPTS IS DETERMINED. TO FACILITATE
046169,000755: # THE SORTING PROCESS AND THE T6 PROGRAM, THE VARIABLES BLAST, BLAST1, BLAST2, ARE RESERVED AS DOUBLE PRECISION
046170,000756: # WORDS. THE LOWER PART OF THESE WORDS CONTAIN A BRANCH INDEX ASSOCIATED WITH THE ROTATION AXIS OF THE HIGHER
046171,000757: # ORDER WORD.
046172,000758:
046173,000759: 17,3531 34772 T6SETUP CAF ZERO # BRANCH INDEX FOR ROLL
046174,000760: 17,3532 55457 TS BLAST +1
046175,000761: 17,3533 34766 CAF FOUR # BRANCH INDEX FOR PITCH
046176,000762: 17,3534 55461 TS BLAST1 +1
046177,000763: 17,3535 34775 CAF ELEVEN # BRANCH INDEX FOR YAW
046178,000764: 17,3536 55463 TS BLAST2 +1
046179,000765:
046180,000766: 17,3537 41456 CS BLAST
046181,000767: 17,3540 61460 AD BLAST1
046182,000768: 17,3541 00006 EXTEND
046183,000769: 17,3542 63566 BZMF DXCHT12 # T1 OR T2
046184,000770: 17,3543 41460 CHECKT23 CS BLAST1
046185,000771: 17,3544 61462 AD BLAST2
046186,000772: 17,3545 00006 EXTEND
046187,000773: 17,3546 63572 BZMF DXCHT23
046188,000774: 17,3547 41460 CALCDT6 CS BLAST1
046189,000775: 17,3550 27462 ADS BLAST2
046190,000776: 17,3551 41456 CS BLAST
046191,000777: 17,3552 27460 ADS BLAST1 # END OF SORTING PROCEDURE
046192,000778: 17,3553 00006 EXTEND # RESET T5LOC TO BEGIN PHASE1
046193,000779: 17,3554 33565 DCA RCS2CADR
046194,000780: 17,3555 52113 DXCH T5LOC
046195,000781: 17,3556 44770 ENDJETS CS BIT1 # RESET BIT1 FOR INITIALIZATION OF
046196,000782: 17,3557 71501 MASK RCSFLAGS # T6 PROGRAM
046197,000783: 17,3560 55501 TS RCSFLAGS
046198,000784: 17,3561 44772 CS ZERO # RESET T5PHASE FOR PHASE1
046199,000785: 17,3562 55464 TS T5PHASE
046200,000786: 17,3563 15323 TCF RESUME # RESUME INTERRUPTED PROGRAM
046201,000787:
046202,000788: 17,3564 E6,1510 EBANK= KMPAC
046203,000789: 17,3564 02140 42066 RCS2CADR 2CADR RCSATT
046204,000790:
046205,000791: # # Page 1059
046206,000792: 17,3566 53457 DXCHT12 DXCH BLAST
046207,000793: 17,3567 53461 DXCH BLAST1
046208,000794: 17,3570 53457 DXCH BLAST
046209,000795: 17,3571 13543 TCF CHECKT23
046210,000796:
046211,000797: 17,3572 53461 DXCHT23 DXCH BLAST1
046212,000798: 17,3573 53463 DXCH BLAST2
046213,000799: 17,3574 53461 DXCH BLAST1
046214,000800: 17,3575 41456 CS BLAST
046215,000801: 17,3576 61460 AD BLAST1
046216,000802: 17,3577 00006 EXTEND
046217,000803: 17,3600 63602 BZMF +2
046218,000804: 17,3601 13547 TCF CALCDT6
046219,000805: 17,3602 53457 DXCH BLAST
046220,000806: 17,3603 53461 DXCH BLAST1
046221,000807: 17,3604 53457 DXCH BLAST
046222,000808: 17,3605 13547 TCF CALCDT6
046223,000809:
046224,000810: # # Page 1060
046225,000811: # T6 PROGRAM AND CHANNEL SETUP
046226,000812:
046227,000813: 17,2000 SETLOC DAPS5
046228,000814: 17,2000 BANK
046229,000815:
046230,000816: 17,3606 COUNT* $$/T6RPT
046231,000817: 17,3606 22016 T6START LXCH BANKRUPT
046232,000818: 17,3607 00006 EXTEND
046233,000819: 17,3610 22012 QXCH QRUPT
046234,000820: 17,3611 10031 CCS TIME6 # CHECK TO SEE IF TIME6 WAS RESET
046235,000821: 17,3612 15323 TCF RESUME # AFTER T6RUPT OCCURRED (IN T5RUPT)
046236,000822: 17,3613 13615 TCF +2 # IF SO WAIT FOR NEXT T6RUPT BEFORE
046237,000823: 17,3614 15323 TCF RESUME # TAKING ACTION
046238,000824:
046239,000825: 17,3615 41501 CS RCSFLAGS
046240,000826: 17,3616 74770 MASK BIT1 # IF BIT1 IS 0 RESET TO 1
046241,000827: 17,3617 00006 EXTEND # AND INITIALIZE CHANNEL
046242,000828: 17,3620 13631 BZF T6RUPTOR
046243,000829: 17,3621 27501 ADS RCSFLAGS
046244,000830: 17,3622 31450 CA RWORD1
046245,000831: 17,3623 00006 EXTEND # INITIALIZE CHANNELS 5,6 WITH WORD1
046246,000832: 17,3624 01006 WRITE CHAN6
046247,000833: 17,3625 31452 CA PWORD1
046248,000834: 17,3626 61454 AD YWORD1
046249,000835: 17,3627 00006 EXTEND
046250,000836: 17,3630 01005 WRITE CHAN5
046251,000837:
046252,000838: 17,3631 11456 T6RUPTOR CCS BLAST
046253,000839: 17,3632 13711 TCF ZBLAST # ZERO BLAST1
046254,000840: 17,3633 13650 TCF REPLACE # REPLACE WORD1
046255,000841: 17,3634 13636 TCF +2
046256,000842: 17,3635 13650 TCF REPLACE
046257,000843: 17,3636 11460 T6L1 CCS BLAST1
046258,000844: 17,3637 13714 TCF ZBLAST1
046259,000845: 17,3640 13655 TCF REPLACE1
046260,000846: 17,3641 13643 TCF +2
046261,000847: 17,3642 13655 TCF REPLACE1
046262,000848: 17,3643 11462 T6L2 CCS BLAST2
046263,000849: 17,3644 13717 TCF ZBLAST2
046264,000850: 17,3645 13662 TCF REPLACE2
046265,000851: 17,3646 15323 TCF RESUME
046266,000852: 17,3647 13662 TCF REPLACE2
046267,000853:
046268,000854: 17,3650 51457 REPLACE INDEX BLAST +1
046269,000855: 17,3651 03667 TC REPLACER
046270,000856: 17,3652 44770 CS ONE
046271,000857: 17,3653 55456 TS BLAST
046272,000858: 17,3654 13636 TCF T6L1
046273,000859:
046274,000860: 17,3655 51461 REPLACE1 INDEX BLAST1 +1
046275,000861: # # Page 1061
046276,000862: 17,3656 03667 TC REPLACER
046277,000863: 17,3657 44770 CS ONE
046278,000864: 17,3660 55460 TS BLAST1
046279,000865: 17,3661 13643 TCF T6L2
046280,000866:
046281,000867: 17,3662 51463 REPLACE2 INDEX BLAST2 +1
046282,000868: 17,3663 03667 TC REPLACER
046283,000869: 17,3664 44770 CS ONE
046284,000870: 17,3665 55462 TS BLAST2
046285,000871: 17,3666 15323 TCF RESUME
046286,000872:
046287,000873: 17,3667 31451 REPLACER CA RWORD2 # INITIALIZE CHANNELS 5,6 WITH WORD2
046288,000874: 17,3670 00006 EXTEND
046289,000875: 17,3671 01006 WRITE CHAN6
046290,000876: 17,3672 00002 TC Q
046291,000877:
046292,000878: 17,3673 32723 REPLACEP CA YJETS
046293,000879: 17,3674 00006 EXTEND
046294,000880: 17,3675 02005 RAND CHAN5
046295,000881: 17,3676 61453 AD PWORD2
046296,000882: 17,3677 00006 EXTEND
046297,000883: 17,3700 01005 WRITE CHAN5
046298,000884: 17,3701 00002 TC Q
046299,000885:
046300,000886: 17,3702 32722 REPLACEY CA PJETS
046301,000887: 17,3703 00006 EXTEND
046302,000888: 17,3704 02005 RAND CHAN5
046303,000889: 17,3705 61455 AD YWORD2
046304,000890: 17,3706 00006 EXTEND
046305,000891: 17,3707 01005 WRITE CHAN5
046306,000892: 17,3710 00002 TC Q
046307,000893:
046308,000894: 17,3711 34772 ZBLAST CAF ZERO
046309,000895: 17,3712 57456 XCH BLAST
046310,000896: 17,3713 13721 TCF ENABT6
046311,000897: 17,3714 34772 ZBLAST1 CAF ZERO
046312,000898: 17,3715 57460 XCH BLAST1
046313,000899: 17,3716 13721 TCF ENABT6
046314,000900: 17,3717 34772 ZBLAST2 CAF ZERO
046315,000901: 17,3720 57462 XCH BLAST2
046316,000902: 17,3721 54031 ENABT6 TS TIME6
046317,000903: 17,3722 04542 TC C13STALL
046318,000904: 17,3723 34752 CAF NEGMAX
046319,000905: 17,3724 00006 EXTEND
046320,000906: 17,3725 05013 WOR CHAN13 # ENABLE T6RUPT
046321,000907: 17,3726 15323 TCF RESUME
046322,000908:
046323,000909: # END OF T6 INTERRUPT
046324,000910:
046325,000911: 17,3727 ENDSLECT EQUALS
046326,000912:
046327,000913: # # Page 1062 (empty page)
End of include-file JET_SELECTION_LOGIC.agc. Parent file is MAIN.agc