Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

045628,000002:                                                                                                  ## Copyright:   Public domain.
045629,000003:                                                                                                  ## Filename:    JET_SELECTION_LOGIC.agc
045630,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
045631,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
045632,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for 
045633,000007:                                                                                                  ##              Apollo 15-17.
045634,000008:                                                                                                  ## Assembler:   yaYUL
045635,000009:                                                                                                  ## Contact:     Sergio Navarro <sergionavarrog@gmail.com>
045636,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
045637,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
045638,000012:                                                                                                  ## Mod history: 2009-08-27 SN   Adapted from corresponding Comanche 055 file.
045639,000013:                                                                                                  ##              2009-09-09 JL   Fixed typos.
045640,000014:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
045641,000015:                                                                                                  ##              2017-02-05 RSB  Proofed comment text by diff'ing vs Comanche 55
045642,000016:                                                                                                  ##                              and corrected errors found.
045643,000017: 

Page 1038

045645,000019: 17,2000                                           SETLOC   DAPS4                                 
045646,000020: 17,2000                                           BANK                                           
045647,000021: 
045648,000022: 17,2541                                           COUNT*   $$/DAPJS                              
045649,000023: 17,2541  E6,1510                                  EBANK=   KMPAC                                 
045650,000024: 
045651,000025:                                                                                                  #  EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS
045652,000026: 
045653,000027: 17,2541           22016        JETSLECT           LXCH     BANKRUPT                              
045654,000028: 17,2542           32624                           CAF      DELTATT3                              #  = 60 MS   RESET TO EXECUTE PHASE1
045655,000029: 17,2543           61634                           AD       T5TIME                                
045656,000030: 17,2544           54030                           TS       TIME5                                 
045657,000031: 17,2545           12550                           TCF      +3                                    
045658,000032: 17,2546           37663                           CAF      DELATT20                              #  = 20 MS   TO ASSURE A T5RUPT
045659,000033: 17,2547           54030                           TS       TIME5                                 
045660,000034: 17,2550           33302                           CAF      =14MS                                 #  RESET T6 TO INITIALIZE THE JET CHANNELS
045661,000035: 17,2551           54031                           TS       TIME6                                 #  IN 14 MS
045662,000036: 17,2552           00006                           EXTEND                                         
045663,000037: 17,2553           22012                           QXCH     QRUPT                                 
045664,000038: 17,2554           04542                           TC       C13STALL                              
045665,000039: 17,2555           34752                           CAF      NEGMAX                                
045666,000040: 17,2556           00006                           EXTEND                                         
045667,000041: 17,2557           05013                           WOR      CHAN13                                
045668,000042: 17,2560           32623                           CAF      XLNMASK                               #  = 7700 OCT
045669,000043: 17,2561           00006                           EXTEND                                         #  EXAMINE THE TRANSLATION
045670,000044: 17,2562           06031                           RXOR     CHAN31                                #  HAND CONTROLLER
045671,000045: 17,2563           72623                           MASK     XLNMASK                               
045672,000046: 17,2564           00006                           EXTEND                                         
045673,000047: 17,2565           12625                           BZF      NOXLNCMD                              
045674,000048: 17,2566           55502                           TS       T5TEMP                                
045675,000049: 17,2567           00006                           EXTEND                                         
045676,000050: 17,2570           74760                           MP       BIT9                                  
045677,000051: 17,2571           76214                           MASK     THREE                                 
045678,000052: 17,2572           55513                           TS       XNDX1                                 #  AC QUAD  X-TRANSLATION INDEX
045679,000053: 17,2573           55514                           TS       XNDX2                                 #  BD QUAD  X-TRANSLATION INDEX
045680,000054: 17,2574           31502                           CA       T5TEMP                                
045681,000055: 17,2575           00006                           EXTEND                                         #  1 = + XLN
045682,000056: 17,2576           74762                           MP       BIT7                                  #  2 = - XLN
045683,000057: 17,2577           76214                           MASK     THREE                                 #  3 = NO XLN
045684,000058: 17,2600           55515                           TS       YNDX                                  #  Y-TRANSLATION INDEX
045685,000059: 
045686,000060: 17,2601           31502                           CA       T5TEMP                                
045687,000061: 17,2602           00006                           EXTEND                                         
045688,000062: 17,2603           74764                           MP       BIT5                                  
045689,000063: 17,2604           76214                           MASK     THREE                                 
045690,000064: 17,2605           55516                           TS       ZNDX                                  #  Z-TRANSLATION INDEX
045691,000065: 
045692,000066: 17,2606           31465                           CA       DAPDATR1                              #  SET ATTKALMN TO PICK UP FILTER GAINS FOR
045693,000067: 17,2607           74753                           MASK     BIT14                                 #  TRANSLATIONS.
045694,000068: 17,2610           00006                           EXTEND                                         #  CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED.
045695,000069: 17,2611           12614                           BZF      NOLEM                                 

Page 1039

045697,000071: 17,2612           46214                           CS       THREE                                 #  IF LEM IS ON, SET ATTKALMN = -3
045698,000072: 17,2613           12615                           TCF      +2                                    
045699,000073: 17,2614           44767        NOLEM              CS       TWO                                   #  IF LEM IS OFF, SET ATTKALMN = -2.
045700,000074: 17,2615           55617                           TS       ATTKALMN                              
045701,000075: 17,2616           11631                           CCS      XTRANS                                #  (+, -1, 0)
045702,000076: 17,2617           55513                           TS       XNDX1                                 #  USING BD-X  ZERO XNDX1
045703,000077: 17,2620           12631                           TCF      PWORD                                 
045704,000078: 17,2621           55514                           TS       XNDX2                                 #  USING AC-X  ZERO XNDX2
045705,000079: 17,2622           12631                           TCF      PWORD                                 
045706,000080: 17,2623           07700        XLNMASK            OCT      7700                                  
045707,000081: 
045708,000082: 17,2624           37772        DELTATT3           DEC      16378      B-14                       #  = 60 MS
045709,000083: 17,2625     7663               DELATT20           =        OCT37776                              #  = 20 MS
045710,000084: 17,2625           55513        NOXLNCMD           TS       XNDX1                                 #  ZERO ALL REQUESTS FOR TRANSLATION
045711,000085: 17,2626           55514                           TS       XNDX2                                 
045712,000086: 17,2627           55515                           TS       YNDX                                  
045713,000087: 17,2630           55516                           TS       ZNDX                                  
045714,000088: 
045715,000089:                                                                                                  #  PITCH COMMANDS  TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT
045716,000090: 
045717,000091: 17,2631           11562        PWORD              CCS      TAU1                                  #  CHECK FOR PITCH COMMANDS
045718,000092: 17,2632           34770                           CAF      ONE                                   
045719,000093: 17,2633           12635                           TCF      +2                                    #   0 = NO PITCH
045720,000094: 17,2634           34767                           CAF      TWO                                   #  +1 =  + PITCH
045721,000095: 17,2635           55520                           TS       PINDEX                                #  +2 =  - PITCH
045722,000096: 
045723,000097: 17,2636           11626                           CCS      RACFAIL                               #  FLAG FOR REAL AC QUAD FAILURES
045724,000098: 17,2637           12643                           TCF      AFAILP                                
045725,000099: 17,2640           12653                           TCF      TABPCOM                               #  0 = NO REAL AC FAILURES
045726,000100: 17,2641           12645                           TCF      CFAILP                                #  + = A QUAD FAILED
045727,000101: 17,2642           12653                           TCF      TABPCOM                               #  - = C QUAD FAILED
045728,000102:                                                                                                  #  IF FAILURES ARE PRESENT IGNORE
045729,000103:                                                                                                  #  X-TRANSLATIONS ON THIS AXIS
045730,000104: 
045731,000105: 17,2643           34322        AFAILP             CAF      NINE                                  #  IF FAILURE IS PRESENT 1JET OPERATION
045732,000106: 17,2644           12655                           TCF      TABPCOM    +2                         #  IS ASSUMED. IGNORE X-TRANSLATION
045733,000107: 17,2645           35775        CFAILP             CAF      TWELVE                                
045734,000108: 17,2646           12655                           TCF      TABPCOM    +2                         
045735,000109: 
045736,000110: 17,2647           00000        XLNNDX             DEC      0          B-14                       #  INDECES FOR TRANSLATION COMMANDS
045737,000111: 17,2650           00003                           DEC      3          B-14                       #  FOR USE IN TABLE LOOK UP
045738,000112: 17,2651           00006                           DEC      6          B-14                       
045739,000113: 17,2652           00000                           DEC      0          B-14                       
045740,000114: 
045741,000115: 17,2653     5775               TWELVE             =        OCT14                                 
045742,000116: 
045743,000117:                                                                                                  #  TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT.
045744,000118:                                                                                                  #  BITS 9, 10 CONTAIN THE NUMBER OF PITCH JETS USED TO PERFORM THE PITCH ROTATION
045745,000119: 
045746,000120: 17,2653           51513        TABPCOM            INDEX    XNDX1                                 

