Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

023212,000002:                                                                                                  ## Copyright:   Public domain.
023213,000003:                                                                                                  ## Filename:    Q_R-AXES_JET_SELECT_AND_FAILURE_CONTROL_LOGIC.agc
023214,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It
023215,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
023216,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
023217,000007:                                                                                                  ## Assembler:   yaYUL
023218,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
023219,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
023220,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
023221,000011:                                                                                                  ##              2016-10-30 HG   Transcribed
023222,000012:                                                                                                  ##              2016-10-31 RSB  Typos
023223,000013:                                                                                                  ##              2016-12-06 RSB  Comment-proofing with octopus/ProoferComments
023224,000014:                                                                                                  ##                              completed, and fixes made.
023225,000015: 

Page 554

023227,000017:                                                                                                  #  PROGRAM: POLTYPEP                MOD. NO. 1  DATE: NOVEMBER 14, 1966
023228,000018: 
023229,000019:                                                                                                  #  AUTHOR:  JONATHAN D. ADDELSTON (ADAMS ASSOCIATES)
023230,000020: 
023231,000021:                                                                                                  #  THIS PROGRAM IS DESIGNED TO SELECT A POLICY OF JETS (OF WHICH NONE HAVE FAILED) WHICH CAN BE USED TO CREATE THE
023232,000022:                                                                                                  #  ROTATION AND/OR TRANSLATION WHICH IS REQUIRED BY THE LM DAP.  FROM THE INDEX "NETACNDX" (WHICH MUST BE SET WHEN
023233,000023:                                                                                                  #  ROTATION IS REQUESTED), THE OPTIMAL POLICY IS SELECTED.  WHEN FAILURES ARE DETECTED WITHIN A CHOSEN POLICY, AN
023234,000024:                                                                                                  #  ALTERNATE POLICY IS SELECTED.  IF ALL ALTERNATE POLICIES ARE EXHAUSTED WITHOUT FINDING AN UNFAILED POLICY, A JET
023235,000025:                                                                                                  #  FAILURE ABORT IS INITIATED.  WHEN THE ROUTINE IS USE FOR TRANSLATION JETS ONLY, "TRANONLY" MUST BE SET POSITIVE
023236,000026:                                                                                                  #  (NONZERO) AND THE ENTRY POINT IS "+/-XTRAN".
023237,000027: 
023238,000028:                                                                                                  #  CALLING SEQUENCES:
023239,000029: 
023240,000030:                                                                                                  #  1. FOR ROTATION (WITH POSSIBLE +X TRANSLATION):
023241,000031: 
023242,000032:                                                                                                  #                                                   CAF    RETURN          (GENADR OF RETURN)
023243,000033:                                                                                                  #                                                   TS     TJETADR
023244,000034:                                                                                                  #                                                   ...
023245,000035:                                                                                                  #                                                   CAF    INDEXVAL        INDICATE ROT. AXIS, DIRECTION,
023246,000036:                                                                                                  #                                                   TS     NETACNDX        AND NUMBER OF JETS.
023247,000037:                                                                                                  #                                                   EXTEND
023248,000038:                                                                                                  #                                                   DCA    POLADR          TRANSFER ACROSS BANKS TO POLTYPEP.
023249,000039:                                                                                                  #                                                   DTCB
023250,000040: 
023251,000041:                                                                                                  #  2. FOR TRANSLATION ONLY:
023252,000042: 
023253,000043:                                                                                                  #                                                   CAF    POSMAX/NEGMAX   INDICATE -X TRANSLATION BY POSMAX.
023254,000044:                                                                                                  #                                                   TS     ANYTRANS                 +X TRANSLATION BY NEGMAX.
023255,000045:                                                                                                  #                                                   CAF    ZERO            ZERO EXTRANEOUS FLAGS FOR ROUTINE
023256,000046:                                                                                                  #                                                   TS     TRANSNOW        ...
023257,000047:                                                                                                  #                                                   TS     TRANSAVE        ...
023258,000048:                                                                                                  #                                                   EXTEND
023259,000049:                                                                                                  #                                                   DCA    JTPOLADR        TRANSFER ACROSS BANKS TO +/-XTRAN
023260,000050:                                                                                                  #                                                   TS     TRANONLY        (AND SET TRANONLY POSITIVE NONZERO.)
023261,000051:                                                                                                  #                                                   DTCB
023262,000052: 
023263,000053:                                                                                                  #  SUBROUTINES CALLED: NONE.
023264,000054: 
023265,000055:                                                                                                  #  NORMAL RETURN  1. FOR ROTATION, TO ADDRESS IN BANK 17 SPECIFIED BY C(TJETADR).
023266,000056:                                                                                                  #                 2. FOR TRANSLATION, RESUME.
023267,000057: 
023268,000058:                                                                                                  #  ALARM/ABORT MODE: WHENEVER THERE IS NO USABLE JET POLICY FOUND, TRANSFER TO JETABORT.
023269,000059: 
023270,000060:                                                                                                  #  INPUT: NETACNDX,CH5MASK,1/NETACS.
023271,000061: 
023272,000062:                                                                                                  #  OUTPUT: JETS ON IN CHANNEL 5, JTSATCHG.
023273,000063: 
023274,000064:                                                                                                  #  DEBRIS: A,L,ALLL ITEMPS,ALL RUPTREGS.
023275,000065: 
023276,000066:                                                                                                  #  INITIALIZATION AT ROTATION REQUEST ENTRY POINT:
023277,000067: 

Page 555

