Source Code

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

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

062510,000002:                                                                                                  ## Copyright:   Public domain.
062511,000003:                                                                                                  ## Filename:    Q,R-AXES_RCS_AUTOPILOT.agc
062512,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
062513,000005:                                                                                                  ##              It is part of the source code for the original release
062514,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
062515,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
062516,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
062517,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
062518,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
062519,000011:                                                                                                  ##              that the code format has been changed to conform to the
062520,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
062521,000013:                                                                                                  ##              original YUL assembler.
062522,000014:                                                                                                  ## Reference:   pp. 1436-1453
062523,000015:                                                                                                  ## Assembler:   yaYUL
062524,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
062525,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
062526,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
062527,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
062528,000020:                                                                                                  ##              2017-01-03 RRB  Updated for Luminary 69.
062529,000021:                                                                                                  ##              2017-01-21 HG   Fix operand ROT-TOUV -> ROT45DEG
062530,000022:                                                                                                  ##                                          +X0RULGE -> +XORULGE
062531,000023:                                                                                                  ##                              Add missing declaration .707 DEC .70711
062532,000024:                                                                                                  ##              2017-01-23 HG   Add mising statement CA POSMAX
062533,000025:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
062534,000026:                                                                                                  ##                              and fixed errors found.
062535,000027:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
062536,000028:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
062537,000029:                                                                                                  ##              2017-08-29 MAS  Fixed a comment-text error found while transcribing
062538,000030:                                                                                                  ##                              Zerlina 56.
062539,000031: 

Page 1436

062541,000033: 17,2043                                           BANK     17                                    
062542,000034: 17,2000                                           SETLOC   DAPS2                                 
062543,000035: 17,2000                                           BANK                                           
062544,000036: 
062545,000037: 17,2043  E6,1633                                  EBANK=   CDUXD                                 
062546,000038: 
062547,000039: 17,2043                                           COUNT*   $$/DAPQR                              
062548,000040: 
062549,000041: 17,2043           34737        CALLQERR           CA       BIT13                                 #  CALCULATE Q,R ERRORS UNLESS THESE AXES
062550,000042: 17,2044           00006                           EXTEND                                         #  ARE IN MANUAL RATE COMMAND.
062551,000043: 17,2045           02031                           RAND     CHAN31                                
062552,000044: 17,2046           10000                           CCS      A                                     
062553,000045: 17,2047           12054                           TCF      +5                                    #  IN AUTO COMPUTE Q,R ERRORS
062554,000046: 17,2050           40111                           CS       DAPBOOLS                              #  IN MANUAL RATE COMMAND?
062555,000047: 17,2051           74740                           MASK     OURRCBIT                              
062556,000048: 17,2052           00006                           EXTEND                                         
062557,000049: 17,2053           12055                           BZF      Q,RORGTS                              #  IF SO BYPASS CALCULATION OF ERRORS.
062558,000050: 17,2054           02563                           TC       QERRCALC                              
062559,000051: 
062560,000052: 17,2055           11627        Q,RORGTS           CCS      COTROLER                              #  CHOOSE CONTROL SYSTEM FOR THIS DAP PASS:
062561,000053: 17,2056           12544                           TCF      GOTOGTS                               #    GTS (ALTERNATES WITH RCS WHEN DOCKED)
062562,000054: 17,2057           12531                           TCF      TRYGTS                                #    GTS IF ALLOWED, OTHERWISE RCS
062563,000055: 17,2060           34755        RCS                CAF      ZERO                                  #    RCS (TRYGTS MAY BRANCH TO HERE)
062564,000056: 17,2061           55627                           TS       COTROLER                              
062565,000057: 
062566,000058: 17,2062           53435                           DXCH     EDOTQ                                 
062567,000059: 17,2063           03100                           TC       ROT45DEG                              
062568,000060: 17,2064           53425                           DXCH     OMEGAU                                
062569,000061: 
062570,000062:                                                                                                  #  X - TRANSLATION:
062571,000063: 
062572,000064:                                                                                                  #  INPUT:        BITS 7,8 OF CH31 (TRANSLATION CONTROLLER)
062573,000065:                                                                                                  #                ULLAGER
062574,000066:                                                                                                  #                APSFLAG, DRIFTBIT
062575,000067:                                                                                                  #                ACC40R2X, ACRBTRAN
062576,000068: 
062577,000069:                                                                                                  #  OUTPUT:       NEXTU, NEXTV    CODES OF TRANSLATION FOR AFTER ROTATION
062578,000070:                                                                                                  #                SENSETYP        TELL ROTATION DIRECTION AND DESIRE
062579,000071: 
062580,000072:                                                                                                  #  X-TRANS POLICIES ARE EITHER 4 JETS OR A DIAGONAL PAIR.  IN 2-JET TRANSLATION THE SYSTEM IS SPECIFIED.  A FAILURE
062581,000073:                                                                                                  #  WILL OVERRIDE THIS SPECIFICATION.  AN ALARM RESULTS WHEN NO POLICY IS AVAILABLE BECAUSE OF FAILURES.
062582,000074: 
062583,000075: 17,2065           34745        SENSEGET           CA       BIT7                                  #  INPUT BITS OVERRIDE THE INTERNAL BITS
062584,000076: 17,2066           00006                           EXTEND                                         #  SENSETYP WILL NOT OPPOSE ANYTRANS
062585,000077: 17,2067           02031                           RAND     CHAN31                                
062586,000078: 17,2070           00006                           EXTEND                                         
062587,000079: 17,2071           12117                           BZF      +XORULGE                              

Page 1437

062589,000081: 17,2072           34744                           CA       BIT8                                  
062590,000082: 17,2073           00006                           EXTEND                                         
062591,000083: 17,2074           02031                           RAND     CHAN31                                
062592,000084: 17,2075           00006                           EXTEND                                         
062593,000085: 17,2076           12120                           BZF      -XTRANS                               
062594,000086: 
062595,000087: 17,2077           34746                           CA       ULLAGER                               
062596,000088: 17,2100           70111                           MASK     DAPBOOLS                              
062597,000089: 17,2101           10000                           CCS      A                                     
062598,000090: 17,2102           12117                           TCF      +XORULGE                              
062599,000091: 
062600,000092: 17,2103           55471                           TS       NEXTU                                 #  STORE NULL TRANSLATION POLICIES
062601,000093: 17,2104           55472                           TS       NEXTV                                 
062602,000094: 17,2105           40111                           CS       DAPBOOLS                              #  BURNING OR DRIFTING?
062603,000095: 17,2106           74744                           MASK     DRIFTBIT                              
062604,000096: 17,2107           00006                           EXTEND                                         
062605,000097: 17,2110           12115                           BZF      TSENSE                                
062606,000098: 17,2111           30106                           CA       FLGWRD10                              #  DPS (INCLUDING DOCKED) OR APS?
062607,000099: 17,2112           74737                           MASK     APSFLBIT                              
062608,000100: 17,2113           10000                           CCS      A                                     
062609,000101: 17,2114           34752                           CAF      TWO                                   #  FAVOR +X JETS DURING AN APS BURN.
062610,000102: 17,2115           55477        TSENSE             TS       SENSETYP                              
062611,000103: 17,2116           12151                           TCF      QRCONTRL                              
062612,000104: 
062613,000105: 17,2117           34753        +XORULGE           CAF      ONE                                   
062614,000106: 17,2120           64751        -XTRANS            AD       FOUR                                  
062615,000107: 17,2121           55742                           TS       ROTINDEX                              
062616,000108: 17,2122           67744                           AD       NEG3                                  
062617,000109: 17,2123           55477                           TS       SENSETYP                              #  FAVOR APPROPRIATE JETS DURING TRANS.
062618,000110: 17,2124           30111                           CA       DAPBOOLS                              
062619,000111: 17,2125           74741                           MASK     ACC4OR2X                              
062620,000112: 17,2126           10000                           CCS      A                                     
062621,000113: 17,2127           12256                           TCF      TRANS4                                
062622,000114: 
062623,000115: 17,2130           30111                           CA       DAPBOOLS                              
062624,000116: 17,2131           74742                           MASK     AORBTRAN                              
062625,000117: 17,2132           10000                           CCS      A                                     
062626,000118: 17,2133           34753                           CA       ONE                                   #  THREE FOR B
062627,000119: 17,2134           64752                           AD       TWO                                   #  TWO FOR A SYSTEM 2 JET X TRANS
062628,000120: 17,2135           55741        TSNUMBRT           TS       NUMBERT                               
062629,000121: 
062630,000122: 17,2136           03130                           TC       SELCTSUB                              
062631,000123: 
062632,000124: 17,2137           11737                           CCS      POLYTEMP                              
062633,000125: 17,2140           12143                           TCF      +3                                    
062634,000126: 17,2141           05567                           TC       ALARM                                 
062635,000127: 17,2142           02002                           OCT      02002                                 
062636,000128: 17,2143           35765                           CA       00314OCT                              
062637,000129: 17,2144           71737                           MASK     POLYTEMP                              
062638,000130: 17,2145           55471        TSNEXTS            TS       NEXTU                                 

