Source Code

These source-code files are part of a reconstructed copy of Artemis 071, the first release of the Apollo 15 through 17 Command Module (CM) Apollo Guidance Computer (AGC) software.

The reconstruction began with source code of Artemis 072 previously transcribed from a digitized copy of that program. The code was then updated by undoing changes between the two versions. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021154-. Note that page numbers in the reconstructed code match those on the Artemis 072 printout, although the changed code would likely have changed page numbers for a real Artemis 071 listing.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

045489,000002:                                                                                                  ## Copyright:   Public domain.
045490,000003:                                                                                                  ## Filename:    JET_SELECTION_LOGIC.agc
045491,000004:                                                                                                  ## Purpose:     A section of Artemis revision 071.
045492,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
045493,000006:                                                                                                  ##              release of the flight software for the Command Module's
045494,000007:                                                                                                  ##              (CM) Apollo Guidance Computer (AGC) for Apollo 15 through
045495,000008:                                                                                                  ##              17. The code has been recreated from a copy of Artemis 072.
045496,000009:                                                                                                  ##              It has been adapted such that the resulting bugger words
045497,000010:                                                                                                  ##              exactly match those specified for Artemis 071 in NASA
045498,000011:                                                                                                  ##              drawing 2021154-, which gives relatively high confidence
045499,000012:                                                                                                  ##              that the reconstruction is correct.
045500,000013:                                                                                                  ## Reference:   1038
045501,000014:                                                                                                  ## Assembler:   yaYUL
045502,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
045503,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
045504,000017:                                                                                                  ## Mod history: 2019-08-14 MAS  Created from Artemis 072.
045505,000018: 

Page 1038

045507,000020: 17,2000                                           SETLOC   DAPS4                                 
045508,000021: 17,2000                                           BANK                                           
045509,000022: 
045510,000023: 17,2541                                           COUNT*   $$/DAPJS                              
045511,000024: 17,2541  E6,1510                                  EBANK=   KMPAC                                 
045512,000025: 
045513,000026:                                                                                                  #  EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS
045514,000027: 
045515,000028: 17,2541           22016        JETSLECT           LXCH     BANKRUPT                              
045516,000029: 17,2542           32624                           CAF      DELTATT3                              #  = 60 MS   RESET TO EXECUTE PHASE1
045517,000030: 17,2543           61634                           AD       T5TIME                                
045518,000031: 17,2544           54030                           TS       TIME5                                 
045519,000032: 17,2545           12550                           TCF      +3                                    
045520,000033: 17,2546           37663                           CAF      DELATT20                              #  = 20 MS   TO ASSURE A T5RUPT
045521,000034: 17,2547           54030                           TS       TIME5                                 
045522,000035: 17,2550           33302                           CAF      =14MS                                 #  RESET T6 TO INITIALIZE THE JET CHANNELS
045523,000036: 17,2551           54031                           TS       TIME6                                 #  IN 14 MS
045524,000037: 17,2552           00006                           EXTEND                                         
045525,000038: 17,2553           22012                           QXCH     QRUPT                                 
045526,000039: 17,2554           04542                           TC       C13STALL                              
045527,000040: 17,2555           34752                           CAF      NEGMAX                                
045528,000041: 17,2556           00006                           EXTEND                                         
045529,000042: 17,2557           05013                           WOR      CHAN13                                
045530,000043: 17,2560           32623                           CAF      XLNMASK                               #  = 7700 OCT
045531,000044: 17,2561           00006                           EXTEND                                         #  EXAMINE THE TRANSLATION
045532,000045: 17,2562           06031                           RXOR     CHAN31                                #  HAND CONTROLLER
045533,000046: 17,2563           72623                           MASK     XLNMASK                               
045534,000047: 17,2564           00006                           EXTEND                                         
045535,000048: 17,2565           12625                           BZF      NOXLNCMD                              
045536,000049: 17,2566           55502                           TS       T5TEMP                                
045537,000050: 17,2567           00006                           EXTEND                                         
045538,000051: 17,2570           74760                           MP       BIT9                                  
045539,000052: 17,2571           76214                           MASK     THREE                                 
045540,000053: 17,2572           55513                           TS       XNDX1                                 #  AC QUAD  X-TRANSLATION INDEX
045541,000054: 17,2573           55514                           TS       XNDX2                                 #  BD QUAD  X-TRANSLATION INDEX
045542,000055: 17,2574           31502                           CA       T5TEMP                                
045543,000056: 17,2575           00006                           EXTEND                                         #  1 = + XLN
045544,000057: 17,2576           74762                           MP       BIT7                                  #  2 = - XLN
045545,000058: 17,2577           76214                           MASK     THREE                                 #  3 = NO XLN
045546,000059: 17,2600           55515                           TS       YNDX                                  #  Y-TRANSLATION INDEX
045547,000060: 
045548,000061: 17,2601           31502                           CA       T5TEMP                                
045549,000062: 17,2602           00006                           EXTEND                                         
045550,000063: 17,2603           74764                           MP       BIT5                                  
045551,000064: 17,2604           76214                           MASK     THREE                                 
045552,000065: 17,2605           55516                           TS       ZNDX                                  #  Z-TRANSLATION INDEX
045553,000066: 
045554,000067: 17,2606           31465                           CA       DAPDATR1                              #  SET ATTKALMN TO PICK UP FILTER GAINS FOR
045555,000068: 17,2607           74753                           MASK     BIT14                                 #  TRANSLATIONS.
045556,000069: 17,2610           00006                           EXTEND                                         #  CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED.
045557,000070: 17,2611           12614                           BZF      NOLEM                                 

Page 1039

045559,000072: 17,2612           46214                           CS       THREE                                 #  IF LEM IS ON, SET ATTKALMN = -3
045560,000073: 17,2613           12615                           TCF      +2                                    
045561,000074: 17,2614           44767        NOLEM              CS       TWO                                   #  IF LEM IS OFF, SET ATTKALMN = -2.
045562,000075: 17,2615           55617                           TS       ATTKALMN                              
045563,000076: 17,2616           11631                           CCS      XTRANS                                #  (+, -1, 0)
045564,000077: 17,2617           55513                           TS       XNDX1                                 #  USING BD-X  ZERO XNDX1
045565,000078: 17,2620           12631                           TCF      PWORD                                 
045566,000079: 17,2621           55514                           TS       XNDX2                                 #  USING AC-X  ZERO XNDX2
045567,000080: 17,2622           12631                           TCF      PWORD                                 
045568,000081: 17,2623           07700        XLNMASK            OCT      7700                                  
045569,000082: 
045570,000083: 17,2624           37772        DELTATT3           DEC      16378      B-14                       #  = 60 MS
045571,000084: 17,2625     7663               DELATT20           =        OCT37776                              #  = 20 MS
045572,000085: 17,2625           55513        NOXLNCMD           TS       XNDX1                                 #  ZERO ALL REQUESTS FOR TRANSLATION
045573,000086: 17,2626           55514                           TS       XNDX2                                 
045574,000087: 17,2627           55515                           TS       YNDX                                  
045575,000088: 17,2630           55516                           TS       ZNDX                                  
045576,000089: 
045577,000090:                                                                                                  #  PITCH COMMANDS  TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT
045578,000091: 
045579,000092: 17,2631           11562        PWORD              CCS      TAU1                                  #  CHECK FOR PITCH COMMANDS
045580,000093: 17,2632           34770                           CAF      ONE                                   
045581,000094: 17,2633           12635                           TCF      +2                                    #   0 = NO PITCH
045582,000095: 17,2634           34767                           CAF      TWO                                   #  +1 =  + PITCH
045583,000096: 17,2635           55520                           TS       PINDEX                                #  +2 =  - PITCH
045584,000097: 
045585,000098: 17,2636           11626                           CCS      RACFAIL                               #  FLAG FOR REAL AC QUAD FAILURES
045586,000099: 17,2637           12643                           TCF      AFAILP                                
045587,000100: 17,2640           12653                           TCF      TABPCOM                               #  0 = NO REAL AC FAILURES
045588,000101: 17,2641           12645                           TCF      CFAILP                                #  + = A QUAD FAILED
045589,000102: 17,2642           12653                           TCF      TABPCOM                               #  - = C QUAD FAILED
045590,000103:                                                                                                  #  IF FAILURES ARE PRESENT IGNORE
045591,000104:                                                                                                  #  X-TRANSLATIONS ON THIS AXIS
045592,000105: 
045593,000106: 17,2643           34322        AFAILP             CAF      NINE                                  #  IF FAILURE IS PRESENT 1JET OPERATION
045594,000107: 17,2644           12655                           TCF      TABPCOM    +2                         #  IS ASSUMED. IGNORE X-TRANSLATION
045595,000108: 17,2645           35775        CFAILP             CAF      TWELVE                                
045596,000109: 17,2646           12655                           TCF      TABPCOM    +2                         
045597,000110: 
045598,000111: 17,2647           00000        XLNNDX             DEC      0          B-14                       #  INDECES FOR TRANSLATION COMMANDS
045599,000112: 17,2650           00003                           DEC      3          B-14                       #  FOR USE IN TABLE LOOK UP
045600,000113: 17,2651           00006                           DEC      6          B-14                       
045601,000114: 17,2652           00000                           DEC      0          B-14                       
045602,000115: 
045603,000116: 17,2653     5775               TWELVE             =        OCT14                                 
045604,000117: 
045605,000118:                                                                                                  #  TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT.
045606,000119:                                                                                                  #  BITS 9, 10 CONTAIN THE NUMBER OF PITCH JETS USED TO PERFORM THE PITCH ROTATION
045607,000120: 
045608,000121: 17,2653           51513        TABPCOM            INDEX    XNDX1                                 

