Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

045169,000002:                                                                                                  ## Copyright:   Public domain.
045170,000003:                                                                                                  ## Filename:    JET_SELECTION_LOGIC.agc
045171,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
045172,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
045173,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
045174,000007:                                                                                                  ## Assembler:   yaYUL
045175,000008:                                                                                                  ## Reference:   Starts on p. 1010
045176,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
045177,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
045178,000011:                                                                                                  ## Mod history: 08/26/04 RSB.   Began transcribing.
045179,000012:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
045180,000013:                                                                                                  ##                              original harcopy, as opposed to the PDF page
045181,000014:                                                                                                  ##                              numbers in 1701.pdf.
045182,000015:                                                                                                  ##              2017-01-15 RSB  Cross-diff'd comment text (not whitespace)
045183,000016:                                                                                                  ##                              vs the already-proofed corresponding Colossus
045184,000017:                                                                                                  ##                              237 and Comanche 55 source-code files
045185,000018:                                                                                                  ##                              and corrected errors found.  No differences
045186,000019:                                                                                                  ##                              remained afterward.
045187,000020:                                                                                                  ##              2017-02-05 RSB  Back-ported comment corrections 
045188,000021:                                                                                                  ##                              identified while proofing Artemis 072.
045189,000022:                                                                                                  ##
045190,000023:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
045191,000024:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
045192,000025:                                                                                                  ## document read, in part:
045193,000026:                                                                                                  ##
045194,000027:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
045195,000028:                                                                                                  ##      2021111-041.  October 28, 1968.  
045196,000029:                                                                                                  ##
045197,000030:                                                                                                  ##      This AGC program shall also be referred to as
045198,000031:                                                                                                  ##                              Colossus 1A
045199,000032:                                                                                                  ##
045200,000033:                                                                                                  ##      Prepared by
045201,000034:                                                                                                  ##                      Massachusetts Institute of Technology
045202,000035:                                                                                                  ##                      75 Cambridge Parkway
045203,000036:                                                                                                  ##                      Cambridge, Massachusetts
045204,000037:                                                                                                  ##      under NASA contract NAS 9-4065.
045205,000038:                                                                                                  ##
045206,000039:                                                                                                  ## Refer directly to the online document mentioned above for further information.
045207,000040:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
045208,000041:                                                                                                  ##
045209,000042:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
045210,000043:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
045211,000044:                                                                                                  ## source file, and then is proofed to incorporate any changes.
045212,000045: 

Page 1010

045214,000047: 21,3751                                           BANK     21                                    
045215,000048: 17,2000                                           SETLOC   DAPS4                                 
045216,000049: 17,2000                                           BANK                                           
045217,000050: 
045218,000051: 17,2577                                           COUNT    17/DAPJS                              
045219,000052: 
045220,000053: 17,2577  E6,1510                                  EBANK=   KMPAC                                 
045221,000054: 
045222,000055:                                                                                                  #  EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS
045223,000056: 
045224,000057: 17,2577           22016        JETSLECT           LXCH     BANKRUPT                              
045225,000058: 17,2600           32661                           CAF      DELTATT3                              #  = 60 MS  RESET TO EXECUTE PHASE1
045226,000059: 17,2601           61634                           AD       T5TIME                                
045227,000060: 17,2602           54030                           TS       TIME5                                 
045228,000061: 17,2603           12606                           TCF      +3                                    
045229,000062: 17,2604           32662                           CAF      DELATT20                              #  = 20 MS  TO ASSURE A T5RUPT
045230,000063: 17,2605           54030                           TS       TIME5                                 
045231,000064: 17,2606           33340                           CAF      =14MS                                 #  RESET T6 TO INITIALIZE THE JET CHANNELS
045232,000065: 17,2607           54031                           TS       TIME6                                 #  IN 14 MS
045233,000066: 17,2610           34674                           CAF      NEGMAX                                
045234,000067: 17,2611           00006                           EXTEND                                         
045235,000068: 17,2612           05013                           WOR      CHAN13                                
045236,000069: 17,2613           00006                           EXTEND                                         
045237,000070: 17,2614           22012                           QXCH     QRUPT                                 
045238,000071: 17,2615           32660                           CAF      XLNMASK                               #  = 7700 OCT
045239,000072: 17,2616           00006                           EXTEND                                         #  EXAMINE THE TRANSLATION
045240,000073: 17,2617           06031                           RXOR     CHAN31                                #  HAND CONTROLLER
045241,000074: 17,2620           72660                           MASK     XLNMASK                               
045242,000075: 17,2621           00006                           EXTEND                                         
045243,000076: 17,2622           12663                           BZF      NOXLNCMD                              
045244,000077: 17,2623           55502                           TS       T5TEMP                                
045245,000078: 17,2624           00006                           EXTEND                                         
045246,000079: 17,2625           74702                           MP       BIT9                                  
045247,000080: 17,2626           76214                           MASK     THREE                                 
045248,000081: 17,2627           55513                           TS       XNDX1                                 #  AC QUAD  X-TRANSLATION INDEX
045249,000082: 17,2630           55514                           TS       XNDX2                                 #  BD QUAD  X-TRANSLATION INDEX
045250,000083: 17,2631           31502                           CA       T5TEMP                                
045251,000084: 17,2632           00006                           EXTEND                                         #  1 = + XLN
045252,000085: 17,2633           74704                           MP       BIT7                                  #  2 = - XLN
045253,000086: 17,2634           76214                           MASK     THREE                                 #  3 = NO XLN
045254,000087: 17,2635           55515                           TS       YNDX                                  #  Y-TRANSLATION INDEX
045255,000088: 
045256,000089: 17,2636           31502                           CA       T5TEMP                                
045257,000090: 17,2637           00006                           EXTEND                                         
045258,000091: 17,2640           74706                           MP       BIT5                                  
045259,000092: 17,2641           76214                           MASK     THREE                                 
045260,000093: 17,2642           55516                           TS       ZNDX                                  #  Z-TRANSLATION INDEX
045261,000094: 
045262,000095: 17,2643           31466                           CA       DAPDATR1                              #  SET ATTKALMN TO PICK UP FILTER GAINS FOR
045263,000096: 17,2644           74675                           MASK     BIT14                                 #  TRANSLATIONS.
045264,000097: 17,2645           00006                           EXTEND                                         #  CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED.

Page 1011

045266,000099: 17,2646           12651                           BZF      NOLEM                                 
045267,000100: 17,2647           46214                           CS       THREE                                 #  IF LEM IS ON, SET ATTKALMN = -3
045268,000101: 17,2650           12652                           TCF      +2                                    
045269,000102: 17,2651           44711        NOLEM              CS       TWO                                   #  IF LEM IS OFF, SET ATTKALMN = -2.
045270,000103: 17,2652           55617                           TS       ATTKALMN                              
045271,000104: 17,2653           11631                           CCS      XTRANS                                #  (+, -1, 0)
045272,000105: 17,2654           55513                           TS       XNDX1                                 #  USING BD-X  ZERO XNDX1
045273,000106: 17,2655           12667                           TCF      PWORD                                 
045274,000107: 17,2656           55514                           TS       XNDX2                                 #  USING AC-X  ZERO XNDX2
045275,000108: 17,2657           12667                           TCF      PWORD                                 
045276,000109: 17,2660           07700        XLNMASK            OCT      7700                                  
045277,000110: 17,2661           37772        DELTATT3           DEC      16378      B-14                       #  = 60 MS
045278,000111: 17,2662           37776        DELATT20           DEC      16382      B-14                       #  = 20 MS
045279,000112: 
045280,000113: 17,2663           55513        NOXLNCMD           TS       XNDX1                                 #  ZERO ALL REQUESTS FOR TRANSLATION
045281,000114: 17,2664           55514                           TS       XNDX2                                 
045282,000115: 17,2665           55515                           TS       YNDX                                  
045283,000116: 17,2666           55516                           TS       ZNDX                                  
045284,000117: 
045285,000118:                                                                                                  #  PITCH COMMANDS  TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT
045286,000119: 
045287,000120: 17,2667           11562        PWORD              CCS      TAU1                                  #  CHECK FOR PITCH COMMANDS
045288,000121: 17,2670           34712                           CAF      ONE                                   
045289,000122: 17,2671           12673                           TCF      +2                                    #   0 = NO PITCH
045290,000123: 17,2672           34711                           CAF      TWO                                   #  +1 =  + PITCH
045291,000124: 17,2673           55520                           TS       PINDEX                                #  +2 =  - PITCH
045292,000125: 
045293,000126: 17,2674           11626                           CCS      RACFAIL                               #  FLAG FOR REAL AC QUAD FAILURES
045294,000127: 17,2675           12701                           TCF      AFAILP                                
045295,000128: 17,2676           12711                           TCF      TABPCOM                               #  0 = NO REAL AC FAILURES
045296,000129: 17,2677           12703                           TCF      CFAILP                                #  + = A QUAD FAILED
045297,000130: 17,2700           12711                           TCF      TABPCOM                               #  - = C QUAD FAILED
045298,000131:                                                                                                  #  IF FAILURES ARE PRESENT IGNORE
045299,000132:                                                                                                  #  X-TRANSLATIONS ON THIS AXIS
045300,000133: 
045301,000134: 17,2701           34334        AFAILP             CAF      NINE                                  #  IF FAILURE IS PRESENT 1JET OPERATION
045302,000135: 17,2702           12713                           TCF      TABPCOM    +2                         #  IS ASSUMED.  IGNORE X-TRANSLATION
045303,000136: 17,2703           35656        CFAILP             CAF      TWELVE                                
045304,000137: 17,2704           12713                           TCF      TABPCOM    +2                         
045305,000138: 
045306,000139: 17,2705           00000        XLNNDX             DEC      0          B-14                       #  INDECES FOR TRANSLATION COMMANDS
045307,000140: 17,2706           00003                           DEC      3          B-14                       #  FOR USE IN TABLE LOOK UP
045308,000141: 17,2707           00006                           DEC      6          B-14                       
045309,000142: 17,2710           00000                           DEC      0          B-14                       
045310,000143: 
045311,000144: 17,2711     5656               TWELVE             =        OCT14                                 
045312,000145: 
045313,000146:                                                                                                  #  TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT.
045314,000147:                                                                                                  #  BITS 9, 10 CONTAIN THE NUMBER OF PITCH JETS USED TO PERFORM THE PITCH ROTATION

