Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

043805,000002:                                                                                                  ## Copyright:   Public domain.
043806,000003:                                                                                                  ## Filename:    JET_SELECTION_LOGIC.agc
043807,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
043808,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
043809,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
043810,000007:                                                                                                  ## Assembler:   yaYUL
043811,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
043812,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
043813,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
043814,000011:                                                                                                  ## Mod history: 2011-04-06 JL   Adapted from corresponding Colossus 249 file.
043815,000012:                                                                                                  ##              2017-01-01 RSB  Proofed comment text using octopus/ProoferComments,
043816,000013:                                                                                                  ##                              and fixed errors found.
043817,000014:                                                                                                  ##              2017-01-15 RSB  Fixed comment-text errors identified by diff'ing
043818,000015:                                                                                                  ##                              against Colossus 249.
043819,000016:                                                                                                  ##              2017-02-05 RSB  Back-ported comment corrections 
043820,000017:                                                                                                  ##                              identified while proofing Artemis 072.
043821,000018: 

Page 1007

043823,000020: 21,3751                                           BANK     21                                    
043824,000021: 17,2000                                           SETLOC   DAPS4                                 
043825,000022: 17,2000                                           BANK                                           
043826,000023: 
043827,000024: 17,2601                                           COUNT    17/DAPJS                              
043828,000025: 
043829,000026: 17,2601  E6,1510                                  EBANK=   KMPAC                                 
043830,000027:                                                                                                  #  EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS
043831,000028: 
043832,000029: 17,2601           22016        JETSLECT           LXCH     BANKRUPT                              
043833,000030: 17,2602           32663                           CAF      DELTATT3                              #  = 60 MS   RESET TO EXECUTE PHASE1
043834,000031: 17,2603           61634                           AD       T5TIME                                
043835,000032: 17,2604           54030                           TS       TIME5                                 
043836,000033: 17,2605           12610                           TCF      +3                                    
043837,000034: 17,2606           32664                           CAF      DELATT20                              #  = 20 MS   TO ASSURE A T5RUPT
043838,000035: 17,2607           54030                           TS       TIME5                                 
043839,000036: 17,2610           33342                           CAF      =14MS                                 #  RESET T6 TO INITIALIZE THE JET CHANNELS
043840,000037: 17,2611           54031                           TS       TIME6                                 #  IN 14 MS
043841,000038: 17,2612           34674                           CAF      NEGMAX                                
043842,000039: 17,2613           00006                           EXTEND                                         
043843,000040: 17,2614           05013                           WOR      CHAN13                                
043844,000041: 17,2615           00006                           EXTEND                                         
043845,000042: 17,2616           22012                           QXCH     QRUPT                                 
043846,000043: 17,2617           32662                           CAF      XLNMASK                               #  = 7700 OCT
043847,000044: 17,2620           00006                           EXTEND                                         #  EXAMINE THE TRANSLATION
043848,000045: 17,2621           06031                           RXOR     CHAN31                                #  HAND CONTROLLER
043849,000046: 17,2622           72662                           MASK     XLNMASK                               
043850,000047: 17,2623           00006                           EXTEND                                         
043851,000048: 17,2624           12665                           BZF      NOXLNCMD                              
043852,000049: 17,2625           55502                           TS       T5TEMP                                
043853,000050: 17,2626           00006                           EXTEND                                         
043854,000051: 17,2627           74702                           MP       BIT9                                  
043855,000052: 17,2630           76214                           MASK     THREE                                 
043856,000053: 17,2631           55513                           TS       XNDX1                                 #  AC QUAD  X-TRANSLATION INDEX
043857,000054: 17,2632           55514                           TS       XNDX2                                 #  BD QUAD  X-TRANSLATION INDEX
043858,000055: 17,2633           31502                           CA       T5TEMP                                
043859,000056: 17,2634           00006                           EXTEND                                         #  1 = + XLN
043860,000057: 17,2635           74704                           MP       BIT7                                  #  2 = - XLN
043861,000058: 17,2636           76214                           MASK     THREE                                 #  3 = NO XLN
043862,000059: 17,2637           55515                           TS       YNDX                                  #  Y-TRANSLATION INDEX
043863,000060: 
043864,000061: 17,2640           31502                           CA       T5TEMP                                
043865,000062: 17,2641           00006                           EXTEND                                         
043866,000063: 17,2642           74706                           MP       BIT5                                  
043867,000064: 17,2643           76214                           MASK     THREE                                 
043868,000065: 17,2644           55516                           TS       ZNDX                                  #  Z-TRANSLATION INDEX
043869,000066: 
043870,000067: 17,2645           31466                           CA       DAPDATR1                              #  SET ATTKALMN TO PICK UP FILTER GAINS FOR
043871,000068: 17,2646           74675                           MASK     BIT14                                 #  TRANSLATIONS.
043872,000069: 17,2647           00006                           EXTEND                                         #  CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED.

Page 1008

043874,000071: 17,2650           12653                           BZF      NOLEM                                 
043875,000072: 17,2651           46214                           CS       THREE                                 #  IF LEM IS ON, SET ATTKALMN = -3
043876,000073: 17,2652           12654                           TCF      +2                                    
043877,000074: 17,2653           44711        NOLEM              CS       TWO                                   #  IF LEM IS OFF, SET ATTKALMN = -2.
043878,000075: 17,2654           55617                           TS       ATTKALMN                              
043879,000076: 17,2655           11631                           CCS      XTRANS                                #  (+, -1, 0)
043880,000077: 17,2656           55513                           TS       XNDX1                                 #  USING BD-X  ZERO XNDX1
043881,000078: 17,2657           12671                           TCF      PWORD                                 
043882,000079: 17,2660           55514                           TS       XNDX2                                 #  USING AC-X  ZERO XNDX2
043883,000080: 17,2661           12671                           TCF      PWORD                                 
043884,000081: 17,2662           07700        XLNMASK            OCT      7700                                  
043885,000082: 
043886,000083: 
043887,000084: 17,2663           37772        DELTATT3           DEC      16378      B-14                       #  = 60 MS
043888,000085: 17,2664           37776        DELATT20           DEC      16382      B-14                       #  = 20 MS
043889,000086: 
043890,000087: 17,2665           55513        NOXLNCMD           TS       XNDX1                                 #  ZERO ALL REQUESTS FOR TRANSLATION
043891,000088: 17,2666           55514                           TS       XNDX2                                 
043892,000089: 17,2667           55515                           TS       YNDX                                  
043893,000090: 17,2670           55516                           TS       ZNDX                                  
043894,000091: 
043895,000092:                                                                                                  #  PITCH COMMANDS  TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT
043896,000093: 
043897,000094: 17,2671           11562        PWORD              CCS      TAU1                                  #  CHECK FOR PITCH COMMANDS
043898,000095: 17,2672           34712                           CAF      ONE                                   
043899,000096: 17,2673           12675                           TCF      +2                                    #   0 = NO PITCH
043900,000097: 17,2674           34711                           CAF      TWO                                   #  +1 =  + PITCH
043901,000098: 17,2675           55520                           TS       PINDEX                                #  +2 =  - PITCH
043902,000099: 
043903,000100: 17,2676           11626                           CCS      RACFAIL                               #  FLAG FOR REAL AC QUAD FAILURES
043904,000101: 17,2677           12703                           TCF      AFAILP                                
043905,000102: 17,2700           12713                           TCF      TABPCOM                               #  0 = NO REAL AC FAILURES
043906,000103: 17,2701           12705                           TCF      CFAILP                                #  + = A QUAD FAILED
043907,000104: 17,2702           12713                           TCF      TABPCOM                               #  - = C QUAD FAILED
043908,000105:                                                                                                  #                                          IF FAILURES ARE PRESENT IGNORE
043909,000106:                                                                                                  #                                          X-TRANSLATIONS ON THIS AXIS
043910,000107: 
043911,000108: 17,2703           34334        AFAILP             CAF      NINE                                  #  IF FAILURE IS PRESENT 1JET OPERATION
043912,000109: 17,2704           12715                           TCF      TABPCOM    +2                         #  IS ASSUMED. IGNORE X-TRANSLATION
043913,000110: 17,2705           35660        CFAILP             CAF      TWELVE                                
043914,000111: 17,2706           12715                           TCF      TABPCOM    +2                         
043915,000112: 
043916,000113: 17,2707           00000        XLNNDX             DEC      0          B-14                       #  INDECES FOR TRANSLATION COMMANDS
043917,000114: 17,2710           00003                           DEC      3          B-14                       #  FOR USE IN TABLE LOOK UP
043918,000115: 17,2711           00006                           DEC      6          B-14                       
043919,000116: 17,2712           00000                           DEC      0          B-14                       
043920,000117: 
043921,000118: 17,2713     5660               TWELVE             =        OCT14                                 
043922,000119:                                                                                                  #  TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT.
043923,000120:                                                                                                  #  BITS 9, 10 CONTAIN THE NUMBER OF PITCH JETS USED TO PERFORM THE PITCH ROTATION

