Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

061325,000002:                                                                                                  ## Copyright:   Public domain.
061326,000003:                                                                                                  ## Filename:    P-AXIS_RCS_AUTOPILOT.agc
061327,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
061328,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
061329,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
061330,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
061331,000008:                                                                                                  ##              that the code format has been changed to conform to the
061332,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
061333,000010:                                                                                                  ##              original YUL assembler.
061334,000011:                                                                                                  ## Reference:   pp. 1419-1439
061335,000012:                                                                                                  ## Assembler:   yaYUL
061336,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
061337,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
061338,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
061339,000016:                                                                                                  ##              2016-12-11 HG   Transcribed
061340,000017:                                                                                                  ##              2016-12-12 MAS  Pushed in some relative labels.
061341,000018:                                                                                                  ##              2016-12-26 RSB  Comment-text proofed using ProoferComments
061342,000019:                                                                                                  ##                              and corrected errors found.
061343,000020: 

Page 1419

061345,000022: 16,2217                                           BANK     16                                    
061346,000023: 16,2000                                           SETLOC   DAPS1                                 
061347,000024: 16,2000                                           BANK                                           
061348,000025: 
061349,000026: 16,2217  E6,1464                                  EBANK=   PERROR                                
061350,000027: 16,2217                                           COUNT*   $$/DAPP                               
061351,000028: 
061352,000029:                                                                                                  #  THE FOLLOWING T5RUPT ENTRY BEGINS THE PROGRAM WHICH CONTROLS THE P-AXIS ACTION OF THE LEM USING THE RCS JETS.
061353,000030:                                                                                                  #  THE NOMINAL TIME BETWEEN THE P-AXIS RUPTS IS 100 MS IN ALL NON-IDLING MODES OF THE DAP.
061354,000031: 
061355,000032: 16,2217           37750        PAXIS              CA       MS100                                 
061356,000033: 16,2220           26030                           ADS      TIME5                                 #  *** NECESSARY IN ORDER TO ALLOW SYN-
061357,000034:                                                                                                  #  CHRONIZATION WITH OTHER INTERRUPTS ***
061358,000035: 
061359,000036: 16,2221           22016                           LXCH     BANKRUPT                              #  INTERRUPT LEAD IN (CONTINUED)
061360,000037: 16,2222           00006                           EXTEND                                         
061361,000038: 16,2223           22012                           QXCH     QRUPT                                 
061362,000039: 
061363,000040:                                                                                                  #  CHECK IF DAP PASS IS PERMISSIBLE
061364,000041: 
061365,000042: 16,2224           11756                           CCS      DAPZRUPT                              #  IF DAPZRUPT POSITIVE, DAP (JASK) IS
061366,000043: 16,2225           05626                           TC       BAILOUT                               #     STILL IN PROGRESS AND A RESTART IS
061367,000044: 16,2226           32000                           OCT      32000                                 #    CALLED FOR.  IT IS NEVER ZERO
061368,000045: 
061369,000046: 16,2227           02000                           TC       CHEKBITS                              #  RETURN IS TO I+1 IF DAP SHOULD STAY ON.
061370,000047: 
061371,000048: 16,2230           30032                           CA       CDUX                                  #  READ AND STORE CDU'S
061372,000049: 16,2231           55747                           TS       DAPTREG4                              
061373,000050: 16,2232           30033                           CA       CDUY                                  
061374,000051: 16,2233           55750                           TS       DAPTREG5                              
061375,000052: 16,2234           30034                           CA       CDUZ                                  
061376,000053: 16,2235           55751                           TS       DAPTREG6                              
061377,000054:                                                                                                  #  ***** KALCMANU-DAP AND "RATE-HOLD"-DAP INTERFACE *****
061378,000055: 
061379,000056:                                                                                                  #  THE FOLLOWING SECTION IS EXECUTED EVERY 100 MS (10 TIMES A SECOND) WITHIN THE P-AXIS REACTION CONTROL SYSTEM
061380,000057:                                                                                                  #  AUTOPILOT (WHENEVER THE DAP IS IN OPERATION).
061381,000058: 
061382,000059: 16,2236           31634                           CA       CDUXD                                 
061383,000060: 16,2237           00006                           EXTEND                                         
061384,000061: 16,2240           21637                           MSU      DELCDUX                               
061385,000062: 16,2241           02262                           TC       1STOTWOS                              
061386,000063: 16,2242           55634                           TS       CDUXD                                 
061387,000064: 16,2243           31635                           CA       CDUYD                                 
061388,000065: 16,2244           00006                           EXTEND                                         
061389,000066: 16,2245           21640                           MSU      DELCDUY                               
061390,000067: 16,2246           02262                           TC       1STOTWOS                              
061391,000068: 16,2247           55635                           TS       CDUYD                                 
061392,000069: 16,2250           31636                           CA       CDUZD                                 
061393,000070: 16,2251           00006                           EXTEND                                         
061394,000071: 16,2252           21641                           MSU      DELCDUZ                               
061395,000072: 

Page 1420

061397,000074: 16,2253           02262                           TC       1STOTWOS                              
061398,000075: 16,2254           55636                           TS       CDUZD                                 
061399,000076: 16,2255           00006                           EXTEND                                         #  DIMINISH MANUAL CONTROL DIRECT RATE
061400,000077: 16,2256           27445                           DIM      TCP                                   #  TIME COUNTERS.
061401,000078: 16,2257           00006                           EXTEND                                         
061402,000079: 16,2260           27457                           DIM      TCQR                                  
061403,000080:                                                                                                  #  RATELOOP COMPUTES JETRATEQ, JETRATER, AND 1JACC*NO. PJETS IN ITEMP1.
061404,000081:                                                                                                  #    RETURNS TO BACKP.
061405,000082: 
061406,000083:                                                                                                  #    JETRATE = 1JACC*NO.PJETS*TJP  (NOTE TJ IS THE TIME FIRED DURING CSP)
061407,000084: 
061408,000085:                                                                                                  #    JETRATEQ= 1JACCQ(TJU*NO.UJETS - TJV*NO.VJETS)
061409,000086: 
061410,000087:                                                                                                  #    JETRATER= 1JACCR(TJU*NO.UJETS + TJV*NO.VJETS)
061411,000088: 
061412,000089: 16,2261           12653                           TCF      PAXFILT                               #  PROCEEDS TO RATELOOP AFTER SUPERJOB
061413,000090: 16,2262           10000        1STOTWOS           CCS      A                                     
061414,000091: 16,2263           64744                           AD       ONE                                   
061415,000092: 16,2264           00002                           TC       Q                                     
061416,000093: 16,2265           40000                           CS       A                                     
061417,000094: 16,2266           00002                           TC       Q                                     
061418,000095: 16,2267           00006        SUBDIVDE           EXTEND                                         #  OVERFLOW PROCTION ROUTINE TO GIVE
061419,000096: 16,2270           71740                           MP       DAPTEMP3                              #    POSMAX OR NEGMAX IF THE DIVIDE WOULD
061420,000097: 16,2271           21427                           DAS      OMEGAU                                #    OVERFLOW
061421,000098: 
061422,000099: 16,2272           00006                 +3        EXTEND                                         
061423,000100: 16,2273           31427                           DCA      OMEGAU                                
061424,000101: 16,2274           53743                           DXCH     DAPTEMP5                              
061425,000102: 16,2275           11426                           CCS      OMEGAU                                
061426,000103: 16,2276           12300                           TCF      +2                                    
061427,000104: 16,2277           12310                           TCF      DIVIDER                               
061428,000105: 16,2300           62321                           AD       -OCT630                               
061429,000106: 16,2301           00006                           EXTEND                                         
061430,000107: 16,2302           62310                           BZMF     DIVIDER                               
061431,000108: 
061432,000109: 16,2303           11426                           CCS      OMEGAU                                
061433,000110: 16,2304           34724                           CA       POSMAX                                #  45 DEG/SEC
061434,000111: 16,2305           00002                           TC       Q                                     
061435,000112: 16,2306           44724                           CS       POSMAX                                
061436,000113: 16,2307           00002                           TC       Q                                     
061437,000114: 
061438,000115: 16,2310           53427        DIVIDER            DXCH     OMEGAU                                
061439,000116: 16,2311           00006                           EXTEND                                         
061440,000117: 16,2312           11747                           DV       DAPTREG4                              
061441,000118: 16,2313           00002                           TC       Q                                     
061442,000119: 
061443,000120: 16,2314           54007        OVERSUB            TS       7                                     #  RETURNS A UNCHANGED OR LIMITED TO
061444,000121: 16,2315           00002                           TC       Q                                     #    POSMAX OR NEGMAX IF A HAS OVERFLOW
061445,000122: 16,2316           50000                           INDEX    A                                     
061446,000123: 16,2317           44725                           CS       BIT15      -1                         
061447,000124: 

Page 1421