Page 1040

045610,000123: 17,2654           32647                           CA       XLNNDX                                
045611,000124: 17,2655           61520                 +2        AD       PINDEX                                
045612,000125: 17,2656           50000                           INDEX    A                                     
045613,000126: 17,2657           32703                           CA       PYTABLE                               
045614,000127: 17,2660           72722                           MASK     PJETS                                 #  =1417 OCT
045615,000128: 17,2661           55452                           TS       PWORD1                                
045616,000129: 17,2662           00006                           EXTEND                                         
045617,000130: 17,2663           74762                           MP       BIT7                                  
045618,000131: 17,2664           55523                           TS       NPJETS                                #  = NO. OF PITCH JETS
045619,000132: 
045620,000133:                                                                                                  #  YAW JET COMMANDS  TIMING(NO X-TRANS, NO QUAD FAILURES)  32MCT
045621,000134: 
045622,000135: 17,2665           11563        YWORD              CCS      TAU2                                  #  CHECK FOR YAW COMMANDS
045623,000136: 17,2666           34770                           CAF      ONE                                   
045624,000137: 17,2667           12671                           TCF      +2                                    
045625,000138: 17,2670           34767                           CAF      TWO                                   
045626,000139: 17,2671           55521                           TS       YINDEX                                #  YAW ROTATION INDEX
045627,000140: 
045628,000141: 17,2672           11627                           CCS      RBDFAIL                               #  FLAG FOR B OR D QUAD FAILURES
045629,000142: 17,2673           12677                           TCF      BFAILY                                #  0 = NO BD FAILURE
045630,000143: 17,2674           12724                           TCF      TABYCOM                               #  + = B QUAD FAILED
045631,000144: 17,2675           12701                           TCF      DFAILY                                #  - = D QUAD FAILED
045632,000145: 17,2676           12724                           TCF      TABYCOM                               
045633,000146: 
045634,000147: 17,2677           34322        BFAILY             CAF      NINE                                  
045635,000148: 17,2700           12726                           TCF      TABYCOM    +2                         
045636,000149: 17,2701           35775        DFAILY             CAF      TWELVE                                
045637,000150: 17,2702           12726                           TCF      TABYCOM    +2                         
045638,000151: 

Page 1041

045640,000153:                                                                                                  #  TABLE FOR PITCH(YAW) COMMANDS
045641,000154:                                                                                                  #  BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED
045642,000155:                                                                                                  #  BITS    10,9 = NO. PITCH JETS USED TO PERFORM ROTATION
045643,000156:                                                                                                  #  BITS 8,7,6,5 = YAW, X-TRANSLATION JETS SELECTED
045644,000157:                                                                                                  #  BITS 12,11:  NO. YAW JETS USED TO PERFORM ROTATION
045645,000158: 
045646,000159:                                                                                                  #  ROT   TRANS   QUAD    BIAS
045647,000160: 17,2703           00000        PYTABLE            OCT      0                                     #  0     0               0
045648,000161: 17,2704           05125                           OCT      5125                                  #  +     0               0
045649,000162: 17,2705           05252                           OCT      5252                                  #  -     0               0
045650,000163: 17,2706           00231                           OCT      0231                                  #  0     +               3
045651,000164: 17,2707           02421                           OCT      2421                                  #  +     +               3
045652,000165: 17,2710           02610                           OCT      2610                                  #  -     +               3
045653,000166: 17,2711           00146                           OCT      0146                                  #  0     -               6
045654,000167: 17,2712           02504                           OCT      2504                                  #  +     -               6
045655,000168: 17,2713           02442                           OCT      2442                                  #  -     -               6
045656,000169: 17,2714           00000                           OCT      0                                     #  0             A(B)    9
045657,000170: 17,2715           02421                           OCT      2421                                  #  +             A(B)    9
045658,000171: 17,2716           02442                           OCT      2442                                  #  -             A(B)    9
045659,000172: 17,2717           00000                           OCT      0                                     #  0             C(D)    12
045660,000173: 17,2720           02504                           OCT      2504                                  #  +             C(D)    12
045661,000174: 17,2721           02610                           OCT      2610                                  #  -             C(D)    12
045662,000175: 
045663,000176:                                                                                                  #  MASKS FOR PITCH AND YAW COMMANDS
045664,000177: 
045665,000178: 17,2722           01417        PJETS              OCT      1417                                  
045666,000179: 17,2723           06360        YJETS              OCT      6360                                  
045667,000180: 
045668,000181:                                                                                                  #  TABLE LOOK UP FOR YAW COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT
045669,000182:                                                                                                  #  BITS 11, 12 CONTAIN THE NUMBER OF YAW JETS USED TO PERFORM THE YAW ROTATION
045670,000183: 
045671,000184: 17,2724           51514        TABYCOM            INDEX    XNDX2                                 
045672,000185: 17,2725           32647                           CA       XLNNDX                                
045673,000186: 17,2726           61521                 +2        AD       YINDEX                                
045674,000187: 17,2727           50000                           INDEX    A                                     
045675,000188: 17,2730           32703                           CA       PYTABLE                               
045676,000189: 17,2731           72723                           MASK     YJETS                                 #  = 6360 OCT
045677,000190: 17,2732           55454                           TS       YWORD1                                
045678,000191: 17,2733           00006                           EXTEND                                         
045679,000192: 17,2734           74764                           MP       BIT5                                  
045680,000193: 17,2735           55524                           TS       NYJETS                                #  NO. OF YAW JETS USED TO PERFORM ROTATION
045681,000194: 

Page 1042

045683,000196: 
045684,000197:                                                                                                  #  ROLL COMMANDS  TIMING(NO Y,Z TRANS, NO QUAD FAILS)   45MCT
045685,000198: 
045686,000199: 17,2736           11561        RWORD              CCS      TAU                                   #  CHECK FOR ROLL COMMANDS
045687,000200: 17,2737           34770                           CAF      ONE                                   
045688,000201: 17,2740           12742                           TCF      +2                                    
045689,000202: 17,2741           34767                           CAF      TWO                                   
045690,000203: 17,2742           55517                           TS       RINDEX                                
045691,000204: 
045692,000205: 17,2743           11630                           CCS      ACORBD                                #  FLAG FOR AC OR BD QUAD SELECTION FOR
045693,000206: 17,2744           13035                           TCF      BDROLL                                #  ROLL COMMANDS
045694,000207: 17,2745           13035                           TCF      BDROLL                                #  +, +0 = BD ROLL
045695,000208: 17,2746           12747                           TCF      +1                                    #  -, -0 = AC ROLL
045696,000209: 
045697,000210: 17,2747           11626        ACROLL             CCS      RACFAIL                               #  CHECK FOR REAL FAILURES
045698,000211: 17,2750           12754                           TCF      RAFAIL                                #  ON AC QUADS
045699,000212: 17,2751           12764                           TCF      RXLNS                                 
045700,000213: 17,2752           12756                           TCF      RCFAIL                                
045701,000214: 17,2753           12764                           TCF      RXLNS                                 
045702,000215: 
045703,000216: 17,2754           34322        RAFAIL             CAF      NINE                                  #  QUAD FAILURE  WILL GET
045704,000217: 17,2755           12766                           TCF      TABRCOM                               #  1-JET OPERATION
045705,000218: 17,2756           35775        RCFAIL             CAF      TWELVE                                
045706,000219: 17,2757           12766                           TCF      TABRCOM                               
045707,000220: 
045708,000221: 17,2760           00000        XLN1NDX            DEC      0          B-14                       
045709,000222: 17,2761           00001                           DEC      1          B-14                       #  INDECES FOR TRANSLATION
045710,000223: 17,2762           00002                           DEC      2          B-14                       
045711,000224: 17,2763           00000                           DEC      0          B-14                       
045712,000225: 
045713,000226:                                                                                                  #  TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT
045714,000227:                                                                                                  #  BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL
045715,000228: 
045716,000229: 17,2764           51515        RXLNS              INDEX    YNDX                                  #  NO AC QUAD FAILURES
045717,000230: 17,2765           32647                           CA       XLNNDX                                #  INCLUDE +,-,0, Y-TRANSLATION
045718,000231: 17,2766           61517        TABRCOM            AD       RINDEX                                
045719,000232: 17,2767           50000                           INDEX    A                                     
045720,000233: 17,2770           33117                           CA       RTABLE                                
045721,000234: 17,2771           73136                           MASK     ACRJETS                               #  = 3760 OCT
045722,000235: 17,2772           55450                           TS       RWORD1                                
045723,000236: 
045724,000237:                                                                                                  #  CHECK FOR Z-TRANSLATIONS ON BD
045725,000238: 
045726,000239: 17,2773           31516        BDZCHECK           CA       ZNDX                                  
045727,000240: 17,2774           00006                           EXTEND                                         
045728,000241: 17,2775           63027                           BZMF     NOBDZ                                 #  NO Z-TRANSLATION
045729,000242: 