Page 1438

062640,000132: 17,2146           45765                           CS       00314OCT                              
062641,000133: 17,2147           71737                           MASK     POLYTEMP                              
062642,000134: 17,2150           55472                           TS       NEXTV                                 
062643,000135: 
062644,000136:                                                                                                  #  Q,R-AXES RCS CONTROL MODE SELECTION
062645,000137:                                                                                                  #        SWITCHES        INDICATION WHEN SET
062646,000138:                                                                                                  #        BIT13/CHAN31    AUTO, GO TO ATTSTEER
062647,000139:                                                                                                  #        PULSES          MINIMUM IMPULSE MODE
062648,000140:                                                                                                  #        (OTHERWISE)     RATE COMMAND/ATTITUDE HOLD MODE
062649,000141: 
062650,000142: 17,2151           34737        QRCONTRL           CA       BIT13                                 #  CHECK MODE SELECT SWITCH.
062651,000143: 17,2152           00006                           EXTEND                                         
062652,000144: 17,2153           02031                           RAND     CHAN31                                #  BITS INVERTED
062653,000145: 17,2154           10000                           CCS      A                                     
062654,000146: 17,2155           12616                           TCF      ATTSTEER                              
062655,000147: 17,2156           34735        CHKBIT10           CAF      PULSES                                #  PULSES = 1 FOR MIN IMP USE OF RHC
062656,000148: 17,2157           70111                           MASK     DAPBOOLS                              
062657,000149: 17,2160           00006                           EXTEND                                         
062658,000150: 17,2161           12260                           BZF      CHEKSTIK                              #  IN ATT-HOLD/RATE-COMMAND IF BIT10=0
062659,000151: 
062660,000152:                                                                                                  #  MINIMUM IMPULSE MODE
062661,000153: 
062662,000154: 17,2162           00004                           INHINT                                         
062663,000155: 17,2163           04674                           TC       IBNKCALL                              
062664,000156: 17,2164           40153                           CADR     ZATTEROR                              
062665,000157: 17,2165           34755                           CA       ZERO                                  
062666,000158: 17,2166           55446                           TS       QERROR                                
062667,000159: 17,2167           55450                           TS       RERROR                                #  FOR DISPLAYS
062668,000160: 17,2170           00003                           RELINT                                         
062669,000161: 
062670,000162: 17,2171           00006                           EXTEND                                         
062671,000163: 17,2172           00031                           READ     CHAN31                                
062672,000164: 17,2173           55735                           TS       TEMP31                                #  IS EQUAL TO DAPTEMP1
062673,000165: 17,2174           11457                           CCS      OLDQRMIN                              
062674,000166: 17,2175           12217                           TCF      CHECKIN                               
062675,000167: 
062676,000168: 17,2176           31735        FIREQR             CA       TEMP31                                
062677,000169: 17,2177           74753                           MASK     BIT1                                  
062678,000170: 17,2200           00006                           EXTEND                                         
062679,000171: 17,2201           12223                           BZF      +QMIN                                 
062680,000172: 
062681,000173: 17,2202           31735                           CA       TEMP31                                
062682,000174: 17,2203           74752                           MASK     BIT2                                  
062683,000175: 17,2204           00006                           EXTEND                                         
062684,000176: 17,2205           12227                           BZF      -QMIN                                 
062685,000177: 
062686,000178: 17,2206           31735                           CA       TEMP31                                
062687,000179: 17,2207           74747                           MASK     BIT5                                  

Page 1439

062689,000181: 17,2210           00006                           EXTEND                                         
062690,000182: 17,2211           12233                           BZF      +RMIN                                 
062691,000183: 
062692,000184: 17,2212           31735                           CA       TEMP31                                
062693,000185: 17,2213           74746                           MASK     BIT6                                  
062694,000186: 17,2214           00006                           EXTEND                                         
062695,000187: 17,2215           12235                           BZF      -RMIN                                 
062696,000188: 
062697,000189: 17,2216           13015                           TCF      XTRANS                                
062698,000190: 
062699,000191: 17,2217           41735        CHECKIN            CS       TEMP31                                
062700,000192: 17,2220           72255                           MASK     OCT63                                 
062701,000193: 17,2221           55457                           TS       OLDQRMIN                              
062702,000194: 17,2222           13015                           TCF      XTRANS                                
062703,000195: 
062704,000196: 17,2223           33041        +QMIN              CA       14MS                                  
062705,000197: 17,2224           55525                           TS       TJU                                   
062706,000198: 17,2225           43041                           CS       14MS                                  
062707,000199: 17,2226           12237                           TCF      MINQR                                 
062708,000200: 17,2227           43041        -QMIN              CS       14MS                                  
062709,000201: 17,2230           55525                           TS       TJU                                   
062710,000202: 17,2231           33041                           CA       14MS                                  
062711,000203: 17,2232           12237                           TCF      MINQR                                 
062712,000204: 17,2233           33041        +RMIN              CA       14MS                                  
062713,000205: 17,2234           12236                           TCF      +2                                    
062714,000206: 17,2235           43041        -RMIN              CS       14MS                                  
062715,000207: 17,2236           55525                           TS       TJU                                   
062716,000208: 17,2237           55526        MINQR              TS       TJV                                   
062717,000209: 17,2240           32254                           CA       MINADR                                
062718,000210: 17,2241           55475                           TS       RETJADR                               
062719,000211: 17,2242           34753                           CA       ONE                                   
062720,000212: 17,2243           55457                           TS       OLDQRMIN                              
062721,000213: 17,2244           55476        MINRTN             TS       AXISCTR                               
062722,000214: 17,2245           30111                           CA       DAPBOOLS                              
062723,000215: 17,2246           74742                           MASK     AORBTRAN                              
062724,000216: 17,2247           10000                           CCS      A                                     
062725,000217: 17,2250           34753                           CA       ONE                                   
062726,000218: 17,2251           64752                           AD       TWO                                   
062727,000219: 17,2252           55741                           TS       NUMBERT                               
062728,000220: 17,2253           12661                           TCF      AFTERTJ                               
062729,000221: 
062730,000222: 17,2254           02244        MINADR             GENADR   MINRTN                                
062731,000223: 17,2255           00063        OCT63              OCT      63                                    
062732,000224: 17,2256  17,3041               14MS               =        +TJMINT6                              
062733,000225: 
062734,000226: 17,2256           34751        TRANS4             CA       FOUR                                  
062735,000227: 17,2257           12135                           TCF      TSNUMBRT                              
062736,000228: 
062737,000229:                                                                                                  #  RATE COMMAND MODE:

