Source Code
|
These source-code files are part of a reconstructed copy of LUM69 Revision 2, the
flown Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction began with source code of Luminary 69 revision 0 previously
transcribed from a digitized copy of that program. The code was then updated
by back-porting the R-2 lunar potential model from previously-transcribed source
code of Luminary 99. These required changes were described in the original
Luminary memos 75 and 78. The reconstructed code was verified by
matching memory-bank checksums to those listed in drawing 2021152G. Note that
page numbers in the reconstructed code match those on the Luminary 069 printout,
although the added code would likely have changed page numbers for a real LUM69
Revision 2 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
061971,000002: ## Copyright: Public domain.
061972,000003: ## Filename: Q,R-AXES_RCS_AUTOPILOT.agc
061973,000004: ## Purpose: A section of LUM69 revision 2.
061974,000005: ## It is part of the reconstructed source code for the flown
061975,000006: ## version of the flight software for the Lunar Module's (LM)
061976,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
061977,000008: ## been recreated from a copy of Luminary revsion 069, using
061978,000009: ## changes present in Luminary 099 which were described in
061979,000010: ## Luminary memos 75 and 78. The code has been adapted such
061980,000011: ## that the resulting bugger words exactly match those specified
061981,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
061982,000013: ## relatively high confidence that the reconstruction is correct.
061983,000014: ## Reference: pp. 1436-1453
061984,000015: ## Assembler: yaYUL
061985,000016: ## Contact: Ron Burkey <info@sandroid.org>.
061986,000017: ## Website: www.ibiblio.org/apollo/index.html
061987,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
061988,000019:
|
|
Page 1436
|
061990,000021: 17,2043 BANK 17
061991,000022: 17,2000 SETLOC DAPS2
061992,000023: 17,2000 BANK
061993,000024:
061994,000025: 17,2043 E6,1633 EBANK= CDUXD
061995,000026:
061996,000027: 17,2043 COUNT* $$/DAPQR
061997,000028:
061998,000029: 17,2043 34737 CALLQERR CA BIT13 # CALCULATE Q,R ERRORS UNLESS THESE AXES
061999,000030: 17,2044 00006 EXTEND # ARE IN MANUAL RATE COMMAND.
062000,000031: 17,2045 02031 RAND CHAN31
062001,000032: 17,2046 10000 CCS A
062002,000033: 17,2047 12054 TCF +5 # IN AUTO COMPUTE Q,R ERRORS
062003,000034: 17,2050 40111 CS DAPBOOLS # IN MANUAL RATE COMMAND?
062004,000035: 17,2051 74740 MASK OURRCBIT
062005,000036: 17,2052 00006 EXTEND
062006,000037: 17,2053 12055 BZF Q,RORGTS # IF SO BYPASS CALCULATION OF ERRORS.
062007,000038: 17,2054 02563 TC QERRCALC
062008,000039:
062009,000040: 17,2055 11627 Q,RORGTS CCS COTROLER # CHOOSE CONTROL SYSTEM FOR THIS DAP PASS:
062010,000041: 17,2056 12544 TCF GOTOGTS # GTS (ALTERNATES WITH RCS WHEN DOCKED)
062011,000042: 17,2057 12531 TCF TRYGTS # GTS IF ALLOWED, OTHERWISE RCS
062012,000043: 17,2060 34755 RCS CAF ZERO # RCS (TRYGTS MAY BRANCH TO HERE)
062013,000044: 17,2061 55627 TS COTROLER
062014,000045:
062015,000046: 17,2062 53435 DXCH EDOTQ
062016,000047: 17,2063 03100 TC ROT45DEG
062017,000048: 17,2064 53425 DXCH OMEGAU
062018,000049:
062019,000050: # X - TRANSLATION:
062020,000051:
062021,000052: # INPUT: BITS 7,8 OF CH31 (TRANSLATION CONTROLLER)
062022,000053: # ULLAGER
062023,000054: # APSFLAG, DRIFTBIT
062024,000055: # ACC40R2X, ACRBTRAN
062025,000056:
062026,000057: # OUTPUT: NEXTU, NEXTV CODES OF TRANSLATION FOR AFTER ROTATION
062027,000058: # SENSETYP TELL ROTATION DIRECTION AND DESIRE
062028,000059:
062029,000060: # X-TRANS POLICIES ARE EITHER 4 JETS OR A DIAGONAL PAIR. IN 2-JET TRANSLATION THE SYSTEM IS SPECIFIED. A FAILURE
062030,000061: # WILL OVERRIDE THIS SPECIFICATION. AN ALARM RESULTS WHEN NO POLICY IS AVAILABLE BECAUSE OF FAILURES.
062031,000062:
062032,000063: 17,2065 34745 SENSEGET CA BIT7 # INPUT BITS OVERRIDE THE INTERNAL BITS
062033,000064: 17,2066 00006 EXTEND # SENSETYP WILL NOT OPPOSE ANYTRANS
062034,000065: 17,2067 02031 RAND CHAN31
062035,000066: 17,2070 00006 EXTEND
062036,000067: 17,2071 12117 BZF +XORULGE
|
|
Page 1437
|
062038,000069: 17,2072 34744 CA BIT8
062039,000070: 17,2073 00006 EXTEND
062040,000071: 17,2074 02031 RAND CHAN31
062041,000072: 17,2075 00006 EXTEND
062042,000073: 17,2076 12120 BZF -XTRANS
062043,000074:
062044,000075: 17,2077 34746 CA ULLAGER
062045,000076: 17,2100 70111 MASK DAPBOOLS
062046,000077: 17,2101 10000 CCS A
062047,000078: 17,2102 12117 TCF +XORULGE
062048,000079:
062049,000080: 17,2103 55471 TS NEXTU # STORE NULL TRANSLATION POLICIES
062050,000081: 17,2104 55472 TS NEXTV
062051,000082: 17,2105 40111 CS DAPBOOLS # BURNING OR DRIFTING?
062052,000083: 17,2106 74744 MASK DRIFTBIT
062053,000084: 17,2107 00006 EXTEND
062054,000085: 17,2110 12115 BZF TSENSE
062055,000086: 17,2111 30106 CA FLGWRD10 # DPS (INCLUDING DOCKED) OR APS?
062056,000087: 17,2112 74737 MASK APSFLBIT
062057,000088: 17,2113 10000 CCS A
062058,000089: 17,2114 34752 CAF TWO # FAVOR +X JETS DURING AN APS BURN.
062059,000090: 17,2115 55477 TSENSE TS SENSETYP
062060,000091: 17,2116 12151 TCF QRCONTRL
062061,000092:
062062,000093: 17,2117 34753 +XORULGE CAF ONE
062063,000094: 17,2120 64751 -XTRANS AD FOUR
062064,000095: 17,2121 55742 TS ROTINDEX
062065,000096: 17,2122 67744 AD NEG3
062066,000097: 17,2123 55477 TS SENSETYP # FAVOR APPROPRIATE JETS DURING TRANS.
062067,000098: 17,2124 30111 CA DAPBOOLS
062068,000099: 17,2125 74741 MASK ACC4OR2X
062069,000100: 17,2126 10000 CCS A
062070,000101: 17,2127 12256 TCF TRANS4
062071,000102:
062072,000103: 17,2130 30111 CA DAPBOOLS
062073,000104: 17,2131 74742 MASK AORBTRAN
062074,000105: 17,2132 10000 CCS A
062075,000106: 17,2133 34753 CA ONE # THREE FOR B
062076,000107: 17,2134 64752 AD TWO # TWO FOR A SYSTEM 2 JET X TRANS
062077,000108: 17,2135 55741 TSNUMBRT TS NUMBERT
062078,000109:
062079,000110: 17,2136 03130 TC SELCTSUB
062080,000111:
062081,000112: 17,2137 11737 CCS POLYTEMP
062082,000113: 17,2140 12143 TCF +3
062083,000114: 17,2141 05567 TC ALARM
062084,000115: 17,2142 02002 OCT 02002
062085,000116: 17,2143 35765 CA 00314OCT
062086,000117: 17,2144 71737 MASK POLYTEMP
062087,000118: 17,2145 55471 TSNEXTS TS NEXTU
|
|
Page 1438
|
062089,000120: 17,2146 45765 CS 00314OCT
062090,000121: 17,2147 71737 MASK POLYTEMP
062091,000122: 17,2150 55472 TS NEXTV
062092,000123:
062093,000124: # Q,R-AXES RCS CONTROL MODE SELECTION
062094,000125: # SWITCHES INDICATION WHEN SET
062095,000126: # BIT13/CHAN31 AUTO, GO TO ATTSTEER
062096,000127: # PULSES MINIMUM IMPULSE MODE
062097,000128: # (OTHERWISE) RATE COMMAND/ATTITUDE HOLD MODE
062098,000129:
062099,000130: 17,2151 34737 QRCONTRL CA BIT13 # CHECK MODE SELECT SWITCH.
062100,000131: 17,2152 00006 EXTEND
062101,000132: 17,2153 02031 RAND CHAN31 # BITS INVERTED
062102,000133: 17,2154 10000 CCS A
062103,000134: 17,2155 12616 TCF ATTSTEER
062104,000135: 17,2156 34735 CHKBIT10 CAF PULSES # PULSES = 1 FOR MIN IMP USE OF RHC
062105,000136: 17,2157 70111 MASK DAPBOOLS
062106,000137: 17,2160 00006 EXTEND
062107,000138: 17,2161 12260 BZF CHEKSTIK # IN ATT-HOLD/RATE-COMMAND IF BIT10=0
062108,000139:
062109,000140: # MINIMUM IMPULSE MODE
062110,000141:
062111,000142: 17,2162 00004 INHINT
062112,000143: 17,2163 04674 TC IBNKCALL
062113,000144: 17,2164 40153 CADR ZATTEROR
062114,000145: 17,2165 34755 CA ZERO
062115,000146: 17,2166 55446 TS QERROR
062116,000147: 17,2167 55450 TS RERROR # FOR DISPLAYS
062117,000148: 17,2170 00003 RELINT
062118,000149:
062119,000150: 17,2171 00006 EXTEND
062120,000151: 17,2172 00031 READ CHAN31
062121,000152: 17,2173 55735 TS TEMP31 # IS EQUAL TO DAPTEMP1
062122,000153: 17,2174 11457 CCS OLDQRMIN
062123,000154: 17,2175 12217 TCF CHECKIN
062124,000155:
062125,000156: 17,2176 31735 FIREQR CA TEMP31
062126,000157: 17,2177 74753 MASK BIT1
062127,000158: 17,2200 00006 EXTEND
062128,000159: 17,2201 12223 BZF +QMIN
062129,000160:
062130,000161: 17,2202 31735 CA TEMP31
062131,000162: 17,2203 74752 MASK BIT2
062132,000163: 17,2204 00006 EXTEND
062133,000164: 17,2205 12227 BZF -QMIN
062134,000165:
062135,000166: 17,2206 31735 CA TEMP31
062136,000167: 17,2207 74747 MASK BIT5
|
|
Page 1439
|
062138,000169: 17,2210 00006 EXTEND
062139,000170: 17,2211 12233 BZF +RMIN
062140,000171:
062141,000172: 17,2212 31735 CA TEMP31
062142,000173: 17,2213 74746 MASK BIT6
062143,000174: 17,2214 00006 EXTEND
062144,000175: 17,2215 12235 BZF -RMIN
062145,000176:
062146,000177: 17,2216 13015 TCF XTRANS
062147,000178:
062148,000179: 17,2217 41735 CHECKIN CS TEMP31
062149,000180: 17,2220 72255 MASK OCT63
062150,000181: 17,2221 55457 TS OLDQRMIN
062151,000182: 17,2222 13015 TCF XTRANS
062152,000183:
062153,000184: 17,2223 33041 +QMIN CA 14MS
062154,000185: 17,2224 55525 TS TJU
062155,000186: 17,2225 43041 CS 14MS
062156,000187: 17,2226 12237 TCF MINQR
062157,000188: 17,2227 43041 -QMIN CS 14MS
062158,000189: 17,2230 55525 TS TJU
062159,000190: 17,2231 33041 CA 14MS
062160,000191: 17,2232 12237 TCF MINQR
062161,000192: 17,2233 33041 +RMIN CA 14MS
062162,000193: 17,2234 12236 TCF +2
062163,000194: 17,2235 43041 -RMIN CS 14MS
062164,000195: 17,2236 55525 TS TJU
062165,000196: 17,2237 55526 MINQR TS TJV
062166,000197: 17,2240 32254 CA MINADR
062167,000198: 17,2241 55475 TS RETJADR
062168,000199: 17,2242 34753 CA ONE
062169,000200: 17,2243 55457 TS OLDQRMIN
062170,000201: 17,2244 55476 MINRTN TS AXISCTR
062171,000202: 17,2245 30111 CA DAPBOOLS
062172,000203: 17,2246 74742 MASK AORBTRAN
062173,000204: 17,2247 10000 CCS A
062174,000205: 17,2250 34753 CA ONE
062175,000206: 17,2251 64752 AD TWO
062176,000207: 17,2252 55741 TS NUMBERT
062177,000208: 17,2253 12661 TCF AFTERTJ
062178,000209:
062179,000210: 17,2254 02244 MINADR GENADR MINRTN
062180,000211: 17,2255 00063 OCT63 OCT 63
062181,000212: 17,2256 17,3041 14MS = +TJMINT6
062182,000213:
062183,000214: 17,2256 34751 TRANS4 CA FOUR
062184,000215: 17,2257 12135 TCF TSNUMBRT
062185,000216:
062186,000217: # RATE COMMAND MODE:
|
|
Page 1440
|
062188,000219: # DESCRIPTION (SAME AS P-AXIS)
062189,000220:
062190,000221: 17,2260 55631 CHEKSTIK TS INGTS # NOT IN GTS WHEN IN ATT HOLD
062191,000222: 17,2261 44753 CS ONE # 1/ACCS WILL DO THE NULLING DRIVES
062192,000223: 17,2262 55627 TS COTROLER # COME BACK TO RCS NEXT TIME
062193,000224: 17,2263 34735 CA BIT15
062194,000225: 17,2264 71441 MASK CH31TEMP
062195,000226: 17,2265 00006 EXTEND
062196,000227: 17,2266 12305 BZF RHCACTIV # BRANCH IF OUT OF DETENT.
062197,000228: 17,2267 34740 CA OURRCBIT # ***********
062198,000229: 17,2270 70111 MASK DAPBOOLS # *IN DETENT* CHECK FOR MANUAL CONTROL
062199,000230: 17,2271 00006 EXTEND # *********** LAST TIME.
062200,000231: 17,2272 12616 BZF STILLRCS
062201,000232: 17,2273 44743 CS BIT9
062202,000233: 17,2274 71273 MASK RCSFLAGS
062203,000234: 17,2275 55273 TS RCSFLAGS # BIT 9 IS 0.
062204,000235: 17,2276 12302 TCF DAMPING
062205,000236: 17,2277 00050 40CYCL OCT 50
062206,000237: 17,2300 00001 1/10S OCT 1
062207,000238: 17,2301 00056 LINRAT DEC 46 B-14
062208,000239:
062209,000240: # ================================
062210,000241:
062211,000242: 17,2302 34755 DAMPING CA ZERO
062212,000243: 17,2303 55460 TS SAVEHAND
062213,000244: 17,2304 55461 TS SAVEHAND +1
062214,000245: 17,2305 11460 RHCACTIV CCS SAVEHAND # *******************
062215,000246: 17,2306 12311 TCF +3 # Q,R MANUAL CONTROL WC = A*(B+|D|)*D
062216,000247: 17,2307 12311 TCF +2 # *******************
062217,000248: 17,2310 12311 TCF +1
062218,000249: 17,2311 60000 DOUBLE # WHERE
062219,000250: 17,2312 60000 DOUBLE
062220,000251: 17,2313 62301 AD LINRAT # WC = COMMANDED ROTATIONAL RATE
062221,000252: 17,2314 00006 EXTEND # A = QUADRATIC SENSITIVITY FACTOR
062222,000253: 17,2315 71460 MP SAVEHAND # B = LINEAR/QUADRATIC SENSITIVITY
062223,000254: 17,2316 30001 CA L # |D| = ABS. VALUE OF DEFLECTION
062224,000255: 17,2317 00006 EXTEND # D = HAND CONTROLLER DEFLECTION
062225,000256: 17,2320 71442 MP STIKSENS
062226,000257: 17,2321 57453 XCH QLAST # COMMAND Q RATE SCALED 45 DEG/SEC
062227,000258: 17,2322 40000 COM
062228,000259: 17,2323 61453 AD QLAST
062229,000260: 17,2324 55737 TS DAPTEMP3
062230,000261: 17,2325 11461 CCS SAVEHAND +1
062231,000262: 17,2326 12331 TCF +3
062232,000263: 17,2327 12331 TCF +2
062233,000264: 17,2330 12331 TCF +1
062234,000265: 17,2331 60000 DOUBLE
062235,000266: 17,2332 60000 DOUBLE
062236,000267: 17,2333 62301 AD LINRAT
062237,000268: 17,2334 00006 EXTEND
062238,000269: 17,2335 71461 MP SAVEHAND +1
062239,000270: 17,2336 30001 CA L
|
|
Page 1441
|
062241,000272: 17,2337 00006 EXTEND
062242,000273: 17,2340 71442 MP STIKSENS
062243,000274: 17,2341 57454 XCH RLAST
062244,000275: 17,2342 40000 COM
062245,000276: 17,2343 61454 AD RLAST
062246,000277: 17,2344 55740 TS DAPTEMP4
062247,000278: 17,2345 41453 CS QLAST # INTERVAL.
062248,000279: 17,2346 61420 AD OMEGAQ
062249,000280: 17,2347 55434 TS QRATEDIF
062250,000281: 17,2350 41454 CS RLAST
062251,000282: 17,2351 61421 AD OMEGAR
062252,000283: 17,2352 55435 TS RRATEDIF
062253,000284: 17,2353 53435 ENTERQR DXCH QRATEDIF # TRANSFORM RATES FROM Q,R TO U,V AXES
062254,000285: 17,2354 03100 TC ROT45DEG
062255,000286: 17,2355 53425 DXCH URATEDIF
062256,000287: 17,2356 11737 CCS DAPTEMP3 # CHECK IF Q COMMAND CHANGE EXCEEDS
062257,000288: 17,2357 02362 TC +3 # BREAKOUT LEVEL. IF NOT, CHECK R.
062258,000289: 17,2360 02362 TC +2
062259,000290: 17,2361 02362 TC +1
062260,000291: 17,2362 61474 AD -RATEDB
062261,000292: 17,2363 00006 EXTEND
062262,000293: 17,2364 62366 BZMF +2
062263,000294: 17,2365 12404 TCF ENTERUV -2 # BREAKOUT LEVEL EXCEEDED. DIRECT RATE.
062264,000295: 17,2366 11740 CCS DAPTEMP4 # R COMMAND BREAKOUT CHECK.
062265,000296: 17,2367 02372 TC +3
062266,000297: 17,2370 02372 TC +2
062267,000298: 17,2371 02372 TC +1
062268,000299: 17,2372 61474 AD -RATEDB
062269,000300: 17,2373 00006 EXTEND
062270,000301: 17,2374 62376 BZMF +2
062271,000302: 17,2375 12404 TCF ENTERUV -2 # BREAKOUT LEVEL EXCEEDED. DIRECT RATE.
062272,000303: 17,2376 31273 CA RCSFLAGS # BREAKOUT LEVEL NOT EXCEEDED. CHECK FOR
062273,000304: 17,2377 74741 MASK QRBIT # DIRECT RATE CONTROL LAST TIME.
062274,000305: 17,2400 00006 EXTEND
062275,000306: 17,2401 12403 BZF +2
062276,000307: 17,2402 12406 TCF ENTERUV # CONTINUE DIRECT RATE CONTROL.
062277,000308: 17,2403 12616 TCF STILLRCS # PSEUDO-AUTO CONTROL.
062278,000309: 17,2404 32277 CA 40CYCL
062279,000310: 17,2405 55455 TS TCQR
062280,000311: 17,2406 00004 ENTERUV INHINT # DIRECT RATE CONTROL.
062281,000312: 17,2407 04674 TC IBNKCALL
062282,000313: 17,2410 40153 FCADR ZATTEROR
062283,000314: 17,2411 00003 RELINT
062284,000315: 17,2412 34755 CA ZERO
062285,000316: 17,2413 55446 TS DYERROR
062286,000317: 17,2414 55447 TS DYERROR +1
062287,000318: 17,2415 55450 TS DZERROR
062288,000319: 17,2416 55451 TS DZERROR +1
062289,000320: 17,2417 11424 CCS URATEDIF
062290,000321: 17,2420 12423 TCF +3
|
|
Page 1442
|
062292,000323: 17,2421 12423 TCF +2
062293,000324: 17,2422 12423 TCF +1
062294,000325: 17,2423 61474 AD TARGETDB # IF TARGET DB IS EXCEEDED, CONTINUE
062295,000326: 17,2424 00006 EXTEND # DIRECT RATE CONTROL.
062296,000327: 17,2425 62441 BZMF VDB
062297,000328: 17,2426 11425 CCS VRATEDIF
062298,000329: 17,2427 12432 TCF +3
062299,000330: 17,2430 12432 TCF +2
062300,000331: 17,2431 12432 TCF +1
062301,000332: 17,2432 61474 AD TARGETDB
062302,000333: 17,2433 00006 EXTEND
062303,000334: 17,2434 62436 BZMF +2
062304,000335: 17,2435 12452 TCF QRTIME
062305,000336: 17,2436 34755 CA ZERO
062306,000337: 17,2437 55425 TS VRATEDIF
062307,000338: 17,2440 12452 TCF QRTIME
062308,000339: 17,2441 11425 VDB CCS VRATEDIF
062309,000340: 17,2442 02445 TC +3
062310,000341: 17,2443 02445 TC +2
062311,000342: 17,2444 02445 TC +1
062312,000343: 17,2445 61474 AD TARGETDB # IF TARGET DB IS EXCEEDED, CONTINUE
062313,000344: 17,2446 00006 EXTEND # DIRECT RATE CONTROL. IF NOT, FIRE AND
062314,000345: 17,2447 62461 BZMF TOPSEUDO # SWITCH TO PSEUDO-AUTO CONTROL ON NEXT
062315,000346: 17,2450 34755 CA ZERO # PASS.
062316,000347: 17,2451 55424 TS URATEDIF
062317,000348: 17,2452 31455 QRTIME CA TCQR # DIRECT RATE TIME CHECK.
062318,000349: 17,2453 00006 EXTEND
062319,000350: 17,2454 62461 BZMF +5 # BRANCH IF TIME EXCEEDS 4 SEC.
062320,000351: 17,2455 41273 CS RCSFLAGS
062321,000352: 17,2456 74741 MASK QRBIT
062322,000353: 17,2457 27273 ADS RCSFLAGS # BIT 11 IS 1.
062323,000354: 17,2460 02464 TC +4
062324,000355: 17,2461 44741 TOPSEUDO CS QRBIT
062325,000356: 17,2462 71273 MASK RCSFLAGS
062326,000357: 17,2463 55273 TS RCSFLAGS # BIT 11 IS 0.
062327,000358: 17,2464 32530 CA HANDADR
062328,000359: 17,2465 55475 TS RETJADR
062329,000360: 17,2466 34753 CA ONE
062330,000361: 17,2467 55476 BACKHAND TS AXISCTR
062331,000362:
062332,000363: 17,2470 34751 CA FOUR
062333,000364: 17,2471 55741 TS NUMBERT
062334,000365:
062335,000366: 17,2472 51476 INDEX AXISCTR
062336,000367: 17,2473 51535 INDEX SKIPU
062337,000368: 17,2474 12475 TCF +1
062338,000369: 17,2475 34751 CA FOUR
062339,000370: 17,2476 51476 INDEX AXISCTR
062340,000371: 17,2477 55535 TS SKIPU
062341,000372: 17,2500 12737 TCF LOOPER
|
|
Page 1443
|
062343,000374: 17,2501 51476 INDEX AXISCTR
062344,000375: 17,2502 11424 CCS URATEDIF # INDEX AXIS QUANITY
062345,000376: 17,2503 34755 CA ZERO # 0 -U 1/JETACC-AOSU
062346,000377: 17,2504 12506 TCF +2 # 1 +U 1/JETACC+AOSU
062347,000378: 17,2505 34753 CA ONE # 16 -V 1/JETACC-AOSV
062348,000379: 17,2506 51476 INDEX AXISCTR # 17 +V 1/JETACC+AOSV
062349,000380: 17,2507 63657 AD AXISDIFF # JETACC = 2 JET ACCELERATION (1 FOR FAIL)
062350,000381:
062351,000382: 17,2510 50000 INDEX A
062352,000383: 17,2511 41571 CS 1/ANET2 +1
062353,000384: 17,2512 00006 EXTEND
062354,000385: 17,2513 51476 INDEX AXISCTR # URATEDIF IS SCALED AT PI/4 RAD/SEC
062355,000386: 17,2514 71424 MP URATEDIF # JET TIME IN A SCALED 32 SEC
062356,000387: 17,2515 54002 TS Q
062357,000388: 17,2516 20001 DAS A
062358,000389: 17,2517 60002 AD Q
062359,000390: 17,2520 54000 TS A # OVERFLOW SKIP
062360,000391: 17,2521 12523 TCF +2
062361,000392: 17,2522 30002 CA Q # RIGHT SIGN AND BIGGER THAN 150MS
062362,000393: 17,2523 51476 SETTIME INDEX AXISCTR
062363,000394: 17,2524 55525 TS TJU # SCALED AT 10.67 WHICH IS CLOSE TO 10.24
062364,000395: 17,2525 12661 TCF AFTERTJ
062365,000396:
062366,000397: 17,2526 34755 ZEROTJ CA ZERO
062367,000398: 17,2527 12523 TCF SETTIME
062368,000399:
062369,000400: 17,2530 02467 HANDADR GENADR BACKHAND
062370,000401:
062371,000402: # GTS WILL BE TRIED IF
062372,000403: # 1. USEQRJTS= 0,
062373,000404: # 2. ALLOWGTS POS,
062374,000405: # 3. JETS ARE OFF (Q,R-AXES)
062375,000406:
062376,000407: 17,2531 34736 TRYGTS CAF USEQRJTS # IS JET USE MANDATORY. (AS LONG AS
062377,000408: 17,2532 70111 MASK DAPBOOLS # USEQRJTS BIT IS NOT BIT 15, CCS IS SAFE)
062378,000409: 17,2533 10000 CCS A
062379,000410: 17,2534 12060 TCF RCS
062380,000411: 17,2535 11501 CCS ALLOWGTS # NO. DOES AOSTASK OK CONTROL FOR GTS?
062381,000412: 17,2536 12540 TCF +2
062382,000413: 17,2537 12060 TCF RCS
062383,000414: 17,2540 00006 EXTEND
062384,000415: 17,2541 00005 READ CHAN5
062385,000416: 17,2542 10000 CCS A
062386,000417: 17,2543 12547 TCF CHKINGTS
062387,000418: 17,2544 00006 GOTOGTS EXTEND
062388,000419: 17,2545 32562 DCA GTSCADR
062389,000420: 17,2546 52006 DTCB
062390,000421:
062391,000422: 17,2547 11631 CHKINGTS CCS INGTS # WAS THE TRIM GIMBAL CONTROLLING
062392,000423: 17,2550 12552 TCF +2 # YES. SET UP A DAMPED NULLING DRIVE.
062393,000424: 17,2551 12060 TCF RCS # NO. NULLING WAS SET UP BEFORE. DO RCS
|
|
Page 1444
|
062395,000426: 17,2552 00004 INHINT
062396,000427: 17,2553 04674 TC IBNKCALL
062397,000428: 17,2554 43450 CADR TIMEGMBL
062398,000429: 17,2555 00003 RELINT
062399,000430: 17,2556 34755 CAF ZERO
062400,000431: 17,2557 55631 TS INGTS
062401,000432: 17,2560 12060 TCF RCS
062402,000433:
062403,000434: 17,2561 E6,1633 EBANK= CDUXD
062404,000435: 17,2561 03263 42106 GTSCADR 2CADR GTS
062405,000436:
|
|
Page 1445
|
062407,000438: # SUBROUTINE TO COMPUTE Q,R-AXES ATTITUDE ERRORS FOR USE IN THE RCS AND GTS CONTROL LAWS AND THE DISPLAYS.
062408,000439:
062409,000440: 17,2563 30033 QERRCALC CAE CDUY # Q-ERROR CALCULATION
062410,000441: 17,2564 00006 EXTEND
062411,000442: 17,2565 21634 MSU CDUYD # CDU ANGLE - ANGLE DESIRED (Y-AXIS)
062412,000443: 17,2566 55735 TS DAPTEMP1 # SAVE FOR RERRCALC
062413,000444: 17,2567 00006 EXTEND
062414,000445: 17,2570 71413 MP M21 # (CDUY-CDUYD)*M21 SCALED AT PI RADIANS
062415,000446: 17,2571 55750 TS E
062416,000447: 17,2572 30034 CAE CDUZ # SECOND TERM CALCULATION:
062417,000448: 17,2573 00006 EXTEND
062418,000449: 17,2574 21635 MSU CDUZD # CDU ANGLE -ANGLE DESIRED (Z-AXIS)
062419,000450: 17,2575 55736 TS DAPTEMP2 # SAVE FOR RERRCALC
062420,000451: 17,2576 00006 EXTEND
062421,000452: 17,2577 71415 MP M22 # (CDUZ-CDUZD)*M22 SCALED AT PI RADIANS
062422,000453: 17,2600 61300 AD DELQEROR # KALCMANU INERFACE ERROR
062423,000454: 17,2601 61750 AD E
062424,000455: 17,2602 57446 XCH QERROR # SAVE Q-ERROR FOR EIGHT-BALL DISPLAY.
062425,000456:
062426,000457: 17,2603 31735 RERRCALC CAE DAPTEMP1 # R-ERROR CALCULATION:
062427,000458: 17,2604 00006 EXTEND # CDU ANGLE -ANGLE DESIRED (Y-AXIS)
062428,000459: 17,2605 71414 MP M31 # (CDUY-CDUYD)*M31 SCALED AT PI RADIANS
062429,000460: 17,2606 55750 TS E
062430,000461: 17,2607 31736 CAE DAPTEMP2 # SECOND TERM CALCULATION:
062431,000462: 17,2610 00006 EXTEND # CDU ANGLE -ANGLE DESIRED (Z-AXIS)
062432,000463: 17,2611 71416 MP M32 # (CDUZ-CDUZD)*M32 SCALED AT PI RADIANS
062433,000464: 17,2612 61301 AD DELREROR # KALCMANU INERFACE ERROR
062434,000465: 17,2613 61750 AD E
062435,000466: 17,2614 57450 XCH RERROR # SAVE R-ERROR FOR EIGHT-BALL DISPLAY.
062436,000467: 17,2615 00002 TC Q
062437,000468:
|
|
Page 1446
|
062439,000470: # "ATTSTEER" IS THE ENTRY POINT FOR Q,R-AXES (U,V-AXES) ATTITUDE CONTROL USING THE REACTION CONTROL SYSTEM
062440,000471:
062441,000472: 17,2616 17,2616 ATTSTEER EQUALS STILLRCS # "STILLRCS" IS THE RCS EXIT FROM TRYGTS.
062442,000473:
062443,000474: 17,2616 31450 STILLRCS CA RERROR
062444,000475: 17,2617 22000 LXCH A
062445,000476: 17,2620 31446 CA QERROR
062446,000477: 17,2621 03100 TC ROT45DEG
062447,000478: 17,2622 53750 DXCH UERROR
062448,000479:
062449,000480: # PREPARES CALL TO TJETLAW (OR SPSRCS(DOCKED))
062450,000481: # PREFORMS SKIP LOGIC ON U OR Y AXIS IF NEEDED.
062451,000482:
062452,000483: 17,2623 33045 TJLAW CA TJLAWADR
062453,000484: 17,2624 55475 TS RETJADR
062454,000485: 17,2625 34753 CA ONE
062455,000486: 17,2626 55476 TS AXISCTR
062456,000487: 17,2627 51476 INDEX AXISCTR
062457,000488: 17,2630 51535 INDEX SKIPU
062458,000489: 17,2631 12632 TCF +1
062459,000490: 17,2632 34751 CA FOUR
062460,000491: 17,2633 51476 INDEX AXISCTR
062461,000492: 17,2634 55535 TS SKIPU
062462,000493: 17,2635 12737 TCF LOOPER
062463,000494: 17,2636 51476 INDEX AXISCTR
062464,000495: 17,2637 31747 CA UERROR
062465,000496: 17,2640 55750 TS E
062466,000497: 17,2641 51476 INDEX AXISCTR
062467,000498: 17,2642 31424 CA OMEGAU
062468,000499: 17,2643 55425 TS EDOT
062469,000500: 17,2644 30111 CA DAPBOOLS
062470,000501: 17,2645 74737 MASK CSMDOCKD
062471,000502: 17,2646 10000 CCS A
062472,000503: 17,2647 12652 TCF +3
062473,000504: 17,2650 03207 TC TJETLAW
062474,000505: 17,2651 12661 TCF AFTERTJ
062475,000506: 17,2652 40111 +3 CS DAPBOOLS # DOCKED. IF GIMBAL USABLE DO GTS CONTROL
062476,000507: 17,2653 74736 MASK USEQRJTS # ON THE NEXT PASS.
062477,000508: 17,2654 10000 CCS A # USEQRJTS BIT MUST NOT BE BIT 15.
062478,000509: 17,2655 55627 TS COTROLER # GIMBAL USABLE. STORE POSITIVE VALUE.
062479,000510: 17,2656 03700 TC SPSRCS # DETERMINE RCS CONTROL.
062480,000511: 17,2657 34751 CAF FOUR # ALWAYS CALL FOR 2-JET CONTROL ABOUT U,V.
062481,000512: 17,2660 55741 TS NUMBERT # FALL THROUGH TO JET SELECTION, ETC.
062482,000513:
062483,000514: # Q,R-JET-SELECTION-LOGIC
062484,000515:
062485,000516: # INPUT: AXISCTR 0,1 FOR U,V
062486,000517: # SNUFFBIT ZERO TJETU,V AND TRANS. ONLY IF SET IN A DPS BURN
062487,000518: # TJU,TJV JET TIME SCALED 10.24 SEC.
062488,000519: # NUMBERT INDICATES NUMBER OF JETS AND TYPE OF POLICY
062489,000520: # RETJADR WHERE TO RETURN TO
|
|
Page 1447
|
062491,000522: # OUTPUT: NO.U(V)JETS RATE DERIVATION FEEDBACK
062492,000523: # CHANNEL 5
062493,000524: # SKIPU,SKIRV FOR LESS THAN 150MS FIRING
062494,000525:
062495,000526: # NOTES: IN CASE OF FAILURE IN DESIRED ROTATION POLICY, "ALL" UNFAILED
062496,000527: # JETS OF THE DESIRED POLICY ARE SELECTED. SINCE THERE ARE ONLY
062497,000528: # TWO JETS, THIS MEANS THE OTHER ONE OR NONE. THE ALARM IS SENT
062498,000529: # IF NONE CAN BE FOUND.
062499,000530:
062500,000531: # TIMES LESS THAN 14 MSEC ARE TAKEN TO CALL FOR A SINGLE-JET
062501,000532: # MINIMUM IMPULSE, WITH THE JET CHOSEN SEMI-RANDOMLY.
062502,000533:
062503,000534: 17,2661 30101 AFTERTJ CA FLAGWRD5 # IF SNUFFBIT SET DURING A DPS BURN GO TO
062504,000535: 17,2662 74737 MASK SNUFFBIT # XTRANS; THAT IS, INHIBIT CONTROL.
062505,000536: 17,2663 00006 EXTEND
062506,000537: 17,2664 12675 BZF DOROTAT
062507,000538: 17,2665 40106 CS FLGWRD10
062508,000539: 17,2666 74737 MASK APSFLBIT
062509,000540: 17,2667 00006 EXTEND
062510,000541: 17,2670 12675 BZF DOROTAT
062511,000542: 17,2671 30111 CA DAPBOOLS
062512,000543: 17,2672 74744 MASK DRIFTBIT
062513,000544: 17,2673 00006 EXTEND
062514,000545: 17,2674 13015 BZF XTRANS
062515,000546:
062516,000547: 17,2675 34752 DOROTAT CAF TWO
062517,000548: 17,2676 54001 TS L
062518,000549: 17,2677 51476 INDEX AXISCTR
062519,000550: 17,2700 11525 CCS TJU
062520,000551: 17,2701 12706 TCF +5
062521,000552: 17,2702 12731 TCF NOROTAT
062522,000553: 17,2703 12705 TCF +2
062523,000554: 17,2704 12731 TCF NOROTAT
062524,000555: 17,2705 22007 ZL
062525,000556: 17,2706 64753 AD ONE
062526,000557: 17,2707 55735 TS ABSTJ
062527,000558:
062528,000559: 17,2710 31476 CA AXISCTR
062529,000560: 17,2711 60001 AD L
062530,000561: 17,2712 55742 TS ROTINDEX # 0 1 2 3 = -U -V -+U +V
062531,000562:
062532,000563: 17,2713 31735 CA ABSTJ
062533,000564: 17,2714 63042 AD -150MS
062534,000565: 17,2715 00006 EXTEND
062535,000566: 17,2716 62742 BZMF DOSKIP
062536,000567:
062537,000568: 17,2717 03130 TC SELCTSUB
062538,000569:
062539,000570: 17,2720 51476 INDEX AXISCTR
062540,000571: 17,2721 33037 CA INDEXES
|
|
Page 1448
|
062542,000573: 17,2722 54001 TS L
062543,000574:
062544,000575: 17,2723 31737 CA POLYTEMP
062545,000576: 17,2724 00004 INHINT
062546,000577: 17,2725 50001 INDEX L
062547,000578: 17,2726 05745 TC WRITEP
062548,000579:
062549,000580: 17,2727 00003 RELINT
062550,000581: 17,2730 13003 TCF FEEDBACK
062551,000582:
062552,000583: 17,2731 51476 NOROTAT INDEX AXISCTR
062553,000584: 17,2732 33037 CA INDEXES
062554,000585: 17,2733 00004 INHINT
062555,000586: 17,2734 50000 INDEX A
062556,000587: 17,2735 05744 TC WRITEP -1
062557,000588:
062558,000589: 17,2736 00003 RELINT
062559,000590: 17,2737 11476 LOOPER CCS AXISCTR
062560,000591: 17,2740 01475 TC RETJADR
062561,000592: 17,2741 13173 TCF CLOSEOUT
062562,000593: 17,2742 41735 DOSKIP CS ABSTJ
062563,000594: 17,2743 63041 AD +TJMINT6 # 14MS
062564,000595: 17,2744 00006 EXTEND
062565,000596: 17,2745 62764 BZMF NOTMIN
062566,000597:
062567,000598: 17,2746 27735 ADS ABSTJ
062568,000599: 17,2747 51476 INDEX AXISCTR
062569,000600: 17,2750 11525 CCS TJU
062570,000601: 17,2751 33041 CA +TJMINT6
062571,000602: 17,2752 12754 TCF +2
062572,000603: 17,2753 43041 CS +TJMINT6
062573,000604: 17,2754 51476 INDEX AXISCTR
062574,000605: 17,2755 55525 TS TJU
062575,000606:
062576,000607: 17,2756 11477 CCS SENSETYP # ENSURE MIN-IMPULSE NOT AGAINST TRANS
062577,000608: 17,2757 12763 TCF NOTMIN -1
062578,000609: 17,2760 00006 EXTEND
062579,000610: 17,2761 00004 READ LOSCALAR
062580,000611: 17,2762 74753 MASK ONE
062581,000612: 17,2763 55741 TS NUMBERT
062582,000613:
062583,000614: 17,2764 03130 NOTMIN TC SELCTSUB
062584,000615:
062585,000616: 17,2765 51476 INDEX AXISCTR
062586,000617: 17,2766 33037 CA INDEXES
062587,000618: 17,2767 00004 INHINT
062588,000619: 17,2770 55467 TS T6FURTHA +1
062589,000620: 17,2771 31737 CA POLYTEMP
062590,000621: 17,2772 51467 INDEX T6FURTHA +1
062591,000622: 17,2773 05745 TC WRITEP
|
|
Page 1449
|
062593,000624: 17,2774 31735 CA ABSTJ
062594,000625: 17,2775 55466 TS T6FURTHA
062595,000626: 17,2776 03046 TC JTLST # IN QR BANK BY NOW
062596,000627:
062597,000628: 17,2777 00003 RELINT
062598,000629:
062599,000630: 17,3000 34755 CA ZERO
062600,000631: 17,3001 51476 INDEX AXISCTR
062601,000632: 17,3002 55535 TS SKIPU
062602,000633:
062603,000634: 17,3003 46244 FEEDBACK CS THREE
062604,000635: 17,3004 61741 AD NUMBERT
062605,000636: 17,3005 00006 EXTEND
062606,000637: 17,3006 63011 BZMF +3
062607,000638:
062608,000639: 17,3007 34752 CA TWO
062609,000640: 17,3010 13012 TCF +2
062610,000641: 17,3011 34753 CA ONE
062611,000642: 17,3012 51476 INDEX AXISCTR
062612,000643: 17,3013 55522 TS NO.UJETS
062613,000644: 17,3014 12737 TCF LOOPER
062614,000645:
062615,000646: 17,3015 34755 XTRANS CA ZERO
062616,000647: 17,3016 55525 TS TJU
062617,000648: 17,3017 55526 TS TJV
062618,000649: 17,3020 34751 CA FOUR
062619,000650: 17,3021 00004 INHINT
062620,000651: 17,3022 57535 XCH SKIPU
062621,000652: 17,3023 00006 EXTEND
062622,000653: 17,3024 13026 BZF +2
062623,000654: 17,3025 05750 TC WRITEU -1
062624,000655: 17,3026 34751 CA FOUR
062625,000656: 17,3027 57536 XCH SKIPV
062626,000657: 17,3030 00003 RELINT
062627,000658:
062628,000659: 17,3031 00006 EXTEND
062629,000660: 17,3032 13173 BZF CLOSEOUT
062630,000661: 17,3033 00004 INHINT
062631,000662: 17,3034 05761 TC WRITEV -1
062632,000663: 17,3035 00003 RELINT
062633,000664:
062634,000665: 17,3036 13173 TCF CLOSEOUT
062635,000666: 17,3037 00004 INDEXES DEC 4 B-14
062636,000667: 17,3040 00015 DEC 13 B-14
062637,000668: 17,3041 00026 +TJMINT6 DEC 22 B-14
062638,000669: 17,3042 77417 -150MS DEC -240 B-14
062639,000670: 17,3043 00600 BIT8,9 OCT 00600
062640,000671: 17,3044 00266 SCLNORM OCT 266
062641,000672: 17,3045 02626 TJLAWADR GENADR TJLAW +3 # RETURN ADDRESS FOR RCS ATTITUDE CONTROL
062642,000673:
|
|
Page 1450
|
062644,000675: # THE JET LIST:
062645,000676: # THIS IS A WAITLIST FOR T6RUPTS.
062646,000677:
062647,000678: # CALLED BY:
062648,000679: # CA TJ TIME WHEN NEXT JETS WILL BE WRITTEN
062649,000680: # TS T6FURTHA
062650,000681: # CA INDEX AXIS TO BE WIRTTEN AT TJ (FROM NOW)
062651,000682: # TS T6FURTHA +1
062652,000683: # TC JTLST
062653,000684:
062654,000685: # EXAMPLE - U-AXIS AUTOPILOT WILL WRITE ITS ROTATION CODE OF
062655,000686: # JETS INTO CHANNEL 5. IF IT DESIRES TO TURN OFF THIS POLICY WITHIN
062656,000687: # 150MS AND THEN FIRE NEXTU, A CALL TO JTLST IS MADE WITH T6FURTHA
062657,000688: # CONTAINING THE TIME TO TURN OFF THE POLICY, T6FURTHA +1 THE INDEX
062658,000689: # OF THE U-AXIS(4), AND NEXTU WILL CONTAIN THE "U-TRANS" POLICY OR ZERO.
062659,000690:
062660,000691: # THE LIST IS EXACTLY 3 LONG. (THIS LEADS TO SKIP LOGIC AND 150MS LIMIT)
062661,000692: # THE INPUT IS THE LAST MEMBER OF THE LIST
062662,000693:
062663,000694: # RETURNS BY:
062664,000695: # + TC Q
062665,000696:
062666,000697: # DEFINITIONS: (OUTPUT)
062667,000698: # TIME6 TIME OF NEXT RUPT
062668,000699: # T6NEXT DELTA TIME TO NEXT RUPT
062669,000700: # T6FURTHA DELTA TIME FROM 2ND TO LAST RUPT
062670,000701: # NXT6ADR AXIS INDEX Q - P-AXIS
062671,000702: # T6NEXT +1 AXIS INDEX 4 - U-AXIS
062672,000703: # T6FURTHA +1 AXIS INDEX 13 - V-AXIS
062673,000704:
062674,000705: 17,3046 41466 JTLST CS T6FURTHA
062675,000706: 17,3047 60031 AD TIME6
062676,000707: 17,3050 00006 EXTEND
062677,000708: 17,3051 63063 BZMF MIDORLST # TIME6 - T IS IN A
062678,000709:
062679,000710: 17,3052 23463 LXCH NXT6ADR
062680,000711: 17,3053 53465 DXCH T6NEXT
062681,000712: 17,3054 53467 DXCH T6FURTHA
062682,000713: 17,3055 54031 TS TIME6
062683,000714: 17,3056 23463 LXCH NXT6ADR
062684,000715:
062685,000716: 17,3057 34735 TURNON CA BIT15
062686,000717: 17,3060 00006 EXTEND
062687,000718: 17,3061 05013 WOR CHAN13
062688,000719: 17,3062 00002 TC Q
062689,000720:
062690,000721: 17,3063 61464 MIDORLST AD T6NEXT
062691,000722: 17,3064 00006 EXTEND
062692,000723: 17,3065 63074 BZMF LASTCHG # TIME6 + T6NEXT - T IS IN A
062693,000724:
062694,000725: 17,3066 23465 LXCH T6NEXT +1
|
|
Page 1451
|
062696,000727: 17,3067 53467 DXCH T6FURTHA
062697,000728: 17,3070 00006 EXTEND
062698,000729: 17,3071 60031 SU TIME6
062699,000730: 17,3072 53465 DXCH T6NEXT
062700,000731:
062701,000732: 17,3073 00002 TC Q
062702,000733:
062703,000734: 17,3074 40000 LASTCHG CS A
062704,000735: 17,3075 64754 AD NEG0
062705,000736: 17,3076 55466 TS T6FURTHA
062706,000737:
062707,000738: 17,3077 00002 TC Q
062708,000739:
062709,000740: 17,3100 55735 ROT45DEG TS ROTEMP1
062710,000741: 17,3101 60001 AD L
062711,000742: 17,3102 55736 TS ROTEMP2
062712,000743: 17,3103 13111 TCF +6
062713,000744: 17,3104 10000 CCS A
062714,000745: 17,3105 34733 CA POSMAX
062715,000746: 17,3106 13110 TCF +2
062716,000747: 17,3107 34735 CA NEGMAX
062717,000748: 17,3110 55736 TS ROTEMP2 # Q+R
062718,000749: 17,3111 41735 CS ROTEMP1
062719,000750: 17,3112 60001 AD L
062720,000751: 17,3113 55735 TS ROTEMP1 # R-Q
062721,000752: 17,3114 13120 TCF +4
062722,000753: 17,3115 00006 EXTEND
062723,000754: 17,3116 74733 MP POSMAX
062724,000755: 17,3117 30001 CA L
062725,000756: 17,3120 00006 EXTEND
062726,000757: 17,3121 73127 MP .707
062727,000758: 17,3122 57736 XCH ROTEMP2
062728,000759: 17,3123 00006 EXTEND
062729,000760: 17,3124 73127 MP .707
062730,000761: 17,3125 23736 LXCH ROTEMP2
062731,000762: 17,3126 00002 TC Q
062732,000763:
062733,000764: 17,3127 26501 .707 DEC .70711
062734,000765:
062735,000766: 17,3130 51742 SELCTSUB INDEX ROTINDEX
062736,000767: 17,3131 33162 CA ALLJETS
062737,000768: 17,3132 51741 INDEX NUMBERT
062738,000769: 17,3133 73166 MASK TYPEPOLY
062739,000770: 17,3134 55737 TS POLYTEMP
062740,000771:
062741,000772: 17,3135 71262 MASK CH5MASK
062742,000773: 17,3136 10000 CCS A
062743,000774: 17,3137 13141 TCF +2
|
|
Page 1452
|
062745,000776: 17,3140 00002 TC Q
062746,000777:
062747,000778: 17,3141 36244 CA THREE
062748,000779: 17,3142 55741 FAILOOP TS NUMBERT
062749,000780: 17,3143 51742 INDEX ROTINDEX
062750,000781: 17,3144 33162 CA ALLJETS
062751,000782: 17,3145 51741 INDEX NUMBERT
062752,000783: 17,3146 73166 MASK TYPEPOLY
062753,000784: 17,3147 55737 TS POLYTEMP
062754,000785: 17,3150 71262 MASK CH5MASK
062755,000786: 17,3151 00006 EXTEND
062756,000787: 17,3152 13140 BZF FAILOOP -2
062757,000788: 17,3153 11741 CCS NUMBERT
062758,000789: 17,3154 13142 TCF FAILOOP
062759,000790: 17,3155 51476 INDEX AXISCTR
062760,000791: 17,3156 55525 TS TJU
062761,000792: 17,3157 05567 TC ALARM
062762,000793: 17,3160 02004 OCT 02004
062763,000794: 17,3161 12731 TCF NOROTAT
062764,000795: 17,3162 00110 ALLJETS OCT 00110 # -U 6 13
062765,000796: 17,3163 00022 OCT 00022 # -V 2 9
062766,000797: 17,3164 00204 OCT 00204 # +U 5 14
062767,000798: 17,3165 00041 OCT 00041 # +V 1 10
062768,000799: 17,3166 00125 TYPEPOLY OCT 00125 # -X 1 5 9 13
062769,000800: 17,3167 00252 OCT 00252 # +X 2 6 10 14
062770,000801: 17,3170 00146 OCT 00146 # A 2 5 10 13
062771,000802: 17,3171 00231 OCT 00231 # B 1 6 9 14
062772,000803: 17,3172 00377 OCT 00377 # ALL 1 2 5 6 9 10 13 14
062773,000804:
062774,000805: # THE FOLLOWING SETS THE INTERRUPT FLIP-FLOP AS SOON AS POSSIBLE, WHICH PERMITS A RETURN TO THE INTERRUPTED JOB.
062775,000806:
062776,000807: 17,3173 33175 CLOSEOUT CA ADRRUPT
062777,000808: 17,3174 07753 TC MAKERUPT
062778,000809:
062779,000810: 17,3175 03176 ADRRUPT ADRES ENDJASK
062780,000811:
062781,000812: 17,3176 53752 ENDJASK DXCH DAPARUPT
062782,000813: 17,3177 52011 DXCH ARUPT
062783,000814: 17,3200 53754 DXCH DAPBQRPT
062784,000815: 17,3201 56017 XCH BRUPT
062785,000816: 17,3202 22002 LXCH Q
062786,000817: 17,3203 34735 CAF NEGMAX # NEGATIVE DAPZRUPT SIGNALS JASK IS OVER.
062787,000818: 17,3204 53756 DXCH DAPZRUPT
062788,000819: 17,3205 52016 DXCH ZRUPT
062789,000820: 17,3206 15272 TCF NOQRSM
062790,000821: 7753 BLOCK 3
062791,000822: 6000 SETLOC FFTAG6
062792,000823: 6000 BANK
|
|
Page 1453
|
062794,000825: 7753 COUNT* $$/DAP
062795,000826:
062796,000827: 7753 00006 MAKERUPT EXTEND
062797,000828: 7754 07753 EDRUPT MAKERUPT
062798,000829:
End of include-file Q,R-AXES_RCS_AUTOPILOT.agc. Parent file is MAIN.agc