Page 1043

045731,000244:                                                                                                  #  TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES.  Z-TRANSLATION WILL BE POSS-
045732,000245:                                                                                                  #  IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS.  CRITERION.. IF THE RESULTANT NET ROLL
045733,000246:                                                                                                  #  COMMANDS = 0 (WITH Z-TRANSLATION) AND IF TAU = 0, THEN INCLUDE THE BD Z-TRANSLATION COMMANDS. IF THE RESULTANT
045734,000247:                                                                                                  #  ROLL COMMAND = 0, AND IF TAU NZ, THEN IGNORE THE BD Z-TRANSLATION
045735,000248: 
045736,000249: 17,2776           11627                           CCS      RBDFAIL                               
045737,000250: 17,2777           36214                           CAF      THREE                                 
045738,000251: 17,3000           13002                           TCF      +2                                    
045739,000252: 17,3001           36211                           CAF      SIX                                   
045740,000253: 17,3002           51516                           INDEX    ZNDX                                  
045741,000254: 17,3003           62760                           AD       XLN1NDX                               
045742,000255: 17,3004           50000                           INDEX    A                                     
045743,000256: 17,3005           33140                           CA       YZTABLE                               
045744,000257: 17,3006           73151                           MASK     BDZJETS                               #  = 3417 OCT
045745,000258: 17,3007           61450                           AD       RWORD1                                #  ADD TO ROLL COMMANDS
045746,000259: 17,3010           55502                           TS       T5TEMP                                #  IF POSSIBLE.  MUST CHECK TAU FIRST
045747,000260: 
045748,000261: 17,3011           00006                           EXTEND                                         
045749,000262: 17,3012           74762                           MP       BIT7                                  #  DETERMINE THE NET ROLL COMMAND WITH
045750,000263: 17,3013           66061                           AD       =-4                                   #  Z-TRANSLATION ADDED ON
045751,000264: 17,3014           55522                           TS       NRJETS                                #  NET NO. OF +,- ROLL JETS ON
045752,000265: 17,3015           00006                           EXTEND                                         
045753,000266: 17,3016           13022                           BZF      TAUCHECK                              
045754,000267: 
045755,000268: 17,3017           31502        ACRBDZ             CA       T5TEMP                                #  Z-TRANSLATION ACCEPTED EVEN THO WE MAY
045756,000269: 17,3020           55450                           TS       RWORD1                                #  HAVE INTRODUCED AN UNDESIREABLE ROLL
045757,000270: 17,3021           13263                           TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATIONS
045758,000271: 
045759,000272: 17,3022           11561        TAUCHECK           CCS      TAU                                   
045760,000273: 17,3023           13027                           TCF      NOBDZ                                 
045761,000274: 17,3024           13017                           TCF      ACRBDZ                                
045762,000275: 17,3025           13027                           TCF      NOBDZ                                 
045763,000276: 17,3026           13017                           TCF      ACRBDZ                                
045764,000277: 
045765,000278: 17,3027           31450        NOBDZ              CA       RWORD1                                #  Z-TRANSLATION NOT ACCEPTED
045766,000279: 17,3030           00006                           EXTEND                                         
045767,000280: 17,3031           74762                           MP       BIT7                                  
045768,000281: 17,3032           67701                           AD       =-2                                   
045769,000282: 17,3033           55522                           TS       NRJETS                                
045770,000283: 17,3034           13263                           TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATION
045771,000284: 

Page 1044

045773,000286:                                                                                                  #  BD QUAD SELECTION FOR ROLL COMMANDS
045774,000287: 
045775,000288: 17,3035           11627        BDROLL             CCS      RBDFAIL                               
045776,000289: 17,3036           13042                           TCF      RBFAIL                                
045777,000290: 17,3037           13046                           TCF      RZXLNS                                
045778,000291: 17,3040           13044                           TCF      RDFAIL                                
045779,000292: 17,3041           13046                           TCF      RZXLNS                                
045780,000293: 17,3042           34322        RBFAIL             CAF      NINE                                  
045781,000294: 17,3043           13050                           TCF      TABRZCMD                              
045782,000295: 17,3044           35775        RDFAIL             CAF      TWELVE                                
045783,000296: 17,3045           13050                           TCF      TABRZCMD                              
045784,000297: 
045785,000298: 17,3046           51516        RZXLNS             INDEX    ZNDX                                  #  NO BD FAILURES
045786,000299: 17,3047           32647                           CA       XLNNDX                                #  +,-,0 Z-TRANSLATION PRESENT
045787,000300: 17,3050           61517        TABRZCMD           AD       RINDEX                                
045788,000301: 17,3051           50000                           INDEX    A                                     
045789,000302: 17,3052           33117                           CA       RTABLE                                
045790,000303: 17,3053           73137                           MASK     BDRJETS                               #  = 34017 OCT
045791,000304: 17,3054           55450                           TS       RWORD1                                
045792,000305: 
045793,000306: 17,3055           31515        ACYCHECK           CA       YNDX                                  #  ANY Y-TRANSLATION
045794,000307: 17,3056           00006                           EXTEND                                         
045795,000308: 17,3057           13111                           BZF      NOACY                                 #  NO Y-TRANSLATION
045796,000309: 17,3060           11626                           CCS      RACFAIL                               
045797,000310: 17,3061           36214                           CAF      THREE                                 
045798,000311: 17,3062           13064                           TCF      +2                                    
045799,000312: 17,3063           36211                           CAF      SIX                                   
045800,000313: 17,3064           51515                           INDEX    YNDX                                  
045801,000314: 17,3065           62760                           AD       XLN1NDX                               
045802,000315: 17,3066           50000                           INDEX    A                                     
045803,000316: 17,3067           33140                           CA       YZTABLE                               
045804,000317: 17,3070           73152                           MASK     ACYJETS                               #  = 34360 OCT
045805,000318: 17,3071           61450                           AD       RWORD1                                
045806,000319: 17,3072           55502                           TS       T5TEMP                                
045807,000320: 17,3073           00006                           EXTEND                                         #  FOR EXPLANATION SEE CODING ON RTABLE
045808,000321: 17,3074           74765                           MP       BIT4                                  
045809,000322: 17,3075           66061                           AD       =-4                                   
045810,000323: 17,3076           55522                           TS       NRJETS                                #  NO. OF NET ROLL JETS
045811,000324: 17,3077           00006                           EXTEND                                         
045812,000325: 17,3100           13104                           BZF      TAUCHCK                               #  IF NRJETS = 0
045813,000326: 
045814,000327: 17,3101           31502        BDRACZ             CA       T5TEMP                                #  Y-TRANSLATION ACCEPTED
045815,000328: 17,3102           55450                           TS       RWORD1                                
045816,000329: 17,3103           13263                           TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATIONS
045817,000330: 
045818,000331: 17,3104           11561        TAUCHCK            CCS      TAU                                   
045819,000332: 17,3105           13111                           TCF      NOACY                                 
045820,000333: 17,3106           13101                           TCF      BDRACZ                                
045821,000334: 17,3107           13111                           TCF      NOACY                                 
045822,000335: 17,3110           13101                           TCF      BDRACZ                                
045823,000336: 

Page 1045

045825,000338: 17,3111           31450        NOACY              CA       RWORD1                                #  Y-TRANSLATION NOT ACCEPTED
045826,000339: 17,3112           00006                           EXTEND                                         
045827,000340: 17,3113           74765                           MP       BIT4                                  
045828,000341: 17,3114           67701                           AD       =-2                                   
045829,000342: 17,3115           55522                           TS       NRJETS                                
045830,000343: 17,3116           13263                           TCF      ROLLTIME                              
045831,000344: 

Page 1046