Page 1012

045316,000149: 
045317,000150: 17,2711           51513        TABPCOM            INDEX    XNDX1                                 
045318,000151: 17,2712           32705                           CA       XLNNDX                                
045319,000152: 17,2713           61520                           AD       PINDEX                                
045320,000153: 17,2714           50000                           INDEX    A                                     
045321,000154: 17,2715           32741                           CA       PYTABLE                               
045322,000155: 17,2716           72760                           MASK     PJETS                                 #  =1417 OCT
045323,000156: 17,2717           55453                           TS       PWORD1                                
045324,000157: 17,2720           00006                           EXTEND                                         
045325,000158: 17,2721           74704                           MP       BIT7                                  
045326,000159: 17,2722           55523                           TS       NPJETS                                #  = NO. OF PITCH JETS
045327,000160: 
045328,000161:                                                                                                  #  YAW JET COMMANDS  TIMING(NO X-TRANS, NO QUAD FAILURES)  32MCT
045329,000162: 
045330,000163: 17,2723           11563        YWORD              CCS      TAU2                                  #  CHECK FOR YAW COMMANDS
045331,000164: 17,2724           34712                           CAF      ONE                                   
045332,000165: 17,2725           12727                           TCF      +2                                    
045333,000166: 17,2726           34711                           CAF      TWO                                   
045334,000167: 17,2727           55521                           TS       YINDEX                                #  YAW ROTATION INDEX
045335,000168: 
045336,000169: 17,2730           11627                           CCS      RBDFAIL                               #  FLAG FOR B OR D QUAD FAILURES
045337,000170: 17,2731           12735                           TCF      BFAILY                                #  0 = NO BD FAILURE
045338,000171: 17,2732           12762                           TCF      TABYCOM                               #  + = B QUAD FAILED
045339,000172: 17,2733           12737                           TCF      DFAILY                                #  - = D QUAD FAILED
045340,000173: 17,2734           12762                           TCF      TABYCOM                               
045341,000174: 
045342,000175: 17,2735           34334        BFAILY             CAF      NINE                                  
045343,000176: 17,2736           12764                           TCF      TABYCOM    +2                         
045344,000177: 17,2737           35656        DFAILY             CAF      TWELVE                                
045345,000178: 17,2740           12764                           TCF      TABYCOM    +2                         
045346,000179: 

Page 1013

045348,000181:                                                                                                  #  TABLE FOR PITCH(YAW) COMMANDS
045349,000182:                                                                                                  #  BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED
045350,000183:                                                                                                  #  BITS    10,9 = NO. PITCH JETS USED TO PERFORM ROTATION
045351,000184:                                                                                                  #  BITS 8,7,6,5 = YAW, X-TRANSLATION JETS SELECTED
045352,000185:                                                                                                  #  BITS 12,11:  NO. YAW JETS USED TO PERFORM ROTATION
045353,000186: 
045354,000187:                                                                                                  #  ROT   TRANS   QUAD    BIAS
045355,000188: 17,2741           00000        PYTABLE            OCT      0                                     #  0     0               0
045356,000189: 17,2742           05125                           OCT      5125                                  #  +     0               0
045357,000190: 17,2743           05252                           OCT      5252                                  #  -     0               0
045358,000191: 17,2744           00231                           OCT      0231                                  #  0     +               3
045359,000192: 17,2745           02421                           OCT      2421                                  #  +     +               3
045360,000193: 17,2746           02610                           OCT      2610                                  #  -     +               3
045361,000194: 17,2747           00146                           OCT      0146                                  #  0     -               6
045362,000195: 17,2750           02504                           OCT      2504                                  #  +     -               6
045363,000196: 17,2751           02442                           OCT      2442                                  #  -     -               6
045364,000197: 17,2752           00000                           OCT      0                                     #  0             A(B)    9
045365,000198: 17,2753           02421                           OCT      2421                                  #  +             A(B)    9
045366,000199: 17,2754           02442                           OCT      2442                                  #  -             A(B)    9
045367,000200: 17,2755           00000                           OCT      0                                     #  0             C(D)    12
045368,000201: 17,2756           02504                           OCT      2504                                  #  +             C(D)    12
045369,000202: 17,2757           02610                           OCT      2610                                  #  -             C(D)    12
045370,000203: 
045371,000204:                                                                                                  #  MASKS FOR PITCH AND YAW COMMANDS
045372,000205: 
045373,000206: 17,2760           01417        PJETS              OCT      1417                                  
045374,000207: 17,2761           06360        YJETS              OCT      6360                                  
045375,000208: 
045376,000209:                                                                                                  #  TABLE LOOK UP FOR YAW COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT
045377,000210:                                                                                                  #  BITS 11, 12 CONTAIN THE NUMBER OF YAW JETS USED TO PERFORM THE YAW ROTATION
045378,000211: 
045379,000212: 17,2762           51514        TABYCOM            INDEX    XNDX2                                 
045380,000213: 17,2763           32705                           CA       XLNNDX                                
045381,000214: 17,2764           61521                           AD       YINDEX                                
045382,000215: 17,2765           50000                           INDEX    A                                     
045383,000216: 17,2766           32741                           CA       PYTABLE                               
045384,000217: 17,2767           72761                           MASK     YJETS                                 #  = 6360 OCT
045385,000218: 17,2770           55455                           TS       YWORD1                                
045386,000219: 17,2771           00006                           EXTEND                                         
045387,000220: 17,2772           74706                           MP       BIT5                                  
045388,000221: 17,2773           55524                           TS       NYJETS                                #  NO. OF YAW JETS USED TO PERFORM ROTATION
045389,000222: 

Page 1014

045391,000224:                                                                                                  #  ROLL COMMANDS  TIMING(NO Y,Z TRANS, NO QUAD FAILS)  45MCT
045392,000225: 
045393,000226: 17,2774           11561        RWORD              CCS      TAU                                   #  CHECK FOR ROLL COMMANDS
045394,000227: 17,2775           34712                           CAF      ONE                                   
045395,000228: 17,2776           13000                           TCF      +2                                    
045396,000229: 17,2777           34711                           CAF      TWO                                   
045397,000230: 17,3000           55517                           TS       RINDEX                                
045398,000231: 
045399,000232: 17,3001           11630                           CCS      ACORBD                                #  FLAG FOR AC OR BD QUAD SELECTION FOR
045400,000233: 17,3002           13073                           TCF      BDROLL                                #  ROLL COMMANDS
045401,000234: 17,3003           13073                           TCF      BDROLL                                #  +, +0 = BD ROLL
045402,000235: 17,3004           13005                           TCF      +1                                    #  -, -0 = AC ROLL
045403,000236: 
045404,000237: 17,3005           11626        ACROLL             CCS      RACFAIL                               #  CHECK FOR REAL FAILURES
045405,000238: 17,3006           13012                           TCF      RAFAIL                                #  ON AC QUADS
045406,000239: 17,3007           13022                           TCF      RXLNS                                 
045407,000240: 17,3010           13014                           TCF      RCFAIL                                
045408,000241: 17,3011           13022                           TCF      RXLNS                                 
045409,000242: 
045410,000243: 17,3012           34334        RAFAIL             CAF      NINE                                  #  QUAD FAILURE WILL GET
045411,000244: 17,3013           13024                           TCF      TABRCOM                               #  1-JET OPERATION
045412,000245: 17,3014           35656        RCFAIL             CAF      TWELVE                                
045413,000246: 17,3015           13024                           TCF      TABRCOM                               
045414,000247: 
045415,000248: 17,3016           00000        XLN1NDX            DEC      0          B-14                       
045416,000249: 17,3017           00001                           DEC      1          B-14                       #  INDECES FOR TRANSLATION
045417,000250: 17,3020           00002                           DEC      2          B-14                       
045418,000251: 17,3021           00000                           DEC      0          B-14                       
045419,000252: 
045420,000253:                                                                                                  #  TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT
045421,000254:                                                                                                  #  BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL
045422,000255: 
045423,000256: 17,3022           51515        RXLNS              INDEX    YNDX                                  #  NO AC QUAD FAILURES
045424,000257: 17,3023           32705                           CA       XLNNDX                                #  INCLUDE +,-,0, Y-TRANSLATION
045425,000258: 17,3024           61517        TABRCOM            AD       RINDEX                                
045426,000259: 17,3025           50000                           INDEX    A                                     
045427,000260: 17,3026           33155                           CA       RTABLE                                
045428,000261: 17,3027           73174                           MASK     ACRJETS                               #  = 3760 OCT
045429,000262: 17,3030           55451                           TS       RWORD1                                
045430,000263: 
045431,000264:                                                                                                  #  CHECK FOR Z-TRANSLATIONS ON BD
045432,000265: 
045433,000266: 17,3031           31516        BDZCHECK           CA       ZNDX                                  
045434,000267: 17,3032           00006                           EXTEND                                         
045435,000268: 17,3033           63065                           BZMF     NOBDZ                                 #  NO Z-TRANSLATION
045436,000269: 