Page 1440

062739,000231:                                                                                                  #  DESCRIPTION (SAME AS P-AXIS)
062740,000232: 
062741,000233: 17,2260           55631        CHEKSTIK           TS       INGTS                                 #  NOT IN GTS WHEN IN ATT HOLD
062742,000234: 17,2261           44753                           CS       ONE                                   #  1/ACCS WILL DO THE NULLING DRIVES
062743,000235: 17,2262           55627                           TS       COTROLER                              #  COME BACK TO RCS NEXT TIME
062744,000236: 17,2263           34735                           CA       BIT15                                 
062745,000237: 17,2264           71441                           MASK     CH31TEMP                              
062746,000238: 17,2265           00006                           EXTEND                                         
062747,000239: 17,2266           12305                           BZF      RHCACTIV                              #  BRANCH IF OUT OF DETENT.
062748,000240: 17,2267           34740                           CA       OURRCBIT                              #  ***********
062749,000241: 17,2270           70111                           MASK     DAPBOOLS                              #  *IN DETENT*   CHECK FOR MANUAL CONTROL
062750,000242: 17,2271           00006                           EXTEND                                         #  ***********   LAST TIME.
062751,000243: 17,2272           12616                           BZF      STILLRCS                              
062752,000244: 17,2273           44743                           CS       BIT9                                  
062753,000245: 17,2274           71273                           MASK     RCSFLAGS                              
062754,000246: 17,2275           55273                           TS       RCSFLAGS                              #  BIT 9 IS 0.
062755,000247: 17,2276           12302                           TCF      DAMPING                               
062756,000248: 17,2277           00050        40CYCL             OCT      50                                    
062757,000249: 17,2300           00001        1/10S              OCT      1                                     
062758,000250: 17,2301           00056        LINRAT             DEC      46         B-14                       
062759,000251: 
062760,000252:                                                                                                  #  ================================
062761,000253: 
062762,000254: 17,2302           34755        DAMPING            CA       ZERO                                  
062763,000255: 17,2303           55460                           TS       SAVEHAND                              
062764,000256: 17,2304           55461                           TS       SAVEHAND   +1                         
062765,000257: 17,2305           11460        RHCACTIV           CCS      SAVEHAND                              #  *******************
062766,000258: 17,2306           12311                           TCF      +3                                    #  Q,R MANUAL CONTROL    WC = A*(B+|D|)*D
062767,000259: 17,2307           12311                           TCF      +2                                    #  *******************
062768,000260: 17,2310           12311                           TCF      +1                                    
062769,000261: 17,2311           60000                           DOUBLE                                         #  WHERE
062770,000262: 17,2312           60000                           DOUBLE                                         
062771,000263: 17,2313           62301                           AD       LINRAT                                #        WC  = COMMANDED ROTATIONAL RATE
062772,000264: 17,2314           00006                           EXTEND                                         #        A   = QUADRATIC SENSITIVITY FACTOR
062773,000265: 17,2315           71460                           MP       SAVEHAND                              #        B   = LINEAR/QUADRATIC SENSITIVITY
062774,000266: 17,2316           30001                           CA       L                                     #        |D| = ABS. VALUE OF DEFLECTION
062775,000267: 17,2317           00006                           EXTEND                                         #        D   = HAND CONTROLLER DEFLECTION
062776,000268: 17,2320           71442                           MP       STIKSENS                              
062777,000269: 17,2321           57453                           XCH      QLAST                                 #  COMMAND Q RATE     SCALED 45 DEG/SEC
062778,000270: 17,2322           40000                           COM                                            
062779,000271: 17,2323           61453                           AD       QLAST                                 
062780,000272: 17,2324           55737                           TS       DAPTEMP3                              
062781,000273: 17,2325           11461                           CCS      SAVEHAND   +1                         
062782,000274: 17,2326           12331                           TCF      +3                                    
062783,000275: 17,2327           12331                           TCF      +2                                    
062784,000276: 17,2330           12331                           TCF      +1                                    
062785,000277: 17,2331           60000                           DOUBLE                                         
062786,000278: 17,2332           60000                           DOUBLE                                         
062787,000279: 17,2333           62301                           AD       LINRAT                                
062788,000280: 17,2334           00006                           EXTEND                                         
062789,000281: 17,2335           71461                           MP       SAVEHAND   +1                         
062790,000282: 17,2336           30001                           CA       L                                     

Page 1441

062792,000284: 17,2337           00006                           EXTEND                                         
062793,000285: 17,2340           71442                           MP       STIKSENS                              
062794,000286: 17,2341           57454                           XCH      RLAST                                 
062795,000287: 17,2342           40000                           COM                                            
062796,000288: 17,2343           61454                           AD       RLAST                                 
062797,000289: 17,2344           55740                           TS       DAPTEMP4                              
062798,000290: 17,2345           41453                           CS       QLAST                                 #  INTERVAL.
062799,000291: 17,2346           61420                           AD       OMEGAQ                                
062800,000292: 17,2347           55434                           TS       QRATEDIF                              
062801,000293: 17,2350           41454                           CS       RLAST                                 
062802,000294: 17,2351           61421                           AD       OMEGAR                                
062803,000295: 17,2352           55435                           TS       RRATEDIF                              
062804,000296: 17,2353           53435        ENTERQR            DXCH     QRATEDIF                              #  TRANSFORM RATES FROM Q,R TO U,V AXES
062805,000297: 17,2354           03100                           TC       ROT45DEG                              
062806,000298: 17,2355           53425                           DXCH     URATEDIF                              
062807,000299: 17,2356           11737                           CCS      DAPTEMP3                              #  CHECK IF Q COMMAND CHANGE EXCEEDS
062808,000300: 17,2357           02362                           TC       +3                                    #  BREAKOUT LEVEL.  IF NOT, CHECK R.
062809,000301: 17,2360           02362                           TC       +2                                    
062810,000302: 17,2361           02362                           TC       +1                                    
062811,000303: 17,2362           61474                           AD       -RATEDB                               
062812,000304: 17,2363           00006                           EXTEND                                         
062813,000305: 17,2364           62366                           BZMF     +2                                    
062814,000306: 17,2365           12404                           TCF      ENTERUV    -2                         #  BREAKOUT LEVEL EXCEEDED.  DIRECT RATE.
062815,000307: 17,2366           11740                           CCS      DAPTEMP4                              #  R COMMAND BREAKOUT CHECK.
062816,000308: 17,2367           02372                           TC       +3                                    
062817,000309: 17,2370           02372                           TC       +2                                    
062818,000310: 17,2371           02372                           TC       +1                                    
062819,000311: 17,2372           61474                           AD       -RATEDB                               
062820,000312: 17,2373           00006                           EXTEND                                         
062821,000313: 17,2374           62376                           BZMF     +2                                    
062822,000314: 17,2375           12404                           TCF      ENTERUV    -2                         #  BREAKOUT LEVEL EXCEEDED.  DIRECT RATE.
062823,000315: 17,2376           31273                           CA       RCSFLAGS                              #  BREAKOUT LEVEL NOT EXCEEDED.  CHECK FOR
062824,000316: 17,2377           74741                           MASK     QRBIT                                 #  DIRECT RATE CONTROL LAST TIME.
062825,000317: 17,2400           00006                           EXTEND                                         
062826,000318: 17,2401           12403                           BZF      +2                                    
062827,000319: 17,2402           12406                           TCF      ENTERUV                               #  CONTINUE DIRECT RATE CONTROL.
062828,000320: 17,2403           12616                           TCF      STILLRCS                              #  PSEUDO-AUTO CONTROL.
062829,000321: 17,2404           32277                           CA       40CYCL                                
062830,000322: 17,2405           55455                           TS       TCQR                                  
062831,000323: 17,2406           00004        ENTERUV            INHINT                                         #  DIRECT RATE CONTROL.
062832,000324: 17,2407           04674                           TC       IBNKCALL                              
062833,000325: 17,2410           40153                           FCADR    ZATTEROR                              
062834,000326: 17,2411           00003                           RELINT                                         
062835,000327: 17,2412           34755                           CA       ZERO                                  
062836,000328: 17,2413           55446                           TS       DYERROR                               
062837,000329: 17,2414           55447                           TS       DYERROR    +1                         
062838,000330: 17,2415           55450                           TS       DZERROR                               
062839,000331: 17,2416           55451                           TS       DZERROR    +1                         
062840,000332: 17,2417           11424                           CCS      URATEDIF                              
062841,000333: 17,2420           12423                           TCF      +3                                    