023279,000069: 20,2321                                           BANK     20                                    
023280,000070: 20,2321  E6,1471                                  EBANK=   JTSONNOW                              
023281,000071: 
023282,000072: 20,2321           37767        POLTYPEP           CAF      ZERO                                  #  SET VOLATILE SWITCHES TO INDICATE
023283,000073: 20,2322           54070                           TS       TRANONLY                              #  1) TRANSLATION ENTRY NOT MADE (ROTATION)
023284,000074: 20,2323           54071                           TS       ANYTRANS                              #  2) NO TRANSLATION KNOWN YET.
023285,000075: 20,2324           54072                           TS       TRANSNOW                              #  3) NO TRANS. DURING ROT. KNOWN YET.
023286,000076: 20,2325           54073                           TS       TRANSAVE                              #  4) NO TRANSLATION POLICY SELECTED YET.
023287,000077: 
023288,000078:                                                                                                  #  TEST FOR SENSE OF ROTATION JETS.  (MAKE TRANSLATION REQUEST FROM THE ASTRONAUT'S STICK OVERRIDE INTERNAL ULLAGE)
023289,000079: 
023290,000080: 20,2326           37755                           CAF      BIT7                                  #  ASTRONAUT +X TRANSLATION REQUEST TEST.
023291,000081: 20,2327           00006                           EXTEND                                         
023292,000082: 20,2330           02031                           RAND     31                                    
023293,000083: 20,2331           00006                           EXTEND                                         
023294,000084: 20,2332           12415                           BZF      +XTRANSL                              
023295,000085: 
023296,000086: 20,2333           37754                           CAF      BIT8                                  #  ASTRONAUT -X TRANSLATION REQUEST TEST.
023297,000087: 20,2334           00006                           EXTEND                                         
023298,000088: 20,2335           02031                           RAND     31                                    
023299,000089: 20,2336           00006                           EXTEND                                         
023300,000090: 20,2337           12422                           BZF      -XSENSE                               
023301,000091: 
023302,000092:                                                                                                  #  CHECK FOR ULLAGE OR ASCENT BURN:
023303,000093: 
023304,000094: 20,2340           32606        ULL/+X             CAF      BITS6&8                               #  CHECK FOR ULLAGE OR ASCENT BURN: (EITHER
023305,000095: 20,2341           70077                           MASK     DAPBOOLS                              #  BIT REQUIRES +X SENSE FOR ROTATION JETS)
023306,000096: 20,2342           10000                           CCS      A                                     #  BIT6: ULLAGE BIT  (+X TRANSLATION ASKED)
023307,000097: 20,2343           12411                           TCF      +XSELECT                              #  BIT8: ASCENT BURN (NO TRANSLATION ASKED)
023308,000098: 
023309,000099:                                                                                                  #  LM IS EITHER IN POWERED DESCENT OR IN COASTING FLIGHT  SELECT JETS WHICH ARE PAIRED IN FORCE COUPLES.
023310,000100: 
023311,000101: 20,2344           50061                           INDEX    NETACNDX                              #  PICK UP FORCE-COUPLE TABLE INDEX AND THE
023312,000102: 20,2345           32626                           CAF      NORMLPOL                              #  NUMBER OF POLICIES TO CHECK (PACKED).
023313,000103: 
023314,000104:                                                                                                  #  UNPACK THE RELATIVE ADDRESS OF THE BEST POLICY AND THE NUMBER OF ALTERNATE POLICIES TO CHECK WITHIN THE LOOP.
023315,000105: 
023316,000106:                                                                                                  #  THIS BITS ARE PACKED THUSLY  0XYYY, WHERE X BECOMES C(LOOPCTR) AND YYY BECOMES C(POLRELOC). BITS8,9 ARE ZERO.
023317,000107: 
023318,000108: 20,2346           54001        NUMBALTS           TS       L                                     #  SAVE FULL WORD TO GET BITS 10-15, LATER.
023319,000109: 20,2347           75342                           MASK     LOW7                                  #  MASK BITS GIVING INDEX VALUE FOR BEST
023320,000110: 20,2350           54063                           TS       POLRELOC                              #  POLICY (W.R.T. TOP OF POLTABLE).
023321,000111: 
023322,000112: 20,2351           37756                           CAF      BIT6                                  #  EXTRACT BITS 10-12 OF ORIGINAL WORD:
023323,000113: 20,2352           00006                           EXTEND                                         #  THIS VALUE IS USED AS A LOOP COUNTER TO
023324,000114: 20,2353           70001                           MP       L                                     #  TEST ALL THE FEASIBLE JET POLICIES FOR
023325,000115: 20,2354           54064        BESTPOLS           TS       LOOPCTR                               #  THE GIVEN REQUEST.  (ALSO TOP 0F LOOP.)
023326,000116: 

Page 556

023328,000118:                                                                                                  #  LOOP TP SET UP "TRANSNOW" AND REJECT ALL FAILED POLICIES:
023329,000119: 
023330,000120: 20,2355           50063                           INDEX    POLRELOC                              #  PICK UP NEXT POLICY TO CHECK FOR FAILURE
023331,000121: 20,2356           32704                           CAF      POLTABLE                              #  (MUST DO A "CAF" THEN "CCS" FOR RANGE.)
023332,000122: 20,2357           10000                           CCS      A                                     #  IF POLICY TABLE ENTRY IS NEGATIVE, THEN
023333,000123: 20,2360           54065        CHKFAILS           TS       THISPOLY                              #  A FLAG IS SET TO DO SOME TRANSLATION
023334,000124: 20,2361           12364                           TCF      +3                                    #  WITH THE ROTATION POLICY SELECTED. IF
023335,000125: 20,2362           54072                           TS       TRANSNOW                              #  REQUESTED. POLTABLE VALUES ARE CCS-ABLE.
023336,000126: 20,2363           12360                           TCF      CHKFAILS                              #  TRANSNOW (ONCE ON) STAYS ON FOR THIS CSP
023337,000127: 
023338,000128: 20,2364           70102                           MASK     CH5MASK                               #  COMPARE THISPOLY WITH BITS OF FAILED JET
023339,000129: 20,2365           10000                           CCS      A                                     #  IF C(A) = +0, THEN THERE ARE NO FAILURES
023340,000130: 20,2366           12370                           TCF      +2                                    #  IN THIS POLICY AND THE LM DAP USES IT.
023341,000131: 20,2367           12427                           TCF      POLFOUND                              #  IF C(A) IS NOT +0, IT IS POSITIVE AND
023342,000132: 20,2370           00006                           EXTEND                                         #  FIRST THE RELATIVE ADDRESS INDEXER IS
023343,000133: 20,2371           26063                           DIM      POLRELOC                              #  DECREMENTED BY ONE FOR THE NEXT POLICY,
023344,000134: 20,2372           10064                           CCS      LOOPCTR                               #  THEN A CHECK IS MADE FOR ANY MORE USABLE
023345,000135: 20,2373           12354                           TCF      BESTPOLS                              #  POLICIES, IF NO MORE, C(LOOPCTR) = +0.
023346,000136: 
023347,000137:                                                                                                  #  ***** JET FAILURE ABORT SEQUENCE. *****
023348,000138: 
023349,000139: 20,2374           37767        ABORTJET           CAF      ZERO                                  #  TURN OFF ALL JETS.
023350,000140: 20,2375           00006                           EXTEND                                         
023351,000141: 20,2376           01005                           WRITE    5                                     
023352,000142: 20,2377           00006                           EXTEND                                         
023353,000143: 20,2400           01006                           WRITE    6                                     
023354,000144: 
023355,000145: 20,2401           35660                           CAF      PRIO37                                #  ABORT PRIORITY.
023356,000146: 20,2402           05505                           TC       NOVAC                                 #  CALL JETABORT THROUGH EXECUTIVE.
023357,000147: 20,2403  E6,1471                                  EBANK=   JTSONNOW                              
023358,000148: 20,2403           02113 16066                     2CADR    JETABORT                              
023359,000149: 20,2405           47751                           CS       GODAPGO                               #  SET GODAPGO TO TURN LM DAP OFF WHEN THIS
023360,000150: 20,2406           70077                           MASK     DAPBOOLS                              #  BIT IS CHECKED IN THE NEXT P-AXIS RUPT.
023361,000151: 20,2407           54077                           TS       DAPBOOLS                              
023362,000152: 
023363,000153: 20,2410           15733                           TCF      RESUME                                
023364,000154: 
023365,000155:                                                                                                  #  ***** END JET FAILURE ABORT SEQUENCE. *****
023366,000156: 