Page 1015

045438,000271:                                                                                                  #  TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES.  Z-TRANSLATION WILL BE POSS-
045439,000272:                                                                                                  #  IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS.  CRITERION.. IF THE RESULTANT NET ROLL
045440,000273:                                                                                                  #  COMMANDS = 0 (WITH Z-TRANSLATION) AND IF TAU = 0, THEN INCLUDE THE BD Z-TRANSLATION COMMANDS.  IF THE RESULTANT
045441,000274:                                                                                                  #  ROLL COMMAND = 0, AND IF TAU NZ, THEN IGNORE THE BD Z-TRANSLATION
045442,000275: 
045443,000276: 17,3034           11627                           CCS      RBDFAIL                               
045444,000277: 17,3035           36214                           CAF      THREE                                 
045445,000278: 17,3036           13040                           TCF      +2                                    
045446,000279: 17,3037           36211                           CAF      SIX                                   
045447,000280: 17,3040           51516                           INDEX    ZNDX                                  
045448,000281: 17,3041           63016                           AD       XLN1NDX                               
045449,000282: 17,3042           50000                           INDEX    A                                     
045450,000283: 17,3043           33176                           CA       YZTABLE                               
045451,000284: 17,3044           73207                           MASK     BDZJETS                               #  = 3417 OCT
045452,000285: 17,3045           61451                           AD       RWORD1                                #  ADD TO ROLL COMMANDS
045453,000286: 17,3046           55502                           TS       T5TEMP                                #  IF POSSIBLE.  MUST CHECK TAU FIRST
045454,000287: 
045455,000288: 17,3047           00006                           EXTEND                                         
045456,000289: 17,3050           74704                           MP       BIT7                                  #  DETERMINE THE NET ROLL COMMAND WITH
045457,000290: 17,3051           66061                           AD       =-4                                   #  Z-TRANSLATION ADDED ON
045458,000291: 17,3052           55522                           TS       NRJETS                                #  NET NO. OF +,- ROLL JETS ON
045459,000292: 17,3053           00006                           EXTEND                                         
045460,000293: 17,3054           13060                           BZF      TAUCHECK                              
045461,000294: 
045462,000295: 17,3055           31502        ACRBDZ             CA       T5TEMP                                #  Z-TRANSLATION ACCEPTED EVEN THO WE MAY
045463,000296: 17,3056           55451                           TS       RWORD1                                #  HAVE INTRODUCED AN UNDESIREABLE ROLL
045464,000297: 17,3057           13321                           TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATIONS
045465,000298: 
045466,000299: 17,3060           11561        TAUCHECK           CCS      TAU                                   
045467,000300: 17,3061           13065                           TCF      NOBDZ                                 
045468,000301: 17,3062           13055                           TCF      ACRBDZ                                
045469,000302: 17,3063           13065                           TCF      NOBDZ                                 
045470,000303: 17,3064           13055                           TCF      ACRBDZ                                
045471,000304: 
045472,000305: 17,3065           31451        NOBDZ              CA       RWORD1                                #  Z-TRANSLATION NOT ACCEPTED
045473,000306: 17,3066           00006                           EXTEND                                         
045474,000307: 17,3067           74704                           MP       BIT7                                  
045475,000308: 17,3070           67715                           AD       =-2                                   
045476,000309: 17,3071           55522                           TS       NRJETS                                
045477,000310: 17,3072           13321                           TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATION
045478,000311: 

Page 1016

045480,000313:                                                                                                  #  BD QUAD SELECTION FOR ROLL COMMANDS
045481,000314: 
045482,000315: 17,3073           11627        BDROLL             CCS      RBDFAIL                               
045483,000316: 17,3074           13100                           TCF      RBFAIL                                
045484,000317: 17,3075           13104                           TCF      RZXLNS                                
045485,000318: 17,3076           13102                           TCF      RDFAIL                                
045486,000319: 17,3077           13104                           TCF      RZXLNS                                
045487,000320: 17,3100           34334        RBFAIL             CAF      NINE                                  
045488,000321: 17,3101           13106                           TCF      TABRZCMD                              
045489,000322: 17,3102           35656        RDFAIL             CAF      TWELVE                                
045490,000323: 17,3103           13106                           TCF      TABRZCMD                              
045491,000324: 
045492,000325: 17,3104           51516        RZXLNS             INDEX    ZNDX                                  #  NO BD FAILURES
045493,000326: 17,3105           32705                           CA       XLNNDX                                #  +,-,0 Z-TRANSLATION PRESENT
045494,000327: 17,3106           61517        TABRZCMD           AD       RINDEX                                
045495,000328: 17,3107           50000                           INDEX    A                                     
045496,000329: 17,3110           33155                           CA       RTABLE                                
045497,000330: 17,3111           73175                           MASK     BDRJETS                               #  = 34017 OCT
045498,000331: 17,3112           55451                           TS       RWORD1                                
045499,000332: 
045500,000333: 17,3113           31515        ACYCHECK           CA       YNDX                                  #  ANY Y-TRANSLATION
045501,000334: 17,3114           00006                           EXTEND                                         
045502,000335: 17,3115           13147                           BZF      NOACY                                 #  NO Y-TRANSLATION
045503,000336: 17,3116           11626                           CCS      RACFAIL                               
045504,000337: 17,3117           36214                           CAF      THREE                                 
045505,000338: 17,3120           13122                           TCF      +2                                    
045506,000339: 17,3121           36211                           CAF      SIX                                   
045507,000340: 17,3122           51515                           INDEX    YNDX                                  
045508,000341: 17,3123           63016                           AD       XLN1NDX                               
045509,000342: 17,3124           50000                           INDEX    A                                     
045510,000343: 17,3125           33176                           CA       YZTABLE                               
045511,000344: 17,3126           73210                           MASK     ACYJETS                               #  = 34360 OCT
045512,000345: 17,3127           61451                           AD       RWORD1                                
045513,000346: 17,3130           55502                           TS       T5TEMP                                
045514,000347: 17,3131           00006                           EXTEND                                         #  FOR EXPLANATION SEE CODING ON RTABLE
045515,000348: 17,3132           74707                           MP       BIT4                                  
045516,000349: 17,3133           66061                           AD       =-4                                   
045517,000350: 17,3134           55522                           TS       NRJETS                                #  NO. OF NET ROLL JETS
045518,000351: 17,3135           00006                           EXTEND                                         
045519,000352: 17,3136           13142                           BZF      TAUCHCK                               #  IF NRJETS = 0
045520,000353: 
045521,000354: 17,3137           31502        BDRACZ             CA       T5TEMP                                #  Y-TRANSLATION ACCEPTED
045522,000355: 17,3140           55451                           TS       RWORD1                                
045523,000356: 17,3141           13321                           TCF      ROLLTIME                              #  BRANCH TO JET ON-TIME CALCULATIONS
045524,000357: 
045525,000358: 17,3142           11561        TAUCHCK            CCS      TAU                                   
045526,000359: 17,3143           13147                           TCF      NOACY                                 
045527,000360: 17,3144           13137                           TCF      BDRACZ                                
045528,000361: 17,3145           13147                           TCF      NOACY                                 
045529,000362: 17,3146           13137                           TCF      BDRACZ                                
045530,000363: 

Page 1017

045532,000365: 17,3147           31451        NOACY              CA       RWORD1                                #  Y-TRANSLATION NOT ACCEPTED
045533,000366: 17,3150           00006                           EXTEND                                         
045534,000367: 17,3151           74707                           MP       BIT4                                  
045535,000368: 17,3152           67715                           AD       =-2                                   
045536,000369: 17,3153           55522                           TS       NRJETS                                
045537,000370: 17,3154           13321                           TCF      ROLLTIME                              
045538,000371: 