Page 1040

045748,000122: 17,2654           32647                           CA       XLNNDX                                
045749,000123: 17,2655           61520                 +2        AD       PINDEX                                
045750,000124: 17,2656           50000                           INDEX    A                                     
045751,000125: 17,2657           32703                           CA       PYTABLE                               
045752,000126: 17,2660           72722                           MASK     PJETS                                 #  =1417 OCT
045753,000127: 17,2661           55452                           TS       PWORD1                                
045754,000128: 17,2662           00006                           EXTEND                                         
045755,000129: 17,2663           74762                           MP       BIT7                                  
045756,000130: 17,2664           55523                           TS       NPJETS                                #  = NO. OF PITCH JETS
045757,000131: 
045758,000132:                                                                                                  #  YAW JET COMMANDS  TIMING(NO X-TRANS, NO QUAD FAILURES)  32MCT
045759,000133: 
045760,000134: 17,2665           11563        YWORD              CCS      TAU2                                  #  CHECK FOR YAW COMMANDS
045761,000135: 17,2666           34770                           CAF      ONE                                   
045762,000136: 17,2667           12671                           TCF      +2                                    
045763,000137: 17,2670           34767                           CAF      TWO                                   
045764,000138: 17,2671           55521                           TS       YINDEX                                #  YAW ROTATION INDEX
045765,000139: 
045766,000140: 17,2672           11627                           CCS      RBDFAIL                               #  FLAG FOR B OR D QUAD FAILURES
045767,000141: 17,2673           12677                           TCF      BFAILY                                #  0 = NO BD FAILURE
045768,000142: 17,2674           12724                           TCF      TABYCOM                               #  + = B QUAD FAILED
045769,000143: 17,2675           12701                           TCF      DFAILY                                #  - = D QUAD FAILED
045770,000144: 17,2676           12724                           TCF      TABYCOM                               
045771,000145: 
045772,000146: 17,2677           34322        BFAILY             CAF      NINE                                  
045773,000147: 17,2700           12726                           TCF      TABYCOM    +2                         
045774,000148: 17,2701           35775        DFAILY             CAF      TWELVE                                
045775,000149: 17,2702           12726                           TCF      TABYCOM    +2                         
045776,000150: 

Page 1041

045778,000152:                                                                                                  #  TABLE FOR PITCH(YAW) COMMANDS
045779,000153:                                                                                                  #  BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED
045780,000154:                                                                                                  #  BITS    10,9 = NO. PITCH JETS USED TO PERFORM ROTATION
045781,000155:                                                                                                  #  BITS 8,7,6,5 = YAW, X-TRANSLATION JETS SELECTED
045782,000156:                                                                                                  #  BITS 12,11:  NO. YAW JETS USED TO PERFORM ROTATION
045783,000157: 
045784,000158:                                                                                                  #  ROT   TRANS   QUAD    BIAS
045785,000159: 17,2703           00000        PYTABLE            OCT      0                                     #  0     0               0
045786,000160: 17,2704           05125                           OCT      5125                                  #  +     0               0
045787,000161: 17,2705           05252                           OCT      5252                                  #  -     0               0
045788,000162: 17,2706           00231                           OCT      0231                                  #  0     +               3
045789,000163: 17,2707           02421                           OCT      2421                                  #  +     +               3
045790,000164: 17,2710           02610                           OCT      2610                                  #  -     +               3
045791,000165: 17,2711           00146                           OCT      0146                                  #  0     -               6
045792,000166: 17,2712           02504                           OCT      2504                                  #  +     -               6
045793,000167: 17,2713           02442                           OCT      2442                                  #  -     -               6
045794,000168: 17,2714           00000                           OCT      0                                     #  0             A(B)    9
045795,000169: 17,2715           02421                           OCT      2421                                  #  +             A(B)    9
045796,000170: 17,2716           02442                           OCT      2442                                  #  -             A(B)    9
045797,000171: 17,2717           00000                           OCT      0                                     #  0             C(D)    12
045798,000172: 17,2720           02504                           OCT      2504                                  #  +             C(D)    12
045799,000173: 17,2721           02610                           OCT      2610                                  #  -             C(D)    12
045800,000174: 
045801,000175:                                                                                                  #  MASKS FOR PITCH AND YAW COMMANDS
045802,000176: 
045803,000177: 17,2722           01417        PJETS              OCT      1417                                  
045804,000178: 17,2723           06360        YJETS              OCT      6360                                  
045805,000179: 
045806,000180:                                                                                                  #  TABLE LOOK UP FOR YAW COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT
045807,000181:                                                                                                  #  BITS 11, 12 CONTAIN THE NUMBER OF YAW JETS USED TO PERFORM THE YAW ROTATION
045808,000182: 
045809,000183: 17,2724           51514        TABYCOM            INDEX    XNDX2                                 
045810,000184: 17,2725           32647                           CA       XLNNDX                                
045811,000185: 17,2726           61521                 +2        AD       YINDEX                                
045812,000186: 17,2727           50000                           INDEX    A                                     
045813,000187: 17,2730           32703                           CA       PYTABLE                               
045814,000188: 17,2731           72723                           MASK     YJETS                                 #  = 6360 OCT
045815,000189: 17,2732           55454                           TS       YWORD1                                
045816,000190: 17,2733           00006                           EXTEND                                         
045817,000191: 17,2734           74764                           MP       BIT5                                  
045818,000192: 17,2735           55524                           TS       NYJETS                                #  NO. OF YAW JETS USED TO PERFORM ROTATION
045819,000193: 

Page 1042

045821,000195: 
045822,000196:                                                                                                  #  ROLL COMMANDS  TIMING(NO Y,Z TRANS, NO QUAD FAILS)   45MCT
045823,000197: 
045824,000198: 17,2736           11561        RWORD              CCS      TAU                                   #  CHECK FOR ROLL COMMANDS
045825,000199: 17,2737           34770                           CAF      ONE                                   
045826,000200: 17,2740           12742                           TCF      +2                                    
045827,000201: 17,2741           34767                           CAF      TWO                                   
045828,000202: 17,2742           55517                           TS       RINDEX                                
045829,000203: 
045830,000204: 17,2743           11630                           CCS      ACORBD                                #  FLAG FOR AC OR BD QUAD SELECTION FOR
045831,000205: 17,2744           13035                           TCF      BDROLL                                #  ROLL COMMANDS
045832,000206: 17,2745           13035                           TCF      BDROLL                                #  +, +0 = BD ROLL
045833,000207: 17,2746           12747                           TCF      +1                                    #  -, -0 = AC ROLL
045834,000208: 
045835,000209: 17,2747           11626        ACROLL             CCS      RACFAIL                               #  CHECK FOR REAL FAILURES
045836,000210: 17,2750           12754                           TCF      RAFAIL                                #  ON AC QUADS
045837,000211: 17,2751           12764                           TCF      RXLNS                                 
045838,000212: 17,2752           12756                           TCF      RCFAIL                                
045839,000213: 17,2753           12764                           TCF      RXLNS                                 
045840,000214: 
045841,000215: 17,2754           34322        RAFAIL             CAF      NINE                                  #  QUAD FAILURE  WILL GET
045842,000216: 17,2755           12766                           TCF      TABRCOM                               #  1-JET OPERATION
045843,000217: 17,2756           35775        RCFAIL             CAF      TWELVE                                
045844,000218: 17,2757           12766                           TCF      TABRCOM                               
045845,000219: 
045846,000220: 17,2760           00000        XLN1NDX            DEC      0          B-14                       
045847,000221: 17,2761           00001                           DEC      1          B-14                       #  INDECES FOR TRANSLATION
045848,000222: 17,2762           00002                           DEC      2          B-14                       
045849,000223: 17,2763           00000                           DEC      0          B-14                       
045850,000224: 
045851,000225:                                                                                                  #  TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT
045852,000226:                                                                                                  #  BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL
045853,000227: 
045854,000228: 17,2764           51515        RXLNS              INDEX    YNDX                                  #  NO AC QUAD FAILURES
045855,000229: 17,2765           32647                           CA       XLNNDX                                #  INCLUDE +,-,0, Y-TRANSLATION
045856,000230: 17,2766           61517        TABRCOM            AD       RINDEX                                
045857,000231: 17,2767           50000                           INDEX    A                                     
045858,000232: 17,2770           33117                           CA       RTABLE                                
045859,000233: 17,2771           73136                           MASK     ACRJETS                               #  = 3760 OCT
045860,000234: 17,2772           55450                           TS       RWORD1                                
045861,000235: 
045862,000236:                                                                                                  #  CHECK FOR Z-TRANSLATIONS ON BD
045863,000237: 
045864,000238: 17,2773           31516        BDZCHECK           CA       ZNDX                                  
045865,000239: 17,2774           00006                           EXTEND                                         
045866,000240: 17,2775           63027                           BZMF     NOBDZ                                 #  NO Z-TRANSLATION
045867,000241: 