061449,000126: 16,2320           00002                           TC       Q                                     
061450,000127: 
061451,000128: 16,2321           77147        -OCT630            OCT      77147                                 
061452,000129: 
061453,000130: 16,2322           31736        BACKP              CA       DAPTEMP1                              
061454,000131: 16,2323           00006                           EXTEND                                         
061455,000132: 16,2324           71530                           MP       1JACC                                 
061456,000133: 16,2325           55744                           TS       JETRATE                               
061457,000134:                                                                                                  #                        BEGINNING OF THE RATE DERIVATION
061458,000135:                                                                                                  #                        OMEGAP,Q,R      BODY RATES SCALED AT PI/4
061459,000136:                                                                                                  #                        TRAPER,Q,R      BODY ANGLE ERRORS FROM PREDICTED ANGLE (PI/40)
061460,000137:                                                                                                  #                        NP(QR)TRAPS     NUMBER OF TIMES ANGLE ERROR HAS BEEN ACCUMULATED
061461,000138:                                                                                                  #                        AOSQ(R)TERM     CHANGE IN RATE DUE TO OFFSET ACCELLERATION. (PI/4)
061462,000139:                                                                                                  #                        JETRATE,Q,R     CHANGE IN RATE DUE TO  JET   ACCELLERATION. (PI/4)
061463,000140:                                                                                                  #                        TRAPSIZE        NEGATIVE LIMIT OF MAGNITUDE OF TRAPEDP,ECT.
061464,000141:                                                                                                  #                        OMEGAU          DP-TEMPORARY STORAGE
061465,000142: 
061466,000143:                                                                                                  #                            OMEGA = OMEGA + JETRATE + AOSTERM (+TRAPED/NTRAPS IF TRAPED BIG)
061467,000144: 
061468,000145: 16,2326           31747                           CAE      DAPTREG4                              #  CDUX IS STORED HERE
061469,000146: 16,2327           54001                           TS       L                                     
061470,000147: 16,2330           00006                           EXTEND                                         
061471,000148: 16,2331           21440                           MSU      OLDXFORP                              #  SCALED AT PI
061472,000149: 16,2332           23440                           LXCH     OLDXFORP                              
061473,000150: 16,2333           55736                           TS       DAPTEMP1                              
061474,000151: 16,2334           33621                           CA       1/40                                  
061475,000152: 16,2335           55747                           TS       DAPTREG4                              
061476,000153: 16,2336           41744                           CS       JETRATE                               
061477,000154: 16,2337           00006                           EXTEND                                         
061478,000155: 16,2340           74727                           MP       BIT14                                 
061479,000156: 16,2341           27430                           ADS      TRAPEDP                               
061480,000157: 16,2342           31745                           CA       JETRATEQ                              
061481,000158: 16,2343           61544                           AD       AOSQTERM                              
061482,000159: 16,2344           00006                           EXTEND                                         
061483,000160: 16,2345           77757                           MP       -BIT14                                
061484,000161: 16,2346           27431                           ADS      TRAPEDQ                               
061485,000162: 16,2347           31746                           CA       JETRATER                              
061486,000163: 16,2350           61545                           AD       AOSRTERM                              
061487,000164: 16,2351           00006                           EXTEND                                         
061488,000165: 16,2352           77757                           MP       -BIT14                                
061489,000166: 16,2353           27432                           ADS      TRAPEDR                               
061490,000167: 
061491,000168: 16,2354           31750                           CA       DAPTREG5                              #  CDUY IS STORED HERE
061492,000169: 16,2355           54001                           TS       L                                     
061493,000170: 16,2356           00006                           EXTEND                                         
061494,000171: 16,2357           21441                           MSU      OLDYFORP                              #  SCALED AT PI
061495,000172: 16,2360           23441                           LXCH     OLDYFORP                              
061496,000173: 16,2361           55737                           TS       DAPTEMP2                              
061497,000174: 16,2362           00006                           EXTEND                                         
061498,000175: 16,2363           71414                           MP       M11                                   #  M11 SCALED AT 1
061499,000176: 

Page 1422

061501,000178: 16,2364           61736                           AD       DAPTEMP1                              
061502,000179: 16,2365           53427                           DXCH     OMEGAU                                
061503,000180: 
061504,000181: 16,2366           02272                           TC       SUBDIVDE   +3                         #  RETURNS WITH CDU-RATE AT PI/4
061505,000182: 
061506,000183: 16,2367           00006                           EXTEND                                         
061507,000184: 16,2370           61421                           SU       OMEGAP                                
061508,000185: 16,2371           27430                           ADS      TRAPEDP                               
061509,000186: 16,2372           02314                           TC       OVERSUB                               
061510,000187: 16,2373           55430                           TS       TRAPEDP                               
061511,000188: 16,2374           00006                           EXTEND                                         
061512,000189: 16,2375           31743                           DCA      DAPTEMP5                              
061513,000190: 16,2376           21447                           DAS      DXERROR                               
061514,000191: 16,2377           41454                           CS       PLAST                                 
061515,000192: 16,2400           00006                           EXTEND                                         
061516,000193: 16,2401           73621                           MP       1/40                                  
061517,000194: 16,2402           21447                           DAS      DXERROR                               #  MANUAL MODE X-ATTITUDE ERROR (DP)
061518,000195: 16,2403           31751                           CA       DAPTREG6                              #  CDUZ IS STORED HERE
061519,000196: 16,2404           54001                           TS       L                                     
061520,000197: 16,2405           00006                           EXTEND                                         
061521,000198: 16,2406           21442                           MSU      OLDZFORQ                              
061522,000199: 16,2407           55740                           TS       DAPTEMP3                              
061523,000200: 16,2410           23442                           LXCH     OLDZFORQ                              
061524,000201: 16,2411           31415                           CA       M21                                   
061525,000202: 16,2412           00006                           EXTEND                                         
061526,000203: 16,2413           71737                           MP       DAPTEMP2                              
061527,000204: 16,2414           53427                           DXCH     OMEGAU                                
061528,000205: 16,2415           31417                           CA       M22                                   
061529,000206: 16,2416           02267                           TC       SUBDIVDE                              
061530,000207: 
061531,000208: 16,2417           00006                           EXTEND                                         
061532,000209: 16,2420           61422                           SU       OMEGAQ                                
061533,000210: 16,2421           27431                           ADS      TRAPEDQ                               
061534,000211: 16,2422           02314                           TC       OVERSUB                               
061535,000212: 16,2423           55431                           TS       TRAPEDQ                               
061536,000213: 16,2424           00006                           EXTEND                                         
061537,000214: 16,2425           31743                           DCA      DAPTEMP5                              
061538,000215: 16,2426           21451                           DAS      DYERROR                               
061539,000216: 16,2427           41455                           CS       QLAST                                 
061540,000217: 16,2430           00006                           EXTEND                                         
061541,000218: 16,2431           73621                           MP       1/40                                  
061542,000219: 16,2432           21451                           DAS      DYERROR                               #  MANUAL MODE Y-ATTITUDE ERROR (DP)
061543,000220: 16,2433           31416                           CA       M31                                   
061544,000221: 16,2434           00006                           EXTEND                                         
061545,000222: 16,2435           71737                           MP       DAPTEMP2                              
061546,000223: 16,2436           53427                           DXCH     OMEGAU                                
061547,000224: 16,2437           31420                           CA       M32                                   
061548,000225: 
061549,000226: 16,2440           02267                           TC       SUBDIVDE                              
061550,000227: 

Page 1423

061552,000229: 16,2441           00006                           EXTEND                                         
061553,000230: 16,2442           61423                           SU       OMEGAR                                
061554,000231: 16,2443           27432                           ADS      TRAPEDR                               
061555,000232: 16,2444           02314                           TC       OVERSUB                               
061556,000233: 16,2445           55432                           TS       TRAPEDR                               #  TRAPEDS HAVE ALL BEEN COMPUTED
061557,000234: 
061558,000235: 16,2446           00006                           EXTEND                                         
061559,000236: 16,2447           31743                           DCA      DAPTEMP5                              
061560,000237: 16,2450           21453                           DAS      DZERROR                               
061561,000238: 16,2451           41456                           CS       RLAST                                 
061562,000239: 16,2452           00006                           EXTEND                                         
061563,000240: 16,2453           73621                           MP       1/40                                  
061564,000241: 16,2454           21453                           DAS      DZERROR                               #  MANUAL MODE Z-ATTITUDE ERROR (DP)
061565,000242: 16,2455           30111                           CA       DAPBOOLS                              #  PICK UP PAD LOADED STATE ESTIMATOR GAINS
061566,000243: 16,2456           74730                           MASK     CSMDOCKD                              
061567,000244: 16,2457           00006                           EXTEND                                         
061568,000245: 16,2460           12466                           BZF      LMONLY                                
061569,000246: 16,2461           00006                           EXTEND                                         #     DOCKED
061570,000247: 16,2462           31405                           DCA      DKOMEGAN                              
061571,000248: 16,2463           53750                           DXCH     DAPTREG4                              
061572,000249: 16,2464           31403                           CA       DKTRAP                                
061573,000250: 16,2465           12472                           TCF      +5                                    
061574,000251: 16,2466           00006        LMONLY             EXTEND                                         #     UNDOCKED
061575,000252: 16,2467           31410                           DCA      LMOMEGAN                              
061576,000253: 16,2470           53750                           DXCH     DAPTREG4                              
061577,000254: 16,2471           31406                           CA       LMTRAP                                
061578,000255: 16,2472           55751                 +5        TS       DAPTREG6                              
061579,000256: 16,2473           11430                           CCS      TRAPEDP                               
061580,000257: 16,2474           12476                           TCF      +2                                    
061581,000258: 16,2475           12513                           TCF      SMALPDIF                              
061582,000259: 16,2476           61751                           AD       DAPTREG6                              #  TRAPSIZE > ABOUT 77001 %-1.4DEG/SEC"
061583,000260: 16,2477           00006                           EXTEND                                         
061584,000261: 16,2500           62513                           BZMF     SMALPDIF                              
061585,000262: 16,2501           22007                           ZL                                             
061586,000263: 16,2502           23430                           LXCH     TRAPEDP                               
061587,000264: 16,2503           34746                           CA       ZERO                                  
061588,000265: 16,2504           00006                           EXTEND                                         
061589,000266: 16,2505           11433                           DV       NPTRAPS                               
061590,000267: 16,2506           27421                           ADS      OMEGAP                                
061591,000268: 16,2507           02314                           TC       OVERSUB                               
061592,000269: 16,2510           55421                           TS       OMEGAP                                
061593,000270: 16,2511           31747                           CA       DAPTREG4                              #  ABOUT 10 OR 0 FOR DOCKED OR UNDOCKED
061594,000271: 16,2512           55433                           TS       NPTRAPS                               
061595,000272: 16,2513           25433        SMALPDIF           INCR     NPTRAPS                               
061596,000273: 16,2514           31744        P-RATE             CA       JETRATE                               
061597,000274: 16,2515           27421                           ADS      OMEGAP                                
061598,000275: 16,2516           02314                           TC       OVERSUB                               
061599,000276: 16,2517           55421                           TS       OMEGAP                                
061600,000277: 
061601,000278: 16,2520           11431                           CCS      TRAPEDQ                               
061602,000279: 