Page 1018

045540,000373:                                                                                                  #                                TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS
045541,000374: 
045542,000375:                                                                                                  #  EITHER AC OR BD ROLL MAY BE SELECTED.  IF AC ROLL IS SELECTED, Y-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY
045543,000376:                                                                                                  #  PROVIDED THAT THERE ARE NO AC QUAD FAILURES.  IF THERE ARE AC FAILURES, Y-TRANSLATION COMMANDS WILL BE IGNORED,
045544,000377:                                                                                                  #  IN WHICH CASE THE ASTRONAUT SHOULD SWITCH TO BD ROLL.
045545,000378: 
045546,000379:                                                                                                  #  IF BDROLL IS SELECTED, Z-TRANSLATIONS MAY BE SATISFIED SIMULTANEOUSLY PROVIDED THAT THERE ARE NO BD QUAD
045547,000380:                                                                                                  #  FAILURES.  IF THERE ARE BD FAILURES, Z-TRANSLATION COMMANDS WILL BE IGNORED, IN WHICH CASE THE ASTRONAUT SHOULD
045548,000381:                                                                                                  #  SWITCH TO AC ROLL.
045549,000382: 
045550,000383:                                                                                                  #  NOTE THAT IF ONE QUAD FAILS (E.G. B FAILED), Z-TRANSLATION IS STILL POSSIBLE AND THAT THE UNDESIREABLE ROLL
045551,000384:                                                                                                  #  INTRODUCED BY THIS TRANSLATION WILL BE COMPENSATED BY THE TWO AC ROLL JETS ACTUATED BY THE AUTOPILOT LOGIC.
045552,000385: 
045553,000386:                                                                                                  #                                           WORD MAKE UP....RTABLE
045554,000387: 
045555,000388:                                                                                                  #  TWO WORDS, CORRESPONDING TO AC OR BD ROLL SELECTION, HAVE BEEN COMBINED INTO ONE TABLE.  THE WORD CORRESPOND-
045556,000389:                                                                                                  #  ING TO AC ROLL HAS THE FOLLOWING INTERPRETATION..
045557,000390: 
045558,000391:                                                                                                  #        BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE FOR THE WORD SELECTED.  THE CODING IS..
045559,000392: 
045560,000393:                                                                                                  #                BIT NO. 11  10   9              NO. OF ROLL JETS
045561,000394: 
045562,000395:                                                                                                  #                         0   0   0                      -2
045563,000396:                                                                                                  #                         0   0   1                      -1
045564,000397:                                                                                                  #                         0   1   0                       0
045565,000398:                                                                                                  #                         0   1   1                      +1
045566,000399:                                                                                                  #                         1   0   0                      +2
045567,000400: 
045568,000401:                                                                                                  #  THIS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM THE YZ-TRANSLATION TABLE, WHICH HAS THE SAME TYPE OF
045569,000402:                                                                                                  #  CODING AS ABOVE, AND THE NET ROLL DETERMINED BY SHIFTING THE RESULTANT WORD RIGHT 8 PLACES AND SUBTRACTING FOUR.
045570,000403: 
045571,000404:                                                                                                  #  THE WORD CORRESPONDING TO BD ROLL HAS A SIMILIAR INTERPRETATION, EXCEPT THAT BITS 12, 13, 14 ARE CODED
045572,000405:                                                                                                  #  (AS ABOVE) TO GIVE THE NET ROLL TORQUE.
045573,000406: 
045574,000407:                                                                                                  #  ROLL          TRANS           QUADFAIL        BIAS
045575,000408: 
045576,000409: 17,3155           11000        RTABLE             OCT      11000                                 #    0                                             0
045577,000410: 17,3156           22125                           OCT      22125                                 #    +                                             0
045578,000411: 17,3157           00252                           OCT      00252                                 #    -                                             0
045579,000412: 17,3160           11231                           OCT      11231                                 #    0           +Y(+Z)                            3
045580,000413: 17,3161           15421                           OCT      15421                                 #    +           +Y(+Z)                            3
045581,000414: 17,3162           04610                           OCT      04610                                 #    -           +Y(+Z)                            3
045582,000415: 17,3163           11146                           OCT      11146                                 #    0           -Y(-Z)                            6
045583,000416: 17,3164           15504                           OCT      15504                                 #    +           -Y(-Z)                            6
045584,000417: 17,3165           04442                           OCT      04442                                 #    -           -Y(-Z)                            6
045585,000418: 17,3166           11000                           OCT      11000                                 #    0                             A(B)            9
045586,000419: 17,3167           15504                           OCT      15504                                 #    +                             A(B)            9
045587,000420: 17,3170           04610                           OCT      04610                                 #    -                             A(B)            9
045588,000421: 17,3171           11000                           OCT      11000                                 #    0                             C(D)           12
045589,000422: 17,3172           15421                           OCT      15421                                 #    +                             C(D)           12
045590,000423: 17,3173           04442                           OCT      04442                                 #    -                             C(D)           12
045591,000424: 

Page 1019

045593,000426:                                                                                                  #  RTABLE MASKS -
045594,000427: 
045595,000428: 17,3174           03760        ACRJETS            OCT      03760                                 
045596,000429: 17,3175           34017        BDRJETS            OCT      34017                                 
045597,000430: 

Page 1020

045599,000432:                                                                                                  #                                         Y, Z TRANSLATION TABLE
045600,000433: 
045601,000434:                                                                                                  #  ONCE AC OR BD ROLL IS SELECTED THE QUAD PAIR WHICH IS NOT BEING USED TO SATISFY THE ROLL COMMANDS MAY BE
045602,000435:                                                                                                  #  USED TO SATISFY THE REMAINING TRANSLATION COMMANDS.  HOWEVER, WE MUST MAKE SURE THAT ROLL COMMANDS ARE SATISFIED
045603,000436:                                                                                                  #  WHEN THEY OCCUR.  THEREFORE, THE Y-Z TRANSLATIONS FROM THIS TABLE WILL BE IGNORED IF THE NET ROLL TORQUE OF THE
045604,000437:                                                                                                  #  COMBINED WORD IS ZERO AND THE ROLL COMMANDS ARE NON-ZERO.  THIS SITUATION WOULD OCCUR, FOR EXAMPLE, IF WE EN-
045605,000438:                                                                                                  #  COUNTER SIMULTANEOUS +R +Y -Z COMMANDS AND A QUAD D FAILURE WHILE USING AC FOR ROLL.
045606,000439: 
045607,000440:                                                                                                  #  TO FACILITATE THE LOGIC, THE Y-Z TRANSLATION TABLE HAS BEEN CODED IN A MANNER SIMILIAR TO THE ROLL TABLE
045608,000441:                                                                                                  #  ABOVE.
045609,000442: 
045610,000443:                                                                                                  #  BITS 9,10,11 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Z-TRANSLATIONS.  THE WORD SELECTED CAN THEN BE
045611,000444:                                                                                                  #  ADDED TO THE AC-ROLL WORD AND THE RESULTANT ROLL TORQUE DETERMINED FROM THE COMBINED WORD.  SIMILIARLY BITS
045612,000445:                                                                                                  #  12,13,14 ARE CODED TO GIVE THE NET ROLL TORQUE INCURRED BY Y-TRANSLATIONS WHEN BD-ROLL IS SELECTED.
045613,000446: 
045614,000447:                                                                                                  #  TRANSLATION   QUADFAIL        BIAS
045615,000448: 
045616,000449: 17,3176           11000        YZTABLE            OCT      11000                                 #        0                       0
045617,000450: 17,3177           11231                           OCT      11231                                 #     +Z(+Y)                     0
045618,000451: 17,3200           11146                           OCT      11146                                 #     -Z(-Y)                     0
045619,000452: 17,3201           11000                           OCT      11000                                 #        0         B(A)          3
045620,000453: 17,3202           04610                           OCT      04610                                 #     +Z(+Y)       B(A)          3
045621,000454: 17,3203           15504                           OCT      15504                                 #     -Z(-Y)       B(A)          3
045622,000455: 17,3204           11000                           OCT      11000                                 #        0         D(C)          6
045623,000456: 17,3205           15421                           OCT      15421                                 #     +Z(+Y)       D(C)          6
045624,000457: 17,3206           04442                           OCT      04442                                 #     -Z(-Y)       D(C)          6
045625,000458: 
045626,000459:                                                                                                  #  YZ-TABLE MASKS-
045627,000460: 
045628,000461: 17,3207           03417        BDZJETS            OCT      03417                                 
045629,000462: 17,3210           34360        ACYJETS            OCT      34360                                 
045630,000463: 
045631,000464:                                                                                                  #  ADDITIONAL CONSTANTS
045632,000465: 
045633,000466: 17,3211     7715               =-2                =        NEG2                                  
045634,000467: 17,3211     6061               =-4                =        NEG4                                  
045635,000468: 