045833,000346: 
045834,000347:                                                                                                  #                TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS
045835,000348: 
045836,000349:                                                                                                  #     EITHER AC OR BD ROLL MAY BE SELECTED. IF AC ROLL IS SELECTED, Y-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY
045837,000350:                                                                                                  #  PROVIDED THAT THERE ARE NO AC QUAD FAILURES. IF THERE ARE AC FAILURES, Y-TRANSLATION COMMANDS WILL BE IGNORED,
045838,000351:                                                                                                  #  IN WHICH CASE THE ASTRONAUT SHOULD SWITCH TO BD ROLL.
045839,000352:                                                                                                  #     IF BDROLL IS SELECTED, Z-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY PROVIDED THAT THERE ARE NO BD QUAD
045840,000353:                                                                                                  #  FAILURES. IF THERE ARE BD FAILURES, Z-TRANSLATION COMMANDS WILL BE IGNORED, IN WHICH CASE THE ASTRONAUT SHOULD
045841,000354:                                                                                                  #  SWITCH TO AC ROLL.
045842,000355:                                                                                                  #     NOTE THAT IF ONE QUAD FAILS (E.G. B FAILED), Z-TRANSLATION IS STILL POSSIBLE AND THAT THE UNDESIREABLE ROLL
045843,000356:                                                                                                  #  INTRODUCED BY THIS TRANSLATION WILL BE COMPENSATED BY THE TWO AC ROLL JETS ACTUATED BY THE AUTOPILOT LOGIC.
045844,000357: 
045845,000358:                                                                                                  #                WORD MAKE UP....RTABLE
045846,000359: 
045847,000360:                                                                                                  #     TWO WORDS, CORRESPONDING TO AC OR BD ROLL SELECTION, HAVE BEEN COMBINED INTO ONE TABLE.  THE WORD CORRESPOND-
045848,000361:                                                                                                  #  ING TO AC ROLL HAS THE FOLLOWING INTERPRETATION..
045849,000362:                                                                                                  #     BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE FOR THE WORD SELECTED. THE CODING IS..
045850,000363: 
045851,000364:                                                                                                  #                        BIT NO.  11 10 9        NO. OF ROLL JETS
045852,000365: 
045853,000366:                                                                                                  #                                  0 0 0                 -2
045854,000367:                                                                                                  #                                  0 0 1                 -1
045855,000368:                                                                                                  #                                  0 1 0                  0
045856,000369:                                                                                                  #                                  0 1 1                 +1
045857,000370:                                                                                                  #                                  1 0 0                 +2
045858,000371: 
045859,000372: 
045860,000373:                                                                                                  #     THIS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM THE YZ-TRANSLATION TABLE, WHICH HAS THE SAME TYPE OF
045861,000374:                                                                                                  #  CODING AS ABOVE, AND THE NET ROLL DETERMINED BY SHIFTING THE RESULTANT WORD RIGHT 8 PLACES AND SUBTRACTING FOUR.
045862,000375: 
045863,000376:                                                                                                  #     THE WORD CORRESPONDING TO BD ROLL HAS A SIMILIAR INTERPRETATION, EXCEPT THAT BITS 12, 13, 14 ARE CODED
045864,000377:                                                                                                  #  (AS ABOVE) TO GIVE THE NET ROLL TORQUE.
045865,000378: 
045866,000379: 
045867,000380:                                                                                                  #  ROLL   TRANS   QUADFAIL   BIAS
045868,000381: 
045869,000382: 17,3117           11000        RTABLE             OCT      11000                                 #   0                         0
045870,000383: 17,3120           22125                           OCT      22125                                 #   +                         0
045871,000384: 17,3121           00252                           OCT      00252                                 #   -                         0
045872,000385: 17,3122           11231                           OCT      11231                                 #   0     +Y(+Z)              3
045873,000386: 17,3123           15421                           OCT      15421                                 #   +     +Y(+Z)              3
045874,000387: 17,3124           04610                           OCT      04610                                 #   -     +Y(+Z)              3
045875,000388: 17,3125           11146                           OCT      11146                                 #   0     -Y(-Z)              6
045876,000389: 17,3126           15504                           OCT      15504                                 #   +     -Y(-Z)              6
045877,000390: 17,3127           04442                           OCT      04442                                 #   -     -Y(-Z)              6
045878,000391: 17,3130           11000                           OCT      11000                                 #   0               A(B)      9
045879,000392: 17,3131           15504                           OCT      15504                                 #   +               A(B)      9
045880,000393: 17,3132           04610                           OCT      04610                                 #   -               A(B)      9
045881,000394: 17,3133           11000                           OCT      11000                                 #   0               C(D)     12
045882,000395: 17,3134           15421                           OCT      15421                                 #   +               C(D)     12
045883,000396: 17,3135           04442                           OCT      04442                                 #   -               C(D)     12
045884,000397: 

Page 1047

045886,000399:                                                                                                  #                RTABLE MASKS -
045887,000400: 
045888,000401: 17,3136           03760        ACRJETS            OCT      03760                                 
045889,000402: 17,3137           34017        BDRJETS            OCT      34017                                 
045890,000403: 

Page 1048

045892,000405:                                                                                                  #                Y, Z TRANSLATION TABLE
045893,000406: 
045894,000407:                                                                                                  #      ONCE AC OR BD ROLL IS SELECTED THE QUAD PAIR WHICH IS NOT BEING USED TO SATISFY THE ROLL COMMANDS MAY BE
045895,000408:                                                                                                  #  USED TO SATISFY THE REMAINING TRANSLATION COMMANDS.  HOWEVER, WE MUST MAKE SURE THAT ROLL COMMANDS ARE SATISFIED
045896,000409:                                                                                                  #  WHEN THEY OCCUR.  THEREFORE, THE Y-Z TRANSLATIONS FROM THIS TABLE WILL BE IGNORED IF THE NET ROLL TORQUE OF THE
045897,000410:                                                                                                  #  COMBINED WORD IS ZERO AND THE ROLL COMMANDS ARE NON-ZERO.  THIS SITUATION WOULD OCCUR, FOR EXAMPLE, IF WE EN-
045898,000411:                                                                                                  #  COUNTER SIMULTANEOUS +R +Y -Z COMMANDS AND A QUAD D FAILURE WHILE USING AC FOR ROLL.
045899,000412:                                                                                                  #     TO FACILITATE THE LOGIC, THE Y-Z TRANSLATION TABLE HAS BEEN CODED IN A MANNER SIMILIAR TO THE ROLL TABLE
045900,000413:                                                                                                  #  ABOVE.
045901,000414:                                                                                                  #     BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Z-TRANSLATIONS.  THE WORD SELECTED CAN THEN BE
045902,000415:                                                                                                  #  ADDED TO THE AC-ROLL WORD AND THE RESULTANT ROLL TORQUE DETERMINED FROM THE COMBINED WORD.  SIMILIARLY BITS
045903,000416:                                                                                                  #  12,13,14 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Y-TRANSLATIONS WHEN BD-ROLL IS SELECTED.
045904,000417: 
045905,000418:                                                                                                  #  TRANSLATION    QUADFAIL    BIAS
045906,000419: 
045907,000420: 17,3140           11000        YZTABLE            OCT      11000                                 #       0                       0
045908,000421: 17,3141           11231                           OCT      11231                                 #    +Z(+Y)                     0
045909,000422: 17,3142           11146                           OCT      11146                                 #    -Z(-Y)                     0
045910,000423: 17,3143           11000                           OCT      11000                                 #       0           B(A)        3
045911,000424: 17,3144           04610                           OCT      04610                                 #    +Z(+Y)         B(A)        3
045912,000425: 17,3145           15504                           OCT      15504                                 #    -Z(-Y)         B(A)        3
045913,000426: 17,3146           11000                           OCT      11000                                 #       0           D(C)        6
045914,000427: 17,3147           15421                           OCT      15421                                 #    +Z(+Y)         D(C)        6
045915,000428: 17,3150           04442                           OCT      04442                                 #    -Z(-Y)         D(C)        6
045916,000429: 
045917,000430:                                                                                                  #                YZ-TABLE MASKS-
045918,000431: 
045919,000432: 17,3151           03417        BDZJETS            OCT      03417                                 
045920,000433: 17,3152           34360        ACYJETS            OCT      34360                                 
045921,000434: 
045922,000435:                                                                                                  #                ADDITIONAL CONSTANTS
045923,000436: 
045924,000437: 17,3153     7701               =-2                =        NEG2                                  
045925,000438: 17,3153     6061               =-4                =        NEG4                                  
045926,000439: 

Page 1049