Page 1424

061604,000281: 16,2521           12523                           TCF      +2                                    
061605,000282: 16,2522           12550                           TCF      Q-RATE                                
061606,000283: 16,2523           61751                           AD       DAPTREG6                              #  TRAPSIZE > ABOUT 77001 %-1.4DEG/SEC"
061607,000284: 16,2524           00006                           EXTEND                                         
061608,000285: 16,2525           62550                           BZMF     Q-RATE                                
061609,000286: 16,2526           22007                           ZL                                             
061610,000287: 16,2527           23431                           LXCH     TRAPEDQ                               
061611,000288: 16,2530           34746                           CA       ZERO                                  
061612,000289: 16,2531           00006                           EXTEND                                         
061613,000290: 16,2532           11434                           DV       NQTRAPS                               
061614,000291: 16,2533           55736                           TS       DAPTEMP1                              #  SAVE FOR OFFSET ESTIMATE
061615,000292: 16,2534           27422                           ADS      OMEGAQ                                
061616,000293: 16,2535           02314                           TC       OVERSUB                               
061617,000294: 16,2536           55422                           TS       OMEGAQ                                
061618,000295: 16,2537           31747                           CA       DAPTREG4                              #  ABOUT 10 OR 0 FOR DOCKED OR UNDOCKED
061619,000296: 16,2540           57434                           XCH      NQTRAPS                               
061620,000297: 16,2541           61750                           AD       DAPTREG5                              #  KAOS > ABOUT 60D %N/N_60"
061621,000298: 16,2542           57736                           XCH      DAPTEMP1                              
061622,000299: 16,2543           00006                           EXTEND                                         
061623,000300: 16,2544           74747                           MP       FIVE                                  
061624,000301: 16,2545           00006                           EXTEND                                         
061625,000302: 16,2546           11736                           DV       DAPTEMP1                              
061626,000303: 16,2547           27536                           ADS      AOSQ                                  
061627,000304: 16,2550           25434        Q-RATE             INCR     NQTRAPS                               
061628,000305: 16,2551           31745                           CA       JETRATEQ                              
061629,000306: 16,2552           61544                           AD       AOSQTERM                              
061630,000307: 16,2553           27422                           ADS      OMEGAQ                                
061631,000308: 16,2554           02314                           TC       OVERSUB                               
061632,000309: 16,2555           55422                           TS       OMEGAQ                                
061633,000310: 
061634,000311: 16,2556           11432                           CCS      TRAPEDR                               
061635,000312: 16,2557           12561                           TCF      +2                                    
061636,000313: 16,2560           12606                           TCF      R-RATE                                
061637,000314: 16,2561           61751                           AD       DAPTREG6                              #  TRAPSIZE > ABOUT 77001 %-1.4DEG/SEC"
061638,000315: 16,2562           00006                           EXTEND                                         
061639,000316: 16,2563           62606                           BZMF     R-RATE                                
061640,000317: 16,2564           22007                           ZL                                             
061641,000318: 16,2565           23432                           LXCH     TRAPEDR                               
061642,000319: 16,2566           34746                           CA       ZERO                                  
061643,000320: 16,2567           00006                           EXTEND                                         
061644,000321: 16,2570           11435                           DV       NRTRAPS                               
061645,000322: 16,2571           55737                           TS       DAPTEMP2                              #  SAVE FOR OFFSET ESTIMATE
061646,000323: 16,2572           27423                           ADS      OMEGAR                                
061647,000324: 16,2573           02314                           TC       OVERSUB                               
061648,000325: 16,2574           55423                           TS       OMEGAR                                
061649,000326: 16,2575           31747                           CA       DAPTREG4                              #  ABOUT 10 OR 0 FOR DOCKED OR UNDOCKED
061650,000327: 16,2576           57435                           XCH      NRTRAPS                               
061651,000328: 16,2577           61750                           AD       DAPTREG5                              #  KAOS > ABOUT 60D %N/N_60"
061652,000329: 16,2600           57737                           XCH      DAPTEMP2                              
061653,000330: 16,2601           00006                           EXTEND                                         
061654,000331: 

Page 1425

061656,000333: 16,2602           74747                           MP       FIVE                                  
061657,000334: 16,2603           00006                           EXTEND                                         
061658,000335: 16,2604           11737                           DV       DAPTEMP2                              
061659,000336: 16,2605           27540                           ADS      AOSR                                  
061660,000337: 16,2606           25435        R-RATE             INCR     NRTRAPS                               
061661,000338: 16,2607           31746                           CA       JETRATER                              
061662,000339: 16,2610           61545                           AD       AOSRTERM                              
061663,000340: 16,2611           27423                           ADS      OMEGAR                                
061664,000341: 16,2612           02314                           TC       OVERSUB                               
061665,000342: 16,2613           55423                           TS       OMEGAR                                
061666,000343: 
061667,000344:                                                                                                  #                                END OF RATE DERIVATION
061668,000345: 
061669,000346:                                                                                                  #                                 BEGIN OFFSET ESTIMATER
061670,000347: 
061671,000348:                                                                                                  #                                  IN POWERED FLIGHT, AOSTASK WILL BE CALLED EVERY 2 SECONDS.
061672,000349: 
061673,000350:                                                                                                  #                                  AOS = AOS + K*SUMRATE
061674,000351: 
061675,000352: 16,2614           40111                           CS       DAPBOOLS                              
061676,000353: 16,2615           74735                           MASK     DRIFTBIT                              

Note: Ater the operand DRIFTBIT opeand there is a short blue horizontal marker line right to the right of it.

061678,000355: 16,2616           10000                           CCS      A                                     
061679,000356: 16,2617           12630                           TCF      WORKTIME                              
061680,000357: 16,2620           55424                           TS       ALPHAQ                                #  ZERO THE OFFSET ACCELERATION VALUES.
061681,000358: 16,2621           55425                           TS       ALPHAR                                
061682,000359: 16,2622           55544                           TS       AOSQTERM                              
061683,000360: 16,2623           55545                           TS       AOSRTERM                              
061684,000361: 16,2624           55536                           TS       AOSQ                                  
061685,000362: 16,2625           55540                           TS       AOSR                                  
061686,000363: 16,2626           12673                           TCF      PRETIMCK                              
061687,000364: 16,2627           00074        KAOS               DEC      60         B-14                       
061688,000365: 16,2630           31510        WORKTIME           CA       QACCDOT                               
061689,000366: 16,2631           00006                           EXTEND                                         
061690,000367: 16,2632           74757                           MP       CALLCODE                              #  OCTAL 00032 IS DECIMAL .1 AT 2(6).
061691,000368: 16,2633           21537                           DAS      AOSQ                                  
061692,000369: 16,2634           31536                           CA       AOSQ                                  
061693,000370: 16,2635           55424                           TS       ALPHAQ                                
061694,000371: 16,2636           00006                           EXTEND                                         
061695,000372: 16,2637           73617                           MP       200MS                                 #   .2 AT 1
061696,000373: 16,2640           55544                           TS       AOSQTERM                              
061697,000374: 16,2641           31512                           CA       RACCDOT                               
061698,000375: 16,2642           00006                           EXTEND                                         
061699,000376: 16,2643           74757                           MP       CALLCODE                              #  OCTAL 00032 IS DECIMAL .1 AT 2(6).
061700,000377: 16,2644           21541                           DAS      AOSR                                  
061701,000378: 16,2645           31540                           CA       AOSR                                  
061702,000379: 16,2646           55425                           TS       ALPHAR                                
061703,000380: 16,2647           00006                           EXTEND                                         
061704,000381: 16,2650           73617                           MP       200MS                                 #   .2 AT 1
061705,000382: 16,2651           55545                           TS       AOSRTERM                              
061706,000383: 16,2652           12673                           TCF      PRETIMCK                              
061707,000384: 

Page 1426