Page 1021

045637,000470:                                                                                                  #                                        CALCULATION OF JET ON-TIMES
045638,000471: 
045639,000472:                                                                                                  #  THE ROTATION COMMANDS (TAU:S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET
045640,000473:                                                                                                  #  OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS.  TAU MUST
045641,000474:                                                                                                  #  ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5 INT-
045642,000475:                                                                                                  #  ERVAL.
045643,000476: 
045644,000477:                                                                                                  #  IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES
045645,000478:                                                                                                  #  (DFT:S, ALSO IN TERMS OF 1-JET OPERATION) FOR THE RATE FILTER.
045646,000479: 
045647,000480:                                                                                                  #  NOTE THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO ROTATIONS WERE CALLED FOR.  NEVERTHELESS, WE MUST
045648,000481:                                                                                                  #  UPDATE DFT.
045649,000482: 
045650,000483:                                                                                                  #  WHEN THE ROTATIONS HAVE FINISHED, WE MUST PROVIDE CHANNEL INFORMATION TO THE T6 PROGRAM TO CONTINUE ON WITH
045651,000484:                                                                                                  #  THE TRANSLATIONS.  THIS WILL BE DONE IN THE NEXT SECTION.  HOWEVER, TO INSURE THAT JETS ARE NOT FIRED FOR LESS
045652,000485:                                                                                                  #  THAN A MINIMUM IMPULSE (14MS), ALL JET CHANNEL COMMANDS WILL BE HELD FIXED FROM THE START OF THE T5 PROGRAM FOR
045653,000486:                                                                                                  #  AT LEAST 14MS UNTIL THE INITIALIZATION OF NEW COMMANDS.  MOREOVER, A 14MS ON-TIME WILL BE ADDED TO ANY ROTATIONAL
045654,000487:                                                                                                  #  COMMANDS GENERATED BY THE MANUAL CONTROLS OR THE JET SWITCHING LOGIC, AND ALL TRANSLATION COMMANDS WILL BE
045655,000488:                                                                                                  #  ACTIVE FOR AT LEAST ONE CYCLE OF THE T5 PROGRAM (.1SEC)
045656,000489: 
045657,000490:                                                                                                  #  PITCH JET ON-TIME CALCULATION
045658,000491: 
045659,000492: 17,3211           11562        PITCHTIM           CCS      TAU1                                  
045660,000493: 17,3212           13221                           TCF      PTAUPOS                               
045661,000494: 17,3213           13215                           TCF      +2                                    
045662,000495: 17,3214           13217                           TCF      PTAUNEG                               
045663,000496: 17,3215           55550                           TS       DFT1                                  #  NO PITCH ROTATION
045664,000497: 17,3216           13417                           TCF      PBYPASS                               #  COMMANDS
045665,000498: 
045666,000499: 17,3217           41523        PTAUNEG            CS       NPJETS                                
045667,000500: 17,3220           55523                           TS       NPJETS                                
045668,000501: 17,3221           31562        PTAUPOS            CA       TAU1                                  
045669,000502: 17,3222           00006                           EXTEND                                         
045670,000503: 17,3223           51523                           INDEX    NPJETS                                
045671,000504: 17,3224           73400                           MP       NJET                                  
045672,000505: 17,3225           55461                           TS       BLAST1                                
045673,000506: 17,3226           63333                           AD       =-.1SEC                               
045674,000507: 17,3227           00006                           EXTEND                                         
045675,000508: 17,3230           63241                           BZMF     AD14MSP                               
045676,000509: 17,3231           51523                           INDEX    NPJETS                                
045677,000510: 17,3232           33334                           CA       DFTMAX                                #  THE PITCH ON-TIME IS GREATER THAN .1 SEC
045678,000511: 17,3233           55550                           TS       DFT1                                  
045679,000512: 17,3234           40000                           COM                                            
045680,000513: 17,3235           27562                           ADS      TAU1                                  #  UPDATE TAU1
045681,000514: 17,3236           33335                           CAF      =+.1SEC                               #  LIMIT THE LENGTH OF PITCH ROTATION
045682,000515: 17,3237           55461                           TS       BLAST1                                #  COMMANDS TO 0.1 SEC SO THAT ONLY
045683,000516: 17,3240           13404                           TCF      ASMBLWP                               #  X-TRANSLATIONS WILL CONTINUE ON SWITCH
045684,000517:                                                                                                  #  OVER TO TVC
045685,000518: 17,3241           41461        AD14MSP            CS       BLAST1                                #  SEE IF JET ON TIME LESS THAN
045686,000519: 17,3242           63340                           AD       =14MS                                 #  MINIMUM IMPULSE TIME
045687,000520: 17,3243           00006                           EXTEND                                         
045688,000521: 17,3244           63247                           BZMF     PBLASTOK                              #  IF SO LIMIT MINIMUM ON TIME TO 14 MS
045689,000522: 17,3245           33340                           CAF      =14MS                                 

Page 1022

045691,000524: 17,3246           55461                           TS       BLAST1                                
045692,000525: 17,3247           31461        PBLASTOK           CA       BLAST1                                
045693,000526: 17,3250           00006                           EXTEND                                         #  THE PITCH COMMANDS WILL BE COMPLETED
045694,000527: 17,3251           71523                           MP       NPJETS                                #  WITHIN THE TS-CYCLE TIME
045695,000528: 17,3252           23550                           LXCH     DFT1                                  #  FOR USE IN UPDATING RATE FILTER
045696,000529: 17,3253           55562                           TS       TAU1                                  #  ZERO TAU1 (ACC CONTAINS ZERO)
045697,000530: 17,3254           13404                           TCF      ASMBLWP                               
045698,000531: 

Page 1023

045700,000533:                                                                                                  #  YAW JET ON-TIME CALCULATION
045701,000534: 
045702,000535: 17,3255           11563        YAWTIME            CCS      TAU2                                  
045703,000536: 17,3256           13265                           TCF      YTAUPOS                               
045704,000537: 17,3257           13261                           TCF      +2                                    
045705,000538: 17,3260           13263                           TCF      YTAUNEG                               
045706,000539: 17,3261           55551                           TS       DFT2                                  #  NO YAW ROTATION COMMANDS
045707,000540: 17,3262           13563                           TCF      YBYPASS                               
045708,000541: 
045709,000542: 17,3263           41524        YTAUNEG            CS       NYJETS                                
045710,000543: 17,3264           55524                           TS       NYJETS                                
045711,000544: 17,3265           31563        YTAUPOS            CA       TAU2                                  
045712,000545: 17,3266           00006                           EXTEND                                         
045713,000546: 17,3267           51524                           INDEX    NYJETS                                
045714,000547: 17,3270           73400                           MP       NJET                                  
045715,000548: 17,3271           55463                           TS       BLAST2                                
045716,000549: 17,3272           63333                           AD       =-.1SEC                               
045717,000550: 17,3273           00006                           EXTEND                                         
045718,000551: 17,3274           63305                           BZMF     AD14MSY                               
045719,000552: 17,3275           51524                           INDEX    NYJETS                                
045720,000553: 17,3276           33334                           CA       DFTMAX                                #  YAW COMMANDS WILL LAST LONGER THAN .1SEC
045721,000554: 17,3277           55551                           TS       DFT2                                  
045722,000555: 17,3300           40000                           COM                                            
045723,000556: 17,3301           27563                           ADS      TAU2                                  #  DECREMENT TAU2
045724,000557: 17,3302           33335                           CAF      =+.1SEC                               #  LIMIT THE LENGTH OF YAW ROTATION COMMAND
045725,000558: 17,3303           55463                           TS       BLAST2                                #  TO 0.1 SEC SO THAT ONLY X-TRANSLATION
045726,000559: 17,3304           13550                           TCF      ASMBLWY                               #  WILL CONTINUE ON SWITCH OVER TO TVC
045727,000560: 
045728,000561: 17,3305           41463        AD14MSY            CS       BLAST2                                #  SEE IF JET ON-TIME LESS THAN
045729,000562: 17,3306           63340                           AD       =14MS                                 #  MINIMUM IMPULSE TIME
045730,000563: 17,3307           00006                           EXTEND                                         
045731,000564: 17,3310           63313                           BZMF     YBLASTOK                              #  IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
045732,000565: 17,3311           33340                           CAF      =14MS                                 
045733,000566: 17,3312           55463                           TS       BLAST2                                
045734,000567: 17,3313           31463        YBLASTOK           CA       BLAST2                                #  YAW COMMANDS WILL BE COMPLETED WITHIN
045735,000568: 17,3314           00006                           EXTEND                                         #  THE T5CYCLE TIME
045736,000569: 17,3315           71524                           MP       NYJETS                                
045737,000570: 17,3316           23551                           LXCH     DFT2                                  
045738,000571: 17,3317           55563                           TS       TAU2                                  #  ZERO TAU2
045739,000572: 17,3320           13550                           TCF      ASMBLWY                               
045740,000573: 