Page 1442

062843,000335: 17,2421           12423                           TCF      +2                                    
062844,000336: 17,2422           12423                           TCF      +1                                    
062845,000337: 17,2423           61474                           AD       TARGETDB                              #  IF TARGET DB IS EXCEEDED, CONTINUE
062846,000338: 17,2424           00006                           EXTEND                                         #  DIRECT RATE CONTROL.
062847,000339: 17,2425           62441                           BZMF     VDB                                   
062848,000340: 17,2426           11425                           CCS      VRATEDIF                              
062849,000341: 17,2427           12432                           TCF      +3                                    
062850,000342: 17,2430           12432                           TCF      +2                                    
062851,000343: 17,2431           12432                           TCF      +1                                    
062852,000344: 17,2432           61474                           AD       TARGETDB                              
062853,000345: 17,2433           00006                           EXTEND                                         
062854,000346: 17,2434           62436                           BZMF     +2                                    
062855,000347: 17,2435           12452                           TCF      QRTIME                                
062856,000348: 17,2436           34755                           CA       ZERO                                  
062857,000349: 17,2437           55425                           TS       VRATEDIF                              
062858,000350: 17,2440           12452                           TCF      QRTIME                                
062859,000351: 17,2441           11425        VDB                CCS      VRATEDIF                              
062860,000352: 17,2442           02445                           TC       +3                                    
062861,000353: 17,2443           02445                           TC       +2                                    
062862,000354: 17,2444           02445                           TC       +1                                    
062863,000355: 17,2445           61474                           AD       TARGETDB                              #  IF TARGET DB IS EXCEEDED, CONTINUE
062864,000356: 17,2446           00006                           EXTEND                                         #  DIRECT RATE CONTROL.  IF NOT, FIRE AND
062865,000357: 17,2447           62461                           BZMF     TOPSEUDO                              #  SWITCH TO PSEUDO-AUTO CONTROL ON NEXT
062866,000358: 17,2450           34755                           CA       ZERO                                  #  PASS.
062867,000359: 17,2451           55424                           TS       URATEDIF                              
062868,000360: 17,2452           31455        QRTIME             CA       TCQR                                  #  DIRECT RATE TIME CHECK.
062869,000361: 17,2453           00006                           EXTEND                                         
062870,000362: 17,2454           62461                           BZMF     +5                                    #  BRANCH IF TIME EXCEEDS 4 SEC.
062871,000363: 17,2455           41273                           CS       RCSFLAGS                              
062872,000364: 17,2456           74741                           MASK     QRBIT                                 
062873,000365: 17,2457           27273                           ADS      RCSFLAGS                              #  BIT 11 IS 1.
062874,000366: 17,2460           02464                           TC       +4                                    
062875,000367: 17,2461           44741        TOPSEUDO           CS       QRBIT                                 
062876,000368: 17,2462           71273                           MASK     RCSFLAGS                              
062877,000369: 17,2463           55273                           TS       RCSFLAGS                              #  BIT 11 IS 0.
062878,000370: 17,2464           32530                           CA       HANDADR                               
062879,000371: 17,2465           55475                           TS       RETJADR                               
062880,000372: 17,2466           34753                           CA       ONE                                   
062881,000373: 17,2467           55476        BACKHAND           TS       AXISCTR                               
062882,000374: 
062883,000375: 17,2470           34751                           CA       FOUR                                  
062884,000376: 17,2471           55741                           TS       NUMBERT                               
062885,000377: 
062886,000378: 17,2472           51476                           INDEX    AXISCTR                               
062887,000379: 17,2473           51535                           INDEX    SKIPU                                 
062888,000380: 17,2474           12475                           TCF      +1                                    
062889,000381: 17,2475           34751                           CA       FOUR                                  
062890,000382: 17,2476           51476                           INDEX    AXISCTR                               
062891,000383: 17,2477           55535                           TS       SKIPU                                 
062892,000384: 17,2500           12737                           TCF      LOOPER                                

Page 1443

062894,000386: 17,2501           51476                           INDEX    AXISCTR                               
062895,000387: 17,2502           11424                           CCS      URATEDIF                              #        INDEX   AXIS    QUANITY
062896,000388: 17,2503           34755                           CA       ZERO                                  #        0       -U      1/JETACC-AOSU
062897,000389: 17,2504           12506                           TCF      +2                                    #        1       +U      1/JETACC+AOSU
062898,000390: 17,2505           34753                           CA       ONE                                   #        16      -V      1/JETACC-AOSV
062899,000391: 17,2506           51476                           INDEX    AXISCTR                               #        17      +V      1/JETACC+AOSV
062900,000392: 17,2507           63657                           AD       AXISDIFF                              #  JETACC = 2 JET ACCELERATION (1 FOR FAIL)
062901,000393: 
062902,000394: 17,2510           50000                           INDEX    A                                     
062903,000395: 17,2511           41571                           CS       1/ANET2    +1                         
062904,000396: 17,2512           00006                           EXTEND                                         
062905,000397: 17,2513           51476                           INDEX    AXISCTR                               #  URATEDIF IS SCALED AT PI/4 RAD/SEC
062906,000398: 17,2514           71424                           MP       URATEDIF                              #   JET TIME IN A      SCALED 32 SEC
062907,000399: 17,2515           54002                           TS       Q                                     
062908,000400: 17,2516           20001                           DAS      A                                     
062909,000401: 17,2517           60002                           AD       Q                                     
062910,000402: 17,2520           54000                           TS       A                                     #   OVERFLOW SKIP
062911,000403: 17,2521           12523                           TCF      +2                                    
062912,000404: 17,2522           30002                           CA       Q                                     #  RIGHT SIGN AND BIGGER THAN 150MS
062913,000405: 17,2523           51476        SETTIME            INDEX    AXISCTR                               
062914,000406: 17,2524           55525                           TS       TJU                                   #  SCALED AT 10.67 WHICH IS CLOSE TO 10.24
062915,000407: 17,2525           12661                           TCF      AFTERTJ                               
062916,000408: 
062917,000409: 17,2526           34755        ZEROTJ             CA       ZERO                                  
062918,000410: 17,2527           12523                           TCF      SETTIME                               
062919,000411: 
062920,000412: 17,2530           02467        HANDADR            GENADR   BACKHAND                              
062921,000413: 
062922,000414:                                                                                                  #  GTS WILL BE TRIED IF
062923,000415:                                                                                                  #        1. USEQRJTS= 0,
062924,000416:                                                                                                  #        2. ALLOWGTS POS,
062925,000417:                                                                                                  #        3. JETS ARE OFF (Q,R-AXES)
062926,000418: 
062927,000419: 17,2531           34736        TRYGTS             CAF      USEQRJTS                              #  IS JET USE MANDATORY.         (AS LONG AS
062928,000420: 17,2532           70111                           MASK     DAPBOOLS                              #  USEQRJTS BIT IS NOT BIT 15, CCS IS SAFE)
062929,000421: 17,2533           10000                           CCS      A                                     
062930,000422: 17,2534           12060                           TCF      RCS                                   
062931,000423: 17,2535           11501                           CCS      ALLOWGTS                              #  NO.  DOES AOSTASK OK CONTROL FOR GTS?
062932,000424: 17,2536           12540                           TCF      +2                                    
062933,000425: 17,2537           12060                           TCF      RCS                                   
062934,000426: 17,2540           00006                           EXTEND                                         
062935,000427: 17,2541           00005                           READ     CHAN5                                 
062936,000428: 17,2542           10000                           CCS      A                                     
062937,000429: 17,2543           12547                           TCF      CHKINGTS                              
062938,000430: 17,2544           00006        GOTOGTS            EXTEND                                         
062939,000431: 17,2545           32562                           DCA      GTSCADR                               
062940,000432: 17,2546           52006                           DTCB                                           
062941,000433: 
062942,000434: 17,2547           11631        CHKINGTS           CCS      INGTS                                 #  WAS THE TRIM GIMBAL CONTROLLING
062943,000435: 17,2550           12552                           TCF      +2                                    #        YES.  SET UP A DAMPED NULLING DRIVE.
062944,000436: 17,2551           12060                           TCF      RCS                                   #        NO.  NULLING WAS SET UP BEFORE.  DO RCS

