Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. 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

043580,000002:                                                                                                 #  Copyright:    Public domain.
043581,000003:                                                                                                 #  Filename:      JET_SELECTION_LOGIC.agc
043582,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
043583,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
043584,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
043585,000007:                                                                                                 #  Assembler:    yaYUL
043586,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
043587,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
043588,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
043589,000011:                                                                                                 #  Mod history:  2011-04-06 JL    Adapted from corresponding Colossus 249 file.
043590,000012: 
043591,000013:                                                                                                 # # Page 1007
043592,000014: 21,3751                                          BANK     21                                    
043593,000015: 17,2000                                          SETLOC   DAPS4                                 
043594,000016: 17,2000                                          BANK                                           
043595,000017: 
043596,000018: 17,2601                                          COUNT    17/DAPJS                              
043597,000019: 
043598,000020: 17,2601  E6,1510                                 EBANK=   KMPAC                                 
043599,000021:                                                                                                 #  EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS
043600,000022: 
043601,000023: 17,2601           22016        JETSLECT          LXCH     BANKRUPT                              
043602,000024: 17,2602           32663                          CAF      DELTATT3                              #  = 60 MS   RESET TO EXECUTE PHASE1
043603,000025: 17,2603           61634                          AD       T5TIME                                
043604,000026: 17,2604           54030                          TS       TIME5                                 
043605,000027: 17,2605           12610                          TCF      +3                                    
043606,000028: 17,2606           32664                          CAF      DELATT20                              #  = 20 MS   TO ASSURE A T5RUPT
043607,000029: 17,2607           54030                          TS       TIME5                                 
043608,000030: 17,2610           33342                          CAF      =14MS                                 #  RESET T6 TO INITIALIZE THE JET CHANNELS
043609,000031: 17,2611           54031                          TS       TIME6                                 #  IN 14 MS
043610,000032: 17,2612           34674                          CAF      NEGMAX                                
043611,000033: 17,2613           00006                          EXTEND                                         
043612,000034: 17,2614           05013                          WOR      CHAN13                                
043613,000035: 17,2615           00006                          EXTEND                                         
043614,000036: 17,2616           22012                          QXCH     QRUPT                                 
043615,000037: 17,2617           32662                          CAF      XLNMASK                               #  = 7700 OCT
043616,000038: 17,2620           00006                          EXTEND                                         #  EXAMINE THE TRANSLATION
043617,000039: 17,2621           06031                          RXOR     CHAN31                                #  HAND CONTROLLER
043618,000040: 17,2622           72662                          MASK     XLNMASK                               
043619,000041: 17,2623           00006                          EXTEND                                         
043620,000042: 17,2624           12665                          BZF      NOXLNCMD                              
043621,000043: 17,2625           55502                          TS       T5TEMP                                
043622,000044: 17,2626           00006                          EXTEND                                         
043623,000045: 17,2627           74702                          MP       BIT9                                  
043624,000046: 17,2630           76214                          MASK     THREE                                 
043625,000047: 17,2631           55513                          TS       XNDX1                                 #  AC QUAD  X-TRANSLATION INDEX
043626,000048: 17,2632           55514                          TS       XNDX2                                 #  BD QUAD  X-TRANSLATION INDEX
043627,000049: 17,2633           31502                          CA       T5TEMP                                
043628,000050: 17,2634           00006                          EXTEND                                         #  1 = + XLN
043629,000051: 17,2635           74704                          MP       BIT7                                  #  2 = - XLN
043630,000052: 17,2636           76214                          MASK     THREE                                 #  3 = NO XLN
043631,000053: 17,2637           55515                          TS       YNDX                                  #  Y-TRANSLATION INDEX
043632,000054: 
043633,000055: 17,2640           31502                          CA       T5TEMP                                
043634,000056: 17,2641           00006                          EXTEND                                         
043635,000057: 17,2642           74706                          MP       BIT5                                  
043636,000058: 17,2643           76214                          MASK     THREE                                 
043637,000059: 17,2644           55516                          TS       ZNDX                                  #  Z-TRANSLATION INDEX
043638,000060: 
043639,000061: 17,2645           31466                          CA       DAPDATR1                              #  SET ATTKALMN TO PICK UP FILTER GAINS FOR
043640,000062: 17,2646           74675                          MASK     BIT14                                 #  TRANSLATIONS.
043641,000063: 17,2647           00006                          EXTEND                                         #  CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED.
043642,000064:                                                                                                 # # Page 1008
043643,000065: 17,2650           12653                          BZF      NOLEM                                 
043644,000066: 17,2651           46214                          CS       THREE                                 #  IF LEM IS ON, SET ATTKALMN = -3
043645,000067: 17,2652           12654                          TCF      +2                                    
043646,000068: 17,2653           44711        NOLEM             CS       TWO                                   #  IF LEM IS OFF, SET ATTKALMN = -2.
043647,000069: 17,2654           55617                          TS       ATTKALMN                              
043648,000070: 17,2655           11631                          CCS      XTRANS                                #  (+, -1, 0)
043649,000071: 17,2656           55513                          TS       XNDX1                                 #  USING BD-X  ZERO XNDX1
043650,000072: 17,2657           12671                          TCF      PWORD                                 
043651,000073: 17,2660           55514                          TS       XNDX2                                 #  USING AC-X  ZERO XNDX2
043652,000074: 17,2661           12671                          TCF      PWORD                                 
043653,000075: 17,2662           07700        XLNMASK           OCT      7700                                  
043654,000076: 
043655,000077: 
043656,000078: 17,2663           37772        DELTATT3          DEC      16378      B-14                       #  = 60 MS
043657,000079: 17,2664           37776        DELATT20          DEC      16382      B-14                       #  = 20 MS
043658,000080: 
043659,000081: 17,2665           55513        NOXLNCMD          TS       XNDX1                                 #  ZERO ALL REQUESTS FOR TRANSLATION
043660,000082: 17,2666           55514                          TS       XNDX2                                 
043661,000083: 17,2667           55515                          TS       YNDX                                  
043662,000084: 17,2670           55516                          TS       ZNDX                                  
043663,000085: 
043664,000086:                                                                                                 #  PITCH COMMANDS  TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT
043665,000087: 
043666,000088: 17,2671           11562        PWORD             CCS      TAU1                                  #  CHECK FOR PITCH COMMANDS
043667,000089: 17,2672           34712                          CAF      ONE                                   
043668,000090: 17,2673           12675                          TCF      +2                                    #   0 = NO PITCH
043669,000091: 17,2674           34711                          CAF      TWO                                   #  +1 =  + PITCH
043670,000092: 17,2675           55520                          TS       PINDEX                                #  +2 =  - PITCH
043671,000093: 
043672,000094: 17,2676           11626                          CCS      RACFAIL                               #  FLAG FOR REAL AC QUAD FAILURES
043673,000095: 17,2677           12703                          TCF      AFAILP                                
043674,000096: 17,2700           12713                          TCF      TABPCOM                               #  0 = NO REAL AC FAILURES
043675,000097: 17,2701           12705                          TCF      CFAILP                                #  + = A QUAD FAILED
043676,000098: 17,2702           12713                          TCF      TABPCOM                               #  - = C QUAD FAILED
043677,000099:                                                                                                 #                                           IF FAILURES ARE PRESENT IGNORE
043678,000100:                                                                                                 #                                           X-TRANSLATIONS ON THIS AXIS
043679,000101: 
043680,000102: 17,2703           34334        AFAILP            CAF      NINE                                  #  IF FAILURE IS PRESENT 1JET OPERATION
043681,000103: 17,2704           12715                          TCF      TABPCOM    +2                         #  IS ASSUMED. IGNORE X-TRANSLATION
043682,000104: 17,2705           35660        CFAILP            CAF      TWELVE                                
043683,000105: 17,2706           12715                          TCF      TABPCOM    +2                         
043684,000106: 
043685,000107: 17,2707           00000        XLNNDX            DEC      0          B-14                       #  INDECES FOR TRANSLATION COMMANDS
043686,000108: 17,2710           00003                          DEC      3          B-14                       #  FOR USE IN TABLE LOOK UP
043687,000109: 17,2711           00006                          DEC      6          B-14                       
043688,000110: 17,2712           00000                          DEC      0          B-14                       
043689,000111: 
043690,000112: 17,2713     5660               TWELVE            =        OCT14                                 
043691,000113:                                                                                                 #  TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT.
043692,000114:                                                                                                 #  BITS 9, 10 CONTAIN THE NUMBER OF PITCH JETS USED TO PERFORM THE PITCH ROTATION
043693,000115:                                                                                                 # # Page 1009
043694,000116: 17,2713           51513        TABPCOM           INDEX    XNDX1                                 
043695,000117: 17,2714           32707                          CA       XLNNDX                                
043696,000118: 17,2715           61520                          AD       PINDEX                                
043697,000119: 17,2716           50000                          INDEX    A                                     
043698,000120: 17,2717           32743                          CA       PYTABLE                               
043699,000121: 17,2720           72762                          MASK     PJETS                                 #  =1417 OCT
043700,000122: 17,2721           55453                          TS       PWORD1                                
043701,000123: 17,2722           00006                          EXTEND                                         
043702,000124: 17,2723           74704                          MP       BIT7                                  
043703,000125: 17,2724           55523                          TS       NPJETS                                #  = NO. OF PITCH JETS
043704,000126: 
043705,000127:                                                                                                 #  YAW JET COMMANDS  TIMING(NO X-TRANS, NO QUAD FAILURES)  32MCT
043706,000128: 
043707,000129: 17,2725           11563        YWORD             CCS      TAU2                                  #  CHECK FOR YAW COMMANDS
043708,000130: 17,2726           34712                          CAF      ONE                                   
043709,000131: 17,2727           12731                          TCF      +2                                    
043710,000132: 17,2730           34711                          CAF      TWO                                   
043711,000133: 17,2731           55521                          TS       YINDEX                                #  YAW ROTATION INDEX
043712,000134: 
043713,000135: 17,2732           11627                          CCS      RBDFAIL                               #  FLAG FOR B OR D QUAD FAILURES
043714,000136: 17,2733           12737                          TCF      BFAILY                                #  0  = NO BD FAILURE
043715,000137: 17,2734           12764                          TCF      TABYCOM                               #  +  = B QUAD FAILED
043716,000138: 17,2735           12741                          TCF      DFAILY                                #  -  = D QUAD FAILED
043717,000139: 17,2736           12764                          TCF      TABYCOM                               
043718,000140: 
043719,000141: 17,2737           34334        BFAILY            CAF      NINE                                  
043720,000142: 17,2740           12766                          TCF      TABYCOM    +2                         
043721,000143: 17,2741           35660        DFAILY            CAF      TWELVE                                
043722,000144: 17,2742           12766                          TCF      TABYCOM    +2                         
043723,000145: 
043724,000146:                                                                                                 # # Page 1010
043725,000147:                                                                                                 #  TABLE FOR PITCH(YAW) COMMANDS
043726,000148:                                                                                                 #  BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED
043727,000149:                                                                                                 #  BITS     10,9 = NO. PITCH JETS USED TO PERFORM ROTATION
043728,000150:                                                                                                 #  BITS 8,7,6,5 = YAW, X-TRANSLATION JETS SELECTED
043729,000151:                                                                                                 #  BITS 12,11 : NO. YAW JETS USED TO PERFORM ROTATION
043730,000152: 
043731,000153:                                                                                                 #                                           ROT  TRANS  QUAD  BIAS
043732,000154: 17,2743           00000        PYTABLE           OCT      0                                     #   0     0            0
043733,000155: 17,2744           05125                          OCT      5125                                  #   +     0            0
043734,000156: 17,2745           05252                          OCT      5252                                  #   -     0            0
043735,000157: 17,2746           00231                          OCT      0231                                  #   0     +            3
043736,000158: 17,2747           02421                          OCT      2421                                  #   +     +            3
043737,000159: 17,2750           02610                          OCT      2610                                  #   -     +            3
043738,000160: 17,2751           00146                          OCT      0146                                  #   0     -            6
043739,000161: 17,2752           02504                          OCT      2504                                  #   +     -            6
043740,000162: 17,2753           02442                          OCT      2442                                  #   -     -            6
043741,000163: 17,2754           00000                          OCT      0                                     #   0          A(B)    9
043742,000164: 17,2755           02421                          OCT      2421                                  #   +          A(B)    9
043743,000165: 17,2756           02442                          OCT      2442                                  #   -          A(B)    9
043744,000166: 17,2757           00000                          OCT      0                                     #   0          C(D)    12
043745,000167: 17,2760           02504                          OCT      2504                                  #   +          C(D)    12
043746,000168: 17,2761           02610                          OCT      2610                                  #   -          C(D)    12
043747,000169: 
043748,000170:                                                                                                 #  MASKS FOR PITCH AND YAW COMMANDS
043749,000171: 
043750,000172: 17,2762           01417        PJETS             OCT      1417                                  
043751,000173: 17,2763           06360        YJETS             OCT      6360                                  
043752,000174: 
043753,000175:                                                                                                 #  TABLE LOOK UP FOR YAW COMMANDS WTIH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT
043754,000176:                                                                                                 #  BITS 11, 12 CONTAIN THE NUMBER OF YAW JETS USED TO PERFORM THE YAW ROTATION
043755,000177: 
043756,000178: 17,2764           51514        TABYCOM           INDEX    XNDX2                                 
043757,000179: 17,2765           32707                          CA       XLNNDX                                
043758,000180: 17,2766           61521                          AD       YINDEX                                
043759,000181: 17,2767           50000                          INDEX    A                                     
043760,000182: 17,2770           32743                          CA       PYTABLE                               
043761,000183: 17,2771           72763                          MASK     YJETS                                 #  = 6360 OCT
043762,000184: 17,2772           55455                          TS       YWORD1                                
043763,000185: 17,2773           00006                          EXTEND                                         
043764,000186: 17,2774           74706                          MP       BIT5                                  
043765,000187: 17,2775           55524                          TS       NYJETS                                #  NO. OF YAW JETS USED TO PERFORM ROTATION
043766,000188: 
043767,000189:                                                                                                 # # Page 1011
043768,000190:                                                                                                 #  ROLL COMMANDS  TIMING(NO Y,Z TRANS, NO QUAD FAILS)   45MCT
043769,000191: 
043770,000192: 17,2776           11561        RWORD             CCS      TAU                                   #  CHECK FOR ROLL COMMANDS
043771,000193: 17,2777           34712                          CAF      ONE                                   
043772,000194: 17,3000           13002                          TCF      +2                                    
043773,000195: 17,3001           34711                          CAF      TWO                                   
043774,000196: 17,3002           55517                          TS       RINDEX                                
043775,000197: 
043776,000198: 17,3003           11630                          CCS      ACORBD                                #  FLAG FOR AC OR BD QUAD SELECTION FOR
043777,000199: 17,3004           13075                          TCF      BDROLL                                #  ROLL COMMANDS
043778,000200: 17,3005           13075                          TCF      BDROLL                                #  +, +0 = BD ROLL
043779,000201: 17,3006           13007                          TCF      +1                                    #  -, -0 = AC ROLL
043780,000202: 
043781,000203: 17,3007           11626        ACROLL            CCS      RACFAIL                               #  CHECK FOR REAL FAILURES
043782,000204: 17,3010           13014                          TCF      RAFAIL                                #  ON AC QUADS
043783,000205: 17,3011           13024                          TCF      RXLNS                                 
043784,000206: 17,3012           13016                          TCF      RCFAIL                                
043785,000207: 17,3013           13024                          TCF      RXLNS                                 
043786,000208: 
043787,000209: 17,3014           34334        RAFAIL            CAF      NINE                                  #  QUAD FAILURE  WILL GET
043788,000210: 17,3015           13026                          TCF      TABRCOM                               #  1-JET OPERATION
043789,000211: 17,3016           35660        RCFAIL            CAF      TWELVE                                
043790,000212: 17,3017           13026                          TCF      TABRCOM                               
043791,000213: 
043792,000214: 17,3020           00000        XLN1NDX           DEC      0          B-14                       
043793,000215: 17,3021           00001                          DEC      1          B-14                       #  INDECES FOR TRANSLATION
043794,000216: 17,3022           00002                          DEC      2          B-14                       
043795,000217: 17,3023           00000                          DEC      0          B-14                       
043796,000218: 
043797,000219:                                                                                                 #  TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT
043798,000220:                                                                                                 #  BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL
043799,000221: 
043800,000222: 17,3024           51515        RXLNS             INDEX    YNDX                                  #  NO AC QUAD FAILURES
043801,000223: 17,3025           32707                          CA       XLNNDX                                #  INCLUDE +,-,0, Y-TRANSLATION
043802,000224: 17,3026           61517        TABRCOM           AD       RINDEX                                
043803,000225: 17,3027           50000                          INDEX    A                                     
043804,000226: 17,3030           33157                          CA       RTABLE                                
043805,000227: 17,3031           73176                          MASK     ACRJETS                               #  = 3760 OCT
043806,000228: 17,3032           55451                          TS       RWORD1                                
043807,000229: 
043808,000230:                                                                                                 #  CHECK FOR Z-TRANSLATIONS ON BD
043809,000231: 
043810,000232: 17,3033           31516        BDZCHECK          CA       ZNDX                                  
043811,000233: 17,3034           00006                          EXTEND                                         
043812,000234: 17,3035           63067                          BZMF     NOBDZ                                 #  NO Z-TRANSLATION
043813,000235: 
043814,000236:                                                                                                 # # Page 1012
043815,000237:                                                                                                 #           TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES.  Z-TRANSLATION WILL BE POSS-
043816,000238:                                                                                                 #  IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS.  CRITERION.. IF THE RESULTANT NET ROLL
043817,000239:                                                                                                 #  COMMANDS = 0 (WITH Z-TRANSLATION) AND IF TAU = 0, THEN INCLUDE THE BD Z-TRANSLATION COMMANDS. IF THE RESULTANT
043818,000240:                                                                                                 #  ROLL COMMAND = 0, AND IF TAU NZ, THEN IGNORE THE BD Z-TRANSLATION
043819,000241: 
043820,000242: 17,3036           11627                          CCS      RBDFAIL                               
043821,000243: 17,3037           36214                          CAF      THREE                                 
043822,000244: 17,3040           13042                          TCF      +2                                    
043823,000245: 17,3041           36211                          CAF      SIX                                   
043824,000246: 17,3042           51516                          INDEX    ZNDX                                  
043825,000247: 17,3043           63020                          AD       XLN1NDX                               
043826,000248: 17,3044           50000                          INDEX    A                                     
043827,000249: 17,3045           33200                          CA       YZTABLE                               
043828,000250: 17,3046           73211                          MASK     BDZJETS                               #  = 3417 OCT
043829,000251: 17,3047           61451                          AD       RWORD1                                #  ADD TO ROLL COMMANDS
043830,000252: 17,3050           55502                          TS       T5TEMP                                #  IF POSSIBLE.  MUST CHECK TAU FIRST
043831,000253: 
043832,000254: 17,3051           00006                          EXTEND                                         
043833,000255: 17,3052           74704                          MP       BIT7                                  #  DETERMINE THE NET ROLL COMMAND WITH
043834,000256: 17,3053           66061                          AD       =-4                                   #  Z-TRANSLATION ADDED ON
043835,000257: 17,3054           55522                          TS       NRJETS                                #  NET NO. OF +,- ROLL JETS ON
043836,000258: 17,3055           00006                          EXTEND                                         
043837,000259: 17,3056           13062                          BZF      TAUCHECK                              
043838,000260: 
043839,000261: 17,3057           31502        ACRBDZ            CA       T5TEMP                                #  Z-TRANSLATION ACCEPTED EVEN THO WE MAY
043840,000262: 17,3060           55451                          TS       RWORD1                                #  HAVE INTRODUCED AND UNDESIREABLE ROLL
043841,000263: 17,3061           13323                          TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATIONS
043842,000264: 
043843,000265: 17,3062           11561        TAUCHECK          CCS      TAU                                   
043844,000266: 17,3063           13067                          TCF      NOBDZ                                 
043845,000267: 17,3064           13057                          TCF      ACRBDZ                                
043846,000268: 17,3065           13067                          TCF      NOBDZ                                 
043847,000269: 17,3066           13057                          TCF      ACRBDZ                                
043848,000270: 
043849,000271: 17,3067           31451        NOBDZ             CA       RWORD1                                #  Z-TRANSLATION NOT ACCEPTED
043850,000272: 17,3070           00006                          EXTEND                                         
043851,000273: 17,3071           74704                          MP       BIT7                                  
043852,000274: 17,3072           67715                          AD       =-2                                   
043853,000275: 17,3073           55522                          TS       NRJETS                                
043854,000276: 17,3074           13323                          TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATION
043855,000277: 
043856,000278:                                                                                                 # # Page 1013
043857,000279:                                                                                                 #  BD QUAD SELECTION FOR ROLL COMMANDS
043858,000280: 
043859,000281: 17,3075           11627        BDROLL            CCS      RBDFAIL                               
043860,000282: 17,3076           13102                          TCF      RBFAIL                                
043861,000283: 17,3077           13106                          TCF      RZXLNS                                
043862,000284: 17,3100           13104                          TCF      RDFAIL                                
043863,000285: 17,3101           13106                          TCF      RZXLNS                                
043864,000286: 17,3102           34334        RBFAIL            CAF      NINE                                  
043865,000287: 17,3103           13110                          TCF      TABRZCMD                              
043866,000288: 17,3104           35660        RDFAIL            CAF      TWELVE                                
043867,000289: 17,3105           13110                          TCF      TABRZCMD                              
043868,000290: 
043869,000291: 17,3106           51516        RZXLNS            INDEX    ZNDX                                  #  NO BD FAILURES
043870,000292: 17,3107           32707                          CA       XLNNDX                                #  +,-,0 Z-TRANSLATION PRESENT
043871,000293: 17,3110           61517        TABRZCMD          AD       RINDEX                                
043872,000294: 17,3111           50000                          INDEX    A                                     
043873,000295: 17,3112           33157                          CA       RTABLE                                
043874,000296: 17,3113           73177                          MASK     BDRJETS                               #  = 34017 OCT
043875,000297: 17,3114           55451                          TS       RWORD1                                
043876,000298: 
043877,000299: 17,3115           31515        ACYCHECK          CA       YNDX                                  #  ANY Y-TRANSLATION
043878,000300: 17,3116           00006                          EXTEND                                         
043879,000301: 17,3117           13151                          BZF      NOACY                                 #  NO Y-TRANSLATION
043880,000302: 17,3120           11626                          CCS      RACFAIL                               
043881,000303: 17,3121           36214                          CAF      THREE                                 
043882,000304: 17,3122           13124                          TCF      +2                                    
043883,000305: 17,3123           36211                          CAF      SIX                                   
043884,000306: 17,3124           51515                          INDEX    YNDX                                  
043885,000307: 17,3125           63020                          AD       XLN1NDX                               
043886,000308: 17,3126           50000                          INDEX    A                                     
043887,000309: 17,3127           33200                          CA       YZTABLE                               
043888,000310: 17,3130           73212                          MASK     ACYJETS                               #  = 34360 OCT
043889,000311: 17,3131           61451                          AD       RWORD1                                
043890,000312: 17,3132           55502                          TS       T5TEMP                                
043891,000313: 17,3133           00006                          EXTEND                                         #  FOR EXPLANATION SEE CODING ON RTABLE
043892,000314: 17,3134           74707                          MP       BIT4                                  
043893,000315: 17,3135           66061                          AD       =-4                                   
043894,000316: 17,3136           55522                          TS       NRJETS                                #  NO. OF NET ROLL JETS
043895,000317: 17,3137           00006                          EXTEND                                         
043896,000318: 17,3140           13144                          BZF      TAUCHCK                               #  IF NRJETS = 0
043897,000319: 
043898,000320: 17,3141           31502        BDRACZ            CA       T5TEMP                                #  Y-TRANSLATION ACCEPTED
043899,000321: 17,3142           55451                          TS       RWORD1                                
043900,000322: 17,3143           13323                          TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATIONS
043901,000323: 
043902,000324: 17,3144           11561        TAUCHCK           CCS      TAU                                   
043903,000325: 17,3145           13151                          TCF      NOACY                                 
043904,000326: 17,3146           13141                          TCF      BDRACZ                                
043905,000327: 17,3147           13151                          TCF      NOACY                                 
043906,000328: 17,3150           13141                          TCF      BDRACZ                                
043907,000329:                                                                                                 # # Page 1014
043908,000330: 17,3151           31451        NOACY             CA       RWORD1                                #  Y-TRANSLATION NOT ACCEPTED
043909,000331: 17,3152           00006                          EXTEND                                         
043910,000332: 17,3153           74707                          MP       BIT4                                  
043911,000333: 17,3154           67715                          AD       =-2                                   
043912,000334: 17,3155           55522                          TS       NRJETS                                
043913,000335: 17,3156           13323                          TCF      ROLLTIME                              
043914,000336: 
043915,000337:                                                                                                 # # Page 1015
043916,000338:                                                                                                 #           TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS
043917,000339: 
043918,000340:                                                                                                 #     EITHER AC OR BD ROLL MAY BE SELECTED. IF AC ROLL IS SELECTED, Y-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY
043919,000341:                                                                                                 #  PROVIDED THAT THERE ARE NO AC QUAD FAILURES. IF THERE ARE AC FAILURES, Y-TRANSLATION COMMANDS WILL BE IGNORED,
043920,000342:                                                                                                 #  IN WHICH CASE THE ASTRONAUT SHOULD SWITCH TO BD ROLL.
043921,000343:                                                                                                 #     IF BDROLL IS SELECTED, Z-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY PROVIDED THAT THERE ARE NO BD QUAD
043922,000344:                                                                                                 #  FAILURES. IF THERE ARE BD FAILURES, Z-TRANSLATION COMMANDS WILL BE IGNORED, IN WHICH CASE THE ASTRONAUT SHOULD
043923,000345:                                                                                                 #  SWITCH TO AC ROLL.
043924,000346:                                                                                                 #     NOTE THAT IF ONE QUAD FAILS (E.G. B FAILED), Z-TRANSLATION IS STILL POSSIBLE AND THAT THE UNDESIREABLE ROLL
043925,000347:                                                                                                 #  INTRODUCED BY THIS TRANSLATION WILL BE COMPENSATED BY THE TWO AC ROLL JETS ACTUATED BY THE AUTOPILOT LOGIC.
043926,000348: 
043927,000349:                                                                                                 #           WORD MAKE UP....RTABLE
043928,000350: 
043929,000351:                                                                                                 #     TWO WORDS, CORRESPONDING TO AC OR BD ROLL SELECTION, HAVE BEEN COMBINED INTO ONE TABLE.  THE WORD CORRESPOND-
043930,000352:                                                                                                 #  ING TO AC ROLL HAS THE FOLLOWING INTERPRETATION..
043931,000353:                                                                                                 #     BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE FOR THE WORD SELECTED. THE CODING IS..
043932,000354:                                                                                                 #                   BIT NO.  11 10 9   NO. OF ROLL JETS
043933,000355: 
043934,000356:                                                                                                 #                             0 0 0          -2
043935,000357:                                                                                                 #                             0 0 1          -1
043936,000358:                                                                                                 #                             0 1 0           0
043937,000359:                                                                                                 #                             0 1 1          +1
043938,000360:                                                                                                 #                             1 0 0          +2
043939,000361: 
043940,000362: 
043941,000363:                                                                                                 #     THIS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM THE YZ-TRANSLATION TABLE, WHICH HAS THE SAME TYPE OF
043942,000364:                                                                                                 #  CODING AS ABOVE, AND THE NET ROLL DETERMINED BY SHIFTING THE RESULTANT WORD RIGHT 8 PLACES AND SUBTRACTING FOUR.
043943,000365: 
043944,000366:                                                                                                 #     THE WORD CORRESPONDING TO BD ROLL HAS A SIMILIAR INTERPRETATION, EXCEPT THAT BITS 12, 13, 14 ARE CODED
043945,000367:                                                                                                 #  (AS ABOVE) TO GIVE THE NET ROLL TORQUE.
043946,000368: 
043947,000369: 
043948,000370:                                                                                                 #                                           ROLL   TRANS   QUADFAIL   BIAS
043949,000371: 
043950,000372: 17,3157           11000        RTABLE            OCT      11000                                 #   0                         0
043951,000373: 17,3160           22125                          OCT      22125                                 #   +                         0
043952,000374: 17,3161           00252                          OCT      00252                                 #   -                         0
043953,000375: 17,3162           11231                          OCT      11231                                 #   0     +Y(+Z)              3
043954,000376: 17,3163           15421                          OCT      15421                                 #   +     +Y(+Z)              3
043955,000377: 17,3164           04610                          OCT      04610                                 #   -     +Y(+Z)              3
043956,000378: 17,3165           11146                          OCT      11146                                 #   0     -Y(-Z)              6
043957,000379: 17,3166           15504                          OCT      15504                                 #   +     -Y(-Z)              6
043958,000380: 17,3167           04442                          OCT      04442                                 #   -     -Y(-Z)              6
043959,000381: 17,3170           11000                          OCT      11000                                 #   0               A(B)      9
043960,000382: 17,3171           15504                          OCT      15504                                 #   +               A(B)      9
043961,000383: 17,3172           04610                          OCT      04610                                 #   -               A(B)      9
043962,000384: 17,3173           11000                          OCT      11000                                 #   0               C(D)     12
043963,000385: 17,3174           15421                          OCT      15421                                 #   +               C(D)     12
043964,000386: 17,3175           04442                          OCT      04442                                 #   -               C(D)      12
043965,000387: 
043966,000388:                                                                                                 # # Page 1016
043967,000389:                                                                                                 #           RTABLE MASKS -
043968,000390: 
043969,000391: 17,3176           03760        ACRJETS           OCT      03760                                 
043970,000392: 17,3177           34017        BDRJETS           OCT      34017                                 
043971,000393: 
043972,000394:                                                                                                 # # Page 1017
043973,000395:                                                                                                 #           Y, Z TRANSLATION TABLE
043974,000396: 
043975,000397:                                                                                                 #      ONCE AC OR BD ROLL IS SELECTED THE QUAD PAIR WHICH IS NOT BEING USED TO SATISFY THE ROLL COMMANDS MAY BE
043976,000398:                                                                                                 #  USED TO SATISFY THE REMAINING TRANSLATION COMMANDS.  HOWEVER, WE MUST MAKE SURE THAT ROLL COMMANDS ARE SATISFIED
043977,000399:                                                                                                 #  WHEN THEY OCCUR.  THEREFORE, THE Y-Z TRANSLATIONS FROM THIS TABLE WILL BE IGNORED IF THE NET ROLL TORQUE OF THE
043978,000400:                                                                                                 #  COMBINED WORD IS ZERO AND THE ROLL COMMANDS ARE NON-ZERO.  THIS SITUATION WOULD OCCUR, FOR EXAMPLE, IF WE EN-
043979,000401:                                                                                                 #  COUNTER SIMULTANEOUS +R +Y -Z COMMANDS AND  A QUAD D FAILURE WHILE USING AC FOR ROLL.
043980,000402:                                                                                                 #     TO FACILITATE THE LOGIC, THE Y-Z TRANSLATION TABLE HAS BEEN CODED IN A MANNER SIMILAR TO THE  ROLL TABLE
043981,000403:                                                                                                 #  ABOVE.
043982,000404:                                                                                                 #     BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Z-TRANSLATIONS. THE WORD SELECTED CAN THEN BE
043983,000405:                                                                                                 #  ADDED  TO THE AC-ROLL WORD AND THE RESULTANT ROLL TORQUE DETERMINED FROM THE COMBINED WORD.  SIMILIARLY BITS
043984,000406:                                                                                                 #  12,13,14 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Y-TRANSLATIONS WHEN BD-ROLL IS SELECTED.
043985,000407: 
043986,000408:                                                                                                 #                                           TRANSLATION    QUADFAIL    BIAS
043987,000409: 
043988,000410: 17,3200           11000        YZTABLE           OCT      11000                                 #       0                       0
043989,000411: 17,3201           11231                          OCT      11231                                 #    +Z(+Y)                     0
043990,000412: 17,3202           11146                          OCT      11146                                 #    -Z(-Y)                     0
043991,000413: 17,3203           11000                          OCT      11000                                 #       0           B(A)        3
043992,000414: 17,3204           04610                          OCT      04610                                 #    +Z(+Y)         B(A)        3
043993,000415: 17,3205           15504                          OCT      15504                                 #    -Z(-Y)         B(A)        3
043994,000416: 17,3206           11000                          OCT      11000                                 #       0           D(C)        6
043995,000417: 17,3207           15421                          OCT      15421                                 #    +Z(+Y)         D(C)        6
043996,000418: 17,3210           04442                          OCT      04442                                 #    -Z(-Y)         D(C)        6
043997,000419: 
043998,000420:                                                                                                 #           YZ-TABLE MASKS-
043999,000421: 
044000,000422: 17,3211           03417        BDZJETS           OCT      03417                                 
044001,000423: 17,3212           34360        ACYJETS           OCT      34360                                 
044002,000424: 
044003,000425:                                                                                                 #           ADDITIONAL CONSTANTS
044004,000426: 
044005,000427: 17,3213     7715               =-2               =        NEG2                                  
044006,000428: 17,3213     6061               =-4               =        NEG4                                  
044007,000429: 
044008,000430:                                                                                                 # # Page 1018
044009,000431:                                                                                                 #           CALCULATION OF JET ON-TIMES
044010,000432: 
044011,000433:                                                                                                 #     THE ROTATION COMMANDS (TAU:S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET
044012,000434:                                                                                                 #  OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS.  TAU MUST
044013,000435:                                                                                                 #  ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5 INT- 
044014,000436:                                                                                                 #  ERVAL.
044015,000437:                                                                                                 #     IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES
044016,000438:                                                                                                 #  (DFT:S, ALSO IN TERMS OF 1-JET OPERATION) FOR THE RATE FILTER.
044017,000439:                                                                                                 #     NOTE THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO ROTATIONS WERE CALLED FOR.  NEVERTHELESS, WE MUST
044018,000440:                                                                                                 #  UPDATE DFT.
044019,000441:                                                                                                 #     WHEN THE ROTATIONS HAVE FINISHED, WE MUST PROVIDE CHANNEL INFORMATION TO THE T6 PROGRAM TO CONTINUE ON WITH
044020,000442:                                                                                                 #  THE TRANSLATIONS.  THIS WILL BE DONE IN THE NEXT SECTION.  HOWEVER, TO INSURE THAT JETS ARE NOT FIRED FOR LESS
044021,000443:                                                                                                 #  THAN A MINIMUM IMPULSE (14MS), ALL JET CHANNEL COMMANDS WILL BE HELD FIXED FROM THE START OF THE T5 PROGRAM FOR
044022,000444:                                                                                                 #  AT LEAST 14MS UNTIL THE INITIALIZATION OF NEW COMMANDS.  MOREOVER, A 14MS ON-TIME WILL BE ADDED TO ANY ROTATIONAL
044023,000445:                                                                                                 #  COMMANDS GENERATED BY THE MANUAL CONTROLS OR THE JET SWITCHING LOGIC, AND ALL TRANSLATION COMMANDS WILL BE
044024,000446:                                                                                                 #  ACTIVE FOR ATLEAST ONE CYCLE OF THE T5 PROGRAM (.1SEC)
044025,000447: 
044026,000448:                                                                                                 #           PITCH JET ON-TIME CALCULATION
044027,000449: 
044028,000450: 17,3213           11562        PITCHTIM          CCS      TAU1                                  
044029,000451: 17,3214           13223                          TCF      PTAUPOS                               
044030,000452: 17,3215           13217                          TCF      +2                                    
044031,000453: 17,3216           13221                          TCF      PTAUNEG                               
044032,000454: 17,3217           55550                          TS       DFT1                                  #  NO PITCH ROTATION
044033,000455: 17,3220           13421                          TCF      PBYPASS                               #  COMMANDS
044034,000456: 
044035,000457: 17,3221           41523        PTAUNEG           CS       NPJETS                                
044036,000458: 17,3222           55523                          TS       NPJETS                                
044037,000459: 17,3223           31562        PTAUPOS           CA       TAU1                                  
044038,000460: 17,3224           00006                          EXTEND                                         
044039,000461: 17,3225           51523                          INDEX    NPJETS                                
044040,000462: 17,3226           73402                          MP       NJET                                  
044041,000463: 17,3227           55461                          TS       BLAST1                                
044042,000464: 17,3230           63335                          AD       =-.1SEC                               
044043,000465: 17,3231           00006                          EXTEND                                         
044044,000466: 17,3232           63243                          BZMF     AD14MSP                               
044045,000467: 17,3233           51523                          INDEX    NPJETS                                
044046,000468: 17,3234           33336                          CA       DFTMAX                                #  THE PITCH ON-TIME IS GREATER THAN .1 SEC
044047,000469: 17,3235           55550                          TS       DFT1                                  
044048,000470: 17,3236           40000                          COM                                            
044049,000471: 17,3237           27562                          ADS      TAU1                                  #  UPDATE TAU1
044050,000472: 17,3240           33337                          CAF      =+.1SEC                               #  LIMIT THE LENGTH OF PITCH ROTATION
044051,000473: 17,3241           55461                          TS       BLAST1                                #  COMMANDS TO 0.1 SEC SO THAT ONLY
044052,000474: 17,3242           13406                          TCF      ASMBLWP                               #  X-TRANSLATIONS WILL CONTINUE ON SWITCH
044053,000475:                                                                                                 #                                           OVER TO TVC
044054,000476: 17,3243           41461        AD14MSP           CS       BLAST1                                #  SEE IF JET ON TIME IS LESS THAN
044055,000477: 17,3244           63342                          AD       =14MS                                 #  MINIMUM IMPULSE TIME
044056,000478: 17,3245           00006                          EXTEND                                         
044057,000479: 17,3246           63251                          BZMF     PBLASTOK                              #  IF SO LIMIT MINIMUM ON TIME TO 14 MS
044058,000480: 17,3247           33342                          CAF      =14MS                                 
044059,000481:                                                                                                 # # Page 1019
044060,000482: 17,3250           55461                          TS       BLAST1                                
044061,000483: 17,3251           31461        PBLASTOK          CA       BLAST1                                
044062,000484: 17,3252           00006                          EXTEND                                         #  THE PITCH COMMANDS WILL BE COMPLETED
044063,000485: 17,3253           71523                          MP       NPJETS                                #  WITHIN THE TS-CYCLE TIME
044064,000486: 17,3254           23550                          LXCH     DFT1                                  #  FOR USE IN UPDATING RATE FILTER
044065,000487: 17,3255           55562                          TS       TAU1                                  #  ZERO TAU1 (ACC CONTAINS ZERO)
044066,000488: 17,3256           13406                          TCF      ASMBLWP                               
044067,000489: 
044068,000490:                                                                                                 # # Page 1020
044069,000491:                                                                                                 #           YAW JET ON-TIME CALCULATION
044070,000492: 
044071,000493: 17,3257           11563        YAWTIME           CCS      TAU2                                  
044072,000494: 17,3260           13267                          TCF      YTAUPOS                               
044073,000495: 17,3261           13263                          TCF      +2                                    
044074,000496: 17,3262           13265                          TCF      YTAUNEG                               
044075,000497: 17,3263           55551                          TS       DFT2                                  #  NO YAW ROTATION COMMANDS
044076,000498: 17,3264           13565                          TCF      YBYPASS                               
044077,000499: 
044078,000500: 17,3265           41524        YTAUNEG           CS       NYJETS                                
044079,000501: 17,3266           55524                          TS       NYJETS                                
044080,000502: 17,3267           31563        YTAUPOS           CA       TAU2                                  
044081,000503: 17,3270           00006                          EXTEND                                         
044082,000504: 17,3271           51524                          INDEX    NYJETS                                
044083,000505: 17,3272           73402                          MP       NJET                                  
044084,000506: 17,3273           55463                          TS       BLAST2                                
044085,000507: 17,3274           63335                          AD       =-.1SEC                               
044086,000508: 17,3275           00006                          EXTEND                                         
044087,000509: 17,3276           63307                          BZMF     AD14MSY                               
044088,000510: 17,3277           51524                          INDEX    NYJETS                                
044089,000511: 17,3300           33336                          CA       DFTMAX                                #  YAW COMMANDS WILL LAST LONGER THAN .1SEC
044090,000512: 17,3301           55551                          TS       DFT2                                  
044091,000513: 17,3302           40000                          COM                                            
044092,000514: 17,3303           27563                          ADS      TAU2                                  #  DECREMENT TAU2
044093,000515: 17,3304           33337                          CAF      =+.1SEC                               #  LIMIT THE LENGTH OF YAW ROTATION COMMAND
044094,000516: 17,3305           55463                          TS       BLAST2                                #  TO 0.1 SEC SO THAT ONLY X-TRANSLATION
044095,000517: 17,3306           13552                          TCF      ASMBLWY                               #  WILL CONTINUE ON SWITCH OVER TO TVC
044096,000518: 
044097,000519: 17,3307           41463        AD14MSY           CS       BLAST2                                #  SEE IF JET ON-TIME LESS THAN
044098,000520: 17,3310           63342                          AD       =14MS                                 #  MINIMUM IMPULSE TIME
044099,000521: 17,3311           00006                          EXTEND                                         
044100,000522: 17,3312           63315                          BZMF     YBLASTOK                              #  IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
044101,000523: 17,3313           33342                          CAF      =14MS                                 
044102,000524: 17,3314           55463                          TS       BLAST2                                
044103,000525: 17,3315           31463        YBLASTOK          CA       BLAST2                                #  YAW COMMANDS WILL BE COMPLETED WITHIN
044104,000526: 17,3316           00006                          EXTEND                                         #  THE T5CYCLE TIME
044105,000527: 17,3317           71524                          MP       NYJETS                                
044106,000528: 17,3320           23551                          LXCH     DFT2                                  
044107,000529: 17,3321           55563                          TS       TAU2                                  #  ZERO TAU2
044108,000530: 17,3322           13552                          TCF      ASMBLWY                               
044109,000531: 
044110,000532:                                                                                                 # # Page 1021
044111,000533:                                                                                                 #           ROLL ON-TIME CALCULATION-
044112,000534: 
044113,000535: 17,3323           11561        ROLLTIME          CCS      TAU                                   
044114,000536: 17,3324           13343                          TCF      RBLAST                                
044115,000537: 17,3325           13327                          TCF      +2                                    
044116,000538: 17,3326           13343                          TCF      RBLAST                                
044117,000539: 17,3327           51522                          INDEX    NRJETS                                
044118,000540: 17,3330           33336                          CA       DFTMAX                                #  UPDATE DFT EVEN THO NO ROLL COMMANDS ARE
044119,000541: 17,3331           55547                          TS       DFT                                   #  PRESENT
044120,000542: 17,3332           13545                          TCF      RBYPASS                               
044121,000543: 
044122,000544: 17,3333           77037                          DEC      -480       B-14                       #  = -.3SEC
044123,000545: 17,3334           77277                          DEC      -320       B-14                       #  = -.2SEC
044124,000546: 17,3335           77537        =-.1SEC           DEC      -160       B-14                       #  = -.1SEC
044125,000547: 17,3336           00000        DFTMAX            DEC      0          B-14                       #      0
044126,000548: 17,3337           00240        =+.1SEC           DEC      160        B-14                       #  = +.1SEC
044127,000549: 17,3340           00500                          DEC      320        B-14                       #  = +.2SEC
044128,000550: 17,3341           00740                          DEC      480        B-14                       #  = +.3SEC
044129,000551: 17,3342           00027        =14MS             DEC      23         B-14                       #  =14MS
044130,000552: 
044131,000553: 17,3343           31561        RBLAST            CA       TAU                                   
044132,000554: 17,3344           00006                          EXTEND                                         
044133,000555: 17,3345           51522                          INDEX    NRJETS                                
044134,000556: 17,3346           73402                          MP       NJET                                  
044135,000557: 17,3347           55457                          TS       BLAST                                 #  BLAST IS AN INTERMEDIATE VARIABLE
044136,000558:                                                                                                 #                                           USED IN DETERMINING THE JET ON-TIMES
044137,000559: 17,3350           63335                          AD       =-.1SEC                               
044138,000560: 17,3351           00006                          EXTEND                                         
044139,000561: 17,3352           63363                          BZMF     AD14MSR                               
044140,000562: 17,3353           51522                          INDEX    NRJETS                                #  THE ROLL ROTATION WILL LAST LONGER
044141,000563: 17,3354           33336                          CA       DFTMAX                                #  THAN THE T5 CYCLE TIME
044142,000564: 17,3355           55547                          TS       DFT                                   
044143,000565: 17,3356           40000                          COM                                            
044144,000566: 17,3357           27561                          ADS      TAU                                   
044145,000567: 17,3360           33337                          CAF      =+.1SEC                               #  LIMIT THE LENGTH OF ROLL ROTATION
044146,000568: 17,3361           55457                          TS       BLAST                                 #  COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z
044147,000569: 17,3362           13426                          TCF      ASMBLWR                               #  TRANSLATION COMMANDS CONTINUE
044148,000570: 
044149,000571: 17,3363           41457        AD14MSR           CS       BLAST                                 #  SEE IF THE JET ON-TIME LESS THAN
044150,000572: 17,3364           63342                          AD       =14MS                                 #  MINIMUM IMPULSE TIME
044151,000573: 17,3365           00006                          EXTEND                                         
044152,000574: 17,3366           63371                          BZMF     RBLASTOK                              
044153,000575: 17,3367           33342                          CAF      =14MS                                 #  IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
044154,000576: 17,3370           55457                          TS       BLAST                                 
044155,000577: 17,3371           31457        RBLASTOK          CA       BLAST                                 
044156,000578: 17,3372           00006                          EXTEND                                         
044157,000579: 17,3373           71522                          MP       NRJETS                                
044158,000580: 17,3374           23547                          LXCH     DFT                                   
044159,000581: 17,3375           55561                          TS       TAU                                   #  ZERO TAU
044160,000582: 17,3376           13426                          TCF      ASMBLWR                               
044161,000583:                                                                                                 # # Page 1022
044162,000584: 17,3377           65252                          DEC      -.333333                              #  = -1/3
044163,000585: 17,3400           57777                          DEC      -.500000                              #  = -1.2
044164,000586: 17,3401           40000                          DEC      -.999999                              #  = -1 (NEGMAX)
044165,000587: 17,3402           00000        NJET              DEC      0          B-14                       
044166,000588: 17,3403           37777                          DEC      .999999                               #  = +1 (POSMAX)
044167,000589: 17,3404           20000                          DEC      .500000                               #  = +1/2
044168,000590: 17,3405           12525                          DEC      .333333                               #  = +1/3
044169,000591: 
044170,000592:                                                                                                 # # Page 1023
044171,000593:                                                                                                 #     WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH
044172,000594:                                                                                                 #  CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT.
044173,000595:                                                                                                 #     IN THIS SECTION THESE NEW COMMANDS ARE GENERATED AND STORED FOR REPLACEMENT OF THE CHANNEL COMMANDS WHEN THE
044174,000596:                                                                                                 #  CORRESPONDING ROTATIONS ARE COMPLETED.
044175,000597: 
044176,000598:                                                                                                 #  GENERATION OF THE SECOND PITCH(X-TRANS) WORD...PWORD2
044177,000599: 
044178,000600: 17,3406           11626        ASMBLWP           CCS      RACFAIL                               
044179,000601: 17,3407           13415                          TCF      FPX2                                  #  IF FAILURE ON AC IGNORE X-TRANSLATION
044180,000602: 17,3410           13412                          TCF      +2                                    
044181,000603: 17,3411           13415                          TCF      FPX2                                  
044182,000604: 17,3412           51513                          INDEX    XNDX1                                 
044183,000605: 17,3413           32707                          CA       XLNNDX                                
044184,000606: 17,3414           50000                          INDEX    A                                     
044185,000607: 17,3415           32743        FPX2              CA       PYTABLE                               
044186,000608: 17,3416           72762                          MASK     PJETS                                 
044187,000609: 17,3417           55454                          TS       PWORD2                                
044188,000610: 17,3420           13257                          TCF      YAWTIME                               
044189,000611: 
044190,000612: 17,3421           31453        PBYPASS           CA       PWORD1                                #  THE T6 PROGRAM WILL LOAD PWORD2
044191,000613: 17,3422           55454                          TS       PWORD2                                #  UPON ENTRY
044192,000614: 17,3423           34714                          CAF      ZERO                                  
044193,000615: 17,3424           55461                          TS       BLAST1                                #  THERE IS NO PWORD2
044194,000616: 17,3425           13257                          TCF      YAWTIME                               
044195,000617: 
044196,000618:                                                                                                 # # Page 1024
044197,000619:                                                                                                 #  GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2)
044198,000620: 
044199,000621: 17,3426           11515        ASMBLWR           CCS      YNDX                                  #  CHECK FOR Y-TRANS
044200,000622: 17,3427           13437                          TCF      ACBD2Y                                
044201,000623: 17,3430           34714        NO2Y              CAF      ZERO                                  
044202,000624: 17,3431           55452                          TS       RWORD2                                
044203,000625: 17,3432           11516                          CCS      ZNDX                                  #  CHECK FOR Z-TRANS
044204,000626: 17,3433           13502                          TCF      ACBD2Z                                
044205,000627: 17,3434           34714        NO2Z              CAF      ZERO                                  
044206,000628: 17,3435           27452                          ADS      RWORD2                                
044207,000629: 17,3436           13213                          TCF      PITCHTIM                              #  RWORD2 ASSEMBLED
044208,000630: 
044209,000631: 17,3437           11630        ACBD2Y            CCS      ACORBD                                
044210,000632: 17,3440           13455                          TCF      AC2Y                                  #  CAN DO Y-TRANS
044211,000633: 17,3441           13455                          TCF      AC2Y                                  
044212,000634: 17,3442           13443                          TCF      +1                                    #  USING AC FOR ROLL
044213,000635: 17,3443           11626                          CCS      RACFAIL                               
044214,000636: 17,3444           13430                          TCF      NO2Y                                  #  USING AC AND AC HAS FAILED
044215,000637: 17,3445           13447                          TCF      +2                                    
044216,000638: 17,3446           13430                          TCF      NO2Y                                  #  DITTO
044217,000639: 
044218,000640: 17,3447           51515                          INDEX    YNDX                                  #  NO FAILURES, CAN DO Y
044219,000641: 17,3450           32707                          CA       XLNNDX                                
044220,000642: 17,3451           50000                          INDEX    A                                     
044221,000643: 17,3452           33157                          CA       RTABLE                                
044222,000644: 17,3453           73176                          MASK     ACRJETS                               
044223,000645: 17,3454           13431                          TCF      NO2Y       +1                         
044224,000646: 
044225,000647: 17,3455           11626        AC2Y              CCS      RACFAIL                               
044226,000648: 17,3456           36214                          CAF      THREE                                 
044227,000649: 17,3457           13461                          TCF      +2                                    
044228,000650: 17,3460           36211                          CAF      SIX                                   
044229,000651: 17,3461           51515                          INDEX    YNDX                                  
044230,000652: 17,3462           63020                          AD       XLN1NDX                               
044231,000653: 17,3463           50000                          INDEX    A                                     
044232,000654: 17,3464           33200                          CA       YZTABLE                               
044233,000655: 17,3465           73212                          MASK     ACYJETS                               
044234,000656: 17,3466           55452                          TS       RWORD2                                
044235,000657: 17,3467           00006                          EXTEND                                         
044236,000658: 17,3470           74707                          MP       BIT4                                  
044237,000659: 17,3471           67715                          AD       =-2                                   
044238,000660: 17,3472           55522                          TS       NRJETS                                
044239,000661: 17,3473           41457                          CS       BLAST                                 
044240,000662: 17,3474           63337                          AD       =+.1SEC                               
044241,000663: 17,3475           00006                          EXTEND                                         
044242,000664: 17,3476           71522                          MP       NRJETS                                
044243,000665: 17,3477           30001                          CA       L                                     
044244,000666: 17,3500           27547                          ADS      DFT                                   
044245,000667: 17,3501           13432                          TCF      NO2Y       +2                         
044246,000668: 
044247,000669:                                                                                                 # # Page 1025
044248,000670: 17,3502           11630        ACBD2Z            CCS      ACORBD                                
044249,000671: 17,3503           13533                          TCF      BDF2Z                                 #  USING BD-ROLL
044250,000672: 17,3504           13533                          TCF      BDF2Z                                 #  MUST CHECK FOR BD FAILURES
044251,000673: 17,3505           13506                          TCF      +1                                    
044252,000674: 17,3506           11627                          CCS      RBDFAIL                               #  USING AC FOR ROLL, CAN DO Z-TRANS
044253,000675: 17,3507           36214                          CAF      THREE                                 
044254,000676: 17,3510           13512                          TCF      +2                                    
044255,000677: 17,3511           36211                          CAF      SIX                                   
044256,000678: 17,3512           51516                          INDEX    ZNDX                                  
044257,000679: 17,3513           63020                          AD       XLN1NDX                               
044258,000680: 17,3514           50000                          INDEX    A                                     
044259,000681: 17,3515           33200                          CA       YZTABLE                               
044260,000682: 17,3516           73211                          MASK     BDZJETS                               
044261,000683: 17,3517           27452                          ADS      RWORD2                                
044262,000684: 17,3520           00006                          EXTEND                                         
044263,000685: 17,3521           74704                          MP       BIT7                                  
044264,000686: 17,3522           67715                          AD       =-2                                   
044265,000687: 17,3523           55522                          TS       NRJETS                                
044266,000688: 17,3524           41457                          CS       BLAST                                 
044267,000689: 17,3525           63337                          AD       =+.1SEC                               
044268,000690: 17,3526           00006                          EXTEND                                         
044269,000691: 17,3527           71522                          MP       NRJETS                                
044270,000692: 17,3530           30001                          CA       L                                     
044271,000693: 17,3531           27547                          ADS      DFT                                   
044272,000694: 17,3532           13213                          TCF      PITCHTIM                              
044273,000695: 
044274,000696: 17,3533           11627        BDF2Z             CCS      RBDFAIL                               
044275,000697: 17,3534           13434                          TCF      NO2Z                                  #  USING BD-ROLL AND BD HAS FAILED
044276,000698: 17,3535           13537                          TCF      +2                                    
044277,000699: 17,3536           13434                          TCF      NO2Z                                  #  DITTO
044278,000700: 17,3537           51516                          INDEX    ZNDX                                  
044279,000701: 17,3540           32707                          CA       XLNNDX                                
044280,000702: 17,3541           50000                          INDEX    A                                     
044281,000703: 17,3542           33157                          CA       RTABLE                                
044282,000704: 17,3543           73177                          MASK     BDRJETS                               
044283,000705: 17,3544           13435                          TCF      NO2Z       +1                         
044284,000706: 
044285,000707: 17,3545           31451        RBYPASS           CA       RWORD1                                
044286,000708: 17,3546           55452                          TS       RWORD2                                
044287,000709: 17,3547           34714                          CAF      ZERO                                  
044288,000710: 17,3550           55457                          TS       BLAST                                 
044289,000711: 17,3551           13213                          TCF      PITCHTIM                              
044290,000712: 
044291,000713:                                                                                                 # # Page 1026     
044292,000714:                                                                                                 #           GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2
044293,000715: 
044294,000716: 17,3552           11627        ASMBLWY           CCS      RBDFAIL                               
044295,000717: 17,3553           13561                          TCF      FYX2                                  #  IF FAILURE ON BD IGNORE X-TRANSLATION
044296,000718: 17,3554           13556                          TCF      +2                                    
044297,000719: 17,3555           13561                          TCF      FYX2                                  
044298,000720: 17,3556           51514                          INDEX    XNDX2                                 
044299,000721: 17,3557           32707                          CA       XLNNDX                                
044300,000722: 17,3560           50000                          INDEX    A                                     
044301,000723: 17,3561           32743        FYX2              CA       PYTABLE                               
044302,000724: 17,3562           72763                          MASK     YJETS                                 
044303,000725: 17,3563           55456                          TS       YWORD2                                
044304,000726: 17,3564           13571                          TCF      T6SETUP                               
044305,000727: 
044306,000728: 17,3565           31455        YBYPASS           CA       YWORD1                                
044307,000729: 17,3566           55456                          TS       YWORD2                                
044308,000730: 17,3567           34714                          CAF      ZERO                                  
044309,000731: 17,3570           55463                          TS       BLAST2                                
044310,000732: 
044311,000733:                                                                                                 # # Page 1027
044312,000734:                                                                                                 #           SORT THE JET ON-TIMES
044313,000735: 
044314,000736:                                                                                                 #     AT THIS POINT ALL THE CHANNEL COMMANDS AND JET ON-TIMES HAVE BEEN DETERMINED. IN SUMMARY THESE ARE-
044315,000737: 
044316,000738:                                                                                                 #           RWORD1
044317,000739:                                                                                                 #           RWORD2         BLAST
044318,000740: 
044319,000741:                                                                                                 #           PWORD1
044320,000742:                                                                                                 #           PWORD2         BLAST1
044321,000743: 
044322,000744:                                                                                                 #           YWORD1
044323,000745:                                                                                                 #           YWORD2         BLAST2
044324,000746: 
044325,000747:                                                                                                 #      IN THIS SECTION THE JET ON-TIMES ARE SORTED AND THE SEQUENCE OF T6 INTERRUPTS IS DETERMINED.  TO FACILITATE
044326,000748:                                                                                                 #  THE SORTING PROCESS AND THE T6 PROGRAM, THE VARIABLES BLAST, BLAST1, BLAST2, ARE RESERVED AS DOUBLE PRECISION
044327,000749:                                                                                                 #  WORDS.  THE LOWER PART OF THESE WORDS CONTAIN A BRANCH INDEX ASSOCIATED WITH THE ROTATION AXIS OF THE HIGHER
044328,000750:                                                                                                 #  ORDER WORD.
044329,000751: 
044330,000752: 17,3571           34714        T6SETUP           CAF      ZERO                                  #  BRANCH INDEX FOR ROLL
044331,000753: 17,3572           55460                          TS       BLAST      +1                         
044332,000754: 17,3573           34710                          CAF      FOUR                                  #  BRANCH INDEX FOR PITCH
044333,000755: 17,3574           55462                          TS       BLAST1     +1                         
044334,000756: 17,3575           34717                          CAF      ELEVEN                                #  BRANCH INDEX FOR YAW
044335,000757: 17,3576           55464                          TS       BLAST2     +1                         
044336,000758: 
044337,000759: 17,3577           41457                          CS       BLAST                                 
044338,000760: 17,3600           61461                          AD       BLAST1                                
044339,000761: 17,3601           00006                          EXTEND                                         
044340,000762: 17,3602           63626                          BZMF     DXCHT12                               #  T1 OR T2
044341,000763: 17,3603           41461        CHECKT23          CS       BLAST1                                
044342,000764: 17,3604           61463                          AD       BLAST2                                
044343,000765: 17,3605           00006                          EXTEND                                         
044344,000766: 17,3606           63632                          BZMF     DXCHT23                               
044345,000767: 17,3607           41461        CALCDT6           CS       BLAST1                                
044346,000768: 17,3610           27463                          ADS      BLAST2                                
044347,000769: 17,3611           41457                          CS       BLAST                                 
044348,000770: 17,3612           27461                          ADS      BLAST1                                #  END OF SORTING PROCEDURE
044349,000771: 17,3613           00006                          EXTEND                                         #  RESET T5LOC TO BEGIN PHASE1
044350,000772: 17,3614           33625                          DCA      RCS2CADR                              
044351,000773: 17,3615           53313                          DXCH     T5LOC                                 
044352,000774: 17,3616           44712        ENDJETS           CS       BIT1                                  #  RESET BIT1 FOR INITIALIZATION OF
044353,000775: 17,3617           71501                          MASK     RCSFLAGS                              #  T6 PROGRAM
044354,000776: 17,3620           55501                          TS       RCSFLAGS                              
044355,000777: 17,3621           44714                          CS       ZERO                                  #  RESET T5PHASE FOR PHASE1
044356,000778: 17,3622           55465                          TS       T5PHASE                               
044357,000779: 17,3623           15222                          TCF      RESUME                                #  RESUME INTERRUPTED PROGRAM
044358,000780: 
044359,000781: 
044360,000782: 17,3624  E6,1510                                 EBANK=   KMPAC                                 
044361,000783: 17,3624           02106 42066  RCS2CADR          2CADR    RCSATT                                
044362,000784:                                                                                                 # # Page 1028
044363,000785: 17,3626           53460        DXCHT12           DXCH     BLAST                                 
044364,000786: 17,3627           53462                          DXCH     BLAST1                                
044365,000787: 17,3630           53460                          DXCH     BLAST                                 
044366,000788: 17,3631           13603                          TCF      CHECKT23                              
044367,000789: 
044368,000790: 17,3632           53462        DXCHT23           DXCH     BLAST1                                
044369,000791: 17,3633           53464                          DXCH     BLAST2                                
044370,000792: 17,3634           53462                          DXCH     BLAST1                                
044371,000793: 17,3635           41457                          CS       BLAST                                 
044372,000794: 17,3636           61461                          AD       BLAST1                                
044373,000795: 17,3637           00006                          EXTEND                                         
044374,000796: 17,3640           63642                          BZMF     +2                                    
044375,000797: 17,3641           13607                          TCF      CALCDT6                               
044376,000798: 17,3642           53460                          DXCH     BLAST                                 
044377,000799: 17,3643           53462                          DXCH     BLAST1                                
044378,000800: 17,3644           53460                          DXCH     BLAST                                 
044379,000801: 17,3645           13607                          TCF      CALCDT6                               
044380,000802: 
044381,000803:                                                                                                 # # Page 1029
044382,000804:                                                                                                 #           T6 PROGRAM AND CHANNEL SETUP
044383,000805: 
044384,000806: 21,3751                                          BANK     21                                    
044385,000807: 17,2000                                          SETLOC   DAPS5                                 
044386,000808: 17,2000                                          BANK                                           
044387,000809: 
044388,000810: 17,3646           22016        T6START           LXCH     BANKRUPT                              
044389,000811: 17,3647           00006                          EXTEND                                         
044390,000812: 17,3650           22012                          QXCH     QRUPT                                 
044391,000813: 17,3651           10031                          CCS      TIME6                                 #  CHECK TO SEE IF TIME6 WAS RESET
044392,000814: 17,3652           15222                          TCF      RESUME                                #  AFTER T6RUPT OCCURRED(IN T5RUPT)
044393,000815: 17,3653           13655                          TCF      +2                                    #  IF SO WAIT FOR NEXT T6RUPT BEFORE
044394,000816: 17,3654           15222                          TCF      RESUME                                #  TAKING ACTION
044395,000817: 
044396,000818: 17,3655           41501                          CS       RCSFLAGS                              
044397,000819: 17,3656           74712                          MASK     BIT1                                  #  IF BIT1 IS 0 RESET TO 1
044398,000820: 17,3657           00006                          EXTEND                                         #  AND INITIALIZE CHANNEL
044399,000821: 17,3660           13671                          BZF      T6RUPTOR                              
044400,000822: 17,3661           27501                          ADS      RCSFLAGS                              
044401,000823: 17,3662           31451                          CA       RWORD1                                
044402,000824: 17,3663           00006                          EXTEND                                         #  INITIALIZE CHANNELS 5,6 WITH WORD1
044403,000825: 17,3664           01006                          WRITE    CHAN6                                 
044404,000826: 17,3665           31453                          CA       PWORD1                                
044405,000827: 17,3666           61455                          AD       YWORD1                                
044406,000828: 17,3667           00006                          EXTEND                                         
044407,000829: 17,3670           01005                          WRITE    CHAN5                                 
044408,000830: 
044409,000831: 17,3671           11457        T6RUPTOR          CCS      BLAST                                 
044410,000832: 17,3672           13751                          TCF      ZBLAST                                #  ZERO BLAST1
044411,000833: 17,3673           13710                          TCF      REPLACE                               #  REPLACE WORD1
044412,000834: 17,3674           13676                          TCF      +2                                    
044413,000835: 17,3675           13710                          TCF      REPLACE                               
044414,000836: 17,3676           11461        T6L1              CCS      BLAST1                                
044415,000837: 17,3677           13754                          TCF      ZBLAST1                               
044416,000838: 17,3700           13715                          TCF      REPLACE1                              
044417,000839: 17,3701           13703                          TCF      +2                                    
044418,000840: 17,3702           13715                          TCF      REPLACE1                              
044419,000841: 17,3703           11463        T6L2              CCS      BLAST2                                
044420,000842: 17,3704           13757                          TCF      ZBLAST2                               
044421,000843: 17,3705           13722                          TCF      REPLACE2                              
044422,000844: 17,3706           15222                          TCF      RESUME                                
044423,000845: 17,3707           13722                          TCF      REPLACE2                              
044424,000846: 
044425,000847: 17,3710           51460        REPLACE           INDEX    BLAST      +1                         
044426,000848: 17,3711           03727                          TC       REPLACER                              
044427,000849: 17,3712           44712                          CS       ONE                                   
044428,000850: 17,3713           55457                          TS       BLAST                                 
044429,000851: 17,3714           13676                          TCF      T6L1                                  
044430,000852: 
044431,000853: 17,3715           51462        REPLACE1          INDEX    BLAST1     +1                         
044432,000854:                                                                                                 # # Page 1030
044433,000855: 17,3716           03727                          TC       REPLACER                              
044434,000856: 17,3717           44712                          CS       ONE                                   
044435,000857: 17,3720           55461                          TS       BLAST1                                
044436,000858: 17,3721           13703                          TCF      T6L2                                  
044437,000859: 
044438,000860: 17,3722           51464        REPLACE2          INDEX    BLAST2     +1                         
044439,000861: 17,3723           03727                          TC       REPLACER                              
044440,000862: 17,3724           44712                          CS       ONE                                   
044441,000863: 17,3725           55463                          TS       BLAST2                                
044442,000864: 17,3726           15222                          TCF      RESUME                                
044443,000865: 
044444,000866: 17,3727           31452        REPLACER          CA       RWORD2                                
044445,000867: 17,3730           00006                          EXTEND                                         #  INITIALIZE CHANNELS 5,6 WITH WORD 2
044446,000868: 17,3731           01006                          WRITE    CHAN6                                 
044447,000869: 17,3732           00002                          TC       Q                                     
044448,000870: 
044449,000871: 17,3733           32763        REPLACEP          CA       YJETS                                 
044450,000872: 17,3734           00006                          EXTEND                                         
044451,000873: 17,3735           02005                          RAND     CHAN5                                 
044452,000874: 17,3736           61454                          AD       PWORD2                                
044453,000875: 17,3737           00006                          EXTEND                                         
044454,000876: 17,3740           01005                          WRITE    CHAN5                                 
044455,000877: 17,3741           00002                          TC       Q                                     
044456,000878: 
044457,000879: 17,3742           32762        REPLACEY          CA       PJETS                                 
044458,000880: 17,3743           00006                          EXTEND                                         
044459,000881: 17,3744           02005                          RAND     CHAN5                                 
044460,000882: 17,3745           61456                          AD       YWORD2                                
044461,000883: 17,3746           00006                          EXTEND                                         
044462,000884: 17,3747           01005                          WRITE    CHAN5                                 
044463,000885: 17,3750           00002                          TC       Q                                     
044464,000886: 
044465,000887: 17,3751           34714        ZBLAST            CAF      ZERO                                  
044466,000888: 17,3752           57457                          XCH      BLAST                                 
044467,000889: 17,3753           13761                          TCF      ENABT6                                
044468,000890: 17,3754           34714        ZBLAST1           CAF      ZERO                                  
044469,000891: 17,3755           57461                          XCH      BLAST1                                
044470,000892: 17,3756           13761                          TCF      ENABT6                                
044471,000893: 17,3757           34714        ZBLAST2           CAF      ZERO                                  
044472,000894: 17,3760           57463                          XCH      BLAST2                                
044473,000895: 17,3761           54031        ENABT6            TS       TIME6                                 
044474,000896: 17,3762           34674                          CAF      NEGMAX                                
044475,000897: 17,3763           00006                          EXTEND                                         
044476,000898: 17,3764           05013                          WOR      CHAN13                                #  ENABLE T6RUPT
044477,000899: 17,3765           15222                          TCF      RESUME                                
044478,000900: 
044479,000901:                                                                                                 #                  END OF T6 INTERRUPT
044480,000902: 
044481,000903: 17,3766                        ENDSLECT          EQUALS                                         

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