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.

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

Page 1038

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

Page 1039

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

Page 1040

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

Page 1041

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

Page 1042

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

Page 1043

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

Page 1044

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

Page 1045

045953,000337: 17,3111           31450        NOACY              CA       RWORD1                                #  Y-TRANSLATION NOT ACCEPTED
045954,000338: 17,3112           00006                           EXTEND                                         
045955,000339: 17,3113           74765                           MP       BIT4                                  
045956,000340: 17,3114           67701                           AD       =-2                                   
045957,000341: 17,3115           55522                           TS       NRJETS                                
045958,000342: 17,3116           13263                           TCF      ROLLTIME                              
045959,000343: 

Page 1046

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

Page 1047

046014,000398:                                                                                                  #                RTABLE MASKS -
046015,000399: 
046016,000400: 17,3136           03760        ACRJETS            OCT      03760                                 
046017,000401: 17,3137           34017        BDRJETS            OCT      34017                                 
046018,000402: 

Page 1048

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

Page 1049

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

Page 1050

046107,000491: 17,3210           55460                           TS       BLAST1                                
046108,000492: 17,3211           31460        PBLASTOK           CA       BLAST1                                
046109,000493: 17,3212           00006                           EXTEND                                         #  THE PITCH COMMANDS WILL BE COMPLETED
046110,000494: 17,3213           71523                           MP       NPJETS                                #  WITHIN THE TS-CYCLE TIME
046111,000495: 17,3214           23550                           LXCH     DFT1                                  #  FOR USE IN UPDATING RATE FILTER
046112,000496: 17,3215           55562                           TS       TAU1                                  #  ZERO TAU1 (ACC CONTAINS ZERO)
046113,000497: 17,3216           13346                           TCF      ASMBLWP                               
046114,000498: 

Page 1051

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

Page 1052

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

Page 1053

046210,000594: 17,3337           65252                           DEC      -.333333                              #  = -1/3
046211,000595: 17,3340           57777                           DEC      -.500000                              #  = -1/2
046212,000596: 17,3341           40000                           DEC      -.999999                              #  = -1 (NEGMAX)
046213,000597: 17,3342           00000        NJET               DEC      0          B-14                       
046214,000598: 17,3343           37777                           DEC      .999999                               #  = +1 (POSMAX)
046215,000599: 17,3344           20000                           DEC      .500000                               #  = +1/2
046216,000600: 17,3345           12525                           DEC      .333333                               #  = +1/3
046217,000601: 

Page 1054

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

Page 1055

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

Page 1056

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

Page 1057

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

Page 1058

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

Page 1059

046410,000794: 17,3566           53457        DXCHT12            DXCH     BLAST                                 
046411,000795: 17,3567           53461                           DXCH     BLAST1                                
046412,000796: 17,3570           53457                           DXCH     BLAST                                 
046413,000797: 17,3571           13543                           TCF      CHECKT23                              
046414,000798: 
046415,000799: 17,3572           53461        DXCHT23            DXCH     BLAST1                                
046416,000800: 17,3573           53463                           DXCH     BLAST2                                
046417,000801: 17,3574           53461                           DXCH     BLAST1                                
046418,000802: 17,3575           41456                           CS       BLAST                                 
046419,000803: 17,3576           61460                           AD       BLAST1                                
046420,000804: 17,3577           00006                           EXTEND                                         
046421,000805: 17,3600           63602                           BZMF     +2                                    
046422,000806: 17,3601           13547                           TCF      CALCDT6                               
046423,000807: 17,3602           53457                           DXCH     BLAST                                 
046424,000808: 17,3603           53461                           DXCH     BLAST1                                
046425,000809: 17,3604           53457                           DXCH     BLAST                                 
046426,000810: 17,3605           13547                           TCF      CALCDT6                               
046427,000811: 

Page 1060

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

Page 1061

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

Page 1062 Empty page


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