Page 557

023368,000158:                                                                                                  #  ENTER HERE AFTER ULLAGE/ASCENT DETECTION:
023369,000159: 
023370,000160: 20,2411           40077        +XSELECT           CS       DAPBOOLS                              #  CHECK FOR ULLAGE  BIT6/DAPBOOLS =1.
023371,000161: 20,2412           77756                           MASK     ULLAGER                               #  IF THE ULLAGE BIT IS 0, THEN THE LM IS
023372,000162: 20,2413           10000                           CCS      A                                     #  IN AN ASCENT BURN AND NO +X TRANSLATION
023373,000163: 20,2414           12417                           TCF      +XSENSE                               #  HAS BEEN REQUESTED (SEE ULL/+X).
023374,000164: 
023375,000165:                                                                                                  #  ENTER HERE FOR +X TRANSLATION:
023376,000166: 
023377,000167: 20,2415           37745        +XTRANSL           CAF      NEGMAX                                #  INDICATE +X TRANSLATION FOR CCS LATER.
023378,000168: 20,2416           54071                           TS       ANYTRANS                              #  (ANYTRANS IS A VOLATILE SWITCH.)
023379,000169: 
023380,000170:                                                                                                  #  ENTER HERE FOR +X SENSE JETS:
023381,000171: 
023382,000172: 20,2417           50061        +XSENSE            INDEX    NETACNDX                              #  PICK UP +X SENSE TABLE INDEX AND THE
023383,000173: 20,2420           32646                           CAF      +SENSTAB                              #  NUMBER OF ALTERNATE POLICIES TO CHECK.
023384,000174: 
023385,000175: 20,2421           12346                           TCF      NUMBALTS                              #  GO TO BEGIN FAILURE CHECKING (ROTATION).
023386,000176: 
023387,000177:                                                                                                  #  ENTER HERE FOR -X TRANSLATION:
023388,000178: 
023389,000179: 20,2422           37743        -XSENSE            CAF      POSMAX                                #  INDICATE -X TRANSLATION FOR CCS LATER.
023390,000180: 20,2423           54071                           TS       ANYTRANS                              #  (ANYTRANS IS A VOLATILE SWITCH.)
023391,000181: 
023392,000182: 20,2424           50061                           INDEX    NETACNDX                              #  PICK UP -X SENSE TABLE INDEX AND THE
023393,000183: 20,2425           32666                           CAF      -SENSTAB                              #  NUMBER OF ALTERNATE POLICIES TO CHECK.
023394,000184: 
023395,000185: 20,2426           12346                           TCF      NUMBALTS                              #  GO TO BEGIN FAILURE CHECKING (ROTATION).
023396,000186: 
023397,000187:                                                                                                  #  ENTER HERE AFTER A ROTATION POLICY HAS BEEN FOUND:
023398,000188: 
023399,000189: 20,2427           30065        POLFOUND           CAE      THISPOLY                              #  GET POSITIVE-VALUED POLICY TABLE ENTRY
023400,000190: 20,2430           00006                           EXTEND                                         #  WHICH IS INSURED AGAINST FAILURE.
023401,000191: 20,2431           77760                           MP       BIT4                                  #  UNPACK BITS 12-14 OF TABLE ENTRY GET THE
023402,000192: 20,2432           50000                           INDEX    A                                     #  NUMBER OF Q-AXIS JETS FROM TORQUE TABLE.
023403,000193: 20,2433           32607                           CAF      TORKTABL                              #  SAVE FOR TORQUE VECTOR RECONSTRUCTION
023404,000194: 20,2434           55607                           TS       NO.QJETS                              #  AND FOR DETERMINING 1/NETACC.
023405,000195: 
023406,000196: 20,2435           30001                           CAE      L                                     #  UNPACK BITS 9-11 OF TABLE ENTRY WHICH
023407,000197: 20,2436           00006                           EXTEND                                         #  ARE NOW BITS 12-14 OF THE L-REGISTER.
023408,000198: 20,2437           77760                           MP       BIT4                                  #  (BIT15 OF L IS 0 DUE TO SIGN AGREEMENT.)
023409,000199: 20,2440           50000                           INDEX    A                                     #  GET NUMBER OF R-AXIS JETS FROM TORQUE
023410,000200: 20,2441           32607                           CAF      TORKTABL                              #  TABLE.  SAVE FOR TORQUE VECTOR RECON-
023411,000201: 20,2442           55610                           TS       NO.RJETS                              #  STRUCTION AND FOR GETTING 1/NETACC.
023412,000202: 
023413,000203:                                                                                                  #  PICK OUT ROTATION JETS FROM TABLE ENTRY:
023414,000204: 
023415,000205: 20,2443           30065                           CAE      THISPOLY                              #  UNPACK BITS 1-8 OF TABLE ENTRY (DONE
023416,000206: 20,2444           74564                           MASK     LOW8                                  #  MOST EASILY BY THE MASKING OPERATION).
023417,000207: 20,2445           67745                           AD       BIT15                                 #  SET SIGN TO INDICATE Q,R-AXES JETS.
023418,000208: 

Page 558

023420,000210: 20,2446           55471                           TS       JTSONNOW                              #  SET POLICY UP FOR IMMEDIATE USE.
023421,000211: 

Page 559