Page 1024

045742,000575:                                                                                                  #  ROLL ON-TIME CALCULATION-
045743,000576: 
045744,000577: 17,3321           11561        ROLLTIME           CCS      TAU                                   
045745,000578: 17,3322           13341                           TCF      RBLAST                                
045746,000579: 17,3323           13325                           TCF      +2                                    
045747,000580: 17,3324           13341                           TCF      RBLAST                                
045748,000581: 17,3325           51522                           INDEX    NRJETS                                
045749,000582: 17,3326           33334                           CA       DFTMAX                                #  UPDATE DFT EVEN THO NO ROLL COMMANDS ARE
045750,000583: 17,3327           55547                           TS       DFT                                   #  PRESENT
045751,000584: 17,3330           13543                           TCF      RBYPASS                               
045752,000585: 
045753,000586: 17,3331           77037                           DEC      -480       B-14                       #  =-.3SEC
045754,000587: 17,3332           77277                           DEC      -320       B-14                       #  =-.2SEC
045755,000588: 17,3333           77537        =-.1SEC            DEC      -160       B-14                       #  =-.1SEC
045756,000589: 17,3334           00000        DFTMAX             DEC      0          B-14                       #  0
045757,000590: 17,3335           00240        =+.1SEC            DEC      160        B-14                       #  =+.1SEC
045758,000591: 17,3336           00500                           DEC      320        B-14                       #  =+.2SEC
045759,000592: 17,3337           00740                           DEC      480        B-14                       #  =+.3SEC
045760,000593: 17,3340           00027        =14MS              DEC      23         B-14                       #  =14MS
045761,000594: 
045762,000595: 17,3341           31561        RBLAST             CA       TAU                                   
045763,000596: 17,3342           00006                           EXTEND                                         
045764,000597: 17,3343           51522                           INDEX    NRJETS                                
045765,000598: 17,3344           73400                           MP       NJET                                  
045766,000599: 17,3345           55457                           TS       BLAST                                 #  BLAST IS AN INTERMEDIATE VARIABLE
045767,000600:                                                                                                  #  USED IN DETERMINING THE JET ON-TIMES
045768,000601: 17,3346           63333                           AD       =-.1SEC                               
045769,000602: 17,3347           00006                           EXTEND                                         
045770,000603: 17,3350           63361                           BZMF     AD14MSR                               
045771,000604: 17,3351           51522                           INDEX    NRJETS                                #  THE ROLL ROTATION WILL LAST LONGER
045772,000605: 17,3352           33334                           CA       DFTMAX                                #  THAN THE T5 CYCLE TIME
045773,000606: 17,3353           55547                           TS       DFT                                   
045774,000607: 17,3354           40000                           COM                                            
045775,000608: 17,3355           27561                           ADS      TAU                                   
045776,000609: 17,3356           33335                           CAF      =+.1SEC                               #  LIMIT THE LENGTH OF ROLL ROTATION
045777,000610: 17,3357           55457                           TS       BLAST                                 #  COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z
045778,000611: 17,3360           13424                           TCF      ASMBLWR                               #  TRANSLATION COMMANDS CONTINUE
045779,000612: 
045780,000613: 17,3361           41457        AD14MSR            CS       BLAST                                 #  SEE IF THE JET ON-TIME LESS THAN
045781,000614: 17,3362           63340                           AD       =14MS                                 #  MINIMUM IMPULSE TIME
045782,000615: 17,3363           00006                           EXTEND                                         
045783,000616: 17,3364           63367                           BZMF     RBLASTOK                              
045784,000617: 17,3365           33340                           CAF      =14MS                                 #  IF SO, LIMIT MINIMUM ON-TIME TO 14 MS
045785,000618: 17,3366           55457                           TS       BLAST                                 
045786,000619: 17,3367           31457        RBLASTOK           CA       BLAST                                 
045787,000620: 17,3370           00006                           EXTEND                                         
045788,000621: 17,3371           71522                           MP       NRJETS                                
045789,000622: 17,3372           23547                           LXCH     DFT                                   
045790,000623: 17,3373           55561                           TS       TAU                                   #  ZERO TAU
045791,000624: 17,3374           13424                           TCF      ASMBLWR                               
045792,000625: 

Page 1025

045794,000627: 17,3375           65252                           DEC      -.333333                              #  = -1/3
045795,000628: 17,3376           57777                           DEC      -.500000                              #  = -1/2
045796,000629: 17,3377           40000                           DEC      -.999999                              #  = -1 (NEGMAX)
045797,000630: 17,3400           00000        NJET               DEC      0          B-14                       
045798,000631: 17,3401           37777                           DEC      .999999                               #  = +1 (POSMAX)
045799,000632: 17,3402           20000                           DEC      .500000                               #  = +1/2
045800,000633: 17,3403           12525                           DEC      .333333                               #  = +1/3
045801,000634: 

Page 1026

045803,000636:                                                                                                  #  WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH
045804,000637:                                                                                                  #  CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT.
045805,000638: 
045806,000639:                                                                                                  #  IN THIS SECTION THESE NEW COMMANDS ARE GENERATED AND STORED FOR REPLACEMENT OF THE CHANNEL COMMANDS WHEN THE
045807,000640:                                                                                                  #  CORRESPONDING ROTATIONS ARE COMPLETED.
045808,000641: 
045809,000642:                                                                                                  #  GENERATION OF THE SECOND PITCH(X-TRANS) WORD...PWORD2
045810,000643: 
045811,000644: 17,3404           11626        ASMBLWP            CCS      RACFAIL                               
045812,000645: 17,3405           13413                           TCF      FPX2                                  #  IF FAILURE ON AC IGNORE X-TRANSLATION
045813,000646: 17,3406           13410                           TCF      +2                                    
045814,000647: 17,3407           13413                           TCF      FPX2                                  
045815,000648: 17,3410           51513                           INDEX    XNDX1                                 
045816,000649: 17,3411           32705                           CA       XLNNDX                                
045817,000650: 17,3412           50000                           INDEX    A                                     
045818,000651: 17,3413           32741        FPX2               CA       PYTABLE                               
045819,000652: 17,3414           72760                           MASK     PJETS                                 
045820,000653: 17,3415           55454                           TS       PWORD2                                
045821,000654: 17,3416           13255                           TCF      YAWTIME                               
045822,000655: 
045823,000656: 17,3417           31453        PBYPASS            CA       PWORD1                                #  THE T6 PROGRAM WILL LOAD PWORD2
045824,000657: 17,3420           55454                           TS       PWORD2                                #  UPON ENTRY
045825,000658: 17,3421           34714                           CAF      ZERO                                  
045826,000659: 17,3422           55461                           TS       BLAST1                                #  THERE IS NO PWORD2
045827,000660: 17,3423           13255                           TCF      YAWTIME                               
045828,000661: 

Page 1027

045830,000663:                                                                                                  #  GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2)
045831,000664: 
045832,000665: 17,3424           11515        ASMBLWR            CCS      YNDX                                  #  CHECK FOR Y-TRANS
045833,000666: 17,3425           13435                           TCF      ACBD2Y                                
045834,000667: 17,3426           34714        NO2Y               CAF      ZERO                                  
045835,000668: 17,3427           55452                           TS       RWORD2                                
045836,000669: 17,3430           11516                           CCS      ZNDX                                  #  CHECK FOR Z-TRANS
045837,000670: 17,3431           13500                           TCF      ACBD2Z                                
045838,000671: 17,3432           34714        NO2Z               CAF      ZERO                                  
045839,000672: 17,3433           27452                           ADS      RWORD2                                
045840,000673: 17,3434           13211                           TCF      PITCHTIM                              #  RWORD2 ASSEMBLED
045841,000674: 
045842,000675: 17,3435           11630        ACBD2Y             CCS      ACORBD                                
045843,000676: 17,3436           13453                           TCF      AC2Y                                  #  CAN DO Y-TRANS
045844,000677: 17,3437           13453                           TCF      AC2Y                                  
045845,000678: 17,3440           13441                           TCF      +1                                    #  USING AC FOR ROLL
045846,000679: 17,3441           11626                           CCS      RACFAIL                               
045847,000680: 17,3442           13426                           TCF      NO2Y                                  #  USING AC AND AC HAS FAILED
045848,000681: 17,3443           13445                           TCF      +2                                    
045849,000682: 17,3444           13426                           TCF      NO2Y                                  #  DITTO
045850,000683: 
045851,000684: 17,3445           51515                           INDEX    YNDX                                  #  NO FAILURES, CAN DO Y
045852,000685: 17,3446           32705                           CA       XLNNDX                                
045853,000686: 17,3447           50000                           INDEX    A                                     
045854,000687: 17,3450           33155                           CA       RTABLE                                
045855,000688: 17,3451           73174                           MASK     ACRJETS                               
045856,000689: 17,3452           13427                           TCF      NO2Y       +1                         
045857,000690: 
045858,000691: 17,3453           11626        AC2Y               CCS      RACFAIL                               
045859,000692: 17,3454           36214                           CAF      THREE                                 
045860,000693: 17,3455           13457                           TCF      +2                                    
045861,000694: 17,3456           36211                           CAF      SIX                                   
045862,000695: 17,3457           51515                           INDEX    YNDX                                  
045863,000696: 17,3460           63016                           AD       XLN1NDX                               
045864,000697: 17,3461           50000                           INDEX    A                                     
045865,000698: 17,3462           33176                           CA       YZTABLE                               
045866,000699: 17,3463           73210                           MASK     ACYJETS                               
045867,000700: 17,3464           55452                           TS       RWORD2                                
045868,000701: 17,3465           00006                           EXTEND                                         
045869,000702: 17,3466           74707                           MP       BIT4                                  
045870,000703: 17,3467           67715                           AD       =-2                                   
045871,000704: 17,3470           55522                           TS       NRJETS                                
045872,000705: 17,3471           41457                           CS       BLAST                                 
045873,000706: 17,3472           63335                           AD       =+.1SEC                               
045874,000707: 17,3473           00006                           EXTEND                                         
045875,000708: 17,3474           71522                           MP       NRJETS                                
045876,000709: 17,3475           30001                           CA       L                                     
045877,000710: 17,3476           27547                           ADS      DFT                                   
045878,000711: 17,3477           13430                           TCF      NO2Y       +2                         

