Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
042878,000002: ## Copyright: Public domain.
042879,000003: ## Filename: JET_SELECTION_LOGIC.agc
042880,000004: ## Purpose: A section of Skylark revision 048.
042881,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
042882,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
042883,000007: ## this software are available; instead, this file was created via
042884,000008: ## disassembly of dumps of the core rope modules actually flown on
042885,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
042886,000010: ## Museum of Space History.
042887,000011: ## Assembler: yaYUL
042888,000012: ## Contact: Ron Burkey <info@sandroid.org>.
042889,000013: ## Website: www.ibiblio.org/apollo/index.html
042890,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072.
042891,000015: ## 2024-03-04 MAS Updated for Skylark 48.
042892,000016:
042893,000017: 17,2000 SETLOC DAPS4
042894,000018: 17,2000 BANK
042895,000019:
042896,000020: 17,2577 COUNT* $$/DAPJS
042897,000021: 17,2577 E6,1537 EBANK= KMPAC
042898,000022:
042899,000023: # EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS
042900,000024:
042901,000025: 17,2577 22016 JETSLECT LXCH BANKRUPT
042902,000026: 17,2600 32662 CAF DELTATT3 # = 60 MS RESET TO EXECUTE PHASE1
042903,000027: 17,2601 61665 AD T5TIME
042904,000028: 17,2602 54030 TS TIME5
042905,000029: 17,2603 12606 TCF +3
042906,000030: 17,2604 37663 CAF DELATT20 # = 20 MS TO ASSURE A T5RUPT
042907,000031: 17,2605 54030 TS TIME5
042908,000032: 17,2606 33340 CAF =14MS # RESET T6 TO INITIALIZE THE JET CHANNELS
042909,000033: 17,2607 54031 TS TIME6 # IN 14 MS
042910,000034: 17,2610 00006 EXTEND
042911,000035: 17,2611 22012 QXCH QRUPT
042912,000036: 17,2612 04553 TC C13STALL
042913,000037: 17,2613 34763 CAF NEGMAX
042914,000038: 17,2614 00006 EXTEND
042915,000039: 17,2615 05013 WOR CHAN13
042916,000040: 17,2616 32661 CAF XLNMASK # = 7700 OCT
042917,000041: 17,2617 00006 EXTEND # EXAMINE THE TRANSLATION
042918,000042: 17,2620 06031 RXOR CHAN31 # HAND CONTROLLER
042919,000043: 17,2621 72661 MASK XLNMASK
042920,000044: 17,2622 00006 EXTEND
042921,000045: 17,2623 12663 BZF NOXLNCMD
042922,000046: 17,2624 55531 TS T5TEMP
042923,000047: 17,2625 00006 EXTEND
042924,000048: 17,2626 74771 MP BIT9
042925,000049: 17,2627 76214 MASK THREE
042926,000050: 17,2630 55542 TS XNDX1 # AC QUAD X-TRANSLATION INDEX
042927,000051: 17,2631 55543 TS XNDX2 # BD QUAD X-TRANSLATION INDEX
042928,000052: 17,2632 31531 CA T5TEMP
042929,000053: 17,2633 00006 EXTEND # 1 = + XLN
042930,000054: 17,2634 74773 MP BIT7 # 2 = - XLN
042931,000055: 17,2635 76214 MASK THREE # 3 = NO XLN
042932,000056: 17,2636 55544 TS YNDX # Y-TRANSLATION INDEX
042933,000057:
042934,000058: 17,2637 31531 CA T5TEMP
042935,000059: 17,2640 00006 EXTEND
042936,000060: 17,2641 74775 MP BIT5
042937,000061: 17,2642 76214 MASK THREE
042938,000062: 17,2643 55545 TS ZNDX # Z-TRANSLATION INDEX
042939,000063:
042940,000064: 17,2644 31514 CA DAPDATR1 # SET ATTKALMN TO PICK UP FILTER GAINS FOR
042941,000065: 17,2645 74764 MASK BIT14 # TRANSLATIONS.
042942,000066: 17,2646 00006 EXTEND # CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED.
042943,000067: 17,2647 12652 BZF NOLEM
042944,000068: 17,2650 46214 CS THREE # IF LEM IS ON, SET ATTKALMN = -3
042945,000069: 17,2651 12653 TCF +2
042946,000070: 17,2652 45000 NOLEM CS TWO # IF LEM IS OFF, SET ATTKALMN = -2.
042947,000071: 17,2653 55650 TS ATTKALMN
042948,000072: 17,2654 11662 CCS XTRANS # (+, -1, 0)
042949,000073: 17,2655 55542 TS XNDX1 # USING BD-X ZERO XNDX1
042950,000074: 17,2656 12667 TCF PWORD
042951,000075: 17,2657 55543 TS XNDX2 # USING AC-X ZERO XNDX2
042952,000076: 17,2660 12667 TCF PWORD
042953,000077: 17,2661 07700 XLNMASK OCT 7700
042954,000078:
042955,000079: 17,2662 37772 DELTATT3 DEC 16378 B-14 # = 60 MS
042956,000080: 17,2663 7663 DELATT20 = OCT37776 # = 20 MS
042957,000081: 17,2663 55542 NOXLNCMD TS XNDX1 # ZERO ALL REQUESTS FOR TRANSLATION
042958,000082: 17,2664 55543 TS XNDX2
042959,000083: 17,2665 55544 TS YNDX
042960,000084: 17,2666 55545 TS ZNDX
042961,000085:
042962,000086: # PITCH COMMANDS TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT
042963,000087:
042964,000088: 17,2667 11611 PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS
042965,000089: 17,2670 35001 CAF ONE
042966,000090: 17,2671 12673 TCF +2 # 0 = NO PITCH
042967,000091: 17,2672 35000 CAF TWO # +1 = + PITCH
042968,000092: 17,2673 55547 TS PINDEX # +2 = - PITCH
042969,000093:
042970,000094: 17,2674 11657 CCS RACFAIL # FLAG FOR REAL AC QUAD FAILURES
042971,000095: 17,2675 12701 TCF AFAILP
042972,000096: 17,2676 12711 TCF TABPCOM # 0 = NO REAL AC FAILURES
042973,000097: 17,2677 12703 TCF CFAILP # + = A QUAD FAILED
042974,000098: 17,2700 12711 TCF TABPCOM # - = C QUAD FAILED
042975,000099: # IF FAILURES ARE PRESENT IGNORE
042976,000100: # X-TRANSLATIONS ON THIS AXIS
042977,000101:
042978,000102: 17,2701 34322 AFAILP CAF NINE # IF FAILURE IS PRESENT 1JET OPERATION
042979,000103: 17,2702 12713 TCF TABPCOM +2 # IS ASSUMED. IGNORE X-TRANSLATION
042980,000104: 17,2703 35750 CFAILP CAF TWELVE
042981,000105: 17,2704 12713 TCF TABPCOM +2
042982,000106:
042983,000107: 17,2705 00000 XLNNDX DEC 0 B-14 # INDECES FOR TRANSLATION COMMANDS
042984,000108: 17,2706 00003 DEC 3 B-14 # FOR USE IN TABLE LOOK UP
042985,000109: 17,2707 00006 DEC 6 B-14
042986,000110: 17,2710 00000 DEC 0 B-14
042987,000111:
042988,000112: 17,2711 5750 TWELVE = OCT14
042989,000113:
042990,000114: # TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT.
042991,000115: # BITS 9, 10 CONTAIN THE NUMBER OF PITCH JETS USED TO PERFORM THE PITCH ROTATION
042992,000116:
042993,000117: 17,2711 51542 TABPCOM INDEX XNDX1
042994,000118: 17,2712 32705 CA XLNNDX
042995,000119: 17,2713 61547 +2 AD PINDEX
042996,000120: 17,2714 50000 INDEX A
042997,000121: 17,2715 32741 CA PYTABLE
042998,000122: 17,2716 72760 MASK PJETS # =1417 OCT
042999,000123: 17,2717 55501 TS PWORD1
043000,000124: 17,2720 00006 EXTEND
043001,000125: 17,2721 74773 MP BIT7
043002,000126: 17,2722 55552 TS NPJETS # = NO. OF PITCH JETS
043003,000127:
043004,000128: # YAW JET COMMANDS TIMING(NO X-TRANS, NO QUAD FAILURES) 32MCT
043005,000129:
043006,000130: 17,2723 11612 YWORD CCS TAU2 # CHECK FOR YAW COMMANDS
043007,000131: 17,2724 35001 CAF ONE
043008,000132: 17,2725 12727 TCF +2
043009,000133: 17,2726 35000 CAF TWO
043010,000134: 17,2727 55550 TS YINDEX # YAW ROTATION INDEX
043011,000135:
043012,000136: 17,2730 11660 CCS RBDFAIL # FLAG FOR B OR D QUAD FAILURES
043013,000137: 17,2731 12735 TCF BFAILY # 0 = NO BD FAILURE
043014,000138: 17,2732 12762 TCF TABYCOM # + = B QUAD FAILED
043015,000139: 17,2733 12737 TCF DFAILY # - = D QUAD FAILED
043016,000140: 17,2734 12762 TCF TABYCOM
043017,000141:
043018,000142: 17,2735 34322 BFAILY CAF NINE
043019,000143: 17,2736 12764 TCF TABYCOM +2
043020,000144: 17,2737 35750 DFAILY CAF TWELVE
043021,000145: 17,2740 12764 TCF TABYCOM +2
043022,000146:
043023,000147: # TABLE FOR PITCH(YAW) COMMANDS
043024,000148: # BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED
043025,000149: # BITS 10,9 = NO. PITCH JETS USED TO PERFORM ROTATION
043026,000150: # BITS 8,7,6,5 = YAW, X-TRANSLATION JETS SELECTED
043027,000151: # BITS 12,11: NO. YAW JETS USED TO PERFORM ROTATION
043028,000152:
043029,000153: # ROT TRANS QUAD BIAS
043030,000154: 17,2741 00000 PYTABLE OCT 0 # 0 0 0
043031,000155: 17,2742 05125 OCT 5125 # + 0 0
043032,000156: 17,2743 05252 OCT 5252 # - 0 0
043033,000157: 17,2744 00231 OCT 0231 # 0 + 3
043034,000158: 17,2745 02421 OCT 2421 # + + 3
043035,000159: 17,2746 02610 OCT 2610 # - + 3
043036,000160: 17,2747 00146 OCT 0146 # 0 - 6
043037,000161: 17,2750 02504 OCT 2504 # + - 6
043038,000162: 17,2751 02442 OCT 2442 # - - 6
043039,000163: 17,2752 00000 OCT 0 # 0 A(B) 9
043040,000164: 17,2753 02421 OCT 2421 # + A(B) 9
043041,000165: 17,2754 02442 OCT 2442 # - A(B) 9
043042,000166: 17,2755 00000 OCT 0 # 0 C(D) 12
043043,000167: 17,2756 02504 OCT 2504 # + C(D) 12
043044,000168: 17,2757 02610 OCT 2610 # - C(D) 12
043045,000169:
043046,000170: # MASKS FOR PITCH AND YAW COMMANDS
043047,000171:
043048,000172: 17,2760 01417 PJETS OCT 1417
043049,000173: 17,2761 06360 YJETS OCT 6360
043050,000174:
043051,000175: # TABLE LOOK UP FOR YAW COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT
043052,000176: # BITS 11, 12 CONTAIN THE NUMBER OF YAW JETS USED TO PERFORM THE YAW ROTATION
043053,000177:
043054,000178: 17,2762 51543 TABYCOM INDEX XNDX2
043055,000179: 17,2763 32705 CA XLNNDX
043056,000180: 17,2764 61550 +2 AD YINDEX
043057,000181: 17,2765 50000 INDEX A
043058,000182: 17,2766 32741 CA PYTABLE
043059,000183: 17,2767 72761 MASK YJETS # = 6360 OCT
043060,000184: 17,2770 55503 TS YWORD1
043061,000185: 17,2771 00006 EXTEND
043062,000186: 17,2772 74775 MP BIT5
043063,000187: 17,2773 55553 TS NYJETS # NO. OF YAW JETS USED TO PERFORM ROTATION
043064,000188:
043065,000189:
043066,000190: # ROLL COMMANDS TIMING(NO Y,Z TRANS, NO QUAD FAILS) 45MCT
043067,000191:
043068,000192: 17,2774 11610 RWORD CCS TAU # CHECK FOR ROLL COMMANDS
043069,000193: 17,2775 35001 CAF ONE
043070,000194: 17,2776 13000 TCF +2
043071,000195: 17,2777 35000 CAF TWO
043072,000196: 17,3000 55546 TS RINDEX
043073,000197:
043074,000198: 17,3001 11661 CCS ACORBD # FLAG FOR AC OR BD QUAD SELECTION FOR
043075,000199: 17,3002 13073 TCF BDROLL # ROLL COMMANDS
043076,000200: 17,3003 13073 TCF BDROLL # +, +0 = BD ROLL
043077,000201: 17,3004 13005 TCF +1 # -, -0 = AC ROLL
043078,000202:
043079,000203: 17,3005 11657 ACROLL CCS RACFAIL # CHECK FOR REAL FAILURES
043080,000204: 17,3006 13012 TCF RAFAIL # ON AC QUADS
043081,000205: 17,3007 13022 TCF RXLNS
043082,000206: 17,3010 13014 TCF RCFAIL
043083,000207: 17,3011 13022 TCF RXLNS
043084,000208:
043085,000209: 17,3012 34322 RAFAIL CAF NINE # QUAD FAILURE WILL GET
043086,000210: 17,3013 13024 TCF TABRCOM # 1-JET OPERATION
043087,000211: 17,3014 35750 RCFAIL CAF TWELVE
043088,000212: 17,3015 13024 TCF TABRCOM
043089,000213:
043090,000214: 17,3016 00000 XLN1NDX DEC 0 B-14
043091,000215: 17,3017 00001 DEC 1 B-14 # INDECES FOR TRANSLATION
043092,000216: 17,3020 00002 DEC 2 B-14
043093,000217: 17,3021 00000 DEC 0 B-14
043094,000218:
043095,000219: # TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT
043096,000220: # BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL
043097,000221:
043098,000222: 17,3022 51544 RXLNS INDEX YNDX # NO AC QUAD FAILURES
043099,000223: 17,3023 32705 CA XLNNDX # INCLUDE +,-,0, Y-TRANSLATION
043100,000224: 17,3024 61546 TABRCOM AD RINDEX
043101,000225: 17,3025 50000 INDEX A
043102,000226: 17,3026 33155 CA RTABLE
043103,000227: 17,3027 73174 MASK ACRJETS # = 3760 OCT
043104,000228: 17,3030 55477 TS RWORD1
043105,000229:
043106,000230: # CHECK FOR Z-TRANSLATIONS ON BD
043107,000231:
043108,000232: 17,3031 31545 BDZCHECK CA ZNDX
043109,000233: 17,3032 00006 EXTEND
043110,000234: 17,3033 63065 BZMF NOBDZ # NO Z-TRANSLATION
043111,000235:
043112,000236: # TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES. Z-TRANSLATION WILL BE POSS-
043113,000237: # IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS. CRITERION.. IF THE RESULTANT NET ROLL
043114,000238: # COMMANDS = 0 (WITH Z-TRANSLATION) AND IF TAU = 0, THEN INCLUDE THE BD Z-TRANSLATION COMMANDS. IF THE RESULTANT
043115,000239: # ROLL COMMAND = 0, AND IF TAU NZ, THEN IGNORE THE BD Z-TRANSLATION
043116,000240:
043117,000241: 17,3034 11660 CCS RBDFAIL
043118,000242: 17,3035 36214 CAF THREE
043119,000243: 17,3036 13040 TCF +2
043120,000244: 17,3037 36211 CAF SIX
043121,000245: 17,3040 51545 INDEX ZNDX
043122,000246: 17,3041 63016 AD XLN1NDX
043123,000247: 17,3042 50000 INDEX A
043124,000248: 17,3043 33176 CA YZTABLE
043125,000249: 17,3044 73207 MASK BDZJETS # = 3417 OCT
043126,000250: 17,3045 61477 AD RWORD1 # ADD TO ROLL COMMANDS
043127,000251: 17,3046 55531 TS T5TEMP # IF POSSIBLE. MUST CHECK TAU FIRST
043128,000252:
043129,000253: 17,3047 00006 EXTEND
043130,000254: 17,3050 74773 MP BIT7 # DETERMINE THE NET ROLL COMMAND WITH
043131,000255: 17,3051 66061 AD =-4 # Z-TRANSLATION ADDED ON
043132,000256: 17,3052 55551 TS NRJETS # NET NO. OF +,- ROLL JETS ON
043133,000257: 17,3053 00006 EXTEND
043134,000258: 17,3054 13060 BZF TAUCHECK
043135,000259:
043136,000260: 17,3055 31531 ACRBDZ CA T5TEMP # Z-TRANSLATION ACCEPTED EVEN THO WE MAY
043137,000261: 17,3056 55477 TS RWORD1 # HAVE INTRODUCED AN UNDESIREABLE ROLL
043138,000262: 17,3057 13321 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS
043139,000263:
043140,000264: 17,3060 11610 TAUCHECK CCS TAU
043141,000265: 17,3061 13065 TCF NOBDZ
043142,000266: 17,3062 13055 TCF ACRBDZ
043143,000267: 17,3063 13065 TCF NOBDZ
043144,000268: 17,3064 13055 TCF ACRBDZ
043145,000269:
043146,000270: 17,3065 31477 NOBDZ CA RWORD1 # Z-TRANSLATION NOT ACCEPTED
043147,000271: 17,3066 00006 EXTEND
043148,000272: 17,3067 74773 MP BIT7
043149,000273: 17,3070 67701 AD =-2
043150,000274: 17,3071 55551 TS NRJETS
043151,000275: 17,3072 13321 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATION
043152,000276:
043153,000277: # BD QUAD SELECTION FOR ROLL COMMANDS
043154,000278:
043155,000279: 17,3073 11660 BDROLL CCS RBDFAIL
043156,000280: 17,3074 13100 TCF RBFAIL
043157,000281: 17,3075 13104 TCF RZXLNS
043158,000282: 17,3076 13102 TCF RDFAIL
043159,000283: 17,3077 13104 TCF RZXLNS
043160,000284: 17,3100 34322 RBFAIL CAF NINE
043161,000285: 17,3101 13106 TCF TABRZCMD
043162,000286: 17,3102 35750 RDFAIL CAF TWELVE
043163,000287: 17,3103 13106 TCF TABRZCMD
043164,000288:
043165,000289: 17,3104 51545 RZXLNS INDEX ZNDX # NO BD FAILURES
043166,000290: 17,3105 32705 CA XLNNDX # +,-,0 Z-TRANSLATION PRESENT
043167,000291: 17,3106 61546 TABRZCMD AD RINDEX
043168,000292: 17,3107 50000 INDEX A
043169,000293: 17,3110 33155 CA RTABLE
043170,000294: 17,3111 73175 MASK BDRJETS # = 34017 OCT
043171,000295: 17,3112 55477 TS RWORD1
043172,000296:
043173,000297: 17,3113 31544 ACYCHECK CA YNDX # ANY Y-TRANSLATION
043174,000298: 17,3114 00006 EXTEND
043175,000299: 17,3115 13147 BZF NOACY # NO Y-TRANSLATION
043176,000300: 17,3116 11657 CCS RACFAIL
043177,000301: 17,3117 36214 CAF THREE
043178,000302: 17,3120 13122 TCF +2
043179,000303: 17,3121 36211 CAF SIX
043180,000304: 17,3122 51544 INDEX YNDX
043181,000305: 17,3123 63016 AD XLN1NDX
043182,000306: 17,3124 50000 INDEX A
043183,000307: 17,3125 33176 CA YZTABLE
043184,000308: 17,3126 73210 MASK ACYJETS # = 34360 OCT
043185,000309: 17,3127 61477 AD RWORD1
043186,000310: 17,3130 55531 TS T5TEMP
043187,000311: 17,3131 00006 EXTEND # FOR EXPLANATION SEE CODING ON RTABLE
043188,000312: 17,3132 74776 MP BIT4
043189,000313: 17,3133 66061 AD =-4
043190,000314: 17,3134 55551 TS NRJETS # NO. OF NET ROLL JETS
043191,000315: 17,3135 00006 EXTEND
043192,000316: 17,3136 13142 BZF TAUCHCK # IF NRJETS = 0
043193,000317:
043194,000318: 17,3137 31531 BDRACZ CA T5TEMP # Y-TRANSLATION ACCEPTED
043195,000319: 17,3140 55477 TS RWORD1
043196,000320: 17,3141 13321 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS
043197,000321:
043198,000322: 17,3142 11610 TAUCHCK CCS TAU
043199,000323: 17,3143 13147 TCF NOACY
043200,000324: 17,3144 13137 TCF BDRACZ
043201,000325: 17,3145 13147 TCF NOACY
043202,000326: 17,3146 13137 TCF BDRACZ
043203,000327:
043204,000328: 17,3147 31477 NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED
043205,000329: 17,3150 00006 EXTEND
043206,000330: 17,3151 74776 MP BIT4
043207,000331: 17,3152 67701 AD =-2
043208,000332: 17,3153 55551 TS NRJETS
043209,000333: 17,3154 13321 TCF ROLLTIME
043210,000334:
043211,000335:
043212,000336: # TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS
043213,000337:
043214,000338: # EITHER AC OR BD ROLL MAY BE SELECTED. IF AC ROLL IS SELECTED, Y-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY
043215,000339: # PROVIDED THAT THERE ARE NO AC QUAD FAILURES. IF THERE ARE AC FAILURES, Y-TRANSLATION COMMANDS WILL BE IGNORED,
043216,000340: # IN WHICH CASE THE ASTRONAUT SHOULD SWITCH TO BD ROLL.
043217,000341: # IF BDROLL IS SELECTED, Z-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY PROVIDED THAT THERE ARE NO BD QUAD
043218,000342: # FAILURES. IF THERE ARE BD FAILURES, Z-TRANSLATION COMMANDS WILL BE IGNORED, IN WHICH CASE THE ASTRONAUT SHOULD
043219,000343: # SWITCH TO AC ROLL.
043220,000344: # NOTE THAT IF ONE QUAD FAILS (E.G. B FAILED), Z-TRANSLATION IS STILL POSSIBLE AND THAT THE UNDESIREABLE ROLL
043221,000345: # INTRODUCED BY THIS TRANSLATION WILL BE COMPENSATED BY THE TWO AC ROLL JETS ACTUATED BY THE AUTOPILOT LOGIC.
043222,000346:
043223,000347: # WORD MAKE UP....RTABLE
043224,000348:
043225,000349: # TWO WORDS, CORRESPONDING TO AC OR BD ROLL SELECTION, HAVE BEEN COMBINED INTO ONE TABLE. THE WORD CORRESPOND-
043226,000350: # ING TO AC ROLL HAS THE FOLLOWING INTERPRETATION..
043227,000351: # BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE FOR THE WORD SELECTED. THE CODING IS..
043228,000352:
043229,000353: # BIT NO. 11 10 9 NO. OF ROLL JETS
043230,000354:
043231,000355: # 0 0 0 -2
043232,000356: # 0 0 1 -1
043233,000357: # 0 1 0 0
043234,000358: # 0 1 1 +1
043235,000359: # 1 0 0 +2
043236,000360:
043237,000361:
043238,000362: # THIS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM THE YZ-TRANSLATION TABLE, WHICH HAS THE SAME TYPE OF
043239,000363: # CODING AS ABOVE, AND THE NET ROLL DETERMINED BY SHIFTING THE RESULTANT WORD RIGHT 8 PLACES AND SUBTRACTING FOUR.
043240,000364:
043241,000365: # THE WORD CORRESPONDING TO BD ROLL HAS A SIMILIAR INTERPRETATION, EXCEPT THAT BITS 12, 13, 14 ARE CODED
043242,000366: # (AS ABOVE) TO GIVE THE NET ROLL TORQUE.
043243,000367:
043244,000368:
043245,000369: # ROLL TRANS QUADFAIL BIAS
043246,000370:
043247,000371: 17,3155 11000 RTABLE OCT 11000 # 0 0
043248,000372: 17,3156 22125 OCT 22125 # + 0
043249,000373: 17,3157 00252 OCT 00252 # - 0
043250,000374: 17,3160 11231 OCT 11231 # 0 +Y(+Z) 3
043251,000375: 17,3161 15421 OCT 15421 # + +Y(+Z) 3
043252,000376: 17,3162 04610 OCT 04610 # - +Y(+Z) 3
043253,000377: 17,3163 11146 OCT 11146 # 0 -Y(-Z) 6
043254,000378: 17,3164 15504 OCT 15504 # + -Y(-Z) 6
043255,000379: 17,3165 04442 OCT 04442 # - -Y(-Z) 6
043256,000380: 17,3166 11000 OCT 11000 # 0 A(B) 9
043257,000381: 17,3167 15504 OCT 15504 # + A(B) 9
043258,000382: 17,3170 04610 OCT 04610 # - A(B) 9
043259,000383: 17,3171 11000 OCT 11000 # 0 C(D) 12
043260,000384: 17,3172 15421 OCT 15421 # + C(D) 12
043261,000385: 17,3173 04442 OCT 04442 # - C(D) 12
043262,000386:
043263,000387: # RTABLE MASKS -
043264,000388:
043265,000389: 17,3174 03760 ACRJETS OCT 03760
043266,000390: 17,3175 34017 BDRJETS OCT 34017
043267,000391:
043268,000392: # Y, Z TRANSLATION TABLE
043269,000393:
043270,000394: # ONCE AC OR BD ROLL IS SELECTED THE QUAD PAIR WHICH IS NOT BEING USED TO SATISFY THE ROLL COMMANDS MAY BE
043271,000395: # USED TO SATISFY THE REMAINING TRANSLATION COMMANDS. HOWEVER, WE MUST MAKE SURE THAT ROLL COMMANDS ARE SATISFIED
043272,000396: # WHEN THEY OCCUR. THEREFORE, THE Y-Z TRANSLATIONS FROM THIS TABLE WILL BE IGNORED IF THE NET ROLL TORQUE OF THE
043273,000397: # COMBINED WORD IS ZERO AND THE ROLL COMMANDS ARE NON-ZERO. THIS SITUATION WOULD OCCUR, FOR EXAMPLE, IF WE EN-
043274,000398: # COUNTER SIMULTANEOUS +R +Y -Z COMMANDS AND A QUAD D FAILURE WHILE USING AC FOR ROLL.
043275,000399: # TO FACILITATE THE LOGIC, THE Y-Z TRANSLATION TABLE HAS BEEN CODED IN A MANNER SIMILIAR TO THE ROLL TABLE
043276,000400: # ABOVE.
043277,000401: # BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Z-TRANSLATIONS. THE WORD SELECTED CAN THEN BE
043278,000402: # ADDED TO THE AC-ROLL WORD AND THE RESULTANT ROLL TORQUE DETERMINED FROM THE COMBINED WORD. SIMILIARLY BITS
043279,000403: # 12,13,14 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Y-TRANSLATIONS WHEN BD-ROLL IS SELECTED.
043280,000404:
043281,000405: # TRANSLATION QUADFAIL BIAS
043282,000406:
043283,000407: 17,3176 11000 YZTABLE OCT 11000 # 0 0
043284,000408: 17,3177 11231 OCT 11231 # +Z(+Y) 0
043285,000409: 17,3200 11146 OCT 11146 # -Z(-Y) 0
043286,000410: 17,3201 11000 OCT 11000 # 0 B(A) 3
043287,000411: 17,3202 04610 OCT 04610 # +Z(+Y) B(A) 3
043288,000412: 17,3203 15504 OCT 15504 # -Z(-Y) B(A) 3
043289,000413: 17,3204 11000 OCT 11000 # 0 D(C) 6
043290,000414: 17,3205 15421 OCT 15421 # +Z(+Y) D(C) 6
043291,000415: 17,3206 04442 OCT 04442 # -Z(-Y) D(C) 6
043292,000416:
043293,000417: # YZ-TABLE MASKS-
043294,000418:
043295,000419: 17,3207 03417 BDZJETS OCT 03417
043296,000420: 17,3210 34360 ACYJETS OCT 34360
043297,000421:
043298,000422: # ADDITIONAL CONSTANTS
043299,000423:
043300,000424: 17,3211 7701 =-2 = NEG2
043301,000425: 17,3211 6061 =-4 = NEG4
043302,000426:
043303,000427: # CALCULATION OF JET ON-TIMES
043304,000428:
043305,000429: # THE ROTATION COMMANDS (TAU:S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET
043306,000430: # OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS. TAU MUST
043307,000431: # ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5 INT-
043308,000432: # ERVAL.
043309,000433: # IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES
043310,000434: # (DFT:S, ALSO IN TERMS OF 1-JET OPERATION) FOR THE RATE FILTER.
043311,000435: # NOTE THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO ROTATIONS WERE CALLED FOR. NEVERTHELESS, WE MUST
043312,000436: # UPDATE DFT.
043313,000437: # WHEN THE ROTATIONS HAVE FINISHED, WE MUST PROVIDE CHANNEL INFORMATION TO THE T6 PROGRAM TO CONTINUE ON WITH
043314,000438: # THE TRANSLATIONS. THIS WILL BE DONE IN THE NEXT SECTION. HOWEVER, TO INSURE THAT JETS ARE NOT FIRED FOR LESS
043315,000439: # THAN A MINIMUM IMPULSE (14MS), ALL JET CHANNEL COMMANDS WILL BE HELD FIXED FROM THE START OF THE T5 PROGRAM FOR
043316,000440: # AT LEAST 14MS UNTIL THE INITIALIZATION OF NEW COMMANDS. MOREOVER, A 14MS ON-TIME WILL BE ADDED TO ANY ROTATIONAL
043317,000441: # COMMANDS GENERATED BY THE MANUAL CONTROLS OR THE JET SWITCHING LOGIC, AND ALL TRANSLATION COMMANDS WILL BE
043318,000442: # ACTIVE FOR AT LEAST ONE CYCLE OF THE T5 PROGRAM (.1SEC)
043319,000443:
043320,000444: # PITCH JET ON-TIME CALCULATION
043321,000445:
043322,000446: 17,3211 11611 PITCHTIM CCS TAU1
043323,000447: 17,3212 13221 TCF PTAUPOS
043324,000448: 17,3213 13215 TCF +2
043325,000449: 17,3214 13217 TCF PTAUNEG
043326,000450: 17,3215 55577 TS DFT1 # NO PITCH ROTATION
043327,000451: 17,3216 13417 TCF PBYPASS # COMMANDS
043328,000452:
043329,000453: 17,3217 41552 PTAUNEG CS NPJETS
043330,000454: 17,3220 55552 TS NPJETS
043331,000455: 17,3221 31611 PTAUPOS CA TAU1
043332,000456: 17,3222 00006 EXTEND
043333,000457: 17,3223 51552 INDEX NPJETS
043334,000458: 17,3224 73400 MP NJET
043335,000459: 17,3225 55507 TS BLAST1
043336,000460: 17,3226 63333 AD =-.1SEC
043337,000461: 17,3227 00006 EXTEND
043338,000462: 17,3230 63241 BZMF AD14MSP
043339,000463: 17,3231 51552 INDEX NPJETS
043340,000464: 17,3232 33334 CA DFTMAX # THE PITCH ON-TIME IS GREATER THAN .1 SEC
043341,000465: 17,3233 55577 TS DFT1
043342,000466: 17,3234 40000 COM
043343,000467: 17,3235 27611 ADS TAU1 # UPDATE TAU1
043344,000468: 17,3236 33335 CAF =+.1SEC # LIMIT THE LENGTH OF PITCH ROTATION
043345,000469: 17,3237 55507 TS BLAST1 # COMMANDS TO 0.1 SEC SO THAT ONLY
043346,000470: 17,3240 13404 TCF ASMBLWP # X-TRANSLATIONS WILL CONTINUE ON SWITCH
043347,000471: # OVER TO TVC
043348,000472: 17,3241 41507 AD14MSP CS BLAST1 # SEE IF JET ON TIME LESS THAN
043349,000473: 17,3242 63340 AD =14MS # MINIMUM IMPULSE TIME
043350,000474: 17,3243 00006 EXTEND
043351,000475: 17,3244 63247 BZMF PBLASTOK # IF SO LIMIT MINIMUM ON TIME TO 14 MS
043352,000476: 17,3245 33340 CAF =14MS
043353,000477: 17,3246 55507 TS BLAST1
043354,000478: 17,3247 31507 PBLASTOK CA BLAST1
043355,000479: 17,3250 00006 EXTEND # THE PITCH COMMANDS WILL BE COMPLETED
043356,000480: 17,3251 71552 MP NPJETS # WITHIN THE TS-CYCLE TIME
043357,000481: 17,3252 23577 LXCH DFT1 # FOR USE IN UPDATING RATE FILTER
043358,000482: 17,3253 55611 TS TAU1 # ZERO TAU1 (ACC CONTAINS ZERO)
043359,000483: 17,3254 13404 TCF ASMBLWP
043360,000484:
043361,000485: # YAW JET ON-TIME CALCULATION
043362,000486:
043363,000487: 17,3255 11612 YAWTIME CCS TAU2
043364,000488: 17,3256 13265 TCF YTAUPOS
043365,000489: 17,3257 13261 TCF +2
043366,000490: 17,3260 13263 TCF YTAUNEG
043367,000491: 17,3261 55600 TS DFT2 # NO YAW ROTATION COMMANDS
043368,000492: 17,3262 13563 TCF YBYPASS
043369,000493:
043370,000494: 17,3263 41553 YTAUNEG CS NYJETS
043371,000495: 17,3264 55553 TS NYJETS
043372,000496: 17,3265 31612 YTAUPOS CA TAU2
043373,000497: 17,3266 00006 EXTEND
043374,000498: 17,3267 51553 INDEX NYJETS
043375,000499: 17,3270 73400 MP NJET
043376,000500: 17,3271 55511 TS BLAST2
043377,000501: 17,3272 63333 AD =-.1SEC
043378,000502: 17,3273 00006 EXTEND
043379,000503: 17,3274 63305 BZMF AD14MSY
043380,000504: 17,3275 51553 INDEX NYJETS
043381,000505: 17,3276 33334 CA DFTMAX # YAW COMMANDS WILL LAST LONGER THAN .1SEC
043382,000506: 17,3277 55600 TS DFT2
043383,000507: 17,3300 40000 COM
043384,000508: 17,3301 27612 ADS TAU2 # DECREMENT TAU2
043385,000509: 17,3302 33335 CAF =+.1SEC # LIMIT THE LENGTH OF YAW ROTATION COMMAND
043386,000510: 17,3303 55511 TS BLAST2 # TO 0.1 SEC SO THAT ONLY X-TRANSLATION
043387,000511: 17,3304 13550 TCF ASMBLWY # WILL CONTINUE ON SWITCH OVER TO TVC
043388,000512:
043389,000513: 17,3305 41511 AD14MSY CS BLAST2 # SEE IF JET ON-TIME LESS THAN
043390,000514: 17,3306 63340 AD =14MS # MINIMUM IMPULSE TIME
043391,000515: 17,3307 00006 EXTEND
043392,000516: 17,3310 63313 BZMF YBLASTOK # IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
043393,000517: 17,3311 33340 CAF =14MS
043394,000518: 17,3312 55511 TS BLAST2
043395,000519: 17,3313 31511 YBLASTOK CA BLAST2 # YAW COMMANDS WILL BE COMPLETED WITHIN
043396,000520: 17,3314 00006 EXTEND # THE T5CYCLE TIME
043397,000521: 17,3315 71553 MP NYJETS
043398,000522: 17,3316 23600 LXCH DFT2
043399,000523: 17,3317 55612 TS TAU2 # ZERO TAU2
043400,000524: 17,3320 13550 TCF ASMBLWY
043401,000525:
043402,000526: # ROLL ON-TIME CALCULATION-
043403,000527:
043404,000528: 17,3321 11610 ROLLTIME CCS TAU
043405,000529: 17,3322 13341 TCF RBLAST
043406,000530: 17,3323 13325 TCF +2
043407,000531: 17,3324 13341 TCF RBLAST
043408,000532: 17,3325 51551 INDEX NRJETS
043409,000533: 17,3326 33334 CA DFTMAX # UPDATE DFT EVEN THO NO ROLL COMMANDS ARE
043410,000534: 17,3327 55576 TS DFT # PRESENT
043411,000535: 17,3330 13543 TCF RBYPASS
043412,000536:
043413,000537: 17,3331 77037 DEC -480 B-14 # = -.3SEC
043414,000538: 17,3332 77277 DEC -320 B-14 # = -.2SEC
043415,000539: 17,3333 77537 =-.1SEC DEC -160 B-14 # = -.1SEC
043416,000540: 17,3334 00000 DFTMAX DEC 0 B-14 # 0
043417,000541: 17,3335 00240 =+.1SEC DEC 160 B-14 # = +.1SEC
043418,000542: 17,3336 00500 DEC 320 B-14 # = +.2SEC
043419,000543: 17,3337 00740 DEC 480 B-14 # = +.3SEC
043420,000544: 17,3340 00027 =14MS DEC 23 B-14 # =14MS
043421,000545:
043422,000546: 17,3341 31610 RBLAST CA TAU
043423,000547: 17,3342 00006 EXTEND
043424,000548: 17,3343 51551 INDEX NRJETS
043425,000549: 17,3344 73400 MP NJET
043426,000550: 17,3345 55505 TS BLAST # BLAST IS AN INTERMEDIATE VARIABLE
043427,000551: # USED IN DETERMINING THE JET ON-TIMES
043428,000552: 17,3346 63333 AD =-.1SEC
043429,000553: 17,3347 00006 EXTEND
043430,000554: 17,3350 63361 BZMF AD14MSR
043431,000555: 17,3351 51551 INDEX NRJETS # THE ROLL ROTATION WILL LAST LONGER
043432,000556: 17,3352 33334 CA DFTMAX # THAN THE T5 CYCLE TIME
043433,000557: 17,3353 55576 TS DFT
043434,000558: 17,3354 40000 COM
043435,000559: 17,3355 27610 ADS TAU
043436,000560: 17,3356 33335 CAF =+.1SEC # LIMIT THE LENGTH OF ROLL ROTATION
043437,000561: 17,3357 55505 TS BLAST # COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z
043438,000562: 17,3360 13424 TCF ASMBLWR # TRANSLATION COMMANDS CONTINUE
043439,000563:
043440,000564: 17,3361 41505 AD14MSR CS BLAST # SEE IF THE JET ON-TIME LESS THAN
043441,000565: 17,3362 63340 AD =14MS # MINIMUM IMPULSE TIME
043442,000566: 17,3363 00006 EXTEND
043443,000567: 17,3364 63367 BZMF RBLASTOK
043444,000568: 17,3365 33340 CAF =14MS # IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
043445,000569: 17,3366 55505 TS BLAST
043446,000570: 17,3367 31505 RBLASTOK CA BLAST
043447,000571: 17,3370 00006 EXTEND
043448,000572: 17,3371 71551 MP NRJETS
043449,000573: 17,3372 23576 LXCH DFT
043450,000574: 17,3373 55610 TS TAU # ZERO TAU
043451,000575: 17,3374 13424 TCF ASMBLWR
043452,000576:
043453,000577: 17,3375 65252 DEC -.333333 # = -1/3
043454,000578: 17,3376 57777 DEC -.500000 # = -1/2
043455,000579: 17,3377 40000 DEC -.999999 # = -1 (NEGMAX)
043456,000580: 17,3400 00000 NJET DEC 0 B-14
043457,000581: 17,3401 37777 DEC .999999 # = +1 (POSMAX)
043458,000582: 17,3402 20000 DEC .500000 # = +1/2
043459,000583: 17,3403 12525 DEC .333333 # = +1/3
043460,000584:
043461,000585: # WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH
043462,000586: # CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT.
043463,000587: # IN THIS SECTION THESE NEW COMMANDS ARE GENERATED AND STORED FOR REPLACEMENT OF THE CHANNEL COMMANDS WHEN THE
043464,000588: # CORRESPONDING ROTATIONS ARE COMPLETED.
043465,000589:
043466,000590: # GENERATION OF THE SECOND PITCH(X-TRANS) WORD...PWORD2
043467,000591:
043468,000592: 17,3404 11657 ASMBLWP CCS RACFAIL
043469,000593: 17,3405 13413 TCF FPX2 # IF FAILURE ON AC IGNORE X-TRANSLATION
043470,000594: 17,3406 13410 TCF +2
043471,000595: 17,3407 13413 TCF FPX2
043472,000596: 17,3410 51542 INDEX XNDX1
043473,000597: 17,3411 32705 CA XLNNDX
043474,000598: 17,3412 50000 INDEX A
043475,000599: 17,3413 32741 FPX2 CA PYTABLE
043476,000600: 17,3414 72760 MASK PJETS
043477,000601: 17,3415 55502 TS PWORD2
043478,000602: 17,3416 13255 TCF YAWTIME
043479,000603:
043480,000604: 17,3417 31501 PBYPASS CA PWORD1 # THE T6 PROGRAM WILL LOAD PWORD2
043481,000605: 17,3420 55502 TS PWORD2 # UPON ENTRY
043482,000606: 17,3421 35003 CAF ZERO
043483,000607: 17,3422 55507 TS BLAST1 # THERE IS NO PWORD2
043484,000608: 17,3423 13255 TCF YAWTIME
043485,000609:
043486,000610: # GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2)
043487,000611:
043488,000612: 17,3424 11544 ASMBLWR CCS YNDX # CHECK FOR Y-TRANS
043489,000613: 17,3425 13435 TCF ACBD2Y
043490,000614: 17,3426 35003 NO2Y CAF ZERO
043491,000615: 17,3427 55500 +1 TS RWORD2
043492,000616: 17,3430 11545 CCS ZNDX # CHECK FOR Z-TRANS
043493,000617: 17,3431 13500 TCF ACBD2Z
043494,000618: 17,3432 35003 NO2Z CAF ZERO
043495,000619: 17,3433 27500 +1 ADS RWORD2
043496,000620: 17,3434 13211 TCF PITCHTIM # RWORD2 ASSEMBLED
043497,000621:
043498,000622: 17,3435 11661 ACBD2Y CCS ACORBD
043499,000623: 17,3436 13453 TCF AC2Y # CAN DO Y-TRANS
043500,000624: 17,3437 13453 TCF AC2Y
043501,000625: 17,3440 13441 TCF +1 # USING AC FOR ROLL
043502,000626: 17,3441 11657 CCS RACFAIL
043503,000627: 17,3442 13426 TCF NO2Y # USING AC AND AC HAS FAILED
043504,000628: 17,3443 13445 TCF +2
043505,000629: 17,3444 13426 TCF NO2Y # DITTO
043506,000630:
043507,000631: 17,3445 51544 INDEX YNDX # NO FAILURES, CAN DO Y
043508,000632: 17,3446 32705 CA XLNNDX
043509,000633: 17,3447 50000 INDEX A
043510,000634: 17,3450 33155 CA RTABLE
043511,000635: 17,3451 73174 MASK ACRJETS
043512,000636: 17,3452 13427 TCF NO2Y +1
043513,000637:
043514,000638: 17,3453 11657 AC2Y CCS RACFAIL
043515,000639: 17,3454 36214 CAF THREE
043516,000640: 17,3455 13457 TCF +2
043517,000641: 17,3456 36211 CAF SIX
043518,000642: 17,3457 51544 INDEX YNDX
043519,000643: 17,3460 63016 AD XLN1NDX
043520,000644: 17,3461 50000 INDEX A
043521,000645: 17,3462 33176 CA YZTABLE
043522,000646: 17,3463 73210 MASK ACYJETS
043523,000647: 17,3464 55500 TS RWORD2
043524,000648: 17,3465 00006 EXTEND
043525,000649: 17,3466 74776 MP BIT4
043526,000650: 17,3467 67701 AD =-2
043527,000651: 17,3470 55551 TS NRJETS
043528,000652: 17,3471 41505 CS BLAST
043529,000653: 17,3472 63335 AD =+.1SEC
043530,000654: 17,3473 00006 EXTEND
043531,000655: 17,3474 71551 MP NRJETS
043532,000656: 17,3475 30001 CA L
043533,000657: 17,3476 27576 ADS DFT
043534,000658: 17,3477 13430 TCF NO2Y +2
043535,000659: 17,3500 11661 ACBD2Z CCS ACORBD
043536,000660: 17,3501 13531 TCF BDF2Z # USING BD-ROLL
043537,000661: 17,3502 13531 TCF BDF2Z # MUST CHECK FOR BD FAILURES
043538,000662: 17,3503 13504 TCF +1
043539,000663: 17,3504 11660 CCS RBDFAIL # USING AC FOR ROLL, CAN DO Z-TRANS
043540,000664: 17,3505 36214 CAF THREE
043541,000665: 17,3506 13510 TCF +2
043542,000666: 17,3507 36211 CAF SIX
043543,000667: 17,3510 51545 INDEX ZNDX
043544,000668: 17,3511 63016 AD XLN1NDX
043545,000669: 17,3512 50000 INDEX A
043546,000670: 17,3513 33176 CA YZTABLE
043547,000671: 17,3514 73207 MASK BDZJETS
043548,000672: 17,3515 27500 ADS RWORD2
043549,000673: 17,3516 00006 EXTEND
043550,000674: 17,3517 74773 MP BIT7
043551,000675: 17,3520 67701 AD =-2
043552,000676: 17,3521 55551 TS NRJETS
043553,000677: 17,3522 41505 CS BLAST
043554,000678: 17,3523 63335 AD =+.1SEC
043555,000679: 17,3524 00006 EXTEND
043556,000680: 17,3525 71551 MP NRJETS
043557,000681: 17,3526 30001 CA L
043558,000682: 17,3527 27576 ADS DFT
043559,000683: 17,3530 13211 TCF PITCHTIM
043560,000684:
043561,000685: 17,3531 11660 BDF2Z CCS RBDFAIL
043562,000686: 17,3532 13432 TCF NO2Z # USING BD-ROLL AND BD HAS FAILED
043563,000687: 17,3533 13535 TCF +2
043564,000688: 17,3534 13432 TCF NO2Z # DITTO
043565,000689: 17,3535 51545 INDEX ZNDX
043566,000690: 17,3536 32705 CA XLNNDX
043567,000691: 17,3537 50000 INDEX A
043568,000692: 17,3540 33155 CA RTABLE
043569,000693: 17,3541 73175 MASK BDRJETS
043570,000694: 17,3542 13433 TCF NO2Z +1
043571,000695:
043572,000696: 17,3543 31477 RBYPASS CA RWORD1
043573,000697: 17,3544 55500 TS RWORD2
043574,000698: 17,3545 35003 CAF ZERO
043575,000699: 17,3546 55505 TS BLAST
043576,000700: 17,3547 13211 TCF PITCHTIM
043577,000701:
043578,000702: # GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2
043579,000703:
043580,000704: 17,3550 11660 ASMBLWY CCS RBDFAIL
043581,000705: 17,3551 13557 TCF FYX2 # IF FAILURE ON BD IGNORE X-TRANSLATION
043582,000706: 17,3552 13554 TCF +2
043583,000707: 17,3553 13557 TCF FYX2
043584,000708: 17,3554 51543 INDEX XNDX2
043585,000709: 17,3555 32705 CA XLNNDX
043586,000710: 17,3556 50000 INDEX A
043587,000711: 17,3557 32741 FYX2 CA PYTABLE
043588,000712: 17,3560 72761 MASK YJETS
043589,000713: 17,3561 55504 TS YWORD2
043590,000714: 17,3562 13567 TCF T6SETUP
043591,000715:
043592,000716: 17,3563 31503 YBYPASS CA YWORD1
043593,000717: 17,3564 55504 TS YWORD2
043594,000718: 17,3565 35003 CAF ZERO
043595,000719: 17,3566 55511 TS BLAST2
043596,000720:
043597,000721: # SORT THE JET ON-TIMES
043598,000722:
043599,000723: # AT THIS POINT ALL THE CHANNEL COMMANDS AND JET ON-TIMES HAVE BEEN DETERMINED. IN SUMMARY THESE ARE-
043600,000724:
043601,000725: # RWORD1
043602,000726: # RWORD2 BLAST
043603,000727:
043604,000728: # PWORD1
043605,000729: # PWORD2 BLAST1
043606,000730:
043607,000731: # YWORD1
043608,000732: # YWORD2 BLAST2
043609,000733:
043610,000734: # IN THIS SECTION THE JET ON-TIMES ARE SORTED AND THE SEQUENCE OF T6 INTERRUPTS IS DETERMINED. TO FACILITATE
043611,000735: # THE SORTING PROCESS AND THE T6 PROGRAM, THE VARIABLES BLAST, BLAST1, BLAST2, ARE RESERVED AS DOUBLE PRECISION
043612,000736: # WORDS. THE LOWER PART OF THESE WORDS CONTAIN A BRANCH INDEX ASSOCIATED WITH THE ROTATION AXIS OF THE HIGHER
043613,000737: # ORDER WORD.
043614,000738:
043615,000739: 17,3567 35003 T6SETUP CAF ZERO # BRANCH INDEX FOR ROLL
043616,000740: 17,3570 55506 TS BLAST +1
043617,000741: 17,3571 34777 CAF FOUR # BRANCH INDEX FOR PITCH
043618,000742: 17,3572 55510 TS BLAST1 +1
043619,000743: 17,3573 35006 CAF ELEVEN # BRANCH INDEX FOR YAW
043620,000744: 17,3574 55512 TS BLAST2 +1
043621,000745:
043622,000746: 17,3575 41505 CS BLAST
043623,000747: 17,3576 61507 AD BLAST1
043624,000748: 17,3577 00006 EXTEND
043625,000749: 17,3600 63624 BZMF DXCHT12 # T1 GR T2
043626,000750: 17,3601 41507 CHECKT23 CS BLAST1
043627,000751: 17,3602 61511 AD BLAST2
043628,000752: 17,3603 00006 EXTEND
043629,000753: 17,3604 63630 BZMF DXCHT23
043630,000754: 17,3605 41507 CALCDT6 CS BLAST1
043631,000755: 17,3606 27511 ADS BLAST2
043632,000756: 17,3607 41505 CS BLAST
043633,000757: 17,3610 27507 ADS BLAST1 # END OF SORTING PROCEDURE
043634,000758: 17,3611 00006 EXTEND # RESET T5LOC TO BEGIN PHASE1
043635,000759: 17,3612 33623 DCA RCS2CADR
043636,000760: 17,3613 52113 DXCH T5LOC
043637,000761: 17,3614 45001 ENDJETS CS BIT1 # RESET BIT1 FOR INITIALIZATION OF
043638,000762: 17,3615 71530 MASK RCSFLAGS # T6 PROGRAM
043639,000763: 17,3616 55530 TS RCSFLAGS
043640,000764: 17,3617 45003 CS ZERO # RESET T5PHASE FOR PHASE1
043641,000765: 17,3620 55513 TS T5PHASE
043642,000766: 17,3621 15336 TCF RESUME # RESUME INTERRUPTED PROGRAM
043643,000767:
043644,000768: 17,3622 E6,1537 EBANK= KMPAC
043645,000769: 17,3622 02060 42066 RCS2CADR 2CADR RCSATT
043646,000770:
043647,000771: 17,3624 53506 DXCHT12 DXCH BLAST
043648,000772: 17,3625 53510 DXCH BLAST1
043649,000773: 17,3626 53506 DXCH BLAST
043650,000774: 17,3627 13601 TCF CHECKT23
043651,000775:
043652,000776: 17,3630 53510 DXCHT23 DXCH BLAST1
043653,000777: 17,3631 53512 DXCH BLAST2
043654,000778: 17,3632 53510 DXCH BLAST1
043655,000779: 17,3633 41505 CS BLAST
043656,000780: 17,3634 61507 AD BLAST1
043657,000781: 17,3635 00006 EXTEND
043658,000782: 17,3636 63640 BZMF +2
043659,000783: 17,3637 13605 TCF CALCDT6
043660,000784: 17,3640 53506 DXCH BLAST
043661,000785: 17,3641 53510 DXCH BLAST1
043662,000786: 17,3642 53506 DXCH BLAST
043663,000787: 17,3643 13605 TCF CALCDT6
043664,000788:
043665,000789: # T6 PROGRAM AND CHANNEL SETUP
043666,000790:
043667,000791: 17,2000 SETLOC DAPS5
043668,000792: 17,2000 BANK
043669,000793:
043670,000794: 17,3644 COUNT* $$/T6RPT
043671,000795: 17,3644 22016 T6START LXCH BANKRUPT
043672,000796: 17,3645 00006 EXTEND
043673,000797: 17,3646 22012 QXCH QRUPT
043674,000798: 17,3647 10031 CCS TIME6 # CHECK TO SEE IF TIME6 WAS RESET
043675,000799: 17,3650 15336 TCF RESUME # AFTER T6RUPT OCCURED(IN T5RUPT)
043676,000800: 17,3651 13653 TCF +2 # IF SO WAIT FOR NEXT T6RUPT BEFORE
043677,000801: 17,3652 15336 TCF RESUME # TAKING ACTION
043678,000802:
043679,000803: 17,3653 51475 INDEX WHICHDAP
043680,000804: 17,3654 13655 TCF +1
043681,000805: 17,3655 13660 TCF +3
043682,000806: 17,3656 04666 TC POSTJUMP
043683,000807: 17,3657 27471 CADR DKT6
043684,000808:
043685,000809: 17,3660 41530 CS RCSFLAGS
043686,000810: 17,3661 75001 MASK BIT1 # IF BIT1 IS 0 RESET TO 1
043687,000811: 17,3662 00006 EXTEND # AND INITIALIZE CHANNEL
043688,000812: 17,3663 13674 BZF T6RUPTOR
043689,000813: 17,3664 27530 ADS RCSFLAGS
043690,000814: 17,3665 31477 CA RWORD1
043691,000815: 17,3666 00006 EXTEND # INITIALIZE CHANNELS 5,6 WITH WORD1
043692,000816: 17,3667 01006 WRITE CHAN6
043693,000817: 17,3670 31501 CA PWORD1
043694,000818: 17,3671 61503 AD YWORD1
043695,000819: 17,3672 00006 EXTEND
043696,000820: 17,3673 01005 WRITE CHAN5
043697,000821:
043698,000822: 17,3674 11505 T6RUPTOR CCS BLAST
043699,000823: 17,3675 13754 TCF ZBLAST # ZERO BLAST1
043700,000824: 17,3676 13713 TCF REPLACE # REPLACE WORD1
043701,000825: 17,3677 13701 TCF +2
043702,000826: 17,3700 13713 TCF REPLACE
043703,000827: 17,3701 11507 T6L1 CCS BLAST1
043704,000828: 17,3702 13757 TCF ZBLAST1
043705,000829: 17,3703 13720 TCF REPLACE1
043706,000830: 17,3704 13706 TCF +2
043707,000831: 17,3705 13720 TCF REPLACE1
043708,000832: 17,3706 11511 T6L2 CCS BLAST2
043709,000833: 17,3707 13762 TCF ZBLAST2
043710,000834: 17,3710 13725 TCF REPLACE2
043711,000835: 17,3711 15336 TCF RESUME
043712,000836: 17,3712 13725 TCF REPLACE2
043713,000837:
043714,000838: 17,3713 51506 REPLACE INDEX BLAST +1
043715,000839: 17,3714 03732 TC REPLACER
043716,000840: 17,3715 45001 CS ONE
043717,000841: 17,3716 55505 TS BLAST
043718,000842: 17,3717 13701 TCF T6L1
043719,000843:
043720,000844: 17,3720 51510 REPLACE1 INDEX BLAST1 +1
043721,000845: 17,3721 03732 TC REPLACER
043722,000846: 17,3722 45001 CS ONE
043723,000847: 17,3723 55507 TS BLAST1
043724,000848: 17,3724 13706 TCF T6L2
043725,000849:
043726,000850: 17,3725 51512 REPLACE2 INDEX BLAST2 +1
043727,000851: 17,3726 03732 TC REPLACER
043728,000852: 17,3727 45001 CS ONE
043729,000853: 17,3730 55511 TS BLAST2
043730,000854: 17,3731 15336 TCF RESUME
043731,000855:
043732,000856: 17,3732 31500 REPLACER CA RWORD2 # INITIALIZE CHANNELS 5,6 WITH WORD2
043733,000857: 17,3733 00006 EXTEND
043734,000858: 17,3734 01006 WRITE CHAN6
043735,000859: 17,3735 00002 TC Q
043736,000860:
043737,000861: 17,3736 32761 REPLACEP CA YJETS
043738,000862: 17,3737 00006 EXTEND
043739,000863: 17,3740 02005 RAND CHAN5
043740,000864: 17,3741 61502 AD PWORD2
043741,000865: 17,3742 00006 EXTEND
043742,000866: 17,3743 01005 WRITE CHAN5
043743,000867: 17,3744 00002 TC Q
043744,000868:
043745,000869: 17,3745 32760 REPLACEY CA PJETS
043746,000870: 17,3746 00006 EXTEND
043747,000871: 17,3747 02005 RAND CHAN5
043748,000872: 17,3750 61504 AD YWORD2
043749,000873: 17,3751 00006 EXTEND
043750,000874: 17,3752 01005 WRITE CHAN5
043751,000875: 17,3753 00002 TC Q
043752,000876:
043753,000877: 17,3754 35003 ZBLAST CAF ZERO
043754,000878: 17,3755 57505 XCH BLAST
043755,000879: 17,3756 13764 TCF ENABT6
043756,000880: 17,3757 35003 ZBLAST1 CAF ZERO
043757,000881: 17,3760 57507 XCH BLAST1
043758,000882: 17,3761 13764 TCF ENABT6
043759,000883: 17,3762 35003 ZBLAST2 CAF ZERO
043760,000884: 17,3763 57511 XCH BLAST2
043761,000885: 17,3764 54031 ENABT6 TS TIME6
043762,000886: 17,3765 04553 TC C13STALL
043763,000887: 17,3766 34763 CAF NEGMAX
043764,000888: 17,3767 00006 EXTEND
043765,000889: 17,3770 05013 WOR CHAN13 # ENABLE T6RUPT
043766,000890: 17,3771 15336 TCF RESUME
043767,000891:
043768,000892: # END OF T6 INTERRUPT
043769,000893:
043770,000894: 17,3772 ENDSLECT EQUALS
End of include-file JET_SELECTION_LOGIC.agc. Parent file is MAIN.agc