Page 1444

062946,000438: 17,2552           00004                           INHINT                                         
062947,000439: 17,2553           04674                           TC       IBNKCALL                              
062948,000440: 17,2554           43450                           CADR     TIMEGMBL                              
062949,000441: 17,2555           00003                           RELINT                                         
062950,000442: 17,2556           34755                           CAF      ZERO                                  
062951,000443: 17,2557           55631                           TS       INGTS                                 
062952,000444: 17,2560           12060                           TCF      RCS                                   
062953,000445: 
062954,000446: 17,2561  E6,1633                                  EBANK=   CDUXD                                 
062955,000447: 17,2561           03263 42106  GTSCADR            2CADR    GTS                                   
062956,000448: 

Page 1445

062958,000450:                                                                                                  #  SUBROUTINE TO COMPUTE Q,R-AXES ATTITUDE ERRORS FOR USE IN THE RCS AND GTS CONTROL LAWS AND THE DISPLAYS.
062959,000451: 
062960,000452: 17,2563           30033        QERRCALC           CAE      CDUY                                  #  Q-ERROR CALCULATION
062961,000453: 17,2564           00006                           EXTEND                                         
062962,000454: 17,2565           21634                           MSU      CDUYD                                 #  CDU ANGLE - ANGLE DESIRED (Y-AXIS)
062963,000455: 17,2566           55735                           TS       DAPTEMP1                              #  SAVE FOR RERRCALC
062964,000456: 17,2567           00006                           EXTEND                                         
062965,000457: 17,2570           71413                           MP       M21                                   #  (CDUY-CDUYD)*M21 SCALED AT PI RADIANS
062966,000458: 17,2571           55750                           TS       E                                     
062967,000459: 17,2572           30034                           CAE      CDUZ                                  #  SECOND TERM CALCULATION:
062968,000460: 17,2573           00006                           EXTEND                                         
062969,000461: 17,2574           21635                           MSU      CDUZD                                 #  CDU ANGLE -ANGLE DESIRED (Z-AXIS)
062970,000462: 17,2575           55736                           TS       DAPTEMP2                              #  SAVE FOR RERRCALC
062971,000463: 17,2576           00006                           EXTEND                                         
062972,000464: 17,2577           71415                           MP       M22                                   #  (CDUZ-CDUZD)*M22 SCALED AT PI RADIANS
062973,000465: 17,2600           61300                           AD       DELQEROR                              #  KALCMANU INERFACE ERROR
062974,000466: 17,2601           61750                           AD       E                                     
062975,000467: 17,2602           57446                           XCH      QERROR                                #  SAVE Q-ERROR FOR EIGHT-BALL DISPLAY.
062976,000468: 
062977,000469: 17,2603           31735        RERRCALC           CAE      DAPTEMP1                              #  R-ERROR CALCULATION:
062978,000470: 17,2604           00006                           EXTEND                                         #  CDU ANGLE -ANGLE DESIRED (Y-AXIS)
062979,000471: 17,2605           71414                           MP       M31                                   #  (CDUY-CDUYD)*M31 SCALED AT PI RADIANS
062980,000472: 17,2606           55750                           TS       E                                     
062981,000473: 17,2607           31736                           CAE      DAPTEMP2                              #  SECOND TERM CALCULATION:
062982,000474: 17,2610           00006                           EXTEND                                         #  CDU ANGLE -ANGLE DESIRED (Z-AXIS)
062983,000475: 17,2611           71416                           MP       M32                                   #  (CDUZ-CDUZD)*M32 SCALED AT PI RADIANS
062984,000476: 17,2612           61301                           AD       DELREROR                              #  KALCMANU INERFACE ERROR
062985,000477: 17,2613           61750                           AD       E                                     
062986,000478: 17,2614           57450                           XCH      RERROR                                #  SAVE R-ERROR FOR EIGHT-BALL DISPLAY.
062987,000479: 17,2615           00002                           TC       Q                                     
062988,000480: 

Page 1446

062990,000482:                                                                                                  #  "ATTSTEER" IS THE ENTRY POINT FOR Q,R-AXES (U,V-AXES) ATTITUDE CONTROL USING THE REACTION CONTROL SYSTEM
062991,000483: 
062992,000484: 17,2616  17,2616               ATTSTEER           EQUALS   STILLRCS                              #  "STILLRCS" IS THE RCS EXIT FROM TRYGTS.
062993,000485: 
062994,000486: 17,2616           31450        STILLRCS           CA       RERROR                                
062995,000487: 17,2617           22000                           LXCH     A                                     
062996,000488: 17,2620           31446                           CA       QERROR                                
062997,000489: 17,2621           03100                           TC       ROT45DEG                              
062998,000490: 17,2622           53750                           DXCH     UERROR                                
062999,000491: 
063000,000492:                                                                                                  #  PREPARES CALL TO TJETLAW (OR SPSRCS(DOCKED))
063001,000493:                                                                                                  #  PREFORMS SKIP LOGIC ON U OR Y AXIS IF NEEDED.
063002,000494: 
063003,000495: 17,2623           33045        TJLAW              CA       TJLAWADR                              
063004,000496: 17,2624           55475                           TS       RETJADR                               
063005,000497: 17,2625           34753                           CA       ONE                                   
063006,000498: 17,2626           55476                           TS       AXISCTR                               
063007,000499: 17,2627           51476                           INDEX    AXISCTR                               
063008,000500: 17,2630           51535                           INDEX    SKIPU                                 
063009,000501: 17,2631           12632                           TCF      +1                                    
063010,000502: 17,2632           34751                           CA       FOUR                                  
063011,000503: 17,2633           51476                           INDEX    AXISCTR                               
063012,000504: 17,2634           55535                           TS       SKIPU                                 
063013,000505: 17,2635           12737                           TCF      LOOPER                                
063014,000506: 17,2636           51476                           INDEX    AXISCTR                               
063015,000507: 17,2637           31747                           CA       UERROR                                
063016,000508: 17,2640           55750                           TS       E                                     
063017,000509: 17,2641           51476                           INDEX    AXISCTR                               
063018,000510: 17,2642           31424                           CA       OMEGAU                                
063019,000511: 17,2643           55425                           TS       EDOT                                  
063020,000512: 17,2644           30111                           CA       DAPBOOLS                              
063021,000513: 17,2645           74737                           MASK     CSMDOCKD                              
063022,000514: 17,2646           10000                           CCS      A                                     
063023,000515: 17,2647           12652                           TCF      +3                                    
063024,000516: 17,2650           03207                           TC       TJETLAW                               
063025,000517: 17,2651           12661                           TCF      AFTERTJ                               
063026,000518: 17,2652           40111                 +3        CS       DAPBOOLS                              #  DOCKED.  IF GIMBAL USABLE DO GTS CONTROL
063027,000519: 17,2653           74736                           MASK     USEQRJTS                              #   ON THE NEXT PASS.
063028,000520: 17,2654           10000                           CCS      A                                     #  USEQRJTS BIT MUST NOT BE BIT 15.
063029,000521: 17,2655           55627                           TS       COTROLER                              #  GIMBAL USABLE.  STORE POSITIVE VALUE.
063030,000522: 17,2656           03700                           TC       SPSRCS                                #  DETERMINE RCS CONTROL.
063031,000523: 17,2657           34751                           CAF      FOUR                                  #  ALWAYS CALL FOR 2-JET CONTROL ABOUT U,V.
063032,000524: 17,2660           55741                           TS       NUMBERT                               #  FALL THROUGH TO JET SELECTION, ETC.
063033,000525: 
063034,000526:                                                                                                  #  Q,R-JET-SELECTION-LOGIC
063035,000527: 
063036,000528:                                                                                                  #  INPUT:        AXISCTR         0,1 FOR U,V
063037,000529:                                                                                                  #                SNUFFBIT        ZERO TJETU,V AND TRANS. ONLY IF SET IN A DPS BURN
063038,000530:                                                                                                  #                TJU,TJV         JET TIME SCALED 10.24 SEC.
063039,000531:                                                                                                  #                NUMBERT         INDICATES NUMBER OF JETS AND TYPE OF POLICY
063040,000532:                                                                                                  #                RETJADR         WHERE TO RETURN TO