Page 1009

043925,000122: 17,2713           51513        TABPCOM            INDEX    XNDX1                                 
043926,000123: 17,2714           32707                           CA       XLNNDX                                
043927,000124: 17,2715           61520                           AD       PINDEX                                
043928,000125: 17,2716           50000                           INDEX    A                                     
043929,000126: 17,2717           32743                           CA       PYTABLE                               
043930,000127: 17,2720           72762                           MASK     PJETS                                 #  =1417 OCT
043931,000128: 17,2721           55453                           TS       PWORD1                                
043932,000129: 17,2722           00006                           EXTEND                                         
043933,000130: 17,2723           74704                           MP       BIT7                                  
043934,000131: 17,2724           55523                           TS       NPJETS                                #  = NO. OF PITCH JETS
043935,000132: 
043936,000133:                                                                                                  #  YAW JET COMMANDS  TIMING(NO X-TRANS, NO QUAD FAILURES)  32MCT
043937,000134: 
043938,000135: 17,2725           11563        YWORD              CCS      TAU2                                  #  CHECK FOR YAW COMMANDS
043939,000136: 17,2726           34712                           CAF      ONE                                   
043940,000137: 17,2727           12731                           TCF      +2                                    
043941,000138: 17,2730           34711                           CAF      TWO                                   
043942,000139: 17,2731           55521                           TS       YINDEX                                #  YAW ROTATION INDEX
043943,000140: 
043944,000141: 17,2732           11627                           CCS      RBDFAIL                               #  FLAG FOR B OR D QUAD FAILURES
043945,000142: 17,2733           12737                           TCF      BFAILY                                #  0  = NO BD FAILURE
043946,000143: 17,2734           12764                           TCF      TABYCOM                               #  +  = B QUAD FAILED
043947,000144: 17,2735           12741                           TCF      DFAILY                                #  -  = D QUAD FAILED
043948,000145: 17,2736           12764                           TCF      TABYCOM                               
043949,000146: 
043950,000147: 17,2737           34334        BFAILY             CAF      NINE                                  
043951,000148: 17,2740           12766                           TCF      TABYCOM    +2                         
043952,000149: 17,2741           35660        DFAILY             CAF      TWELVE                                
043953,000150: 17,2742           12766                           TCF      TABYCOM    +2                         
043954,000151: 

Page 1010

043956,000153:                                                                                                  #  TABLE FOR PITCH(YAW) COMMANDS
043957,000154:                                                                                                  #  BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED
043958,000155:                                                                                                  #  BITS     10,9 = NO. PITCH JETS USED TO PERFORM ROTATION
043959,000156:                                                                                                  #  BITS 8,7,6,5 = YAW, X-TRANSLATION JETS SELECTED
043960,000157:                                                                                                  #  BITS 12,11 : NO. YAW JETS USED TO PERFORM ROTATION
043961,000158: 
043962,000159:                                                                                                  #                                          ROT  TRANS  QUAD  BIAS
043963,000160: 17,2743           00000        PYTABLE            OCT      0                                     #   0     0            0
043964,000161: 17,2744           05125                           OCT      5125                                  #   +     0            0
043965,000162: 17,2745           05252                           OCT      5252                                  #   -     0            0
043966,000163: 17,2746           00231                           OCT      0231                                  #   0     +            3
043967,000164: 17,2747           02421                           OCT      2421                                  #   +     +            3
043968,000165: 17,2750           02610                           OCT      2610                                  #   -     +            3
043969,000166: 17,2751           00146                           OCT      0146                                  #   0     -            6
043970,000167: 17,2752           02504                           OCT      2504                                  #   +     -            6
043971,000168: 17,2753           02442                           OCT      2442                                  #   -     -            6
043972,000169: 17,2754           00000                           OCT      0                                     #   0          A(B)    9
043973,000170: 17,2755           02421                           OCT      2421                                  #   +          A(B)    9
043974,000171: 17,2756           02442                           OCT      2442                                  #   -          A(B)    9
043975,000172: 17,2757           00000                           OCT      0                                     #   0          C(D)    12
043976,000173: 17,2760           02504                           OCT      2504                                  #   +          C(D)    12
043977,000174: 17,2761           02610                           OCT      2610                                  #   -          C(D)    12
043978,000175: 
043979,000176:                                                                                                  #  MASKS FOR PITCH AND YAW COMMANDS
043980,000177: 
043981,000178: 17,2762           01417        PJETS              OCT      1417                                  
043982,000179: 17,2763           06360        YJETS              OCT      6360                                  
043983,000180: 
043984,000181:                                                                                                  #  TABLE LOOK UP FOR YAW COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT
043985,000182:                                                                                                  #  BITS 11, 12 CONTAIN THE NUMBER OF YAW JETS USED TO PERFORM THE YAW ROTATION
043986,000183: 
043987,000184: 17,2764           51514        TABYCOM            INDEX    XNDX2                                 
043988,000185: 17,2765           32707                           CA       XLNNDX                                
043989,000186: 17,2766           61521                           AD       YINDEX                                
043990,000187: 17,2767           50000                           INDEX    A                                     
043991,000188: 17,2770           32743                           CA       PYTABLE                               
043992,000189: 17,2771           72763                           MASK     YJETS                                 #  = 6360 OCT
043993,000190: 17,2772           55455                           TS       YWORD1                                
043994,000191: 17,2773           00006                           EXTEND                                         
043995,000192: 17,2774           74706                           MP       BIT5                                  
043996,000193: 17,2775           55524                           TS       NYJETS                                #  NO. OF YAW JETS USED TO PERFORM ROTATION
043997,000194: 

Page 1011

043999,000196:                                                                                                  #  ROLL COMMANDS  TIMING(NO Y,Z TRANS, NO QUAD FAILS)   45MCT
044000,000197: 
044001,000198: 17,2776           11561        RWORD              CCS      TAU                                   #  CHECK FOR ROLL COMMANDS
044002,000199: 17,2777           34712                           CAF      ONE                                   
044003,000200: 17,3000           13002                           TCF      +2                                    
044004,000201: 17,3001           34711                           CAF      TWO                                   
044005,000202: 17,3002           55517                           TS       RINDEX                                
044006,000203: 
044007,000204: 17,3003           11630                           CCS      ACORBD                                #  FLAG FOR AC OR BD QUAD SELECTION FOR
044008,000205: 17,3004           13075                           TCF      BDROLL                                #  ROLL COMMANDS
044009,000206: 17,3005           13075                           TCF      BDROLL                                #  +, +0 = BD ROLL
044010,000207: 17,3006           13007                           TCF      +1                                    #  -, -0 = AC ROLL
044011,000208: 
044012,000209: 17,3007           11626        ACROLL             CCS      RACFAIL                               #  CHECK FOR REAL FAILURES
044013,000210: 17,3010           13014                           TCF      RAFAIL                                #  ON AC QUADS
044014,000211: 17,3011           13024                           TCF      RXLNS                                 
044015,000212: 17,3012           13016                           TCF      RCFAIL                                
044016,000213: 17,3013           13024                           TCF      RXLNS                                 
044017,000214: 
044018,000215: 17,3014           34334        RAFAIL             CAF      NINE                                  #  QUAD FAILURE  WILL GET
044019,000216: 17,3015           13026                           TCF      TABRCOM                               #  1-JET OPERATION
044020,000217: 17,3016           35660        RCFAIL             CAF      TWELVE                                
044021,000218: 17,3017           13026                           TCF      TABRCOM                               
044022,000219: 
044023,000220: 17,3020           00000        XLN1NDX            DEC      0          B-14                       
044024,000221: 17,3021           00001                           DEC      1          B-14                       #  INDECES FOR TRANSLATION
044025,000222: 17,3022           00002                           DEC      2          B-14                       
044026,000223: 17,3023           00000                           DEC      0          B-14                       
044027,000224: 
044028,000225:                                                                                                  #  TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT
044029,000226:                                                                                                  #  BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL
044030,000227: 
044031,000228: 17,3024           51515        RXLNS              INDEX    YNDX                                  #  NO AC QUAD FAILURES
044032,000229: 17,3025           32707                           CA       XLNNDX                                #  INCLUDE +,-,0, Y-TRANSLATION
044033,000230: 17,3026           61517        TABRCOM            AD       RINDEX                                
044034,000231: 17,3027           50000                           INDEX    A                                     
044035,000232: 17,3030           33157                           CA       RTABLE                                
044036,000233: 17,3031           73176                           MASK     ACRJETS                               #  = 3760 OCT
044037,000234: 17,3032           55451                           TS       RWORD1                                
044038,000235: 
044039,000236:                                                                                                  #  CHECK FOR Z-TRANSLATIONS ON BD
044040,000237: 
044041,000238: 17,3033           31516        BDZCHECK           CA       ZNDX                                  
044042,000239: 17,3034           00006                           EXTEND                                         
044043,000240: 17,3035           63067                           BZMF     NOBDZ                                 #  NO Z-TRANSLATION
044044,000241: 