Page 1043

045869,000243:                                                                                                  #  TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES.  Z-TRANSLATION WILL BE POSS-
045870,000244:                                                                                                  #  IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS.  CRITERION.. IF THE RESULTANT NET ROLL
045871,000245:                                                                                                  #  COMMANDS = 0 (WITH Z-TRANSLATION) AND IF TAU = 0, THEN INCLUDE THE BD Z-TRANSLATION COMMANDS. IF THE RESULTANT
045872,000246:                                                                                                  #  ROLL COMMAND = 0, AND IF TAU NZ, THEN IGNORE THE BD Z-TRANSLATION
045873,000247: 
045874,000248: 17,2776           11627                           CCS      RBDFAIL                               
045875,000249: 17,2777           36214                           CAF      THREE                                 
045876,000250: 17,3000           13002                           TCF      +2                                    
045877,000251: 17,3001           36211                           CAF      SIX                                   
045878,000252: 17,3002           51516                           INDEX    ZNDX                                  
045879,000253: 17,3003           62760                           AD       XLN1NDX                               
045880,000254: 17,3004           50000                           INDEX    A                                     
045881,000255: 17,3005           33140                           CA       YZTABLE                               
045882,000256: 17,3006           73151                           MASK     BDZJETS                               #  = 3417 OCT
045883,000257: 17,3007           61450                           AD       RWORD1                                #  ADD TO ROLL COMMANDS
045884,000258: 17,3010           55502                           TS       T5TEMP                                #  IF POSSIBLE.  MUST CHECK TAU FIRST
045885,000259: 
045886,000260: 17,3011           00006                           EXTEND                                         
045887,000261: 17,3012           74762                           MP       BIT7                                  #  DETERMINE THE NET ROLL COMMAND WITH
045888,000262: 17,3013           66061                           AD       =-4                                   #  Z-TRANSLATION ADDED ON
045889,000263: 17,3014           55522                           TS       NRJETS                                #  NET NO. OF +,- ROLL JETS ON
045890,000264: 17,3015           00006                           EXTEND                                         
045891,000265: 17,3016           13022                           BZF      TAUCHECK                              
045892,000266: 
045893,000267: 17,3017           31502        ACRBDZ             CA       T5TEMP                                #  Z-TRANSLATION ACCEPTED EVEN THO WE MAY
045894,000268: 17,3020           55450                           TS       RWORD1                                #  HAVE INTRODUCED AN UNDESIREABLE ROLL
045895,000269: 17,3021           13263                           TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATIONS
045896,000270: 
045897,000271: 17,3022           11561        TAUCHECK           CCS      TAU                                   
045898,000272: 17,3023           13027                           TCF      NOBDZ                                 
045899,000273: 17,3024           13017                           TCF      ACRBDZ                                
045900,000274: 17,3025           13027                           TCF      NOBDZ                                 
045901,000275: 17,3026           13017                           TCF      ACRBDZ                                
045902,000276: 
045903,000277: 17,3027           31450        NOBDZ              CA       RWORD1                                #  Z-TRANSLATION NOT ACCEPTED
045904,000278: 17,3030           00006                           EXTEND                                         
045905,000279: 17,3031           74762                           MP       BIT7                                  
045906,000280: 17,3032           67701                           AD       =-2                                   
045907,000281: 17,3033           55522                           TS       NRJETS                                
045908,000282: 17,3034           13263                           TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATION
045909,000283: 

Page 1044

045911,000285:                                                                                                  #  BD QUAD SELECTION FOR ROLL COMMANDS
045912,000286: 
045913,000287: 17,3035           11627        BDROLL             CCS      RBDFAIL                               
045914,000288: 17,3036           13042                           TCF      RBFAIL                                
045915,000289: 17,3037           13046                           TCF      RZXLNS                                
045916,000290: 17,3040           13044                           TCF      RDFAIL                                
045917,000291: 17,3041           13046                           TCF      RZXLNS                                
045918,000292: 17,3042           34322        RBFAIL             CAF      NINE                                  
045919,000293: 17,3043           13050                           TCF      TABRZCMD                              
045920,000294: 17,3044           35775        RDFAIL             CAF      TWELVE                                
045921,000295: 17,3045           13050                           TCF      TABRZCMD                              
045922,000296: 
045923,000297: 17,3046           51516        RZXLNS             INDEX    ZNDX                                  #  NO BD FAILURES
045924,000298: 17,3047           32647                           CA       XLNNDX                                #  +,-,0 Z-TRANSLATION PRESENT
045925,000299: 17,3050           61517        TABRZCMD           AD       RINDEX                                
045926,000300: 17,3051           50000                           INDEX    A                                     
045927,000301: 17,3052           33117                           CA       RTABLE                                
045928,000302: 17,3053           73137                           MASK     BDRJETS                               #  = 34017 OCT
045929,000303: 17,3054           55450                           TS       RWORD1                                
045930,000304: 
045931,000305: 17,3055           31515        ACYCHECK           CA       YNDX                                  #  ANY Y-TRANSLATION
045932,000306: 17,3056           00006                           EXTEND                                         
045933,000307: 17,3057           13111                           BZF      NOACY                                 #  NO Y-TRANSLATION
045934,000308: 17,3060           11626                           CCS      RACFAIL                               
045935,000309: 17,3061           36214                           CAF      THREE                                 
045936,000310: 17,3062           13064                           TCF      +2                                    
045937,000311: 17,3063           36211                           CAF      SIX                                   
045938,000312: 17,3064           51515                           INDEX    YNDX                                  
045939,000313: 17,3065           62760                           AD       XLN1NDX                               
045940,000314: 17,3066           50000                           INDEX    A                                     
045941,000315: 17,3067           33140                           CA       YZTABLE                               
045942,000316: 17,3070           73152                           MASK     ACYJETS                               #  = 34360 OCT
045943,000317: 17,3071           61450                           AD       RWORD1                                
045944,000318: 17,3072           55502                           TS       T5TEMP                                
045945,000319: 17,3073           00006                           EXTEND                                         #  FOR EXPLANATION SEE CODING ON RTABLE
045946,000320: 17,3074           74765                           MP       BIT4                                  
045947,000321: 17,3075           66061                           AD       =-4                                   
045948,000322: 17,3076           55522                           TS       NRJETS                                #  NO. OF NET ROLL JETS
045949,000323: 17,3077           00006                           EXTEND                                         
045950,000324: 17,3100           13104                           BZF      TAUCHCK                               #  IF NRJETS = 0
045951,000325: 
045952,000326: 17,3101           31502        BDRACZ             CA       T5TEMP                                #  Y-TRANSLATION ACCEPTED
045953,000327: 17,3102           55450                           TS       RWORD1                                
045954,000328: 17,3103           13263                           TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATIONS
045955,000329: 
045956,000330: 17,3104           11561        TAUCHCK            CCS      TAU                                   
045957,000331: 17,3105           13111                           TCF      NOACY                                 
045958,000332: 17,3106           13101                           TCF      BDRACZ                                
045959,000333: 17,3107           13111                           TCF      NOACY                                 
045960,000334: 17,3110           13101                           TCF      BDRACZ                                
045961,000335: 

Page 1045

045963,000337: 17,3111           31450        NOACY              CA       RWORD1                                #  Y-TRANSLATION NOT ACCEPTED
045964,000338: 17,3112           00006                           EXTEND                                         
045965,000339: 17,3113           74765                           MP       BIT4                                  
045966,000340: 17,3114           67701                           AD       =-2                                   
045967,000341: 17,3115           55522                           TS       NRJETS                                
045968,000342: 17,3116           13263                           TCF      ROLLTIME                              
045969,000343: 

Page 1046

