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.

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

Page 1038

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

Page 1039

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

Page 1040

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

Page 1041

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

Page 1042

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

Page 1043

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

Page 1044

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

Page 1045

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

Page 1046

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

Page 1047

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

Page 1048

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

Page 1049

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

Page 1050

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

Page 1051

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

Page 1052

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

Page 1053

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

Page 1054

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

Page 1055

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

Page 1056

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

Page 1057

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

Page 1058

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

Page 1059

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

Page 1060

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

Page 1061

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

Page 1062 Empty page


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