061709,000386: 
061710,000387: 
061711,000388: 16,2653           34740        PAXFILT            CA       CALLGMBL                              #  EXECUTE ACDT+C12, IF NEEDED.
061712,000389: 16,2654           71774                           MASK     RCSFLAGS                              
061713,000390: 16,2655           10000                           CCS      A                                     #  CALLGMBL IS NOT BIT15, SO THIS TEST IS
061714,000391: 16,2656           03737                           TC       ACDT+C12                              #  VALID.
061715,000392: 
061716,000393: 16,2657           52011                           DXCH     ARUPT                                 
061717,000394: 16,2660           53753                           DXCH     DAPARUPT                              
061718,000395: 16,2661           32672                           CA       SUPERJOB                              #  SETTING UP THE SUPERJOB
061719,000396: 16,2662           56017                           XCH      BRUPT                                 
061720,000397: 16,2663           22012                           LXCH     QRUPT                                 
061721,000398: 16,2664           53755                           DXCH     DAPBQRPT                              
061722,000399: 16,2665           32671                           CA       SUPERADR                              
061723,000400: 16,2666           52016                           DXCH     ZRUPT                                 
061724,000401: 16,2667           53757                           DXCH     DAPZRUPT                              
061725,000402: 16,2670           15277                           TCF      NOQBRSM    +1                         #  RELINT (JUST IN CASE) AND RESUME, IN THE
061726,000403:                                                                                                  #    FORM OF A JASK, AT SUPERJOB.
061727,000404: 
061728,000405: 16,2671           02673        SUPERADR           GENADR   SUPERJOB   +1                         
061729,000406:                                                                                                  #  COUNT DOWN GIMBAL DRIVE TIMERS AND TURN OFF DRIVES IF REQUIRED.
061730,000407: 
061731,000408: 16,2672           13642        SUPERJOB           TCF      RATELOOP                              
061732,000409: 16,2673           11631        PRETIMCK           CCS      QGIMTIMR                              
061733,000410: 16,2674           12714                           TCF      DECQTIMR                              #    POSITIVE- COUNTING DOWN
061734,000411: 16,2675           12720                           TCF      TURNOFFQ                              #    NEGATIVE- DRIVE SHOULD BE ENDED
061735,000412: 16,2676           11633        CHKRTIMR           CCS      RGIMTIMR                              #    NEGATIVE- INACTIVE
061736,000413: 16,2677           12716                           TCF      DECRTIMR                              #   (NEG ZERO- IMPOSSIBLE)
061737,000414: 16,2700           12730                           TCF      TURNOFFR                              #  REPEATED (ABOVE) FOR R AXIS.
061738,000415: 
061739,000416: 16,2701           00006                           EXTEND                                         #  DECREMENT DOCKED JET INHIBITION COUNTERS
061740,000417: 16,2702           27766                           DIM      PJETCTR                               
061741,000418: 16,2703           00006                           EXTEND                                         
061742,000419: 16,2704           27767                           DIM      UJETCTR                               
061743,000420: 16,2705           00006                           EXTEND                                         
061744,000421: 16,2706           27770                           DIM      VJETCTR                               
061745,000422: 16,2707           34731                           CA       BIT12                                 
061746,000423: 16,2710           71774                           MASK     RCSFLAGS                              
061747,000424: 16,2711           00006                           EXTEND                                         
061748,000425: 16,2712           12740                           BZF      SKIPPAXS                              
061749,000426: 16,2713           02744                           TC       CHKVISFZ                              
061750,000427: 16,2714           55631        DECQTIMR           TS       QGIMTIMR                              #  COUNT TIMERS DOWN TO POS ZERO.
061751,000428: 16,2715           12676                           TCF      CHKRTIMR                              
061752,000429: 16,2716           55633        DECRTIMR           TS       RGIMTIMR                              
061753,000430: 16,2717           12701                           TCF      CHKRTIMR   +3                         
061754,000431: 
061755,000432: 16,2720           55501        TURNOFFQ           TS       NEGUQ                                 #  HALT DRIVES.
061756,000433: 16,2721           55510                           TS       QACCDOT                               
061757,000434: 16,2722           45000                           CS       QGIMBITS                              
061758,000435: 16,2723           00006                           EXTEND                                         
061759,000436: 

Page 1427

061761,000438: 16,2724           03012                           WAND     CHAN12                                
061762,000439: 16,2725           34726                           CAF      NEGMAX                                
061763,000440: 16,2726           55631                           TS       QGIMTIMR                              
061764,000441: 16,2727           12676                           TCF      CHKRTIMR                              
061765,000442: 16,2730           55503        TURNOFFR           TS       NEGUR                                 
061766,000443: 16,2731           55512                           TS       RACCDOT                               
061767,000444: 16,2732           45011                           CS       RGIMBITS                              
061768,000445: 16,2733           00006                           EXTEND                                         
061769,000446: 16,2734           03012                           WAND     CHAN12                                
061770,000447: 16,2735           34726                           CAF      NEGMAX                                
061771,000448: 16,2736           55633                           TS       RGIMTIMR                              
061772,000449: 16,2737           12701                           TCF      CHKRTIMR   +3                         
061773,000450: 16,2740     5000               QGIMBITS           EQUALS   OCT1400                               #  BITS 9 AND 10 (OF CHANNEL 12).
061774,000451: 16,2740     5011               RGIMBITS           EQUALS   PRIO6                                 #  BITS 11 AND 12 (OF CHANNEL 12).
061775,000452: 
061776,000453: 16,2740           41774        SKIPPAXS           CS       RCSFLAGS                              
061777,000454: 16,2741           74731                           MASK     BIT12                                 
061778,000455: 16,2742           27774                           ADS      RCSFLAGS                              #  BIT 12 SET TO 1.
061779,000456: 16,2743           13625                           TCF      QRAXIS                                #  GO TO QRAXIS OR TO GTS.
061780,000457: 
061781,000458:                                                                                                  #                                Y-Z TRANSLATION
061782,000459: 
061783,000460:                                                                                                  #                                INPUT:  BITS 9-12 OF CH31 (FROM TRANSLATION CONTROLER)
061784,000461: 
061785,000462:                                                                                                  #                                OUTPUT: NEXTP
061786,000463: 
061787,000464:                                                                                                  #                                NEXTP IS THE CHANNEL 6 CODE OF JETS FOR THE DESIRED TRANSLATION.
061788,000465:                                                                                                  #                                IF THERE ARE FAILURES IN THE DESIRED POLICY, THEN
061789,000466: 
061790,000467:                                                                                                  #                                   (1) FOR DIAGONAL TRANS:  UNFAILED PAIR
061791,000468:                                                                                                  #                                                            ALARM (IF NO PAIR)
061792,000469: 
061793,000470:                                                                                                  #                                   (2) FOR PRINCIPAL TRANS: TRY TO TACK WITH DIAGONAL PAIRS
061794,000471:                                                                                                  #                                                            ALARM (IF DIAGONAL PAIRS ARE FAILED)
061795,000472: 16,2744           00006        CHKVISFZ           EXTEND                                         
061796,000473: 16,2745           00031                           READ     CHAN31                                
061797,000474: 16,2746           40000                           CS       A                                     
061798,000475: 16,2747           73614                           MASK     07400OCT                              
061799,000476: 16,2750           00006                           EXTEND                                         
061800,000477: 16,2751           13020                           BZF      TSNEXTP                               
061801,000478: 16,2752           00006                           EXTEND                                         
061802,000479: 16,2753           74736                           MP       BIT7                                  
061803,000480: 16,2754           50000                           INDEX    A                                     
061804,000481: 16,2755           33573                           CA       INDXYZ                                
061805,000482: 16,2756           55743                           TS       ROTINDEX                              
061806,000483: 16,2757           36263        TRYUORV            CA       SIX                                   
061807,000484: 16,2760           03552                           TC       SELECTYZ                              
061808,000485: 16,2761           46263                           CS       SIX                                   
061809,000486: 16,2762           61742                           AD       NUMBERT                               
061810,000487: 16,2763           00006                           EXTEND                                         
061811,000488: 

Page 1428

061813,000490: 16,2764           13017                           BZF      TSNEXTP    -1                         
061814,000491: 16,2765           44747                           CS       FIVE                                  
061815,000492: 16,2766           61743                           AD       ROTINDEX                              
061816,000493: 16,2767           00006                           EXTEND                                         
061817,000494: 16,2770           63006                           BZMF     ALTERYZ                               
061818,000495: 16,2771           41742                           CS       NUMBERT                               
061819,000496: 16,2772           64742                           AD       FOUR                                  
061820,000497: 16,2773           00006                           EXTEND                                         
061821,000498: 16,2774           63017                           BZMF     TSNEXTP    -1                         
061822,000499: 16,2775           05571        ABORTYZ            TC       ALARM                                 
061823,000500: 16,2776           02001                           OCT      02001                                 
061824,000501: 16,2777           34744                           CA       BIT1                                  #  INVERT BIT 1 OF RCSFLAGS.
061825,000502: 16,3000           23774                           LXCH     RCSFLAGS                              
061826,000503: 16,3001           00006                           EXTEND                                         
061827,000504: 16,3002           06001                           RXOR     1                                     
061828,000505: 16,3003           55774                           TS       RCSFLAGS                              
061829,000506: 16,3004           34746                           CA       ZERO                                  
061830,000507: 16,3005           13020                           TCF      TSNEXTP                               
061831,000508: 16,3006           34744        ALTERYZ            CA       BIT1                                  #  INVERT BIT 1 OF RCSFLAGS.
061832,000509: 16,3007           23774                           LXCH     RCSFLAGS                              
061833,000510: 16,3010           00006                           EXTEND                                         
061834,000511: 16,3011           06001                           RXOR     1                                     
061835,000512: 16,3012           55774                           TS       RCSFLAGS                              
061836,000513: 16,3013           74744                           MASK     BIT1                                  
061837,000514: 16,3014           64742                           AD       FOUR                                  
061838,000515: 16,3015           27743                           ADS      ROTINDEX                              
061839,000516: 16,3016           12757                           TCF      TRYUORV                               
061840,000517: 16,3017           31740                           CA       POLYTEMP                              
061841,000518: 16,3020           55472        TSNEXTP            TS       NEXTP                                 
061842,000519:                                                                                                  #                                STATE LOGIC
061843,000520: 
061844,000521:                                                                                                  #                                  CHECK IN ORDER:               IF ON
061845,000522:                                                                                                  #                                    LPDPHASE                    GO TO PURGENCY
061846,000523:                                                                                                  #                                    PULSES                      MINIMUM PULSE LOGIC
061847,000524:                                                                                                  #                                    DETENT(BIT15 CH31)          RATE COMMAND
061848,000525:                                                                                                  #                                    GO TO PURGENCY
061849,000526: 16,3021           34730                           CA       BIT13                                 #  CHECK STICK IF IN ATT. HOLD.
061850,000527: 16,3022           00006                           EXTEND                                         
061851,000528: 16,3023           02031                           RAND     CHAN31                                
061852,000529: 16,3024           00006                           EXTEND                                         
061853,000530: 16,3025           13034                           BZF      MANMODE                               
061854,000531: 
061855,000532: 16,3026           30111                           CA       DAPBOOLS                              
061856,000533: 16,3027           74734                           MASK     XOVINHIB                              
061857,000534: 16,3030           00006                           EXTEND                                         
061858,000535: 16,3031           13067                           BZF      DETENTCK                              #  GO CHECK FOR MANUAL X-AXIS OVERRIDE.
061859,000536: 16,3032           00004                           INHINT                                         
061860,000537: 16,3033           13145                           TCF      ZRORCBIT                              #  CLEAR OURRCBIT AND GO DO AUTOMATIC LOGIC
061861,000538: 
061862,000539: 16,3034           34726        MANMODE            CA       PULSES                                #  PULSES IS ONE FOR PULSE MODE
061863,000540: 

Page 1429