045971,000345: 
045972,000346:                                                                                                  #                TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS
045973,000347: 
045974,000348:                                                                                                  #     EITHER AC OR BD ROLL MAY BE SELECTED. IF AC ROLL IS SELECTED, Y-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY
045975,000349:                                                                                                  #  PROVIDED THAT THERE ARE NO AC QUAD FAILURES. IF THERE ARE AC FAILURES, Y-TRANSLATION COMMANDS WILL BE IGNORED,
045976,000350:                                                                                                  #  IN WHICH CASE THE ASTRONAUT SHOULD SWITCH TO BD ROLL.
045977,000351:                                                                                                  #     IF BDROLL IS SELECTED, Z-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY PROVIDED THAT THERE ARE NO BD QUAD
045978,000352:                                                                                                  #  FAILURES. IF THERE ARE BD FAILURES, Z-TRANSLATION COMMANDS WILL BE IGNORED, IN WHICH CASE THE ASTRONAUT SHOULD
045979,000353:                                                                                                  #  SWITCH TO AC ROLL.
045980,000354:                                                                                                  #     NOTE THAT IF ONE QUAD FAILS (E.G. B FAILED), Z-TRANSLATION IS STILL POSSIBLE AND THAT THE UNDESIREABLE ROLL
045981,000355:                                                                                                  #  INTRODUCED BY THIS TRANSLATION WILL BE COMPENSATED BY THE TWO AC ROLL JETS ACTUATED BY THE AUTOPILOT LOGIC.
045982,000356: 
045983,000357:                                                                                                  #                WORD MAKE UP....RTABLE
045984,000358: 
045985,000359:                                                                                                  #     TWO WORDS, CORRESPONDING TO AC OR BD ROLL SELECTION, HAVE BEEN COMBINED INTO ONE TABLE.  THE WORD CORRESPOND-
045986,000360:                                                                                                  #  ING TO AC ROLL HAS THE FOLLOWING INTERPRETATION..
045987,000361:                                                                                                  #     BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE FOR THE WORD SELECTED. THE CODING IS..
045988,000362: 
045989,000363:                                                                                                  #                        BIT NO.  11 10 9        NO. OF ROLL JETS
045990,000364: 
045991,000365:                                                                                                  #                                  0 0 0                 -2
045992,000366:                                                                                                  #                                  0 0 1                 -1
045993,000367:                                                                                                  #                                  0 1 0                  0
045994,000368:                                                                                                  #                                  0 1 1                 +1
045995,000369:                                                                                                  #                                  1 0 0                 +2
045996,000370: 
045997,000371: 
045998,000372:                                                                                                  #     THIS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM THE YZ-TRANSLATION TABLE, WHICH HAS THE SAME TYPE OF
045999,000373:                                                                                                  #  CODING AS ABOVE, AND THE NET ROLL DETERMINED BY SHIFTING THE RESULTANT WORD RIGHT 8 PLACES AND SUBTRACTING FOUR.
046000,000374: 
046001,000375:                                                                                                  #     THE WORD CORRESPONDING TO BD ROLL HAS A SIMILIAR INTERPRETATION, EXCEPT THAT BITS 12, 13, 14 ARE CODED
046002,000376:                                                                                                  #  (AS ABOVE) TO GIVE THE NET ROLL TORQUE.
046003,000377: 
046004,000378: 
046005,000379:                                                                                                  #  ROLL   TRANS   QUADFAIL   BIAS
046006,000380: 
046007,000381: 17,3117           11000        RTABLE             OCT      11000                                 #   0                         0
046008,000382: 17,3120           22125                           OCT      22125                                 #   +                         0
046009,000383: 17,3121           00252                           OCT      00252                                 #   -                         0
046010,000384: 17,3122           11231                           OCT      11231                                 #   0     +Y(+Z)              3
046011,000385: 17,3123           15421                           OCT      15421                                 #   +     +Y(+Z)              3
046012,000386: 17,3124           04610                           OCT      04610                                 #   -     +Y(+Z)              3
046013,000387: 17,3125           11146                           OCT      11146                                 #   0     -Y(-Z)              6
046014,000388: 17,3126           15504                           OCT      15504                                 #   +     -Y(-Z)              6
046015,000389: 17,3127           04442                           OCT      04442                                 #   -     -Y(-Z)              6
046016,000390: 17,3130           11000                           OCT      11000                                 #   0               A(B)      9
046017,000391: 17,3131           15504                           OCT      15504                                 #   +               A(B)      9
046018,000392: 17,3132           04610                           OCT      04610                                 #   -               A(B)      9
046019,000393: 17,3133           11000                           OCT      11000                                 #   0               C(D)     12
046020,000394: 17,3134           15421                           OCT      15421                                 #   +               C(D)     12
046021,000395: 17,3135           04442                           OCT      04442                                 #   -               C(D)     12
046022,000396: 

Page 1047

046024,000398:                                                                                                  #                RTABLE MASKS -
046025,000399: 
046026,000400: 17,3136           03760        ACRJETS            OCT      03760                                 
046027,000401: 17,3137           34017        BDRJETS            OCT      34017                                 
046028,000402: 

Page 1048

046030,000404:                                                                                                  #                Y, Z TRANSLATION TABLE
046031,000405: 
046032,000406:                                                                                                  #      ONCE AC OR BD ROLL IS SELECTED THE QUAD PAIR WHICH IS NOT BEING USED TO SATISFY THE ROLL COMMANDS MAY BE
046033,000407:                                                                                                  #  USED TO SATISFY THE REMAINING TRANSLATION COMMANDS.  HOWEVER, WE MUST MAKE SURE THAT ROLL COMMANDS ARE SATISFIED
046034,000408:                                                                                                  #  WHEN THEY OCCUR.  THEREFORE, THE Y-Z TRANSLATIONS FROM THIS TABLE WILL BE IGNORED IF THE NET ROLL TORQUE OF THE
046035,000409:                                                                                                  #  COMBINED WORD IS ZERO AND THE ROLL COMMANDS ARE NON-ZERO.  THIS SITUATION WOULD OCCUR, FOR EXAMPLE, IF WE EN-
046036,000410:                                                                                                  #  COUNTER SIMULTANEOUS +R +Y -Z COMMANDS AND A QUAD D FAILURE WHILE USING AC FOR ROLL.
046037,000411:                                                                                                  #     TO FACILITATE THE LOGIC, THE Y-Z TRANSLATION TABLE HAS BEEN CODED IN A MANNER SIMILIAR TO THE ROLL TABLE
046038,000412:                                                                                                  #  ABOVE.
046039,000413:                                                                                                  #     BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Z-TRANSLATIONS.  THE WORD SELECTED CAN THEN BE
046040,000414:                                                                                                  #  ADDED TO THE AC-ROLL WORD AND THE RESULTANT ROLL TORQUE DETERMINED FROM THE COMBINED WORD.  SIMILIARLY BITS
046041,000415:                                                                                                  #  12,13,14 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Y-TRANSLATIONS WHEN BD-ROLL IS SELECTED.
046042,000416: 
046043,000417:                                                                                                  #  TRANSLATION    QUADFAIL    BIAS
046044,000418: 
046045,000419: 17,3140           11000        YZTABLE            OCT      11000                                 #       0                       0
046046,000420: 17,3141           11231                           OCT      11231                                 #    +Z(+Y)                     0
046047,000421: 17,3142           11146                           OCT      11146                                 #    -Z(-Y)                     0
046048,000422: 17,3143           11000                           OCT      11000                                 #       0           B(A)        3
046049,000423: 17,3144           04610                           OCT      04610                                 #    +Z(+Y)         B(A)        3
046050,000424: 17,3145           15504                           OCT      15504                                 #    -Z(-Y)         B(A)        3
046051,000425: 17,3146           11000                           OCT      11000                                 #       0           D(C)        6
046052,000426: 17,3147           15421                           OCT      15421                                 #    +Z(+Y)         D(C)        6
046053,000427: 17,3150           04442                           OCT      04442                                 #    -Z(-Y)         D(C)        6
046054,000428: 
046055,000429:                                                                                                  #                YZ-TABLE MASKS-
046056,000430: 
046057,000431: 17,3151           03417        BDZJETS            OCT      03417                                 
046058,000432: 17,3152           34360        ACYJETS            OCT      34360                                 
046059,000433: 
046060,000434:                                                                                                  #                ADDITIONAL CONSTANTS
046061,000435: 
046062,000436: 17,3153     7701               =-2                =        NEG2                                  
046063,000437: 17,3153     6061               =-4                =        NEG4                                  
046064,000438: 

Page 1049