045928,000441:                                                                                                  #                CALCULATION OF JET ON-TIMES
045929,000442: 
045930,000443:                                                                                                  #     THE ROTATION COMMANDS (TAU:S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET
045931,000444:                                                                                                  #  OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS.  TAU MUST
045932,000445:                                                                                                  #  ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5 INT-
045933,000446:                                                                                                  #  ERVAL.
045934,000447:                                                                                                  #     IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES
045935,000448:                                                                                                  #  (DFT:S, ALSO IN TERMS OF 1-JET OPERATION) FOR THE RATE FILTER.
045936,000449:                                                                                                  #     NOTE THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO ROTATIONS WERE CALLED FOR.  NEVERTHELESS, WE MUST
045937,000450:                                                                                                  #  UPDATE DFT.
045938,000451:                                                                                                  #     WHEN THE ROTATIONS HAVE FINISHED, WE MUST PROVIDE CHANNEL INFORMATION TO THE T6 PROGRAM TO CONTINUE ON WITH
045939,000452:                                                                                                  #  THE TRANSLATIONS.  THIS WILL BE DONE IN THE NEXT SECTION.  HOWEVER, TO INSURE THAT JETS ARE NOT FIRED FOR LESS
045940,000453:                                                                                                  #  THAN A MINIMUM IMPULSE (14MS), ALL JET CHANNEL COMMANDS WILL BE HELD FIXED FROM THE START OF THE T5 PROGRAM FOR
045941,000454:                                                                                                  #  AT LEAST 14MS UNTIL THE INITIALIZATION OF NEW COMMANDS.  MOREOVER, A 14MS ON-TIME WILL BE ADDED TO ANY ROTATIONAL
045942,000455:                                                                                                  #  COMMANDS GENERATED BY THE MANUAL CONTROLS OR THE JET SWITCHING LOGIC, AND ALL TRANSLATION COMMANDS WILL BE
045943,000456:                                                                                                  #  ACTIVE FOR AT LEAST ONE CYCLE OF THE T5 PROGRAM (.1SEC)
045944,000457: 
045945,000458:                                                                                                  #                PITCH JET ON-TIME CALCULATION
045946,000459: 
045947,000460: 17,3153           11562        PITCHTIM           CCS      TAU1                                  
045948,000461: 17,3154           13163                           TCF      PTAUPOS                               
045949,000462: 17,3155           13157                           TCF      +2                                    
045950,000463: 17,3156           13161                           TCF      PTAUNEG                               
045951,000464: 17,3157           55550                           TS       DFT1                                  #  NO PITCH ROTATION
045952,000465: 17,3160           13361                           TCF      PBYPASS                               #  COMMANDS
045953,000466: 
045954,000467: 17,3161           41523        PTAUNEG            CS       NPJETS                                
045955,000468: 17,3162           55523                           TS       NPJETS                                
045956,000469: 17,3163           31562        PTAUPOS            CA       TAU1                                  
045957,000470: 17,3164           00006                           EXTEND                                         
045958,000471: 17,3165           51523                           INDEX    NPJETS                                
045959,000472: 17,3166           73342                           MP       NJET                                  
045960,000473: 17,3167           55460                           TS       BLAST1                                
045961,000474: 17,3170           63275                           AD       =-.1SEC                               
045962,000475: 17,3171           00006                           EXTEND                                         
045963,000476: 17,3172           63203                           BZMF     AD14MSP                               
045964,000477: 17,3173           51523                           INDEX    NPJETS                                
045965,000478: 17,3174           33276                           CA       DFTMAX                                #  THE PITCH ON-TIME IS GREATER THAN .1 SEC
045966,000479: 17,3175           55550                           TS       DFT1                                  
045967,000480: 17,3176           40000                           COM                                            
045968,000481: 17,3177           27562                           ADS      TAU1                                  #  UPDATE TAU1
045969,000482: 17,3200           33277                           CAF      =+.1SEC                               #  LIMIT THE LENGTH OF PITCH ROTATION
045970,000483: 17,3201           55460                           TS       BLAST1                                #  COMMANDS TO 0.1 SEC SO THAT ONLY
045971,000484: 17,3202           13346                           TCF      ASMBLWP                               #  X-TRANSLATIONS WILL CONTINUE ON SWITCH
045972,000485:                                                                                                  #  OVER TO TVC
045973,000486: 17,3203           41460        AD14MSP            CS       BLAST1                                #  SEE IF JET ON TIME LESS THAN
045974,000487: 17,3204           63302                           AD       =14MS                                 #  MINIMUM IMPULSE TIME
045975,000488: 17,3205           00006                           EXTEND                                         
045976,000489: 17,3206           63211                           BZMF     PBLASTOK                              #  IF SO LIMIT MINIMUM ON TIME TO 14 MS
045977,000490: 17,3207           33302                           CAF      =14MS                                 

Page 1050

045979,000492: 17,3210           55460                           TS       BLAST1                                
045980,000493: 17,3211           31460        PBLASTOK           CA       BLAST1                                
045981,000494: 17,3212           00006                           EXTEND                                         #  THE PITCH COMMANDS WILL BE COMPLETED
045982,000495: 17,3213           71523                           MP       NPJETS                                #  WITHIN THE TS-CYCLE TIME
045983,000496: 17,3214           23550                           LXCH     DFT1                                  #  FOR USE IN UPDATING RATE FILTER
045984,000497: 17,3215           55562                           TS       TAU1                                  #  ZERO TAU1 (ACC CONTAINS ZERO)
045985,000498: 17,3216           13346                           TCF      ASMBLWP                               
045986,000499: 

Page 1051

045988,000501:                                                                                                  #                YAW JET ON-TIME CALCULATION
045989,000502: 
045990,000503: 17,3217           11563        YAWTIME            CCS      TAU2                                  
045991,000504: 17,3220           13227                           TCF      YTAUPOS                               
045992,000505: 17,3221           13223                           TCF      +2                                    
045993,000506: 17,3222           13225                           TCF      YTAUNEG                               
045994,000507: 17,3223           55551                           TS       DFT2                                  #  NO YAW ROTATION COMMANDS
045995,000508: 17,3224           13525                           TCF      YBYPASS                               
045996,000509: 
045997,000510: 17,3225           41524        YTAUNEG            CS       NYJETS                                
045998,000511: 17,3226           55524                           TS       NYJETS                                
045999,000512: 17,3227           31563        YTAUPOS            CA       TAU2                                  
046000,000513: 17,3230           00006                           EXTEND                                         
046001,000514: 17,3231           51524                           INDEX    NYJETS                                
046002,000515: 17,3232           73342                           MP       NJET                                  
046003,000516: 17,3233           55462                           TS       BLAST2                                
046004,000517: 17,3234           63275                           AD       =-.1SEC                               
046005,000518: 17,3235           00006                           EXTEND                                         
046006,000519: 17,3236           63247                           BZMF     AD14MSY                               
046007,000520: 17,3237           51524                           INDEX    NYJETS                                
046008,000521: 17,3240           33276                           CA       DFTMAX                                #  YAW COMMANDS WILL LAST LONGER THAN .1SEC
046009,000522: 17,3241           55551                           TS       DFT2                                  
046010,000523: 17,3242           40000                           COM                                            
046011,000524: 17,3243           27563                           ADS      TAU2                                  #  DECREMENT TAU2
046012,000525: 17,3244           33277                           CAF      =+.1SEC                               #  LIMIT THE LENGTH OF YAW ROTATION COMMAND
046013,000526: 17,3245           55462                           TS       BLAST2                                #  TO 0.1 SEC SO THAT ONLY X-TRANSLATION
046014,000527: 17,3246           13512                           TCF      ASMBLWY                               #  WILL CONTINUE ON SWITCH OVER TO TVC
046015,000528: 
046016,000529: 17,3247           41462        AD14MSY            CS       BLAST2                                #  SEE IF JET ON-TIME LESS THAN
046017,000530: 17,3250           63302                           AD       =14MS                                 #  MINIMUM IMPULSE TIME
046018,000531: 17,3251           00006                           EXTEND                                         
046019,000532: 17,3252           63255                           BZMF     YBLASTOK                              #  IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
046020,000533: 17,3253           33302                           CAF      =14MS                                 
046021,000534: 17,3254           55462                           TS       BLAST2                                
046022,000535: 17,3255           31462        YBLASTOK           CA       BLAST2                                #  YAW COMMANDS WILL BE COMPLETED WITHIN
046023,000536: 17,3256           00006                           EXTEND                                         #  THE T5CYCLE TIME
046024,000537: 17,3257           71524                           MP       NYJETS                                
046025,000538: 17,3260           23551                           LXCH     DFT2                                  
046026,000539: 17,3261           55563                           TS       TAU2                                  #  ZERO TAU2
046027,000540: 17,3262           13512                           TCF      ASMBLWY                               
046028,000541: 

Page 1052