Page 1012

044046,000243:                                                                                                  #           TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES.  Z-TRANSLATION WILL BE POSS-
044047,000244:                                                                                                  #  IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS.  CRITERION.. IF THE RESULTANT NET ROLL
044048,000245:                                                                                                  #  COMMANDS = 0 (WITH Z-TRANSLATION) AND IF TAU = 0, THEN INCLUDE THE BD Z-TRANSLATION COMMANDS. IF THE RESULTANT
044049,000246:                                                                                                  #  ROLL COMMAND = 0, AND IF TAU NZ, THEN IGNORE THE BD Z-TRANSLATION
044050,000247: 
044051,000248: 17,3036           11627                           CCS      RBDFAIL                               
044052,000249: 17,3037           36214                           CAF      THREE                                 
044053,000250: 17,3040           13042                           TCF      +2                                    
044054,000251: 17,3041           36211                           CAF      SIX                                   
044055,000252: 17,3042           51516                           INDEX    ZNDX                                  
044056,000253: 17,3043           63020                           AD       XLN1NDX                               
044057,000254: 17,3044           50000                           INDEX    A                                     
044058,000255: 17,3045           33200                           CA       YZTABLE                               
044059,000256: 17,3046           73211                           MASK     BDZJETS                               #  = 3417 OCT
044060,000257: 17,3047           61451                           AD       RWORD1                                #  ADD TO ROLL COMMANDS
044061,000258: 17,3050           55502                           TS       T5TEMP                                #  IF POSSIBLE.  MUST CHECK TAU FIRST
044062,000259: 
044063,000260: 17,3051           00006                           EXTEND                                         
044064,000261: 17,3052           74704                           MP       BIT7                                  #  DETERMINE THE NET ROLL COMMAND WITH
044065,000262: 17,3053           66061                           AD       =-4                                   #  Z-TRANSLATION ADDED ON
044066,000263: 17,3054           55522                           TS       NRJETS                                #  NET NO. OF +,- ROLL JETS ON
044067,000264: 17,3055           00006                           EXTEND                                         
044068,000265: 17,3056           13062                           BZF      TAUCHECK                              
044069,000266: 
044070,000267: 17,3057           31502        ACRBDZ             CA       T5TEMP                                #  Z-TRANSLATION ACCEPTED EVEN THO WE MAY
044071,000268: 17,3060           55451                           TS       RWORD1                                #  HAVE INTRODUCED AN UNDESIREABLE ROLL
044072,000269: 17,3061           13323                           TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATIONS
044073,000270: 
044074,000271: 17,3062           11561        TAUCHECK           CCS      TAU                                   
044075,000272: 17,3063           13067                           TCF      NOBDZ                                 
044076,000273: 17,3064           13057                           TCF      ACRBDZ                                
044077,000274: 17,3065           13067                           TCF      NOBDZ                                 
044078,000275: 17,3066           13057                           TCF      ACRBDZ                                
044079,000276: 
044080,000277: 17,3067           31451        NOBDZ              CA       RWORD1                                #  Z-TRANSLATION NOT ACCEPTED
044081,000278: 17,3070           00006                           EXTEND                                         
044082,000279: 17,3071           74704                           MP       BIT7                                  
044083,000280: 17,3072           67715                           AD       =-2                                   
044084,000281: 17,3073           55522                           TS       NRJETS                                
044085,000282: 17,3074           13323                           TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATION
044086,000283: 

Page 1013

044088,000285:                                                                                                  #  BD QUAD SELECTION FOR ROLL COMMANDS
044089,000286: 
044090,000287: 17,3075           11627        BDROLL             CCS      RBDFAIL                               
044091,000288: 17,3076           13102                           TCF      RBFAIL                                
044092,000289: 17,3077           13106                           TCF      RZXLNS                                
044093,000290: 17,3100           13104                           TCF      RDFAIL                                
044094,000291: 17,3101           13106                           TCF      RZXLNS                                
044095,000292: 17,3102           34334        RBFAIL             CAF      NINE                                  
044096,000293: 17,3103           13110                           TCF      TABRZCMD                              
044097,000294: 17,3104           35660        RDFAIL             CAF      TWELVE                                
044098,000295: 17,3105           13110                           TCF      TABRZCMD                              
044099,000296: 
044100,000297: 17,3106           51516        RZXLNS             INDEX    ZNDX                                  #  NO BD FAILURES
044101,000298: 17,3107           32707                           CA       XLNNDX                                #  +,-,0 Z-TRANSLATION PRESENT
044102,000299: 17,3110           61517        TABRZCMD           AD       RINDEX                                
044103,000300: 17,3111           50000                           INDEX    A                                     
044104,000301: 17,3112           33157                           CA       RTABLE                                
044105,000302: 17,3113           73177                           MASK     BDRJETS                               #  = 34017 OCT
044106,000303: 17,3114           55451                           TS       RWORD1                                
044107,000304: 
044108,000305: 17,3115           31515        ACYCHECK           CA       YNDX                                  #  ANY Y-TRANSLATION
044109,000306: 17,3116           00006                           EXTEND                                         
044110,000307: 17,3117           13151                           BZF      NOACY                                 #  NO Y-TRANSLATION
044111,000308: 17,3120           11626                           CCS      RACFAIL                               
044112,000309: 17,3121           36214                           CAF      THREE                                 
044113,000310: 17,3122           13124                           TCF      +2                                    
044114,000311: 17,3123           36211                           CAF      SIX                                   
044115,000312: 17,3124           51515                           INDEX    YNDX                                  
044116,000313: 17,3125           63020                           AD       XLN1NDX                               
044117,000314: 17,3126           50000                           INDEX    A                                     
044118,000315: 17,3127           33200                           CA       YZTABLE                               
044119,000316: 17,3130           73212                           MASK     ACYJETS                               #  = 34360 OCT
044120,000317: 17,3131           61451                           AD       RWORD1                                
044121,000318: 17,3132           55502                           TS       T5TEMP                                
044122,000319: 17,3133           00006                           EXTEND                                         #  FOR EXPLANATION SEE CODING ON RTABLE
044123,000320: 17,3134           74707                           MP       BIT4                                  
044124,000321: 17,3135           66061                           AD       =-4                                   
044125,000322: 17,3136           55522                           TS       NRJETS                                #  NO. OF NET ROLL JETS
044126,000323: 17,3137           00006                           EXTEND                                         
044127,000324: 17,3140           13144                           BZF      TAUCHCK                               #  IF NRJETS = 0
044128,000325: 
044129,000326: 17,3141           31502        BDRACZ             CA       T5TEMP                                #  Y-TRANSLATION ACCEPTED
044130,000327: 17,3142           55451                           TS       RWORD1                                
044131,000328: 17,3143           13323                           TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATIONS
044132,000329: 
044133,000330: 17,3144           11561        TAUCHCK            CCS      TAU                                   
044134,000331: 17,3145           13151                           TCF      NOACY                                 
044135,000332: 17,3146           13141                           TCF      BDRACZ                                
044136,000333: 17,3147           13151                           TCF      NOACY                                 
044137,000334: 17,3150           13141                           TCF      BDRACZ                                

Page 1014

044139,000336: 17,3151           31451        NOACY              CA       RWORD1                                #  Y-TRANSLATION NOT ACCEPTED
044140,000337: 17,3152           00006                           EXTEND                                         
044141,000338: 17,3153           74707                           MP       BIT4                                  
044142,000339: 17,3154           67715                           AD       =-2                                   
044143,000340: 17,3155           55522                           TS       NRJETS                                
044144,000341: 17,3156           13323                           TCF      ROLLTIME                              
044145,000342: 

Page 1015