046066,000440:                                                                                                  #                CALCULATION OF JET ON-TIMES
046067,000441: 
046068,000442:                                                                                                  #     THE ROTATION COMMANDS (TAU:S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET
046069,000443:                                                                                                  #  OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS.  TAU MUST
046070,000444:                                                                                                  #  ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5 INT-
046071,000445:                                                                                                  #  ERVAL.
046072,000446:                                                                                                  #     IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES
046073,000447:                                                                                                  #  (DFT:S, ALSO IN TERMS OF 1-JET OPERATION) FOR THE RATE FILTER.
046074,000448:                                                                                                  #     NOTE THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO ROTATIONS WERE CALLED FOR.  NEVERTHELESS, WE MUST
046075,000449:                                                                                                  #  UPDATE DFT.
046076,000450:                                                                                                  #     WHEN THE ROTATIONS HAVE FINISHED, WE MUST PROVIDE CHANNEL INFORMATION TO THE T6 PROGRAM TO CONTINUE ON WITH
046077,000451:                                                                                                  #  THE TRANSLATIONS.  THIS WILL BE DONE IN THE NEXT SECTION.  HOWEVER, TO INSURE THAT JETS ARE NOT FIRED FOR LESS
046078,000452:                                                                                                  #  THAN A MINIMUM IMPULSE (14MS), ALL JET CHANNEL COMMANDS WILL BE HELD FIXED FROM THE START OF THE T5 PROGRAM FOR
046079,000453:                                                                                                  #  AT LEAST 14MS UNTIL THE INITIALIZATION OF NEW COMMANDS.  MOREOVER, A 14MS ON-TIME WILL BE ADDED TO ANY ROTATIONAL
046080,000454:                                                                                                  #  COMMANDS GENERATED BY THE MANUAL CONTROLS OR THE JET SWITCHING LOGIC, AND ALL TRANSLATION COMMANDS WILL BE
046081,000455:                                                                                                  #  ACTIVE FOR AT LEAST ONE CYCLE OF THE T5 PROGRAM (.1SEC)
046082,000456: 
046083,000457:                                                                                                  #                PITCH JET ON-TIME CALCULATION
046084,000458: 
046085,000459: 17,3153           11562        PITCHTIM           CCS      TAU1                                  
046086,000460: 17,3154           13163                           TCF      PTAUPOS                               
046087,000461: 17,3155           13157                           TCF      +2                                    
046088,000462: 17,3156           13161                           TCF      PTAUNEG                               
046089,000463: 17,3157           55550                           TS       DFT1                                  #  NO PITCH ROTATION
046090,000464: 17,3160           13361                           TCF      PBYPASS                               #  COMMANDS
046091,000465: 
046092,000466: 17,3161           41523        PTAUNEG            CS       NPJETS                                
046093,000467: 17,3162           55523                           TS       NPJETS                                
046094,000468: 17,3163           31562        PTAUPOS            CA       TAU1                                  
046095,000469: 17,3164           00006                           EXTEND                                         
046096,000470: 17,3165           51523                           INDEX    NPJETS                                
046097,000471: 17,3166           73342                           MP       NJET                                  
046098,000472: 17,3167           55460                           TS       BLAST1                                
046099,000473: 17,3170           63275                           AD       =-.1SEC                               
046100,000474: 17,3171           00006                           EXTEND                                         
046101,000475: 17,3172           63203                           BZMF     AD14MSP                               
046102,000476: 17,3173           51523                           INDEX    NPJETS                                
046103,000477: 17,3174           33276                           CA       DFTMAX                                #  THE PITCH ON-TIME IS GREATER THAN .1 SEC
046104,000478: 17,3175           55550                           TS       DFT1                                  
046105,000479: 17,3176           40000                           COM                                            
046106,000480: 17,3177           27562                           ADS      TAU1                                  #  UPDATE TAU1
046107,000481: 17,3200           33277                           CAF      =+.1SEC                               #  LIMIT THE LENGTH OF PITCH ROTATION
046108,000482: 17,3201           55460                           TS       BLAST1                                #  COMMANDS TO 0.1 SEC SO THAT ONLY
046109,000483: 17,3202           13346                           TCF      ASMBLWP                               #  X-TRANSLATIONS WILL CONTINUE ON SWITCH
046110,000484:                                                                                                  #  OVER TO TVC
046111,000485: 17,3203           41460        AD14MSP            CS       BLAST1                                #  SEE IF JET ON TIME LESS THAN
046112,000486: 17,3204           63302                           AD       =14MS                                 #  MINIMUM IMPULSE TIME
046113,000487: 17,3205           00006                           EXTEND                                         
046114,000488: 17,3206           63211                           BZMF     PBLASTOK                              #  IF SO LIMIT MINIMUM ON TIME TO 14 MS
046115,000489: 17,3207           33302                           CAF      =14MS                                 

Page 1050

046117,000491: 17,3210           55460                           TS       BLAST1                                
046118,000492: 17,3211           31460        PBLASTOK           CA       BLAST1                                
046119,000493: 17,3212           00006                           EXTEND                                         #  THE PITCH COMMANDS WILL BE COMPLETED
046120,000494: 17,3213           71523                           MP       NPJETS                                #  WITHIN THE TS-CYCLE TIME
046121,000495: 17,3214           23550                           LXCH     DFT1                                  #  FOR USE IN UPDATING RATE FILTER
046122,000496: 17,3215           55562                           TS       TAU1                                  #  ZERO TAU1 (ACC CONTAINS ZERO)
046123,000497: 17,3216           13346                           TCF      ASMBLWP                               
046124,000498: 

Page 1051

046126,000500:                                                                                                  #                YAW JET ON-TIME CALCULATION
046127,000501: 
046128,000502: 17,3217           11563        YAWTIME            CCS      TAU2                                  
046129,000503: 17,3220           13227                           TCF      YTAUPOS                               
046130,000504: 17,3221           13223                           TCF      +2                                    
046131,000505: 17,3222           13225                           TCF      YTAUNEG                               
046132,000506: 17,3223           55551                           TS       DFT2                                  #  NO YAW ROTATION COMMANDS
046133,000507: 17,3224           13525                           TCF      YBYPASS                               
046134,000508: 
046135,000509: 17,3225           41524        YTAUNEG            CS       NYJETS                                
046136,000510: 17,3226           55524                           TS       NYJETS                                
046137,000511: 17,3227           31563        YTAUPOS            CA       TAU2                                  
046138,000512: 17,3230           00006                           EXTEND                                         
046139,000513: 17,3231           51524                           INDEX    NYJETS                                
046140,000514: 17,3232           73342                           MP       NJET                                  
046141,000515: 17,3233           55462                           TS       BLAST2                                
046142,000516: 17,3234           63275                           AD       =-.1SEC                               
046143,000517: 17,3235           00006                           EXTEND                                         
046144,000518: 17,3236           63247                           BZMF     AD14MSY                               
046145,000519: 17,3237           51524                           INDEX    NYJETS                                
046146,000520: 17,3240           33276                           CA       DFTMAX                                #  YAW COMMANDS WILL LAST LONGER THAN .1SEC
046147,000521: 17,3241           55551                           TS       DFT2                                  
046148,000522: 17,3242           40000                           COM                                            
046149,000523: 17,3243           27563                           ADS      TAU2                                  #  DECREMENT TAU2
046150,000524: 17,3244           33277                           CAF      =+.1SEC                               #  LIMIT THE LENGTH OF YAW ROTATION COMMAND
046151,000525: 17,3245           55462                           TS       BLAST2                                #  TO 0.1 SEC SO THAT ONLY X-TRANSLATION
046152,000526: 17,3246           13512                           TCF      ASMBLWY                               #  WILL CONTINUE ON SWITCH OVER TO TVC
046153,000527: 
046154,000528: 17,3247           41462        AD14MSY            CS       BLAST2                                #  SEE IF JET ON-TIME LESS THAN
046155,000529: 17,3250           63302                           AD       =14MS                                 #  MINIMUM IMPULSE TIME
046156,000530: 17,3251           00006                           EXTEND                                         
046157,000531: 17,3252           63255                           BZMF     YBLASTOK                              #  IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
046158,000532: 17,3253           33302                           CAF      =14MS                                 
046159,000533: 17,3254           55462                           TS       BLAST2                                
046160,000534: 17,3255           31462        YBLASTOK           CA       BLAST2                                #  YAW COMMANDS WILL BE COMPLETED WITHIN
046161,000535: 17,3256           00006                           EXTEND                                         #  THE T5CYCLE TIME
046162,000536: 17,3257           71524                           MP       NYJETS                                
046163,000537: 17,3260           23551                           LXCH     DFT2                                  
046164,000538: 17,3261           55563                           TS       TAU2                                  #  ZERO TAU2
046165,000539: 17,3262           13512                           TCF      ASMBLWY                               
046166,000540: 

Page 1052

