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,1968Note that the date is the date of the printout, not the date of the program revision. |
061443,000002: ## Copyright: Public domain.
061444,000003: ## Filename: P-AXIS_RCS_AUTOPILOT.agc
061445,000004: ## Purpose: The main source file for Luminary revision 069.
061446,000005: ## It is part of the source code for the original release
061447,000006: ## of the flight software for the Lunar Module's (LM) Apollo
061448,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
061449,000008: ## version was Luminary 69 revision 2, which included a
061450,000009: ## newer lunar gravity model and only affected module 2.
061451,000010: ## This file is intended to be a faithful transcription, except
061452,000011: ## that the code format has been changed to conform to the
061453,000012: ## requirements of the yaYUL assembler rather than the
061454,000013: ## original YUL assembler.
061455,000014: ## Reference: pp. 1416-1435
061456,000015: ## Assembler: yaYUL
061457,000016: ## Contact: Ron Burkey <info@sandroid.org>.
061458,000017: ## Website: www.ibiblio.org/apollo/index.html
061459,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
061460,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
061461,000020: ## 2017-01-05 RRB Updated for Luminary 69.
061462,000021: ## 2017-01-22 HG Add a "D" to opernad +8 -> +8D.
061463,000022: ## Should actually be changed in yaYul but it might be the only case of this
061464,000023: ## kind in the existing code
061465,000024: ## 2017-01-22 HG Fix operand DAPTREG4 -> ITEMP1
061466,000025: ## 2017-01-28 MAS Removed the +8D workaround.
061467,000026: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
061468,000027: ## but no errors found.
061469,000028: ## 2017-03-14 RSB Comment-text fixes noted in proofing Luminary 116.
061470,000029: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
061471,000030: ## side-by-side diff of Luminary 69/99/116/131/210.
061472,000031:
![]() |
Page 1416 |
061474,000033: 16,2210 BANK 16
061475,000034: 16,2000 SETLOC DAPS1
061476,000035: 16,2000 BANK
061477,000036:
061478,000037: 16,2210 E6,1462 EBANK= PERROR
061479,000038: 16,2210 COUNT* $$/DAPP
061480,000039:
061481,000040: # THE FOLLOWING T5RUPT ENTRY BEGINS THE PROGRAM WHICH CONTROLS THE P-AXIS ACTION OF THE LEM USING THE RCS JETS.
061482,000041: # THE NOMINAL TIME BETWEEN THE P-AXIS RUPTS IS 100 MS IN ALL NON-IDLING MODES OF THE DAP.
061483,000042:
061484,000043: 16,2210 37726 PAXIS CA MS100
061485,000044: 16,2211 26030 ADS TIME5 # *** NECESSARY IN ORDER TO ALLOW SYN-
061486,000045: # CHRONIZATION WITH OTHER INTERRUPTS ***
061487,000046:
061488,000047: 16,2212 22016 LXCH BANKRUPT # INTERRUPT LEAD IN (CONTINUED)
061489,000048: 16,2213 00006 EXTEND
061490,000049: 16,2214 22012 QXCH QRUPT
061491,000050:
061492,000051: # CHECK IF DAP PASS IS PERMISSIBLE
061493,000052:
061494,000053: 16,2215 11755 CCS DAPZRUPT # IF DAPZRUPT POSITIVE, DAP (JASK) IS
061495,000054: 16,2216 05634 TC BAILOUT # STILL IN PROGRESS AND A RESTART IS
061496,000055: 16,2217 02000 OCT 02000 # CALLED FOR. IT IS NEVER ZERO.
061497,000056:
061498,000057: 16,2220 02000 TC CHEKBITS # RETURN IS TO I+1 IF DAP SHOULD STAY ON.
061499,000058:
061500,000059: # ***** KALCMANU-DAP AND "RATE-HOLD"-DAP INTERFACE *****
061501,000060:
061502,000061: # THE FOLLOWING SECTION IS EXECUTED EVERY 100 MS (10 TIMES A SECOND) WITHIN THE P-AXIS REACTION CONTROL SYSTEM
061503,000062: # AUTOPILOT (WHENEVER THE DAP IS IN OPERATION).
061504,000063:
061505,000064: 16,2221 31633 CA CDUXD
061506,000065: 16,2222 00006 EXTEND
061507,000066: 16,2223 21636 MSU DELCDUX
061508,000067: 16,2224 02245 TC 1STOTWOS
061509,000068: 16,2225 55633 TS CDUXD
061510,000069: 16,2226 31634 CA CDUYD
061511,000070: 16,2227 00006 EXTEND
061512,000071: 16,2230 21637 MSU DELCDUY
061513,000072: 16,2231 02245 TC 1STOTWOS
061514,000073: 16,2232 55634 TS CDUYD
061515,000074: 16,2233 31635 CA CDUZD
061516,000075: 16,2234 00006 EXTEND
061517,000076: 16,2235 21640 MSU DELCDUZ
061518,000077: 16,2236 02245 TC 1STOTWOS
061519,000078: 16,2237 55635 TS CDUZD
061520,000079: 16,2240 00006 EXTEND # DIMINISH MANUAL CONTROL DIRECT RATE
061521,000080: 16,2241 27443 DIM TCP # TIME COUNTERS.
061522,000081: 16,2242 00006 EXTEND
061523,000082: 16,2243 27455 DIM TCQR
![]() |
Page 1417 |
061525,000084: # RATELOOP COMPUTES JETRATEQ, JETRATER, AND 1JACC*NO. PJETS IN ITEMP1.
061526,000085: # RETURNS TO BACKP.
061527,000086:
061528,000087: # JETRATE = 1JACC*NO.PJETS*TJP (NOTE TJ IS THE TIME FIRED DURING CSP)
061529,000088: # JETRATEQ = 1JACCQ(TJU*NO.UJETS - TJV*NO.VJETS)
061530,000089: # JETRATER = 1JACCR(TJU*NO.UJETS + TJV*NO.VJETS)
061531,000090:
061532,000091: 16,2244 13624 TCF RATELOOP
061533,000092: 16,2245 10000 1STOTWOS CCS A
061534,000093: 16,2246 64753 AD ONE
061535,000094: 16,2247 00002 TC Q
061536,000095: 16,2250 40000 CS A
061537,000096: 16,2251 00002 TC Q
061538,000097: 16,2252 00006 SUBDIVDE EXTEND # OVERFLOW PROCTION ROUTINE TO GIVE
061539,000098: 16,2253 71737 MP DAPTEMP3 # POSMAX OR NEGMAX IF THE DIVIDE WOULD
061540,000099: 16,2254 21425 DAS OMEGAU # OVERFLOW
061541,000100:
061542,000101: 16,2255 00006 +3 EXTEND
061543,000102: 16,2256 31425 DCA OMEGAU
061544,000103: 16,2257 53742 DXCH DAPTEMP5
061545,000104: 16,2260 11424 CCS OMEGAU
061546,000105: 16,2261 12263 TCF +2
061547,000106: 16,2262 12273 TCF DIVIDER
061548,000107: 16,2263 62304 AD -OCT630
061549,000108: 16,2264 00006 EXTEND
061550,000109: 16,2265 62273 BZMF DIVIDER
061551,000110:
061552,000111: 16,2266 11424 CCS OMEGAU
061553,000112: 16,2267 34733 CA POSMAX # 45 DEG/SEC
061554,000113: 16,2270 00002 TC Q
061555,000114: 16,2271 44733 CS POSMAX
061556,000115: 16,2272 00002 TC Q
061557,000116:
061558,000117: 16,2273 53425 DIVIDER DXCH OMEGAU
061559,000118: 16,2274 00006 EXTEND
061560,000119: 16,2275 10061 DV ITEMP1
061561,000120: 16,2276 00002 TC Q
061562,000121:
061563,000122: 16,2277 54007 OVERSUB TS 7 # RETURNS A UNCHANGED OR LIMITED TO
061564,000123: 16,2300 00002 TC Q # POSMAX OR NEGMAX IF A HAS OVERFLOW
061565,000124: 16,2301 50000 INDEX A
061566,000125: 16,2302 44734 CS BIT15 -1
061567,000126: 16,2303 00002 TC Q
061568,000127:
061569,000128: 16,2304 77147 -OCT630 OCT 77147
061570,000129:
061571,000130: 16,2305 31735 BACKP CA DAPTEMP1
061572,000131: 16,2306 00006 EXTEND
![]() |
Page 1418 |
061574,000133: 16,2307 71530 MP 1JACC
061575,000134: 16,2310 55743 TS JETRATE
061576,000135:
061577,000136: # BEGINNING OF THE RATE DERIVATION
061578,000137: # OMEGAP,Q,R BODY RATES SCALED AT PI/4
061579,000138: # TRAPER,Q,R BODY ANGLE ERRORS FROM PREDICTED ANGLE (PI/40)
061580,000139: # NP(QR)TRAPS NUMBER OF TIMES ANGLE ERROR HAS BEEN ACCUMULATED
061581,000140: # AOSQ(R)TERM CHANGE IN RATE DUE TO OFFSET ACCELLERATION. (PI/4)
061582,000141: # JETRATE,Q,R CHANGE IN RATE DUE TO JET ACCELLERATION. (PI/4)
061583,000142: # TRAPSIZE NEGATIVE LIMIT OF MAGNITUDE OF TRAPEDP, ECT.
061584,000143: # OMEGAU DP-TEMPORARY STORAGE
061585,000144: # OMEGA = OMEGA + JETRATE + AOSTERM (+TRAPED/NTRAPS IF TRAPED BIG)
061586,000145:
061587,000146: 16,2311 30032 CAE CDUX
061588,000147: 16,2312 54001 TS L
061589,000148: 16,2313 00006 EXTEND
061590,000149: 16,2314 21436 MSU OLDXFORP # SCALED AT PI
061591,000150: 16,2315 23436 LXCH OLDXFORP
061592,000151: 16,2316 55735 TS DAPTEMP1
061593,000152: 16,2317 33603 CA 1/40
061594,000153: 16,2320 54061 TS ITEMP1
061595,000154: 16,2321 41743 CS JETRATE
061596,000155: 16,2322 00006 EXTEND
061597,000156: 16,2323 74736 MP BIT14
061598,000157: 16,2324 27426 ADS TRAPEDP
061599,000158: 16,2325 31744 CA JETRATEQ
061600,000159: 16,2326 61545 AD AOSQTERM
061601,000160: 16,2327 00006 EXTEND
061602,000161: 16,2330 77735 MP -BIT14
061603,000162: 16,2331 27427 ADS TRAPEDQ
061604,000163: 16,2332 31745 CA JETRATER
061605,000164: 16,2333 61546 AD AOSRTERM
061606,000165: 16,2334 00006 EXTEND
061607,000166: 16,2335 77735 MP -BIT14
061608,000167: 16,2336 27430 ADS TRAPEDR
061609,000168:
061610,000169: 16,2337 30033 CA CDUY
061611,000170: 16,2340 54001 TS L
061612,000171: 16,2341 00006 EXTEND
061613,000172: 16,2342 21437 MSU OLDYFORP # SCALED AT PI
061614,000173: 16,2343 23437 LXCH OLDYFORP
061615,000174: 16,2344 55736 TS DAPTEMP2
061616,000175: 16,2345 00006 EXTEND
061617,000176: 16,2346 71412 MP M11 # M11 SCALED AT 1
061618,000177: 16,2347 61735 AD DAPTEMP1
061619,000178: 16,2350 53425 DXCH OMEGAU
061620,000179:
061621,000180: 16,2351 02255 TC SUBDIVDE +3 # RETURNS WITH CDU-RATE AT PI/4
061622,000181:
061623,000182: 16,2352 00006 EXTEND
![]() |
Page 1419 |
061625,000184: 16,2353 61417 SU OMEGAP
061626,000185: 16,2354 27426 ADS TRAPEDP
061627,000186: 16,2355 02277 TC OVERSUB
061628,000187: 16,2356 55426 TS TRAPEDP
061629,000188: 16,2357 00006 EXTEND
061630,000189: 16,2360 31742 DCA DAPTEMP5
061631,000190: 16,2361 21445 DAS DXERROR
061632,000191: 16,2362 41452 CS PLAST
061633,000192: 16,2363 00006 EXTEND
061634,000193: 16,2364 73603 MP 1/40
061635,000194: 16,2365 21445 DAS DXERROR # MANUAL MODE X-ATTITUDE ERROR (DP)
061636,000195: 16,2366 30034 CA CDUZ
061637,000196: 16,2367 54001 TS L
061638,000197: 16,2370 00006 EXTEND
061639,000198: 16,2371 21440 MSU OLDZFORQ
061640,000199: 16,2372 55737 TS DAPTEMP3
061641,000200: 16,2373 23440 LXCH OLDZFORQ
061642,000201: 16,2374 31413 CA M21
061643,000202: 16,2375 00006 EXTEND
061644,000203: 16,2376 71736 MP DAPTEMP2
061645,000204: 16,2377 53425 DXCH OMEGAU
061646,000205: 16,2400 31415 CA M22
061647,000206: 16,2401 02252 TC SUBDIVDE
061648,000207:
061649,000208: 16,2402 00006 EXTEND
061650,000209: 16,2403 61420 SU OMEGAQ
061651,000210: 16,2404 27427 ADS TRAPEDQ
061652,000211: 16,2405 02277 TC OVERSUB
061653,000212: 16,2406 55427 TS TRAPEDQ
061654,000213: 16,2407 00006 EXTEND
061655,000214: 16,2410 31742 DCA DAPTEMP5
061656,000215: 16,2411 21447 DAS DYERROR
061657,000216: 16,2412 41453 CS QLAST
061658,000217: 16,2413 00006 EXTEND
061659,000218: 16,2414 73603 MP 1/40
061660,000219: 16,2415 21447 DAS DYERROR # MANUAL MODE Y-ATTITUDE ERROR (DP)
061661,000220: 16,2416 31414 CA M31
061662,000221: 16,2417 00006 EXTEND
061663,000222: 16,2420 71736 MP DAPTEMP2
061664,000223: 16,2421 53425 DXCH OMEGAU
061665,000224: 16,2422 31416 CA M32
061666,000225:
061667,000226: 16,2423 02252 TC SUBDIVDE
061668,000227:
061669,000228: 16,2424 00006 EXTEND
061670,000229: 16,2425 61421 SU OMEGAR
061671,000230: 16,2426 27430 ADS TRAPEDR
061672,000231: 16,2427 02277 TC OVERSUB
061673,000232: 16,2430 55430 TS TRAPEDR # TRAPEDS HAVE ALL BEEN COMPUTED
![]() |
Page 1420 |
061675,000234: 16,2431 00006 EXTEND
061676,000235: 16,2432 31742 DCA DAPTEMP5
061677,000236: 16,2433 21451 DAS DZERROR
061678,000237: 16,2434 41454 CS RLAST
061679,000238: 16,2435 00006 EXTEND
061680,000239: 16,2436 73603 MP 1/40
061681,000240: 16,2437 21451 DAS DZERROR # MANUAL MODE Z-ATTITUDE ERROR (DP)
061682,000241: 16,2440 30111 CA DAPBOOLS # PICK UP PAD LOADED STATE ESTIMATOR GAINS
061683,000242: 16,2441 74737 MASK CSMDOCKD
061684,000243: 16,2442 00006 EXTEND
061685,000244: 16,2443 12451 BZF LMONLY
061686,000245: 16,2444 00006 EXTEND # DOCKED
061687,000246: 16,2445 31405 DCA DKOMEGAN
061688,000247: 16,2446 52062 DXCH ITEMP1
061689,000248: 16,2447 31403 CA DKTRAP
061690,000249: 16,2450 12455 TCF +5
061691,000250: 16,2451 00006 LMONLY EXTEND # UNDOCKED
061692,000251: 16,2452 31410 DCA LMOMEGAN
061693,000252: 16,2453 52062 DXCH ITEMP1
061694,000253: 16,2454 31406 CA LMTRAP
061695,000254: 16,2455 54063 +5 TS ITEMP3
061696,000255:
061697,000256: 16,2456 11426 CCS TRAPEDP
061698,000257: 16,2457 12461 TCF +2
061699,000258: 16,2460 12476 TCF SMALPDIF
061700,000259: 16,2461 60063 AD ITEMP3 # TRAPSIZE > ABOUT 77001 %-1.4DEG/SEC"
061701,000260: 16,2462 00006 EXTEND
061702,000261: 16,2463 62476 BZMF SMALPDIF
061703,000262: 16,2464 22007 ZL
061704,000263: 16,2465 23426 LXCH TRAPEDP
061705,000264: 16,2466 34755 CA ZERO
061706,000265: 16,2467 00006 EXTEND
061707,000266: 16,2470 11431 DV NPTRAPS
061708,000267: 16,2471 27417 ADS OMEGAP
061709,000268: 16,2472 02277 TC OVERSUB
061710,000269: 16,2473 55417 TS OMEGAP
061711,000270: 16,2474 30061 CA ITEMP1 # ABOUT 10 OR 0 FOR DOCKED OR UNDOCKED
061712,000271: 16,2475 55431 TS NPTRAPS
061713,000272: 16,2476 25431 SMALPDIF INCR NPTRAPS
061714,000273: 16,2477 31743 P-RATE CA JETRATE
061715,000274: 16,2500 27417 ADS OMEGAP
061716,000275: 16,2501 02277 TC OVERSUB
061717,000276: 16,2502 55417 TS OMEGAP
061718,000277:
061719,000278: 16,2503 11427 CCS TRAPEDQ
061720,000279: 16,2504 12506 TCF +2
061721,000280: 16,2505 12533 TCF Q-RATE
061722,000281: 16,2506 60063 AD ITEMP3 # TRAPSIZE > ABOUT 77001 %-1.4DEG/SEC"
061723,000282: 16,2507 00006 EXTEND
061724,000283: 16,2510 62533 BZMF Q-RATE
![]() |
Page 1421 |
061726,000285: 16,2511 22007 ZL
061727,000286: 16,2512 23427 LXCH TRAPEDQ
061728,000287: 16,2513 34755 CA ZERO
061729,000288: 16,2514 00006 EXTEND
061730,000289: 16,2515 11432 DV NQTRAPS
061731,000290: 16,2516 55735 TS DAPTEMP1 # SAVE FOR OFFSET ESTIMATE
061732,000291: 16,2517 27420 ADS OMEGAQ
061733,000292: 16,2520 02277 TC OVERSUB
061734,000293: 16,2521 55420 TS OMEGAQ
061735,000294: 16,2522 30061 CA ITEMP1 # ABOUT 10 OR 0 FOR DOCKED OR UNDOCKED
061736,000295: 16,2523 57432 XCH NQTRAPS
061737,000296: 16,2524 60062 AD ITEMP2 # KAOS > ABOUT 60D %N/N_60"
061738,000297: 16,2525 57735 XCH DAPTEMP1
061739,000298: 16,2526 00006 EXTEND
061740,000299: 16,2527 74756 MP FIVE
061741,000300: 16,2530 00006 EXTEND
061742,000301: 16,2531 11735 DV DAPTEMP1
061743,000302: 16,2532 27537 ADS AOSQ
061744,000303: 16,2533 25432 Q-RATE INCR NQTRAPS
061745,000304: 16,2534 31744 CA JETRATEQ
061746,000305: 16,2535 61545 AD AOSQTERM
061747,000306: 16,2536 27420 ADS OMEGAQ
061748,000307: 16,2537 02277 TC OVERSUB
061749,000308: 16,2540 55420 TS OMEGAQ
061750,000309:
061751,000310: 16,2541 11430 CCS TRAPEDR
061752,000311: 16,2542 12544 TCF +2
061753,000312: 16,2543 12571 TCF R-RATE
061754,000313: 16,2544 60063 AD ITEMP3 # TRAPSIZE > ABOUT 77001 %-1.4DEG/SEC"
061755,000314: 16,2545 00006 EXTEND
061756,000315: 16,2546 62571 BZMF R-RATE
061757,000316: 16,2547 22007 ZL
061758,000317: 16,2550 23430 LXCH TRAPEDR
061759,000318: 16,2551 34755 CA ZERO
061760,000319: 16,2552 00006 EXTEND
061761,000320: 16,2553 11433 DV NRTRAPS
061762,000321: 16,2554 55736 TS DAPTEMP2 # SAVE FOR OFFSET ESTIMATE
061763,000322: 16,2555 27421 ADS OMEGAR
061764,000323: 16,2556 02277 TC OVERSUB
061765,000324: 16,2557 55421 TS OMEGAR
061766,000325: 16,2560 30061 CA ITEMP1 # ABOUT 10 OR 0 FOR DOCKED OR UNDOCKED
061767,000326: 16,2561 57433 XCH NRTRAPS
061768,000327: 16,2562 60062 AD ITEMP2 # KAOS > ABOUT 60D %N/N_60"
061769,000328: 16,2563 57736 XCH DAPTEMP2
061770,000329: 16,2564 00006 EXTEND
061771,000330: 16,2565 74756 MP FIVE
061772,000331: 16,2566 00006 EXTEND
061773,000332: 16,2567 11736 DV DAPTEMP2
061774,000333: 16,2570 27541 ADS AOSR
061775,000334: 16,2571 25433 R-RATE INCR NRTRAPS
![]() |
Page 1422 |
061777,000336: 16,2572 31745 CA JETRATER
061778,000337: 16,2573 61546 AD AOSRTERM
061779,000338: 16,2574 27421 ADS OMEGAR
061780,000339: 16,2575 02277 TC OVERSUB
061781,000340: 16,2576 55421 TS OMEGAR
061782,000341:
061783,000342: # END OF RATE DERIVATION
061784,000343: # BEGIN OFFSET ESTIMATER
061785,000344: # IN POWERED FLIGHT, AOSTASK WILL BE CALLED EVERY 2 SECONDS.
061786,000345: # AOS = AOS + K*SUMRATE
061787,000346:
061788,000347: 16,2577 40111 CS DAPBOOLS
061789,000348: 16,2600 74744 MASK DRIFTBIT
061790,000349: 16,2601 10000 CCS A
061791,000350: 16,2602 12613 TCF WORKTIME
061792,000351: 16,2603 55422 TS ALPHAQ # ZERO THE OFFSET ACCELERATION VALUES.
061793,000352: 16,2604 55423 TS ALPHAR
061794,000353: 16,2605 55545 TS AOSQTERM
061795,000354: 16,2606 55546 TS AOSRTERM
061796,000355: 16,2607 55537 TS AOSQ
061797,000356: 16,2610 55541 TS AOSR
061798,000357: 16,2611 12635 TCF PAXFILT
061799,000358: 16,2612 00074 KAOS DEC 60 B-14
061800,000359: 16,2613 31510 WORKTIME CA QACCDOT
061801,000360: 16,2614 00006 EXTEND
061802,000361: 16,2615 74766 MP CALLCODE # OCTAL 00032 IS DECIMAL .1 AT 2(6).
061803,000362: 16,2616 21540 DAS AOSQ
061804,000363: 16,2617 31537 CA AOSQ
061805,000364: 16,2620 55422 TS ALPHAQ
061806,000365: 16,2621 00006 EXTEND
061807,000366: 16,2622 73601 MP 200MS # .2 AT 1
061808,000367: 16,2623 55545 TS AOSQTERM
061809,000368: 16,2624 31512 CA RACCDOT
061810,000369: 16,2625 00006 EXTEND
061811,000370: 16,2626 74766 MP CALLCODE # OCTAL 00032 IS DECIMAL .1 AT 2(6).
061812,000371: 16,2627 21542 DAS AOSR
061813,000372: 16,2630 31541 CA AOSR
061814,000373: 16,2631 55423 TS ALPHAR
061815,000374: 16,2632 00006 EXTEND
061816,000375: 16,2633 73601 MP 200MS # .2 AT 1
061817,000376: 16,2634 55546 TS AOSRTERM
061818,000377:
061819,000378: 16,2635 34747 PAXFILT CA CALLGMBL # EXECUTE ACDT+C12, IF NEEDED.
061820,000379: 16,2636 71273 MASK RCSFLAGS
061821,000380: 16,2637 10000 CCS A # CALLGMBL IS NOT BIT15, SO THIS TEST IS
061822,000381: 16,2640 03721 TC ACDT+C12 # VALID.
![]() |
Page 1423 |
061824,000383: 16,2641 52011 DXCH ARUPT
061825,000384: 16,2642 53752 DXCH DAPARUPT
061826,000385: 16,2643 32654 CA SUPERJOB # SETTING UP THE SUPERJOB
061827,000386: 16,2644 56017 XCH BRUPT
061828,000387: 16,2645 22012 LXCH QRUPT
061829,000388: 16,2646 53754 DXCH DAPBQRPT
061830,000389: 16,2647 32653 CA SUPERADR
061831,000390: 16,2650 52016 DXCH ZRUPT
061832,000391: 16,2651 53756 DXCH DAPZRUPT
061833,000392: 16,2652 15275 TCF NOQBRSM +1 # RELINT (JUST IN CASE) AND RESUME, IN THE
061834,000393: # FORM OF A JASK, AT SUPERJOB.
061835,000394:
061836,000395: 16,2653 02655 SUPERADR GENADR SUPERJOB +1
061837,000396:
061838,000397: # COUNT DOWN GIMBAL DRIVE TIMERS AND TURN OFF DRIVES IF REQUIRED.
061839,000398:
061840,000399: 16,2654 11630 SUPERJOB CCS QGIMTIMR # Q-AXIS GIMBAL DRIVE TIMER
061841,000400: 16,2655 12667 TCF DECQTIMR # POSITIVE- COUNTING DOWN
061842,000401: 16,2656 12673 TCF TURNOFFQ # NEGATIVE- DRIVE SHOULD BE ENDED
061843,000402: 16,2657 11632 CHKRTIMR CCS RGIMTIMR # NEGATIVE- INACTIVE
061844,000403: 16,2660 12671 TCF DECRTIMR # (NEG ZERO - IMPOSSIBLE)
061845,000404: 16,2661 12703 TCF TURNOFFR # REPEATED (ABOVE) FOR R AXIS.
061846,000405:
061847,000406: 16,2662 34740 CA BIT12
061848,000407: 16,2663 71273 MASK RCSFLAGS
061849,000408: 16,2664 00006 EXTEND
061850,000409: 16,2665 12713 BZF SKIPPAXS
061851,000410: 16,2666 02717 TC CHKVISFZ
061852,000411: 16,2667 55630 DECQTIMR TS QGIMTIMR # COUNT TIMERS DOWN TO POS ZERO.
061853,000412: 16,2670 12657 TCF CHKRTIMR
061854,000413: 16,2671 55632 DECRTIMR TS RGIMTIMR
061855,000414: 16,2672 12662 TCF CHKRTIMR +3
061856,000415:
061857,000416: 16,2673 55500 TURNOFFQ TS NEGUQ # HALT DRIVES.
061858,000417: 16,2674 55510 TS QACCDOT
061859,000418: 16,2675 45007 CS QGIMBITS
061860,000419: 16,2676 00006 EXTEND
061861,000420: 16,2677 03012 WAND CHAN12
061862,000421: 16,2700 34735 CAF NEGMAX
061863,000422: 16,2701 55630 TS QGIMTIMR
061864,000423: 16,2702 12657 TCF CHKRTIMR
061865,000424: 16,2703 55502 TURNOFFR TS NEGUR
061866,000425: 16,2704 55512 TS RACCDOT
061867,000426: 16,2705 45020 CS RGIMBITS
061868,000427: 16,2706 00006 EXTEND
061869,000428: 16,2707 03012 WAND CHAN12
061870,000429: 16,2710 34735 CAF NEGMAX
061871,000430: 16,2711 55632 TS RGIMTIMR
061872,000431: 16,2712 12662 TCF CHKRTIMR +3
061873,000432: 16,2713 5007 QGIMBITS EQUALS OCT1400 # BITS 9 AND 10 (OF CHANNEL 12).
061874,000433: 16,2713 5020 RGIMBITS EQUALS PRIO6 # BITS 11 AND 12 (OF CHANNEL 12).
![]() |
Page 1424 |
061876,000435: 16,2713 41273 SKIPPAXS CS RCSFLAGS
061877,000436: 16,2714 74740 MASK BIT12
061878,000437: 16,2715 27273 ADS RCSFLAGS # BIT 12 SET TO 1.
061879,000438: 16,2716 13607 TCF QRAXIS # GO TO QRAXIS OR TO GTS.
061880,000439:
061881,000440: # Y-Z TRANSLATION
061882,000441:
061883,000442: # INPUT: BITS 9-12 OF CH31 (FROM TRANSLATION CONTROLER)
061884,000443:
061885,000444: # OUTPUT: NEXTP
061886,000445:
061887,000446: # NEXTP IS THE CHANNEL 6 CODE OF JETS FOR THE DESIRED TRANSLATION.
061888,000447: # IF THERE ARE FAILURES IN THE DESIRED POLICY, THEN
061889,000448: # (1) FOR DIAGONAL TRANS: UNFAILED PAIR
061890,000449: # ALARM (IF NO PAIR)
061891,000450: # (2) FOR PRINCIPAL TRANS: TRY TO TACK WITH DIAGONAL PAIRS
061892,000451: # ALARM (IF DIAGONAL PAIRS ARE FAILED)
061893,000452:
061894,000453: 16,2717 00006 CHKVISFZ EXTEND
061895,000454: 16,2720 00031 READ CHAN31
061896,000455: 16,2721 40000 CS A
061897,000456: 16,2722 73576 MASK 07400OCT
061898,000457: 16,2723 00006 EXTEND
061899,000458: 16,2724 12773 BZF TSNEXTP
061900,000459: 16,2725 00006 EXTEND
061901,000460: 16,2726 74745 MP BIT7
061902,000461: 16,2727 50000 INDEX A
061903,000462: 16,2730 33555 CA INDXYZ
061904,000463: 16,2731 55742 TS ROTINDEX
061905,000464: 16,2732 36241 TRYUORV CA SIX
061906,000465: 16,2733 03534 TC SELECTYZ
061907,000466: 16,2734 46241 CS SIX
061908,000467: 16,2735 61741 AD NUMBERT
061909,000468: 16,2736 00006 EXTEND
061910,000469: 16,2737 12772 BZF TSNEXTP -1
061911,000470: 16,2740 44756 CS FIVE
061912,000471: 16,2741 61742 AD ROTINDEX
061913,000472: 16,2742 00006 EXTEND
061914,000473: 16,2743 62761 BZMF ALTERYZ
061915,000474: 16,2744 41741 CS NUMBERT
061916,000475: 16,2745 64751 AD FOUR
061917,000476: 16,2746 00006 EXTEND
061918,000477: 16,2747 62772 BZMF TSNEXTP -1
061919,000478: 16,2750 05567 ABORTYZ TC ALARM
061920,000479: 16,2751 02001 OCT 02001
061921,000480: 16,2752 34753 CA BIT1 # INVERT BIT 1 OF RCSFLAGS.
061922,000481: 16,2753 23273 LXCH RCSFLAGS
061923,000482: 16,2754 00006 EXTEND
061924,000483: 16,2755 06001 RXOR 1
![]() |
Page 1425 |
061926,000485: 16,2756 55273 TS RCSFLAGS
061927,000486: 16,2757 34755 CA ZERO
061928,000487: 16,2760 12773 TCF TSNEXTP
061929,000488: 16,2761 34753 ALTERYZ CA BIT1 # INVERT BIT 1 OF RCSFLAGS.
061930,000489: 16,2762 23273 LXCH RCSFLAGS
061931,000490: 16,2763 00006 EXTEND
061932,000491: 16,2764 06001 RXOR 1
061933,000492: 16,2765 55273 TS RCSFLAGS
061934,000493: 16,2766 74753 MASK BIT1
061935,000494: 16,2767 64751 AD FOUR
061936,000495: 16,2770 27742 ADS ROTINDEX
061937,000496: 16,2771 12732 TCF TRYUORV
061938,000497: 16,2772 31737 CA POLYTEMP
061939,000498: 16,2773 55470 TSNEXTP TS NEXTP
061940,000499:
061941,000500: # STATE LOGIC
061942,000501: # CHECK IN ORDER: IF ON
061943,000502: # LPDPHASE GO TO PURGENCY
061944,000503: # PULSES MINIMUM PULSE LOGIC
061945,000504: # DETENT(BIT15 CH31) RATE COMMAND
061946,000505: # GO TO PURGENCY
061947,000506:
061948,000507: 16,2774 34737 CA BIT13 # CHECK STICK IF IN ATT. HOLD.
061949,000508: 16,2775 00006 EXTEND
061950,000509: 16,2776 02031 RAND CHAN31
061951,000510: 16,2777 00006 EXTEND
061952,000511: 16,3000 13006 BZF MANMODE
061953,000512:
061954,000513: 16,3001 30111 CA DAPBOOLS
061955,000514: 16,3002 74743 MASK XOVINHIB
061956,000515: 16,3003 10000 CCS A
061957,000516: 16,3004 13442 TCF PURGENCY # ATTITUDE STEER DURING VISIBILITY PHASE
061958,000517:
061959,000518: 16,3005 13050 TCF DETENTCK
061960,000519: 16,3006 34735 MANMODE CA PULSES # PULSES IS ONE FOR PULSE MODE
061961,000520: 16,3007 70111 MASK DAPBOOLS
061962,000521: 16,3010 00006 EXTEND
061963,000522: 16,3011 13050 BZF DETENTCK # BRANCH FOR RATE COMMAND
061964,000523:
061965,000524: 16,3012 34755 CA ZERO
061966,000525: 16,3013 55462 TS PERROR
061967,000526:
061968,000527: # MINIMUM IMPULSE MODE
061969,000528:
061970,000529: 16,3014 30032 CA CDUX
061971,000530: 16,3015 55633 TS CDUXD
061972,000531:
061973,000532: 16,3016 11456 CCS OLDPMIN
061974,000533: 16,3017 13033 TCF CHECKP
061975,000534:
061976,000535: 16,3020 34751 FIREP CA BIT3
061977,000536: 16,3021 00006 EXTEND
![]() |
Page 1426 |
061979,000538: 16,3022 02031 RAND CHAN31
061980,000539: 16,3023 00006 EXTEND
061981,000540: 16,3024 13043 BZF +XMIN
061982,000541:
061983,000542: 16,3025 34750 CA BIT4
061984,000543: 16,3026 00006 EXTEND
061985,000544: 16,3027 02031 RAND CHAN31
061986,000545: 16,3030 00006 EXTEND
061987,000546: 16,3031 13041 BZF -XMIN
061988,000547:
061989,000548: 16,3032 13421 TCF JETSOFF
061990,000549:
061991,000550: 16,3033 00006 CHECKP EXTEND
061992,000551: 16,3034 00031 READ CHAN31
061993,000552: 16,3035 40000 CS A
061994,000553: 16,3036 75742 MASK OCT14
061995,000554: 16,3037 55456 TS OLDPMIN
061996,000555: 16,3040 13421 TCF JETSOFF
061997,000556:
061998,000557: 16,3041 44363 -XMIN CS TEN # ANYTHING LESS THAN 14MS. CORRECTED
061999,000558: 16,3042 13044 TCF +2 # IN JET SELECTION ROUTINE
062000,000559: 16,3043 34363 +XMIN CA TEN
062001,000560: 16,3044 55524 TS TJP
062002,000561: 16,3045 34753 CA ONE
062003,000562: 16,3046 55456 TS OLDPMIN
062004,000563: 16,3047 13327 TCF PJETSLEC -6
062005,000564:
062006,000565: # MANUAL RATE COMMAND MODE
062007,000566: # ========================
062008,000567: # BY ROBERT F. STENGEL
062009,000568:
062010,000569: # THIS MODE PROVIDES RCAH MANUAL CONTROL THRU 2 CONTROL LAWS: 1) DIRECT RATE AND 2) PSEUDO-AUTO.
062011,000570: # THE DIRECT RATE MODE AFFORDS IMMEDIATE CONTROL WITHOUT OVERSHOOT. THE PSEUDO-AUTO MODE PROVIDES PRECISE
062012,000571: # RATE CONTROL AND ATTITUDE HOLD.
062013,000572:
062014,000573: # IN DIRECT RATE, JETS ARE FIRED WHEN STICK POSITION CHANGES BY A FIXED NUMBER OF INCREMENTS IN ONE DAP CYCLE.
062015,000574: # THE 'BREAKOUT LEVEL' IS .6 D/S FOR LM-ONLY AND .3 D/S FOR CSM-DOCKED. THIS LAW NULLS THE RATE ERROR TO WITHIN
062016,000575: # THE 'TARGET DEADBAND', WHICH EQUALS THE BREAKOUT LEVEL.
062017,000576: # IN PSEUDO-AUTO, BODY-FIXED RATE AND ATTITUDE ERRORS ARE SUPPLIED TO TJETLAW, WHICH EXERCISES CONTROL.
062018,000577: # CONTROL SWITCHES FROM DIRECT RATE TO PSEUDO-AUTO IF THE TARGET DB IS ACHIEVED OR IF TIME IN (1) EXCEEDS 4 SEC.
062019,000578: # IF THE INITIAL COMMAND DOES NOT EXCEED THE BREAKOUT LEVEL, CONTROL GOES TO PSEUDO-AUTO IMMEDIATELY.
062020,000579:
062021,000580: # SINCE P-AXIS CONTROL IS SEPARATE FROM Q,R AXES CONTROL, IT IS POSSIBLE TO USE (1) IN P-AXIS AND (2) IN Q,R AXES,
062022,000581: # OR VICE VERSA. THIS ALLOWS A DEGREE OF ATTITUDE HOLD IN UNCONTROLLED AXES. DUE TO U,V CONTROL, HOWEVER, Q AND
062023,000582: # R AXES ARE COUPLED AND MUST USE THE SAME CONTROL LAW.
062024,000583:
062025,000584: # HAND CONTROLLER COMMANDS ARE SCALED BY A LINEAR/QUADRATIC LAW. FOR THE LM-ALONE, MAXIMUM COMMANDED RATES ARE 20
062026,000585: # AND 4 D/S IN NORMAL AND FINE SCALING; HOWEVER, STICK SENSITIVITY AT ZERO COUNTS (OBTAINED AT A STICK DEFLECTION
062027,000586: # OF 2 DEGREES FROM THE CENTERED POSITION) IS .5 OR .1 D/S PER DEGREE. NORMAL AND FINE SCALINGS FOR THE CSM-DOCKED
062028,000587: # CASE IS AUTOMATICALLY SET TO 1/10 THE ABOVE VALUES. SCALING IS DETERMINED IN ROUTINE 3.
![]() |
Page 1427 |
062030,000589: # ZEROENBL ENABLES COUNTERS SO THEY CAN BE READ NEXT TIME
062031,000590: # JUSTOUT FIRST DETECTION OF OUT OF DETENT (BY OURRCBIT)
062032,000591:
062033,000592: 16,3050 00006 DETENTCK EXTEND
062034,000593: 16,3051 00031 READ CHAN31
062035,000594: 16,3052 55441 TS CH31TEMP
062036,000595: 16,3053 74735 MASK BIT15 # CHECK OUT-OF-DETENT BIT.
062037,000596: 16,3054 00006 EXTEND
062038,000597: 16,3055 13202 BZF RHCMOVED # BRANCH IF OUT OF DETENT.
062039,000598: 16,3056 34740 CAF OURRCBIT # IN DETENT. CHECK THE RATE COMMAND BIT.
062040,000599: 16,3057 70111 MASK DAPBOOLS
062041,000600: 16,3060 00006 EXTEND
062042,000601: 16,3061 13442 BZF PURGENCY # BRANCH IF NOT IN RATE COMMAND LAST PASS.
062043,000602:
062044,000603: # ........................................................................
062045,000604:
062046,000605: 16,3062 34743 CA BIT9 # JUST IN DETENT??
062047,000606: 16,3063 71273 MASK RCSFLAGS
062048,000607: 16,3064 00006 EXTEND
062049,000608: 16,3065 13077 BZF RUTH
062050,000609: 16,3066 34737 CAF BIT13 # CHECK FOR ATTITUDE HOLD.
062051,000610: 16,3067 00006 EXTEND
062052,000611: 16,3070 02031 RAND CHAN31
062053,000612: 16,3071 00006 EXTEND
062054,000613: 16,3072 13177 BZF RATEDAMP # BRANCH IF IN ATTITUDE HOLD.
062055,000614:
062056,000615: 16,3073 45014 CS BITS9,11 # IN AUTO.
062057,000616: 16,3074 71273 MASK RCSFLAGS # (X-AXIS OVERRIDE)
062058,000617: 16,3075 55273 TS RCSFLAGS # ZERO ORBIT (BIT 11) AND JUST-IN BIT (9).
062059,000618: 16,3076 13177 TCF RATEDAMP
062060,000619:
062061,000620: 16,3077 31273 RUTH CA RCSFLAGS
062062,000621: 16,3100 74742 MASK PBIT # IN ATTITUDE HOLD.
062063,000622: 16,3101 00006 EXTEND
062064,000623: 16,3102 13104 BZF +2 # BRANCH IF P-RATE DAMPING IS FINISHED.
062065,000624: 16,3103 13177 TCF RATEDAMP
062066,000625: 16,3104 31273 CA RCSFLAGS
062067,000626: 16,3105 74741 MASK QRBIT
062068,000627: 16,3106 00006 EXTEND
062069,000628: 16,3107 13115 BZF RATEDONE # BRANCH IF Q,R RATE DAMPING IS FINISHED.
062070,000629: 16,3110 13177 TCF RATEDAMP
062071,000630:
062072,000631: # ============================================
062073,000632:
062074,000633: 16,3111 00001 1/10SEC OCT 1
062075,000634: 16,3112 00050 40CYC OCT 50
062076,000635: 16,3113 74777 PQRBIT OCT 74777
062077,000636: 16,3114 5014 BITS9,11 EQUALS EBANK5
062078,000637: 16,3114 00056 LINRATP DEC 46 B-14
062079,000638:
062080,000639: # ============================================
062081,000640:
062082,000641: 16,3115 44740 RATEDONE CS OURRCBIT # MANUAL COMMAND AND DAMPING COMPLETED IN
062083,000642: 16,3116 00004 INHINT # ALL AXES.
062084,000643: 16,3117 70111 MASK DAPBOOLS
![]() |
Page 1428 |
062086,000645: 16,3120 54111 TS DAPBOOLS
062087,000646:
062088,000647: # READ CDUS INTO CDU DESIRED REGISTERS
062089,000648:
062090,000649: 16,3121 34737 CAF BIT13
062091,000650: 16,3122 00006 EXTEND
062092,000651: 16,3123 02031 RAND CHAN31
062093,000652: 16,3124 00006 EXTEND
062094,000653: 16,3125 13131 BZF +4
062095,000654: 16,3126 30032 CA CDUX # (X-AXIS OVERRIDE)
062096,000655: 16,3127 55633 TS CDUXD
062097,000656: 16,3130 03133 TC +3
062098,000657: 16,3131 04674 TC IBNKCALL
062099,000658: 16,3132 40153 FCADR ZATTEROR
062100,000659: 16,3133 00003 RELINT
062101,000660: 16,3134 13442 TCF PURGENCY
062102,000661:
062103,000662: 16,3135 55462 TS PERROR
062104,000663: 16,3136 34740 JUSTOUT CA OURRCBIT # INITIALIZATION - FIRST MANUAL PASS.
062105,000664: 16,3137 26111 ADS DAPBOOLS
062106,000665: 16,3140 34755 CA ZERO
062107,000666: 16,3141 55444 TS DXERROR
062108,000667: 16,3142 55445 TS DXERROR +1
062109,000668: 16,3143 55446 TS DYERROR
062110,000669: 16,3144 55447 TS DYERROR +1
062111,000670: 16,3145 55450 TS DZERROR
062112,000671: 16,3146 55451 TS DZERROR +1
062113,000672: 16,3147 55452 TS PLAST
062114,000673: 16,3150 55453 TS QLAST
062115,000674: 16,3151 55454 TS RLAST
062116,000675: 16,3152 54042 TS Q-RHCCTR
062117,000676: 16,3153 54044 TS R-RHCCTR
062118,000677: 16,3154 33113 CA PQRBIT
062119,000678: 16,3155 71273 MASK RCSFLAGS
062120,000679: 16,3156 55273 TS RCSFLAGS # BITS 10 AND 11 OF RCSFLAGS ARE 0.
062121,000680: 16,3157 41273 CS RCSFLAGS # SET 'JUST-IN' BIT TO 1.
062122,000681: 16,3160 74743 MASK BIT9
062123,000682: 16,3161 27273 ADS RCSFLAGS
062124,000683: 16,3162 03164 TC ZEROENBL
062125,000684: 16,3163 13421 TCF JETSOFF
062126,000685: 16,3164 22044 ZEROENBL LXCH R-RHCCTR
062127,000686: 16,3165 30042 CA Q-RHCCTR
062128,000687: 16,3166 53461 DXCH SAVEHAND
062129,000688: 16,3167 34755 CA ZERO
062130,000689: 16,3170 54043 TS P-RHCCTR
062131,000690: 16,3171 54042 TS Q-RHCCTR
062132,000691: 16,3172 54044 TS R-RHCCTR
062133,000692: 16,3173 33602 CA BITS8,9
062134,000693: 16,3174 00006 EXTEND
062135,000694: 16,3175 05013 WOR CHAN13 # COUNTERS ZEROED AND ENABLED
![]() |
Page 1429 |
062137,000696: 16,3176 00002 TC Q
062138,000697: 16,3177 34755 RATEDAMP CA ZERO
062139,000698: 16,3200 54043 TS P-RHCCTR
062140,000699: 16,3201 13206 TCF RATERROR
062141,000700:
062142,000701: 16,3202 34740 RHCMOVED CA OURRCBIT # P CONTROL
062143,000702: 16,3203 70111 MASK DAPBOOLS
062144,000703: 16,3204 00006 EXTEND
062145,000704: 16,3205 13135 BZF JUSTOUT -1
062146,000705: 16,3206 30032 RATERROR CA CDUX # FINDCDUW REQUIRES THAT CDUXD=CDUX DURING
062147,000706: 16,3207 55633 TS CDUXD # X-AXIS OVERRIDE
062148,000707: 16,3210 10043 CCS P-RHCCTR
062149,000708: 16,3211 13214 TCF +3
062150,000709: 16,3212 13214 TCF +2
062151,000710: 16,3213 13214 TCF +1
062152,000711: 16,3214 60000 DOUBLE # LINEAR/QUADRATIC CONTROLLER SCALING
062153,000712: 16,3215 60000 DOUBLE # (SEE EXPLANATION IN Q,R-AXES RCS
062154,000713: 16,3216 63114 AD LINRATP # AUTOPILOT)
062155,000714: 16,3217 00006 EXTEND
062156,000715: 16,3220 70043 MP P-RHCCTR
062157,000716: 16,3221 30001 CA L
062158,000717: 16,3222 00006 EXTEND
062159,000718: 16,3223 71442 MP STIKSENS
062160,000719: 16,3224 57452 XCH PLAST
062161,000720: 16,3225 40000 COM
062162,000721: 16,3226 61452 AD PLAST
062163,000722: 16,3227 55735 TS DAPTEMP1
062164,000723: 16,3230 03164 TC ZEROENBL # INTERVAL. ZERO AND ENABLE ACA COUNTERS.
062165,000724: 16,3231 41452 CS PLAST
062166,000725: 16,3232 61417 AD OMEGAP
062167,000726: 16,3233 55425 TS EDOTP
062168,000727: 16,3234 11735 CCS DAPTEMP1 # IF P COMMAND CHANGE EXCEEDS BREAKOUT
062169,000728: 16,3235 13240 TCF +3 # LEVEL, GO TO DIRECT RATE CONTROL. IF NOT
062170,000729: 16,3236 13246 TCF +8 # CHECK FOR DIRECT RATE CONTROL LAST TIME.
062171,000730: 16,3237 13240 TCF +1
062172,000731: 16,3240 61474 AD -RATEDB
062173,000732: 16,3241 00006 EXTEND
062174,000733: 16,3242 63246 BZMF +4
062175,000734: 16,3243 33112 CA 40CYC
062176,000735: 16,3244 55443 TS TCP
062177,000736: 16,3245 03257 TC PEGI
062178,000737: 16,3246 31273 CA RCSFLAGS # CHECK FOR DIRECT RATE COMMAND LAST TIME.
062179,000738: 16,3247 74742 MASK PBIT
062180,000739: 16,3250 00006 EXTEND
062181,000740: 16,3251 13253 BZF +2
062182,000741: 16,3252 03257 TC PEGI # TO PURE RATE COMMAND
062183,000742: 16,3253 31444 CA DXERROR # PSEUDO-AUTO CONTROL.
062184,000743: 16,3254 55750 TS E # X-ATTITUDE ERROR (SP)
062185,000744: 16,3255 55462 TS PERROR # LOAD P-AXIS ERROR FOR MODE1 FDAI DISPLAY
062186,000745: 16,3256 03446 TC PURGENCY +4
![]() |
Page 1430 |
062188,000747: 16,3257 30032 PEGI CA CDUX # DIRECT RATE CONTROL.
062189,000748: 16,3260 55633 TS CDUXD
062190,000749: 16,3261 34755 CA ZERO
062191,000750: 16,3262 55444 TS DXERROR
062192,000751: 16,3263 55445 TS DXERROR +1
062193,000752: 16,3264 55462 TS PERROR # ZERO P-AXIS ERROR FOR MODE1 FDAI DISPLAY
062194,000753: 16,3265 11425 CCS EDOTP
062195,000754: 16,3266 03271 TC +3
062196,000755: 16,3267 03271 TC +2
062197,000756: 16,3270 03271 TC +1
062198,000757: 16,3271 55735 TS ABSEDOTP
062199,000758: 16,3272 61474 AD TARGETDB
062200,000759: 16,3273 00006 EXTEND # IF RATE ERROR IS LESS THAN DEADBAND,
062201,000760: 16,3274 63304 BZMF LAST # FIRE, AND SWITCH TO PSEUDO-AUTO.
062202,000761: 16,3275 31443 CA TCP
062203,000762: 16,3276 00006 EXTEND # IF TIME IN RATE COMMAND EXCEEDS 4 SEC.,
062204,000763: 16,3277 63304 BZMF LAST
062205,000764: 16,3300 41273 CS RCSFLAGS
062206,000765: 16,3301 74742 MASK PBIT
062207,000766: 16,3302 27273 ADS RCSFLAGS # BIT 10 IS 1.
062208,000767: 16,3303 13307 TCF +4
062209,000768: 16,3304 44742 LAST CS PBIT
062210,000769: 16,3305 71273 MASK RCSFLAGS
062211,000770: 16,3306 55273 TS RCSFLAGS # BIT 10 IS 0.
062212,000771: 16,3307 41425 CS EDOTP
062213,000772: 16,3310 00006 EXTEND
062214,000773: 16,3311 71551 MP 1/ANETP # 1/2JTACC SCALED AT 2EXP(7)/PI
062215,000774: 16,3312 20001 DAS A
062216,000775: 16,3313 02277 TC OVERSUB
062217,000776: 16,3314 00006 EXTEND
062218,000777: 16,3315 77715 MP 25/32 # A CONTAINS TJET SCALED AT 2EXP(4)(16/25)
062219,000778: 16,3316 55524 TS TJP # 4.JET TIME
062220,000779: 16,3317 31735 CA ABSEDOTP
062221,000780: 16,3320 61473 AD -2JETLIM # COMPARING DELTA RATE WITH 2 JET LIMIT
062222,000781: 16,3321 00006 EXTEND
062223,000782: 16,3322 63325 BZMF +3
062224,000783:
062225,000784: 16,3323 36241 CA SIX
062226,000785: 16,3324 13334 TCF +8D
062227,000786: 16,3325 31524 CA TJP
062228,000787: 16,3326 27524 ADS TJP
062229,000788:
062230,000789: # GOES TO PJETSLEC FOR TWO JETS
062231,000790:
062232,000791: # P-JET-SELECTION-ROUTINE (ROTATION)
062233,000792:
062234,000793: # INPUT: NUMBERT 4,5,6 FOR WHICH PAIR OR 4 JETS
062235,000794: # TJP + FOR +P ROTATION
062236,000795:
062237,000796: # OUTPUT: CHANNEL 6
062238,000797: # PJUMPADR FOR P-AXIS SKIP
![]() |
Page 1431 |
062240,000799: # (JTLST CALL) (SMALL TJP)
062241,000800:
062242,000801: # ORDER OF POLICIES TRIED IN CASE OF FAILURE.
062243,000802: # +P -P
062244,000803: # 7,15 8,16
062245,000804: # 4,12 3,11
062246,000805: # 4,7 8,11
062247,000806: # 7,12 11,16
062248,000807: # 12,15 3,16
062249,000808: # 4,15 3,8
062250,000809: # ALARM ALARM
062251,000810:
062252,000811: 16,3327 34747 CA AORBSYST
062253,000812: 16,3330 70111 MASK DAPBOOLS
062254,000813: 16,3331 10000 CCS A
062255,000814: 16,3332 34753 CA ONE
062256,000815: 16,3333 64751 AD FOUR
062257,000816: 16,3334 55741 TS NUMBERT
062258,000817: 16,3335 34753 PJETSLEC CA ONE
062259,000818: 16,3336 54001 TS L
062260,000819: 16,3337 11524 CCS TJP
062261,000820: 16,3340 13345 TCF +5
062262,000821: 16,3341 13421 TCF JETSOFF
062263,000822: 16,3342 13344 TCF +2
062264,000823: 16,3343 13421 TCF JETSOFF
062265,000824: 16,3344 22007 ZL
062266,000825: 16,3345 64753 AD ONE
062267,000826: 16,3346 55735 TS ABSTJ
062268,000827: 16,3347 23742 LXCH ROTINDEX
062269,000828: 16,3350 03514 TC SELECTP
062270,000829: 16,3351 46241 CS SIX
062271,000830: 16,3352 61741 AD NUMBERT
062272,000831: 16,3353 00006 EXTEND
062273,000832: 16,3354 13356 BZF +2
062274,000833:
062275,000834: 16,3355 44752 CS TWO
062276,000835: 16,3356 64751 AD FOUR
062277,000836: 16,3357 55521 TS NO.PJETS
062278,000837: 16,3360 31737 CA POLYTEMP
062279,000838: 16,3361 05745 TC WRITEP
062280,000839: 16,3362 41735 CS ABSTJ
062281,000840: 16,3363 63575 AD +150MST6
062282,000841: 16,3364 00006 EXTEND
062283,000842: 16,3365 63607 BZMF QRAXIS # GO TO QRAXIS OR TO GTS.
062284,000843:
062285,000844: 16,3366 63555 AD -136MST6
062286,000845: 16,3367 00006 EXTEND
062287,000846: 16,3370 63375 BZMF +5
062288,000847:
062289,000848: 16,3371 27735 ADS ABSTJ
062290,000849: 16,3372 51742 INDEX ROTINDEX
![]() |
Page 1432 |
062292,000851: 16,3373 33604 CA MINTIMES
062293,000852: 16,3374 55524 TS TJP
062294,000853:
062295,000854: 16,3375 31735 CA ABSTJ
062296,000855: 16,3376 22007 ZL
062297,000856: 16,3377 00004 INHINT
062298,000857: 16,3400 53467 DXCH T6FURTHA
062299,000858: 16,3401 04674 TC IBNKCALL
062300,000859: 16,3402 37046 CADR JTLST
062301,000860: 16,3403 44740 CS BIT12
062302,000861: 16,3404 71273 MASK RCSFLAGS
062303,000862: 16,3405 55273 TS RCSFLAGS # BIT 12 SET TO 0.
062304,000863: 16,3406 03410 TC ALTSYST
062305,000864: 16,3407 13607 TCF QRAXIS
062306,000865:
062307,000866: 16,3410 30111 ALTSYST CA DAPBOOLS # ALTERNATE P-AXIS JETS
062308,000867: 16,3411 54001 TS L
062309,000868: 16,3412 34747 CA AORBSYST
062310,000869: 16,3413 00006 EXTEND
062311,000870: 16,3414 06001 RXOR LCHAN
062312,000871: 16,3415 54111 TS DAPBOOLS
062313,000872: 16,3416 00003 RELINT
062314,000873: 16,3417 00002 TC Q
062315,000874:
062316,000875: 16,3420 03410 DKALT TC ALTSYST
062317,000876:
062318,000877: 16,3421 05744 JETSOFF TC WRITEP -1
062319,000878: 16,3422 34755 CA ZERO
062320,000879: 16,3423 55524 TS TJP
062321,000880: 16,3424 13607 TCF QRAXIS
062322,000881:
062323,000882: # (NOTE -- M13 = 1 IDENTICALLY IMPLIES NULL MULTIPLICATION.)
062324,000883:
062325,000884: 16,3425 30033 CALCPERR CA CDUY # P-ERROR CALCULATION.
062326,000885: 16,3426 00006 EXTEND
062327,000886: 16,3427 21634 MSU CDUYD # CDU VALUE - ANGLE DESIRED (Y-AXIS)
062328,000887: 16,3430 00006 EXTEND
062329,000888: 16,3431 71412 MP M11 # (CDUY-CDUYD)M11 SCALED AT PI RADIANS
062330,000889: 16,3432 57750 XCH E # SAVE FIRST TERM (OF TWO)
062331,000890: 16,3433 30032 CA CDUX # THIRD COMPONENT
062332,000891: 16,3434 00006 EXTEND
062333,000892: 16,3435 21633 MSU CDUXD # CDU VALUE - ANGLE DESIRED (X-AXIS)
062334,000893: # EXTEND
062335,000894: # MP M13
062336,000895: 16,3436 61277 AD DELPEROR # KALCMANU INERFACE ERROR
062337,000896: 16,3437 27750 ADS E # SAVE SUM OF TERMS. COULD BE OVERFLOW.
062338,000897: 16,3440 57462 XCH PERROR # SAVE P-ERROR FOR EIGHT-BALL DISPLAY.
062339,000898: 16,3441 00002 TC Q # RETURN TO CALLER
062340,000899:
062341,000900: # P-AXIS URGENCY FUNCTION CALCULATION.
![]() |
Page 1433 |
062343,000902: 16,3442 03425 PURGENCY TC CALCPERR # CALCULATE P-AXIS ERRORS.
062344,000903: 16,3443 41641 CS OMEGAPD # THIS CODING IS COMMON TO BOTH LM DAP AND
062345,000904: 16,3444 61417 AD OMEGAP # SPS-BACKUP MODE.
062346,000905: 16,3445 55425 TS EDOTP # EDOTP = OMEGAP - OMEGAPD AT PI/4 RAD/SEC
062347,000906:
062348,000907: 16,3446 44753 CS ONE
062349,000908: 16,3447 55476 TS AXISCTR
062350,000909: 16,3450 30111 CA DAPBOOLS
062351,000910: 16,3451 74737 MASK CSMDOCKD
062352,000911: 16,3452 00006 EXTEND
062353,000912: 16,3453 13470 BZF HEADTJET
062354,000913: 16,3454 00004 INHINT # IF CSMDOCKD = 1, GO TO DOCKED RCS LOGIC
062355,000914: 16,3455 04674 TC IBNKCALL
062356,000915: 16,3456 37700 CADR SPSRCS
062357,000916:
062358,000917: 16,3457 31524 CA TJP
062359,000918: 16,3460 00006 EXTEND
062360,000919: 16,3461 13420 BZF DKALT # IF TJP = ZERO, CHANGE AORBSYST.
062361,000920: 16,3462 00003 RELINT
062362,000921: 16,3463 41741 CS NUMBERT
062363,000922: 16,3464 66241 AD SIX
062364,000923: 16,3465 00006 EXTEND # IF NUMBERT = 6 BYPASS AORBSYST CHECK
062365,000924: 16,3466 13335 BZF PJETSLEC # AND USE FOUR JETS, OTHERWISE,
062366,000925: 16,3467 13327 TCF PJETSLEC -6 # SELECT AORBSYST AND USE TWO JETS
062367,000926: 16,3470 34755 HEADTJET CA ZERO
062368,000927: 16,3471 55477 TS SENSETYP
062369,000928: 16,3472 00004 INHINT
062370,000929: 16,3473 04674 TC IBNKCALL
062371,000930: 16,3474 37207 CADR TJETLAW
062372,000931: 16,3475 00003 RELINT
062373,000932:
062374,000933: 16,3476 41737 CS FIREFCT
062375,000934: 16,3477 63513 AD -FOURDEG
062376,000935: 16,3500 00006 EXTEND
062377,000936: 16,3501 63327 BZMF PJETSLEC -6
062378,000937: 16,3502 11524 CCS TJP
062379,000938: 16,3503 13505 TCF +2
062380,000939: 16,3504 13421 TCF JETSOFF
062381,000940: 16,3505 63512 AD -160MST6
062382,000941: 16,3506 00006 EXTEND
062383,000942: 16,3507 63327 BZMF PJETSLEC -6
062384,000943: 16,3510 36241 CA SIX
062385,000944: 16,3511 13334 TCF PJETSLEC -1
062386,000945: 16,3512 77377 -160MST6 DEC -256 B-14
062387,000946: 16,3513 75117 -FOURDEG DEC -.08888
062388,000947:
![]() |
Page 1434 |
062390,000949: # JET POLICY CONSTRUCTION SUBROUTINE
062391,000950:
062392,000951: # INPUT: ROTINDEX, NUMBERT
062393,000952:
062394,000953: # OUTPUT: POLYTEMP (JET POLICY)
062395,000954:
062396,000955: # THIS SUBROUTINE SELECT A SUBSET OF THE DESIRED JETS WHICH HAS NO FAILURE
062397,000956:
062398,000957: 16,3514 36241 SELECTP CA SIX
062399,000958: 16,3515 55740 TS TEMPNUM
062400,000959: 16,3516 51741 INDEX NUMBERT
062401,000960: 16,3517 33546 CA TYPEP
062402,000961: 16,3520 51742 INDEX ROTINDEX
062403,000962: 16,3521 73537 MASK JETSALL
062404,000963: 16,3522 55737 TS POLYTEMP
062405,000964: 16,3523 71263 MASK CH6MASK
062406,000965: 16,3524 10000 CCS A
062407,000966: 16,3525 13527 TCF +2
062408,000967: 16,3526 00002 TC Q
062409,000968: 16,3527 11740 CCS TEMPNUM
062410,000969: 16,3530 13534 TCF +4
062411,000970: 16,3531 05567 TC ALARM
062412,000971: 16,3532 02003 OCT 02003
062413,000972: 16,3533 13421 TCF JETSOFF # *****TCF ALARMJET *********************
062414,000973: 16,3534 55741 SELECTYZ TS NUMBERT
062415,000974: 16,3535 13515 TCF SELECTP +1
062416,000975: 16,3536 12752 -1 TCF ABORTYZ +2
062417,000976: 16,3537 00252 JETSALL OCT 00252
062418,000977: 16,3540 00125 OCT 00125 # +P
062419,000978: 16,3541 00140 OCT 00140 # -Y
062420,000979: 16,3542 00006 OCT 00006 # -Z
062421,000980: 16,3543 00220 OCT 00220 # +Y
062422,000981: 16,3544 00011 OCT 00011 # +Z
062423,000982: 16,3545 00151 OCT 00151 # +V
062424,000983: 16,3546 00146 TYPEP OCT 00146 # -U
062425,000984: 16,3547 00226 OCT 00226 # -V
062426,000985: 16,3550 00231 OCT 00231 # +U
062427,000986: 16,3551 00151 OCT 00151 # +V
062428,000987: 16,3552 00132 OCT 00132 # 1-3
062429,000988: 16,3553 00245 OCT 00245 # 2-4
062430,000989: 16,3554 00377 OCT 00377 # ALL
062431,000990: 16,3555 16,3555 INDXYZ = -136MST6
062432,000991: 16,3555 77445 -136MST6 DEC -218 B-14
062433,000992: 16,3556 00004 DEC 4 B-14
062434,000993: 16,3557 00002 DEC 2 B-14
062435,000994: 16,3560 07776 OCT 07776
062436,000995: 16,3561 00005 DEC 5 B-14
062437,000996: 16,3562 00011 DEC 9 B-14
062438,000997: 16,3563 00012 DEC 10 B-14
062439,000998: 16,3564 07776 OCT 07776
062440,000999: 16,3565 00003 DEC 3 B-14
![]() |
Page 1435 |
062442,001001: 16,3566 00010 DEC 8 B-14
062443,001002: 16,3567 00007 DEC 7 B-14
062444,001003: 16,3570 07776 OCT 07776 # THESE INDEXES OF MASK JETSALL WILL
062445,001004: 16,3571 07776 OCT 07776 # CHANGE THE INSTRUCTION AT SELECTP +4
062446,001005: 16,3572 07776 OCT 07776 # TO BE TC JETSALL -1
062447,001006: 16,3573 07776 OCT 07776 # ONLY USED FOR TRANSLATION FAILURE
062448,001007: 16,3574 07776 OCT 07776
062449,001008: 16,3575 00360 +150MST6 DEC 240 B-14
062450,001009: 16,3576 07400 07400OCT OCT 07400
062451,001010:
062452,001011: # T-JET LAW FIXED CONSTANTS
062453,001012:
062454,001013: 16,3577 00266 NORMSCL OCT 266
062455,001014: 16,3600 74631 -100MS DEC -.1
062456,001015: 16,3601 06315 200MS DEC .2
062457,001016: 16,3602 7715 25/32 = PRIO31 # (DEC .78125)
062458,001017: 16,3602 00600 BITS8,9 OCTAL 00600
062459,001018: 16,3603 00632 1/40 DEC .02500
062460,001019: 16,3604 77751 MINTIMES DEC -22 B-14
062461,001020: 16,3605 00026 DEC 22 B-14
062462,001021: 16,3606 02713 PSKIPADR GENADR SKIPPAXS
062463,001022:
062464,001023: # GOES TO Q,R-AXES RCS AUTOPILOT
062465,001024: 16,3607 41643 QRAXIS CS OMEGARD
062466,001025: 16,3610 61421 AD OMEGAR
062467,001026: 16,3611 02277 TC OVERSUB
062468,001027: 16,3612 55435 TS EDOTR
062469,001028: 16,3613 41642 CS OMEGAQD
062470,001029: 16,3614 61420 AD OMEGAQ
062471,001030: 16,3615 02277 TC OVERSUB
062472,001031: 16,3616 55434 TS EDOTQ
062473,001032: 16,3617 00006 EXTEND
062474,001033: 16,3620 33623 DCA QERRCALL
062475,001034: 16,3621 52006 DTCB
062476,001035:
062477,001036: 16,3622 E6,1537 EBANK= AOSQ
062478,001037: 16,3622 02043 36106 QERRCALL 2CADR CALLQERR
End of include-file P-AXIS_RCS_AUTOPILOT.agc. Parent file is MAIN.agc