Page 1447

063042,000534:                                                                                                  #  OUTPUT:       NO.U(V)JETS     RATE DERIVATION FEEDBACK
063043,000535:                                                                                                  #                CHANNEL 5
063044,000536:                                                                                                  #                SKIPU,SKIRV     FOR LESS THAN 150MS FIRING
063045,000537: 
063046,000538:                                                                                                  #  NOTES:        IN CASE OF FAILURE IN DESIRED ROTATION POLICY, "ALL" UNFAILED
063047,000539:                                                                                                  #                JETS OF THE DESIRED POLICY ARE SELECTED. SINCE THERE ARE ONLY
063048,000540:                                                                                                  #                TWO JETS, THIS MEANS THE OTHER ONE OR NONE. THE ALARM IS SENT
063049,000541:                                                                                                  #                IF NONE CAN BE FOUND.
063050,000542: 
063051,000543:                                                                                                  #                TIMES LESS THAN 14 MSEC ARE TAKEN TO CALL FOR A SINGLE-JET
063052,000544:                                                                                                  #                MINIMUM IMPULSE, WITH THE JET CHOSEN SEMI-RANDOMLY.
063053,000545: 
063054,000546: 17,2661           30101        AFTERTJ            CA       FLAGWRD5                              #  IF SNUFFBIT SET DURING A DPS BURN GO TO
063055,000547: 17,2662           74737                           MASK     SNUFFBIT                              #   XTRANS; THAT IS, INHIBIT CONTROL.
063056,000548: 17,2663           00006                           EXTEND                                         
063057,000549: 17,2664           12675                           BZF      DOROTAT                               
063058,000550: 17,2665           40106                           CS       FLGWRD10                              
063059,000551: 17,2666           74737                           MASK     APSFLBIT                              
063060,000552: 17,2667           00006                           EXTEND                                         
063061,000553: 17,2670           12675                           BZF      DOROTAT                               
063062,000554: 17,2671           30111                           CA       DAPBOOLS                              
063063,000555: 17,2672           74744                           MASK     DRIFTBIT                              
063064,000556: 17,2673           00006                           EXTEND                                         
063065,000557: 17,2674           13015                           BZF      XTRANS                                
063066,000558: 
063067,000559: 17,2675           34752        DOROTAT            CAF      TWO                                   
063068,000560: 17,2676           54001                           TS       L                                     
063069,000561: 17,2677           51476                           INDEX    AXISCTR                               
063070,000562: 17,2700           11525                           CCS      TJU                                   
063071,000563: 17,2701           12706                           TCF      +5                                    
063072,000564: 17,2702           12731                           TCF      NOROTAT                               
063073,000565: 17,2703           12705                           TCF      +2                                    
063074,000566: 17,2704           12731                           TCF      NOROTAT                               
063075,000567: 17,2705           22007                           ZL                                             
063076,000568: 17,2706           64753                           AD       ONE                                   
063077,000569: 17,2707           55735                           TS       ABSTJ                                 
063078,000570: 
063079,000571: 17,2710           31476                           CA       AXISCTR                               
063080,000572: 17,2711           60001                           AD       L                                     
063081,000573: 17,2712           55742                           TS       ROTINDEX                              #  0 1 2 3 = -U -V -+U +V
063082,000574: 
063083,000575: 17,2713           31735                           CA       ABSTJ                                 
063084,000576: 17,2714           63042                           AD       -150MS                                
063085,000577: 17,2715           00006                           EXTEND                                         
063086,000578: 17,2716           62742                           BZMF     DOSKIP                                
063087,000579: 
063088,000580: 17,2717           03130                           TC       SELCTSUB                              
063089,000581: 
063090,000582: 17,2720           51476                           INDEX    AXISCTR                               
063091,000583: 17,2721           33037                           CA       INDEXES                               

Page 1448

063093,000585: 17,2722           54001                           TS       L                                     
063094,000586: 
063095,000587: 17,2723           31737                           CA       POLYTEMP                              
063096,000588: 17,2724           00004                           INHINT                                         
063097,000589: 17,2725           50001                           INDEX    L                                     
063098,000590: 17,2726           05745                           TC       WRITEP                                
063099,000591: 
063100,000592: 17,2727           00003                           RELINT                                         
063101,000593: 17,2730           13003                           TCF      FEEDBACK                              
063102,000594: 
063103,000595: 17,2731           51476        NOROTAT            INDEX    AXISCTR                               
063104,000596: 17,2732           33037                           CA       INDEXES                               
063105,000597: 17,2733           00004                           INHINT                                         
063106,000598: 17,2734           50000                           INDEX    A                                     
063107,000599: 17,2735           05744                           TC       WRITEP     -1                         
063108,000600: 
063109,000601: 17,2736           00003                           RELINT                                         
063110,000602: 17,2737           11476        LOOPER             CCS      AXISCTR                               
063111,000603: 17,2740           01475                           TC       RETJADR                               
063112,000604: 17,2741           13173                           TCF      CLOSEOUT                              
063113,000605: 17,2742           41735        DOSKIP             CS       ABSTJ                                 
063114,000606: 17,2743           63041                           AD       +TJMINT6                              #  14MS
063115,000607: 17,2744           00006                           EXTEND                                         
063116,000608: 17,2745           62764                           BZMF     NOTMIN                                
063117,000609: 
063118,000610: 17,2746           27735                           ADS      ABSTJ                                 
063119,000611: 17,2747           51476                           INDEX    AXISCTR                               
063120,000612: 17,2750           11525                           CCS      TJU                                   
063121,000613: 17,2751           33041                           CA       +TJMINT6                              
063122,000614: 17,2752           12754                           TCF      +2                                    
063123,000615: 17,2753           43041                           CS       +TJMINT6                              
063124,000616: 17,2754           51476                           INDEX    AXISCTR                               
063125,000617: 17,2755           55525                           TS       TJU                                   
063126,000618: 
063127,000619: 17,2756           11477                           CCS      SENSETYP                              #  ENSURE MIN-IMPULSE NOT AGAINST TRANS
063128,000620: 17,2757           12763                           TCF      NOTMIN     -1                         
063129,000621: 17,2760           00006                           EXTEND                                         
063130,000622: 17,2761           00004                           READ     LOSCALAR                              
063131,000623: 17,2762           74753                           MASK     ONE                                   
063132,000624: 17,2763           55741                           TS       NUMBERT                               
063133,000625: 
063134,000626: 17,2764           03130        NOTMIN             TC       SELCTSUB                              
063135,000627: 
063136,000628: 17,2765           51476                           INDEX    AXISCTR                               
063137,000629: 17,2766           33037                           CA       INDEXES                               
063138,000630: 17,2767           00004                           INHINT                                         
063139,000631: 17,2770           55467                           TS       T6FURTHA   +1                         
063140,000632: 17,2771           31737                           CA       POLYTEMP                              
063141,000633: 17,2772           51467                           INDEX    T6FURTHA   +1                         
063142,000634: 17,2773           05745                           TC       WRITEP                                