046168,000542:                                                                                                  #                ROLL ON-TIME CALCULATION-
046169,000543: 
046170,000544: 17,3263           11561        ROLLTIME           CCS      TAU                                   
046171,000545: 17,3264           13303                           TCF      RBLAST                                
046172,000546: 17,3265           13267                           TCF      +2                                    
046173,000547: 17,3266           13303                           TCF      RBLAST                                
046174,000548: 17,3267           51522                           INDEX    NRJETS                                
046175,000549: 17,3270           33276                           CA       DFTMAX                                #  UPDATE DFT EVEN THO NO ROLL COMMANDS ARE
046176,000550: 17,3271           55547                           TS       DFT                                   #  PRESENT
046177,000551: 17,3272           13505                           TCF      RBYPASS                               
046178,000552: 
046179,000553: 17,3273           77037                           DEC      -480       B-14                       #  = -.3SEC
046180,000554: 17,3274           77277                           DEC      -320       B-14                       #  = -.2SEC
046181,000555: 17,3275           77537        =-.1SEC            DEC      -160       B-14                       #  = -.1SEC
046182,000556: 17,3276           00000        DFTMAX             DEC      0          B-14                       #  0
046183,000557: 17,3277           00240        =+.1SEC            DEC      160        B-14                       #  = +.1SEC
046184,000558: 17,3300           00500                           DEC      320        B-14                       #  = +.2SEC
046185,000559: 17,3301           00740                           DEC      480        B-14                       #  = +.3SEC
046186,000560: 17,3302           00027        =14MS              DEC      23         B-14                       #  =14MS
046187,000561: 
046188,000562: 17,3303           31561        RBLAST             CA       TAU                                   
046189,000563: 17,3304           00006                           EXTEND                                         
046190,000564: 17,3305           51522                           INDEX    NRJETS                                
046191,000565: 17,3306           73342                           MP       NJET                                  
046192,000566: 17,3307           55456                           TS       BLAST                                 #  BLAST IS AN INTERMEDIATE VARIABLE
046193,000567:                                                                                                  #  USED IN DETERMINING THE JET ON-TIMES
046194,000568: 17,3310           63275                           AD       =-.1SEC                               
046195,000569: 17,3311           00006                           EXTEND                                         
046196,000570: 17,3312           63323                           BZMF     AD14MSR                               
046197,000571: 17,3313           51522                           INDEX    NRJETS                                #  THE ROLL ROTATION WILL LAST LONGER
046198,000572: 17,3314           33276                           CA       DFTMAX                                #  THAN THE T5 CYCLE TIME
046199,000573: 17,3315           55547                           TS       DFT                                   
046200,000574: 17,3316           40000                           COM                                            
046201,000575: 17,3317           27561                           ADS      TAU                                   
046202,000576: 17,3320           33277                           CAF      =+.1SEC                               #  LIMIT THE LENGTH OF ROLL ROTATION
046203,000577: 17,3321           55456                           TS       BLAST                                 #  COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z
046204,000578: 17,3322           13366                           TCF      ASMBLWR                               #  TRANSLATION COMMANDS CONTINUE
046205,000579: 
046206,000580: 17,3323           41456        AD14MSR            CS       BLAST                                 #  SEE IF THE JET ON-TIME LESS THAN
046207,000581: 17,3324           63302                           AD       =14MS                                 #  MINIMUM IMPULSE TIME
046208,000582: 17,3325           00006                           EXTEND                                         
046209,000583: 17,3326           63331                           BZMF     RBLASTOK                              
046210,000584: 17,3327           33302                           CAF      =14MS                                 #  IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
046211,000585: 17,3330           55456                           TS       BLAST                                 
046212,000586: 17,3331           31456        RBLASTOK           CA       BLAST                                 
046213,000587: 17,3332           00006                           EXTEND                                         
046214,000588: 17,3333           71522                           MP       NRJETS                                
046215,000589: 17,3334           23547                           LXCH     DFT                                   
046216,000590: 17,3335           55561                           TS       TAU                                   #  ZERO TAU
046217,000591: 17,3336           13366                           TCF      ASMBLWR                               
046218,000592: 

Page 1053

046220,000594: 17,3337           65252                           DEC      -.333333                              #  = -1/3
046221,000595: 17,3340           57777                           DEC      -.500000                              #  = -1/2
046222,000596: 17,3341           40000                           DEC      -.999999                              #  = -1 (NEGMAX)
046223,000597: 17,3342           00000        NJET               DEC      0          B-14                       
046224,000598: 17,3343           37777                           DEC      .999999                               #  = +1 (POSMAX)
046225,000599: 17,3344           20000                           DEC      .500000                               #  = +1/2
046226,000600: 17,3345           12525                           DEC      .333333                               #  = +1/3
046227,000601: 

Page 1054

046229,000603:                                                                                                  #     WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH
046230,000604:                                                                                                  #  CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT.
046231,000605:                                                                                                  #     IN THIS SECTION THESE NEW COMMANDS ARE GENERATED AND STORED FOR REPLACEMENT OF THE CHANNEL COMMANDS WHEN THE
046232,000606:                                                                                                  #  CORRESPONDING ROTATIONS ARE COMPLETED.
046233,000607: 
046234,000608:                                                                                                  #  GENERATION OF THE SECOND PITCH(X-TRANS) WORD...PWORD2
046235,000609: 
046236,000610: 17,3346           11626        ASMBLWP            CCS      RACFAIL                               
046237,000611: 17,3347           13355                           TCF      FPX2                                  #  IF FAILURE ON AC IGNORE X-TRANSLATION
046238,000612: 17,3350           13352                           TCF      +2                                    
046239,000613: 17,3351           13355                           TCF      FPX2                                  
046240,000614: 17,3352           51513                           INDEX    XNDX1                                 
046241,000615: 17,3353           32647                           CA       XLNNDX                                
046242,000616: 17,3354           50000                           INDEX    A                                     
046243,000617: 17,3355           32703        FPX2               CA       PYTABLE                               
046244,000618: 17,3356           72722                           MASK     PJETS                                 
046245,000619: 17,3357           55453                           TS       PWORD2                                
046246,000620: 17,3360           13217                           TCF      YAWTIME                               
046247,000621: 
046248,000622: 17,3361           31452        PBYPASS            CA       PWORD1                                #  THE T6 PROGRAM WILL LOAD PWORD2
046249,000623: 17,3362           55453                           TS       PWORD2                                #  UPON ENTRY
046250,000624: 17,3363           34772                           CAF      ZERO                                  
046251,000625: 17,3364           55460                           TS       BLAST1                                #  THERE IS NO PWORD2
046252,000626: 17,3365           13217                           TCF      YAWTIME                               
046253,000627: 

Page 1055

046255,000629:                                                                                                  #  GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2)
046256,000630: 
046257,000631: 17,3366           11515        ASMBLWR            CCS      YNDX                                  #  CHECK FOR Y-TRANS
046258,000632: 17,3367           13377                           TCF      ACBD2Y                                
046259,000633: 17,3370           34772        NO2Y               CAF      ZERO                                  
046260,000634: 17,3371           55451                 +1        TS       RWORD2                                
046261,000635: 17,3372           11516                           CCS      ZNDX                                  #  CHECK FOR Z-TRANS
046262,000636: 17,3373           13442                           TCF      ACBD2Z                                
046263,000637: 17,3374           34772        NO2Z               CAF      ZERO                                  
046264,000638: 17,3375           27451                 +1        ADS      RWORD2                                
046265,000639: 17,3376           13153                           TCF      PITCHTIM                              #  RWORD2 ASSEMBLED
046266,000640: 
046267,000641: 17,3377           11630        ACBD2Y             CCS      ACORBD                                
046268,000642: 17,3400           13415                           TCF      AC2Y                                  #  CAN DO Y-TRANS
046269,000643: 17,3401           13415                           TCF      AC2Y                                  
046270,000644: 17,3402           13403                           TCF      +1                                    #  USING AC FOR ROLL
046271,000645: 17,3403           11626                           CCS      RACFAIL                               
046272,000646: 17,3404           13370                           TCF      NO2Y                                  #  USING AC AND AC HAS FAILED
046273,000647: 17,3405           13407                           TCF      +2                                    
046274,000648: 17,3406           13370                           TCF      NO2Y                                  #  DITTO
046275,000649: 
046276,000650: 17,3407           51515                           INDEX    YNDX                                  #  NO FAILURES, CAN DO Y
046277,000651: 17,3410           32647                           CA       XLNNDX                                
046278,000652: 17,3411           50000                           INDEX    A                                     
046279,000653: 17,3412           33117                           CA       RTABLE                                
046280,000654: 17,3413           73136                           MASK     ACRJETS                               
046281,000655: 17,3414           13371                           TCF      NO2Y       +1                         
046282,000656: 
046283,000657: 17,3415           11626        AC2Y               CCS      RACFAIL                               
046284,000658: 17,3416           36214                           CAF      THREE                                 
046285,000659: 17,3417           13421                           TCF      +2                                    
046286,000660: 17,3420           36211                           CAF      SIX                                   
046287,000661: 17,3421           51515                           INDEX    YNDX                                  
046288,000662: 17,3422           62760                           AD       XLN1NDX                               
046289,000663: 17,3423           50000                           INDEX    A                                     
046290,000664: 17,3424           33140                           CA       YZTABLE                               
046291,000665: 17,3425           73152                           MASK     ACYJETS                               
046292,000666: 17,3426           55451                           TS       RWORD2                                
046293,000667: 17,3427           00006                           EXTEND                                         
046294,000668: 17,3430           74765                           MP       BIT4                                  
046295,000669: 17,3431           67701                           AD       =-2                                   
046296,000670: 17,3432           55522                           TS       NRJETS                                
046297,000671: 17,3433           41456                           CS       BLAST                                 
046298,000672: 17,3434           63277                           AD       =+.1SEC                               
046299,000673: 17,3435           00006                           EXTEND                                         
046300,000674: 17,3436           71522                           MP       NRJETS                                
046301,000675: 17,3437           30001                           CA       L                                     
046302,000676: 17,3440           27547                           ADS      DFT                                   
046303,000677: 17,3441           13372                           TCF      NO2Y       +2                         