023423,000213: 
023424,000214:                                                                                                  #  ENTRY POINT FOR +X TRANS, OR -X TRANS. REQUEST ALONE:
023425,000215: 
023426,000216:                                                                                                  #  (ALSO CONTINUATION OF TRANSLATION-WITH-ROTATION LOGIC.)
023427,000217: 
023428,000218: 20,2447           37762        +/-XTRAN           CAF      TWO                                   #  SET UP LOOP TO TEST ALL THREE POSSIBLE
023429,000219: 20,2450           54064                           TS       LOOPCTR                               #  TRANSLATION POLICIES, IF 4 JETS ASKED.
023430,000220: 
023431,000221: 20,2451           10071                           CCS      ANYTRANS                              #  TEST FOR TRANSLATION REQUESTS: -0 UNUSED
023432,000222: 20,2452           12456                           TCF      -XPOLICY                              #  POSMAX: -X TRANSLATION.
023433,000223: 20,2453           12543                           TCF      LATERJET                              #   +ZERO: NO TRANSLATION.
023434,000224: 
023435,000225:                                                                                                  #  ENTER HERE FOR +X TRANSLATION POLICIES:
023436,000226: 
023437,000227: 20,2454           37762        +XPOLICY           CAF      TWO                                   #  NEGMAX: +X TRANSLATION.
023438,000228: 20,2455           12457                           TCF      +2                                    #  SET POLRELOC FOR +X TRANS. INDEXING.
023439,000229: 
023440,000230:                                                                                                  #  ENTER HERE FOR -X TRANSLATION POLICIES:
023441,000231: 
023442,000232: 20,2456           37766        -XPOLICY           CAF      FIVE                                  #  SET POLRELOC FOR -X TRANS. INDEXING.
023443,000233: 20,2457           54063                           TS       POLRELOC                              #  (INITIAL VALUE ALWAYS FOR 4-JET POLICY.)
023444,000234: 
023445,000235:                                                                                                  #  TEST FOR TRANSLATION TO BE COMBINED WITH ROTATION JETS.
023446,000236: 
023447,000237: 20,2460           10072                           CCS      TRANSNOW                              #  TEST IF TRANSLATION WITH ROTATION IS
023448,000238: 20,2461           12526                           TCF      TRANCONT                              #  REQUESTED, IF SO, OVER-RIDE 4-JET TEST.
023449,000239: 
023450,000240:                                                                                                  #  DETERMINE IF LM DAP IS IN 2 OR 4 JET TRANSLATION MODE:
023451,000241: 
023452,000242: 20,2462           40077                           CS       DAPBOOLS                              #  TEST FOR 2/4-JET TRANSLATION MODE IN
023453,000243: 20,2463           77760                           MASK     ACC4OR2X                              #  BIT4/DAPBOOLS (ASTRONAUT DSKY INPUT)
023454,000244: 20,2464           10000                           CCS      A                                     #  0: 2 JET MODE (SKIP OUT).
023455,000245: 20,2465           12526                           TCF      TRANCONT                              #  1: 4 JET MODE (CONTINUE).
023456,000246: 
023457,000247:                                                                                                  #  TEST TRANSLATION POLICIES FOR JET FAILURES:
023458,000248: 
023459,000249: 20,2466           50063        TRANNEXT           INDEX    POLRELOC                              #  PICK UP POLICY FOR +/-X TRANSLATION
023460,000250: 20,2467           32676                           CAF      TRANPOLY                              #  FROM TABLE (INDEXED WITHIN REQUESTED
023461,000251: 20,2470           54065                           TS       THISPOLY                              #  RANGE OF POLICIES); TEST FOR FAILURES
023462,000252: 20,2471           70102                           MASK     CH5MASK                               #  IF NO FAILURES, C(A) = +0.  IF POLICY
023463,000253: 20,2472           10000                           CCS      A                                     #  CANNOT BE USED , C(A) IS POSITIVE.
023464,000254: 20,2473           12524                           TCF      TRANCNTD                              #  IF FAILED, CHECK FOR STORE GOOD TRANS.
023465,000255: 
023466,000256:                                                                                                  #  SPECIAL TESTS ARE NEEDED FOR TRANSLATION DURING ROTATION:
023467,000257: 
023468,000258: 20,2474           10072                           CCS      TRANSNOW                              #  TEST FOR TRANSLATION DURING ROTATION
023469,000259: 20,2475           12514                           TCF      TRANSTOR                              #  IF SO, GO TEST THIS POLICY FOR USE NOW.
023470,000260: 
023471,000261:                                                                                                  #  TEST FOR ONLY TRANSLATION REQUEST:
023472,000262: 
023473,000263: 20,2476           10070                           CCS      TRANONLY                              #  TEST FOR PURE TRANSLATION REQUEST
023474,000264: 

Page 560

023476,000266: 20,2477           12510                           TCF      TRANOROT                              #  IF SO, GIVE TRANSLATION, NO ROTATION
023477,000267: 
023478,000268:                                                                                                  #  SPECIAL TEST FOR GOOD 4-JET TRANSLATION:
023479,000269: 
023480,000270: 20,2500           47762                           CS       TWO                                   #  TEST IF POLICY IS USING FOUR JETS (WHICH
023481,000271: 20,2501           60064                           AD       LOOPCTR                               #  IS EQUIVALENT TO LOOPCTR = 2).  IF 4-JET
023482,000272: 20,2502           00006                           EXTEND                                         #  THIS POLICY MUST BE USED AS JTSATCHG.
023483,000273: 20,2503           12506                           BZF      TRAN4JET                              #  OTHERWISE, MUST CHECK TRANSAVE FIRST.
023484,000274: 
023485,000275:                                                                                                  #  WHEN NOT 4-JET TRANSLATION,  CHECK FOR SAVED POLICY:
023486,000276: 
023487,000277: 20,2504           10073                           CCS      TRANSAVE                              #  TEST FOR SAVED POLICY; IF SAVED, USE IT.
023488,000278: 20,2505           12542                           TCF      TRANUSED                              #  IF NOT SAVED YET, USE THIS POLICY.
023489,000279: 
023490,000280:                                                                                                  #  USE THIS POLICY (EITHER 4 JETS OR BEST 2 JET):
023491,000281: 
023492,000282: 20,2506           30065        TRAN4JET           CAE      THISPOLY                              #  USE THIS UNFAILED POLICY AS THE TRANS-
023493,000283: 20,2507           12543                           TCF      LATERJET                              #  LATION POLICY AFTER ROTATION.
023494,000284: 
023495,000285:                                                                                                  #  FOR TRANSLATION WITHOUT ROTATION, TURN JETS ON IMMEDIATELY AND RESUME:
023496,000286: 
023497,000287: 20,2510           30065        TRANOROT           CAE      THISPOLY                              #  TURN ON UNFAILED Q,R-AXES JETS AS A PURE
023498,000288: 20,2511           00006                           EXTEND                                         #  TRANSLATION POLICY WITHOUT ANY TJETLAW
023499,000289: 20,2512           01005                           WRITE    5                                     #  CALCULATIONS (AND NO TIME6 SETTING).
023500,000290: 
023501,000291: 20,2513           15733                           TCF      RESUME                                #  END T5RUPT SINCE JETS ON FOR FULL CSP.
023502,000292: 
023503,000293:                                                                                                  #  TEST THIS TRANSLATION FOR USE DURING ROTATION:
023504,000294: 
023505,000295: 20,2514           30065        TRANSTOR           CAE      THISPOLY                              #  SAVE THIS POLICY FOR LATER USE AS THE
023506,000296: 20,2515           54073                           TS       TRANSAVE                              #  JTSATCHG POLICY UNLESS IT IS SUPERCEDED.
023507,000297: 20,2516           71471                           MASK     JTSONNOW                              #  TEST FOR USE WITH ROTATION POLICY  MUST
023508,000298: 20,2517           10000                           CCS      A                                     #  HAVE NO JETS IN COMMON WITH JTSONNOW.
023509,000299: 20,2520           12526                           TCF      TRANCONT                              #  C(A) POSITIVE MEANS POLICIES CONFLICT.
023510,000300: 
023511,000301:                                                                                                  #  COINCIDENT TRANSLATION FOUND, GO FIND PURE TRANSLATION POLICY (FOR USE AFTER ROTATION):
023512,000302: 
023513,000303: 20,2521           30065                           CAE      THISPOLY                              #  USE BOTH ROTATION AND TRANSLATION JETS
023514,000304: 20,2522           27471                           ADS      JTSONNOW                              #  AT JTSONNOW (BIT 15 IS ALREADY SET).
023515,000305: 
023516,000306: 20,2523           12535                           TCF      TRANSLAT                              #  GO TO START FINDING JTSATCHG POLICY.
023517,000307: 
023518,000308:                                                                                                  #  STOP SEARCH IF GOOD TRANSLATION POLICY ALREADY RECORDED:
023519,000309: 
023520,000310: 20,2524           10073        TRANCNTD           CCS      TRANSAVE                              #  TEST FOR PREVIOUSLY SAVED TRANSLATION
023521,000311: 20,2525           12542                           TCF      TRANUSED                              #  POLICY, IF IT EXISTS, USE IT.
023522,000312: 
023523,000313:                                                                                                  #  CONTINUE FAILURE CHECKING LOOP:
023524,000314: 
023525,000315: 20,2526           00006        TRANCONT           EXTEND                                         #  CONTINUE THE TRANSLATION-FAIL LOOP
023526,000316: 