044147,000344:                                                                                                  #           TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS
044148,000345: 
044149,000346:                                                                                                  #     EITHER AC OR BD ROLL MAY BE SELECTED. IF AC ROLL IS SELECTED, Y-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY
044150,000347:                                                                                                  #  PROVIDED THAT THERE ARE NO AC QUAD FAILURES. IF THERE ARE AC FAILURES, Y-TRANSLATION COMMANDS WILL BE IGNORED,
044151,000348:                                                                                                  #  IN WHICH CASE THE ASTRONAUT SHOULD SWITCH TO BD ROLL.
044152,000349:                                                                                                  #     IF BDROLL IS SELECTED, Z-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY PROVIDED THAT THERE ARE NO BD QUAD
044153,000350:                                                                                                  #  FAILURES. IF THERE ARE BD FAILURES, Z-TRANSLATION COMMANDS WILL BE IGNORED, IN WHICH CASE THE ASTRONAUT SHOULD
044154,000351:                                                                                                  #  SWITCH TO AC ROLL.
044155,000352:                                                                                                  #     NOTE THAT IF ONE QUAD FAILS (E.G. B FAILED), Z-TRANSLATION IS STILL POSSIBLE AND THAT THE UNDESIREABLE ROLL
044156,000353:                                                                                                  #  INTRODUCED BY THIS TRANSLATION WILL BE COMPENSATED BY THE TWO AC ROLL JETS ACTUATED BY THE AUTOPILOT LOGIC.
044157,000354: 
044158,000355:                                                                                                  #           WORD MAKE UP....RTABLE
044159,000356: 
044160,000357:                                                                                                  #     TWO WORDS, CORRESPONDING TO AC OR BD ROLL SELECTION, HAVE BEEN COMBINED INTO ONE TABLE.  THE WORD CORRESPOND-
044161,000358:                                                                                                  #  ING TO AC ROLL HAS THE FOLLOWING INTERPRETATION..
044162,000359:                                                                                                  #     BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE FOR THE WORD SELECTED. THE CODING IS..
044163,000360:                                                                                                  #                   BIT NO.  11 10 9   NO. OF ROLL JETS
044164,000361: 
044165,000362:                                                                                                  #                             0 0 0          -2
044166,000363:                                                                                                  #                             0 0 1          -1
044167,000364:                                                                                                  #                             0 1 0           0
044168,000365:                                                                                                  #                             0 1 1          +1
044169,000366:                                                                                                  #                             1 0 0          +2
044170,000367: 
044171,000368: 
044172,000369:                                                                                                  #     THIS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM THE YZ-TRANSLATION TABLE, WHICH HAS THE SAME TYPE OF
044173,000370:                                                                                                  #  CODING AS ABOVE, AND THE NET ROLL DETERMINED BY SHIFTING THE RESULTANT WORD RIGHT 8 PLACES AND SUBTRACTING FOUR.
044174,000371: 
044175,000372:                                                                                                  #     THE WORD CORRESPONDING TO BD ROLL HAS A SIMILIAR INTERPRETATION, EXCEPT THAT BITS 12, 13, 14 ARE CODED
044176,000373:                                                                                                  #  (AS ABOVE) TO GIVE THE NET ROLL TORQUE.
044177,000374: 
044178,000375: 
044179,000376:                                                                                                  #                                          ROLL   TRANS   QUADFAIL   BIAS
044180,000377: 
044181,000378: 17,3157           11000        RTABLE             OCT      11000                                 #   0                         0
044182,000379: 17,3160           22125                           OCT      22125                                 #   +                         0
044183,000380: 17,3161           00252                           OCT      00252                                 #   -                         0
044184,000381: 17,3162           11231                           OCT      11231                                 #   0     +Y(+Z)              3
044185,000382: 17,3163           15421                           OCT      15421                                 #   +     +Y(+Z)              3
044186,000383: 17,3164           04610                           OCT      04610                                 #   -     +Y(+Z)              3
044187,000384: 17,3165           11146                           OCT      11146                                 #   0     -Y(-Z)              6
044188,000385: 17,3166           15504                           OCT      15504                                 #   +     -Y(-Z)              6
044189,000386: 17,3167           04442                           OCT      04442                                 #   -     -Y(-Z)              6
044190,000387: 17,3170           11000                           OCT      11000                                 #   0               A(B)      9
044191,000388: 17,3171           15504                           OCT      15504                                 #   +               A(B)      9
044192,000389: 17,3172           04610                           OCT      04610                                 #   -               A(B)      9
044193,000390: 17,3173           11000                           OCT      11000                                 #   0               C(D)     12
044194,000391: 17,3174           15421                           OCT      15421                                 #   +               C(D)     12
044195,000392: 17,3175           04442                           OCT      04442                                 #   -               C(D)     12
044196,000393: 

Page 1016

044198,000395:                                                                                                  #           RTABLE MASKS -
044199,000396: 
044200,000397: 17,3176           03760        ACRJETS            OCT      03760                                 
044201,000398: 17,3177           34017        BDRJETS            OCT      34017                                 
044202,000399: 

Page 1017

044204,000401:                                                                                                  #           Y, Z TRANSLATION TABLE
044205,000402: 
044206,000403:                                                                                                  #      ONCE AC OR BD ROLL IS SELECTED THE QUAD PAIR WHICH IS NOT BEING USED TO SATISFY THE ROLL COMMANDS MAY BE
044207,000404:                                                                                                  #  USED TO SATISFY THE REMAINING TRANSLATION COMMANDS.  HOWEVER, WE MUST MAKE SURE THAT ROLL COMMANDS ARE SATISFIED
044208,000405:                                                                                                  #  WHEN THEY OCCUR.  THEREFORE, THE Y-Z TRANSLATIONS FROM THIS TABLE WILL BE IGNORED IF THE NET ROLL TORQUE OF THE
044209,000406:                                                                                                  #  COMBINED WORD IS ZERO AND THE ROLL COMMANDS ARE NON-ZERO.  THIS SITUATION WOULD OCCUR, FOR EXAMPLE, IF WE EN-
044210,000407:                                                                                                  #  COUNTER SIMULTANEOUS +R +Y -Z COMMANDS AND  A QUAD D FAILURE WHILE USING AC FOR ROLL.
044211,000408:                                                                                                  #     TO FACILITATE THE LOGIC, THE Y-Z TRANSLATION TABLE HAS BEEN CODED IN A MANNER SIMILIAR TO THE  ROLL TABLE
044212,000409:                                                                                                  #  ABOVE.
044213,000410:                                                                                                  #     BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Z-TRANSLATIONS. THE WORD SELECTED CAN THEN BE
044214,000411:                                                                                                  #  ADDED  TO THE AC-ROLL WORD AND THE RESULTANT ROLL TORQUE DETERMINED FROM THE COMBINED WORD.  SIMILIARLY BITS
044215,000412:                                                                                                  #  12,13,14 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Y-TRANSLATIONS WHEN BD-ROLL IS SELECTED.
044216,000413: 
044217,000414:                                                                                                  #                                          TRANSLATION    QUADFAIL    BIAS
044218,000415: 
044219,000416: 17,3200           11000        YZTABLE            OCT      11000                                 #       0                       0
044220,000417: 17,3201           11231                           OCT      11231                                 #    +Z(+Y)                     0
044221,000418: 17,3202           11146                           OCT      11146                                 #    -Z(-Y)                     0
044222,000419: 17,3203           11000                           OCT      11000                                 #       0           B(A)        3
044223,000420: 17,3204           04610                           OCT      04610                                 #    +Z(+Y)         B(A)        3
044224,000421: 17,3205           15504                           OCT      15504                                 #    -Z(-Y)         B(A)        3
044225,000422: 17,3206           11000                           OCT      11000                                 #       0           D(C)        6
044226,000423: 17,3207           15421                           OCT      15421                                 #    +Z(+Y)         D(C)        6
044227,000424: 17,3210           04442                           OCT      04442                                 #    -Z(-Y)         D(C)        6
044228,000425: 
044229,000426:                                                                                                  #           YZ-TABLE MASKS-
044230,000427: 
044231,000428: 17,3211           03417        BDZJETS            OCT      03417                                 
044232,000429: 17,3212           34360        ACYJETS            OCT      34360                                 
044233,000430: 
044234,000431:                                                                                                  #           ADDITIONAL CONSTANTS
044235,000432: 
044236,000433: 17,3213     7715               =-2                =        NEG2                                  
044237,000434: 17,3213     6061               =-4                =        NEG4                                  
044238,000435: 

Page 1018