Page 1056

046305,000679: 17,3442           11630        ACBD2Z             CCS      ACORBD                                
046306,000680: 17,3443           13473                           TCF      BDF2Z                                 #  USING BD-ROLL
046307,000681: 17,3444           13473                           TCF      BDF2Z                                 #  MUST CHECK FOR BD FAILURES
046308,000682: 17,3445           13446                           TCF      +1                                    
046309,000683: 17,3446           11627                           CCS      RBDFAIL                               #  USING AC FOR ROLL, CAN DO Z-TRANS
046310,000684: 17,3447           36214                           CAF      THREE                                 
046311,000685: 17,3450           13452                           TCF      +2                                    
046312,000686: 17,3451           36211                           CAF      SIX                                   
046313,000687: 17,3452           51516                           INDEX    ZNDX                                  
046314,000688: 17,3453           62760                           AD       XLN1NDX                               
046315,000689: 17,3454           50000                           INDEX    A                                     
046316,000690: 17,3455           33140                           CA       YZTABLE                               
046317,000691: 17,3456           73151                           MASK     BDZJETS                               
046318,000692: 17,3457           27451                           ADS      RWORD2                                
046319,000693: 17,3460           00006                           EXTEND                                         
046320,000694: 17,3461           74762                           MP       BIT7                                  
046321,000695: 17,3462           67701                           AD       =-2                                   
046322,000696: 17,3463           55522                           TS       NRJETS                                
046323,000697: 17,3464           41456                           CS       BLAST                                 
046324,000698: 17,3465           63277                           AD       =+.1SEC                               
046325,000699: 17,3466           00006                           EXTEND                                         
046326,000700: 17,3467           71522                           MP       NRJETS                                
046327,000701: 17,3470           30001                           CA       L                                     
046328,000702: 17,3471           27547                           ADS      DFT                                   
046329,000703: 17,3472           13153                           TCF      PITCHTIM                              
046330,000704: 
046331,000705: 17,3473           11627        BDF2Z              CCS      RBDFAIL                               
046332,000706: 17,3474           13374                           TCF      NO2Z                                  #  USING BD-ROLL AND BD HAS FAILED
046333,000707: 17,3475           13477                           TCF      +2                                    
046334,000708: 17,3476           13374                           TCF      NO2Z                                  #  DITTO
046335,000709: 17,3477           51516                           INDEX    ZNDX                                  
046336,000710: 17,3500           32647                           CA       XLNNDX                                
046337,000711: 17,3501           50000                           INDEX    A                                     
046338,000712: 17,3502           33117                           CA       RTABLE                                
046339,000713: 17,3503           73137                           MASK     BDRJETS                               
046340,000714: 17,3504           13375                           TCF      NO2Z       +1                         
046341,000715: 
046342,000716: 17,3505           31450        RBYPASS            CA       RWORD1                                
046343,000717: 17,3506           55451                           TS       RWORD2                                
046344,000718: 17,3507           34772                           CAF      ZERO                                  
046345,000719: 17,3510           55456                           TS       BLAST                                 
046346,000720: 17,3511           13153                           TCF      PITCHTIM                              
046347,000721: 

Page 1057

046349,000723:                                                                                                  #                GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2
046350,000724: 
046351,000725: 17,3512           11627        ASMBLWY            CCS      RBDFAIL                               
046352,000726: 17,3513           13521                           TCF      FYX2                                  #  IF FAILURE ON BD IGNORE X-TRANSLATION
046353,000727: 17,3514           13516                           TCF      +2                                    
046354,000728: 17,3515           13521                           TCF      FYX2                                  
046355,000729: 17,3516           51514                           INDEX    XNDX2                                 
046356,000730: 17,3517           32647                           CA       XLNNDX                                
046357,000731: 17,3520           50000                           INDEX    A                                     
046358,000732: 17,3521           32703        FYX2               CA       PYTABLE                               
046359,000733: 17,3522           72723                           MASK     YJETS                                 
046360,000734: 17,3523           55455                           TS       YWORD2                                
046361,000735: 17,3524           13531                           TCF      T6SETUP                               
046362,000736: 
046363,000737: 17,3525           31454        YBYPASS            CA       YWORD1                                
046364,000738: 17,3526           55455                           TS       YWORD2                                
046365,000739: 17,3527           34772                           CAF      ZERO                                  
046366,000740: 17,3530           55462                           TS       BLAST2                                
046367,000741: 

Page 1058

046369,000743:                                                                                                  #                SORT THE JET ON-TIMES
046370,000744: 
046371,000745:                                                                                                  #     AT THIS POINT ALL THE CHANNEL COMMANDS AND JET ON-TIMES HAVE BEEN DETERMINED. IN SUMMARY THESE ARE-
046372,000746: 
046373,000747:                                                                                                  #                RWORD1
046374,000748:                                                                                                  #                RWORD2          BLAST
046375,000749: 
046376,000750:                                                                                                  #                PWORD1
046377,000751:                                                                                                  #                PWORD2          BLAST1
046378,000752: 
046379,000753:                                                                                                  #                YWORD1
046380,000754:                                                                                                  #                YWORD2          BLAST2
046381,000755: 
046382,000756:                                                                                                  #      IN THIS SECTION THE JET ON-TIMES ARE SORTED AND THE SEQUENCE OF T6 INTERRUPTS IS DETERMINED.  TO FACILITATE
046383,000757:                                                                                                  #  THE SORTING PROCESS AND THE T6 PROGRAM, THE VARIABLES BLAST, BLAST1, BLAST2, ARE RESERVED AS DOUBLE PRECISION
046384,000758:                                                                                                  #  WORDS.  THE LOWER PART OF THESE WORDS CONTAIN A BRANCH INDEX ASSOCIATED WITH THE ROTATION AXIS OF THE HIGHER
046385,000759:                                                                                                  #  ORDER WORD.
046386,000760: 
046387,000761: 17,3531           34772        T6SETUP            CAF      ZERO                                  #  BRANCH INDEX FOR ROLL
046388,000762: 17,3532           55457                           TS       BLAST      +1                         
046389,000763: 17,3533           34766                           CAF      FOUR                                  #  BRANCH INDEX FOR PITCH
046390,000764: 17,3534           55461                           TS       BLAST1     +1                         
046391,000765: 17,3535           34775                           CAF      ELEVEN                                #  BRANCH INDEX FOR YAW
046392,000766: 17,3536           55463                           TS       BLAST2     +1                         
046393,000767: 
046394,000768: 17,3537           41456                           CS       BLAST                                 
046395,000769: 17,3540           61460                           AD       BLAST1                                
046396,000770: 17,3541           00006                           EXTEND                                         
046397,000771: 17,3542           63566                           BZMF     DXCHT12                               #  T1 GR T2
046398,000772: 17,3543           41460        CHECKT23           CS       BLAST1                                
046399,000773: 17,3544           61462                           AD       BLAST2                                
046400,000774: 17,3545           00006                           EXTEND                                         
046401,000775: 17,3546           63572                           BZMF     DXCHT23                               
046402,000776: 17,3547           41460        CALCDT6            CS       BLAST1                                
046403,000777: 17,3550           27462                           ADS      BLAST2                                
046404,000778: 17,3551           41456                           CS       BLAST                                 
046405,000779: 17,3552           27460                           ADS      BLAST1                                #  END OF SORTING PROCEDURE
046406,000780: 17,3553           00006                           EXTEND                                         #  RESET T5LOC TO BEGIN PHASE1
046407,000781: 17,3554           33565                           DCA      RCS2CADR                              
046408,000782: 17,3555           52113                           DXCH     T5LOC                                 
046409,000783: 17,3556           44770        ENDJETS            CS       BIT1                                  #  RESET BIT1 FOR INITIALIZATION OF
046410,000784: 17,3557           71501                           MASK     RCSFLAGS                              #  T6 PROGRAM
046411,000785: 17,3560           55501                           TS       RCSFLAGS                              
046412,000786: 17,3561           44772                           CS       ZERO                                  #  RESET T5PHASE FOR PHASE1
046413,000787: 17,3562           55464                           TS       T5PHASE                               
046414,000788: 17,3563           15323                           TCF      RESUME                                #  RESUME INTERRUPTED PROGRAM
046415,000789: 
046416,000790: 17,3564  E6,1510                                  EBANK=   KMPAC                                 
046417,000791: 17,3564           02140 42066  RCS2CADR           2CADR    RCSATT                                
046418,000792: 

