Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

045416,000002:                                                                                                 #  Copyright:     Public domain.
045417,000003:                                                                                                 #  Filename:      JET_SELECTION_LOGIC.agc
045418,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
045419,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM) 
045420,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for 
045421,000007:                                                                                                 #                 Apollo 15-17.
045422,000008:                                                                                                 #  Assembler:     yaYUL
045423,000009:                                                                                                 #  Contact:       Sergio Navarro <sergionavarrog@gmail.com>
045424,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
045425,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
045426,000012:                                                                                                 #  Mod history:   2009-08-27 SN   Adapted from corresponding Comanche 055 file.
045427,000013:                                                                                                 #                 2009-09-09 JL   Fixed typos.
045428,000014:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
045429,000015: 
045430,000016:                                                                                                 # # Page 1038
045431,000017: 17,2000                                          SETLOC   DAPS4                                 
045432,000018: 17,2000                                          BANK                                           
045433,000019: 
045434,000020: 17,2541                                          COUNT*   $$/DAPJS                              
045435,000021: 17,2541  E6,1510                                 EBANK=   KMPAC                                 
045436,000022: 
045437,000023:                                                                                                 #  EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS
045438,000024: 
045439,000025: 17,2541           22016        JETSLECT          LXCH     BANKRUPT                              
045440,000026: 17,2542           32624                          CAF      DELTATT3                              #  = 60 MS   RESET TO EXECUTIVE PHASE1
045441,000027: 17,2543           61634                          AD       T5TIME                                
045442,000028: 17,2544           54030                          TS       TIME5                                 
045443,000029: 17,2545           12550                          TCF      +3                                    
045444,000030: 17,2546           37663                          CAF      DELATT20                              #  = 20 MS   TO ASSURE A T5RUPT
045445,000031: 17,2547           54030                          TS       TIME5                                 
045446,000032: 17,2550           33302                          CAF      =14MS                                 #  RESET T6 TO INITIALIZE THE JET CHANNELS
045447,000033: 17,2551           54031                          TS       TIME6                                 #  IN 14 MS
045448,000034: 17,2552           00006                          EXTEND                                         
045449,000035: 17,2553           22012                          QXCH     QRUPT                                 
045450,000036: 17,2554           04542                          TC       C13STALL                              
045451,000037: 17,2555           34752                          CAF      NEGMAX                                
045452,000038: 17,2556           00006                          EXTEND                                         
045453,000039: 17,2557           05013                          WOR      CHAN13                                
045454,000040: 17,2560           32623                          CAF      XLNMASK                               #  = 7700 OCT
045455,000041: 17,2561           00006                          EXTEND                                         #  EXAMINE THE TRANSLATION
045456,000042: 17,2562           06031                          RXOR     CHAN31                                #  HAND CONTROLLER
045457,000043: 17,2563           72623                          MASK     XLNMASK                               
045458,000044: 17,2564           00006                          EXTEND                                         
045459,000045: 17,2565           12625                          BZF      NOXLNCMD                              
045460,000046: 17,2566           55502                          TS       T5TEMP                                
045461,000047: 17,2567           00006                          EXTEND                                         
045462,000048: 17,2570           74760                          MP       BIT9                                  
045463,000049: 17,2571           76214                          MASK     THREE                                 
045464,000050: 17,2572           55513                          TS       XNDX1                                 #  AC QUAD  X-TRANSLATION INDEX
045465,000051: 17,2573           55514                          TS       XNDX2                                 #  BD QUAD  X-TRANSLATION INDEX
045466,000052: 17,2574           31502                          CA       T5TEMP                                
045467,000053: 17,2575           00006                          EXTEND                                         #  1 = + XLN
045468,000054: 17,2576           74762                          MP       BIT7                                  #  2 = - XLN
045469,000055: 17,2577           76214                          MASK     THREE                                 #  3 = NO XLN
045470,000056: 17,2600           55515                          TS       YNDX                                  #  Y-TRANSLATION INDEX
045471,000057: 
045472,000058: 17,2601           31502                          CA       T5TEMP                                
045473,000059: 17,2602           00006                          EXTEND                                         
045474,000060: 17,2603           74764                          MP       BIT5                                  
045475,000061: 17,2604           76214                          MASK     THREE                                 
045476,000062: 17,2605           55516                          TS       ZNDX                                  #  Z-TRANSLATION INDEX
045477,000063: 
045478,000064: 17,2606           31465                          CA       DAPDATR1                              #  SET ATTKALMN TO PICK UP FILTER GAINS FOR
045479,000065: 17,2607           74753                          MASK     BIT14                                 #  TRANSLATIONS.
045480,000066: 17,2610           00006                          EXTEND                                         #  CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED.
045481,000067: 17,2611           12614                          BZF      NOLEM                                 
045482,000068:                                                                                                 # # Page 1039
045483,000069: 17,2612           46214                          CS       THREE                                 #  IF LEM IS ON, SET ATTKALMN = -3
045484,000070: 17,2613           12615                          TCF      +2                                    
045485,000071: 17,2614           44767        NOLEM             CS       TWO                                   #  IF LEM IS OFF, SET ATTKALMN = -2.
045486,000072: 17,2615           55617                          TS       ATTKALMN                              
045487,000073: 17,2616           11631                          CCS      XTRANS                                #  (+, -1, 0)
045488,000074: 17,2617           55513                          TS       XNDX1                                 #  USING BD-X  ZERO XNDX1
045489,000075: 17,2620           12631                          TCF      PWORD                                 
045490,000076: 17,2621           55514                          TS       XNDX2                                 #  USING AC-X  ZERO XNDX2
045491,000077: 17,2622           12631                          TCF      PWORD                                 
045492,000078: 17,2623           07700        XLNMASK           OCT      7700                                  
045493,000079: 
045494,000080: 17,2624           37772        DELTATT3          DEC      16378      B-14                       #  = 60 MS
045495,000081: 17,2625     7663               DELATT20          =        OCT37776                              #  = 20 MS
045496,000082: 17,2625           55513        NOXLNCMD          TS       XNDX1                                 #  ZERO ALL REQUESTS FOR TRANSLATION
045497,000083: 17,2626           55514                          TS       XNDX2                                 
045498,000084: 17,2627           55515                          TS       YNDX                                  
045499,000085: 17,2630           55516                          TS       ZNDX                                  
045500,000086: 
045501,000087:                                                                                                 #  PITCH COMMANDS  TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT
045502,000088: 
045503,000089: 17,2631           11562        PWORD             CCS      TAU1                                  #  CHECK FOR PITCH COMMANDS
045504,000090: 17,2632           34770                          CAF      ONE                                   
045505,000091: 17,2633           12635                          TCF      +2                                    #   0 = NO PITCH
045506,000092: 17,2634           34767                          CAF      TWO                                   #  +1 =  + PITCH
045507,000093: 17,2635           55520                          TS       PINDEX                                #  +2 =  - PITCH
045508,000094: 
045509,000095: 17,2636           11626                          CCS      RACFAIL                               #  FLAG FOR REAL AC QUAD FAILURES
045510,000096: 17,2637           12643                          TCF      AFAILP                                
045511,000097: 17,2640           12653                          TCF      TABPCOM                               #  0 = NO REAL AC FAILURES
045512,000098: 17,2641           12645                          TCF      CFAILP                                #  + = A QUAD FAILED
045513,000099: 17,2642           12653                          TCF      TABPCOM                               #  - = C QUAD FAILED
045514,000100:                                                                                                 #  IF FAILURES ARE PRESENT IGNORE
045515,000101:                                                                                                 #  X-TRANSLATIONS ON THIS AXIS
045516,000102: 
045517,000103: 17,2643           34322        AFAILP            CAF      NINE                                  #  IF FAILURE IS PRESENT 1JET OPERATION
045518,000104: 17,2644           12655                          TCF      TABPCOM    +2                         #  IS ASSUMED. IGNORE X-TRANSLATION
045519,000105: 17,2645           35775        CFAILP            CAF      TWELVE                                
045520,000106: 17,2646           12655                          TCF      TABPCOM    +2                         
045521,000107: 
045522,000108: 17,2647           00000        XLNNDX            DEC      0          B-14                       #  INDECES FOR TRANSLATION COMMANDS
045523,000109: 17,2650           00003                          DEC      3          B-14                       #  FOR USE IN TABLE LOOK UP
045524,000110: 17,2651           00006                          DEC      6          B-14                       
045525,000111: 17,2652           00000                          DEC      0          B-14                       
045526,000112: 
045527,000113: 17,2653     5775               TWELVE            =        OCT14                                 
045528,000114: 
045529,000115:                                                                                                 #  TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT.
045530,000116:                                                                                                 #  BITS 9, 10 CONTAIN THE NUMBER OF PITCH JETS USED TO PERFORM THE PITCH ROTATION
045531,000117: 
045532,000118: 17,2653           51513        TABPCOM           INDEX    XNDX1                                 
045533,000119:                                                                                                 # # Page 1040
045534,000120: 17,2654           32647                          CA       XLNNDX                                
045535,000121: 17,2655           61520                 +2       AD       PINDEX                                
045536,000122: 17,2656           50000                          INDEX    A                                     
045537,000123: 17,2657           32703                          CA       PYTABLE                               
045538,000124: 17,2660           72722                          MASK     PJETS                                 #  =1417 OCT
045539,000125: 17,2661           55452                          TS       PWORD1                                
045540,000126: 17,2662           00006                          EXTEND                                         
045541,000127: 17,2663           74762                          MP       BIT7                                  
045542,000128: 17,2664           55523                          TS       NPJETS                                #  = NO. OF PITCH JETS
045543,000129: 
045544,000130:                                                                                                 #  YAW JET COMMANDS  TIMING(NO X-TRANS, NO QUAD FAILURES)  32MCT
045545,000131: 
045546,000132: 17,2665           11563        YWORD             CCS      TAU2                                  #  CHECK FOR YAW COMMANDS
045547,000133: 17,2666           34770                          CAF      ONE                                   
045548,000134: 17,2667           12671                          TCF      +2                                    
045549,000135: 17,2670           34767                          CAF      TWO                                   
045550,000136: 17,2671           55521                          TS       YINDEX                                #  YAW ROTATION INDEX
045551,000137: 
045552,000138: 17,2672           11627                          CCS      RBDFAIL                               #  FLAG FOR B OR D QUAD FAILURES
045553,000139: 17,2673           12677                          TCF      BFAILY                                #  0 = NO BD FAILURE
045554,000140: 17,2674           12724                          TCF      TABYCOM                               #  + = B QUAD FAILED
045555,000141: 17,2675           12701                          TCF      DFAILY                                #  - = D QUAD FAILED
045556,000142: 17,2676           12724                          TCF      TABYCOM                               
045557,000143: 
045558,000144: 17,2677           34322        BFAILY            CAF      NINE                                  
045559,000145: 17,2700           12726                          TCF      TABYCOM    +2                         
045560,000146: 17,2701           35775        DFAILY            CAF      TWELVE                                
045561,000147: 17,2702           12726                          TCF      TABYCOM    +2                         
045562,000148: 
045563,000149:                                                                                                 # # Page 1041
045564,000150:                                                                                                 #  TABLE FOR PITCH(YAW) COMMANDS
045565,000151:                                                                                                 #  BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED
045566,000152:                                                                                                 #  BITS    10,9 = NO. PITCH JETS USED TO PERFORM ROTATION
045567,000153:                                                                                                 #  BITS 8,7,6,5 = YAW, X-TRANSLATION JETS SELECTED
045568,000154:                                                                                                 #  BITS 12,11:  NO. YAW JETS USED TO PERFORM ROTATION
045569,000155: 
045570,000156:                                                                                                 #  ROT    TRANS   QUAD    BIAS
045571,000157: 17,2703           00000        PYTABLE           OCT      0                                     #  0      0               0
045572,000158: 17,2704           05125                          OCT      5125                                  #  +      0               0
045573,000159: 17,2705           05252                          OCT      5252                                  #  -      0               0
045574,000160: 17,2706           00231                          OCT      0231                                  #  0      +               3
045575,000161: 17,2707           02421                          OCT      2421                                  #  +      +               3
045576,000162: 17,2710           02610                          OCT      2610                                  #  -      +               3
045577,000163: 17,2711           00146                          OCT      0146                                  #  0      -               6
045578,000164: 17,2712           02504                          OCT      2504                                  #  +      -               6
045579,000165: 17,2713           02442                          OCT      2442                                  #  -      -               6
045580,000166: 17,2714           00000                          OCT      0                                     #  0              A(B)    9
045581,000167: 17,2715           02421                          OCT      2421                                  #  +              A(B)    9
045582,000168: 17,2716           02442                          OCT      2442                                  #  -              A(B)    9
045583,000169: 17,2717           00000                          OCT      0                                     #  0              C(D)    12
045584,000170: 17,2720           02504                          OCT      2504                                  #  +              C(D)    12
045585,000171: 17,2721           02610                          OCT      2610                                  #  -              C(D)    12
045586,000172: 
045587,000173:                                                                                                 #  MASKS FOR PITCH AND YAW COMMANDS
045588,000174: 
045589,000175: 17,2722           01417        PJETS             OCT      1417                                  
045590,000176: 17,2723           06360        YJETS             OCT      6360                                  
045591,000177: 
045592,000178:                                                                                                 #  TABLE LOOK UP FOR YAW COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT
045593,000179:                                                                                                 #  BITS 11, 12 CONTAIN THE NUMBER OF YAW JETS USED TO PERFORM THE YAW ROTATION
045594,000180: 
045595,000181: 17,2724           51514        TABYCOM           INDEX    XNDX2                                 
045596,000182: 17,2725           32647                          CA       XLNNDX                                
045597,000183: 17,2726           61521                 +2       AD       YINDEX                                
045598,000184: 17,2727           50000                          INDEX    A                                     
045599,000185: 17,2730           32703                          CA       PYTABLE                               
045600,000186: 17,2731           72723                          MASK     YJETS                                 #  = 6360 OCT
045601,000187: 17,2732           55454                          TS       YWORD1                                
045602,000188: 17,2733           00006                          EXTEND                                         
045603,000189: 17,2734           74764                          MP       BIT5                                  
045604,000190: 17,2735           55524                          TS       NYJETS                                #  NO. OF YAW JETS USED TO PERFORM ROTATION
045605,000191: 
045606,000192:                                                                                                 # # Page 1042
045607,000193: 
045608,000194:                                                                                                 #  ROLL COMMANDS  TIMING(NO Y,Z TRANS, NO QUAD FAILS)   45MCT
045609,000195: 
045610,000196: 17,2736           11561        RWORD             CCS      TAU                                   #  CHECK FOR ROLL COMMANDS
045611,000197: 17,2737           34770                          CAF      ONE                                   
045612,000198: 17,2740           12742                          TCF      +2                                    
045613,000199: 17,2741           34767                          CAF      TWO                                   
045614,000200: 17,2742           55517                          TS       RINDEX                                
045615,000201: 
045616,000202: 17,2743           11630                          CCS      ACORBD                                #  FLAG FOR AC OR BD QUAD SELECTION FOR
045617,000203: 17,2744           13035                          TCF      BDROLL                                #  ROLL COMMANDS
045618,000204: 17,2745           13035                          TCF      BDROLL                                #  +, +0 = BD ROLL
045619,000205: 17,2746           12747                          TCF      +1                                    #  -, -0 = AC ROLL
045620,000206: 
045621,000207: 17,2747           11626        ACROLL            CCS      RACFAIL                               #  CHECK FOR REAL FAILURES
045622,000208: 17,2750           12754                          TCF      RAFAIL                                #  ON AC QUADS
045623,000209: 17,2751           12764                          TCF      RXLNS                                 
045624,000210: 17,2752           12756                          TCF      RCFAIL                                
045625,000211: 17,2753           12764                          TCF      RXLNS                                 
045626,000212: 
045627,000213: 17,2754           34322        RAFAIL            CAF      NINE                                  #  QUAD FAILURE  WILL GET
045628,000214: 17,2755           12766                          TCF      TABRCOM                               #  1-JET OPERATION
045629,000215: 17,2756           35775        RCFAIL            CAF      TWELVE                                
045630,000216: 17,2757           12766                          TCF      TABRCOM                               
045631,000217: 
045632,000218: 17,2760           00000        XLN1NDX           DEC      0          B-14                       
045633,000219: 17,2761           00001                          DEC      1          B-14                       #  INDECES FOR TRANSLATION
045634,000220: 17,2762           00002                          DEC      2          B-14                       
045635,000221: 17,2763           00000                          DEC      0          B-14                       
045636,000222: 
045637,000223:                                                                                                 #  TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT
045638,000224:                                                                                                 #  BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL
045639,000225: 
045640,000226: 17,2764           51515        RXLNS             INDEX    YNDX                                  #  NO AC QUAD FAILURES
045641,000227: 17,2765           32647                          CA       XLNNDX                                #  INCLUDE +,-,0, Y-TRANSLATION
045642,000228: 17,2766           61517        TABRCOM           AD       RINDEX                                
045643,000229: 17,2767           50000                          INDEX    A                                     
045644,000230: 17,2770           33117                          CA       RTABLE                                
045645,000231: 17,2771           73136                          MASK     ACRJETS                               #  = 3760 OCT
045646,000232: 17,2772           55450                          TS       RWORD1                                
045647,000233: 
045648,000234:                                                                                                 #  CHECK FOR Z-TRANSLATIONS ON BD
045649,000235: 
045650,000236: 17,2773           31516        BDZCHECK          CA       ZNDX                                  
045651,000237: 17,2774           00006                          EXTEND                                         
045652,000238: 17,2775           63027                          BZMF     NOBDZ                                 #  NO Z-TRANSLATION
045653,000239: 
045654,000240:                                                                                                 # # Page 1043
045655,000241:                                                                                                 #  TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES.  Z-TRANSLATION WILL BE POSS-
045656,000242:                                                                                                 #  IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS.  CRITERION.. IF THE RESULTANT NET ROLL
045657,000243:                                                                                                 #  COMMANDS = 0 (WITH Z-TRANSLATION) AND IF TAU = 0, THEN INCLUDE THE BD Z-TRANSLATION COMMANDS. IF THE RESULTANT
045658,000244:                                                                                                 #  ROLL COMMAND = 0, AND IF TAU NZ, THEN IGNORE THE BD Z-TRANSLATION
045659,000245: 
045660,000246: 17,2776           11627                          CCS      RBDFAIL                               
045661,000247: 17,2777           36214                          CAF      THREE                                 
045662,000248: 17,3000           13002                          TCF      +2                                    
045663,000249: 17,3001           36211                          CAF      SIX                                   
045664,000250: 17,3002           51516                          INDEX    ZNDX                                  
045665,000251: 17,3003           62760                          AD       XLN1NDX                               
045666,000252: 17,3004           50000                          INDEX    A                                     
045667,000253: 17,3005           33140                          CA       YZTABLE                               
045668,000254: 17,3006           73151                          MASK     BDZJETS                               #  = 3417 OCT
045669,000255: 17,3007           61450                          AD       RWORD1                                #  ADD TO ROLL COMMANDS
045670,000256: 17,3010           55502                          TS       T5TEMP                                #  IF POSSIBLE.  MUST CHECK TAU FIRST
045671,000257: 
045672,000258: 17,3011           00006                          EXTEND                                         
045673,000259: 17,3012           74762                          MP       BIT7                                  #  DETERMINE THE NET ROLL COMMAND WITH
045674,000260: 17,3013           66061                          AD       =-4                                   #  Z-TRANSLATION ADDED ON
045675,000261: 17,3014           55522                          TS       NRJETS                                #  NET NO. OF +,- ROLL JETS ON
045676,000262: 17,3015           00006                          EXTEND                                         
045677,000263: 17,3016           13022                          BZF      TAUCHECK                              
045678,000264: 
045679,000265: 17,3017           31502        ACRBDZ            CA       T5TEMP                                #  Z-TRANSLATION ACCEPTED EVEN THO WE MAY
045680,000266: 17,3020           55450                          TS       RWORD1                                #  HAVE INTRODUCED AN UNDESIRABLE ROLL
045681,000267: 17,3021           13263                          TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATIONS
045682,000268: 
045683,000269: 17,3022           11561        TAUCHECK          CCS      TAU                                   
045684,000270: 17,3023           13027                          TCF      NOBDZ                                 
045685,000271: 17,3024           13017                          TCF      ACRBDZ                                
045686,000272: 17,3025           13027                          TCF      NOBDZ                                 
045687,000273: 17,3026           13017                          TCF      ACRBDZ                                
045688,000274: 
045689,000275: 17,3027           31450        NOBDZ             CA       RWORD1                                #  Z-TRANSLATION NOT ACCEPTED
045690,000276: 17,3030           00006                          EXTEND                                         
045691,000277: 17,3031           74762                          MP       BIT7                                  
045692,000278: 17,3032           67701                          AD       =-2                                   
045693,000279: 17,3033           55522                          TS       NRJETS                                
045694,000280: 17,3034           13263                          TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATION
045695,000281: 
045696,000282:                                                                                                 # # Page 1044
045697,000283:                                                                                                 #  BD QUAD SELECTION FOR ROLL COMMANDS
045698,000284: 
045699,000285: 17,3035           11627        BDROLL            CCS      RBDFAIL                               
045700,000286: 17,3036           13042                          TCF      RBFAIL                                
045701,000287: 17,3037           13046                          TCF      RZXLNS                                
045702,000288: 17,3040           13044                          TCF      RDFAIL                                
045703,000289: 17,3041           13046                          TCF      RZXLNS                                
045704,000290: 17,3042           34322        RBFAIL            CAF      NINE                                  
045705,000291: 17,3043           13050                          TCF      TABRZCMD                              
045706,000292: 17,3044           35775        RDFAIL            CAF      TWELVE                                
045707,000293: 17,3045           13050                          TCF      TABRZCMD                              
045708,000294: 
045709,000295: 17,3046           51516        RZXLNS            INDEX    ZNDX                                  #  NO BD FAILURES
045710,000296: 17,3047           32647                          CA       XLNNDX                                #  +,-,0 Z-TRANSLATION PRESENT
045711,000297: 17,3050           61517        TABRZCMD          AD       RINDEX                                
045712,000298: 17,3051           50000                          INDEX    A                                     
045713,000299: 17,3052           33117                          CA       RTABLE                                
045714,000300: 17,3053           73137                          MASK     BDRJETS                               #  = 34017 OCT
045715,000301: 17,3054           55450                          TS       RWORD1                                
045716,000302: 
045717,000303: 17,3055           31515        ACYCHECK          CA       YNDX                                  #  ANY Y-TRANSLATION
045718,000304: 17,3056           00006                          EXTEND                                         
045719,000305: 17,3057           13111                          BZF      NOACY                                 #  NO Y-TRANSLATION
045720,000306: 17,3060           11626                          CCS      RACFAIL                               
045721,000307: 17,3061           36214                          CAF      THREE                                 
045722,000308: 17,3062           13064                          TCF      +2                                    
045723,000309: 17,3063           36211                          CAF      SIX                                   
045724,000310: 17,3064           51515                          INDEX    YNDX                                  
045725,000311: 17,3065           62760                          AD       XLN1NDX                               
045726,000312: 17,3066           50000                          INDEX    A                                     
045727,000313: 17,3067           33140                          CA       YZTABLE                               
045728,000314: 17,3070           73152                          MASK     ACYJETS                               #  = 34360 OCT
045729,000315: 17,3071           61450                          AD       RWORD1                                
045730,000316: 17,3072           55502                          TS       T5TEMP                                
045731,000317: 17,3073           00006                          EXTEND                                         #  FOR EXPLANATION SEE CODING ON RTABLE
045732,000318: 17,3074           74765                          MP       BIT4                                  
045733,000319: 17,3075           66061                          AD       =-4                                   
045734,000320: 17,3076           55522                          TS       NRJETS                                #  NO. OF NET ROLL JETS
045735,000321: 17,3077           00006                          EXTEND                                         
045736,000322: 17,3100           13104                          BZF      TAUCHCK                               #  IF NRJETS = 0
045737,000323: 
045738,000324: 17,3101           31502        BDRACZ            CA       T5TEMP                                #  Y-TRANSLATION ACCEPTED
045739,000325: 17,3102           55450                          TS       RWORD1                                
045740,000326: 17,3103           13263                          TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATIONS
045741,000327: 
045742,000328: 17,3104           11561        TAUCHCK           CCS      TAU                                   
045743,000329: 17,3105           13111                          TCF      NOACY                                 
045744,000330: 17,3106           13101                          TCF      BDRACZ                                
045745,000331: 17,3107           13111                          TCF      NOACY                                 
045746,000332: 17,3110           13101                          TCF      BDRACZ                                
045747,000333: 
045748,000334:                                                                                                 # # Page 1045
045749,000335: 17,3111           31450        NOACY             CA       RWORD1                                #  Y-TRANSLATION NOT ACCEPTED
045750,000336: 17,3112           00006                          EXTEND                                         
045751,000337: 17,3113           74765                          MP       BIT4                                  
045752,000338: 17,3114           67701                          AD       =-2                                   
045753,000339: 17,3115           55522                          TS       NRJETS                                
045754,000340: 17,3116           13263                          TCF      ROLLTIME                              
045755,000341: 
045756,000342:                                                                                                 # # Page 1046
045757,000343: 
045758,000344:                                                                                                 #                 TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS
045759,000345: 
045760,000346:                                                                                                 #     EITHER AC OR BD ROLL MAY BE SELECTED. IF AC ROLL IS SELECTED, Y-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY
045761,000347:                                                                                                 #  PROVIDED THAT THERE ARE NO AC QUAD FAILURES. IF THERE ARE AC FAILURES, Y-TRANSLATION COMMANDS WILL BE IGNORED,
045762,000348:                                                                                                 #  IN WHICH CASE THE ASTRONAUT SHOULD SWITCH TO BD ROLL.
045763,000349:                                                                                                 #     IF BDROLL IS SELECTED, Z-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY PROVIDED THAT THERE ARE NO BD QUAD
045764,000350:                                                                                                 #  FAILURES. IF THERE ARE BD FAILURES, Z-TRANSLATION COMMANDS WILL BE IGNORED, IN WHICH CASE THE ASTRONAUT SHOULD
045765,000351:                                                                                                 #  SWITCH TO AC ROLL.
045766,000352:                                                                                                 #     NOTE THAT IF ONE QUAD FAILS (E.G. B FAILED), Z-TRANSLATION IS STILL POSSIBLE AND THAT THE UNDESIREABLE ROLL
045767,000353:                                                                                                 #  INTRODUCED BY THIS TRANSLATION WILL BE COMPENSATED BY THE TWO AC ROLL JETS ACTUATED BY THE AUTOPILOT LOGIC.
045768,000354: 
045769,000355:                                                                                                 #                 WORD MAKE UP....RTABLE
045770,000356: 
045771,000357:                                                                                                 #     TWO WORDS, CORRESPONDING TO AC OR BD ROLL SELECTION, HAVE BEEN COMBINED INTO ONE TABLE.  THE WORD CORRESPOND-
045772,000358:                                                                                                 #  ING TO AC ROLL HAS THE FOLLOWING INTERPRETATION..
045773,000359:                                                                                                 #     BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE FOR THE WORD SELECTED. THE CODING IS:
045774,000360: 
045775,000361:                                                                                                 #                         BIT NO.  11 10 9        NO. OF ROLL JETS
045776,000362: 
045777,000363:                                                                                                 #                                   0 0 0                 -2
045778,000364:                                                                                                 #                                   0 0 1                 -1
045779,000365:                                                                                                 #                                   0 1 0                  0
045780,000366:                                                                                                 #                                   0 1 1                 +1
045781,000367:                                                                                                 #                                   1 0 0                 +2
045782,000368: 
045783,000369: 
045784,000370:                                                                                                 #     THIS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM THE YZ-TRANSLATION TABLE, WHICH HAS THE SAME TYPE OF
045785,000371:                                                                                                 #  CODING AS ABOVE, AND THE NET ROLL DETERMINED BY SHIFTING THE RESULTANT WORD RIGHT 8 PLACES AND SUBTRACTING FOUR.
045786,000372: 
045787,000373:                                                                                                 #     THE WORD CORRESPONDING TO THE BD ROLL HAS A SIMILAR INTEPRETATION, EXCEPT THAT BITS 12, 13, 14 ARE CODED
045788,000374:                                                                                                 #  (AS ABOVE) TO GIVE THE NET ROLL TORQUE.
045789,000375: 
045790,000376: 
045791,000377:                                                                                                 #  ROLL   TRANS   QUADFAIL   BIAS
045792,000378: 
045793,000379: 17,3117           11000        RTABLE            OCT      11000                                 #   0                          0
045794,000380: 17,3120           22125                          OCT      22125                                 #   +                          0
045795,000381: 17,3121           00252                          OCT      00252                                 #   -                          0
045796,000382: 17,3122           11231                          OCT      11231                                 #   0      +Y(+Z)              3
045797,000383: 17,3123           15421                          OCT      15421                                 #   +      +Y(+Z)              3
045798,000384: 17,3124           04610                          OCT      04610                                 #   -      +Y(+Z)              3
045799,000385: 17,3125           11146                          OCT      11146                                 #   0      -Y(-Z)              6
045800,000386: 17,3126           15504                          OCT      15504                                 #   +      -Y(-Z)              6
045801,000387: 17,3127           04442                          OCT      04442                                 #   -      -Y(-Z)              6
045802,000388: 17,3130           11000                          OCT      11000                                 #   0                A(B)      9
045803,000389: 17,3131           15504                          OCT      15504                                 #   +                A(B)      9
045804,000390: 17,3132           04610                          OCT      04610                                 #   -                A(B)      9
045805,000391: 17,3133           11000                          OCT      11000                                 #   0                C(D)     12
045806,000392: 17,3134           15421                          OCT      15421                                 #   +                C(D)     12
045807,000393: 17,3135           04442                          OCT      04442                                 #   -                C(D)     12
045808,000394: 
045809,000395:                                                                                                 # # Page 1047
045810,000396:                                                                                                 #                 RTABLE MASKS -
045811,000397: 
045812,000398: 17,3136           03760        ACRJETS           OCT      03760                                 
045813,000399: 17,3137           34017        BDRJETS           OCT      34017                                 
045814,000400: 
045815,000401:                                                                                                 # # Page 1048
045816,000402:                                                                                                 #                 Y, Z TRANSLATION TABLE
045817,000403: 
045818,000404:                                                                                                 #      ONCE AC OR BD ROLL IS SELECTED THE QUAD PAIR WHICH IS NOT BEING USED TO SATISFY THE ROLL COMMANDS MAY BE
045819,000405:                                                                                                 #  USED TO SATISFY THE REMAINING TRANSLATION COMMANDS.  HOWEVER, WE MUST MAKE SURE THAT ROLL COMMANDS ARE SATISFIED
045820,000406:                                                                                                 #  WHEN THEY OCCUR.  THEREFORE, THE Y-Z TRANSLATIONS FROM THIS TABLE WILL BE IGNORED IF THE NET ROLL TORQUE OF THE
045821,000407:                                                                                                 #  COMBINED WORD IS ZERO AND THE ROLL COMMANDS ARE NON-ZERO.  THIS SITUATION WOULD OCCUR, FOR EXAMPLE, IF WE EN-
045822,000408:                                                                                                 #  COUNTER SIMULTANEOUS +R +Y -Z COMMANDS AND A QUAD D FAILURE WHILE USING AC FOR ROLL.
045823,000409:                                                                                                 #     TO FACILITATE THE LOGIC, THE Y-Z TRANSLATION TABLE HAS BEEN CODED IN A MANNER SIMILAR TO THE ROLL TABLE
045824,000410:                                                                                                 #  ABOVE.
045825,000411:                                                                                                 #     BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Z-TRANSLATIONS.  THE WORD SELECTED CAN THEN BE
045826,000412:                                                                                                 #  ADDED TO THE AC-ROLL WORD AND THE RESULTANT ROLL TORQUE DETERMINED FROM THE COMBINED WORD.  SIMILARLY BITS
045827,000413:                                                                                                 #  12,13,14 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Y-TRANSLATIONS WHEN BD-ROLL IS SELECTED.
045828,000414: 
045829,000415:                                                                                                 #  TRANSLATION    QUADFAIL    BIAS
045830,000416: 
045831,000417: 17,3140           11000        YZTABLE           OCT      11000                                 #       0                       0
045832,000418: 17,3141           11231                          OCT      11231                                 #    +Z(+Y)                     0
045833,000419: 17,3142           11146                          OCT      11146                                 #    -Z(-Y)                     0
045834,000420: 17,3143           11000                          OCT      11000                                 #       0           B(A)        3
045835,000421: 17,3144           04610                          OCT      04610                                 #    +Z(+Y)         B(A)        3
045836,000422: 17,3145           15504                          OCT      15504                                 #    -Z(-Y)         B(A)        3
045837,000423: 17,3146           11000                          OCT      11000                                 #       0           D(C)        6
045838,000424: 17,3147           15421                          OCT      15421                                 #    +Z(+Y)         D(C)        6
045839,000425: 17,3150           04442                          OCT      04442                                 #    -Z(-Y)         D(C)        6
045840,000426: 
045841,000427:                                                                                                 #                 YZ-TABLE MASKS-
045842,000428: 
045843,000429: 17,3151           03417        BDZJETS           OCT      03417                                 
045844,000430: 17,3152           34360        ACYJETS           OCT      34360                                 
045845,000431: 
045846,000432:                                                                                                 #                 ADDITIONAL CONSTANTS
045847,000433: 
045848,000434: 17,3153     7701               =-2               =        NEG2                                  
045849,000435: 17,3153     6061               =-4               =        NEG4                                  
045850,000436: 
045851,000437:                                                                                                 # # Page 1049
045852,000438:                                                                                                 #                 CALCULATION OF JET ON-TIMES
045853,000439: 
045854,000440:                                                                                                 #     THE ROTATION COMMANDS (TAU'S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET
045855,000441:                                                                                                 #  OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS.  TAU MUST
045856,000442:                                                                                                 #  ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5 
045857,000443:                                                                                                 #  INTERVAL.
045858,000444:                                                                                                 #     IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES
045859,000445:                                                                                                 #  (DFT'S, ALSO IN TERMS OF 1-JET OPERATION) FOR THE RATE FILTER.
045860,000446:                                                                                                 #     NOTE THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO ROTATIONS WERE CALLED FOR.  NEVERTHELESS, WE MUST
045861,000447:                                                                                                 #  UPDATE DFT.
045862,000448:                                                                                                 #     WHEN THE ROTATIONS HAVE FINISHED, WE MUST PROVIDE CHANNEL INFORMATION TO THE T6 PROGRAM TO CONTINUE ON WITH
045863,000449:                                                                                                 #  THE TRANSLATIONS.  THIS WILL BE DONE IN THE NEXT SECTION.  HOWEVER, TO INSURE THAT JETS ARE NOT FIRED FOR LESS
045864,000450:                                                                                                 #  THAN A MINIMUM IMPULSE (14MS), ALL JET CHANNEL COMMANDS WILL BE HELD FIXED FROM THE START OF THE T5 PROGRAM FOR
045865,000451:                                                                                                 #  AT LEAST 14MS UNTIL THE INITIALIZATION OF NEW COMMANDS.  MOREOVER, A 14MS ON-TIME WILL BE ADDED TO ANY ROTATIONAL
045866,000452:                                                                                                 #  COMMANDS GENERATED BY THE MANUAL CONTROLS OR THE JET SWITCHING LOGIC, AND ALL TRANSLATION COMMANDS WILL BE
045867,000453:                                                                                                 #  ACTIVE FOR AT LEAST ONE CYCLE OF THE T5 PROGRAM (.1SEC)
045868,000454: 
045869,000455:                                                                                                 #                 PITCH JET ON-TIME CALCULATION
045870,000456: 
045871,000457: 17,3153           11562        PITCHTIM          CCS      TAU1                                  
045872,000458: 17,3154           13163                          TCF      PTAUPOS                               
045873,000459: 17,3155           13157                          TCF      +2                                    
045874,000460: 17,3156           13161                          TCF      PTAUNEG                               
045875,000461: 17,3157           55550                          TS       DFT1                                  #  NO PITCH ROTATION
045876,000462: 17,3160           13361                          TCF      PBYPASS                               #  COMMANDS
045877,000463: 
045878,000464: 17,3161           41523        PTAUNEG           CS       NPJETS                                
045879,000465: 17,3162           55523                          TS       NPJETS                                
045880,000466: 17,3163           31562        PTAUPOS           CA       TAU1                                  
045881,000467: 17,3164           00006                          EXTEND                                         
045882,000468: 17,3165           51523                          INDEX    NPJETS                                
045883,000469: 17,3166           73342                          MP       NJET                                  
045884,000470: 17,3167           55460                          TS       BLAST1                                
045885,000471: 17,3170           63275                          AD       =-.1SEC                               
045886,000472: 17,3171           00006                          EXTEND                                         
045887,000473: 17,3172           63203                          BZMF     AD14MSP                               
045888,000474: 17,3173           51523                          INDEX    NPJETS                                
045889,000475: 17,3174           33276                          CA       DFTMAX                                #  THE PITCH ON-TIME IS GREATER THAN .1 SEC
045890,000476: 17,3175           55550                          TS       DFT1                                  
045891,000477: 17,3176           40000                          COM                                            
045892,000478: 17,3177           27562                          ADS      TAU1                                  #  UPDATE TAU1
045893,000479: 17,3200           33277                          CAF      =+.1SEC                               #  LIMIT THE LENGTH OF PITCH ROTATION
045894,000480: 17,3201           55460                          TS       BLAST1                                #  COMMANDS TO 0.1 SEC SO THAT ONLY
045895,000481: 17,3202           13346                          TCF      ASMBLWP                               #  X-TRANSLATIONS WILL CONTINUE ON SWITCH
045896,000482:                                                                                                 #  OVER TO TVC
045897,000483: 17,3203           41460        AD14MSP           CS       BLAST1                                #  SEE IF JET ON TIME IS LESS THAN
045898,000484: 17,3204           63302                          AD       =14MS                                 #  MINIMUM IMPULSE TIME
045899,000485: 17,3205           00006                          EXTEND                                         
045900,000486: 17,3206           63211                          BZMF     PBLASTOK                              #  IF SO LIMIT MINIMUM ON TIME TO 14 MS
045901,000487: 17,3207           33302                          CAF      =14MS                                 
045902,000488:                                                                                                 # # Page 1050
045903,000489: 17,3210           55460                          TS       BLAST1                                
045904,000490: 17,3211           31460        PBLASTOK          CA       BLAST1                                
045905,000491: 17,3212           00006                          EXTEND                                         #  THE PITCH COMMANDS WILL BE COMPLETED
045906,000492: 17,3213           71523                          MP       NPJETS                                #  WITHIN THE TS-CYCLE TIME
045907,000493: 17,3214           23550                          LXCH     DFT1                                  #  FOR USE IN UPDATING RATE FILTER
045908,000494: 17,3215           55562                          TS       TAU1                                  #  ZERO TAU1 (ACC CONTAINS ZERO)
045909,000495: 17,3216           13346                          TCF      ASMBLWP                               
045910,000496: 
045911,000497:                                                                                                 # # Page 1051
045912,000498:                                                                                                 #                 YAW JET ON-TIME CALCULATION
045913,000499: 
045914,000500: 17,3217           11563        YAWTIME           CCS      TAU2                                  
045915,000501: 17,3220           13227                          TCF      YTAUPOS                               
045916,000502: 17,3221           13223                          TCF      +2                                    
045917,000503: 17,3222           13225                          TCF      YTAUNEG                               
045918,000504: 17,3223           55551                          TS       DFT2                                  #  NO YAW ROTATION COMMANDS
045919,000505: 17,3224           13525                          TCF      YBYPASS                               
045920,000506: 
045921,000507: 17,3225           41524        YTAUNEG           CS       NYJETS                                
045922,000508: 17,3226           55524                          TS       NYJETS                                
045923,000509: 17,3227           31563        YTAUPOS           CA       TAU2                                  
045924,000510: 17,3230           00006                          EXTEND                                         
045925,000511: 17,3231           51524                          INDEX    NYJETS                                
045926,000512: 17,3232           73342                          MP       NJET                                  
045927,000513: 17,3233           55462                          TS       BLAST2                                
045928,000514: 17,3234           63275                          AD       =-.1SEC                               
045929,000515: 17,3235           00006                          EXTEND                                         
045930,000516: 17,3236           63247                          BZMF     AD14MSY                               
045931,000517: 17,3237           51524                          INDEX    NYJETS                                
045932,000518: 17,3240           33276                          CA       DFTMAX                                #  YAW COMMANDS WILL LAST LONGER THAN .1SEC
045933,000519: 17,3241           55551                          TS       DFT2                                  
045934,000520: 17,3242           40000                          COM                                            
045935,000521: 17,3243           27563                          ADS      TAU2                                  #  DECREMENT TAU2
045936,000522: 17,3244           33277                          CAF      =+.1SEC                               #  LIMIT THE LENGTH OF YAW ROTATION COMMAND
045937,000523: 17,3245           55462                          TS       BLAST2                                #  TO 0.1 SEC SO THAT ONLY X-TRANSLATION
045938,000524: 17,3246           13512                          TCF      ASMBLWY                               #  WILL CONTINUE ON SWITCH OVER TO TVC
045939,000525: 
045940,000526: 17,3247           41462        AD14MSY           CS       BLAST2                                #  SEE IF JET ON-TIME LESS THAN
045941,000527: 17,3250           63302                          AD       =14MS                                 #  MINIMUM IMPULSE TIME
045942,000528: 17,3251           00006                          EXTEND                                         
045943,000529: 17,3252           63255                          BZMF     YBLASTOK                              #  IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
045944,000530: 17,3253           33302                          CAF      =14MS                                 
045945,000531: 17,3254           55462                          TS       BLAST2                                
045946,000532: 17,3255           31462        YBLASTOK          CA       BLAST2                                #  YAW COMMANDS WILL BE COMPLETED WITHIN
045947,000533: 17,3256           00006                          EXTEND                                         #  THE T5CYCLE TIME
045948,000534: 17,3257           71524                          MP       NYJETS                                
045949,000535: 17,3260           23551                          LXCH     DFT2                                  
045950,000536: 17,3261           55563                          TS       TAU2                                  #  ZERO TAU2
045951,000537: 17,3262           13512                          TCF      ASMBLWY                               
045952,000538: 
045953,000539:                                                                                                 # # Page 1052
045954,000540:                                                                                                 #                 ROLL ON-TIME CALCULATION-
045955,000541: 
045956,000542: 17,3263           11561        ROLLTIME          CCS      TAU                                   
045957,000543: 17,3264           13303                          TCF      RBLAST                                
045958,000544: 17,3265           13267                          TCF      +2                                    
045959,000545: 17,3266           13303                          TCF      RBLAST                                
045960,000546: 17,3267           51522                          INDEX    NRJETS                                
045961,000547: 17,3270           33276                          CA       DFTMAX                                #  UPDATE DFT EVEN THO NO ROLL COMMANDS ARE
045962,000548: 17,3271           55547                          TS       DFT                                   #  PRESENT
045963,000549: 17,3272           13505                          TCF      RBYPASS                               
045964,000550: 
045965,000551: 17,3273           77037                          DEC      -480       B-14                       #  = -.3SEC
045966,000552: 17,3274           77277                          DEC      -320       B-14                       #  = -.2SEC
045967,000553: 17,3275           77537        =-.1SEC           DEC      -160       B-14                       #  = -.1SEC
045968,000554: 17,3276           00000        DFTMAX            DEC      0          B-14                       #  0
045969,000555: 17,3277           00240        =+.1SEC           DEC      160        B-14                       #  = +.1SEC
045970,000556: 17,3300           00500                          DEC      320        B-14                       #  = +.2SEC
045971,000557: 17,3301           00740                          DEC      480        B-14                       #  = +.3SEC
045972,000558: 17,3302           00027        =14MS             DEC      23         B-14                       #  =14MS
045973,000559: 
045974,000560: 17,3303           31561        RBLAST            CA       TAU                                   
045975,000561: 17,3304           00006                          EXTEND                                         
045976,000562: 17,3305           51522                          INDEX    NRJETS                                
045977,000563: 17,3306           73342                          MP       NJET                                  
045978,000564: 17,3307           55456                          TS       BLAST                                 #  BLAST IS AN INTERMEDIATE VARIABLE
045979,000565:                                                                                                 #  USED IN DETERMINING THE JET ON-TIMES
045980,000566: 17,3310           63275                          AD       =-.1SEC                               
045981,000567: 17,3311           00006                          EXTEND                                         
045982,000568: 17,3312           63323                          BZMF     AD14MSR                               
045983,000569: 17,3313           51522                          INDEX    NRJETS                                #  THE ROLL ROTATION WILL LAST LONGER
045984,000570: 17,3314           33276                          CA       DFTMAX                                #  THAN THE T5 CYCLE TIME
045985,000571: 17,3315           55547                          TS       DFT                                   
045986,000572: 17,3316           40000                          COM                                            
045987,000573: 17,3317           27561                          ADS      TAU                                   
045988,000574: 17,3320           33277                          CAF      =+.1SEC                               #  LIMIT THE LENGTH OF ROLL ROTATION
045989,000575: 17,3321           55456                          TS       BLAST                                 #  COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z
045990,000576: 17,3322           13366                          TCF      ASMBLWR                               #  TRANSLATION COMMANDS CONTINUE
045991,000577: 
045992,000578: 17,3323           41456        AD14MSR           CS       BLAST                                 #  SEE IF THE JET ON-TIME LESS THAN
045993,000579: 17,3324           63302                          AD       =14MS                                 #  MINIMUM IMPULSE TIME
045994,000580: 17,3325           00006                          EXTEND                                         
045995,000581: 17,3326           63331                          BZMF     RBLASTOK                              
045996,000582: 17,3327           33302                          CAF      =14MS                                 #  IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
045997,000583: 17,3330           55456                          TS       BLAST                                 
045998,000584: 17,3331           31456        RBLASTOK          CA       BLAST                                 
045999,000585: 17,3332           00006                          EXTEND                                         
046000,000586: 17,3333           71522                          MP       NRJETS                                
046001,000587: 17,3334           23547                          LXCH     DFT                                   
046002,000588: 17,3335           55561                          TS       TAU                                   #  ZERO TAU
046003,000589: 17,3336           13366                          TCF      ASMBLWR                               
046004,000590: 
046005,000591:                                                                                                 # # Page 1053
046006,000592: 17,3337           65252                          DEC      -.333333                              #  = -1/3
046007,000593: 17,3340           57777                          DEC      -.500000                              #  = -1/2
046008,000594: 17,3341           40000                          DEC      -.999999                              #  = -1 (NEGMAX)
046009,000595: 17,3342           00000        NJET              DEC      0          B-14                       
046010,000596: 17,3343           37777                          DEC      .999999                               #  = +1 (POSMAX)
046011,000597: 17,3344           20000                          DEC      .500000                               #  = +1/2
046012,000598: 17,3345           12525                          DEC      .333333                               #  = +1/3
046013,000599: 
046014,000600:                                                                                                 # # Page 1054
046015,000601:                                                                                                 #     WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH
046016,000602:                                                                                                 #  CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT.
046017,000603:                                                                                                 #     IN THIS SECTION THESE NEW COMMANDS ARE GENERATED AND STORED FOR REPLACEMENT OF THE CHANNEL COMMANDS WHEN THE
046018,000604:                                                                                                 #  CORRESPONDING ROTATIONS ARE COMPLETED.
046019,000605: 
046020,000606:                                                                                                 #  GENERATION OF THE SECOND PITCH(X-TRANS) WORD...PWORD2
046021,000607: 
046022,000608: 17,3346           11626        ASMBLWP           CCS      RACFAIL                               
046023,000609: 17,3347           13355                          TCF      FPX2                                  #  IF FAILURE ON AC IGNORE X-TRANSLATION
046024,000610: 17,3350           13352                          TCF      +2                                    
046025,000611: 17,3351           13355                          TCF      FPX2                                  
046026,000612: 17,3352           51513                          INDEX    XNDX1                                 
046027,000613: 17,3353           32647                          CA       XLNNDX                                
046028,000614: 17,3354           50000                          INDEX    A                                     
046029,000615: 17,3355           32703        FPX2              CA       PYTABLE                               
046030,000616: 17,3356           72722                          MASK     PJETS                                 
046031,000617: 17,3357           55453                          TS       PWORD2                                
046032,000618: 17,3360           13217                          TCF      YAWTIME                               
046033,000619: 
046034,000620: 17,3361           31452        PBYPASS           CA       PWORD1                                #  THE T6 PROGRAM WILL LOAD PWORD2
046035,000621: 17,3362           55453                          TS       PWORD2                                #  UPON ENTRY
046036,000622: 17,3363           34772                          CAF      ZERO                                  
046037,000623: 17,3364           55460                          TS       BLAST1                                #  THERE IS NO PWORD2
046038,000624: 17,3365           13217                          TCF      YAWTIME                               
046039,000625: 
046040,000626:                                                                                                 # # Page 1055
046041,000627:                                                                                                 #  GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2)
046042,000628: 
046043,000629: 17,3366           11515        ASMBLWR           CCS      YNDX                                  #  CHECK FOR Y-TRANS
046044,000630: 17,3367           13377                          TCF      ACBD2Y                                
046045,000631: 17,3370           34772        NO2Y              CAF      ZERO                                  
046046,000632: 17,3371           55451                 +1       TS       RWORD2                                
046047,000633: 17,3372           11516                          CCS      ZNDX                                  #  CHECK FOR Z-TRANS
046048,000634: 17,3373           13442                          TCF      ACBD2Z                                
046049,000635: 17,3374           34772        NO2Z              CAF      ZERO                                  
046050,000636: 17,3375           27451                 +1       ADS      RWORD2                                
046051,000637: 17,3376           13153                          TCF      PITCHTIM                              #  RWORD2 ASSEMBLED
046052,000638: 
046053,000639: 17,3377           11630        ACBD2Y            CCS      ACORBD                                
046054,000640: 17,3400           13415                          TCF      AC2Y                                  #  CAN DO Y-TRANS
046055,000641: 17,3401           13415                          TCF      AC2Y                                  
046056,000642: 17,3402           13403                          TCF      +1                                    #  USING AC FOR ROLL
046057,000643: 17,3403           11626                          CCS      RACFAIL                               
046058,000644: 17,3404           13370                          TCF      NO2Y                                  #  USING AC AND AC HAS FAILED
046059,000645: 17,3405           13407                          TCF      +2                                    
046060,000646: 17,3406           13370                          TCF      NO2Y                                  #  DITTO
046061,000647: 
046062,000648: 17,3407           51515                          INDEX    YNDX                                  #  NO FAILURES, CAN DO Y
046063,000649: 17,3410           32647                          CA       XLNNDX                                
046064,000650: 17,3411           50000                          INDEX    A                                     
046065,000651: 17,3412           33117                          CA       RTABLE                                
046066,000652: 17,3413           73136                          MASK     ACRJETS                               
046067,000653: 17,3414           13371                          TCF      NO2Y       +1                         
046068,000654: 
046069,000655: 17,3415           11626        AC2Y              CCS      RACFAIL                               
046070,000656: 17,3416           36214                          CAF      THREE                                 
046071,000657: 17,3417           13421                          TCF      +2                                    
046072,000658: 17,3420           36211                          CAF      SIX                                   
046073,000659: 17,3421           51515                          INDEX    YNDX                                  
046074,000660: 17,3422           62760                          AD       XLN1NDX                               
046075,000661: 17,3423           50000                          INDEX    A                                     
046076,000662: 17,3424           33140                          CA       YZTABLE                               
046077,000663: 17,3425           73152                          MASK     ACYJETS                               
046078,000664: 17,3426           55451                          TS       RWORD2                                
046079,000665: 17,3427           00006                          EXTEND                                         
046080,000666: 17,3430           74765                          MP       BIT4                                  
046081,000667: 17,3431           67701                          AD       =-2                                   
046082,000668: 17,3432           55522                          TS       NRJETS                                
046083,000669: 17,3433           41456                          CS       BLAST                                 
046084,000670: 17,3434           63277                          AD       =+.1SEC                               
046085,000671: 17,3435           00006                          EXTEND                                         
046086,000672: 17,3436           71522                          MP       NRJETS                                
046087,000673: 17,3437           30001                          CA       L                                     
046088,000674: 17,3440           27547                          ADS      DFT                                   
046089,000675: 17,3441           13372                          TCF      NO2Y       +2                         
046090,000676:                                                                                                 # # Page 1056
046091,000677: 17,3442           11630        ACBD2Z            CCS      ACORBD                                
046092,000678: 17,3443           13473                          TCF      BDF2Z                                 #  USING BD-ROLL
046093,000679: 17,3444           13473                          TCF      BDF2Z                                 #  MUST CHECK FOR BD FAILURES
046094,000680: 17,3445           13446                          TCF      +1                                    
046095,000681: 17,3446           11627                          CCS      RBDFAIL                               #  USING AC FOR ROLL, CAN DO Z-TRANS
046096,000682: 17,3447           36214                          CAF      THREE                                 
046097,000683: 17,3450           13452                          TCF      +2                                    
046098,000684: 17,3451           36211                          CAF      SIX                                   
046099,000685: 17,3452           51516                          INDEX    ZNDX                                  
046100,000686: 17,3453           62760                          AD       XLN1NDX                               
046101,000687: 17,3454           50000                          INDEX    A                                     
046102,000688: 17,3455           33140                          CA       YZTABLE                               
046103,000689: 17,3456           73151                          MASK     BDZJETS                               
046104,000690: 17,3457           27451                          ADS      RWORD2                                
046105,000691: 17,3460           00006                          EXTEND                                         
046106,000692: 17,3461           74762                          MP       BIT7                                  
046107,000693: 17,3462           67701                          AD       =-2                                   
046108,000694: 17,3463           55522                          TS       NRJETS                                
046109,000695: 17,3464           41456                          CS       BLAST                                 
046110,000696: 17,3465           63277                          AD       =+.1SEC                               
046111,000697: 17,3466           00006                          EXTEND                                         
046112,000698: 17,3467           71522                          MP       NRJETS                                
046113,000699: 17,3470           30001                          CA       L                                     
046114,000700: 17,3471           27547                          ADS      DFT                                   
046115,000701: 17,3472           13153                          TCF      PITCHTIM                              
046116,000702: 
046117,000703: 17,3473           11627        BDF2Z             CCS      RBDFAIL                               
046118,000704: 17,3474           13374                          TCF      NO2Z                                  #  USING BD-ROLL AND BD HAS FAILED
046119,000705: 17,3475           13477                          TCF      +2                                    
046120,000706: 17,3476           13374                          TCF      NO2Z                                  #  DITTO
046121,000707: 17,3477           51516                          INDEX    ZNDX                                  
046122,000708: 17,3500           32647                          CA       XLNNDX                                
046123,000709: 17,3501           50000                          INDEX    A                                     
046124,000710: 17,3502           33117                          CA       RTABLE                                
046125,000711: 17,3503           73137                          MASK     BDRJETS                               
046126,000712: 17,3504           13375                          TCF      NO2Z       +1                         
046127,000713: 
046128,000714: 17,3505           31450        RBYPASS           CA       RWORD1                                
046129,000715: 17,3506           55451                          TS       RWORD2                                
046130,000716: 17,3507           34772                          CAF      ZERO                                  
046131,000717: 17,3510           55456                          TS       BLAST                                 
046132,000718: 17,3511           13153                          TCF      PITCHTIM                              
046133,000719: 
046134,000720:                                                                                                 # # Page 1057     
046135,000721:                                                                                                 #                 GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2
046136,000722: 
046137,000723: 17,3512           11627        ASMBLWY           CCS      RBDFAIL                               
046138,000724: 17,3513           13521                          TCF      FYX2                                  #  IF FAILURE ON BD IGNORE X-TRANSLATION
046139,000725: 17,3514           13516                          TCF      +2                                    
046140,000726: 17,3515           13521                          TCF      FYX2                                  
046141,000727: 17,3516           51514                          INDEX    XNDX2                                 
046142,000728: 17,3517           32647                          CA       XLNNDX                                
046143,000729: 17,3520           50000                          INDEX    A                                     
046144,000730: 17,3521           32703        FYX2              CA       PYTABLE                               
046145,000731: 17,3522           72723                          MASK     YJETS                                 
046146,000732: 17,3523           55455                          TS       YWORD2                                
046147,000733: 17,3524           13531                          TCF      T6SETUP                               
046148,000734: 
046149,000735: 17,3525           31454        YBYPASS           CA       YWORD1                                
046150,000736: 17,3526           55455                          TS       YWORD2                                
046151,000737: 17,3527           34772                          CAF      ZERO                                  
046152,000738: 17,3530           55462                          TS       BLAST2                                
046153,000739: 
046154,000740:                                                                                                 # # Page 1058
046155,000741:                                                                                                 #                 SORT THE JET ON-TIMES
046156,000742: 
046157,000743:                                                                                                 #     AT THIS POINT ALL THE CHANNEL COMMANDS AND JET ON-TIMES HAVE BEEN DETERMINED. IN SUMMARY THESE ARE:
046158,000744: 
046159,000745:                                                                                                 #                 RWORD1
046160,000746:                                                                                                 #                 RWORD2          BLAST
046161,000747: 
046162,000748:                                                                                                 #                 PWORD1
046163,000749:                                                                                                 #                 PWORD2          BLAST1
046164,000750: 
046165,000751:                                                                                                 #                 YWORD1
046166,000752:                                                                                                 #                 YWORD2          BLAST2
046167,000753: 
046168,000754:                                                                                                 #      IN THIS SECTION THE JET ON-TIMES ARE SORTED AND THE SEQUENCE OF T6 INTERRUPTS IS DETERMINED.  TO FACILITATE
046169,000755:                                                                                                 #  THE SORTING PROCESS AND THE T6 PROGRAM, THE VARIABLES BLAST, BLAST1, BLAST2, ARE RESERVED AS DOUBLE PRECISION
046170,000756:                                                                                                 #  WORDS.  THE LOWER PART OF THESE WORDS CONTAIN A BRANCH INDEX ASSOCIATED WITH THE ROTATION AXIS OF THE HIGHER
046171,000757:                                                                                                 #  ORDER WORD.
046172,000758: 
046173,000759: 17,3531           34772        T6SETUP           CAF      ZERO                                  #  BRANCH INDEX FOR ROLL
046174,000760: 17,3532           55457                          TS       BLAST      +1                         
046175,000761: 17,3533           34766                          CAF      FOUR                                  #  BRANCH INDEX FOR PITCH
046176,000762: 17,3534           55461                          TS       BLAST1     +1                         
046177,000763: 17,3535           34775                          CAF      ELEVEN                                #  BRANCH INDEX FOR YAW
046178,000764: 17,3536           55463                          TS       BLAST2     +1                         
046179,000765: 
046180,000766: 17,3537           41456                          CS       BLAST                                 
046181,000767: 17,3540           61460                          AD       BLAST1                                
046182,000768: 17,3541           00006                          EXTEND                                         
046183,000769: 17,3542           63566                          BZMF     DXCHT12                               #  T1 OR T2
046184,000770: 17,3543           41460        CHECKT23          CS       BLAST1                                
046185,000771: 17,3544           61462                          AD       BLAST2                                
046186,000772: 17,3545           00006                          EXTEND                                         
046187,000773: 17,3546           63572                          BZMF     DXCHT23                               
046188,000774: 17,3547           41460        CALCDT6           CS       BLAST1                                
046189,000775: 17,3550           27462                          ADS      BLAST2                                
046190,000776: 17,3551           41456                          CS       BLAST                                 
046191,000777: 17,3552           27460                          ADS      BLAST1                                #  END OF SORTING PROCEDURE
046192,000778: 17,3553           00006                          EXTEND                                         #  RESET T5LOC TO BEGIN PHASE1
046193,000779: 17,3554           33565                          DCA      RCS2CADR                              
046194,000780: 17,3555           52113                          DXCH     T5LOC                                 
046195,000781: 17,3556           44770        ENDJETS           CS       BIT1                                  #  RESET BIT1 FOR INITIALIZATION OF
046196,000782: 17,3557           71501                          MASK     RCSFLAGS                              #  T6 PROGRAM
046197,000783: 17,3560           55501                          TS       RCSFLAGS                              
046198,000784: 17,3561           44772                          CS       ZERO                                  #  RESET T5PHASE FOR PHASE1
046199,000785: 17,3562           55464                          TS       T5PHASE                               
046200,000786: 17,3563           15323                          TCF      RESUME                                #  RESUME INTERRUPTED PROGRAM
046201,000787: 
046202,000788: 17,3564  E6,1510                                 EBANK=   KMPAC                                 
046203,000789: 17,3564           02140 42066  RCS2CADR          2CADR    RCSATT                                
046204,000790: 
046205,000791:                                                                                                 # # Page 1059
046206,000792: 17,3566           53457        DXCHT12           DXCH     BLAST                                 
046207,000793: 17,3567           53461                          DXCH     BLAST1                                
046208,000794: 17,3570           53457                          DXCH     BLAST                                 
046209,000795: 17,3571           13543                          TCF      CHECKT23                              
046210,000796: 
046211,000797: 17,3572           53461        DXCHT23           DXCH     BLAST1                                
046212,000798: 17,3573           53463                          DXCH     BLAST2                                
046213,000799: 17,3574           53461                          DXCH     BLAST1                                
046214,000800: 17,3575           41456                          CS       BLAST                                 
046215,000801: 17,3576           61460                          AD       BLAST1                                
046216,000802: 17,3577           00006                          EXTEND                                         
046217,000803: 17,3600           63602                          BZMF     +2                                    
046218,000804: 17,3601           13547                          TCF      CALCDT6                               
046219,000805: 17,3602           53457                          DXCH     BLAST                                 
046220,000806: 17,3603           53461                          DXCH     BLAST1                                
046221,000807: 17,3604           53457                          DXCH     BLAST                                 
046222,000808: 17,3605           13547                          TCF      CALCDT6                               
046223,000809: 
046224,000810:                                                                                                 # # Page 1060
046225,000811:                                                                                                 #                 T6 PROGRAM AND CHANNEL SETUP
046226,000812: 
046227,000813: 17,2000                                          SETLOC   DAPS5                                 
046228,000814: 17,2000                                          BANK                                           
046229,000815: 
046230,000816: 17,3606                                          COUNT*   $$/T6RPT                              
046231,000817: 17,3606           22016        T6START           LXCH     BANKRUPT                              
046232,000818: 17,3607           00006                          EXTEND                                         
046233,000819: 17,3610           22012                          QXCH     QRUPT                                 
046234,000820: 17,3611           10031                          CCS      TIME6                                 #  CHECK TO SEE IF TIME6 WAS RESET
046235,000821: 17,3612           15323                          TCF      RESUME                                #  AFTER T6RUPT OCCURRED (IN T5RUPT)
046236,000822: 17,3613           13615                          TCF      +2                                    #  IF SO WAIT FOR NEXT T6RUPT BEFORE
046237,000823: 17,3614           15323                          TCF      RESUME                                #  TAKING ACTION
046238,000824: 
046239,000825: 17,3615           41501                          CS       RCSFLAGS                              
046240,000826: 17,3616           74770                          MASK     BIT1                                  #  IF BIT1 IS 0 RESET TO 1
046241,000827: 17,3617           00006                          EXTEND                                         #  AND INITIALIZE CHANNEL
046242,000828: 17,3620           13631                          BZF      T6RUPTOR                              
046243,000829: 17,3621           27501                          ADS      RCSFLAGS                              
046244,000830: 17,3622           31450                          CA       RWORD1                                
046245,000831: 17,3623           00006                          EXTEND                                         #  INITIALIZE CHANNELS 5,6 WITH WORD1
046246,000832: 17,3624           01006                          WRITE    CHAN6                                 
046247,000833: 17,3625           31452                          CA       PWORD1                                
046248,000834: 17,3626           61454                          AD       YWORD1                                
046249,000835: 17,3627           00006                          EXTEND                                         
046250,000836: 17,3630           01005                          WRITE    CHAN5                                 
046251,000837: 
046252,000838: 17,3631           11456        T6RUPTOR          CCS      BLAST                                 
046253,000839: 17,3632           13711                          TCF      ZBLAST                                #  ZERO BLAST1
046254,000840: 17,3633           13650                          TCF      REPLACE                               #  REPLACE WORD1
046255,000841: 17,3634           13636                          TCF      +2                                    
046256,000842: 17,3635           13650                          TCF      REPLACE                               
046257,000843: 17,3636           11460        T6L1              CCS      BLAST1                                
046258,000844: 17,3637           13714                          TCF      ZBLAST1                               
046259,000845: 17,3640           13655                          TCF      REPLACE1                              
046260,000846: 17,3641           13643                          TCF      +2                                    
046261,000847: 17,3642           13655                          TCF      REPLACE1                              
046262,000848: 17,3643           11462        T6L2              CCS      BLAST2                                
046263,000849: 17,3644           13717                          TCF      ZBLAST2                               
046264,000850: 17,3645           13662                          TCF      REPLACE2                              
046265,000851: 17,3646           15323                          TCF      RESUME                                
046266,000852: 17,3647           13662                          TCF      REPLACE2                              
046267,000853: 
046268,000854: 17,3650           51457        REPLACE           INDEX    BLAST      +1                         
046269,000855: 17,3651           03667                          TC       REPLACER                              
046270,000856: 17,3652           44770                          CS       ONE                                   
046271,000857: 17,3653           55456                          TS       BLAST                                 
046272,000858: 17,3654           13636                          TCF      T6L1                                  
046273,000859: 
046274,000860: 17,3655           51461        REPLACE1          INDEX    BLAST1     +1                         
046275,000861:                                                                                                 # # Page 1061
046276,000862: 17,3656           03667                          TC       REPLACER                              
046277,000863: 17,3657           44770                          CS       ONE                                   
046278,000864: 17,3660           55460                          TS       BLAST1                                
046279,000865: 17,3661           13643                          TCF      T6L2                                  
046280,000866: 
046281,000867: 17,3662           51463        REPLACE2          INDEX    BLAST2     +1                         
046282,000868: 17,3663           03667                          TC       REPLACER                              
046283,000869: 17,3664           44770                          CS       ONE                                   
046284,000870: 17,3665           55462                          TS       BLAST2                                
046285,000871: 17,3666           15323                          TCF      RESUME                                
046286,000872: 
046287,000873: 17,3667           31451        REPLACER          CA       RWORD2                                #  INITIALIZE CHANNELS 5,6 WITH WORD2
046288,000874: 17,3670           00006                          EXTEND                                         
046289,000875: 17,3671           01006                          WRITE    CHAN6                                 
046290,000876: 17,3672           00002                          TC       Q                                     
046291,000877: 
046292,000878: 17,3673           32723        REPLACEP          CA       YJETS                                 
046293,000879: 17,3674           00006                          EXTEND                                         
046294,000880: 17,3675           02005                          RAND     CHAN5                                 
046295,000881: 17,3676           61453                          AD       PWORD2                                
046296,000882: 17,3677           00006                          EXTEND                                         
046297,000883: 17,3700           01005                          WRITE    CHAN5                                 
046298,000884: 17,3701           00002                          TC       Q                                     
046299,000885: 
046300,000886: 17,3702           32722        REPLACEY          CA       PJETS                                 
046301,000887: 17,3703           00006                          EXTEND                                         
046302,000888: 17,3704           02005                          RAND     CHAN5                                 
046303,000889: 17,3705           61455                          AD       YWORD2                                
046304,000890: 17,3706           00006                          EXTEND                                         
046305,000891: 17,3707           01005                          WRITE    CHAN5                                 
046306,000892: 17,3710           00002                          TC       Q                                     
046307,000893: 
046308,000894: 17,3711           34772        ZBLAST            CAF      ZERO                                  
046309,000895: 17,3712           57456                          XCH      BLAST                                 
046310,000896: 17,3713           13721                          TCF      ENABT6                                
046311,000897: 17,3714           34772        ZBLAST1           CAF      ZERO                                  
046312,000898: 17,3715           57460                          XCH      BLAST1                                
046313,000899: 17,3716           13721                          TCF      ENABT6                                
046314,000900: 17,3717           34772        ZBLAST2           CAF      ZERO                                  
046315,000901: 17,3720           57462                          XCH      BLAST2                                
046316,000902: 17,3721           54031        ENABT6            TS       TIME6                                 
046317,000903: 17,3722           04542                          TC       C13STALL                              
046318,000904: 17,3723           34752                          CAF      NEGMAX                                
046319,000905: 17,3724           00006                          EXTEND                                         
046320,000906: 17,3725           05013                          WOR      CHAN13                                #  ENABLE T6RUPT
046321,000907: 17,3726           15323                          TCF      RESUME                                
046322,000908: 
046323,000909:                                                                                                 #  END OF T6 INTERRUPT
046324,000910: 
046325,000911: 17,3727                        ENDSLECT          EQUALS                                         
046326,000912: 
046327,000913:                                                                                                 # # Page 1062 (empty page)

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