046030,000543:                                                                                                  #                ROLL ON-TIME CALCULATION-
046031,000544: 
046032,000545: 17,3263           11561        ROLLTIME           CCS      TAU                                   
046033,000546: 17,3264           13303                           TCF      RBLAST                                
046034,000547: 17,3265           13267                           TCF      +2                                    
046035,000548: 17,3266           13303                           TCF      RBLAST                                
046036,000549: 17,3267           51522                           INDEX    NRJETS                                
046037,000550: 17,3270           33276                           CA       DFTMAX                                #  UPDATE DFT EVEN THO NO ROLL COMMANDS ARE
046038,000551: 17,3271           55547                           TS       DFT                                   #  PRESENT
046039,000552: 17,3272           13505                           TCF      RBYPASS                               
046040,000553: 
046041,000554: 17,3273           77037                           DEC      -480       B-14                       #  = -.3SEC
046042,000555: 17,3274           77277                           DEC      -320       B-14                       #  = -.2SEC
046043,000556: 17,3275           77537        =-.1SEC            DEC      -160       B-14                       #  = -.1SEC
046044,000557: 17,3276           00000        DFTMAX             DEC      0          B-14                       #  0
046045,000558: 17,3277           00240        =+.1SEC            DEC      160        B-14                       #  = +.1SEC
046046,000559: 17,3300           00500                           DEC      320        B-14                       #  = +.2SEC
046047,000560: 17,3301           00740                           DEC      480        B-14                       #  = +.3SEC
046048,000561: 17,3302           00027        =14MS              DEC      23         B-14                       #  =14MS
046049,000562: 
046050,000563: 17,3303           31561        RBLAST             CA       TAU                                   
046051,000564: 17,3304           00006                           EXTEND                                         
046052,000565: 17,3305           51522                           INDEX    NRJETS                                
046053,000566: 17,3306           73342                           MP       NJET                                  
046054,000567: 17,3307           55456                           TS       BLAST                                 #  BLAST IS AN INTERMEDIATE VARIABLE
046055,000568:                                                                                                  #  USED IN DETERMINING THE JET ON-TIMES
046056,000569: 17,3310           63275                           AD       =-.1SEC                               
046057,000570: 17,3311           00006                           EXTEND                                         
046058,000571: 17,3312           63323                           BZMF     AD14MSR                               
046059,000572: 17,3313           51522                           INDEX    NRJETS                                #  THE ROLL ROTATION WILL LAST LONGER
046060,000573: 17,3314           33276                           CA       DFTMAX                                #  THAN THE T5 CYCLE TIME
046061,000574: 17,3315           55547                           TS       DFT                                   
046062,000575: 17,3316           40000                           COM                                            
046063,000576: 17,3317           27561                           ADS      TAU                                   
046064,000577: 17,3320           33277                           CAF      =+.1SEC                               #  LIMIT THE LENGTH OF ROLL ROTATION
046065,000578: 17,3321           55456                           TS       BLAST                                 #  COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z
046066,000579: 17,3322           13366                           TCF      ASMBLWR                               #  TRANSLATION COMMANDS CONTINUE
046067,000580: 
046068,000581: 17,3323           41456        AD14MSR            CS       BLAST                                 #  SEE IF THE JET ON-TIME LESS THAN
046069,000582: 17,3324           63302                           AD       =14MS                                 #  MINIMUM IMPULSE TIME
046070,000583: 17,3325           00006                           EXTEND                                         
046071,000584: 17,3326           63331                           BZMF     RBLASTOK                              
046072,000585: 17,3327           33302                           CAF      =14MS                                 #  IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
046073,000586: 17,3330           55456                           TS       BLAST                                 
046074,000587: 17,3331           31456        RBLASTOK           CA       BLAST                                 
046075,000588: 17,3332           00006                           EXTEND                                         
046076,000589: 17,3333           71522                           MP       NRJETS                                
046077,000590: 17,3334           23547                           LXCH     DFT                                   
046078,000591: 17,3335           55561                           TS       TAU                                   #  ZERO TAU
046079,000592: 17,3336           13366                           TCF      ASMBLWR                               
046080,000593: 

Page 1053

046082,000595: 17,3337           65252                           DEC      -.333333                              #  = -1/3
046083,000596: 17,3340           57777                           DEC      -.500000                              #  = -1/2
046084,000597: 17,3341           40000                           DEC      -.999999                              #  = -1 (NEGMAX)
046085,000598: 17,3342           00000        NJET               DEC      0          B-14                       
046086,000599: 17,3343           37777                           DEC      .999999                               #  = +1 (POSMAX)
046087,000600: 17,3344           20000                           DEC      .500000                               #  = +1/2
046088,000601: 17,3345           12525                           DEC      .333333                               #  = +1/3
046089,000602: 

Page 1054

046091,000604:                                                                                                  #     WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH
046092,000605:                                                                                                  #  CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT.
046093,000606:                                                                                                  #     IN THIS SECTION THESE NEW COMMANDS ARE GENERATED AND STORED FOR REPLACEMENT OF THE CHANNEL COMMANDS WHEN THE
046094,000607:                                                                                                  #  CORRESPONDING ROTATIONS ARE COMPLETED.
046095,000608: 
046096,000609:                                                                                                  #  GENERATION OF THE SECOND PITCH(X-TRANS) WORD...PWORD2
046097,000610: 
046098,000611: 17,3346           11626        ASMBLWP            CCS      RACFAIL                               
046099,000612: 17,3347           13355                           TCF      FPX2                                  #  IF FAILURE ON AC IGNORE X-TRANSLATION
046100,000613: 17,3350           13352                           TCF      +2                                    
046101,000614: 17,3351           13355                           TCF      FPX2                                  
046102,000615: 17,3352           51513                           INDEX    XNDX1                                 
046103,000616: 17,3353           32647                           CA       XLNNDX                                
046104,000617: 17,3354           50000                           INDEX    A                                     
046105,000618: 17,3355           32703        FPX2               CA       PYTABLE                               
046106,000619: 17,3356           72722                           MASK     PJETS                                 
046107,000620: 17,3357           55453                           TS       PWORD2                                
046108,000621: 17,3360           13217                           TCF      YAWTIME                               
046109,000622: 
046110,000623: 17,3361           31452        PBYPASS            CA       PWORD1                                #  THE T6 PROGRAM WILL LOAD PWORD2
046111,000624: 17,3362           55453                           TS       PWORD2                                #  UPON ENTRY
046112,000625: 17,3363           34772                           CAF      ZERO                                  
046113,000626: 17,3364           55460                           TS       BLAST1                                #  THERE IS NO PWORD2
046114,000627: 17,3365           13217                           TCF      YAWTIME                               
046115,000628: 

Page 1055

046117,000630:                                                                                                  #  GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2)
046118,000631: 
046119,000632: 17,3366           11515        ASMBLWR            CCS      YNDX                                  #  CHECK FOR Y-TRANS
046120,000633: 17,3367           13377                           TCF      ACBD2Y                                
046121,000634: 17,3370           34772        NO2Y               CAF      ZERO                                  
046122,000635: 17,3371           55451                 +1        TS       RWORD2                                
046123,000636: 17,3372           11516                           CCS      ZNDX                                  #  CHECK FOR Z-TRANS
046124,000637: 17,3373           13442                           TCF      ACBD2Z                                
046125,000638: 17,3374           34772        NO2Z               CAF      ZERO                                  
046126,000639: 17,3375           27451                 +1        ADS      RWORD2                                
046127,000640: 17,3376           13153                           TCF      PITCHTIM                              #  RWORD2 ASSEMBLED
046128,000641: 
046129,000642: 17,3377           11630        ACBD2Y             CCS      ACORBD                                
046130,000643: 17,3400           13415                           TCF      AC2Y                                  #  CAN DO Y-TRANS
046131,000644: 17,3401           13415                           TCF      AC2Y                                  
046132,000645: 17,3402           13403                           TCF      +1                                    #  USING AC FOR ROLL
046133,000646: 17,3403           11626                           CCS      RACFAIL                               
046134,000647: 17,3404           13370                           TCF      NO2Y                                  #  USING AC AND AC HAS FAILED
046135,000648: 17,3405           13407                           TCF      +2                                    
046136,000649: 17,3406           13370                           TCF      NO2Y                                  #  DITTO
046137,000650: 
046138,000651: 17,3407           51515                           INDEX    YNDX                                  #  NO FAILURES, CAN DO Y
046139,000652: 17,3410           32647                           CA       XLNNDX                                
046140,000653: 17,3411           50000                           INDEX    A                                     
046141,000654: 17,3412           33117                           CA       RTABLE                                
046142,000655: 17,3413           73136                           MASK     ACRJETS                               
046143,000656: 17,3414           13371                           TCF      NO2Y       +1                         
046144,000657: 
046145,000658: 17,3415           11626        AC2Y               CCS      RACFAIL                               
046146,000659: 17,3416           36214                           CAF      THREE                                 
046147,000660: 17,3417           13421                           TCF      +2                                    
046148,000661: 17,3420           36211                           CAF      SIX                                   
046149,000662: 17,3421           51515                           INDEX    YNDX                                  
046150,000663: 17,3422           62760                           AD       XLN1NDX                               
046151,000664: 17,3423           50000                           INDEX    A                                     
046152,000665: 17,3424           33140                           CA       YZTABLE                               
046153,000666: 17,3425           73152                           MASK     ACYJETS                               
046154,000667: 17,3426           55451                           TS       RWORD2                                
046155,000668: 17,3427           00006                           EXTEND                                         
046156,000669: 17,3430           74765                           MP       BIT4                                  
046157,000670: 17,3431           67701                           AD       =-2                                   
046158,000671: 17,3432           55522                           TS       NRJETS                                
046159,000672: 17,3433           41456                           CS       BLAST                                 
046160,000673: 17,3434           63277                           AD       =+.1SEC                               
046161,000674: 17,3435           00006                           EXTEND                                         
046162,000675: 17,3436           71522                           MP       NRJETS                                
046163,000676: 17,3437           30001                           CA       L                                     
046164,000677: 17,3440           27547                           ADS      DFT                                   
046165,000678: 17,3441           13372                           TCF      NO2Y       +2                         