Page 561

023528,000318: 20,2527           26063                           DIM      POLRELOC                              #  DECREMENT THE TRANSLATION POLICY INDEX
023529,000319: 20,2530           10064                           CCS      LOOPCTR                               #  AND THEN TEST LOOPCTR FOR CONTINUATION
023530,000320: 20,2531           12540                           TCF      TRNRESET                              #  OF JET FAILURE TESTING.
023531,000321: 
023532,000322:                                                                                                  #  IF NO TRANSLATION CAN BE FOUND FOR ROTATION POLICY, ALL IS NOT LOST, OTHERWISE, START JET FAILURE ABORT:
023533,000323: 
023534,000324: 20,2532           10072                           CCS      TRANSNOW                              #  IF FAILURES STOP TRANSLATION DURING
023535,000325: 20,2533           12535                           TCF      TRANSLAT                              #  ROTATION' CONTINUE BY FINDING JTSATCHG.
023536,000326: 
023537,000327: 20,2534           12374                           TCF      ABORTJET                              #  TURN OFF JETS AND ABORT.
023538,000328: 
023539,000329:                                                                                                  #  BEGIN SEARCH FOR JTSATCHG POLICY:
023540,000330: 
023541,000331: 20,2535           37767        TRANSLAT           CAF      ZERO                                  #  SET VOLATILE FLAG TO INDICATE SEARCH IS
023542,000332: 20,2536           54072                           TS       TRANSNOW                              #  FOR JTSATCHG, AFTER TRANSNOW DONE.
023543,000333: 
023544,000334: 20,2537           12447                           TCF      +/-XTRAN                              #  FO TO RE-INITIALIZE LOOP FROM SCRATCH.
023545,000335: 
023546,000336:                                                                                                  #  "TOP OF LOOP" (FOR ALL BUT FIRST PASS):
023547,000337: 
023548,000338: 20,2540           54064        TRNRESET           TS       LOOPCTR                               #  RESET LOOP COUNTER TO CONTINUE LOOPING
023549,000339: 20,2541           12466                           TCF      TRANNEXT                              #  GO TO CONTINUATION OF LOOP (AT THE TOP).
023550,000340: 
023551,000341:                                                                                                  #  RECONSTRUCT FLAGGED JET POLICY:
023552,000342: 
023553,000343: 20,2542           67763        TRANUSED           AD       ONE                                   #  RESET POLICY THAT WAS POSITIVE AND CCSED
023554,000344: 20,2543           67745        LATERJET           AD       BIT15                                 #  SET BIT 15 TO INDICATE Q,R-AXES POLICY.
023555,000345: 20,2544           55472                           TS       JTSATCHG                              #  USE FOR JTSATCHG TRANSLATION POLICY.
023556,000346: 
023557,000347:                                                                                                  #  TRANSFORM INITIAL POINTER TO 2-JET POLICY:
023558,000348: 
023559,000349: 20,2545           37763                           CAF      ONE                                   #  FROM THE INDEX VALUE INDICATING NUMBER
023560,000350: 20,2546           70061                           MASK     NETACNDX                              #  OF JETS, DIRECTION, AND AXIS' COMPUTE
023561,000351: 20,2547           10000                           CCS      A                                     #  THE INDEX VALUE FOR 2 JETS ABOUT THAT
023562,000352: 20,2550           12553                           TCF      +3                                    #  AXIS (IN THAT DIRECTION).  CONTRIVANCE
023563,000353: 20,2551           00006                           EXTEND                                         #  MAKES THIS EQUIVALENT TO  IF BIT1 IS ON.
023564,000354: 20,2552           24061                           AUG      NETACNDX                              #  (INDEP. OF SIGN)  AUGMENT  NETACNDX.
023565,000355: 
023566,000356:                                                                                                  #  TRANSFORM POINTER TO CORRESPOND TO JETS ACTUALLY CHOSEN.
023567,000357: 
023568,000358: 20,2553           11607                           CCS      NO.QJETS                              #  TRANSFORM INDEX TO APPROPRIATE VALUE FOR
023569,000359: 20,2554           12556                           TCF      +2                                    #  THE NUMBER OF JETS SELECTED.
023570,000360: 20,2555           12567                           TCF      ALLRJETS                              #  IF NO.QJETS ZERO, NO.RJETS IS NONZERO.
023571,000361: 20,2556           10000                           CCS      A                                     #  IF NO.QJETS +/-1, NO.RJETS IS +/-1 (BY
023572,000362: 20,2557           12561                           TCF      +2                                    #  DEFINITION)  SO SUBTRACT ONE FROM INDEX.
023573,000363: 20,2560           12564                           TCF      SMALAXIS                              #  GO TRANSFORM FOR 1 U,V-AXIS JET.
023574,000364: 20,2561           10000                           CCS      A                                     #  IF STILL NONZERO ON THIRD CCS, NO.QJETS
023575,000365: 20,2562           24061                           INCR     NETACNDX                              #  MUST HAVE BEEN +/-4, SO ADD ONE TO THE
023576,000366: 20,2563           12576                           TCF      NETACGET                              #  INDEX, OTHERWISE, NO CHANGE (2 JETS).
023577,000367: 

Page 562