Page 1449

063144,000636: 17,2774           31735                           CA       ABSTJ                                 
063145,000637: 17,2775           55466                           TS       T6FURTHA                              
063146,000638: 17,2776           03046                           TC       JTLST                                 #  IN QR BANK BY NOW
063147,000639: 
063148,000640: 17,2777           00003                           RELINT                                         
063149,000641: 
063150,000642: 17,3000           34755                           CA       ZERO                                  
063151,000643: 17,3001           51476                           INDEX    AXISCTR                               
063152,000644: 17,3002           55535                           TS       SKIPU                                 
063153,000645: 
063154,000646: 17,3003           46244        FEEDBACK           CS       THREE                                 
063155,000647: 17,3004           61741                           AD       NUMBERT                               
063156,000648: 17,3005           00006                           EXTEND                                         
063157,000649: 17,3006           63011                           BZMF     +3                                    
063158,000650: 
063159,000651: 17,3007           34752                           CA       TWO                                   
063160,000652: 17,3010           13012                           TCF      +2                                    
063161,000653: 17,3011           34753                           CA       ONE                                   
063162,000654: 17,3012           51476                           INDEX    AXISCTR                               
063163,000655: 17,3013           55522                           TS       NO.UJETS                              
063164,000656: 17,3014           12737                           TCF      LOOPER                                
063165,000657: 
063166,000658: 17,3015           34755        XTRANS             CA       ZERO                                  
063167,000659: 17,3016           55525                           TS       TJU                                   
063168,000660: 17,3017           55526                           TS       TJV                                   
063169,000661: 17,3020           34751                           CA       FOUR                                  
063170,000662: 17,3021           00004                           INHINT                                         
063171,000663: 17,3022           57535                           XCH      SKIPU                                 
063172,000664: 17,3023           00006                           EXTEND                                         
063173,000665: 17,3024           13026                           BZF      +2                                    
063174,000666: 17,3025           05750                           TC       WRITEU     -1                         
063175,000667: 17,3026           34751                           CA       FOUR                                  
063176,000668: 17,3027           57536                           XCH      SKIPV                                 
063177,000669: 17,3030           00003                           RELINT                                         
063178,000670: 
063179,000671: 17,3031           00006                           EXTEND                                         
063180,000672: 17,3032           13173                           BZF      CLOSEOUT                              
063181,000673: 17,3033           00004                           INHINT                                         
063182,000674: 17,3034           05761                           TC       WRITEV     -1                         
063183,000675: 17,3035           00003                           RELINT                                         
063184,000676: 
063185,000677: 17,3036           13173                           TCF      CLOSEOUT                              
063186,000678: 17,3037           00004        INDEXES            DEC      4          B-14                       
063187,000679: 17,3040           00015                           DEC      13         B-14                       
063188,000680: 17,3041           00026        +TJMINT6           DEC      22         B-14                       
063189,000681: 17,3042           77417        -150MS             DEC      -240       B-14                       
063190,000682: 17,3043           00600        BIT8,9             OCT      00600                                 
063191,000683: 17,3044           00266        SCLNORM            OCT      266                                   
063192,000684: 17,3045           02626        TJLAWADR           GENADR   TJLAW      +3                         #  RETURN ADDRESS FOR RCS ATTITUDE CONTROL
063193,000685: 

Page 1450

063195,000687:                                                                                                  #  THE JET LIST:
063196,000688:                                                                                                  #  THIS IS A WAITLIST FOR T6RUPTS.
063197,000689: 
063198,000690:                                                                                                  #  CALLED BY:
063199,000691:                                                                                                  #                CA      TJ              TIME WHEN NEXT JETS WILL BE WRITTEN
063200,000692:                                                                                                  #                TS      T6FURTHA
063201,000693:                                                                                                  #                CA      INDEX           AXIS TO BE WIRTTEN AT TJ (FROM NOW)
063202,000694:                                                                                                  #                TS      T6FURTHA +1
063203,000695:                                                                                                  #                TC      JTLST
063204,000696: 
063205,000697:                                                                                                  #  EXAMPLE - U-AXIS AUTOPILOT WILL WRITE ITS ROTATION CODE OF
063206,000698:                                                                                                  #  JETS INTO CHANNEL 5.  IF IT DESIRES TO TURN OFF THIS POLICY WITHIN
063207,000699:                                                                                                  #  150MS AND THEN FIRE NEXTU, A CALL TO JTLST IS MADE WITH T6FURTHA
063208,000700:                                                                                                  #  CONTAINING THE TIME TO TURN OFF THE POLICY, T6FURTHA +1 THE INDEX
063209,000701:                                                                                                  #  OF THE U-AXIS(4), AND NEXTU WILL CONTAIN THE "U-TRANS" POLICY OR ZERO.
063210,000702: 
063211,000703:                                                                                                  #  THE LIST IS EXACTLY 3 LONG.  (THIS LEADS TO SKIP LOGIC AND 150MS LIMIT)
063212,000704:                                                                                                  #  THE INPUT IS THE LAST MEMBER OF THE LIST
063213,000705: 
063214,000706:                                                                                                  #  RETURNS BY:
063215,000707:                                                                                                  #        +       TC      Q
063216,000708: 
063217,000709:                                                                                                  #  DEFINITIONS:  (OUTPUT)
063218,000710:                                                                                                  #        TIME6           TIME OF NEXT RUPT
063219,000711:                                                                                                  #        T6NEXT          DELTA TIME TO NEXT RUPT
063220,000712:                                                                                                  #        T6FURTHA        DELTA TIME FROM 2ND TO LAST RUPT
063221,000713:                                                                                                  #        NXT6ADR         AXIS INDEX       Q - P-AXIS
063222,000714:                                                                                                  #        T6NEXT +1       AXIS INDEX       4 - U-AXIS
063223,000715:                                                                                                  #        T6FURTHA +1     AXIS INDEX      13 - V-AXIS
063224,000716: 
063225,000717: 17,3046           41466        JTLST              CS       T6FURTHA                              
063226,000718: 17,3047           60031                           AD       TIME6                                 
063227,000719: 17,3050           00006                           EXTEND                                         
063228,000720: 17,3051           63063                           BZMF     MIDORLST                              #  TIME6 - T IS IN A
063229,000721: 
063230,000722: 17,3052           23463                           LXCH     NXT6ADR                               
063231,000723: 17,3053           53465                           DXCH     T6NEXT                                
063232,000724: 17,3054           53467                           DXCH     T6FURTHA                              
063233,000725: 17,3055           54031                           TS       TIME6                                 
063234,000726: 17,3056           23463                           LXCH     NXT6ADR                               
063235,000727: 
063236,000728: 17,3057           34735        TURNON             CA       BIT15                                 
063237,000729: 17,3060           00006                           EXTEND                                         
063238,000730: 17,3061           05013                           WOR      CHAN13                                
063239,000731: 17,3062           00002                           TC       Q                                     
063240,000732: 
063241,000733: 17,3063           61464        MIDORLST           AD       T6NEXT                                
063242,000734: 17,3064           00006                           EXTEND                                         
063243,000735: 17,3065           63074                           BZMF     LASTCHG                               #  TIME6 + T6NEXT - T IS IN A
063244,000736: 
063245,000737: 17,3066           23465                           LXCH     T6NEXT     +1                         