Page 1059

046420,000794: 17,3566           53457        DXCHT12            DXCH     BLAST                                 
046421,000795: 17,3567           53461                           DXCH     BLAST1                                
046422,000796: 17,3570           53457                           DXCH     BLAST                                 
046423,000797: 17,3571           13543                           TCF      CHECKT23                              
046424,000798: 
046425,000799: 17,3572           53461        DXCHT23            DXCH     BLAST1                                
046426,000800: 17,3573           53463                           DXCH     BLAST2                                
046427,000801: 17,3574           53461                           DXCH     BLAST1                                
046428,000802: 17,3575           41456                           CS       BLAST                                 
046429,000803: 17,3576           61460                           AD       BLAST1                                
046430,000804: 17,3577           00006                           EXTEND                                         
046431,000805: 17,3600           63602                           BZMF     +2                                    
046432,000806: 17,3601           13547                           TCF      CALCDT6                               
046433,000807: 17,3602           53457                           DXCH     BLAST                                 
046434,000808: 17,3603           53461                           DXCH     BLAST1                                
046435,000809: 17,3604           53457                           DXCH     BLAST                                 
046436,000810: 17,3605           13547                           TCF      CALCDT6                               
046437,000811: 

Page 1060

046439,000813:                                                                                                  #                T6 PROGRAM AND CHANNEL SETUP
046440,000814: 
046441,000815: 17,2000                                           SETLOC   DAPS5                                 
046442,000816: 17,2000                                           BANK                                           
046443,000817: 
046444,000818: 17,3606                                           COUNT*   $$/T6RPT                              
046445,000819: 17,3606           22016        T6START            LXCH     BANKRUPT                              
046446,000820: 17,3607           00006                           EXTEND                                         
046447,000821: 17,3610           22012                           QXCH     QRUPT                                 
046448,000822: 17,3611           10031                           CCS      TIME6                                 #  CHECK TO SEE IF TIME6 WAS RESET
046449,000823: 17,3612           15323                           TCF      RESUME                                #  AFTER T6RUPT OCCURED(IN T5RUPT)
046450,000824: 17,3613           13615                           TCF      +2                                    #  IF SO WAIT FOR NEXT T6RUPT BEFORE
046451,000825: 17,3614           15323                           TCF      RESUME                                #  TAKING ACTION
046452,000826: 
046453,000827: 17,3615           41501                           CS       RCSFLAGS                              
046454,000828: 17,3616           74770                           MASK     BIT1                                  #  IF BIT1 IS 0 RESET TO 1
046455,000829: 17,3617           00006                           EXTEND                                         #  AND INITIALIZE CHANNEL
046456,000830: 17,3620           13631                           BZF      T6RUPTOR                              
046457,000831: 17,3621           27501                           ADS      RCSFLAGS                              
046458,000832: 17,3622           31450                           CA       RWORD1                                
046459,000833: 17,3623           00006                           EXTEND                                         #  INITIALIZE CHANNELS 5,6 WITH WORD1
046460,000834: 17,3624           01006                           WRITE    CHAN6                                 
046461,000835: 17,3625           31452                           CA       PWORD1                                
046462,000836: 17,3626           61454                           AD       YWORD1                                
046463,000837: 17,3627           00006                           EXTEND                                         
046464,000838: 17,3630           01005                           WRITE    CHAN5                                 
046465,000839: 
046466,000840: 17,3631           11456        T6RUPTOR           CCS      BLAST                                 
046467,000841: 17,3632           13711                           TCF      ZBLAST                                #  ZERO BLAST1
046468,000842: 17,3633           13650                           TCF      REPLACE                               #  REPLACE WORD1
046469,000843: 17,3634           13636                           TCF      +2                                    
046470,000844: 17,3635           13650                           TCF      REPLACE                               
046471,000845: 17,3636           11460        T6L1               CCS      BLAST1                                
046472,000846: 17,3637           13714                           TCF      ZBLAST1                               
046473,000847: 17,3640           13655                           TCF      REPLACE1                              
046474,000848: 17,3641           13643                           TCF      +2                                    
046475,000849: 17,3642           13655                           TCF      REPLACE1                              
046476,000850: 17,3643           11462        T6L2               CCS      BLAST2                                
046477,000851: 17,3644           13717                           TCF      ZBLAST2                               
046478,000852: 17,3645           13662                           TCF      REPLACE2                              
046479,000853: 17,3646           15323                           TCF      RESUME                                
046480,000854: 17,3647           13662                           TCF      REPLACE2                              
046481,000855: 
046482,000856: 17,3650           51457        REPLACE            INDEX    BLAST      +1                         
046483,000857: 17,3651           03667                           TC       REPLACER                              
046484,000858: 17,3652           44770                           CS       ONE                                   
046485,000859: 17,3653           55456                           TS       BLAST                                 
046486,000860: 17,3654           13636                           TCF      T6L1                                  
046487,000861: 
046488,000862: 17,3655           51461        REPLACE1           INDEX    BLAST1     +1                         

Page 1061

046490,000864: 17,3656           03667                           TC       REPLACER                              
046491,000865: 17,3657           44770                           CS       ONE                                   
046492,000866: 17,3660           55460                           TS       BLAST1                                
046493,000867: 17,3661           13643                           TCF      T6L2                                  
046494,000868: 
046495,000869: 17,3662           51463        REPLACE2           INDEX    BLAST2     +1                         
046496,000870: 17,3663           03667                           TC       REPLACER                              
046497,000871: 17,3664           44770                           CS       ONE                                   
046498,000872: 17,3665           55462                           TS       BLAST2                                
046499,000873: 17,3666           15323                           TCF      RESUME                                
046500,000874: 
046501,000875: 17,3667           31451        REPLACER           CA       RWORD2                                #  INITIALIZE CHANNELS 5,6 WITH WORD2
046502,000876: 17,3670           00006                           EXTEND                                         
046503,000877: 17,3671           01006                           WRITE    CHAN6                                 
046504,000878: 17,3672           00002                           TC       Q                                     
046505,000879: 
046506,000880: 17,3673           32723        REPLACEP           CA       YJETS                                 
046507,000881: 17,3674           00006                           EXTEND                                         
046508,000882: 17,3675           02005                           RAND     CHAN5                                 
046509,000883: 17,3676           61453                           AD       PWORD2                                
046510,000884: 17,3677           00006                           EXTEND                                         
046511,000885: 17,3700           01005                           WRITE    CHAN5                                 
046512,000886: 17,3701           00002                           TC       Q                                     
046513,000887: 
046514,000888: 17,3702           32722        REPLACEY           CA       PJETS                                 
046515,000889: 17,3703           00006                           EXTEND                                         
046516,000890: 17,3704           02005                           RAND     CHAN5                                 
046517,000891: 17,3705           61455                           AD       YWORD2                                
046518,000892: 17,3706           00006                           EXTEND                                         
046519,000893: 17,3707           01005                           WRITE    CHAN5                                 
046520,000894: 17,3710           00002                           TC       Q                                     
046521,000895: 
046522,000896: 17,3711           34772        ZBLAST             CAF      ZERO                                  
046523,000897: 17,3712           57456                           XCH      BLAST                                 
046524,000898: 17,3713           13721                           TCF      ENABT6                                
046525,000899: 17,3714           34772        ZBLAST1            CAF      ZERO                                  
046526,000900: 17,3715           57460                           XCH      BLAST1                                
046527,000901: 17,3716           13721                           TCF      ENABT6                                
046528,000902: 17,3717           34772        ZBLAST2            CAF      ZERO                                  
046529,000903: 17,3720           57462                           XCH      BLAST2                                
046530,000904: 17,3721           54031        ENABT6             TS       TIME6                                 
046531,000905: 17,3722           04542                           TC       C13STALL                              
046532,000906: 17,3723           34752                           CAF      NEGMAX                                
046533,000907: 17,3724           00006                           EXTEND                                         
046534,000908: 17,3725           05013                           WOR      CHAN13                                #  ENABLE T6RUPT
046535,000909: 17,3726           15323                           TCF      RESUME                                
046536,000910: 
046537,000911:                                                                                                  #  END OF T6 INTERRUPT
046538,000912: 
046539,000913: 17,3727                        ENDSLECT           EQUALS                                         
046540,000914: 

Page 1062 Empty page


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