Source Code

These source-code files are part of a reconstructed copy of Comanche 67, the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.

They have been adapted from sources files for Comanche 55, and updated via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.

Since only binary dumps (rather than listings) of Comanche 67 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.

044164,000002:                                                                                                  ## Copyright:   Public domain.
044165,000003:                                                                                                  ## Filename:    JET_SELECTION_LOGIC.agc
044166,000004:                                                                                                  ## Purpose:     A section of Comanche revision 067.
044167,000005:                                                                                                  ##              It is part of the reconstructed source code for the flight
044168,000006:                                                                                                  ##              software for the Command Module's (CM) Apollo Guidance Computer
044169,000007:                                                                                                  ##              (AGC) for Apollo 12. No original listings of this program are
044170,000008:                                                                                                  ##              available; instead, this file was created via dissassembly of
044171,000009:                                                                                                  ##              dumps of Comanche 067 core rope modules and comparison with
044172,000010:                                                                                                  ##              other AGC programs.
044173,000011:                                                                                                  ## Assembler:   yaYUL
044174,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
044175,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
044176,000014:                                                                                                  ## Mod history: 2023-08-16 MAS  Created from Comanche 055.
044177,000015: 
044178,000016: 21,3777                                           BANK     21                                    
044179,000017: 17,2000                                           SETLOC   DAPS4                                 
044180,000018: 17,2000                                           BANK                                           
044181,000019: 
044182,000020: 17,2610                                           COUNT    17/DAPJS                              
044183,000021: 
044184,000022: 17,2610  E6,1510                                  EBANK=   KMPAC                                 
044185,000023: 
044186,000024:                                                                                                  #  EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS
044187,000025: 
044188,000026: 17,2610           22016        JETSLECT           LXCH     BANKRUPT                              
044189,000027: 17,2611           32672                           CAF      DELTATT3                              #  = 60 MS  RESET TO EXECUTE PHASE1
044190,000028: 17,2612           61634                           AD       T5TIME                                
044191,000029: 17,2613           54030                           TS       TIME5                                 
044192,000030: 17,2614           12617                           TCF      +3                                    
044193,000031: 17,2615           32673                           CAF      DELATT20                              #  = 20 MS  TO ASSURE A T5RUPT
044194,000032: 17,2616           54030                           TS       TIME5                                 
044195,000033: 17,2617           33351                           CAF      =14MS                                 #  RESET T6 TO INITIALIZE THE JET CHANNELS
044196,000034: 17,2620           54031                           TS       TIME6                                 #  IN 14 MS
044197,000035: 17,2621           35015                           CAF      NEGMAX                                
044198,000036: 17,2622           00006                           EXTEND                                         
044199,000037: 17,2623           05013                           WOR      CHAN13                                
044200,000038: 17,2624           00006                           EXTEND                                         
044201,000039: 17,2625           22012                           QXCH     QRUPT                                 
044202,000040: 17,2626           32671                           CAF      XLNMASK                               #  = 7700 OCT
044203,000041: 17,2627           00006                           EXTEND                                         #  EXAMINE THE TRANSLATION
044204,000042: 17,2630           06031                           RXOR     CHAN31                                #  HAND CONTROLLER
044205,000043: 17,2631           72671                           MASK     XLNMASK                               
044206,000044: 17,2632           00006                           EXTEND                                         
044207,000045: 17,2633           12674                           BZF      NOXLNCMD                              
044208,000046: 17,2634           55502                           TS       T5TEMP                                
044209,000047: 17,2635           00006                           EXTEND                                         
044210,000048: 17,2636           75023                           MP       BIT9                                  
044211,000049: 17,2637           76214                           MASK     THREE                                 
044212,000050: 17,2640           55513                           TS       XNDX1                                 #  AC QUAD  X-TRANSLATION INDEX
044213,000051: 17,2641           55514                           TS       XNDX2                                 #  BD QUAD  X-TRANSLATION INDEX
044214,000052: 17,2642           31502                           CA       T5TEMP                                
044215,000053: 17,2643           00006                           EXTEND                                         #  1 = + XLN
044216,000054: 17,2644           75025                           MP       BIT7                                  #  2 = - XLN
044217,000055: 17,2645           76214                           MASK     THREE                                 #  3 = NO XLN
044218,000056: 17,2646           55515                           TS       YNDX                                  #  Y-TRANSLATION INDEX
044219,000057: 
044220,000058: 17,2647           31502                           CA       T5TEMP                                
044221,000059: 17,2650           00006                           EXTEND                                         
044222,000060: 17,2651           75027                           MP       BIT5                                  
044223,000061: 17,2652           76214                           MASK     THREE                                 
044224,000062: 17,2653           55516                           TS       ZNDX                                  #  Z-TRANSLATION INDEX
044225,000063: 
044226,000064: 17,2654           31466                           CA       DAPDATR1                              #  SET ATTKALMN TO PICK UP FILTER GAINS FOR
044227,000065: 17,2655           75016                           MASK     BIT14                                 #  TRANSLATIONS.
044228,000066: 17,2656           00006                           EXTEND                                         #  CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED.
044229,000067: 17,2657           12662                           BZF      NOLEM                                 
044230,000068: 17,2660           46214                           CS       THREE                                 #  IF LEM IS ON, SET ATTKALMN = -3
044231,000069: 17,2661           12663                           TCF      +2                                    
044232,000070: 17,2662           45032        NOLEM              CS       TWO                                   #  IF LEM IS OFF, SET ATTKALMN = -2.
044233,000071: 17,2663           55617                           TS       ATTKALMN                              
044234,000072: 17,2664           11631                           CCS      XTRANS                                #  (+, -1, 0)
044235,000073: 17,2665           55513                           TS       XNDX1                                 #  USING BD-X  ZERO XNDX1
044236,000074: 17,2666           12700                           TCF      PWORD                                 
044237,000075: 17,2667           55514                           TS       XNDX2                                 #  USING AC-X  ZERO XNDX2
044238,000076: 17,2670           12700                           TCF      PWORD                                 
044239,000077: 17,2671           07700        XLNMASK            OCT      7700                                  
044240,000078: 
044241,000079: 17,2672           37772        DELTATT3           DEC      16378      B-14                       #  = 60 MS
044242,000080: 17,2673           37776        DELATT20           DEC      16382      B-14                       #  = 20 MS
044243,000081: 
044244,000082: 17,2674           55513        NOXLNCMD           TS       XNDX1                                 #  ZERO ALL REQUESTS FOR TRANSLATION
044245,000083: 17,2675           55514                           TS       XNDX2                                 
044246,000084: 17,2676           55515                           TS       YNDX                                  
044247,000085: 17,2677           55516                           TS       ZNDX                                  
044248,000086: 
044249,000087:                                                                                                  #  PITCH COMMANDS  TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT
044250,000088: 
044251,000089: 17,2700           11562        PWORD              CCS      TAU1                                  #  CHECK FOR PITCH COMMANDS
044252,000090: 17,2701           35033                           CAF      ONE                                   
044253,000091: 17,2702           12704                           TCF      +2                                    #   0 = NO PITCH
044254,000092: 17,2703           35032                           CAF      TWO                                   #  +1 =  + PITCH
044255,000093: 17,2704           55520                           TS       PINDEX                                #  +2 =  - PITCH
044256,000094: 
044257,000095: 17,2705           11626                           CCS      RACFAIL                               #  FLAG FOR REAL AC QUAD FAILURES
044258,000096: 17,2706           12712                           TCF      AFAILP                                
044259,000097: 17,2707           12722                           TCF      TABPCOM                               #  0 = NO REAL AC FAILURES
044260,000098: 17,2710           12714                           TCF      CFAILP                                #  + = A QUAD FAILED
044261,000099: 17,2711           12722                           TCF      TABPCOM                               #  - = C QUAD FAILED
044262,000100:                                                                                                  #  IF FAILURES ARE PRESENT IGNORE
044263,000101:                                                                                                  #  X-TRANSLATIONS ON THIS AXIS
044264,000102: 
044265,000103: 17,2712           34334        AFAILP             CAF      NINE                                  #  IF FAILURE IS PRESENT 1JET OPERATION
044266,000104: 17,2713           12724                           TCF      TABPCOM    +2                         #  IS ASSUMED.  IGNORE X-TRANSLATION
044267,000105: 17,2714           35775        CFAILP             CAF      TWELVE                                
044268,000106: 17,2715           12724                           TCF      TABPCOM    +2                         
044269,000107: 
044270,000108: 17,2716           00000        XLNNDX             DEC      0          B-14                       #  INDECES FOR TRANSLATION COMMANDS
044271,000109: 17,2717           00003                           DEC      3          B-14                       #  FOR USE IN TABLE LOOK UP
044272,000110: 17,2720           00006                           DEC      6          B-14                       
044273,000111: 17,2721           00000                           DEC      0          B-14                       
044274,000112: 
044275,000113: 17,2722     5775               TWELVE             =        OCT14                                 
044276,000114: 
044277,000115:                                                                                                  #  TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT.
044278,000116:                                                                                                  #  BITS 9, 10 CONTAIN THE NUMBER OF PITCH JETS USED TO PERFORM THE PITCH ROTATION
044279,000117: 
044280,000118: 17,2722           51513        TABPCOM            INDEX    XNDX1                                 
044281,000119: 17,2723           32716                           CA       XLNNDX                                
044282,000120: 17,2724           61520                           AD       PINDEX                                
044283,000121: 17,2725           50000                           INDEX    A                                     
044284,000122: 17,2726           32752                           CA       PYTABLE                               
044285,000123: 17,2727           72771                           MASK     PJETS                                 #  =1417 OCT
044286,000124: 17,2730           55453                           TS       PWORD1                                
044287,000125: 17,2731           00006                           EXTEND                                         
044288,000126: 17,2732           75025                           MP       BIT7                                  
044289,000127: 17,2733           55523                           TS       NPJETS                                #  = NO. OF PITCH JETS
044290,000128: 
044291,000129:                                                                                                  #  YAW JET COMMANDS  TIMING(NO X-TRANS, NO QUAD FAILURES)  32MCT
044292,000130: 
044293,000131: 17,2734           11563        YWORD              CCS      TAU2                                  #  CHECK FOR YAW COMMANDS
044294,000132: 17,2735           35033                           CAF      ONE                                   
044295,000133: 17,2736           12740                           TCF      +2                                    
044296,000134: 17,2737           35032                           CAF      TWO                                   
044297,000135: 17,2740           55521                           TS       YINDEX                                #  YAW ROTATION INDEX
044298,000136: 
044299,000137: 17,2741           11627                           CCS      RBDFAIL                               #  FLAG FOR B OR D QUAD FAILURES
044300,000138: 17,2742           12746                           TCF      BFAILY                                #  0 = NO BD FAILURE
044301,000139: 17,2743           12773                           TCF      TABYCOM                               #  + = B QUAD FAILED
044302,000140: 17,2744           12750                           TCF      DFAILY                                #  - = D QUAD FAILED
044303,000141: 17,2745           12773                           TCF      TABYCOM                               
044304,000142: 
044305,000143: 17,2746           34334        BFAILY             CAF      NINE                                  
044306,000144: 17,2747           12775                           TCF      TABYCOM    +2                         
044307,000145: 17,2750           35775        DFAILY             CAF      TWELVE                                
044308,000146: 17,2751           12775                           TCF      TABYCOM    +2                         
044309,000147: 
044310,000148:                                                                                                  #  TABLE FOR PITCH(YAW) COMMANDS
044311,000149:                                                                                                  #  BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED
044312,000150:                                                                                                  #  BITS    10,9 = NO. PITCH JETS USED TO PERFORM ROTATION
044313,000151:                                                                                                  #  BITS 8,7,6,5 = YAW, X-TRANSLATION JETS SELECTED
044314,000152:                                                                                                  #  BITS 12,11:  NO. YAW JETS USED TO PERFORM ROTATION
044315,000153: 
044316,000154:                                                                                                  #  ROT   TRANS   QUAD    BIAS
044317,000155: 17,2752           00000        PYTABLE            OCT      0                                     #  0     0               0
044318,000156: 17,2753           05125                           OCT      5125                                  #  +     0               0
044319,000157: 17,2754           05252                           OCT      5252                                  #  -     0               0
044320,000158: 17,2755           00231                           OCT      0231                                  #  0     +               3
044321,000159: 17,2756           02421                           OCT      2421                                  #  +     +               3
044322,000160: 17,2757           02610                           OCT      2610                                  #  -     +               3
044323,000161: 17,2760           00146                           OCT      0146                                  #  0     -               6
044324,000162: 17,2761           02504                           OCT      2504                                  #  +     -               6
044325,000163: 17,2762           02442                           OCT      2442                                  #  -     -               6
044326,000164: 17,2763           00000                           OCT      0                                     #  0             A(B)    9
044327,000165: 17,2764           02421                           OCT      2421                                  #  +             A(B)    9
044328,000166: 17,2765           02442                           OCT      2442                                  #  -             A(B)    9
044329,000167: 17,2766           00000                           OCT      0                                     #  0             C(D)    12
044330,000168: 17,2767           02504                           OCT      2504                                  #  +             C(D)    12
044331,000169: 17,2770           02610                           OCT      2610                                  #  -             C(D)    12
044332,000170: 
044333,000171:                                                                                                  #  MASKS FOR PITCH AND YAW COMMANDS
044334,000172: 
044335,000173: 17,2771           01417        PJETS              OCT      1417                                  
044336,000174: 17,2772           06360        YJETS              OCT      6360                                  
044337,000175: 
044338,000176:                                                                                                  #  TABLE LOOK UP FOR YAW COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT
044339,000177:                                                                                                  #  BITS 11, 12 CONTAIN THE NUMBER OF YAW JETS USED TO PERFORM THE YAW ROTATION
044340,000178: 
044341,000179: 17,2773           51514        TABYCOM            INDEX    XNDX2                                 
044342,000180: 17,2774           32716                           CA       XLNNDX                                
044343,000181: 17,2775           61521                           AD       YINDEX                                
044344,000182: 17,2776           50000                           INDEX    A                                     
044345,000183: 17,2777           32752                           CA       PYTABLE                               
044346,000184: 17,3000           72772                           MASK     YJETS                                 #  = 6360 OCT
044347,000185: 17,3001           55455                           TS       YWORD1                                
044348,000186: 17,3002           00006                           EXTEND                                         
044349,000187: 17,3003           75027                           MP       BIT5                                  
044350,000188: 17,3004           55524                           TS       NYJETS                                #  NO. OF YAW JETS USED TO PERFORM ROTATION
044351,000189: 
044352,000190:                                                                                                  #  ROLL COMMANDS  TIMING(NO Y,Z TRANS, NO QUAD FAILS)  45MCT
044353,000191: 
044354,000192: 17,3005           11561        RWORD              CCS      TAU                                   #  CHECK FOR ROLL COMMANDS
044355,000193: 17,3006           35033                           CAF      ONE                                   
044356,000194: 17,3007           13011                           TCF      +2                                    
044357,000195: 17,3010           35032                           CAF      TWO                                   
044358,000196: 17,3011           55517                           TS       RINDEX                                
044359,000197: 
044360,000198: 17,3012           11630                           CCS      ACORBD                                #  FLAG FOR AC OR BD QUAD SELECTION FOR
044361,000199: 17,3013           13104                           TCF      BDROLL                                #  ROLL COMMANDS
044362,000200: 17,3014           13104                           TCF      BDROLL                                #  +, +0 = BD ROLL
044363,000201: 17,3015           13016                           TCF      +1                                    #  -, -0 = AC ROLL
044364,000202: 
044365,000203: 17,3016           11626        ACROLL             CCS      RACFAIL                               #  CHECK FOR REAL FAILURES
044366,000204: 17,3017           13023                           TCF      RAFAIL                                #  ON AC QUADS
044367,000205: 17,3020           13033                           TCF      RXLNS                                 
044368,000206: 17,3021           13025                           TCF      RCFAIL                                
044369,000207: 17,3022           13033                           TCF      RXLNS                                 
044370,000208: 
044371,000209: 17,3023           34334        RAFAIL             CAF      NINE                                  #  QUAD FAILURE WILL GET
044372,000210: 17,3024           13035                           TCF      TABRCOM                               #  1-JET OPERATION
044373,000211: 17,3025           35775        RCFAIL             CAF      TWELVE                                
044374,000212: 17,3026           13035                           TCF      TABRCOM                               
044375,000213: 
044376,000214: 17,3027           00000        XLN1NDX            DEC      0          B-14                       
044377,000215: 17,3030           00001                           DEC      1          B-14                       #  INDECES FOR TRANSLATION
044378,000216: 17,3031           00002                           DEC      2          B-14                       
044379,000217: 17,3032           00000                           DEC      0          B-14                       
044380,000218: 
044381,000219:                                                                                                  #  TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT
044382,000220:                                                                                                  #  BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL
044383,000221: 
044384,000222: 17,3033           51515        RXLNS              INDEX    YNDX                                  #  NO AC QUAD FAILURES
044385,000223: 17,3034           32716                           CA       XLNNDX                                #  INCLUDE +,-,0, Y-TRANSLATION
044386,000224: 17,3035           61517        TABRCOM            AD       RINDEX                                
044387,000225: 17,3036           50000                           INDEX    A                                     
044388,000226: 17,3037           33166                           CA       RTABLE                                
044389,000227: 17,3040           73205                           MASK     ACRJETS                               #  = 3760 OCT
044390,000228: 17,3041           55451                           TS       RWORD1                                
044391,000229: 
044392,000230:                                                                                                  #  CHECK FOR Z-TRANSLATIONS ON BD
044393,000231: 
044394,000232: 17,3042           31516        BDZCHECK           CA       ZNDX                                  
044395,000233: 17,3043           00006                           EXTEND                                         
044396,000234: 17,3044           63076                           BZMF     NOBDZ                                 #  NO Z-TRANSLATION
044397,000235: 
044398,000236:                                                                                                  #  TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES.  Z-TRANSLATION WILL BE POSS-
044399,000237:                                                                                                  #  IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS.  CRITERION.. IF THE RESULTANT NET ROLL
044400,000238:                                                                                                  #  COMMANDS = 0 (WITH Z-TRANSLATION) AND IF TAU = 0, THEN INCLUDE THE BD Z-TRANSLATION COMMANDS.  IF THE RESULTANT
044401,000239:                                                                                                  #  ROLL COMMAND = 0, AND IF TAU NZ, THEN IGNORE THE BD Z-TRANSLATION
044402,000240: 
044403,000241: 17,3045           11627                           CCS      RBDFAIL                               
044404,000242: 17,3046           36214                           CAF      THREE                                 
044405,000243: 17,3047           13051                           TCF      +2                                    
044406,000244: 17,3050           36211                           CAF      SIX                                   
044407,000245: 17,3051           51516                           INDEX    ZNDX                                  
044408,000246: 17,3052           63027                           AD       XLN1NDX                               
044409,000247: 17,3053           50000                           INDEX    A                                     
044410,000248: 17,3054           33207                           CA       YZTABLE                               
044411,000249: 17,3055           73220                           MASK     BDZJETS                               #  = 3417 OCT
044412,000250: 17,3056           61451                           AD       RWORD1                                #  ADD TO ROLL COMMANDS
044413,000251: 17,3057           55502                           TS       T5TEMP                                #  IF POSSIBLE.  MUST CHECK TAU FIRST
044414,000252: 
044415,000253: 17,3060           00006                           EXTEND                                         
044416,000254: 17,3061           75025                           MP       BIT7                                  #  DETERMINE THE NET ROLL COMMAND WITH
044417,000255: 17,3062           66061                           AD       =-4                                   #  Z-TRANSLATION ADDED ON
044418,000256: 17,3063           55522                           TS       NRJETS                                #  NET NO. OF +,- ROLL JETS ON
044419,000257: 17,3064           00006                           EXTEND                                         
044420,000258: 17,3065           13071                           BZF      TAUCHECK                              
044421,000259: 
044422,000260: 17,3066           31502        ACRBDZ             CA       T5TEMP                                #  Z-TRANSLATION ACCEPTED EVEN THO WE MAY
044423,000261: 17,3067           55451                           TS       RWORD1                                #  HAVE INTRODUCED AN UNDESIREABLE ROLL
044424,000262: 17,3070           13332                           TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATIONS
044425,000263: 
044426,000264: 17,3071           11561        TAUCHECK           CCS      TAU                                   
044427,000265: 17,3072           13076                           TCF      NOBDZ                                 
044428,000266: 17,3073           13066                           TCF      ACRBDZ                                
044429,000267: 17,3074           13076                           TCF      NOBDZ                                 
044430,000268: 17,3075           13066                           TCF      ACRBDZ                                
044431,000269: 
044432,000270: 17,3076           31451        NOBDZ              CA       RWORD1                                #  Z-TRANSLATION NOT ACCEPTED
044433,000271: 17,3077           00006                           EXTEND                                         
044434,000272: 17,3100           75025                           MP       BIT7                                  
044435,000273: 17,3101           67715                           AD       =-2                                   
044436,000274: 17,3102           55522                           TS       NRJETS                                
044437,000275: 17,3103           13332                           TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATION
044438,000276: 
044439,000277:                                                                                                  #  BD QUAD SELECTION FOR ROLL COMMANDS
044440,000278: 
044441,000279: 17,3104           11627        BDROLL             CCS      RBDFAIL                               
044442,000280: 17,3105           13111                           TCF      RBFAIL                                
044443,000281: 17,3106           13115                           TCF      RZXLNS                                
044444,000282: 17,3107           13113                           TCF      RDFAIL                                
044445,000283: 17,3110           13115                           TCF      RZXLNS                                
044446,000284: 17,3111           34334        RBFAIL             CAF      NINE                                  
044447,000285: 17,3112           13117                           TCF      TABRZCMD                              
044448,000286: 17,3113           35775        RDFAIL             CAF      TWELVE                                
044449,000287: 17,3114           13117                           TCF      TABRZCMD                              
044450,000288: 
044451,000289: 17,3115           51516        RZXLNS             INDEX    ZNDX                                  #  NO BD FAILURES
044452,000290: 17,3116           32716                           CA       XLNNDX                                #  +,-,0 Z-TRANSLATION PRESENT
044453,000291: 17,3117           61517        TABRZCMD           AD       RINDEX                                
044454,000292: 17,3120           50000                           INDEX    A                                     
044455,000293: 17,3121           33166                           CA       RTABLE                                
044456,000294: 17,3122           73206                           MASK     BDRJETS                               #  = 34017 OCT
044457,000295: 17,3123           55451                           TS       RWORD1                                
044458,000296: 
044459,000297: 17,3124           31515        ACYCHECK           CA       YNDX                                  #  ANY Y-TRANSLATION
044460,000298: 17,3125           00006                           EXTEND                                         
044461,000299: 17,3126           13160                           BZF      NOACY                                 #  NO Y-TRANSLATION
044462,000300: 17,3127           11626                           CCS      RACFAIL                               
044463,000301: 17,3130           36214                           CAF      THREE                                 
044464,000302: 17,3131           13133                           TCF      +2                                    
044465,000303: 17,3132           36211                           CAF      SIX                                   
044466,000304: 17,3133           51515                           INDEX    YNDX                                  
044467,000305: 17,3134           63027                           AD       XLN1NDX                               
044468,000306: 17,3135           50000                           INDEX    A                                     
044469,000307: 17,3136           33207                           CA       YZTABLE                               
044470,000308: 17,3137           73221                           MASK     ACYJETS                               #  = 34360 OCT
044471,000309: 17,3140           61451                           AD       RWORD1                                
044472,000310: 17,3141           55502                           TS       T5TEMP                                
044473,000311: 17,3142           00006                           EXTEND                                         #  FOR EXPLANATION SEE CODING ON RTABLE
044474,000312: 17,3143           75030                           MP       BIT4                                  
044475,000313: 17,3144           66061                           AD       =-4                                   
044476,000314: 17,3145           55522                           TS       NRJETS                                #  NO. OF NET ROLL JETS
044477,000315: 17,3146           00006                           EXTEND                                         
044478,000316: 17,3147           13153                           BZF      TAUCHCK                               #  IF NRJETS = 0
044479,000317: 
044480,000318: 17,3150           31502        BDRACZ             CA       T5TEMP                                #  Y-TRANSLATION ACCEPTED
044481,000319: 17,3151           55451                           TS       RWORD1                                
044482,000320: 17,3152           13332                           TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATIONS
044483,000321: 
044484,000322: 17,3153           11561        TAUCHCK            CCS      TAU                                   
044485,000323: 17,3154           13160                           TCF      NOACY                                 
044486,000324: 17,3155           13150                           TCF      BDRACZ                                
044487,000325: 17,3156           13160                           TCF      NOACY                                 
044488,000326: 17,3157           13150                           TCF      BDRACZ                                
044489,000327: 
044490,000328: 17,3160           31451        NOACY              CA       RWORD1                                #  Y-TRANSLATION NOT ACCEPTED
044491,000329: 17,3161           00006                           EXTEND                                         
044492,000330: 17,3162           75030                           MP       BIT4                                  
044493,000331: 17,3163           67715                           AD       =-2                                   
044494,000332: 17,3164           55522                           TS       NRJETS                                
044495,000333: 17,3165           13332                           TCF      ROLLTIME                              
044496,000334: 
044497,000335:                                                                                                  #                                TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS
044498,000336: 
044499,000337:                                                                                                  #  EITHER AC OR BD ROLL MAY BE SELECTED.  IF AC ROLL IS SELECTED, Y-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY
044500,000338:                                                                                                  #  PROVIDED THAT THERE ARE NO AC QUAD FAILURES.  IF THERE ARE AC FAILURES, Y-TRANSLATION COMMANDS WILL BE IGNORED,
044501,000339:                                                                                                  #  IN WHICH CASE THE ASTRONAUT SHOULD SWITCH TO BD ROLL.
044502,000340: 
044503,000341:                                                                                                  #  IF BDROLL IS SELECTED, Z-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY PROVIDED THAT THERE ARE NO BD QUAD
044504,000342:                                                                                                  #  FAILURES.  IF THERE ARE BD FAILURES, Z-TRANSLATION COMMANDS WILL BE IGNORED, IN WHICH CASE THE ASTRONAUT SHOULD
044505,000343:                                                                                                  #  SWITCH TO AC ROLL.
044506,000344: 
044507,000345:                                                                                                  #  NOTE THAT IF ONE QUAD FAILS (E.G. B FAILED), Z-TRANSLATION IS STILL POSSIBLE AND THAT THE UNDESIREABLE ROLL
044508,000346:                                                                                                  #  INTRODUCED BY THIS TRANSLATION WILL BE COMPENSATED BY THE TWO AC ROLL JETS ACTUATED BY THE AUTOPILOT LOGIC.
044509,000347: 
044510,000348:                                                                                                  #                                           WORD MAKE UP....RTABLE
044511,000349: 
044512,000350:                                                                                                  #  TWO WORDS, CORRESPONDING TO AC OR BD ROLL SELECTION, HAVE BEEN COMBINED INTO ONE TABLE.  THE WORD CORRESPOND-
044513,000351:                                                                                                  #  ING TO AC ROLL HAS THE FOLLOWING INTERPRETATION..
044514,000352: 
044515,000353:                                                                                                  #        BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE FOR THE WORD SELECTED.  THE CODING IS..
044516,000354: 
044517,000355:                                                                                                  #                BIT NO. 11  10   9              NO. OF ROLL JETS
044518,000356: 
044519,000357:                                                                                                  #                         0   0   0                      -2
044520,000358:                                                                                                  #                         0   0   1                      -1
044521,000359:                                                                                                  #                         0   1   0                       0
044522,000360:                                                                                                  #                         0   1   1                      +1
044523,000361:                                                                                                  #                         1   0   0                      +2
044524,000362: 
044525,000363:                                                                                                  #  THIS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM THE YZ-TRANSLATION TABLE, WHICH HAS THE SAME TYPE OF
044526,000364:                                                                                                  #  CODING AS ABOVE, AND THE NET ROLL DETERMINED BY SHIFTING THE RESULTANT WORD RIGHT 8 PLACES AND SUBTRACTING FOUR.
044527,000365: 
044528,000366:                                                                                                  #  THE WORD CORRESPONDING TO BD ROLL HAS A SIMILIAR INTERPRETATION, EXCEPT THAT BITS 12, 13, 14 ARE CODED
044529,000367:                                                                                                  #  (AS ABOVE) TO GIVE THE NET ROLL TORQUE.
044530,000368: 
044531,000369:                                                                                                  #  ROLL          TRANS           QUADFAIL        BIAS
044532,000370: 
044533,000371: 17,3166           11000        RTABLE             OCT      11000                                 #    0                                             0
044534,000372: 17,3167           22125                           OCT      22125                                 #    +                                             0
044535,000373: 17,3170           00252                           OCT      00252                                 #    -                                             0
044536,000374: 17,3171           11231                           OCT      11231                                 #    0           +Y(+Z)                            3
044537,000375: 17,3172           15421                           OCT      15421                                 #    +           +Y(+Z)                            3
044538,000376: 17,3173           04610                           OCT      04610                                 #    -           +Y(+Z)                            3
044539,000377: 17,3174           11146                           OCT      11146                                 #    0           -Y(-Z)                            6
044540,000378: 17,3175           15504                           OCT      15504                                 #    +           -Y(-Z)                            6
044541,000379: 17,3176           04442                           OCT      04442                                 #    -           -Y(-Z)                            6
044542,000380: 17,3177           11000                           OCT      11000                                 #    0                             A(B)            9
044543,000381: 17,3200           15504                           OCT      15504                                 #    +                             A(B)            9
044544,000382: 17,3201           04610                           OCT      04610                                 #    -                             A(B)            9
044545,000383: 17,3202           11000                           OCT      11000                                 #    0                             C(D)           12
044546,000384: 17,3203           15421                           OCT      15421                                 #    +                             C(D)           12
044547,000385: 17,3204           04442                           OCT      04442                                 #    -                             C(D)           12
044548,000386: 
044549,000387:                                                                                                  #  RTABLE MASKS-
044550,000388: 
044551,000389: 17,3205           03760        ACRJETS            OCT      03760                                 
044552,000390: 17,3206           34017        BDRJETS            OCT      34017                                 
044553,000391: 
044554,000392:                                                                                                  #                                         Y, Z TRANSLATION TABLE
044555,000393: 
044556,000394:                                                                                                  #     ONCE AC OR BD ROLL IS SELECTED THE QUAD PAIR WHICH IS NOT BEING USED TO SATISFY THE ROLL COMMANDS MAY BE
044557,000395:                                                                                                  #  USED TO SATISFY THE REMAINING TRANSLATION COMMANDS.  HOWEVER, WE MUST MAKE SURE THAT ROLL COMMANDS ARE SATISFIED
044558,000396:                                                                                                  #  WHEN THEY OCCUR.  THEREFORE, THE Y-Z TRANSLATIONS FROM THIS TABLE WILL BE IGNORED IF THE NET ROLL TORQUE OF THE
044559,000397:                                                                                                  #  COMBINED WORD IS ZERO AND THE ROLL COMMANDS ARE NON-ZERO.  THIS SITUATION WOULD OCCUR, FOR EXAMPLE, IF WE EN-
044560,000398:                                                                                                  #  COUNTER SIMULTANEOUS +R +Y -Z COMMANDS AND A QUAD D FAILURE WHILE USING AC FOR ROLL.
044561,000399:                                                                                                  #     TO FACILITATE THE LOGIC, THE Y-Z TRANSLATION TABLE HAS BEEN CODED IN A MANNER SIMILIAR TO THE ROLL TABLE
044562,000400:                                                                                                  #  ABOVE.
044563,000401:                                                                                                  #     BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Z-TRANSLATIONS.  THE WORD SELECTED CAN THEN BE
044564,000402:                                                                                                  #  ADDED TO THE AC-ROLL WORD AND THE RESULTANT ROLL TORQUE DETERMINED FROM THE COMBINED WORD.  SIMILIARLY BITS
044565,000403:                                                                                                  #  12,13,14 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Y-TRANSLATIONS WHEN BD-ROLL IS SELECTED.
044566,000404: 
044567,000405:                                                                                                  #  TRANSLATION   QUADFAIL        BIAS
044568,000406: 
044569,000407: 17,3207           11000        YZTABLE            OCT      11000                                 #        0                       0
044570,000408: 17,3210           11231                           OCT      11231                                 #     +Z(+Y)                     0
044571,000409: 17,3211           11146                           OCT      11146                                 #     -Z(-Y)                     0
044572,000410: 17,3212           11000                           OCT      11000                                 #        0         B(A)          3
044573,000411: 17,3213           04610                           OCT      04610                                 #     +Z(+Y)       B(A)          3
044574,000412: 17,3214           15504                           OCT      15504                                 #     -Z(-Y)       B(A)          3
044575,000413: 17,3215           11000                           OCT      11000                                 #        0         D(C)          6
044576,000414: 17,3216           15421                           OCT      15421                                 #     +Z(+Y)       D(C)          6
044577,000415: 17,3217           04442                           OCT      04442                                 #     -Z(-Y)       D(C)          6
044578,000416: 
044579,000417:                                                                                                  #  YZ-TABLE MASKS-
044580,000418: 
044581,000419: 17,3220           03417        BDZJETS            OCT      03417                                 
044582,000420: 17,3221           34360        ACYJETS            OCT      34360                                 
044583,000421: 
044584,000422:                                                                                                  #  ADDITIONAL CONSTANTS
044585,000423: 
044586,000424: 17,3222     7715               =-2                =        NEG2                                  
044587,000425: 17,3222     6061               =-4                =        NEG4                                  
044588,000426: 
044589,000427:                                                                                                  #                                        CALCULATION OF JET ON-TIMES
044590,000428: 
044591,000429:                                                                                                  #     THE ROTATION COMMANDS (TAU:S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET
044592,000430:                                                                                                  #  OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS.  TAU MUST
044593,000431:                                                                                                  #  ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5 INT-
044594,000432:                                                                                                  #  ERVAL.
044595,000433:                                                                                                  #     IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES
044596,000434:                                                                                                  #  (DFT:S, ALSO IN TERMS OF 1-JET OPERATION) FOR THE RATE FILTER.
044597,000435:                                                                                                  #     NOTE THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO ROTATIONS WERE CALLED FOR.  NEVERTHELESS, WE MUST
044598,000436:                                                                                                  #  UPDATE DFT.
044599,000437:                                                                                                  #     WHEN THE ROTATIONS HAVE FINISHED, WE MUST PROVIDE CHANNEL INFORMATION TO THE T6 PROGRAM TO CONTINUE ON WITH
044600,000438:                                                                                                  #  THE TRANSLATIONS.  THIS WILL BE DONE IN THE NEXT SECTION.  HOWEVER, TO INSURE THAT JETS ARE NOT FIRED FOR LESS
044601,000439:                                                                                                  #  THAN A MINIMUM IMPULSE (14MS), ALL JET CHANNEL COMMANDS WILL BE HELD FIXED FROM THE START OF THE T5 PROGRAM FOR
044602,000440:                                                                                                  #  AT LEAST 14MS UNTIL THE INITIALIZATION OF NEW COMMANDS.  MOREOVER, A 14MS ON-TIME WILL BE ADDED TO ANY ROTATIONAL
044603,000441:                                                                                                  #  COMMANDS GENERATED BY THE MANUAL CONTROLS OR THE JET SWITCHING LOGIC, AND ALL TRANSLATION COMMANDS WILL BE
044604,000442:                                                                                                  #  ACTIVE FOR AT LEAST ONE CYCLE OF THE T5 PROGRAM (.1SEC)
044605,000443: 
044606,000444:                                                                                                  #           PITCH JET ON-TIME CALCULATION
044607,000445: 
044608,000446: 17,3222           11562        PITCHTIM           CCS      TAU1                                  
044609,000447: 17,3223           13232                           TCF      PTAUPOS                               
044610,000448: 17,3224           13226                           TCF      +2                                    
044611,000449: 17,3225           13230                           TCF      PTAUNEG                               
044612,000450: 17,3226           55550                           TS       DFT1                                  #  NO PITCH ROTATION
044613,000451: 17,3227           13430                           TCF      PBYPASS                               #  COMMANDS
044614,000452: 
044615,000453: 17,3230           41523        PTAUNEG            CS       NPJETS                                
044616,000454: 17,3231           55523                           TS       NPJETS                                
044617,000455: 17,3232           31562        PTAUPOS            CA       TAU1                                  
044618,000456: 17,3233           00006                           EXTEND                                         
044619,000457: 17,3234           51523                           INDEX    NPJETS                                
044620,000458: 17,3235           73411                           MP       NJET                                  
044621,000459: 17,3236           55461                           TS       BLAST1                                
044622,000460: 17,3237           63344                           AD       =-.1SEC                               
044623,000461: 17,3240           00006                           EXTEND                                         
044624,000462: 17,3241           63252                           BZMF     AD14MSP                               
044625,000463: 17,3242           51523                           INDEX    NPJETS                                
044626,000464: 17,3243           33345                           CA       DFTMAX                                #  THE PITCH ON-TIME IS GREATER THAN .1 SEC
044627,000465: 17,3244           55550                           TS       DFT1                                  
044628,000466: 17,3245           40000                           COM                                            
044629,000467: 17,3246           27562                           ADS      TAU1                                  #  UPDATE TAU1
044630,000468: 17,3247           33346                           CAF      =+.1SEC                               #  LIMIT THE LENGTH OF PITCH ROTATION
044631,000469: 17,3250           55461                           TS       BLAST1                                #  COMMANDS TO 0.1 SEC SO THAT ONLY
044632,000470: 17,3251           13415                           TCF      ASMBLWP                               #  X-TRANSLATIONS WILL CONTINUE ON SWITCH
044633,000471:                                                                                                  #  OVER TO TVC
044634,000472: 17,3252           41461        AD14MSP            CS       BLAST1                                #  SEE IF JET ON TIME LESS THAN
044635,000473: 17,3253           63351                           AD       =14MS                                 #  MINIMUM IMPULSE TIME
044636,000474: 17,3254           00006                           EXTEND                                         
044637,000475: 17,3255           63260                           BZMF     PBLASTOK                              #  IF SO LIMIT MINIMUM ON TIME TO 14 MS
044638,000476: 17,3256           33351                           CAF      =14MS                                 
044639,000477: 17,3257           55461                           TS       BLAST1                                
044640,000478: 17,3260           31461        PBLASTOK           CA       BLAST1                                
044641,000479: 17,3261           00006                           EXTEND                                         #  THE PITCH COMMANDS WILL BE COMPLETED
044642,000480: 17,3262           71523                           MP       NPJETS                                #  WITHIN THE TS-CYCLE TIME
044643,000481: 17,3263           23550                           LXCH     DFT1                                  #  FOR USE IN UPDATING RATE FILTER
044644,000482: 17,3264           55562                           TS       TAU1                                  #  ZERO TAU1 (ACC CONTAINS ZERO)
044645,000483: 17,3265           13415                           TCF      ASMBLWP                               
044646,000484: 
044647,000485:                                                                                                  #  YAW JET ON-TIME CALCULATION
044648,000486: 
044649,000487: 17,3266           11563        YAWTIME            CCS      TAU2                                  
044650,000488: 17,3267           13276                           TCF      YTAUPOS                               
044651,000489: 17,3270           13272                           TCF      +2                                    
044652,000490: 17,3271           13274                           TCF      YTAUNEG                               
044653,000491: 17,3272           55551                           TS       DFT2                                  #  NO YAW ROTATION COMMANDS
044654,000492: 17,3273           13574                           TCF      YBYPASS                               
044655,000493: 
044656,000494: 17,3274           41524        YTAUNEG            CS       NYJETS                                
044657,000495: 17,3275           55524                           TS       NYJETS                                
044658,000496: 17,3276           31563        YTAUPOS            CA       TAU2                                  
044659,000497: 17,3277           00006                           EXTEND                                         
044660,000498: 17,3300           51524                           INDEX    NYJETS                                
044661,000499: 17,3301           73411                           MP       NJET                                  
044662,000500: 17,3302           55463                           TS       BLAST2                                
044663,000501: 17,3303           63344                           AD       =-.1SEC                               
044664,000502: 17,3304           00006                           EXTEND                                         
044665,000503: 17,3305           63316                           BZMF     AD14MSY                               
044666,000504: 17,3306           51524                           INDEX    NYJETS                                
044667,000505: 17,3307           33345                           CA       DFTMAX                                #  YAW COMMANDS WILL LAST LONGER THAN .1SEC
044668,000506: 17,3310           55551                           TS       DFT2                                  
044669,000507: 17,3311           40000                           COM                                            
044670,000508: 17,3312           27563                           ADS      TAU2                                  #  DECREMENT TAU2
044671,000509: 17,3313           33346                           CAF      =+.1SEC                               #  LIMIT THE LENGTH OF YAW ROTATION COMMAND
044672,000510: 17,3314           55463                           TS       BLAST2                                #  TO 0.1 SEC SO THAT ONLY X-TRANSLATION
044673,000511: 17,3315           13561                           TCF      ASMBLWY                               #  WILL CONTINUE ON SWITCH OVER TO TVC
044674,000512: 
044675,000513: 17,3316           41463        AD14MSY            CS       BLAST2                                #  SEE IF JET ON-TIME LESS THAN
044676,000514: 17,3317           63351                           AD       =14MS                                 #  MINIMUM IMPULSE TIME
044677,000515: 17,3320           00006                           EXTEND                                         
044678,000516: 17,3321           63324                           BZMF     YBLASTOK                              #  IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
044679,000517: 17,3322           33351                           CAF      =14MS                                 
044680,000518: 17,3323           55463                           TS       BLAST2                                
044681,000519: 17,3324           31463        YBLASTOK           CA       BLAST2                                #  YAW COMMANDS WILL BE COMPLETED WITHIN
044682,000520: 17,3325           00006                           EXTEND                                         #  THE T5CYCLE TIME
044683,000521: 17,3326           71524                           MP       NYJETS                                
044684,000522: 17,3327           23551                           LXCH     DFT2                                  
044685,000523: 17,3330           55563                           TS       TAU2                                  #  ZERO TAU2
044686,000524: 17,3331           13561                           TCF      ASMBLWY                               
044687,000525: 
044688,000526:                                                                                                  #  ROLL ON-TIME CALCULATION-
044689,000527: 
044690,000528: 17,3332           11561        ROLLTIME           CCS      TAU                                   
044691,000529: 17,3333           13352                           TCF      RBLAST                                
044692,000530: 17,3334           13336                           TCF      +2                                    
044693,000531: 17,3335           13352                           TCF      RBLAST                                
044694,000532: 17,3336           51522                           INDEX    NRJETS                                
044695,000533: 17,3337           33345                           CA       DFTMAX                                #  UPDATE DFT EVEN THO NO ROLL COMMANDS ARE
044696,000534: 17,3340           55547                           TS       DFT                                   #  PRESENT
044697,000535: 17,3341           13554                           TCF      RBYPASS                               
044698,000536: 
044699,000537: 17,3342           77037                           DEC      -480       B-14                       #  =-.3SEC
044700,000538: 17,3343           77277                           DEC      -320       B-14                       #  =-.2SEC
044701,000539: 17,3344           77537        =-.1SEC            DEC      -160       B-14                       #  =-.1SEC
044702,000540: 17,3345           00000        DFTMAX             DEC      0          B-14                       #  0
044703,000541: 17,3346           00240        =+.1SEC            DEC      160        B-14                       #  =+.1SEC
044704,000542: 17,3347           00500                           DEC      320        B-14                       #  =+.2SEC
044705,000543: 17,3350           00740                           DEC      480        B-14                       #  =+.3SEC
044706,000544: 17,3351           00027        =14MS              DEC      23         B-14                       #  =14MS
044707,000545: 
044708,000546: 17,3352           31561        RBLAST             CA       TAU                                   
044709,000547: 17,3353           00006                           EXTEND                                         
044710,000548: 17,3354           51522                           INDEX    NRJETS                                
044711,000549: 17,3355           73411                           MP       NJET                                  
044712,000550: 17,3356           55457                           TS       BLAST                                 #  BLAST IS AN INTERMEDIATE VARIABLE
044713,000551:                                                                                                  #  USED IN DETERMINING THE JET ON-TIMES
044714,000552: 17,3357           63344                           AD       =-.1SEC                               
044715,000553: 17,3360           00006                           EXTEND                                         
044716,000554: 17,3361           63372                           BZMF     AD14MSR                               
044717,000555: 17,3362           51522                           INDEX    NRJETS                                #  THE ROLL ROTATION WILL LAST LONGER
044718,000556: 17,3363           33345                           CA       DFTMAX                                #  THAN THE T5 CYCLE TIME
044719,000557: 17,3364           55547                           TS       DFT                                   
044720,000558: 17,3365           40000                           COM                                            
044721,000559: 17,3366           27561                           ADS      TAU                                   
044722,000560: 17,3367           33346                           CAF      =+.1SEC                               #  LIMIT THE LENGTH OF ROLL ROTATION
044723,000561: 17,3370           55457                           TS       BLAST                                 #  COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z
044724,000562: 17,3371           13435                           TCF      ASMBLWR                               #  TRANSLATION COMMANDS CONTINUE
044725,000563: 
044726,000564: 17,3372           41457        AD14MSR            CS       BLAST                                 #  SEE IF THE JET ON-TIME LESS THAN
044727,000565: 17,3373           63351                           AD       =14MS                                 #  MINIMUM IMPULSE TIME
044728,000566: 17,3374           00006                           EXTEND                                         
044729,000567: 17,3375           63400                           BZMF     RBLASTOK                              
044730,000568: 17,3376           33351                           CAF      =14MS                                 #  IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
044731,000569: 17,3377           55457                           TS       BLAST                                 
044732,000570: 17,3400           31457        RBLASTOK           CA       BLAST                                 
044733,000571: 17,3401           00006                           EXTEND                                         
044734,000572: 17,3402           71522                           MP       NRJETS                                
044735,000573: 17,3403           23547                           LXCH     DFT                                   
044736,000574: 17,3404           55561                           TS       TAU                                   #  ZERO TAU
044737,000575: 17,3405           13435                           TCF      ASMBLWR                               
044738,000576: 
044739,000577: 17,3406           65252                           DEC      -.333333                              #  = -1/3
044740,000578: 17,3407           57777                           DEC      -.500000                              #  = -1/2
044741,000579: 17,3410           40000                           DEC      -.999999                              #  = -1 (NEGMAX)
044742,000580: 17,3411           00000        NJET               DEC      0          B-14                       
044743,000581: 17,3412           37777                           DEC      .999999                               #  = +1 (POSMAX)
044744,000582: 17,3413           20000                           DEC      .500000                               #  = +1/2
044745,000583: 17,3414           12525                           DEC      .333333                               #  = +1/3
044746,000584: 
044747,000585:                                                                                                  #  WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH
044748,000586:                                                                                                  #  CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT.
044749,000587: 
044750,000588:                                                                                                  #  IN THIS SECTION THESE NEW COMMANDS ARE GENERATED AND STORED FOR REPLACEMENT OF THE CHANNEL COMMANDS WHEN THE
044751,000589:                                                                                                  #  CORRESPONDING ROTATIONS ARE COMPLETED.
044752,000590: 
044753,000591:                                                                                                  #  GENERATION OF THE SECOND PITCH(X-TRANS) WORD...PWORD2
044754,000592: 
044755,000593: 17,3415           11626        ASMBLWP            CCS      RACFAIL                               
044756,000594: 17,3416           13424                           TCF      FPX2                                  #  IF FAILURE ON AC IGNORE X-TRANSLATION
044757,000595: 17,3417           13421                           TCF      +2                                    
044758,000596: 17,3420           13424                           TCF      FPX2                                  
044759,000597: 17,3421           51513                           INDEX    XNDX1                                 
044760,000598: 17,3422           32716                           CA       XLNNDX                                
044761,000599: 17,3423           50000                           INDEX    A                                     
044762,000600: 17,3424           32752        FPX2               CA       PYTABLE                               
044763,000601: 17,3425           72771                           MASK     PJETS                                 
044764,000602: 17,3426           55454                           TS       PWORD2                                
044765,000603: 17,3427           13266                           TCF      YAWTIME                               
044766,000604: 
044767,000605: 17,3430           31453        PBYPASS            CA       PWORD1                                #  THE T6 PROGRAM WILL LOAD PWORD2
044768,000606: 17,3431           55454                           TS       PWORD2                                #  UPON ENTRY
044769,000607: 17,3432           35035                           CAF      ZERO                                  
044770,000608: 17,3433           55461                           TS       BLAST1                                #  THERE IS NO PWORD2
044771,000609: 17,3434           13266                           TCF      YAWTIME                               
044772,000610: 
044773,000611:                                                                                                  #  GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2)
044774,000612: 
044775,000613: 17,3435           11515        ASMBLWR            CCS      YNDX                                  #  CHECK FOR Y-TRANS
044776,000614: 17,3436           13446                           TCF      ACBD2Y                                
044777,000615: 17,3437           35035        NO2Y               CAF      ZERO                                  
044778,000616: 17,3440           55452                           TS       RWORD2                                
044779,000617: 17,3441           11516                           CCS      ZNDX                                  #  CHECK FOR Z-TRANS
044780,000618: 17,3442           13511                           TCF      ACBD2Z                                
044781,000619: 17,3443           35035        NO2Z               CAF      ZERO                                  
044782,000620: 17,3444           27452                           ADS      RWORD2                                
044783,000621: 17,3445           13222                           TCF      PITCHTIM                              #  RWORD2 ASSEMBLED
044784,000622: 
044785,000623: 17,3446           11630        ACBD2Y             CCS      ACORBD                                
044786,000624: 17,3447           13464                           TCF      AC2Y                                  #  CAN DO Y-TRANS
044787,000625: 17,3450           13464                           TCF      AC2Y                                  
044788,000626: 17,3451           13452                           TCF      +1                                    #  USING AC FOR ROLL
044789,000627: 17,3452           11626                           CCS      RACFAIL                               
044790,000628: 17,3453           13437                           TCF      NO2Y                                  #  USING AC AND AC HAS FAILED
044791,000629: 17,3454           13456                           TCF      +2                                    
044792,000630: 17,3455           13437                           TCF      NO2Y                                  #  DITTO
044793,000631: 
044794,000632: 17,3456           51515                           INDEX    YNDX                                  #  NO FAILURES, CAN DO Y
044795,000633: 17,3457           32716                           CA       XLNNDX                                
044796,000634: 17,3460           50000                           INDEX    A                                     
044797,000635: 17,3461           33166                           CA       RTABLE                                
044798,000636: 17,3462           73205                           MASK     ACRJETS                               
044799,000637: 17,3463           13440                           TCF      NO2Y       +1                         
044800,000638: 
044801,000639: 17,3464           11626        AC2Y               CCS      RACFAIL                               
044802,000640: 17,3465           36214                           CAF      THREE                                 
044803,000641: 17,3466           13470                           TCF      +2                                    
044804,000642: 17,3467           36211                           CAF      SIX                                   
044805,000643: 17,3470           51515                           INDEX    YNDX                                  
044806,000644: 17,3471           63027                           AD       XLN1NDX                               
044807,000645: 17,3472           50000                           INDEX    A                                     
044808,000646: 17,3473           33207                           CA       YZTABLE                               
044809,000647: 17,3474           73221                           MASK     ACYJETS                               
044810,000648: 17,3475           55452                           TS       RWORD2                                
044811,000649: 17,3476           00006                           EXTEND                                         
044812,000650: 17,3477           75030                           MP       BIT4                                  
044813,000651: 17,3500           67715                           AD       =-2                                   
044814,000652: 17,3501           55522                           TS       NRJETS                                
044815,000653: 17,3502           41457                           CS       BLAST                                 
044816,000654: 17,3503           63346                           AD       =+.1SEC                               
044817,000655: 17,3504           00006                           EXTEND                                         
044818,000656: 17,3505           71522                           MP       NRJETS                                
044819,000657: 17,3506           30001                           CA       L                                     
044820,000658: 17,3507           27547                           ADS      DFT                                   
044821,000659: 17,3510           13441                           TCF      NO2Y       +2                         
044822,000660: 17,3511           11630        ACBD2Z             CCS      ACORBD                                
044823,000661: 17,3512           13542                           TCF      BDF2Z                                 #  USING BD-ROLL
044824,000662: 17,3513           13542                           TCF      BDF2Z                                 #  MUST CHECK FOR BD FAILURES
044825,000663: 17,3514           13515                           TCF      +1                                    
044826,000664: 17,3515           11627                           CCS      RBDFAIL                               #  USING AC FOR ROLL, CAN DO Z-TRANS
044827,000665: 17,3516           36214                           CAF      THREE                                 
044828,000666: 17,3517           13521                           TCF      +2                                    
044829,000667: 17,3520           36211                           CAF      SIX                                   
044830,000668: 17,3521           51516                           INDEX    ZNDX                                  
044831,000669: 17,3522           63027                           AD       XLN1NDX                               
044832,000670: 17,3523           50000                           INDEX    A                                     
044833,000671: 17,3524           33207                           CA       YZTABLE                               
044834,000672: 17,3525           73220                           MASK     BDZJETS                               
044835,000673: 17,3526           27452                           ADS      RWORD2                                
044836,000674: 17,3527           00006                           EXTEND                                         
044837,000675: 17,3530           75025                           MP       BIT7                                  
044838,000676: 17,3531           67715                           AD       =-2                                   
044839,000677: 17,3532           55522                           TS       NRJETS                                
044840,000678: 17,3533           41457                           CS       BLAST                                 
044841,000679: 17,3534           63346                           AD       =+.1SEC                               
044842,000680: 17,3535           00006                           EXTEND                                         
044843,000681: 17,3536           71522                           MP       NRJETS                                
044844,000682: 17,3537           30001                           CA       L                                     
044845,000683: 17,3540           27547                           ADS      DFT                                   
044846,000684: 17,3541           13222                           TCF      PITCHTIM                              
044847,000685: 
044848,000686: 17,3542           11627        BDF2Z              CCS      RBDFAIL                               
044849,000687: 17,3543           13443                           TCF      NO2Z                                  #  USING BD-ROLL AND BD HAS FAILED
044850,000688: 17,3544           13546                           TCF      +2                                    
044851,000689: 17,3545           13443                           TCF      NO2Z                                  #  DITTO
044852,000690: 17,3546           51516                           INDEX    ZNDX                                  
044853,000691: 17,3547           32716                           CA       XLNNDX                                
044854,000692: 17,3550           50000                           INDEX    A                                     
044855,000693: 17,3551           33166                           CA       RTABLE                                
044856,000694: 17,3552           73206                           MASK     BDRJETS                               
044857,000695: 17,3553           13444                           TCF      NO2Z       +1                         
044858,000696: 
044859,000697: 17,3554           31451        RBYPASS            CA       RWORD1                                
044860,000698: 17,3555           55452                           TS       RWORD2                                
044861,000699: 17,3556           35035                           CAF      ZERO                                  
044862,000700: 17,3557           55457                           TS       BLAST                                 
044863,000701: 17,3560           13222                           TCF      PITCHTIM                              
044864,000702: 
044865,000703:                                                                                                  #  GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2
044866,000704: 
044867,000705: 17,3561           11627        ASMBLWY            CCS      RBDFAIL                               
044868,000706: 17,3562           13570                           TCF      FYX2                                  #  IF FAILURE ON BD IGNORE X-TRANSLATION
044869,000707: 17,3563           13565                           TCF      +2                                    
044870,000708: 17,3564           13570                           TCF      FYX2                                  
044871,000709: 17,3565           51514                           INDEX    XNDX2                                 
044872,000710: 17,3566           32716                           CA       XLNNDX                                
044873,000711: 17,3567           50000                           INDEX    A                                     
044874,000712: 17,3570           32752        FYX2               CA       PYTABLE                               
044875,000713: 17,3571           72772                           MASK     YJETS                                 
044876,000714: 17,3572           55456                           TS       YWORD2                                
044877,000715: 17,3573           13600                           TCF      T6SETUP                               
044878,000716: 
044879,000717: 17,3574           31455        YBYPASS            CA       YWORD1                                
044880,000718: 17,3575           55456                           TS       YWORD2                                
044881,000719: 17,3576           35035                           CAF      ZERO                                  
044882,000720: 17,3577           55463                           TS       BLAST2                                
044883,000721: 
044884,000722:                                                                                                  #                                        SORT THE JET ON-TIMES
044885,000723: 
044886,000724:                                                                                                  #  AT THIS POINT ALL THE CHANNEL COMMANDS AND JET ON-TIMES HAVE BEEN DETERMINED.  IN SUMMARY THESE ARE-
044887,000725: 
044888,000726:                                                                                                  #        RWORD1
044889,000727:                                                                                                  #        RWORD2          BLAST
044890,000728: 
044891,000729:                                                                                                  #        PWORD1
044892,000730:                                                                                                  #        PWORD2          BLAST1
044893,000731: 
044894,000732:                                                                                                  #        YWORD1
044895,000733:                                                                                                  #        YWORD2          BLAST2
044896,000734: 
044897,000735:                                                                                                  #  IN THIS SECTION THE JET ON-TIMES ARE SORTED AND THE SEQUENCE OF T6 INTERRUPTS IS DETERMINED.  TO FACILITATE
044898,000736:                                                                                                  #  THE SORTING PROCESS AND THE T6 PROGRAM, THE VARIABLES BLAST, BLAST1, BLAST2, ARE RESERVED AS DOUBLE PRECISION
044899,000737:                                                                                                  #  WORDS.  THE LOWER PART OF THESE WORDS CONTAIN A BRANCH INDEX ASSOCIATED WITH THE ROTATION AXIS OF THE HIGHER
044900,000738:                                                                                                  #  ORDER WORD.
044901,000739: 
044902,000740: 17,3600           35035        T6SETUP            CAF      ZERO                                  #  BRANCH INDEX FOR ROLL
044903,000741: 17,3601           55460                           TS       BLAST      +1                         
044904,000742: 17,3602           35031                           CAF      FOUR                                  #  BRANCH INDEX FOR PITCH
044905,000743: 17,3603           55462                           TS       BLAST1     +1                         
044906,000744: 17,3604           35040                           CAF      ELEVEN                                #  BRANCH INDEX FOR YAW
044907,000745: 17,3605           55464                           TS       BLAST2     +1                         
044908,000746: 
044909,000747: 17,3606           41457                           CS       BLAST                                 
044910,000748: 17,3607           61461                           AD       BLAST1                                
044911,000749: 17,3610           00006                           EXTEND                                         
044912,000750: 17,3611           63635                           BZMF     DXCHT12                               #  T1 GR T2
044913,000751: 17,3612           41461        CHECKT23           CS       BLAST1                                
044914,000752: 17,3613           61463                           AD       BLAST2                                
044915,000753: 17,3614           00006                           EXTEND                                         
044916,000754: 17,3615           63641                           BZMF     DXCHT23                               
044917,000755: 17,3616           41461        CALCDT6            CS       BLAST1                                
044918,000756: 17,3617           27463                           ADS      BLAST2                                
044919,000757: 17,3620           41457                           CS       BLAST                                 
044920,000758: 17,3621           27461                           ADS      BLAST1                                #  END OF SORTING PROCEDURE
044921,000759: 17,3622           00006                           EXTEND                                         #  RESET T5LOC TO BEGIN PHASE1
044922,000760: 17,3623           33634                           DCA      RCS2CADR                              
044923,000761: 17,3624           53313                           DXCH     T5LOC                                 
044924,000762: 17,3625           45033        ENDJETS            CS       BIT1                                  #  RESET BIT1 FOR INITIALIZATION OF
044925,000763: 17,3626           71501                           MASK     RCSFLAGS                              #  T6 PROGRAM
044926,000764: 17,3627           55501                           TS       RCSFLAGS                              
044927,000765: 17,3630           45035                           CS       ZERO                                  #  RESET T5PHASE FOR PHASE1
044928,000766: 17,3631           55465                           TS       T5PHASE                               
044929,000767: 17,3632           15347                           TCF      RESUME                                #  RESUME INTERRUPTED PROGRAM
044930,000768: 
044931,000769: 17,3633  E6,1510                                  EBANK=   KMPAC                                 
044932,000770: 17,3633           02134 42066  RCS2CADR           2CADR    RCSATT                                
044933,000771: 
044934,000772: 17,3635           53460        DXCHT12            DXCH     BLAST                                 
044935,000773: 17,3636           53462                           DXCH     BLAST1                                
044936,000774: 17,3637           53460                           DXCH     BLAST                                 
044937,000775: 17,3640           13612                           TCF      CHECKT23                              
044938,000776: 
044939,000777: 17,3641           53462        DXCHT23            DXCH     BLAST1                                
044940,000778: 17,3642           53464                           DXCH     BLAST2                                
044941,000779: 17,3643           53462                           DXCH     BLAST1                                
044942,000780: 17,3644           41457                           CS       BLAST                                 
044943,000781: 17,3645           61461                           AD       BLAST1                                
044944,000782: 17,3646           00006                           EXTEND                                         
044945,000783: 17,3647           63651                           BZMF     +2                                    
044946,000784: 17,3650           13616                           TCF      CALCDT6                               
044947,000785: 17,3651           53460                           DXCH     BLAST                                 
044948,000786: 17,3652           53462                           DXCH     BLAST1                                
044949,000787: 17,3653           53460                           DXCH     BLAST                                 
044950,000788: 17,3654           13616                           TCF      CALCDT6                               
044951,000789: 
044952,000790:                                                                                                  #  T6 PROGRAM AND CHANNEL SETUP
044953,000791: 
044954,000792: 21,3777                                           BANK     21                                    
044955,000793: 17,2000                                           SETLOC   DAPS5                                 
044956,000794: 17,2000                                           BANK                                           
044957,000795: 
044958,000796: 17,3655           22016        T6START            LXCH     BANKRUPT                              
044959,000797: 17,3656           00006                           EXTEND                                         
044960,000798: 17,3657           22012                           QXCH     QRUPT                                 
044961,000799: 17,3660           10031                           CCS      TIME6                                 #  CHECK TO SEE IF TIME6 WAS RESET
044962,000800: 17,3661           15347                           TCF      RESUME                                #  AFTER T6RUPT OCCURED (IN T5RUPT)
044963,000801: 17,3662           13664                           TCF      +2                                    #  IF SO WAIT FOR NEXT T6RUPT BEFORE
044964,000802: 17,3663           15347                           TCF      RESUME                                #  TAKING ACTION
044965,000803: 
044966,000804: 17,3664           41501                           CS       RCSFLAGS                              
044967,000805: 17,3665           75033                           MASK     BIT1                                  #  IF BIT1 IS 0 RESET TO 1
044968,000806: 17,3666           00006                           EXTEND                                         #  AND INITIALIZE CHANNEL
044969,000807: 17,3667           13700                           BZF      T6RUPTOR                              
044970,000808: 17,3670           27501                           ADS      RCSFLAGS                              
044971,000809: 17,3671           31451                           CA       RWORD1                                
044972,000810: 17,3672           00006                           EXTEND                                         #  INITIALIZE CHANNELS 5,6 WITH WORD1
044973,000811: 17,3673           01006                           WRITE    CHAN6                                 
044974,000812: 17,3674           31453                           CA       PWORD1                                
044975,000813: 17,3675           61455                           AD       YWORD1                                
044976,000814: 17,3676           00006                           EXTEND                                         
044977,000815: 17,3677           01005                           WRITE    CHAN5                                 
044978,000816: 
044979,000817: 17,3700           11457        T6RUPTOR           CCS      BLAST                                 
044980,000818: 17,3701           13760                           TCF      ZBLAST                                #  ZERO BLAST1
044981,000819: 17,3702           13717                           TCF      REPLACE                               #  REPLACE WORD1
044982,000820: 17,3703           13705                           TCF      +2                                    
044983,000821: 17,3704           13717                           TCF      REPLACE                               
044984,000822: 17,3705           11461        T6L1               CCS      BLAST1                                
044985,000823: 17,3706           13763                           TCF      ZBLAST1                               
044986,000824: 17,3707           13724                           TCF      REPLACE1                              
044987,000825: 17,3710           13712                           TCF      +2                                    
044988,000826: 17,3711           13724                           TCF      REPLACE1                              
044989,000827: 17,3712           11463        T6L2               CCS      BLAST2                                
044990,000828: 17,3713           13766                           TCF      ZBLAST2                               
044991,000829: 17,3714           13731                           TCF      REPLACE2                              
044992,000830: 17,3715           15347                           TCF      RESUME                                
044993,000831: 17,3716           13731                           TCF      REPLACE2                              
044994,000832: 
044995,000833: 17,3717           51460        REPLACE            INDEX    BLAST      +1                         
044996,000834: 17,3720           03736                           TC       REPLACER                              
044997,000835: 17,3721           45033                           CS       ONE                                   
044998,000836: 17,3722           55457                           TS       BLAST                                 
044999,000837: 17,3723           13705                           TCF      T6L1                                  
045000,000838: 
045001,000839: 17,3724           51462        REPLACE1           INDEX    BLAST1     +1                         
045002,000840: 17,3725           03736                           TC       REPLACER                              
045003,000841: 17,3726           45033                           CS       ONE                                   
045004,000842: 17,3727           55461                           TS       BLAST1                                
045005,000843: 17,3730           13712                           TCF      T6L2                                  
045006,000844: 
045007,000845: 17,3731           51464        REPLACE2           INDEX    BLAST2     +1                         
045008,000846: 17,3732           03736                           TC       REPLACER                              
045009,000847: 17,3733           45033                           CS       ONE                                   
045010,000848: 17,3734           55463                           TS       BLAST2                                
045011,000849: 17,3735           15347                           TCF      RESUME                                
045012,000850: 
045013,000851: 17,3736           31452        REPLACER           CA       RWORD2                                #  INITIALIZE CHANNELS 5,6 WITH WORD2
045014,000852: 17,3737           00006                           EXTEND                                         
045015,000853: 17,3740           01006                           WRITE    CHAN6                                 
045016,000854: 17,3741           00002                           TC       Q                                     
045017,000855: 
045018,000856: 17,3742           32772        REPLACEP           CA       YJETS                                 
045019,000857: 17,3743           00006                           EXTEND                                         
045020,000858: 17,3744           02005                           RAND     CHAN5                                 
045021,000859: 17,3745           61454                           AD       PWORD2                                
045022,000860: 17,3746           00006                           EXTEND                                         
045023,000861: 17,3747           01005                           WRITE    CHAN5                                 
045024,000862: 17,3750           00002                           TC       Q                                     
045025,000863: 
045026,000864: 17,3751           32771        REPLACEY           CA       PJETS                                 
045027,000865: 17,3752           00006                           EXTEND                                         
045028,000866: 17,3753           02005                           RAND     CHAN5                                 
045029,000867: 17,3754           61456                           AD       YWORD2                                
045030,000868: 17,3755           00006                           EXTEND                                         
045031,000869: 17,3756           01005                           WRITE    CHAN5                                 
045032,000870: 17,3757           00002                           TC       Q                                     
045033,000871: 
045034,000872: 17,3760           35035        ZBLAST             CAF      ZERO                                  
045035,000873: 17,3761           57457                           XCH      BLAST                                 
045036,000874: 17,3762           13770                           TCF      ENABT6                                
045037,000875: 17,3763           35035        ZBLAST1            CAF      ZERO                                  
045038,000876: 17,3764           57461                           XCH      BLAST1                                
045039,000877: 17,3765           13770                           TCF      ENABT6                                
045040,000878: 17,3766           35035        ZBLAST2            CAF      ZERO                                  
045041,000879: 17,3767           57463                           XCH      BLAST2                                
045042,000880: 17,3770           54031        ENABT6             TS       TIME6                                 
045043,000881: 17,3771           35015                           CAF      NEGMAX                                
045044,000882: 17,3772           00006                           EXTEND                                         
045045,000883: 17,3773           05013                           WOR      CHAN13                                #  ENABLE T6RUPT
045046,000884: 17,3774           15347                           TCF      RESUME                                
045047,000885: 
045048,000886:                                                                                                  #  END OF T6 INTERRUPT
045049,000887: 
045050,000888: 17,3775                        ENDSLECT           EQUALS                                         
045051,000889: 

End of include-file JET_SELECTION_LOGIC.agc.  Parent file is MAIN.agc