044240,000437:                                                                                                  #           CALCULATION OF JET ON-TIMES
044241,000438: 
044242,000439:                                                                                                  #     THE ROTATION COMMANDS (TAU:S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET
044243,000440:                                                                                                  #  OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS.  TAU MUST
044244,000441:                                                                                                  #  ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5 INT- 
044245,000442:                                                                                                  #  ERVAL.
044246,000443:                                                                                                  #     IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES
044247,000444:                                                                                                  #  (DFT:S, ALSO IN TERMS OF 1-JET OPERATION) FOR THE RATE FILTER.
044248,000445:                                                                                                  #     NOTE THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO ROTATIONS WERE CALLED FOR.  NEVERTHELESS, WE MUST
044249,000446:                                                                                                  #  UPDATE DFT.
044250,000447:                                                                                                  #     WHEN THE ROTATIONS HAVE FINISHED, WE MUST PROVIDE CHANNEL INFORMATION TO THE T6 PROGRAM TO CONTINUE ON WITH
044251,000448:                                                                                                  #  THE TRANSLATIONS.  THIS WILL BE DONE IN THE NEXT SECTION.  HOWEVER, TO INSURE THAT JETS ARE NOT FIRED FOR LESS
044252,000449:                                                                                                  #  THAN A MINIMUM IMPULSE (14MS), ALL JET CHANNEL COMMANDS WILL BE HELD FIXED FROM THE START OF THE T5 PROGRAM FOR
044253,000450:                                                                                                  #  AT LEAST 14MS UNTIL THE INITIALIZATION OF NEW COMMANDS.  MOREOVER, A 14MS ON-TIME WILL BE ADDED TO ANY ROTATIONAL
044254,000451:                                                                                                  #  COMMANDS GENERATED BY THE MANUAL CONTROLS OR THE JET SWITCHING LOGIC, AND ALL TRANSLATION COMMANDS WILL BE
044255,000452:                                                                                                  #  ACTIVE FOR ATLEAST ONE CYCLE OF THE T5 PROGRAM (.1SEC)
044256,000453: 
044257,000454:                                                                                                  #           PITCH JET ON-TIME CALCULATION
044258,000455: 
044259,000456: 17,3213           11562        PITCHTIM           CCS      TAU1                                  
044260,000457: 17,3214           13223                           TCF      PTAUPOS                               
044261,000458: 17,3215           13217                           TCF      +2                                    
044262,000459: 17,3216           13221                           TCF      PTAUNEG                               
044263,000460: 17,3217           55550                           TS       DFT1                                  #  NO PITCH ROTATION
044264,000461: 17,3220           13421                           TCF      PBYPASS                               #  COMMANDS
044265,000462: 
044266,000463: 17,3221           41523        PTAUNEG            CS       NPJETS                                
044267,000464: 17,3222           55523                           TS       NPJETS                                
044268,000465: 17,3223           31562        PTAUPOS            CA       TAU1                                  
044269,000466: 17,3224           00006                           EXTEND                                         
044270,000467: 17,3225           51523                           INDEX    NPJETS                                
044271,000468: 17,3226           73402                           MP       NJET                                  
044272,000469: 17,3227           55461                           TS       BLAST1                                
044273,000470: 17,3230           63335                           AD       =-.1SEC                               
044274,000471: 17,3231           00006                           EXTEND                                         
044275,000472: 17,3232           63243                           BZMF     AD14MSP                               
044276,000473: 17,3233           51523                           INDEX    NPJETS                                
044277,000474: 17,3234           33336                           CA       DFTMAX                                #  THE PITCH ON-TIME IS GREATER THAN .1 SEC
044278,000475: 17,3235           55550                           TS       DFT1                                  
044279,000476: 17,3236           40000                           COM                                            
044280,000477: 17,3237           27562                           ADS      TAU1                                  #  UPDATE TAU1
044281,000478: 17,3240           33337                           CAF      =+.1SEC                               #  LIMIT THE LENGTH OF PITCH ROTATION
044282,000479: 17,3241           55461                           TS       BLAST1                                #  COMMANDS TO 0.1 SEC SO THAT ONLY
044283,000480: 17,3242           13406                           TCF      ASMBLWP                               #  X-TRANSLATIONS WILL CONTINUE ON SWITCH
044284,000481:                                                                                                  #                                          OVER TO TVC
044285,000482: 17,3243           41461        AD14MSP            CS       BLAST1                                #  SEE IF JET ON TIME LESS THAN
044286,000483: 17,3244           63342                           AD       =14MS                                 #  MINIMUM IMPULSE TIME
044287,000484: 17,3245           00006                           EXTEND                                         
044288,000485: 17,3246           63251                           BZMF     PBLASTOK                              #  IF SO LIMIT MINIMUM ON TIME TO 14 MS
044289,000486: 17,3247           33342                           CAF      =14MS                                 

Page 1019

044291,000488: 17,3250           55461                           TS       BLAST1                                
044292,000489: 17,3251           31461        PBLASTOK           CA       BLAST1                                
044293,000490: 17,3252           00006                           EXTEND                                         #  THE PITCH COMMANDS WILL BE COMPLETED
044294,000491: 17,3253           71523                           MP       NPJETS                                #  WITHIN THE TS-CYCLE TIME
044295,000492: 17,3254           23550                           LXCH     DFT1                                  #  FOR USE IN UPDATING RATE FILTER
044296,000493: 17,3255           55562                           TS       TAU1                                  #  ZERO TAU1 (ACC CONTAINS ZERO)
044297,000494: 17,3256           13406                           TCF      ASMBLWP                               
044298,000495: 

Page 1020

044300,000497:                                                                                                  #           YAW JET ON-TIME CALCULATION
044301,000498: 
044302,000499: 17,3257           11563        YAWTIME            CCS      TAU2                                  
044303,000500: 17,3260           13267                           TCF      YTAUPOS                               
044304,000501: 17,3261           13263                           TCF      +2                                    
044305,000502: 17,3262           13265                           TCF      YTAUNEG                               
044306,000503: 17,3263           55551                           TS       DFT2                                  #  NO YAW ROTATION COMMANDS
044307,000504: 17,3264           13565                           TCF      YBYPASS                               
044308,000505: 
044309,000506: 17,3265           41524        YTAUNEG            CS       NYJETS                                
044310,000507: 17,3266           55524                           TS       NYJETS                                
044311,000508: 17,3267           31563        YTAUPOS            CA       TAU2                                  
044312,000509: 17,3270           00006                           EXTEND                                         
044313,000510: 17,3271           51524                           INDEX    NYJETS                                
044314,000511: 17,3272           73402                           MP       NJET                                  
044315,000512: 17,3273           55463                           TS       BLAST2                                
044316,000513: 17,3274           63335                           AD       =-.1SEC                               
044317,000514: 17,3275           00006                           EXTEND                                         
044318,000515: 17,3276           63307                           BZMF     AD14MSY                               
044319,000516: 17,3277           51524                           INDEX    NYJETS                                
044320,000517: 17,3300           33336                           CA       DFTMAX                                #  YAW COMMANDS WILL LAST LONGER THAN .1SEC
044321,000518: 17,3301           55551                           TS       DFT2                                  
044322,000519: 17,3302           40000                           COM                                            
044323,000520: 17,3303           27563                           ADS      TAU2                                  #  DECREMENT TAU2
044324,000521: 17,3304           33337                           CAF      =+.1SEC                               #  LIMIT THE LENGTH OF YAW ROTATION COMMAND
044325,000522: 17,3305           55463                           TS       BLAST2                                #  TO 0.1 SEC SO THAT ONLY X-TRANSLATION
044326,000523: 17,3306           13552                           TCF      ASMBLWY                               #  WILL CONTINUE ON SWITCH OVER TO TVC
044327,000524: 
044328,000525: 17,3307           41463        AD14MSY            CS       BLAST2                                #  SEE IF JET ON-TIME LESS THAN
044329,000526: 17,3310           63342                           AD       =14MS                                 #  MINIMUM IMPULSE TIME
044330,000527: 17,3311           00006                           EXTEND                                         
044331,000528: 17,3312           63315                           BZMF     YBLASTOK                              #  IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
044332,000529: 17,3313           33342                           CAF      =14MS                                 
044333,000530: 17,3314           55463                           TS       BLAST2                                
044334,000531: 17,3315           31463        YBLASTOK           CA       BLAST2                                #  YAW COMMANDS WILL BE COMPLETED WITHIN
044335,000532: 17,3316           00006                           EXTEND                                         #  THE T5CYCLE TIME
044336,000533: 17,3317           71524                           MP       NYJETS                                
044337,000534: 17,3320           23551                           LXCH     DFT2                                  
044338,000535: 17,3321           55563                           TS       TAU2                                  #  ZERO TAU2
044339,000536: 17,3322           13552                           TCF      ASMBLWY                               
044340,000537: 

Page 1021