023579,000369: 20,2564           00006        SMALAXIS           EXTEND                                         #  DECREMENT INDEX FOR 1 JET AROUND EITHER
023580,000370: 20,2565           26061                           DIM      NETACNDX                              #  THE U- OR V- AXIS.
023581,000371: 20,2566           12576                           TCF      NETACGET                              #  (GO PICK UP INVERSE OF NET ACCELERATION)
023582,000372: 
023583,000373: 20,2567           11610        ALLRJETS           CCS      NO.RJETS                              #  WHEN NO.QJETS ZERO, TEST NO.RJETS WHICH
023584,000374: 20,2570           77762                           MASK     TWO                                   #  IS ONLY +/-2 OR +/-4.  NOTE LAST THREE
023585,000375: 20,2571           12573                           TCF      +2                                    #  BITS OF THESE AFTER CCS  001 OR 011.
023586,000376: 20,2572           77762                           MASK     TWO                                   #  ONLY BIT2 DISTINGUISHES BETWEEN THE TWO.
023587,000377: 20,2573           00006                           EXTEND                                         #  IF BIT2 = 0, THEN TWO JETS, NO CHANGE.
023588,000378: 20,2574           12576                           BZF      +2                                    #  IF BIT2 = 1, THEN FOUR JETS, SO THE
023589,000379: 20,2575           24061                           INCR     NETACNDX                              #  INDEX MUST BE INCREMENTED.
023590,000380: 
023591,000381:                                                                                                  #  PICK UP AND SAVE 1/NETACC FOR TJETLAW:
023592,000382: 
023593,000383: 20,2576           50061        NETACGET           INDEX    NETACNDX                              #  USE THE INDEX VALUE FOR THE EXACT JETS
023594,000384: 20,2577           31706                           CAE      1/NETACS                              #  USED, PICK UP THE APPROPRIATE 1/NETACC
023595,000385: 20,2600           54066                           TS       1/NETACC                              #  AND SAVE FOR USE BY THE TJETLAW.
023596,000386: 
023597,000387:                                                                                                  #  RETURN TO APPROPRIATE TJETLAW:
023598,000388: 
023599,000389: 20,2601           32605                           CAF      BBANKSET                              #  ALWAYS RETURN TO THE FIXED BANK OF THE
023600,000390: 20,2602           54001                           TS       L                                     #  Q,R-AXES REACTION CONTROL SYSTEM LM DAP.
023601,000391: 20,2603           30062                           CAE      TJETADR                               #  USE VARIABLE GENADR WITH WHICH TO
023602,000392: 20,2604           52006                           DTCB                                           #  CROSS BANKS TO RETURN.
023603,000393: 
023604,000394: 20,2605  E6,1416                                  EBANK=   OMEGAQ                                
023605,000395: 20,2605           36066        BBANKSET           BBCON    QRAXIS                                #  BBCON OF Q,R-AXES RCS LM DAP.
023606,000396: 
023607,000397: 20,2606           00240        BITS6&8            OCTAL    00240                                 #  ULLAGE AND ASCENT BURN DAPBOOLS BITS.
023608,000398: 

Page 563

023610,000400: 
023611,000401:                                                                                                  #  TABLE OF Q,R-JET NUMBERS AND DIRECTIONS:
023612,000402: 
023613,000403: 20,2607           00000        TORKTABL           DEC      0          B-14                       #  FROM THE 3 PACKED BITS IN A WORD FROM
023614,000404: 20,2610           00001                           DEC      +1         B-14                       #  POLTABLE, THE POLTYPEP PROGRAM SELECTS
023615,000405: 20,2611           77776                           DEC      -1         B-14                       #  THE APPROPRIATE NO.QJETS OR NO.RJETS
023616,000406: 20,2612           00002                           DEC      +2         B-14                       #  AS FOLLOWS:
023617,000407: 20,2613           77775                           DEC      -2         B-14                       #  000: NO JETS
023618,000408: 20,2614           00004                           DEC      +4         B-14                       #  001: +1 JET   011: +2 JETS  101: +4 JETS
023619,000409: 20,2615           77773                           DEC      -4         B-14                       #  010: -1 JET   100: -2 JETS  110: -4 JETS
023620,000410: 
023621,000411: 
023622,000412:                                                                                                  #  RELATIVE ADDRESSES AND NUMBER OF ALTERNATE POLICIES ARE LISTED IN THE FOLLOWING TABLES.  EACH ENTRY HAS THE FORM
023623,000413:                                                                                                  #           0XYYY  WHERE   X INDICATES THE NUMBER OF ALTERNATE POLICIES AND
023624,000414:                                                                                                  #                        YYY IS THE RELATIVE ADDRESS IN POLTABLE OF THE "OPTIMAL" POLICY.
023625,000415: 
023626,000416:                                                                                                  #  FORCE-COUPLE POLICIES:
023627,000417: 20,2616           03003                           OCTAL    03003                                 #  +2 Q-AXIS JETS
023628,000418: 20,2617           04004                           OCTAL    04004                                 #  +4 Q-AXIS JETS
023629,000419: 20,2620           03010                           OCTAL    03010                                 #  -2 Q-AXIS JETS
023630,000420: 20,2621           04011                           OCTAL    04011                                 #  -4 Q-AXIS JETS
023631,000421: 20,2622           03015                           OCTAL    03015                                 #  +2 R-AXIS JETS
023632,000422: 20,2623           04016                           OCTAL    04016                                 #  +4 R-AXIS JETS
023633,000423: 20,2624           03022                           OCTAL    03022                                 #  -2 R-AXIS JETS
023634,000424: 20,2625           04023                           OCTAL    04023                                 #  -4 R-AXIS JETS
023635,000425: 20,2626           02026        NORMLPOL           OCTAL    02026                                 #  +2 U-AXIS JETS
023636,000426: 20,2627           02026                           OCTAL    02026                                 #  +2 U-AXIS JETS
023637,000427: 20,2630           02031                           OCTAL    02031                                 #  -2 U-AXIS JETS
023638,000428: 20,2631           02031                           OCTAL    02031                                 #  -2 U-AXIS JEST
023639,000429: 20,2632           02034                           OCTAL    02034                                 #  +2 V-AXIS JETS
023640,000430: 20,2633           02034                           OCTAL    02034                                 #  +2 V-AXIS JETS
023641,000431: 20,2634           02037                           OCTAL    02037                                 #  -2 V-AXIS JETS
023642,000432: 20,2635           02037                           OCTAL    02037                                 #  -2 V-AXIS JETS
023643,000433: 

Page 564