061865,000542: 16,3035           70111                           MASK     DAPBOOLS                              
061866,000543: 16,3036           00006                           EXTEND                                         
061867,000544: 16,3037           13067                           BZF      DETENTCK                              #  BRANCH FOR RATE COMMAND
061868,000545: 
061869,000546:                                                                                                  #        ***  MINIMUM IMPULSE LOGIC ***
061870,000547: 
061871,000548: 16,3040           34746                           CA       ZERO                                  
061872,000549: 16,3041           55464                           TS       PERROR                                
061873,000550: 16,3042           30032                           CA       CDUX                                  
061874,000551: 16,3043           55634                           TS       CDUXD                                 
061875,000552: 
061876,000553: 16,3044           44743                           CS       CONTRLBT                              
061877,000554: 16,3045           00004                           INHINT                                         
061878,000555: 16,3046           70106                           MASK     FLGWRD10                              #  CLEAR FLAG TO CAUSE THE NO CONTROL DSKY
061879,000556: 16,3047           54106                           TS       FLGWRD10                              #    LIGHT TO BE LIT BY T4RUPT.
061880,000557: 
061881,000558: 16,3050           00003                           RELINT                                         
061882,000559: 
061883,000560: 16,3051           00006                           EXTEND                                         
061884,000561: 16,3052           00031                           READ     CHAN31                                
061885,000562: 16,3053           40000                           COM                                            #  THE CHANNEL BITS ARE INVERSE LOGIC.
061886,000563: 16,3054           75745                           MASK     OCT14                                 #  BITS 3 AND 4 ARE +P AND -P COMMANDS
061887,000564: 16,3055           57460                           XCH      OLDPMIN                               
061888,000565: 16,3056           10000                           CCS      A                                     #  BRANCH TO SKIP THIS PASS IF THERE WAS A
061889,000566: 16,3057           13443                           TCF      JETSOFF                               #    COMMAND PRESENT LAST TIME OR IF THERE
061890,000567: 16,3060           31460                           CA       OLDPMIN                               #    IS NO COMMAND THIS TIME.
061891,000568: 16,3061           00006                           EXTEND                                         
061892,000569: 16,3062           13443                           BZF      JETSOFF                               
061893,000570: 
061894,000571: 16,3063           41460                           CS       OLDPMIN                               #  THERE IS A COMMAND TO BE HONORED.  PUT A
061895,000572: 16,3064           66263                           AD       SIX                                   #    SMALL NUMBER OF THE PROPER SIGN IN TJP
061896,000573: 16,3065           55524                           TS       TJP                                   #    IT WILL BE CHANGED TO 14 MSEC LATER.
061897,000574: 16,3066           13351                           TCF      PJETSLEC   -6                         
061898,000575: 
061899,000576:                                                                                                  #                                        MANUAL RATE COMMAND MODE
061900,000577:                                                                                                  #                                        ========================
061901,000578:                                                                                                  #                                          BY ROBERT F. STENGEL
061902,000579: 
061903,000580:                                                                                                  #  THIS MODE PROVIDES RCAH MANUAL CONTROL THRU 2 CONTROL LAWS:                   1) DIRECT RATE AND 2) PSEUDO-AUTO.
061904,000581:                                                                                                  #  THE DIRECT RATE MODE AFFORDS IMMEDIATE CONTROL WITHOUT OVERSHOOT. THE PSEUDO-AUTO MODE PROVIDES PRECISE
061905,000582:                                                                                                  #  RATE CONTROL AND ATTITUDE HOLD.
061906,000583: 
061907,000584:                                                                                                  #  IN DIRECT RATE, JETS ARE FIRED WHEN STICK POSITION CHANGES BY A FIXED NUMBER OF INCREMENTS IN ONE DAP CYCLE.
061908,000585:                                                                                                  #  THE 'BREAKOUT LEVEL' IS .6 D/S FOR LM-ONLY AND .3 D/S FOR CSM-DOCKED. THIS LAW NULLS THE RATE ERROR TO WITHIN
061909,000586:                                                                                                  #  THE 'TARGET DEADBAND', WHICH EQUALS THE BREAKOUT LEVEL.
061910,000587:                                                                                                  #  IN PSEUDO-AUTO, BODY-FIXED RATE AND ATTITUDE ERRORS ARE SUPPLIED TO TJETLAW, WHICH EXERCISES CONTROL.
061911,000588:                                                                                                  #  CONTROL SWITCHES FROM DIRECT RATE TO PSEUDO-AUTO IF THE TARGET DB IS ACHIEVED OR IF TIME IN (1) EXCEEDS 4 SEC.
061912,000589:                                                                                                  #  IF THE INITIAL COMMAND DOES NOT EXCEED THE BREAKOUT LEVEL, CONTROL GOES TO PSEUDO-AUTO IMMEDIATELY.
061913,000590: 
061914,000591:                                                                                                  #  SINCE P-AXIS CONTROL IS SEPARATE FROM Q,R AXES CONTROL, IT IS POSSIBLE TO USE (1) IN P-AXIS AND (2) IN Q,R AXES,
061915,000592: 

Page 1430

061917,000594:                                                                                                  #  OR VICE VERSA.  THIS ALLOWS A DEGREE OF ATTITUDE HOLD IN UNCONTROLLED AXES.  DUE TO U,V CONTROL, HOWEVER, Q AND
061918,000595:                                                                                                  #  R AXES ARE COUPLED AND MUST USE THE SAME CONTROL LAW.
061919,000596: 
061920,000597:                                                                                                  #  HAND CONTROLLER COMMANDS ARE SCALED BY A LINEAR/QUADRATIC LAW. FOR THE LM-ALONE, MAXIMUM COMMANDED RATES ARE 20
061921,000598:                                                                                                  #  AND 4 D/S IN NORMAL AND FINE SCALING; HOWEVER, STICK SENSITIVITY AT ZERO COUNTS (OBTAINED AT A STICK DEFLECTION
061922,000599:                                                                                                  #  OF 2 DEGREES FROM THE CENTERED POSITION) IS .5 OR .1 D/S PER DEGREE. NORMAL AND FINE SCALINGS FOR THE CSM-DOCKED
061923,000600:                                                                                                  #  CASE IS AUTOMATICALLY SET TO 1/10 THE ABOVE VALUES. SCALING IS DETERMINED IN ROUTINE 3.
061924,000601:                                                                                                  #                                          ZEROENBL        ENABLES COUNTERS SO THEY CAN BE READ NEXT TIME
061925,000602:                                                                                                  #                                          JUSTOUT         FIRST DETECTION OF OUT OF DETENT (BY OURRCBIT)
061926,000603: 
061927,000604: 
061928,000605: 16,3067           00006        DETENTCK           EXTEND                                         
061929,000606: 16,3070           00031                           READ     CHAN31                                
061930,000607: 16,3071           55443                           TS       CH31TEMP                              
061931,000608: 16,3072           74726                           MASK     BIT15                                 #  CHECK OUT-OF-DETENT BIT.
061932,000609: 16,3073           00006                           EXTEND                                         
061933,000610: 16,3074           13220                           BZF      RHCMOVED                              #  BRANCH IF OUT OF DETENT.
061934,000611: 16,3075           34731                           CAF      OURRCBIT                              #  IN DETENT. CHECK THE RATE COMMAND BIT.
061935,000612: 16,3076           70111                           MASK     DAPBOOLS                              
061936,000613: 16,3077           00006                           EXTEND                                         
061937,000614: 16,3100           13464                           BZF      PURGENCY                              #  BRANCH IF NOT IN RATE COMMAND LAST PASS.
061938,000615:                                                                                                  #  ........................................................................
061939,000616: 16,3101           34734                           CA       BIT9                                  #  JUST IN DETENT??
061940,000617: 16,3102           71774                           MASK     RCSFLAGS                              
061941,000618: 16,3103           00006                           EXTEND                                         
061942,000619: 16,3104           13116                           BZF      RUTH                                  
061943,000620: 16,3105           34730        AUTOCHEK           CAF      BIT13                                 #  CLEAR JUSTIN AND QRBIT ONLY IF AUTO.
061944,000621: 16,3106           00006                           EXTEND                                         
061945,000622: 16,3107           02031                           RAND     CHAN31                                
061946,000623: 16,3110           00006                           EXTEND                                         
061947,000624: 16,3111           13215                           BZF      RATEDAMP                              #  BRANCH IF IN ATTITUDE HOLD.
061948,000625: 
061949,000626: 16,3112           45005                           CS       BITS9,11                              #  IN AUTO.
061950,000627: 16,3113           71774                           MASK     RCSFLAGS                              #  (X-AXIS OVERRIDE)
061951,000628: 16,3114           55774                           TS       RCSFLAGS                              #  ZERO ORBIT (BIT 11) AND JUST-IN BIT (9).
061952,000629: 16,3115           13215                           TCF      RATEDAMP                              
061953,000630: 
061954,000631: 16,3116           31774        RUTH               CA       RCSFLAGS                              
061955,000632: 16,3117           74733                           MASK     PBIT                                  #  IN ATTITUDE HOLD.
061956,000633: 16,3120           00006                           EXTEND                                         
061957,000634: 16,3121           13123                           BZF      +2                                    #  BRANCH IF P-RATE DAMPING IS FINISHED.
061958,000635: 16,3122           13215                           TCF      RATEDAMP                              
061959,000636: 16,3123           31774                           CA       RCSFLAGS                              
061960,000637: 16,3124           74732                           MASK     QRBIT                                 
061961,000638: 16,3125           00006                           EXTEND                                         
061962,000639: 16,3126           13132                           BZF      RATEDONE                              #  BRANCH IF Q,R RATE DAMPING IS FINISHED.
061963,000640: 16,3127           13105                           TCF      AUTOCHEK                              
061964,000641:                                                                                                  #  ============================================
061965,000642: 16,3130     4744               1/10SEC            =        BIT1                                  
061966,000643: 16,3130     4762               40CYC              =        OCT50                                 
061967,000644: 

Page 1431