Page 1056

046167,000680: 17,3442           11630        ACBD2Z             CCS      ACORBD                                
046168,000681: 17,3443           13473                           TCF      BDF2Z                                 #  USING BD-ROLL
046169,000682: 17,3444           13473                           TCF      BDF2Z                                 #  MUST CHECK FOR BD FAILURES
046170,000683: 17,3445           13446                           TCF      +1                                    
046171,000684: 17,3446           11627                           CCS      RBDFAIL                               #  USING AC FOR ROLL, CAN DO Z-TRANS
046172,000685: 17,3447           36214                           CAF      THREE                                 
046173,000686: 17,3450           13452                           TCF      +2                                    
046174,000687: 17,3451           36211                           CAF      SIX                                   
046175,000688: 17,3452           51516                           INDEX    ZNDX                                  
046176,000689: 17,3453           62760                           AD       XLN1NDX                               
046177,000690: 17,3454           50000                           INDEX    A                                     
046178,000691: 17,3455           33140                           CA       YZTABLE                               
046179,000692: 17,3456           73151                           MASK     BDZJETS                               
046180,000693: 17,3457           27451                           ADS      RWORD2                                
046181,000694: 17,3460           00006                           EXTEND                                         
046182,000695: 17,3461           74762                           MP       BIT7                                  
046183,000696: 17,3462           67701                           AD       =-2                                   
046184,000697: 17,3463           55522                           TS       NRJETS                                
046185,000698: 17,3464           41456                           CS       BLAST                                 
046186,000699: 17,3465           63277                           AD       =+.1SEC                               
046187,000700: 17,3466           00006                           EXTEND                                         
046188,000701: 17,3467           71522                           MP       NRJETS                                
046189,000702: 17,3470           30001                           CA       L                                     
046190,000703: 17,3471           27547                           ADS      DFT                                   
046191,000704: 17,3472           13153                           TCF      PITCHTIM                              
046192,000705: 
046193,000706: 17,3473           11627        BDF2Z              CCS      RBDFAIL                               
046194,000707: 17,3474           13374                           TCF      NO2Z                                  #  USING BD-ROLL AND BD HAS FAILED
046195,000708: 17,3475           13477                           TCF      +2                                    
046196,000709: 17,3476           13374                           TCF      NO2Z                                  #  DITTO
046197,000710: 17,3477           51516                           INDEX    ZNDX                                  
046198,000711: 17,3500           32647                           CA       XLNNDX                                
046199,000712: 17,3501           50000                           INDEX    A                                     
046200,000713: 17,3502           33117                           CA       RTABLE                                
046201,000714: 17,3503           73137                           MASK     BDRJETS                               
046202,000715: 17,3504           13375                           TCF      NO2Z       +1                         
046203,000716: 
046204,000717: 17,3505           31450        RBYPASS            CA       RWORD1                                
046205,000718: 17,3506           55451                           TS       RWORD2                                
046206,000719: 17,3507           34772                           CAF      ZERO                                  
046207,000720: 17,3510           55456                           TS       BLAST                                 
046208,000721: 17,3511           13153                           TCF      PITCHTIM                              
046209,000722: 

Page 1057

046211,000724:                                                                                                  #                GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2
046212,000725: 
046213,000726: 17,3512           11627        ASMBLWY            CCS      RBDFAIL                               
046214,000727: 17,3513           13521                           TCF      FYX2                                  #  IF FAILURE ON BD IGNORE X-TRANSLATION
046215,000728: 17,3514           13516                           TCF      +2                                    
046216,000729: 17,3515           13521                           TCF      FYX2                                  
046217,000730: 17,3516           51514                           INDEX    XNDX2                                 
046218,000731: 17,3517           32647                           CA       XLNNDX                                
046219,000732: 17,3520           50000                           INDEX    A                                     
046220,000733: 17,3521           32703        FYX2               CA       PYTABLE                               
046221,000734: 17,3522           72723                           MASK     YJETS                                 
046222,000735: 17,3523           55455                           TS       YWORD2                                
046223,000736: 17,3524           13531                           TCF      T6SETUP                               
046224,000737: 
046225,000738: 17,3525           31454        YBYPASS            CA       YWORD1                                
046226,000739: 17,3526           55455                           TS       YWORD2                                
046227,000740: 17,3527           34772                           CAF      ZERO                                  
046228,000741: 17,3530           55462                           TS       BLAST2                                
046229,000742: 

Page 1058

046231,000744:                                                                                                  #                SORT THE JET ON-TIMES
046232,000745: 
046233,000746:                                                                                                  #     AT THIS POINT ALL THE CHANNEL COMMANDS AND JET ON-TIMES HAVE BEEN DETERMINED. IN SUMMARY THESE ARE-
046234,000747: 
046235,000748:                                                                                                  #                RWORD1
046236,000749:                                                                                                  #                RWORD2          BLAST
046237,000750: 
046238,000751:                                                                                                  #                PWORD1
046239,000752:                                                                                                  #                PWORD2          BLAST1
046240,000753: 
046241,000754:                                                                                                  #                YWORD1
046242,000755:                                                                                                  #                YWORD2          BLAST2
046243,000756: 
046244,000757:                                                                                                  #      IN THIS SECTION THE JET ON-TIMES ARE SORTED AND THE SEQUENCE OF T6 INTERRUPTS IS DETERMINED.  TO FACILITATE
046245,000758:                                                                                                  #  THE SORTING PROCESS AND THE T6 PROGRAM, THE VARIABLES BLAST, BLAST1, BLAST2, ARE RESERVED AS DOUBLE PRECISION
046246,000759:                                                                                                  #  WORDS.  THE LOWER PART OF THESE WORDS CONTAIN A BRANCH INDEX ASSOCIATED WITH THE ROTATION AXIS OF THE HIGHER
046247,000760:                                                                                                  #  ORDER WORD.
046248,000761: 
046249,000762: 17,3531           34772        T6SETUP            CAF      ZERO                                  #  BRANCH INDEX FOR ROLL
046250,000763: 17,3532           55457                           TS       BLAST      +1                         
046251,000764: 17,3533           34766                           CAF      FOUR                                  #  BRANCH INDEX FOR PITCH
046252,000765: 17,3534           55461                           TS       BLAST1     +1                         
046253,000766: 17,3535           34775                           CAF      ELEVEN                                #  BRANCH INDEX FOR YAW
046254,000767: 17,3536           55463                           TS       BLAST2     +1                         
046255,000768: 
046256,000769: 17,3537           41456                           CS       BLAST                                 
046257,000770: 17,3540           61460                           AD       BLAST1                                
046258,000771: 17,3541           00006                           EXTEND                                         
046259,000772: 17,3542           63566                           BZMF     DXCHT12                               #  T1 GR T2
046260,000773: 17,3543           41460        CHECKT23           CS       BLAST1                                
046261,000774: 17,3544           61462                           AD       BLAST2                                
046262,000775: 17,3545           00006                           EXTEND                                         
046263,000776: 17,3546           63572                           BZMF     DXCHT23                               
046264,000777: 17,3547           41460        CALCDT6            CS       BLAST1                                
046265,000778: 17,3550           27462                           ADS      BLAST2                                
046266,000779: 17,3551           41456                           CS       BLAST                                 
046267,000780: 17,3552           27460                           ADS      BLAST1                                #  END OF SORTING PROCEDURE
046268,000781: 17,3553           00006                           EXTEND                                         #  RESET T5LOC TO BEGIN PHASE1
046269,000782: 17,3554           33565                           DCA      RCS2CADR                              
046270,000783: 17,3555           52113                           DXCH     T5LOC                                 
046271,000784: 17,3556           44770        ENDJETS            CS       BIT1                                  #  RESET BIT1 FOR INITIALIZATION OF
046272,000785: 17,3557           71501                           MASK     RCSFLAGS                              #  T6 PROGRAM
046273,000786: 17,3560           55501                           TS       RCSFLAGS                              
046274,000787: 17,3561           44772                           CS       ZERO                                  #  RESET T5PHASE FOR PHASE1
046275,000788: 17,3562           55464                           TS       T5PHASE                               
046276,000789: 17,3563           15323                           TCF      RESUME                                #  RESUME INTERRUPTED PROGRAM
046277,000790: 
046278,000791: 17,3564  E6,1510                                  EBANK=   KMPAC                                 
046279,000792: 17,3564           02140 42066  RCS2CADR           2CADR    RCSATT                                
046280,000793: 