023645,000435: 
023646,000436:                                                                                                  #  +X SENSE POLICIES:
023647,000437: 
023648,000438: 20,2636           03043                           OCTAL    03043                                 #  +2 Q-AXIS JETS
023649,000439: 20,2637           04044                           OCTAL    04044                                 #  +4 Q-AXIS JETS
023650,000440: 20,2640           03050                           OCTAL    03050                                 #  -2 Q-AXIS JETS
023651,000441: 20,2641           04051                           OCTAL    04051                                 #  -4 Q-AXIS JETS
023652,000442: 20,2642           03055                           OCTAL    03055                                 #  +2 R-AXIS JETS
023653,000443: 20,2643           04056                           OCTAL    04056                                 #  +4 R-AXIS JETS
023654,000444: 20,2644           03062                           OCTAL    03062                                 #  -2 R-AXIS JETS
023655,000445: 20,2645           04063                           OCTAL    04063                                 #  -4 R-AXIS JETS
023656,000446: 20,2646           01025        +SENSTAB           OCTAL    01025                                 #  +1 U-AXIS JETS
023657,000447: 20,2647           02026                           OCTAL    02026                                 #  +2 U-AXIS JETS
023658,000448: 20,2650           01030                           OCTAL    01030                                 #  -1 U-AXIS JETS
023659,000449: 20,2651           02031                           OCTAL    02031                                 #  -2 U-AXIS JETS
023660,000450: 20,2652           01033                           OCTAL    01033                                 #  +1 V-AXIS JETS
023661,000451: 20,2653           02034                           OCTAL    02034                                 #  +2 V-AXIS JETS
023662,000452: 20,2654           01036                           OCTAL    01036                                 #  -1 V-AXIS JETS
023663,000453: 20,2655           02037                           OCTAL    02037                                 #  -2 V-AXIS JETS
023664,000454: 
023665,000455:                                                                                                  #  -X SENSE POLICIES:
023666,000456: 
023667,000457: 20,2656           03067                           OCTAL    03067                                 #  +2 Q-AXIS JETS
023668,000458: 20,2657           04070                           OCTAL    04070                                 #  +4 Q-AXIS JETS
023669,000459: 20,2660           03074                           OCTAL    03074                                 #  -2 Q-AXIS JETS
023670,000460: 20,2661           04075                           OCTAL    04075                                 #  -4 Q-AXIS JETS
023671,000461: 20,2662           03101                           OCTAL    03101                                 #  +2 R-AXIS JETS
023672,000462: 20,2663           04102                           OCTAL    04102                                 #  +4 R-AXIS JETS
023673,000463: 20,2664           03106                           OCTAL    03106                                 #  -2 R-AXIS JETS
023674,000464: 20,2665           04107                           OCTAL    04107                                 #  -4 R-AXIS JETS
023675,000465: 20,2666           01111        -SENSTAB           OCTAL    01111                                 #  +1 U-AXIS JETS
023676,000466: 20,2667           02112                           OCTAL    02112                                 #  +2 U-AXIS JETS
023677,000467: 20,2670           01114                           OCTAL    01114                                 #  -1 U-AXIS JETS
023678,000468: 20,2671           02115                           OCTAL    02115                                 #  -2 U-AXIS JETS
023679,000469: 20,2672           01117                           OCTAL    01117                                 #  +1 V-AXIS JETS
023680,000470: 20,2673           02120                           OCTAL    02120                                 #  +2 V-AXIS JETS
023681,000471: 20,2674           01122                           OCTAL    01122                                 #  -1 V-AXIS JETS
023682,000472: 20,2675           02123                           OCTAL    02123                                 #  -2 V AXIS JETS
023683,000473: 

Page 565

023685,000475: 
023686,000476:                                                                                                  #  X-AXIS TRANSLATION POLICIES:
023687,000477: 
023688,000478: 20,2676           00042        TRANPOLY           OCTAL    +00042                                #   2 10       * +X TRANSLATION JETS     0
023689,000479: 20,2677           00210                           OCTAL    +00210                                #   6 14       *                         1
023690,000480: 20,2700           00252                           OCTAL    +00252                                #   2  6 10 14 *                         2
023691,000481: 
023692,000482: 20,2701           00104                           OCTAL    +00104                                #   3 13       * -X TRANSLATION JETS     3
023693,000483: 20,2702           00021                           OCTAL    +00021                                #   1  9       *                         4
023694,000484: 20,2703           00125                           OCTAL    +00125                                #   1  5  9 13 *                         5
023695,000485: 

Page 566

023697,000487: 
023698,000488:                                                                                                  #  ROTATION JET POLICIES;
023699,000489: 
023700,000490:                                                                                                  #  FORCE COUPLE POLICIES:
023701,000491: 
023702,000492: 20,2704           14025        POLTABLE           OCTAL    +14025                                #   5  9       * +Q-AXIS FORCE COUPLES    0
023703,000493: 20,2705           14203                           OCTAL    +14203                                #   2 14       *                          1
023704,000494: 20,2706           14221                           OCTAL    +14221                                #   9 14       *                          2
023705,000495: 20,2707           14007                           OCTAL    +14007                                #   2  5       *                          3
023706,000496: 20,2710           24227                           OCTAL    +24227                                #   2  5  9 14 *                          4
023707,000497: 
023708,000498: 20,2711           20051                           OCTAL    +20051                                #   6 10       * -Q-AXIS FORCE-COUPLES    5
023709,000499: 20,2712           20102                           OCTAL    +20102                                #   1 13       *                          6
023710,000500: 20,2713           20141                           OCTAL    +20141                                #  10 13       *                          7
023711,000501: 20,2714           20012                           OCTAL    +20012                                #   1  6       *                         10
023712,000502: 20,2715           30152                           OCTAL    +30152                                #   1  6 10 13 *                         11
023713,000503: 
023714,000504: 20,2716           01641                           OCTAL    +01641                                #  10 14       * +R-AXIS FORCE-COUPLES   12
023715,000505: 20,2717           01406                           OCTAL    +01406                                #   1  5       *                         13
023716,000506: 20,2720           01445                           OCTAL    +01445                                #   5 10       *                         14
023717,000507: 20,2721           01602                           OCTAL    +01602                                #   1 14       *                         15
023718,000508: 20,2722           02646                           OCTAL    +02646                                #   1  5 10 14 *                         16
023719,000509: 
023720,000510: 20,2723           02121                           OCTAL    +02121                                #   9 13       * -R-AXIS FORCE-COUPLES   17
023721,000511: 20,2724           02013                           OCTAL    +02013                                #   2  6       *                         20
023722,000512: 20,2725           02103                           OCTAL    +02103                                #   2 13       *                         21
023723,000513: 20,2726           02031                           OCTAL    +02031                                #   6  9       *                         22
023724,000514: 20,2727           03133                           OCTAL    +03133                                #   2  6  9 13 *                         23
023725,000515: 
023726,000516:                                                                                                  #  FORCE COUPLE AND +X SENSE POLICIES:
023727,000517: 
023728,000518: 20,2730           73372                           OCTAL    -04405                                #   5          * +U-AXIS FORCE-COUPLES   24
023729,000519: 20,2731           73176                           OCTAL    -04601                                #  14          *     AND +X SENSE        25
023730,000520: 20,2732           62172                           OCTAL    -15605                                #   5 14       *                         26
023731,000521: 
023732,000522: 20,2733           66676                           OCTAL    -11101                                #  13          * -U-AXIS FORCE-COUPLES   27
023733,000523: 20,2734           66766                           OCTAL    -11011                                #   6          *     AND +X SENSE        30
023734,000524: 20,2735           55666                           OCTAL    -22111                                #   6 13       *                         31
023735,000525: 
023736,000526: 20,2736           67375                           OCTAL    -10402                                #   1          * +V-AXIS FORCE-COUPLES   32
023737,000527: 20,2737           67336                           OCTAL    -10441                                #  10          *     AND +X SENSE        33
023738,000528: 20,2740           56335                           OCTAL    -21442                                #   1 10       *                         34
023739,000529: 
023740,000530: 20,2741           72756                           OCTAL    -05021                                #   9          * -V-AXIS FORCE-COUPLES   35
023741,000531: 20,2742           72774                           OCTAL    -05003                                #   2          *     AND +X SENSE        36
023742,000532: 20,2743           61754                           OCTAL    -16023                                #   2  9       *                         37
023743,000533: 