061969,000646: 16,3130           74777        PQRBIT             OCT      74777                                 
061970,000647: 16,3131     5005               BITS9,11           EQUALS   EBANK5                                
061971,000648: 16,3131           00056        LINRATP            DEC      46         B-14                       
061972,000649:                                                                                                  #  ============================================
061973,000650: 16,3132           00004        RATEDONE           INHINT                                         #  NULL THE APPROPRIATE ATTITUDE ERRORS.
061974,000651: 16,3133           34730                           CAF      BIT13                                 
061975,000652: 16,3134           00006                           EXTEND                                         
061976,000653: 16,3135           02031                           RAND     CHAN31                                
061977,000654: 16,3136           00006                           EXTEND                                         
061978,000655: 16,3137           13143                           BZF      +4                                    
061979,000656: 16,3140           30032                           CA       CDUX                                  #  (X-AXIS OVERRIDE)
061980,000657: 16,3141           55634                           TS       CDUXD                                 
061981,000658: 16,3142           03145                           TC       +3                                    
061982,000659: 16,3143           04665                           TC       IBNKCALL                              
061983,000660: 16,3144           40154                           FCADR    ZATTEROR                              
061984,000661: 16,3145           44731        ZRORCBIT           CS       OURRCBIT                              #  CLEAR OURRCBIT: MANUAL MODE CLOSED OUT.
061985,000662: 16,3146           70111                           MASK     DAPBOOLS                              
061986,000663: 16,3147           54111                           TS       DAPBOOLS                              
061987,000664: 16,3150           00003                           RELINT                                         
061988,000665: 16,3151           13464                           TCF      PURGENCY                              
061989,000666: 
061990,000667: 16,3152           55464        JUSTOUT            TS       PERROR                                #  INITIALIZATION - FIRST MANUAL PASS (A=0)
061991,000668: 16,3153           55446                           TS       DXERROR                               
061992,000669: 16,3154           55447                           TS       DXERROR    +1                         
061993,000670: 16,3155           55450                           TS       DYERROR                               
061994,000671: 16,3156           55451                           TS       DYERROR    +1                         
061995,000672: 16,3157           55452                           TS       DZERROR                               
061996,000673: 16,3160           55453                           TS       DZERROR    +1                         
061997,000674: 16,3161           55454                           TS       PLAST                                 
061998,000675: 16,3162           55455                           TS       QLAST                                 
061999,000676: 16,3163           55456                           TS       RLAST                                 
062000,000677: 16,3164           54042                           TS       Q-RHCCTR                              
062001,000678: 16,3165           54044                           TS       R-RHCCTR                              
062002,000679: 16,3166           33130                           CA       PQRBIT                                
062003,000680: 16,3167           71774                           MASK     RCSFLAGS                              
062004,000681: 16,3170           55774                           TS       RCSFLAGS                              #  BITS 10 AND 11 OF RCSFLAGS ARE 0.
062005,000682: 16,3171           03176                           TC       ZEROENBL                              
062006,000683: 16,3172           34731                           CA       OURRCBIT                              #  SET INTERNAL RATE COMMAND FLAG (WHICH
062007,000684: 16,3173           26111                           ADS      DAPBOOLS                              #    WAS FOUND TO BE ZERO EARLIER)
062008,000685: 16,3174           00003                           RELINT                                         
062009,000686: 16,3175           13443                           TCF      JETSOFF                               
062010,000687: 16,3176           22044        ZEROENBL           LXCH     R-RHCCTR                              
062011,000688: 16,3177           30042                           CA       Q-RHCCTR                              
062012,000689: 16,3200           53463                           DXCH     SAVEHAND                              
062013,000690: 16,3201           34746                           CA       ZERO                                  
062014,000691: 16,3202           54043                           TS       P-RHCCTR                              
062015,000692: 16,3203           54042                           TS       Q-RHCCTR                              
062016,000693: 16,3204           54044                           TS       R-RHCCTR                              
062017,000694: 16,3205           00004                           INHINT                                         
062018,000695: 16,3206           00006                           EXTEND                                         
062019,000696: 

Page 1432

062021,000698: 16,3207           23265                           QXCH     C13QSAV                               
062022,000699: 16,3210           06040                           TC       C13STALL                              
062023,000700: 
062024,000701: 16,3211           33620                           CA       BITS8,9                               
062025,000702: 16,3212           00006                           EXTEND                                         
062026,000703: 16,3213           05013                           WOR      CHAN13                                #  COUNTERS ZEROED AND ENABLED
062027,000704: 16,3214           01265                           TC       C13QSAV                               
062028,000705: 
062029,000706: 16,3215           34746        RATEDAMP           CA       ZERO                                  
062030,000707: 16,3216           54043                           TS       P-RHCCTR                              
062031,000708: 16,3217           13227                           TCF      RATERROR                              
062032,000709: 
062033,000710: 16,3220           41774        RHCMOVED           CS       RCSFLAGS                              #  SET JUSTIN BIT TO 1
062034,000711: 16,3221           74734                           MASK     BIT9                                  
062035,000712: 16,3222           27774                           ADS      RCSFLAGS                              
062036,000713: 16,3223           34731                           CA       OURRCBIT                              #  P CONTROL
062037,000714: 16,3224           70111                           MASK     DAPBOOLS                              
062038,000715: 16,3225           00006                           EXTEND                                         
062039,000716: 16,3226           13152                           BZF      JUSTOUT                               
062040,000717: 16,3227           30032        RATERROR           CA       CDUX                                  #  FINDCDUW REQUIRES THAT CDUXD=CDUX DURING
062041,000718: 16,3230           55634                           TS       CDUXD                                 #  X-AXIS OVERRIDE
062042,000719: 16,3231           10043                           CCS      P-RHCCTR                              
062043,000720: 16,3232           13235                           TCF      +3                                    
062044,000721: 16,3233           13235                           TCF      +2                                    
062045,000722: 16,3234           13235                           TCF      +1                                    
062046,000723: 16,3235           60000                           DOUBLE                                         #  LINEAR/QUADRATIC CONTROLLER SCALING
062047,000724: 16,3236           60000                           DOUBLE                                         #  (SEE EXPLANATION IN Q,R-AXES RCS
062048,000725: 16,3237           63131                           AD       LINRATP                               #   AUTOPILOT)
062049,000726: 16,3240           00006                           EXTEND                                         
062050,000727: 16,3241           70043                           MP       P-RHCCTR                              
062051,000728: 16,3242           30001                           CA       L                                     
062052,000729: 16,3243           00006                           EXTEND                                         
062053,000730: 16,3244           71444                           MP       STIKSENS                              
062054,000731: 16,3245           57454                           XCH      PLAST                                 
062055,000732: 16,3246           40000                           COM                                            
062056,000733: 16,3247           61454                           AD       PLAST                                 
062057,000734: 16,3250           55736                           TS       DAPTEMP1                              
062058,000735: 16,3251           03176                           TC       ZEROENBL                              #  INTERVAL.  ZERO AND ENABLE ACA COUNTERS.
062059,000736: 16,3252           00003                           RELINT                                         
062060,000737: 16,3253           41454                           CS       PLAST                                 
062061,000738: 16,3254           61421                           AD       OMEGAP                                
062062,000739: 16,3255           55427                           TS       EDOTP                                 
062063,000740: 16,3256           11736                           CCS      DAPTEMP1                              #  IF P COMMAND CHANGE EXCEEDS BREAKOUT
062064,000741: 16,3257           13262                           TCF      +3                                    #  LEVEL, GO TO DIRECT RATE CONTROL. IF NOT
062065,000742: 16,3260           13270                           TCF      +8D                                   #  CHECK FOR DIRECT RATE CONTROL LAST TIME.
062066,000743: 16,3261           13262                           TCF      +1                                    
062067,000744: 16,3262           61476                           AD       -RATEDB                               
062068,000745: 16,3263           00006                           EXTEND                                         
062069,000746: 16,3264           63270                           BZMF     +4                                    
062070,000747: 16,3265           34762                           CA       40CYC                                 
062071,000748: 

Page 1433