Page 1028

045880,000713: 17,3500           11630        ACBD2Z             CCS      ACORBD                                
045881,000714: 17,3501           13531                           TCF      BDF2Z                                 #  USING BD-ROLL
045882,000715: 17,3502           13531                           TCF      BDF2Z                                 #  MUST CHECK FOR BD FAILURES
045883,000716: 17,3503           13504                           TCF      +1                                    
045884,000717: 17,3504           11627                           CCS      RBDFAIL                               #  USING AC FOR ROLL, CAN DO Z-TRANS
045885,000718: 17,3505           36214                           CAF      THREE                                 
045886,000719: 17,3506           13510                           TCF      +2                                    
045887,000720: 17,3507           36211                           CAF      SIX                                   
045888,000721: 17,3510           51516                           INDEX    ZNDX                                  
045889,000722: 17,3511           63016                           AD       XLN1NDX                               
045890,000723: 17,3512           50000                           INDEX    A                                     
045891,000724: 17,3513           33176                           CA       YZTABLE                               
045892,000725: 17,3514           73207                           MASK     BDZJETS                               
045893,000726: 17,3515           27452                           ADS      RWORD2                                
045894,000727: 17,3516           00006                           EXTEND                                         
045895,000728: 17,3517           74704                           MP       BIT7                                  
045896,000729: 17,3520           67715                           AD       =-2                                   
045897,000730: 17,3521           55522                           TS       NRJETS                                
045898,000731: 17,3522           41457                           CS       BLAST                                 
045899,000732: 17,3523           63335                           AD       =+.1SEC                               
045900,000733: 17,3524           00006                           EXTEND                                         
045901,000734: 17,3525           71522                           MP       NRJETS                                
045902,000735: 17,3526           30001                           CA       L                                     
045903,000736: 17,3527           27547                           ADS      DFT                                   
045904,000737: 17,3530           13211                           TCF      PITCHTIM                              
045905,000738: 
045906,000739: 17,3531           11627        BDF2Z              CCS      RBDFAIL                               
045907,000740: 17,3532           13432                           TCF      NO2Z                                  #  USING BD-ROLL AND BD HAS FAILED
045908,000741: 17,3533           13535                           TCF      +2                                    
045909,000742: 17,3534           13432                           TCF      NO2Z                                  #  DITTO
045910,000743: 17,3535           51516                           INDEX    ZNDX                                  
045911,000744: 17,3536           32705                           CA       XLNNDX                                
045912,000745: 17,3537           50000                           INDEX    A                                     
045913,000746: 17,3540           33155                           CA       RTABLE                                
045914,000747: 17,3541           73175                           MASK     BDRJETS                               
045915,000748: 17,3542           13433                           TCF      NO2Z       +1                         
045916,000749: 
045917,000750: 17,3543           31451        RBYPASS            CA       RWORD1                                
045918,000751: 17,3544           55452                           TS       RWORD2                                
045919,000752: 17,3545           34714                           CAF      ZERO                                  
045920,000753: 17,3546           55457                           TS       BLAST                                 
045921,000754: 17,3547           13211                           TCF      PITCHTIM                              
045922,000755: 

Page 1029

045924,000757:                                                                                                  #  GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2
045925,000758: 
045926,000759: 17,3550           11627        ASMBLWY            CCS      RBDFAIL                               
045927,000760: 17,3551           13557                           TCF      FYX2                                  #  IF FAILURE ON BD IGNORE X-TRANSLATION
045928,000761: 17,3552           13554                           TCF      +2                                    
045929,000762: 17,3553           13557                           TCF      FYX2                                  
045930,000763: 17,3554           51514                           INDEX    XNDX2                                 
045931,000764: 17,3555           32705                           CA       XLNNDX                                
045932,000765: 17,3556           50000                           INDEX    A                                     
045933,000766: 17,3557           32741        FYX2               CA       PYTABLE                               
045934,000767: 17,3560           72761                           MASK     YJETS                                 
045935,000768: 17,3561           55456                           TS       YWORD2                                
045936,000769: 17,3562           13567                           TCF      T6SETUP                               
045937,000770: 
045938,000771: 17,3563           31455        YBYPASS            CA       YWORD1                                
045939,000772: 17,3564           55456                           TS       YWORD2                                
045940,000773: 17,3565           34714                           CAF      ZERO                                  
045941,000774: 17,3566           55463                           TS       BLAST2                                
045942,000775: 

Page 1030

045944,000777:                                                                                                  #                                        SORT THE JET ON-TIMES
045945,000778: 
045946,000779:                                                                                                  #  AT THIS POINT ALL THE CHANNEL COMMANDS AND JET ON-TIMES HAVE BEEN DETERMINED.  IN SUMMARY THESE ARE-
045947,000780: 
045948,000781:                                                                                                  #        RWORD1
045949,000782:                                                                                                  #        RWORD2          BLAST
045950,000783: 
045951,000784:                                                                                                  #        PWORD1
045952,000785:                                                                                                  #        PWORD2          BLAST1
045953,000786: 
045954,000787:                                                                                                  #        YWORD1
045955,000788:                                                                                                  #        YWORD2          BLAST2
045956,000789: 
045957,000790:                                                                                                  #  IN THIS SECTION THE JET ON-TIMES ARE SORTED AND THE SEQUENCE OF T6 INTERRUPTS IS DETERMINED.  TO FACILITATE
045958,000791:                                                                                                  #  THE SORTING PROCESS AND THE T6 PROGRAM, THE VARIABLES BLAST, BLAST1, BLAST2, ARE RESERVED AS DOUBLE PRECISION
045959,000792:                                                                                                  #  WORDS.  THE LOWER PART OF THESE WORDS CONTAIN A BRANCH INDEX ASSOCIATED WITH THE ROTATION AXIS OF THE HIGHER
045960,000793:                                                                                                  #  ORDER WORD.
045961,000794: 
045962,000795: 17,3567           34714        T6SETUP            CAF      ZERO                                  #  BRANCH INDEX FOR ROLL
045963,000796: 17,3570           55460                           TS       BLAST      +1                         
045964,000797: 17,3571           34710                           CAF      FOUR                                  #  BRANCH INDEX FOR PITCH
045965,000798: 17,3572           55462                           TS       BLAST1     +1                         
045966,000799: 17,3573           34717                           CAF      ELEVEN                                #  BRANCH INDEX FOR YAW
045967,000800: 17,3574           55464                           TS       BLAST2     +1                         
045968,000801: 
045969,000802: 17,3575           41457                           CS       BLAST                                 
045970,000803: 17,3576           61461                           AD       BLAST1                                
045971,000804: 17,3577           00006                           EXTEND                                         
045972,000805: 17,3600           63624                           BZMF     DXCHT12                               #  T1 GR T2
045973,000806: 17,3601           41461        CHECKT23           CS       BLAST1                                
045974,000807: 17,3602           61463                           AD       BLAST2                                
045975,000808: 17,3603           00006                           EXTEND                                         
045976,000809: 17,3604           63630                           BZMF     DXCHT23                               
045977,000810: 17,3605           41461        CALCDT6            CS       BLAST1                                
045978,000811: 17,3606           27463                           ADS      BLAST2                                
045979,000812: 17,3607           41457                           CS       BLAST                                 
045980,000813: 17,3610           27461                           ADS      BLAST1                                #  END OF SORTING PROCEDURE
045981,000814: 17,3611           00006                           EXTEND                                         #  RESET T5LOC TO BEGIN PHASE1
045982,000815: 17,3612           33623                           DCA      RCS2CADR                              
045983,000816: 17,3613           53313                           DXCH     T5LOC                                 
045984,000817: 17,3614           44712        ENDJETS            CS       BIT1                                  #  RESET BIT1 FOR INITIALIZATION OF
045985,000818: 17,3615           71501                           MASK     RCSFLAGS                              #  T6 PROGRAM
045986,000819: 17,3616           55501                           TS       RCSFLAGS                              
045987,000820: 17,3617           44714                           CS       ZERO                                  #  RESET T5PHASE FOR PHASE1
045988,000821: 17,3620           55465                           TS       T5PHASE                               
045989,000822: 17,3621           15222                           TCF      RESUME                                #  RESUME INTERRUPTED PROGRAM
045990,000823: 17,3622  E6,1510                                  EBANK=   KMPAC                                 
045991,000824: 17,3622           02106 42066  RCS2CADR           2CADR    RCSATT                                
045992,000825: 