044342,000539:                                                                                                  #           ROLL ON-TIME CALCULATION-
044343,000540: 
044344,000541: 17,3323           11561        ROLLTIME           CCS      TAU                                   
044345,000542: 17,3324           13343                           TCF      RBLAST                                
044346,000543: 17,3325           13327                           TCF      +2                                    
044347,000544: 17,3326           13343                           TCF      RBLAST                                
044348,000545: 17,3327           51522                           INDEX    NRJETS                                
044349,000546: 17,3330           33336                           CA       DFTMAX                                #  UPDATE DFT EVEN THO NO ROLL COMMANDS ARE
044350,000547: 17,3331           55547                           TS       DFT                                   #  PRESENT
044351,000548: 17,3332           13545                           TCF      RBYPASS                               
044352,000549: 
044353,000550: 17,3333           77037                           DEC      -480       B-14                       #  = -.3SEC
044354,000551: 17,3334           77277                           DEC      -320       B-14                       #  = -.2SEC
044355,000552: 17,3335           77537        =-.1SEC            DEC      -160       B-14                       #  = -.1SEC
044356,000553: 17,3336           00000        DFTMAX             DEC      0          B-14                       #      0
044357,000554: 17,3337           00240        =+.1SEC            DEC      160        B-14                       #  = +.1SEC
044358,000555: 17,3340           00500                           DEC      320        B-14                       #  = +.2SEC
044359,000556: 17,3341           00740                           DEC      480        B-14                       #  = +.3SEC
044360,000557: 17,3342           00027        =14MS              DEC      23         B-14                       #  =14MS
044361,000558: 
044362,000559: 17,3343           31561        RBLAST             CA       TAU                                   
044363,000560: 17,3344           00006                           EXTEND                                         
044364,000561: 17,3345           51522                           INDEX    NRJETS                                
044365,000562: 17,3346           73402                           MP       NJET                                  
044366,000563: 17,3347           55457                           TS       BLAST                                 #  BLAST IS AN INTERMEDIATE VARIABLE
044367,000564:                                                                                                  #                                          USED IN DETERMINING THE JET ON-TIMES
044368,000565: 17,3350           63335                           AD       =-.1SEC                               
044369,000566: 17,3351           00006                           EXTEND                                         
044370,000567: 17,3352           63363                           BZMF     AD14MSR                               
044371,000568: 17,3353           51522                           INDEX    NRJETS                                #  THE ROLL ROTATION WILL LAST LONGER
044372,000569: 17,3354           33336                           CA       DFTMAX                                #  THAN THE T5 CYCLE TIME
044373,000570: 17,3355           55547                           TS       DFT                                   
044374,000571: 17,3356           40000                           COM                                            
044375,000572: 17,3357           27561                           ADS      TAU                                   
044376,000573: 17,3360           33337                           CAF      =+.1SEC                               #  LIMIT THE LENGTH OF ROLL ROTATION
044377,000574: 17,3361           55457                           TS       BLAST                                 #  COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z
044378,000575: 17,3362           13426                           TCF      ASMBLWR                               #  TRANSLATION COMMANDS CONTINUE
044379,000576: 
044380,000577: 17,3363           41457        AD14MSR            CS       BLAST                                 #  SEE IF THE JET ON-TIME LESS THAN
044381,000578: 17,3364           63342                           AD       =14MS                                 #  MINIMUM IMPULSE TIME
044382,000579: 17,3365           00006                           EXTEND                                         
044383,000580: 17,3366           63371                           BZMF     RBLASTOK                              
044384,000581: 17,3367           33342                           CAF      =14MS                                 #  IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
044385,000582: 17,3370           55457                           TS       BLAST                                 
044386,000583: 17,3371           31457        RBLASTOK           CA       BLAST                                 
044387,000584: 17,3372           00006                           EXTEND                                         
044388,000585: 17,3373           71522                           MP       NRJETS                                
044389,000586: 17,3374           23547                           LXCH     DFT                                   
044390,000587: 17,3375           55561                           TS       TAU                                   #  ZERO TAU
044391,000588: 17,3376           13426                           TCF      ASMBLWR                               

Page 1022

044393,000590: 17,3377           65252                           DEC      -.333333                              #  = -1/3
044394,000591: 17,3400           57777                           DEC      -.500000                              #  = -1/2
044395,000592: 17,3401           40000                           DEC      -.999999                              #  = -1 (NEGMAX)
044396,000593: 17,3402           00000        NJET               DEC      0          B-14                       
044397,000594: 17,3403           37777                           DEC      .999999                               #  = +1 (POSMAX)
044398,000595: 17,3404           20000                           DEC      .500000                               #  = +1/2
044399,000596: 17,3405           12525                           DEC      .333333                               #  = +1/3
044400,000597: 

Page 1023

044402,000599:                                                                                                  #     WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH
044403,000600:                                                                                                  #  CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT.
044404,000601:                                                                                                  #     IN THIS SECTION THESE NEW COMMANDS ARE GENERATED AND STORED FOR REPLACEMENT OF THE CHANNEL COMMANDS WHEN THE
044405,000602:                                                                                                  #  CORRESPONDING ROTATIONS ARE COMPLETED.
044406,000603: 
044407,000604:                                                                                                  #  GENERATION OF THE SECOND PITCH(X-TRANS) WORD...PWORD2
044408,000605: 
044409,000606: 17,3406           11626        ASMBLWP            CCS      RACFAIL                               
044410,000607: 17,3407           13415                           TCF      FPX2                                  #  IF FAILURE ON AC IGNORE X-TRANSLATION
044411,000608: 17,3410           13412                           TCF      +2                                    
044412,000609: 17,3411           13415                           TCF      FPX2                                  
044413,000610: 17,3412           51513                           INDEX    XNDX1                                 
044414,000611: 17,3413           32707                           CA       XLNNDX                                
044415,000612: 17,3414           50000                           INDEX    A                                     
044416,000613: 17,3415           32743        FPX2               CA       PYTABLE                               
044417,000614: 17,3416           72762                           MASK     PJETS                                 
044418,000615: 17,3417           55454                           TS       PWORD2                                
044419,000616: 17,3420           13257                           TCF      YAWTIME                               
044420,000617: 
044421,000618: 17,3421           31453        PBYPASS            CA       PWORD1                                #  THE T6 PROGRAM WILL LOAD PWORD2
044422,000619: 17,3422           55454                           TS       PWORD2                                #  UPON ENTRY
044423,000620: 17,3423           34714                           CAF      ZERO                                  
044424,000621: 17,3424           55461                           TS       BLAST1                                #  THERE IS NO PWORD2
044425,000622: 17,3425           13257                           TCF      YAWTIME                               
044426,000623: 

Page 1024

044428,000625:                                                                                                  #  GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2)
044429,000626: 
044430,000627: 17,3426           11515        ASMBLWR            CCS      YNDX                                  #  CHECK FOR Y-TRANS
044431,000628: 17,3427           13437                           TCF      ACBD2Y                                
044432,000629: 17,3430           34714        NO2Y               CAF      ZERO                                  
044433,000630: 17,3431           55452                           TS       RWORD2                                
044434,000631: 17,3432           11516                           CCS      ZNDX                                  #  CHECK FOR Z-TRANS
044435,000632: 17,3433           13502                           TCF      ACBD2Z                                
044436,000633: 17,3434           34714        NO2Z               CAF      ZERO                                  
044437,000634: 17,3435           27452                           ADS      RWORD2                                
044438,000635: 17,3436           13213                           TCF      PITCHTIM                              #  RWORD2 ASSEMBLED
044439,000636: 
044440,000637: 17,3437           11630        ACBD2Y             CCS      ACORBD                                
044441,000638: 17,3440           13455                           TCF      AC2Y                                  #  CAN DO Y-TRANS
044442,000639: 17,3441           13455                           TCF      AC2Y                                  
044443,000640: 17,3442           13443                           TCF      +1                                    #  USING AC FOR ROLL
044444,000641: 17,3443           11626                           CCS      RACFAIL                               
044445,000642: 17,3444           13430                           TCF      NO2Y                                  #  USING AC AND AC HAS FAILED
044446,000643: 17,3445           13447                           TCF      +2                                    
044447,000644: 17,3446           13430                           TCF      NO2Y                                  #  DITTO
044448,000645: 
044449,000646: 17,3447           51515                           INDEX    YNDX                                  #  NO FAILURES, CAN DO Y
044450,000647: 17,3450           32707                           CA       XLNNDX                                
044451,000648: 17,3451           50000                           INDEX    A                                     
044452,000649: 17,3452           33157                           CA       RTABLE                                
044453,000650: 17,3453           73176                           MASK     ACRJETS                               
044454,000651: 17,3454           13431                           TCF      NO2Y       +1                         
044455,000652: 
044456,000653: 17,3455           11626        AC2Y               CCS      RACFAIL                               
044457,000654: 17,3456           36214                           CAF      THREE                                 
044458,000655: 17,3457           13461                           TCF      +2                                    
044459,000656: 17,3460           36211                           CAF      SIX                                   
044460,000657: 17,3461           51515                           INDEX    YNDX                                  
044461,000658: 17,3462           63020                           AD       XLN1NDX                               
044462,000659: 17,3463           50000                           INDEX    A                                     
044463,000660: 17,3464           33200                           CA       YZTABLE                               
044464,000661: 17,3465           73212                           MASK     ACYJETS                               
044465,000662: 17,3466           55452                           TS       RWORD2                                
044466,000663: 17,3467           00006                           EXTEND                                         
044467,000664: 17,3470           74707                           MP       BIT4                                  
044468,000665: 17,3471           67715                           AD       =-2                                   
044469,000666: 17,3472           55522                           TS       NRJETS                                
044470,000667: 17,3473           41457                           CS       BLAST                                 
044471,000668: 17,3474           63337                           AD       =+.1SEC                               
044472,000669: 17,3475           00006                           EXTEND                                         
044473,000670: 17,3476           71522                           MP       NRJETS                                
044474,000671: 17,3477           30001                           CA       L                                     
044475,000672: 17,3500           27547                           ADS      DFT                                   
044476,000673: 17,3501           13432                           TCF      NO2Y       +2                         
044477,000674: 