062073,000750: 16,3266           55445                           TS       TCP                                   
062074,000751: 16,3267           03301                           TC       PEGI                                  
062075,000752: 16,3270           31774                           CA       RCSFLAGS                              #  CHECK FOR DIRECT RATE COMMAND LAST TIME.
062076,000753: 16,3271           74733                           MASK     PBIT                                  
062077,000754: 16,3272           00006                           EXTEND                                         
062078,000755: 16,3273           13275                           BZF      +2                                    
062079,000756: 16,3274           03301                           TC       PEGI                                  #  TO PURE RATE COMMAND
062080,000757: 16,3275           31446                           CA       DXERROR                               #  PSEUDO-AUTO CONTROL.
062081,000758: 16,3276           55751                           TS       E                                     #  X-ATTITUDE ERROR (SP)
062082,000759: 16,3277           55464                           TS       PERROR                                #  LOAD P-AXIS ERROR FOR MODE1 FDAI DISPLAY
062083,000760: 16,3300           03470                           TC       PURGENCY   +4                         
062084,000761: 16,3301           30032        PEGI               CA       CDUX                                  #  DIRECT RATE CONTROL.
062085,000762: 16,3302           55634                           TS       CDUXD                                 
062086,000763: 16,3303           34746                           CA       ZERO                                  
062087,000764: 16,3304           55446                           TS       DXERROR                               
062088,000765: 16,3305           55447                           TS       DXERROR    +1                         
062089,000766: 16,3306           55464                           TS       PERROR                                #  ZERO P-AXIS ERROR FOR MODE1 FDAI DISPLAY
062090,000767: 16,3307           11427                           CCS      EDOTP                                 
062091,000768: 16,3310           03313                           TC       +3                                    
062092,000769: 16,3311           03313                           TC       +2                                    
062093,000770: 16,3312           03313                           TC       +1                                    
062094,000771: 16,3313           55736                           TS       ABSEDOTP                              
062095,000772: 16,3314           61476                           AD       TARGETDB                              
062096,000773: 16,3315           00006                           EXTEND                                         #  IF RATE ERROR IS LESS THAN DEADBAND,
062097,000774: 16,3316           63326                           BZMF     LAST                                  #  FIRE, AND SWITCH TO PSEUDO-AUTO.
062098,000775: 16,3317           31445                           CA       TCP                                   
062099,000776: 16,3320           00006                           EXTEND                                         #  IF TIME IN RATE COMMAND EXCEEDS 4 SEC.,
062100,000777: 16,3321           63326                           BZMF     LAST                                  
062101,000778: 16,3322           41774                           CS       RCSFLAGS                              
062102,000779: 16,3323           74733                           MASK     PBIT                                  
062103,000780: 16,3324           27774                           ADS      RCSFLAGS                              #  BIT 10 IS 1.
062104,000781: 16,3325           13331                           TCF      +4                                    
062105,000782: 16,3326           44733        LAST               CS       PBIT                                  
062106,000783: 16,3327           71774                           MASK     RCSFLAGS                              
062107,000784: 16,3330           55774                           TS       RCSFLAGS                              #  BIT 10 IS 0.
062108,000785: 16,3331           41427                           CS       EDOTP                                 
062109,000786: 16,3332           00006                           EXTEND                                         
062110,000787: 16,3333           71550                           MP       1/ANETP                               #  1/2JTACC SCALED AT 2EXP(7)/PI
062111,000788: 16,3334           20001                           DAS      A                                     
062112,000789: 16,3335           02314                           TC       OVERSUB                               
062113,000790: 16,3336           00006                           EXTEND                                         
062114,000791: 16,3337           77737                           MP       25/32                                 #  A CONTAINS TJET SCALED AT 2EXP(4)(16/25)
062115,000792: 16,3340           55524                           TS       TJP                                   #  4.JET TIME
062116,000793: 16,3341           31736                           CA       ABSEDOTP                              
062117,000794: 16,3342           61475                           AD       -2JETLIM                              #  COMPARING DELTA RATE WITH 2 JET LIMIT
062118,000795: 16,3343           00006                           EXTEND                                         
062119,000796: 16,3344           63347                           BZMF     +3                                    
062120,000797: 
062121,000798: 16,3345           36263                           CA       SIX                                   
062122,000799: 16,3346           13356                           TCF      +8D                                   
062123,000800: 

Page 1434

062125,000802: 16,3347           31524                           CA       TJP                                   
062126,000803: 16,3350           27524                           ADS      TJP                                   
062127,000804:                                                                                                  #                                GOES TO PJETSLEC FOR TWO JETS
062128,000805: 
062129,000806:                                                                                                  #                               P-JET-SELECTION-ROUTINE (ROTATION)
062130,000807: 
062131,000808:                                                                                                  #                               INPUT:   NUMBERT     4,5,6 FOR WHICH PAIR OR 4 JETS
062132,000809:                                                                                                  #                                        TJP         + FOR +P ROTATION
062133,000810: 
062134,000811:                                                                                                  #                               OUTPUT:  CHANNEL 6
062135,000812:                                                                                                  #                                        PJUMPADR              FOR P-AXIS SKIP
062136,000813:                                                                                                  #                                        (JTLST CALL)          (SMALL TJP)
062137,000814: 
062138,000815:                                                                                                  #                                 ORDER OF POLICIES TRIED IN CASE OF FAILURE.
062139,000816:                                                                                                  #                                        +P             -P
062140,000817:                                                                                                  #                                        7,15           8,16
062141,000818:                                                                                                  #                                        4,12           3,11
062142,000819:                                                                                                  #                                        4,7            8,11
062143,000820:                                                                                                  #                                        7,12           11,16
062144,000821:                                                                                                  #                                        12,15          3,16
062145,000822:                                                                                                  #                                        4,15           3,8
062146,000823:                                                                                                  #                                        ALARM          ALARM
062147,000824: 16,3351           34740                           CA       AORBSYST                              
062148,000825: 16,3352           70101                           MASK     FLAGWRD5                              
062149,000826: 16,3353           10000                           CCS      A                                     
062150,000827: 16,3354           34744                           CA       ONE                                   
062151,000828: 16,3355           64742                           AD       FOUR                                  
062152,000829: 16,3356           55742                           TS       NUMBERT                               
062153,000830: 16,3357           34744        PJETSLEC           CA       ONE                                   
062154,000831: 16,3360           54001                           TS       L                                     
062155,000832: 16,3361           11524                           CCS      TJP                                   
062156,000833: 16,3362           13367                           TCF      +5                                    
062157,000834: 16,3363           13443                           TCF      JETSOFF                               
062158,000835: 16,3364           13366                           TCF      +2                                    
062159,000836: 16,3365           13443                           TCF      JETSOFF                               
062160,000837: 16,3366           22007                           ZL                                             
062161,000838: 16,3367           64744                           AD       ONE                                   
062162,000839: 16,3370           55736                           TS       ABSTJ                                 
062163,000840: 16,3371           23743                           LXCH     ROTINDEX                              
062164,000841: 16,3372           03532                           TC       SELECTP                               
062165,000842: 16,3373           46263                           CS       SIX                                   
062166,000843: 16,3374           61742                           AD       NUMBERT                               
062167,000844: 16,3375           00006                           EXTEND                                         
062168,000845: 16,3376           13400                           BZF      +2                                    
062169,000846: 
062170,000847: 16,3377           44743                           CS       TWO                                   
062171,000848: 16,3400           64742                           AD       FOUR                                  
062172,000849: 16,3401           55521                           TS       NO.PJETS                              
062173,000850: 16,3402           31740                           CA       POLYTEMP                              
062174,000851: 16,3403           05750                           TC       WRITEP                                
062175,000852: 

Page 1435

062177,000854: 16,3404           41736                           CS       ABSTJ                                 
062178,000855: 16,3405           63613                           AD       +150MST6                              
062179,000856: 16,3406           00006                           EXTEND                                         
062180,000857: 16,3407           63625                           BZMF     QRAXIS                                #  GO TO QRAXIS OR TO GTS.
062181,000858: 
062182,000859: 16,3410           63573                           AD       -136MST6                              
062183,000860: 16,3411           00006                           EXTEND                                         
062184,000861: 16,3412           63417                           BZMF     +5                                    
062185,000862: 
062186,000863: 16,3413           27736                           ADS      ABSTJ                                 
062187,000864: 16,3414           51743                           INDEX    ROTINDEX                              
062188,000865: 16,3415           33622                           CA       MINTIMES                              
062189,000866: 16,3416           55524                           TS       TJP                                   
062190,000867: 
062191,000868: 16,3417           31736                           CA       ABSTJ                                 
062192,000869: 16,3420           22007                           ZL                                             
062193,000870: 16,3421           00004                           INHINT                                         
062194,000871: 16,3422           53471                           DXCH     T6FURTHA                              
062195,000872: 16,3423           04665                           TC       IBNKCALL                              
062196,000873: 16,3424           37143                           CADR     JTLST                                 
062197,000874: 16,3425           44731                           CS       BIT12                                 
062198,000875: 16,3426           71774                           MASK     RCSFLAGS                              
062199,000876: 16,3427           55774                           TS       RCSFLAGS                              #  BIT 12 SET TO 0.
062200,000877: 16,3430           03432                           TC       ALTSYST                               
062201,000878: 16,3431           13625                           TCF      QRAXIS                                
062202,000879: 
062203,000880: 16,3432           30101        ALTSYST            CA       FLAGWRD5                              #  ALTERNATE P-AXIS JETS
062204,000881: 16,3433           54001                           TS       L                                     
062205,000882: 16,3434           34740                           CA       AORBSYST                              
062206,000883: 16,3435           00006                           EXTEND                                         
062207,000884: 16,3436           06001                           RXOR     LCHAN                                 
062208,000885: 16,3437           54101                           TS       FLAGWRD5                              
062209,000886: 16,3440           00003                           RELINT                                         
062210,000887: 16,3441           00002                           TC       Q                                     
062211,000888: 
062212,000889: 16,3442           03432        DKALT              TC       ALTSYST                               
062213,000890: 
062214,000891: 16,3443           05747        JETSOFF            TC       WRITEP     -1                         
062215,000892: 16,3444           34746                           CA       ZERO                                  
062216,000893: 16,3445           55524                           TS       TJP                                   
062217,000894: 16,3446           13625                           TCF      QRAXIS                                
062218,000895:                                                                                                  #  (NOTE -- M13 = 1 IDENTICALLY IMPLIES NULL MULTIPLICATION.)
062219,000896: 
062220,000897: 16,3447           30033        CALCPERR           CA       CDUY                                  #  P-ERROR CALCULATION.
062221,000898: 16,3450           00006                           EXTEND                                         
062222,000899: 16,3451           21635                           MSU      CDUYD                                 #  CDU VALUE - ANGLE DESIRED (Y-AXIS)
062223,000900: 16,3452           00006                           EXTEND                                         
062224,000901: 16,3453           71414                           MP       M11                                   #  (CDUY-CDUYD)M11 SCALED AT PI RADIANS
062225,000902: 16,3454           57751                           XCH      E                                     #  SAVE FIRST TERM (OF TWO)
062226,000903: 16,3455           30032                           CA       CDUX                                  #  THIRD COMPONENT
062227,000904: 

Page 1436