Page 1031

045994,000827: 17,3624           53460        DXCHT12            DXCH     BLAST                                 
045995,000828: 17,3625           53462                           DXCH     BLAST1                                
045996,000829: 17,3626           53460                           DXCH     BLAST                                 
045997,000830: 17,3627           13601                           TCF      CHECKT23                              
045998,000831: 
045999,000832: 17,3630           53462        DXCHT23            DXCH     BLAST1                                
046000,000833: 17,3631           53464                           DXCH     BLAST2                                
046001,000834: 17,3632           53462                           DXCH     BLAST1                                
046002,000835: 17,3633           41457                           CS       BLAST                                 
046003,000836: 17,3634           61461                           AD       BLAST1                                
046004,000837: 17,3635           00006                           EXTEND                                         
046005,000838: 17,3636           63640                           BZMF     +2                                    
046006,000839: 17,3637           13605                           TCF      CALCDT6                               
046007,000840: 17,3640           53460                           DXCH     BLAST                                 
046008,000841: 17,3641           53462                           DXCH     BLAST1                                
046009,000842: 17,3642           53460                           DXCH     BLAST                                 
046010,000843: 17,3643           13605                           TCF      CALCDT6                               
046011,000844: 

Page 1032

046013,000846:                                                                                                  #  T6 PROGRAM AND CHANNEL SETUP
046014,000847: 
046015,000848: 21,3751                                           BANK     21                                    
046016,000849: 17,2000                                           SETLOC   DAPS5                                 
046017,000850: 17,2000                                           BANK                                           
046018,000851: 
046019,000852: 17,3644           22016        T6START            LXCH     BANKRUPT                              
046020,000853: 17,3645           00006                           EXTEND                                         
046021,000854: 17,3646           22012                           QXCH     QRUPT                                 
046022,000855: 17,3647           10031                           CCS      TIME6                                 #  CHECK TO SEE IF TIME6 WAS RESET
046023,000856: 17,3650           15222                           TCF      RESUME                                #  AFTER T6RUPT OCCURED (IN T5RUPT)
046024,000857: 17,3651           13653                           TCF      +2                                    #  IF SO WAIT FOR NEXT T6RUPT BEFORE
046025,000858: 17,3652           15222                           TCF      RESUME                                #  TAKING ACTION
046026,000859: 
046027,000860: 17,3653           41501                           CS       RCSFLAGS                              
046028,000861: 17,3654           74712                           MASK     BIT1                                  #  IF BIT1 IS 0 RESET TO 1
046029,000862: 17,3655           00006                           EXTEND                                         #  AND INITIALIZE CHANNEL
046030,000863: 17,3656           13667                           BZF      T6RUPTOR                              
046031,000864: 17,3657           27501                           ADS      RCSFLAGS                              
046032,000865: 17,3660           31451                           CA       RWORD1                                
046033,000866: 17,3661           00006                           EXTEND                                         #  INITIALIZE CHANNELS 5,6 WITH WORD1
046034,000867: 17,3662           01006                           WRITE    CHAN6                                 
046035,000868: 17,3663           31453                           CA       PWORD1                                
046036,000869: 17,3664           61455                           AD       YWORD1                                
046037,000870: 17,3665           00006                           EXTEND                                         
046038,000871: 17,3666           01005                           WRITE    CHAN5                                 
046039,000872: 
046040,000873: 17,3667           11457        T6RUPTOR           CCS      BLAST                                 
046041,000874: 17,3670           13747                           TCF      ZBLAST                                #  ZERO BLAST1
046042,000875: 17,3671           13706                           TCF      REPLACE                               #  REPLACE WORD1
046043,000876: 17,3672           13674                           TCF      +2                                    
046044,000877: 17,3673           13706                           TCF      REPLACE                               
046045,000878: 17,3674           11461        T6L1               CCS      BLAST1                                
046046,000879: 17,3675           13752                           TCF      ZBLAST1                               
046047,000880: 17,3676           13713                           TCF      REPLACE1                              
046048,000881: 17,3677           13701                           TCF      +2                                    
046049,000882: 17,3700           13713                           TCF      REPLACE1                              
046050,000883: 17,3701           11463        T6L2               CCS      BLAST2                                
046051,000884: 17,3702           13755                           TCF      ZBLAST2                               
046052,000885: 17,3703           13720                           TCF      REPLACE2                              
046053,000886: 17,3704           15222                           TCF      RESUME                                
046054,000887: 17,3705           13720                           TCF      REPLACE2                              
046055,000888: 
046056,000889: 17,3706           51460        REPLACE            INDEX    BLAST      +1                         
046057,000890: 17,3707           03725                           TC       REPLACER                              
046058,000891: 17,3710           44712                           CS       ONE                                   
046059,000892: 17,3711           55457                           TS       BLAST                                 
046060,000893: 17,3712           13674                           TCF      T6L1                                  
046061,000894: 
046062,000895: 17,3713           51462        REPLACE1           INDEX    BLAST1     +1                         

Page 1033

046064,000897: 17,3714           03725                           TC       REPLACER                              
046065,000898: 17,3715           44712                           CS       ONE                                   
046066,000899: 17,3716           55461                           TS       BLAST1                                
046067,000900: 17,3717           13701                           TCF      T6L2                                  
046068,000901: 
046069,000902: 17,3720           51464        REPLACE2           INDEX    BLAST2     +1                         
046070,000903: 17,3721           03725                           TC       REPLACER                              
046071,000904: 17,3722           44712                           CS       ONE                                   
046072,000905: 17,3723           55463                           TS       BLAST2                                
046073,000906: 17,3724           15222                           TCF      RESUME                                
046074,000907: 
046075,000908: 17,3725           31452        REPLACER           CA       RWORD2                                #  INITIALIZE CHANNELS 5,6 WITH WORD2
046076,000909: 17,3726           00006                           EXTEND                                         
046077,000910: 17,3727           01006                           WRITE    CHAN6                                 
046078,000911: 17,3730           00002                           TC       Q                                     
046079,000912: 
046080,000913: 17,3731           32761        REPLACEP           CA       YJETS                                 
046081,000914: 17,3732           00006                           EXTEND                                         
046082,000915: 17,3733           02005                           RAND     CHAN5                                 
046083,000916: 17,3734           61454                           AD       PWORD2                                
046084,000917: 17,3735           00006                           EXTEND                                         
046085,000918: 17,3736           01005                           WRITE    CHAN5                                 
046086,000919: 17,3737           00002                           TC       Q                                     
046087,000920: 
046088,000921: 17,3740           32760        REPLACEY           CA       PJETS                                 
046089,000922: 17,3741           00006                           EXTEND                                         
046090,000923: 17,3742           02005                           RAND     CHAN5                                 
046091,000924: 17,3743           61456                           AD       YWORD2                                
046092,000925: 17,3744           00006                           EXTEND                                         
046093,000926: 17,3745           01005                           WRITE    CHAN5                                 
046094,000927: 17,3746           00002                           TC       Q                                     
046095,000928: 
046096,000929: 17,3747           34714        ZBLAST             CAF      ZERO                                  
046097,000930: 17,3750           57457                           XCH      BLAST                                 
046098,000931: 17,3751           13757                           TCF      ENABT6                                
046099,000932: 17,3752           34714        ZBLAST1            CAF      ZERO                                  
046100,000933: 17,3753           57461                           XCH      BLAST1                                
046101,000934: 17,3754           13757                           TCF      ENABT6                                
046102,000935: 17,3755           34714        ZBLAST2            CAF      ZERO                                  
046103,000936: 17,3756           57463                           XCH      BLAST2                                
046104,000937: 17,3757           54031        ENABT6             TS       TIME6                                 
046105,000938: 17,3760           34674                           CAF      NEGMAX                                
046106,000939: 17,3761           00006                           EXTEND                                         
046107,000940: 17,3762           05013                           WOR      CHAN13                                #  ENABLE T6RUPT
046108,000941: 17,3763           15222                           TCF      RESUME                                
046109,000942: 
046110,000943:                                                                                                  #  END OF T6 INTERRUPT
046111,000944: 
046112,000945: 17,3764                        ENDSLECT           EQUALS                                         
046113,000946: 

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