Page 1451

063247,000739: 17,3067           53467                           DXCH     T6FURTHA                              
063248,000740: 17,3070           00006                           EXTEND                                         
063249,000741: 17,3071           60031                           SU       TIME6                                 
063250,000742: 17,3072           53465                           DXCH     T6NEXT                                
063251,000743: 
063252,000744: 17,3073           00002                           TC       Q                                     
063253,000745: 
063254,000746: 17,3074           40000        LASTCHG            CS       A                                     
063255,000747: 17,3075           64754                           AD       NEG0                                  
063256,000748: 17,3076           55466                           TS       T6FURTHA                              
063257,000749: 
063258,000750: 17,3077           00002                           TC       Q                                     
063259,000751: 
063260,000752: 17,3100           55735        ROT45DEG           TS       ROTEMP1                               
063261,000753: 17,3101           60001                           AD       L                                     
063262,000754: 17,3102           55736                           TS       ROTEMP2                               
063263,000755: 17,3103           13111                           TCF      +6                                    
063264,000756: 17,3104           10000                           CCS      A                                     
063265,000757: 17,3105           34733                           CA       POSMAX                                
063266,000758: 17,3106           13110                           TCF      +2                                    
063267,000759: 17,3107           34735                           CA       NEGMAX                                
063268,000760: 17,3110           55736                           TS       ROTEMP2                               #  Q+R
063269,000761: 17,3111           41735                           CS       ROTEMP1                               
063270,000762: 17,3112           60001                           AD       L                                     
063271,000763: 17,3113           55735                           TS       ROTEMP1                               #  R-Q
063272,000764: 17,3114           13120                           TCF      +4                                    
063273,000765: 17,3115           00006                           EXTEND                                         
063274,000766: 17,3116           74733                           MP       POSMAX                                
063275,000767: 17,3117           30001                           CA       L                                     
063276,000768: 17,3120           00006                           EXTEND                                         
063277,000769: 17,3121           73127                           MP       .707                                  
063278,000770: 17,3122           57736                           XCH      ROTEMP2                               
063279,000771: 17,3123           00006                           EXTEND                                         
063280,000772: 17,3124           73127                           MP       .707                                  
063281,000773: 17,3125           23736                           LXCH     ROTEMP2                               
063282,000774: 17,3126           00002                           TC       Q                                     
063283,000775: 
063284,000776: 17,3127           26501        .707               DEC      .70711                                
063285,000777: 
063286,000778: 17,3130           51742        SELCTSUB           INDEX    ROTINDEX                              
063287,000779: 17,3131           33162                           CA       ALLJETS                               
063288,000780: 17,3132           51741                           INDEX    NUMBERT                               
063289,000781: 17,3133           73166                           MASK     TYPEPOLY                              
063290,000782: 17,3134           55737                           TS       POLYTEMP                              
063291,000783: 
063292,000784: 17,3135           71262                           MASK     CH5MASK                               
063293,000785: 17,3136           10000                           CCS      A                                     
063294,000786: 17,3137           13141                           TCF      +2                                    

Page 1452

063296,000788: 17,3140           00002                           TC       Q                                     
063297,000789: 
063298,000790: 17,3141           36244                           CA       THREE                                 
063299,000791: 17,3142           55741        FAILOOP            TS       NUMBERT                               
063300,000792: 17,3143           51742                           INDEX    ROTINDEX                              
063301,000793: 17,3144           33162                           CA       ALLJETS                               
063302,000794: 17,3145           51741                           INDEX    NUMBERT                               
063303,000795: 17,3146           73166                           MASK     TYPEPOLY                              
063304,000796: 17,3147           55737                           TS       POLYTEMP                              
063305,000797: 17,3150           71262                           MASK     CH5MASK                               
063306,000798: 17,3151           00006                           EXTEND                                         
063307,000799: 17,3152           13140                           BZF      FAILOOP    -2                         
063308,000800: 17,3153           11741                           CCS      NUMBERT                               
063309,000801: 17,3154           13142                           TCF      FAILOOP                               
063310,000802: 17,3155           51476                           INDEX    AXISCTR                               
063311,000803: 17,3156           55525                           TS       TJU                                   
063312,000804: 17,3157           05567                           TC       ALARM                                 
063313,000805: 17,3160           02004                           OCT      02004                                 
063314,000806: 17,3161           12731                           TCF      NOROTAT                               
063315,000807: 17,3162           00110        ALLJETS            OCT      00110                                 #        -U      6 13
063316,000808: 17,3163           00022                           OCT      00022                                 #        -V      2 9
063317,000809: 17,3164           00204                           OCT      00204                                 #        +U      5 14
063318,000810: 17,3165           00041                           OCT      00041                                 #        +V      1 10
063319,000811: 17,3166           00125        TYPEPOLY           OCT      00125                                 #        -X      1 5 9 13
063320,000812: 17,3167           00252                           OCT      00252                                 #        +X      2 6 10 14
063321,000813: 17,3170           00146                           OCT      00146                                 #        A       2 5 10 13
063322,000814: 17,3171           00231                           OCT      00231                                 #        B       1 6 9 14
063323,000815: 17,3172           00377                           OCT      00377                                 #        ALL     1 2 5 6 9 10 13 14
063324,000816: 
063325,000817:                                                                                                  #  THE FOLLOWING SETS THE INTERRUPT FLIP-FLOP AS SOON AS POSSIBLE, WHICH PERMITS A RETURN TO THE INTERRUPTED JOB.
063326,000818: 
063327,000819: 17,3173           33175        CLOSEOUT           CA       ADRRUPT                               
063328,000820: 17,3174           07753                           TC       MAKERUPT                              
063329,000821: 
063330,000822: 17,3175           03176        ADRRUPT            ADRES    ENDJASK                               
063331,000823: 
063332,000824: 17,3176           53752        ENDJASK            DXCH     DAPARUPT                              
063333,000825: 17,3177           52011                           DXCH     ARUPT                                 
063334,000826: 17,3200           53754                           DXCH     DAPBQRPT                              
063335,000827: 17,3201           56017                           XCH      BRUPT                                 
063336,000828: 17,3202           22002                           LXCH     Q                                     
063337,000829: 17,3203           34735                           CAF      NEGMAX                                #  NEGATIVE DAPZRUPT SIGNALS JASK IS OVER.
063338,000830: 17,3204           53756                           DXCH     DAPZRUPT                              
063339,000831: 17,3205           52016                           DXCH     ZRUPT                                 
063340,000832: 17,3206           15272                           TCF      NOQRSM                                
063341,000833:    7753                                           BLOCK    3                                     
063342,000834:    6000                                           SETLOC   FFTAG6                                
063343,000835:    6000                                           BANK                                           

Page 1453

063345,000837:    7753                                           COUNT*   $$/DAP                                
063346,000838: 
063347,000839:    7753           00006        MAKERUPT           EXTEND                                         
063348,000840:    7754           07753                           EDRUPT   MAKERUPT                              
063349,000841: 

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