062229,000906: 16,3456           00006                           EXTEND                                         
062230,000907: 16,3457           21634                           MSU      CDUXD                                 #  CDU VALUE - ANGLE DESIRED (X-AXIS)
062231,000908:                                                                                                  #                EXTEND
062232,000909:                                                                                                  #                MP      M13
062233,000910: 16,3460           61274                           AD       DELPEROR                              #  KALCMANU INERFACE ERROR
062234,000911: 16,3461           27751                           ADS      E                                     #  SAVE SUM OF TERMS.  COULD BE OVERFLOW.
062235,000912: 16,3462           57464                           XCH      PERROR                                #  SAVE P-ERROR FOR EIGHT-BALL DISPLAY.
062236,000913: 16,3463           00002                           TC       Q                                     #  RETURN TO CALLER
062237,000914: 
062238,000915:                                                                                                  #  P-AXIS URGENCY FUNCTION CALCULATION.
062239,000916: 
062240,000917: 16,3464           03447        PURGENCY           TC       CALCPERR                              #  CALCULATE P-AXIS ERRORS.
062241,000918: 16,3465           41642                           CS       OMEGAPD                               #  THIS CODING IS COMMON TO BOTH LM DAP AND
062242,000919: 16,3466           61421                           AD       OMEGAP                                #  SPS-BACKUP MODE.
062243,000920: 16,3467           55427                           TS       EDOTP                                 #  EDOTP = OMEGAP - OMEGAPD AT PI/4 RAD/SEC
062244,000921: 
062245,000922: 
062246,000923: 16,3470           44744                           CS       ONE                                   
062247,000924: 16,3471           55505                           TS       AXISCTR                               
062248,000925: 16,3472           30111                           CA       DAPBOOLS                              
062249,000926: 16,3473           74730                           MASK     CSMDOCKD                              
062250,000927: 16,3474           00006                           EXTEND                                         
062251,000928: 16,3475           13506                           BZF      HEADTJET                              
062252,000929: 16,3476           00004                           INHINT                                         #  IF CSMDOCKD = 1, GO TO DOCKED RCS LOGIC
062253,000930: 16,3477           04665                           TC       IBNKCALL                              
062254,000931: 16,3500           43667                           CADR     SPSRCS                                
062255,000932: 
062256,000933: 16,3501           31524                           CA       TJP                                   
062257,000934: 16,3502           00006                           EXTEND                                         
062258,000935: 16,3503           13442                           BZF      DKALT                                 #  IF TJP = ZERO, CHANGE AORBSYST.
062259,000936: 16,3504           00003                           RELINT                                         
062260,000937: 16,3505           13351                           TCF      PJETSLEC   -6                         #     SELECT AORBSYST AND USE TWO JETS
062261,000938: 16,3506           34746        HEADTJET           CA       ZERO                                  
062262,000939: 16,3507           55500                           TS       SENSETYP                              
062263,000940: 16,3510           00004                           INHINT                                         
062264,000941: 16,3511           04665                           TC       IBNKCALL                              
062265,000942: 16,3512           37304                           CADR     TJETLAW                               
062266,000943: 16,3513           00003                           RELINT                                         
062267,000944: 
062268,000945: 16,3514           41740                           CS       FIREFCT                               
062269,000946: 16,3515           63531                           AD       -FOURDEG                              
062270,000947: 16,3516           00006                           EXTEND                                         
062271,000948: 16,3517           63351                           BZMF     PJETSLEC   -6                         
062272,000949: 16,3520           11524                           CCS      TJP                                   
062273,000950: 16,3521           13523                           TCF      +2                                    
062274,000951: 16,3522           13443                           TCF      JETSOFF                               
062275,000952: 16,3523           63530                           AD       -160MST6                              
062276,000953: 16,3524           00006                           EXTEND                                         
062277,000954: 16,3525           63351                           BZMF     PJETSLEC   -6                         
062278,000955: 16,3526           36263                           CA       SIX                                   
062279,000956: 

Page 1437

062281,000958: 16,3527           13356                           TCF      PJETSLEC   -1                         
062282,000959: 16,3530           77377        -160MST6           DEC      -256       B-14                       
062283,000960: 16,3531           75117        -FOURDEG           DEC      -.08888                               
062284,000961: 

Page 1438

062286,000963:                                                                                                  #  JET POLICY CONSTRUCTION SUBROUTINE
062287,000964: 
062288,000965:                                                                                                  #                                                INPUT: ROTINDEX, NUMBERT
062289,000966: 
062290,000967:                                                                                                  #                                                OUTPUT: POLYTEMP (JET POLICY)
062291,000968: 
062292,000969:                                                                                                  #                                             THIS SUBROUTINE SELECT A SUBSET OF THE DESIRED JETS WHICH HAS NO FAILURE
062293,000970: 16,3532           36263        SELECTP            CA       SIX                                   
062294,000971: 16,3533           55741                           TS       TEMPNUM                               
062295,000972: 16,3534           51742                           INDEX    NUMBERT                               
062296,000973: 16,3535           33564                           CA       TYPEP                                 
062297,000974: 16,3536           51743                           INDEX    ROTINDEX                              
062298,000975: 16,3537           73555                           MASK     JETSALL                               
062299,000976: 16,3540           55740                           TS       POLYTEMP                              
062300,000977: 16,3541           71260                           MASK     CH6MASK                               
062301,000978: 16,3542           10000                           CCS      A                                     
062302,000979: 16,3543           13545                           TCF      +2                                    
062303,000980: 16,3544           00002                           TC       Q                                     
062304,000981: 16,3545           11741                           CCS      TEMPNUM                               
062305,000982: 16,3546           13552                           TCF      +4                                    
062306,000983: 16,3547           05571                           TC       ALARM                                 
062307,000984: 16,3550           02003                           OCT      02003                                 
062308,000985: 16,3551           13443                           TCF      JETSOFF                               #  *****TCF   ALARMJET *********************
062309,000986: 16,3552           55742        SELECTYZ           TS       NUMBERT                               
062310,000987: 16,3553           13533                           TCF      SELECTP    +1                         
062311,000988: 16,3554           12777                 -1        TCF      ABORTYZ    +2                         
062312,000989: 16,3555           00252        JETSALL            OCT      00252                                 
062313,000990: 16,3556           00125                           OCT      00125                                 #    +P
062314,000991: 16,3557           00140                           OCT      00140                                 #    -Y
062315,000992: 16,3560           00006                           OCT      00006                                 #    -Z
062316,000993: 16,3561           00220                           OCT      00220                                 #    +Y
062317,000994: 16,3562           00011                           OCT      00011                                 #    +Z
062318,000995: 16,3563           00151                           OCT      00151                                 #    +V
062319,000996: 16,3564           00146        TYPEP              OCT      00146                                 #    -U
062320,000997: 16,3565           00226                           OCT      00226                                 #    -V
062321,000998: 16,3566           00231                           OCT      00231                                 #    +U
062322,000999: 16,3567           00151                           OCT      00151                                 #    +V
062323,001000: 16,3570           00132                           OCT      00132                                 #    1-3
062324,001001: 16,3571           00245                           OCT      00245                                 #    2-4
062325,001002: 16,3572           00377                           OCT      00377                                 #    ALL
062326,001003: 16,3573  16,3573               INDXYZ             =        -136MST6                              
062327,001004: 16,3573           77445        -136MST6           DEC      -218       B-14                       
062328,001005: 16,3574           00004                           DEC      4          B-14                       
062329,001006: 16,3575           00002                           DEC      2          B-14                       
062330,001007: 16,3576           07776                           OCT      07776                                 
062331,001008: 16,3577           00005                           DEC      5          B-14                       
062332,001009: 16,3600           00011                           DEC      9          B-14                       
062333,001010: 16,3601           00012                           DEC      10         B-14                       
062334,001011: 16,3602           07776                           OCT      07776                                 
062335,001012: 16,3603           00003                           DEC      3          B-14                       
062336,001013: 

Page 1439

062338,001015: 16,3604           00010                           DEC      8          B-14                       
062339,001016: 16,3605           00007                           DEC      7          B-14                       
062340,001017: 16,3606           07776                           OCT      07776                                 #  THESE INDEXES OF MASK JETSALL WILL
062341,001018: 16,3607           07776                           OCT      07776                                 #  CHANGE THE INSTRUCTION AT SELECTP +4
062342,001019: 16,3610           07776                           OCT      07776                                 #  TO BE         TC JETSALL -1
062343,001020: 16,3611           07776                           OCT      07776                                 #  ONLY USED FOR TRANSLATION FAILURE
062344,001021: 16,3612           07776                           OCT      07776                                 
062345,001022: 16,3613           00360        +150MST6           DEC      240        B-14                       
062346,001023: 16,3614           07400        07400OCT           OCT      07400                                 
062347,001024:                                                                                                  #  T-JET LAW FIXED CONSTANTS
062348,001025: 
062349,001026: 16,3615           00266        NORMSCL            OCT      266                                   
062350,001027: 16,3616           74631        -100MS             DEC      -.1                                   
062351,001028: 16,3617           06315        200MS              DEC      .2                                    
062352,001029: 16,3620     7737               25/32              =        PRIO31                                #  (DEC .78125)
062353,001030: 16,3620           00600        BITS8,9            OCTAL    00600                                 
062354,001031: 16,3621           00632        1/40               DEC      .02500                                
062355,001032: 16,3622           77751        MINTIMES           DEC      -22        B-14                       
062356,001033: 16,3623           00026                           DEC      22         B-14                       
062357,001034: 16,3624           02740        PSKIPADR           GENADR   SKIPPAXS                              
062358,001035: 
062359,001036:                                                                                                  #                                GOES TO Q,R-AXES RCS AUTOPILOT
062360,001037: 16,3625           41644        QRAXIS             CS       OMEGARD                               
062361,001038: 16,3626           61423                           AD       OMEGAR                                
062362,001039: 16,3627           02314                           TC       OVERSUB                               
062363,001040: 16,3630           55437                           TS       EDOTR                                 
062364,001041: 16,3631           41643                           CS       OMEGAQD                               
062365,001042: 16,3632           61422                           AD       OMEGAQ                                
062366,001043: 16,3633           02314                           TC       OVERSUB                               
062367,001044: 16,3634           55436                           TS       EDOTQ                                 
062368,001045: 16,3635           00006                           EXTEND                                         
062369,001046: 16,3636           33641                           DCA      QERRCALL                              
062370,001047: 16,3637           52006                           DTCB                                           
062371,001048: 
062372,001049: 16,3640  E6,1536                                  EBANK=   AOSQ                                  
062373,001050: 16,3640           02124 36106  QERRCALL           2CADR    CALLQERR                              

End of include-file P-AXIS_RCS_AUTOPILOT.agc.  Parent file is MAIN.agc