Page 567

023745,000535: 
023746,000536:                                                                                                  #  +X SENSE POLICIES:
023747,000537: 
023748,000538: 20,2744           14025                           OCTAL    +14025                                #   5  9       * +Q-AXIS +X SENSE JETS   40
023749,000539: 20,2745           14221                           OCTAL    +14221                                #   9 14       *                         41
023750,000540: 20,2746           14007                           OCTAL    +14007                                #   2  5       *                         42
023751,000541: 20,2747           14203                           OCTAL    +14203                                #   2 14       *                         43
023752,000542: 20,2750           24227                           OCTAL    +24227                                #   2  5  9 14 *                         44
023753,000543: 
023754,000544: 20,2751           20102                           OCTAL    +20102                                #   1 13       * -Q-AXIS +X SENSE JETS   45
023755,000545: 20,2752           20141                           OCTAL    +20141                                #  10 13       *                         46
023756,000546: 20,2753           20012                           OCTAL    +20012                                #   1  6       *                         47
023757,000547: 20,2754           20051                           OCTAL    +20051                                #   6 10       *                         50
023758,000548: 20,2755           30152                           OCTAL    +30152                                #   1  6 10 13 *                         51
023759,000549: 
023760,000550: 20,2756           01406                           OCTAL    +01406                                #   1  5       * +R-AXIS +X SENSE JETS   52
023761,000551: 20,2757           01445                           OCTAL    +01445                                #   5 10       *                         53
023762,000552: 20,2760           01602                           OCTAL    +01602                                #   1 14       *                         54
023763,000553: 20,2761           01641                           OCTAL    +01641                                #  10 14       *                         55
023764,000554: 20,2762           02646                           OCTAL    +02646                                #   1  5 10 14 *                         56
023765,000555: 
023766,000556: 20,2763           02121                           OCTAL    +02121                                #   9 13       * -R-AXIS +X SENSE JETS   57
023767,000557: 20,2764           02103                           OCTAL    +02103                                #   2 13       *                         60
023768,000558: 20,2765           02031                           OCTAL    +02031                                #   6  9       *                         61
023769,000559: 20,2766           02013                           OCTAL    +02013                                #   2  6       *                         62
023770,000560: 20,2767           03133                           OCTAL    +03133                                #   2  6  9 13 *                         63
023771,000561: 

Page 568

023773,000563: 
023774,000564:                                                                                                  #  -X SENSE POLICIES:
023775,000565: 
023776,000566: 20,2770           14203                           OCTAL    +14203                                #   2 14       * +Q-AXIS -X SENSE JETS   64
023777,000567: 20,2771           14221                           OCTAL    +14221                                #   9 14       *                         65
023778,000568: 20,2772           14007                           OCTAL    +14007                                #   2  5       *                         66
023779,000569: 20,2773           14025                           OCTAL    +14025                                #   5  9       *                         67
023780,000570: 20,2774           24227                           OCTAL    +24227                                #   2  5  9 14 *                         70
023781,000571: 
023782,000572: 20,2775           20051                           OCTAL    +20051                                #   6 10       * -Q-AXIS -X SENSE JETS   71
023783,000573: 20,2776           20141                           OCTAL    +20141                                #  10 13       *                         72
023784,000574: 20,2777           20012                           OCTAL    +20012                                #   1  6       *                         73
023785,000575: 20,3000           20102                           OCTAL    +20102                                #   1 13       *                         74
023786,000576: 20,3001           30152                           OCTAL    +30152                                #   1  6 10 13 *                         75
023787,000577: 
023788,000578: 20,3002           01641                           OCTAL    +01641                                #  10 14       * +R-AXIS -X SENSE JETS   76
023789,000579: 20,3003           01445                           OCTAL    +01445                                #   5 10       *                         77
023790,000580: 20,3004           01602                           OCTAL    +01602                                #   1 14       *                        100
023791,000581: 20,3005           01406                           OCTAL    +01406                                #   1  5       *                        101
023792,000582: 20,3006           02646                           OCTAL    +02646                                #   1  5 10 14 *                        102
023793,000583: 
023794,000584: 20,3007           02013                           OCTAL    +02013                                #   2  6       * -R-AXIS -X SENSE JETS  103
023795,000585: 20,3010           02103                           OCTAL    +02103                                #   2 13       *                        104
023796,000586: 20,3011           02031                           OCTAL    +02031                                #   6  9       *                        105
023797,000587: 20,3012           02121                           OCTAL    +02121                                #   9  13      *                        106
023798,000588: 20,3013           03133                           OCTAL    +03133                                #   2  6  9 13 *                        107
023799,000589: 
023800,000590: 20,3014           73176                           OCTAL    -04601                                #  14          * +U-AXIS -X SENSE JETS  110
023801,000591: 20,3015           73372                           OCTAL    -04405                                #   5          *                        111
023802,000592: 20,3016           62172                           OCTAL    -15605                                #   5 14       *                        112
023803,000593: 
023804,000594: 20,3017           66766                           OCTAL    -11011                                #   6          * -U-AXIS -X SENSE JETS  113
023805,000595: 20,3020           66676                           OCTAL    -11101                                #  13          *                        114
023806,000596: 20,3021           55666                           OCTAL    -22111                                #   6 13       *                        115
023807,000597: 
023808,000598: 20,3022           67336                           OCTAL    -10441                                #  10          * +V-AXIS -X SENSE JETS  116
023809,000599: 20,3023           67375                           OCTAL    -10402                                #   1          *                        117
023810,000600: 20,3024           56335                           OCTAL    -21442                                #   1 10       *                        120
023811,000601: 
023812,000602: 20,3025           72774                           OCTAL    -05003                                #   2          * -V-AXIS -X SENSE JETS  121
023813,000603: 20,3026           72756                           OCTAL    -05021                                #   9          *                        122
023814,000604: 20,3027           61754                           OCTAL    -16023                                #   2  9       *                        123

End of include-file Q,R-AXES_JET_SELECT_AND_FAILURE_CONTROL_LOGIC.agc.  Parent file is MAIN.agc