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