Page 1025

044479,000676: 17,3502           11630        ACBD2Z             CCS      ACORBD                                
044480,000677: 17,3503           13533                           TCF      BDF2Z                                 #  USING BD-ROLL
044481,000678: 17,3504           13533                           TCF      BDF2Z                                 #  MUST CHECK FOR BD FAILURES
044482,000679: 17,3505           13506                           TCF      +1                                    
044483,000680: 17,3506           11627                           CCS      RBDFAIL                               #  USING AC FOR ROLL, CAN DO Z-TRANS
044484,000681: 17,3507           36214                           CAF      THREE                                 
044485,000682: 17,3510           13512                           TCF      +2                                    
044486,000683: 17,3511           36211                           CAF      SIX                                   
044487,000684: 17,3512           51516                           INDEX    ZNDX                                  
044488,000685: 17,3513           63020                           AD       XLN1NDX                               
044489,000686: 17,3514           50000                           INDEX    A                                     
044490,000687: 17,3515           33200                           CA       YZTABLE                               
044491,000688: 17,3516           73211                           MASK     BDZJETS                               
044492,000689: 17,3517           27452                           ADS      RWORD2                                
044493,000690: 17,3520           00006                           EXTEND                                         
044494,000691: 17,3521           74704                           MP       BIT7                                  
044495,000692: 17,3522           67715                           AD       =-2                                   
044496,000693: 17,3523           55522                           TS       NRJETS                                
044497,000694: 17,3524           41457                           CS       BLAST                                 
044498,000695: 17,3525           63337                           AD       =+.1SEC                               
044499,000696: 17,3526           00006                           EXTEND                                         
044500,000697: 17,3527           71522                           MP       NRJETS                                
044501,000698: 17,3530           30001                           CA       L                                     
044502,000699: 17,3531           27547                           ADS      DFT                                   
044503,000700: 17,3532           13213                           TCF      PITCHTIM                              
044504,000701: 
044505,000702: 17,3533           11627        BDF2Z              CCS      RBDFAIL                               
044506,000703: 17,3534           13434                           TCF      NO2Z                                  #  USING BD-ROLL AND BD HAS FAILED
044507,000704: 17,3535           13537                           TCF      +2                                    
044508,000705: 17,3536           13434                           TCF      NO2Z                                  #  DITTO
044509,000706: 17,3537           51516                           INDEX    ZNDX                                  
044510,000707: 17,3540           32707                           CA       XLNNDX                                
044511,000708: 17,3541           50000                           INDEX    A                                     
044512,000709: 17,3542           33157                           CA       RTABLE                                
044513,000710: 17,3543           73177                           MASK     BDRJETS                               
044514,000711: 17,3544           13435                           TCF      NO2Z       +1                         
044515,000712: 
044516,000713: 17,3545           31451        RBYPASS            CA       RWORD1                                
044517,000714: 17,3546           55452                           TS       RWORD2                                
044518,000715: 17,3547           34714                           CAF      ZERO                                  
044519,000716: 17,3550           55457                           TS       BLAST                                 
044520,000717: 17,3551           13213                           TCF      PITCHTIM                              
044521,000718: 

Page 1026

044523,000720:                                                                                                  #           GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2
044524,000721: 
044525,000722: 17,3552           11627        ASMBLWY            CCS      RBDFAIL                               
044526,000723: 17,3553           13561                           TCF      FYX2                                  #  IF FAILURE ON BD IGNORE X-TRANSLATION
044527,000724: 17,3554           13556                           TCF      +2                                    
044528,000725: 17,3555           13561                           TCF      FYX2                                  
044529,000726: 17,3556           51514                           INDEX    XNDX2                                 
044530,000727: 17,3557           32707                           CA       XLNNDX                                
044531,000728: 17,3560           50000                           INDEX    A                                     
044532,000729: 17,3561           32743        FYX2               CA       PYTABLE                               
044533,000730: 17,3562           72763                           MASK     YJETS                                 
044534,000731: 17,3563           55456                           TS       YWORD2                                
044535,000732: 17,3564           13571                           TCF      T6SETUP                               
044536,000733: 
044537,000734: 17,3565           31455        YBYPASS            CA       YWORD1                                
044538,000735: 17,3566           55456                           TS       YWORD2                                
044539,000736: 17,3567           34714                           CAF      ZERO                                  
044540,000737: 17,3570           55463                           TS       BLAST2                                
044541,000738: 

Page 1027

044543,000740:                                                                                                  #           SORT THE JET ON-TIMES
044544,000741: 
044545,000742:                                                                                                  #     AT THIS POINT ALL THE CHANNEL COMMANDS AND JET ON-TIMES HAVE BEEN DETERMINED. IN SUMMARY THESE ARE-
044546,000743: 
044547,000744:                                                                                                  #           RWORD1
044548,000745:                                                                                                  #           RWORD2         BLAST
044549,000746: 
044550,000747:                                                                                                  #           PWORD1
044551,000748:                                                                                                  #           PWORD2         BLAST1
044552,000749: 
044553,000750:                                                                                                  #           YWORD1
044554,000751:                                                                                                  #           YWORD2         BLAST2
044555,000752: 
044556,000753:                                                                                                  #      IN THIS SECTION THE JET ON-TIMES ARE SORTED AND THE SEQUENCE OF T6 INTERRUPTS IS DETERMINED.  TO FACILITATE
044557,000754:                                                                                                  #  THE SORTING PROCESS AND THE T6 PROGRAM, THE VARIABLES BLAST, BLAST1, BLAST2, ARE RESERVED AS DOUBLE PRECISION
044558,000755:                                                                                                  #  WORDS.  THE LOWER PART OF THESE WORDS CONTAIN A BRANCH INDEX ASSOCIATED WITH THE ROTATION AXIS OF THE HIGHER
044559,000756:                                                                                                  #  ORDER WORD.
044560,000757: 
044561,000758: 17,3571           34714        T6SETUP            CAF      ZERO                                  #  BRANCH INDEX FOR ROLL
044562,000759: 17,3572           55460                           TS       BLAST      +1                         
044563,000760: 17,3573           34710                           CAF      FOUR                                  #  BRANCH INDEX FOR PITCH
044564,000761: 17,3574           55462                           TS       BLAST1     +1                         
044565,000762: 17,3575           34717                           CAF      ELEVEN                                #  BRANCH INDEX FOR YAW
044566,000763: 17,3576           55464                           TS       BLAST2     +1                         
044567,000764: 
044568,000765: 17,3577           41457                           CS       BLAST                                 
044569,000766: 17,3600           61461                           AD       BLAST1                                
044570,000767: 17,3601           00006                           EXTEND                                         
044571,000768: 17,3602           63626                           BZMF     DXCHT12                               #  T1 GR T2
044572,000769: 17,3603           41461        CHECKT23           CS       BLAST1                                
044573,000770: 17,3604           61463                           AD       BLAST2                                
044574,000771: 17,3605           00006                           EXTEND                                         
044575,000772: 17,3606           63632                           BZMF     DXCHT23                               
044576,000773: 17,3607           41461        CALCDT6            CS       BLAST1                                
044577,000774: 17,3610           27463                           ADS      BLAST2                                
044578,000775: 17,3611           41457                           CS       BLAST                                 
044579,000776: 17,3612           27461                           ADS      BLAST1                                #  END OF SORTING PROCEDURE
044580,000777: 17,3613           00006                           EXTEND                                         #  RESET T5LOC TO BEGIN PHASE1
044581,000778: 17,3614           33625                           DCA      RCS2CADR                              
044582,000779: 17,3615           53313                           DXCH     T5LOC                                 
044583,000780: 17,3616           44712        ENDJETS            CS       BIT1                                  #  RESET BIT1 FOR INITIALIZATION OF
044584,000781: 17,3617           71501                           MASK     RCSFLAGS                              #  T6 PROGRAM
044585,000782: 17,3620           55501                           TS       RCSFLAGS                              
044586,000783: 17,3621           44714                           CS       ZERO                                  #  RESET T5PHASE FOR PHASE1
044587,000784: 17,3622           55465                           TS       T5PHASE                               
044588,000785: 17,3623           15222                           TCF      RESUME                                #  RESUME INTERRUPTED PROGRAM
044589,000786: 
044590,000787: 
044591,000788: 17,3624  E6,1510                                  EBANK=   KMPAC                                 
044592,000789: 17,3624           02106 42066  RCS2CADR           2CADR    RCSATT                                