Page 1059

046282,000795: 17,3566           53457        DXCHT12            DXCH     BLAST                                 
046283,000796: 17,3567           53461                           DXCH     BLAST1                                
046284,000797: 17,3570           53457                           DXCH     BLAST                                 
046285,000798: 17,3571           13543                           TCF      CHECKT23                              
046286,000799: 
046287,000800: 17,3572           53461        DXCHT23            DXCH     BLAST1                                
046288,000801: 17,3573           53463                           DXCH     BLAST2                                
046289,000802: 17,3574           53461                           DXCH     BLAST1                                
046290,000803: 17,3575           41456                           CS       BLAST                                 
046291,000804: 17,3576           61460                           AD       BLAST1                                
046292,000805: 17,3577           00006                           EXTEND                                         
046293,000806: 17,3600           63602                           BZMF     +2                                    
046294,000807: 17,3601           13547                           TCF      CALCDT6                               
046295,000808: 17,3602           53457                           DXCH     BLAST                                 
046296,000809: 17,3603           53461                           DXCH     BLAST1                                
046297,000810: 17,3604           53457                           DXCH     BLAST                                 
046298,000811: 17,3605           13547                           TCF      CALCDT6                               
046299,000812: 

Page 1060

046301,000814:                                                                                                  #                T6 PROGRAM AND CHANNEL SETUP
046302,000815: 
046303,000816: 17,2000                                           SETLOC   DAPS5                                 
046304,000817: 17,2000                                           BANK                                           
046305,000818: 
046306,000819: 17,3606                                           COUNT*   $$/T6RPT                              
046307,000820: 17,3606           22016        T6START            LXCH     BANKRUPT                              
046308,000821: 17,3607           00006                           EXTEND                                         
046309,000822: 17,3610           22012                           QXCH     QRUPT                                 
046310,000823: 17,3611           10031                           CCS      TIME6                                 #  CHECK TO SEE IF TIME6 WAS RESET
046311,000824: 17,3612           15323                           TCF      RESUME                                #  AFTER T6RUPT OCCURED(IN T5RUPT)
046312,000825: 17,3613           13615                           TCF      +2                                    #  IF SO WAIT FOR NEXT T6RUPT BEFORE
046313,000826: 17,3614           15323                           TCF      RESUME                                #  TAKING ACTION
046314,000827: 
046315,000828: 17,3615           41501                           CS       RCSFLAGS                              
046316,000829: 17,3616           74770                           MASK     BIT1                                  #  IF BIT1 IS 0 RESET TO 1
046317,000830: 17,3617           00006                           EXTEND                                         #  AND INITIALIZE CHANNEL
046318,000831: 17,3620           13631                           BZF      T6RUPTOR                              
046319,000832: 17,3621           27501                           ADS      RCSFLAGS                              
046320,000833: 17,3622           31450                           CA       RWORD1                                
046321,000834: 17,3623           00006                           EXTEND                                         #  INITIALIZE CHANNELS 5,6 WITH WORD1
046322,000835: 17,3624           01006                           WRITE    CHAN6                                 
046323,000836: 17,3625           31452                           CA       PWORD1                                
046324,000837: 17,3626           61454                           AD       YWORD1                                
046325,000838: 17,3627           00006                           EXTEND                                         
046326,000839: 17,3630           01005                           WRITE    CHAN5                                 
046327,000840: 
046328,000841: 17,3631           11456        T6RUPTOR           CCS      BLAST                                 
046329,000842: 17,3632           13711                           TCF      ZBLAST                                #  ZERO BLAST1
046330,000843: 17,3633           13650                           TCF      REPLACE                               #  REPLACE WORD1
046331,000844: 17,3634           13636                           TCF      +2                                    
046332,000845: 17,3635           13650                           TCF      REPLACE                               
046333,000846: 17,3636           11460        T6L1               CCS      BLAST1                                
046334,000847: 17,3637           13714                           TCF      ZBLAST1                               
046335,000848: 17,3640           13655                           TCF      REPLACE1                              
046336,000849: 17,3641           13643                           TCF      +2                                    
046337,000850: 17,3642           13655                           TCF      REPLACE1                              
046338,000851: 17,3643           11462        T6L2               CCS      BLAST2                                
046339,000852: 17,3644           13717                           TCF      ZBLAST2                               
046340,000853: 17,3645           13662                           TCF      REPLACE2                              
046341,000854: 17,3646           15323                           TCF      RESUME                                
046342,000855: 17,3647           13662                           TCF      REPLACE2                              
046343,000856: 
046344,000857: 17,3650           51457        REPLACE            INDEX    BLAST      +1                         
046345,000858: 17,3651           03667                           TC       REPLACER                              
046346,000859: 17,3652           44770                           CS       ONE                                   
046347,000860: 17,3653           55456                           TS       BLAST                                 
046348,000861: 17,3654           13636                           TCF      T6L1                                  
046349,000862: 
046350,000863: 17,3655           51461        REPLACE1           INDEX    BLAST1     +1                         

Page 1061

046352,000865: 17,3656           03667                           TC       REPLACER                              
046353,000866: 17,3657           44770                           CS       ONE                                   
046354,000867: 17,3660           55460                           TS       BLAST1                                
046355,000868: 17,3661           13643                           TCF      T6L2                                  
046356,000869: 
046357,000870: 17,3662           51463        REPLACE2           INDEX    BLAST2     +1                         
046358,000871: 17,3663           03667                           TC       REPLACER                              
046359,000872: 17,3664           44770                           CS       ONE                                   
046360,000873: 17,3665           55462                           TS       BLAST2                                
046361,000874: 17,3666           15323                           TCF      RESUME                                
046362,000875: 
046363,000876: 17,3667           31451        REPLACER           CA       RWORD2                                #  INITIALIZE CHANNELS 5,6 WITH WORD2
046364,000877: 17,3670           00006                           EXTEND                                         
046365,000878: 17,3671           01006                           WRITE    CHAN6                                 
046366,000879: 17,3672           00002                           TC       Q                                     
046367,000880: 
046368,000881: 17,3673           32723        REPLACEP           CA       YJETS                                 
046369,000882: 17,3674           00006                           EXTEND                                         
046370,000883: 17,3675           02005                           RAND     CHAN5                                 
046371,000884: 17,3676           61453                           AD       PWORD2                                
046372,000885: 17,3677           00006                           EXTEND                                         
046373,000886: 17,3700           01005                           WRITE    CHAN5                                 
046374,000887: 17,3701           00002                           TC       Q                                     
046375,000888: 
046376,000889: 17,3702           32722        REPLACEY           CA       PJETS                                 
046377,000890: 17,3703           00006                           EXTEND                                         
046378,000891: 17,3704           02005                           RAND     CHAN5                                 
046379,000892: 17,3705           61455                           AD       YWORD2                                
046380,000893: 17,3706           00006                           EXTEND                                         
046381,000894: 17,3707           01005                           WRITE    CHAN5                                 
046382,000895: 17,3710           00002                           TC       Q                                     
046383,000896: 
046384,000897: 17,3711           34772        ZBLAST             CAF      ZERO                                  
046385,000898: 17,3712           57456                           XCH      BLAST                                 
046386,000899: 17,3713           13721                           TCF      ENABT6                                
046387,000900: 17,3714           34772        ZBLAST1            CAF      ZERO                                  
046388,000901: 17,3715           57460                           XCH      BLAST1                                
046389,000902: 17,3716           13721                           TCF      ENABT6                                
046390,000903: 17,3717           34772        ZBLAST2            CAF      ZERO                                  
046391,000904: 17,3720           57462                           XCH      BLAST2                                
046392,000905: 17,3721           54031        ENABT6             TS       TIME6                                 
046393,000906: 17,3722           04542                           TC       C13STALL                              
046394,000907: 17,3723           34752                           CAF      NEGMAX                                
046395,000908: 17,3724           00006                           EXTEND                                         
046396,000909: 17,3725           05013                           WOR      CHAN13                                #  ENABLE T6RUPT
046397,000910: 17,3726           15323                           TCF      RESUME                                
046398,000911: 
046399,000912:                                                                                                  #  END OF T6 INTERRUPT
046400,000913: 
046401,000914: 17,3727                        ENDSLECT           EQUALS                                         
046402,000915: 

Page 1062 Empty page


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