Page 1028

044594,000791: 17,3626           53460        DXCHT12            DXCH     BLAST                                 
044595,000792: 17,3627           53462                           DXCH     BLAST1                                
044596,000793: 17,3630           53460                           DXCH     BLAST                                 
044597,000794: 17,3631           13603                           TCF      CHECKT23                              
044598,000795: 
044599,000796: 17,3632           53462        DXCHT23            DXCH     BLAST1                                
044600,000797: 17,3633           53464                           DXCH     BLAST2                                
044601,000798: 17,3634           53462                           DXCH     BLAST1                                
044602,000799: 17,3635           41457                           CS       BLAST                                 
044603,000800: 17,3636           61461                           AD       BLAST1                                
044604,000801: 17,3637           00006                           EXTEND                                         
044605,000802: 17,3640           63642                           BZMF     +2                                    
044606,000803: 17,3641           13607                           TCF      CALCDT6                               
044607,000804: 17,3642           53460                           DXCH     BLAST                                 
044608,000805: 17,3643           53462                           DXCH     BLAST1                                
044609,000806: 17,3644           53460                           DXCH     BLAST                                 
044610,000807: 17,3645           13607                           TCF      CALCDT6                               
044611,000808: 

Page 1029

044613,000810:                                                                                                  #           T6 PROGRAM AND CHANNEL SETUP
044614,000811: 
044615,000812: 21,3751                                           BANK     21                                    
044616,000813: 17,2000                                           SETLOC   DAPS5                                 
044617,000814: 17,2000                                           BANK                                           
044618,000815: 
044619,000816: 17,3646           22016        T6START            LXCH     BANKRUPT                              
044620,000817: 17,3647           00006                           EXTEND                                         
044621,000818: 17,3650           22012                           QXCH     QRUPT                                 
044622,000819: 17,3651           10031                           CCS      TIME6                                 #  CHECK TO SEE IF TIME6 WAS RESET
044623,000820: 17,3652           15222                           TCF      RESUME                                #  AFTER T6RUPT OCCURED(IN T5RUPT)
044624,000821: 17,3653           13655                           TCF      +2                                    #  IF SO WAIT FOR NEXT T6RUPT BEFORE
044625,000822: 17,3654           15222                           TCF      RESUME                                #  TAKING ACTION
044626,000823: 
044627,000824: 17,3655           41501                           CS       RCSFLAGS                              
044628,000825: 17,3656           74712                           MASK     BIT1                                  #  IF BIT1 IS 0 RESET TO 1
044629,000826: 17,3657           00006                           EXTEND                                         #  AND INITIALIZE CHANNEL
044630,000827: 17,3660           13671                           BZF      T6RUPTOR                              
044631,000828: 17,3661           27501                           ADS      RCSFLAGS                              
044632,000829: 17,3662           31451                           CA       RWORD1                                
044633,000830: 17,3663           00006                           EXTEND                                         #  INITIALIZE CHANNELS 5,6 WITH WORD1
044634,000831: 17,3664           01006                           WRITE    CHAN6                                 
044635,000832: 17,3665           31453                           CA       PWORD1                                
044636,000833: 17,3666           61455                           AD       YWORD1                                
044637,000834: 17,3667           00006                           EXTEND                                         
044638,000835: 17,3670           01005                           WRITE    CHAN5                                 
044639,000836: 
044640,000837: 17,3671           11457        T6RUPTOR           CCS      BLAST                                 
044641,000838: 17,3672           13751                           TCF      ZBLAST                                #  ZERO BLAST1
044642,000839: 17,3673           13710                           TCF      REPLACE                               #  REPLACE WORD1
044643,000840: 17,3674           13676                           TCF      +2                                    
044644,000841: 17,3675           13710                           TCF      REPLACE                               
044645,000842: 17,3676           11461        T6L1               CCS      BLAST1                                
044646,000843: 17,3677           13754                           TCF      ZBLAST1                               
044647,000844: 17,3700           13715                           TCF      REPLACE1                              
044648,000845: 17,3701           13703                           TCF      +2                                    
044649,000846: 17,3702           13715                           TCF      REPLACE1                              
044650,000847: 17,3703           11463        T6L2               CCS      BLAST2                                
044651,000848: 17,3704           13757                           TCF      ZBLAST2                               
044652,000849: 17,3705           13722                           TCF      REPLACE2                              
044653,000850: 17,3706           15222                           TCF      RESUME                                
044654,000851: 17,3707           13722                           TCF      REPLACE2                              
044655,000852: 
044656,000853: 17,3710           51460        REPLACE            INDEX    BLAST      +1                         
044657,000854: 17,3711           03727                           TC       REPLACER                              
044658,000855: 17,3712           44712                           CS       ONE                                   
044659,000856: 17,3713           55457                           TS       BLAST                                 
044660,000857: 17,3714           13676                           TCF      T6L1                                  
044661,000858: 
044662,000859: 17,3715           51462        REPLACE1           INDEX    BLAST1     +1                         

Page 1030

044664,000861: 17,3716           03727                           TC       REPLACER                              
044665,000862: 17,3717           44712                           CS       ONE                                   
044666,000863: 17,3720           55461                           TS       BLAST1                                
044667,000864: 17,3721           13703                           TCF      T6L2                                  
044668,000865: 
044669,000866: 17,3722           51464        REPLACE2           INDEX    BLAST2     +1                         
044670,000867: 17,3723           03727                           TC       REPLACER                              
044671,000868: 17,3724           44712                           CS       ONE                                   
044672,000869: 17,3725           55463                           TS       BLAST2                                
044673,000870: 17,3726           15222                           TCF      RESUME                                
044674,000871: 
044675,000872: 17,3727           31452        REPLACER           CA       RWORD2                                
044676,000873: 17,3730           00006                           EXTEND                                         #  INITIALIZE CHANNELS 5,6 WITH WORD 2
044677,000874: 17,3731           01006                           WRITE    CHAN6                                 
044678,000875: 17,3732           00002                           TC       Q                                     
044679,000876: 
044680,000877: 17,3733           32763        REPLACEP           CA       YJETS                                 
044681,000878: 17,3734           00006                           EXTEND                                         
044682,000879: 17,3735           02005                           RAND     CHAN5                                 
044683,000880: 17,3736           61454                           AD       PWORD2                                
044684,000881: 17,3737           00006                           EXTEND                                         
044685,000882: 17,3740           01005                           WRITE    CHAN5                                 
044686,000883: 17,3741           00002                           TC       Q                                     
044687,000884: 
044688,000885: 17,3742           32762        REPLACEY           CA       PJETS                                 
044689,000886: 17,3743           00006                           EXTEND                                         
044690,000887: 17,3744           02005                           RAND     CHAN5                                 
044691,000888: 17,3745           61456                           AD       YWORD2                                
044692,000889: 17,3746           00006                           EXTEND                                         
044693,000890: 17,3747           01005                           WRITE    CHAN5                                 
044694,000891: 17,3750           00002                           TC       Q                                     
044695,000892: 
044696,000893: 17,3751           34714        ZBLAST             CAF      ZERO                                  
044697,000894: 17,3752           57457                           XCH      BLAST                                 
044698,000895: 17,3753           13761                           TCF      ENABT6                                
044699,000896: 17,3754           34714        ZBLAST1            CAF      ZERO                                  
044700,000897: 17,3755           57461                           XCH      BLAST1                                
044701,000898: 17,3756           13761                           TCF      ENABT6                                
044702,000899: 17,3757           34714        ZBLAST2            CAF      ZERO                                  
044703,000900: 17,3760           57463                           XCH      BLAST2                                
044704,000901: 17,3761           54031        ENABT6             TS       TIME6                                 
044705,000902: 17,3762           34674                           CAF      NEGMAX                                
044706,000903: 17,3763           00006                           EXTEND                                         
044707,000904: 17,3764           05013                           WOR      CHAN13                                #  ENABLE T6RUPT
044708,000905: 17,3765           15222                           TCF      RESUME                                
044709,000906: 
044710,000907:                                                                                                  #                  END OF T6 INTERRUPT
044711,000908: 
044712,000909: 17,3766                        ENDSLECT           EQUALS                                         

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