Source Code
![]() |
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
061325,000002: ## Copyright: Public domain.
061326,000003: ## Filename: P-AXIS_RCS_AUTOPILOT.agc
061327,000004: ## Purpose: A section of Luminary revision 210.
061328,000005: ## It is part of the source code for the Lunar Module's (LM)
061329,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
061330,000007: ## This file is intended to be a faithful transcription, except
061331,000008: ## that the code format has been changed to conform to the
061332,000009: ## requirements of the yaYUL assembler rather than the
061333,000010: ## original YUL assembler.
061334,000011: ## Reference: pp. 1419-1439
061335,000012: ## Assembler: yaYUL
061336,000013: ## Contact: Ron Burkey <info@sandroid.org>.
061337,000014: ## Website: www.ibiblio.org/apollo/index.html
061338,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
061339,000016: ## 2016-12-11 HG Transcribed
061340,000017: ## 2016-12-12 MAS Pushed in some relative labels.
061341,000018: ## 2016-12-26 RSB Comment-text proofed using ProoferComments
061342,000019: ## and corrected errors found.
061343,000020:
![]() |
Page 1419 |
061345,000022: 16,2217 BANK 16
061346,000023: 16,2000 SETLOC DAPS1
061347,000024: 16,2000 BANK
061348,000025:
061349,000026: 16,2217 E6,1464 EBANK= PERROR
061350,000027: 16,2217 COUNT* $$/DAPP
061351,000028:
061352,000029: # THE FOLLOWING T5RUPT ENTRY BEGINS THE PROGRAM WHICH CONTROLS THE P-AXIS ACTION OF THE LEM USING THE RCS JETS.
061353,000030: # THE NOMINAL TIME BETWEEN THE P-AXIS RUPTS IS 100 MS IN ALL NON-IDLING MODES OF THE DAP.
061354,000031:
061355,000032: 16,2217 37750 PAXIS CA MS100
061356,000033: 16,2220 26030 ADS TIME5 # *** NECESSARY IN ORDER TO ALLOW SYN-
061357,000034: # CHRONIZATION WITH OTHER INTERRUPTS ***
061358,000035:
061359,000036: 16,2221 22016 LXCH BANKRUPT # INTERRUPT LEAD IN (CONTINUED)
061360,000037: 16,2222 00006 EXTEND
061361,000038: 16,2223 22012 QXCH QRUPT
061362,000039:
061363,000040: # CHECK IF DAP PASS IS PERMISSIBLE
061364,000041:
061365,000042: 16,2224 11756 CCS DAPZRUPT # IF DAPZRUPT POSITIVE, DAP (JASK) IS
061366,000043: 16,2225 05626 TC BAILOUT # STILL IN PROGRESS AND A RESTART IS
061367,000044: 16,2226 32000 OCT 32000 # CALLED FOR. IT IS NEVER ZERO
061368,000045:
061369,000046: 16,2227 02000 TC CHEKBITS # RETURN IS TO I+1 IF DAP SHOULD STAY ON.
061370,000047:
061371,000048: 16,2230 30032 CA CDUX # READ AND STORE CDU'S
061372,000049: 16,2231 55747 TS DAPTREG4
061373,000050: 16,2232 30033 CA CDUY
061374,000051: 16,2233 55750 TS DAPTREG5
061375,000052: 16,2234 30034 CA CDUZ
061376,000053: 16,2235 55751 TS DAPTREG6
061377,000054: # ***** KALCMANU-DAP AND "RATE-HOLD"-DAP INTERFACE *****
061378,000055:
061379,000056: # THE FOLLOWING SECTION IS EXECUTED EVERY 100 MS (10 TIMES A SECOND) WITHIN THE P-AXIS REACTION CONTROL SYSTEM
061380,000057: # AUTOPILOT (WHENEVER THE DAP IS IN OPERATION).
061381,000058:
061382,000059: 16,2236 31634 CA CDUXD
061383,000060: 16,2237 00006 EXTEND
061384,000061: 16,2240 21637 MSU DELCDUX
061385,000062: 16,2241 02262 TC 1STOTWOS
061386,000063: 16,2242 55634 TS CDUXD
061387,000064: 16,2243 31635 CA CDUYD
061388,000065: 16,2244 00006 EXTEND
061389,000066: 16,2245 21640 MSU DELCDUY
061390,000067: 16,2246 02262 TC 1STOTWOS
061391,000068: 16,2247 55635 TS CDUYD
061392,000069: 16,2250 31636 CA CDUZD
061393,000070: 16,2251 00006 EXTEND
061394,000071: 16,2252 21641 MSU DELCDUZ
061395,000072:
![]() |
Page 1420 |
061397,000074: 16,2253 02262 TC 1STOTWOS
061398,000075: 16,2254 55636 TS CDUZD
061399,000076: 16,2255 00006 EXTEND # DIMINISH MANUAL CONTROL DIRECT RATE
061400,000077: 16,2256 27445 DIM TCP # TIME COUNTERS.
061401,000078: 16,2257 00006 EXTEND
061402,000079: 16,2260 27457 DIM TCQR
061403,000080: # RATELOOP COMPUTES JETRATEQ, JETRATER, AND 1JACC*NO. PJETS IN ITEMP1.
061404,000081: # RETURNS TO BACKP.
061405,000082:
061406,000083: # JETRATE = 1JACC*NO.PJETS*TJP (NOTE TJ IS THE TIME FIRED DURING CSP)
061407,000084:
061408,000085: # JETRATEQ= 1JACCQ(TJU*NO.UJETS - TJV*NO.VJETS)
061409,000086:
061410,000087: # JETRATER= 1JACCR(TJU*NO.UJETS + TJV*NO.VJETS)
061411,000088:
061412,000089: 16,2261 12653 TCF PAXFILT # PROCEEDS TO RATELOOP AFTER SUPERJOB
061413,000090: 16,2262 10000 1STOTWOS CCS A
061414,000091: 16,2263 64744 AD ONE
061415,000092: 16,2264 00002 TC Q
061416,000093: 16,2265 40000 CS A
061417,000094: 16,2266 00002 TC Q
061418,000095: 16,2267 00006 SUBDIVDE EXTEND # OVERFLOW PROCTION ROUTINE TO GIVE
061419,000096: 16,2270 71740 MP DAPTEMP3 # POSMAX OR NEGMAX IF THE DIVIDE WOULD
061420,000097: 16,2271 21427 DAS OMEGAU # OVERFLOW
061421,000098:
061422,000099: 16,2272 00006 +3 EXTEND
061423,000100: 16,2273 31427 DCA OMEGAU
061424,000101: 16,2274 53743 DXCH DAPTEMP5
061425,000102: 16,2275 11426 CCS OMEGAU
061426,000103: 16,2276 12300 TCF +2
061427,000104: 16,2277 12310 TCF DIVIDER
061428,000105: 16,2300 62321 AD -OCT630
061429,000106: 16,2301 00006 EXTEND
061430,000107: 16,2302 62310 BZMF DIVIDER
061431,000108:
061432,000109: 16,2303 11426 CCS OMEGAU
061433,000110: 16,2304 34724 CA POSMAX # 45 DEG/SEC
061434,000111: 16,2305 00002 TC Q
061435,000112: 16,2306 44724 CS POSMAX
061436,000113: 16,2307 00002 TC Q
061437,000114:
061438,000115: 16,2310 53427 DIVIDER DXCH OMEGAU
061439,000116: 16,2311 00006 EXTEND
061440,000117: 16,2312 11747 DV DAPTREG4
061441,000118: 16,2313 00002 TC Q
061442,000119:
061443,000120: 16,2314 54007 OVERSUB TS 7 # RETURNS A UNCHANGED OR LIMITED TO
061444,000121: 16,2315 00002 TC Q # POSMAX OR NEGMAX IF A HAS OVERFLOW
061445,000122: 16,2316 50000 INDEX A
061446,000123: 16,2317 44725 CS BIT15 -1
061447,000124:
![]() |
Page 1421 |
061449,000126: 16,2320 00002 TC Q
061450,000127:
061451,000128: 16,2321 77147 -OCT630 OCT 77147
061452,000129:
061453,000130: 16,2322 31736 BACKP CA DAPTEMP1
061454,000131: 16,2323 00006 EXTEND
061455,000132: 16,2324 71530 MP 1JACC
061456,000133: 16,2325 55744 TS JETRATE
061457,000134: # BEGINNING OF THE RATE DERIVATION
061458,000135: # OMEGAP,Q,R BODY RATES SCALED AT PI/4
061459,000136: # TRAPER,Q,R BODY ANGLE ERRORS FROM PREDICTED ANGLE (PI/40)
061460,000137: # NP(QR)TRAPS NUMBER OF TIMES ANGLE ERROR HAS BEEN ACCUMULATED
061461,000138: # AOSQ(R)TERM CHANGE IN RATE DUE TO OFFSET ACCELLERATION. (PI/4)
061462,000139: # JETRATE,Q,R CHANGE IN RATE DUE TO JET ACCELLERATION. (PI/4)
061463,000140: # TRAPSIZE NEGATIVE LIMIT OF MAGNITUDE OF TRAPEDP,ECT.
061464,000141: # OMEGAU DP-TEMPORARY STORAGE
061465,000142:
061466,000143: # OMEGA = OMEGA + JETRATE + AOSTERM (+TRAPED/NTRAPS IF TRAPED BIG)
061467,000144:
061468,000145: 16,2326 31747 CAE DAPTREG4 # CDUX IS STORED HERE
061469,000146: 16,2327 54001 TS L
061470,000147: 16,2330 00006 EXTEND
061471,000148: 16,2331 21440 MSU OLDXFORP # SCALED AT PI
061472,000149: 16,2332 23440 LXCH OLDXFORP
061473,000150: 16,2333 55736 TS DAPTEMP1
061474,000151: 16,2334 33621 CA 1/40
061475,000152: 16,2335 55747 TS DAPTREG4
061476,000153: 16,2336 41744 CS JETRATE
061477,000154: 16,2337 00006 EXTEND
061478,000155: 16,2340 74727 MP BIT14
061479,000156: 16,2341 27430 ADS TRAPEDP
061480,000157: 16,2342 31745 CA JETRATEQ
061481,000158: 16,2343 61544 AD AOSQTERM
061482,000159: 16,2344 00006 EXTEND
061483,000160: 16,2345 77757 MP -BIT14
061484,000161: 16,2346 27431 ADS TRAPEDQ
061485,000162: 16,2347 31746 CA JETRATER
061486,000163: 16,2350 61545 AD AOSRTERM
061487,000164: 16,2351 00006 EXTEND
061488,000165: 16,2352 77757 MP -BIT14
061489,000166: 16,2353 27432 ADS TRAPEDR
061490,000167:
061491,000168: 16,2354 31750 CA DAPTREG5 # CDUY IS STORED HERE
061492,000169: 16,2355 54001 TS L
061493,000170: 16,2356 00006 EXTEND
061494,000171: 16,2357 21441 MSU OLDYFORP # SCALED AT PI
061495,000172: 16,2360 23441 LXCH OLDYFORP
061496,000173: 16,2361 55737 TS DAPTEMP2
061497,000174: 16,2362 00006 EXTEND
061498,000175: 16,2363 71414 MP M11 # M11 SCALED AT 1
061499,000176:
![]() |
Page 1422 |
061501,000178: 16,2364 61736 AD DAPTEMP1
061502,000179: 16,2365 53427 DXCH OMEGAU
061503,000180:
061504,000181: 16,2366 02272 TC SUBDIVDE +3 # RETURNS WITH CDU-RATE AT PI/4
061505,000182:
061506,000183: 16,2367 00006 EXTEND
061507,000184: 16,2370 61421 SU OMEGAP
061508,000185: 16,2371 27430 ADS TRAPEDP
061509,000186: 16,2372 02314 TC OVERSUB
061510,000187: 16,2373 55430 TS TRAPEDP
061511,000188: 16,2374 00006 EXTEND
061512,000189: 16,2375 31743 DCA DAPTEMP5
061513,000190: 16,2376 21447 DAS DXERROR
061514,000191: 16,2377 41454 CS PLAST
061515,000192: 16,2400 00006 EXTEND
061516,000193: 16,2401 73621 MP 1/40
061517,000194: 16,2402 21447 DAS DXERROR # MANUAL MODE X-ATTITUDE ERROR (DP)
061518,000195: 16,2403 31751 CA DAPTREG6 # CDUZ IS STORED HERE
061519,000196: 16,2404 54001 TS L
061520,000197: 16,2405 00006 EXTEND
061521,000198: 16,2406 21442 MSU OLDZFORQ
061522,000199: 16,2407 55740 TS DAPTEMP3
061523,000200: 16,2410 23442 LXCH OLDZFORQ
061524,000201: 16,2411 31415 CA M21
061525,000202: 16,2412 00006 EXTEND
061526,000203: 16,2413 71737 MP DAPTEMP2
061527,000204: 16,2414 53427 DXCH OMEGAU
061528,000205: 16,2415 31417 CA M22
061529,000206: 16,2416 02267 TC SUBDIVDE
061530,000207:
061531,000208: 16,2417 00006 EXTEND
061532,000209: 16,2420 61422 SU OMEGAQ
061533,000210: 16,2421 27431 ADS TRAPEDQ
061534,000211: 16,2422 02314 TC OVERSUB
061535,000212: 16,2423 55431 TS TRAPEDQ
061536,000213: 16,2424 00006 EXTEND
061537,000214: 16,2425 31743 DCA DAPTEMP5
061538,000215: 16,2426 21451 DAS DYERROR
061539,000216: 16,2427 41455 CS QLAST
061540,000217: 16,2430 00006 EXTEND
061541,000218: 16,2431 73621 MP 1/40
061542,000219: 16,2432 21451 DAS DYERROR # MANUAL MODE Y-ATTITUDE ERROR (DP)
061543,000220: 16,2433 31416 CA M31
061544,000221: 16,2434 00006 EXTEND
061545,000222: 16,2435 71737 MP DAPTEMP2
061546,000223: 16,2436 53427 DXCH OMEGAU
061547,000224: 16,2437 31420 CA M32
061548,000225:
061549,000226: 16,2440 02267 TC SUBDIVDE
061550,000227:
![]() |
Page 1423 |
061552,000229: 16,2441 00006 EXTEND
061553,000230: 16,2442 61423 SU OMEGAR
061554,000231: 16,2443 27432 ADS TRAPEDR
061555,000232: 16,2444 02314 TC OVERSUB
061556,000233: 16,2445 55432 TS TRAPEDR # TRAPEDS HAVE ALL BEEN COMPUTED
061557,000234:
061558,000235: 16,2446 00006 EXTEND
061559,000236: 16,2447 31743 DCA DAPTEMP5
061560,000237: 16,2450 21453 DAS DZERROR
061561,000238: 16,2451 41456 CS RLAST
061562,000239: 16,2452 00006 EXTEND
061563,000240: 16,2453 73621 MP 1/40
061564,000241: 16,2454 21453 DAS DZERROR # MANUAL MODE Z-ATTITUDE ERROR (DP)
061565,000242: 16,2455 30111 CA DAPBOOLS # PICK UP PAD LOADED STATE ESTIMATOR GAINS
061566,000243: 16,2456 74730 MASK CSMDOCKD
061567,000244: 16,2457 00006 EXTEND
061568,000245: 16,2460 12466 BZF LMONLY
061569,000246: 16,2461 00006 EXTEND # DOCKED
061570,000247: 16,2462 31405 DCA DKOMEGAN
061571,000248: 16,2463 53750 DXCH DAPTREG4
061572,000249: 16,2464 31403 CA DKTRAP
061573,000250: 16,2465 12472 TCF +5
061574,000251: 16,2466 00006 LMONLY EXTEND # UNDOCKED
061575,000252: 16,2467 31410 DCA LMOMEGAN
061576,000253: 16,2470 53750 DXCH DAPTREG4
061577,000254: 16,2471 31406 CA LMTRAP
061578,000255: 16,2472 55751 +5 TS DAPTREG6
061579,000256: 16,2473 11430 CCS TRAPEDP
061580,000257: 16,2474 12476 TCF +2
061581,000258: 16,2475 12513 TCF SMALPDIF
061582,000259: 16,2476 61751 AD DAPTREG6 # TRAPSIZE > ABOUT 77001 %-1.4DEG/SEC"
061583,000260: 16,2477 00006 EXTEND
061584,000261: 16,2500 62513 BZMF SMALPDIF
061585,000262: 16,2501 22007 ZL
061586,000263: 16,2502 23430 LXCH TRAPEDP
061587,000264: 16,2503 34746 CA ZERO
061588,000265: 16,2504 00006 EXTEND
061589,000266: 16,2505 11433 DV NPTRAPS
061590,000267: 16,2506 27421 ADS OMEGAP
061591,000268: 16,2507 02314 TC OVERSUB
061592,000269: 16,2510 55421 TS OMEGAP
061593,000270: 16,2511 31747 CA DAPTREG4 # ABOUT 10 OR 0 FOR DOCKED OR UNDOCKED
061594,000271: 16,2512 55433 TS NPTRAPS
061595,000272: 16,2513 25433 SMALPDIF INCR NPTRAPS
061596,000273: 16,2514 31744 P-RATE CA JETRATE
061597,000274: 16,2515 27421 ADS OMEGAP
061598,000275: 16,2516 02314 TC OVERSUB
061599,000276: 16,2517 55421 TS OMEGAP
061600,000277:
061601,000278: 16,2520 11431 CCS TRAPEDQ
061602,000279:
![]() |
Page 1424 |
061604,000281: 16,2521 12523 TCF +2
061605,000282: 16,2522 12550 TCF Q-RATE
061606,000283: 16,2523 61751 AD DAPTREG6 # TRAPSIZE > ABOUT 77001 %-1.4DEG/SEC"
061607,000284: 16,2524 00006 EXTEND
061608,000285: 16,2525 62550 BZMF Q-RATE
061609,000286: 16,2526 22007 ZL
061610,000287: 16,2527 23431 LXCH TRAPEDQ
061611,000288: 16,2530 34746 CA ZERO
061612,000289: 16,2531 00006 EXTEND
061613,000290: 16,2532 11434 DV NQTRAPS
061614,000291: 16,2533 55736 TS DAPTEMP1 # SAVE FOR OFFSET ESTIMATE
061615,000292: 16,2534 27422 ADS OMEGAQ
061616,000293: 16,2535 02314 TC OVERSUB
061617,000294: 16,2536 55422 TS OMEGAQ
061618,000295: 16,2537 31747 CA DAPTREG4 # ABOUT 10 OR 0 FOR DOCKED OR UNDOCKED
061619,000296: 16,2540 57434 XCH NQTRAPS
061620,000297: 16,2541 61750 AD DAPTREG5 # KAOS > ABOUT 60D %N/N_60"
061621,000298: 16,2542 57736 XCH DAPTEMP1
061622,000299: 16,2543 00006 EXTEND
061623,000300: 16,2544 74747 MP FIVE
061624,000301: 16,2545 00006 EXTEND
061625,000302: 16,2546 11736 DV DAPTEMP1
061626,000303: 16,2547 27536 ADS AOSQ
061627,000304: 16,2550 25434 Q-RATE INCR NQTRAPS
061628,000305: 16,2551 31745 CA JETRATEQ
061629,000306: 16,2552 61544 AD AOSQTERM
061630,000307: 16,2553 27422 ADS OMEGAQ
061631,000308: 16,2554 02314 TC OVERSUB
061632,000309: 16,2555 55422 TS OMEGAQ
061633,000310:
061634,000311: 16,2556 11432 CCS TRAPEDR
061635,000312: 16,2557 12561 TCF +2
061636,000313: 16,2560 12606 TCF R-RATE
061637,000314: 16,2561 61751 AD DAPTREG6 # TRAPSIZE > ABOUT 77001 %-1.4DEG/SEC"
061638,000315: 16,2562 00006 EXTEND
061639,000316: 16,2563 62606 BZMF R-RATE
061640,000317: 16,2564 22007 ZL
061641,000318: 16,2565 23432 LXCH TRAPEDR
061642,000319: 16,2566 34746 CA ZERO
061643,000320: 16,2567 00006 EXTEND
061644,000321: 16,2570 11435 DV NRTRAPS
061645,000322: 16,2571 55737 TS DAPTEMP2 # SAVE FOR OFFSET ESTIMATE
061646,000323: 16,2572 27423 ADS OMEGAR
061647,000324: 16,2573 02314 TC OVERSUB
061648,000325: 16,2574 55423 TS OMEGAR
061649,000326: 16,2575 31747 CA DAPTREG4 # ABOUT 10 OR 0 FOR DOCKED OR UNDOCKED
061650,000327: 16,2576 57435 XCH NRTRAPS
061651,000328: 16,2577 61750 AD DAPTREG5 # KAOS > ABOUT 60D %N/N_60"
061652,000329: 16,2600 57737 XCH DAPTEMP2
061653,000330: 16,2601 00006 EXTEND
061654,000331:
![]() |
Page 1425 |
061656,000333: 16,2602 74747 MP FIVE
061657,000334: 16,2603 00006 EXTEND
061658,000335: 16,2604 11737 DV DAPTEMP2
061659,000336: 16,2605 27540 ADS AOSR
061660,000337: 16,2606 25435 R-RATE INCR NRTRAPS
061661,000338: 16,2607 31746 CA JETRATER
061662,000339: 16,2610 61545 AD AOSRTERM
061663,000340: 16,2611 27423 ADS OMEGAR
061664,000341: 16,2612 02314 TC OVERSUB
061665,000342: 16,2613 55423 TS OMEGAR
061666,000343:
061667,000344: # END OF RATE DERIVATION
061668,000345:
061669,000346: # BEGIN OFFSET ESTIMATER
061670,000347:
061671,000348: # IN POWERED FLIGHT, AOSTASK WILL BE CALLED EVERY 2 SECONDS.
061672,000349:
061673,000350: # AOS = AOS + K*SUMRATE
061674,000351:
061675,000352: 16,2614 40111 CS DAPBOOLS
061676,000353: 16,2615 74735 MASK DRIFTBIT
![]() |
Note: Ater the operand DRIFTBIT opeand there is a short blue horizontal marker line right to the right of it. |
061678,000355: 16,2616 10000 CCS A
061679,000356: 16,2617 12630 TCF WORKTIME
061680,000357: 16,2620 55424 TS ALPHAQ # ZERO THE OFFSET ACCELERATION VALUES.
061681,000358: 16,2621 55425 TS ALPHAR
061682,000359: 16,2622 55544 TS AOSQTERM
061683,000360: 16,2623 55545 TS AOSRTERM
061684,000361: 16,2624 55536 TS AOSQ
061685,000362: 16,2625 55540 TS AOSR
061686,000363: 16,2626 12673 TCF PRETIMCK
061687,000364: 16,2627 00074 KAOS DEC 60 B-14
061688,000365: 16,2630 31510 WORKTIME CA QACCDOT
061689,000366: 16,2631 00006 EXTEND
061690,000367: 16,2632 74757 MP CALLCODE # OCTAL 00032 IS DECIMAL .1 AT 2(6).
061691,000368: 16,2633 21537 DAS AOSQ
061692,000369: 16,2634 31536 CA AOSQ
061693,000370: 16,2635 55424 TS ALPHAQ
061694,000371: 16,2636 00006 EXTEND
061695,000372: 16,2637 73617 MP 200MS # .2 AT 1
061696,000373: 16,2640 55544 TS AOSQTERM
061697,000374: 16,2641 31512 CA RACCDOT
061698,000375: 16,2642 00006 EXTEND
061699,000376: 16,2643 74757 MP CALLCODE # OCTAL 00032 IS DECIMAL .1 AT 2(6).
061700,000377: 16,2644 21541 DAS AOSR
061701,000378: 16,2645 31540 CA AOSR
061702,000379: 16,2646 55425 TS ALPHAR
061703,000380: 16,2647 00006 EXTEND
061704,000381: 16,2650 73617 MP 200MS # .2 AT 1
061705,000382: 16,2651 55545 TS AOSRTERM
061706,000383: 16,2652 12673 TCF PRETIMCK
061707,000384:
![]() |
Page 1426 |
061709,000386:
061710,000387:
061711,000388: 16,2653 34740 PAXFILT CA CALLGMBL # EXECUTE ACDT+C12, IF NEEDED.
061712,000389: 16,2654 71774 MASK RCSFLAGS
061713,000390: 16,2655 10000 CCS A # CALLGMBL IS NOT BIT15, SO THIS TEST IS
061714,000391: 16,2656 03737 TC ACDT+C12 # VALID.
061715,000392:
061716,000393: 16,2657 52011 DXCH ARUPT
061717,000394: 16,2660 53753 DXCH DAPARUPT
061718,000395: 16,2661 32672 CA SUPERJOB # SETTING UP THE SUPERJOB
061719,000396: 16,2662 56017 XCH BRUPT
061720,000397: 16,2663 22012 LXCH QRUPT
061721,000398: 16,2664 53755 DXCH DAPBQRPT
061722,000399: 16,2665 32671 CA SUPERADR
061723,000400: 16,2666 52016 DXCH ZRUPT
061724,000401: 16,2667 53757 DXCH DAPZRUPT
061725,000402: 16,2670 15277 TCF NOQBRSM +1 # RELINT (JUST IN CASE) AND RESUME, IN THE
061726,000403: # FORM OF A JASK, AT SUPERJOB.
061727,000404:
061728,000405: 16,2671 02673 SUPERADR GENADR SUPERJOB +1
061729,000406: # COUNT DOWN GIMBAL DRIVE TIMERS AND TURN OFF DRIVES IF REQUIRED.
061730,000407:
061731,000408: 16,2672 13642 SUPERJOB TCF RATELOOP
061732,000409: 16,2673 11631 PRETIMCK CCS QGIMTIMR
061733,000410: 16,2674 12714 TCF DECQTIMR # POSITIVE- COUNTING DOWN
061734,000411: 16,2675 12720 TCF TURNOFFQ # NEGATIVE- DRIVE SHOULD BE ENDED
061735,000412: 16,2676 11633 CHKRTIMR CCS RGIMTIMR # NEGATIVE- INACTIVE
061736,000413: 16,2677 12716 TCF DECRTIMR # (NEG ZERO- IMPOSSIBLE)
061737,000414: 16,2700 12730 TCF TURNOFFR # REPEATED (ABOVE) FOR R AXIS.
061738,000415:
061739,000416: 16,2701 00006 EXTEND # DECREMENT DOCKED JET INHIBITION COUNTERS
061740,000417: 16,2702 27766 DIM PJETCTR
061741,000418: 16,2703 00006 EXTEND
061742,000419: 16,2704 27767 DIM UJETCTR
061743,000420: 16,2705 00006 EXTEND
061744,000421: 16,2706 27770 DIM VJETCTR
061745,000422: 16,2707 34731 CA BIT12
061746,000423: 16,2710 71774 MASK RCSFLAGS
061747,000424: 16,2711 00006 EXTEND
061748,000425: 16,2712 12740 BZF SKIPPAXS
061749,000426: 16,2713 02744 TC CHKVISFZ
061750,000427: 16,2714 55631 DECQTIMR TS QGIMTIMR # COUNT TIMERS DOWN TO POS ZERO.
061751,000428: 16,2715 12676 TCF CHKRTIMR
061752,000429: 16,2716 55633 DECRTIMR TS RGIMTIMR
061753,000430: 16,2717 12701 TCF CHKRTIMR +3
061754,000431:
061755,000432: 16,2720 55501 TURNOFFQ TS NEGUQ # HALT DRIVES.
061756,000433: 16,2721 55510 TS QACCDOT
061757,000434: 16,2722 45000 CS QGIMBITS
061758,000435: 16,2723 00006 EXTEND
061759,000436:
![]() |
Page 1427 |
061761,000438: 16,2724 03012 WAND CHAN12
061762,000439: 16,2725 34726 CAF NEGMAX
061763,000440: 16,2726 55631 TS QGIMTIMR
061764,000441: 16,2727 12676 TCF CHKRTIMR
061765,000442: 16,2730 55503 TURNOFFR TS NEGUR
061766,000443: 16,2731 55512 TS RACCDOT
061767,000444: 16,2732 45011 CS RGIMBITS
061768,000445: 16,2733 00006 EXTEND
061769,000446: 16,2734 03012 WAND CHAN12
061770,000447: 16,2735 34726 CAF NEGMAX
061771,000448: 16,2736 55633 TS RGIMTIMR
061772,000449: 16,2737 12701 TCF CHKRTIMR +3
061773,000450: 16,2740 5000 QGIMBITS EQUALS OCT1400 # BITS 9 AND 10 (OF CHANNEL 12).
061774,000451: 16,2740 5011 RGIMBITS EQUALS PRIO6 # BITS 11 AND 12 (OF CHANNEL 12).
061775,000452:
061776,000453: 16,2740 41774 SKIPPAXS CS RCSFLAGS
061777,000454: 16,2741 74731 MASK BIT12
061778,000455: 16,2742 27774 ADS RCSFLAGS # BIT 12 SET TO 1.
061779,000456: 16,2743 13625 TCF QRAXIS # GO TO QRAXIS OR TO GTS.
061780,000457:
061781,000458: # Y-Z TRANSLATION
061782,000459:
061783,000460: # INPUT: BITS 9-12 OF CH31 (FROM TRANSLATION CONTROLER)
061784,000461:
061785,000462: # OUTPUT: NEXTP
061786,000463:
061787,000464: # NEXTP IS THE CHANNEL 6 CODE OF JETS FOR THE DESIRED TRANSLATION.
061788,000465: # IF THERE ARE FAILURES IN THE DESIRED POLICY, THEN
061789,000466:
061790,000467: # (1) FOR DIAGONAL TRANS: UNFAILED PAIR
061791,000468: # ALARM (IF NO PAIR)
061792,000469:
061793,000470: # (2) FOR PRINCIPAL TRANS: TRY TO TACK WITH DIAGONAL PAIRS
061794,000471: # ALARM (IF DIAGONAL PAIRS ARE FAILED)
061795,000472: 16,2744 00006 CHKVISFZ EXTEND
061796,000473: 16,2745 00031 READ CHAN31
061797,000474: 16,2746 40000 CS A
061798,000475: 16,2747 73614 MASK 07400OCT
061799,000476: 16,2750 00006 EXTEND
061800,000477: 16,2751 13020 BZF TSNEXTP
061801,000478: 16,2752 00006 EXTEND
061802,000479: 16,2753 74736 MP BIT7
061803,000480: 16,2754 50000 INDEX A
061804,000481: 16,2755 33573 CA INDXYZ
061805,000482: 16,2756 55743 TS ROTINDEX
061806,000483: 16,2757 36263 TRYUORV CA SIX
061807,000484: 16,2760 03552 TC SELECTYZ
061808,000485: 16,2761 46263 CS SIX
061809,000486: 16,2762 61742 AD NUMBERT
061810,000487: 16,2763 00006 EXTEND
061811,000488:
![]() |
Page 1428 |
061813,000490: 16,2764 13017 BZF TSNEXTP -1
061814,000491: 16,2765 44747 CS FIVE
061815,000492: 16,2766 61743 AD ROTINDEX
061816,000493: 16,2767 00006 EXTEND
061817,000494: 16,2770 63006 BZMF ALTERYZ
061818,000495: 16,2771 41742 CS NUMBERT
061819,000496: 16,2772 64742 AD FOUR
061820,000497: 16,2773 00006 EXTEND
061821,000498: 16,2774 63017 BZMF TSNEXTP -1
061822,000499: 16,2775 05571 ABORTYZ TC ALARM
061823,000500: 16,2776 02001 OCT 02001
061824,000501: 16,2777 34744 CA BIT1 # INVERT BIT 1 OF RCSFLAGS.
061825,000502: 16,3000 23774 LXCH RCSFLAGS
061826,000503: 16,3001 00006 EXTEND
061827,000504: 16,3002 06001 RXOR 1
061828,000505: 16,3003 55774 TS RCSFLAGS
061829,000506: 16,3004 34746 CA ZERO
061830,000507: 16,3005 13020 TCF TSNEXTP
061831,000508: 16,3006 34744 ALTERYZ CA BIT1 # INVERT BIT 1 OF RCSFLAGS.
061832,000509: 16,3007 23774 LXCH RCSFLAGS
061833,000510: 16,3010 00006 EXTEND
061834,000511: 16,3011 06001 RXOR 1
061835,000512: 16,3012 55774 TS RCSFLAGS
061836,000513: 16,3013 74744 MASK BIT1
061837,000514: 16,3014 64742 AD FOUR
061838,000515: 16,3015 27743 ADS ROTINDEX
061839,000516: 16,3016 12757 TCF TRYUORV
061840,000517: 16,3017 31740 CA POLYTEMP
061841,000518: 16,3020 55472 TSNEXTP TS NEXTP
061842,000519: # STATE LOGIC
061843,000520:
061844,000521: # CHECK IN ORDER: IF ON
061845,000522: # LPDPHASE GO TO PURGENCY
061846,000523: # PULSES MINIMUM PULSE LOGIC
061847,000524: # DETENT(BIT15 CH31) RATE COMMAND
061848,000525: # GO TO PURGENCY
061849,000526: 16,3021 34730 CA BIT13 # CHECK STICK IF IN ATT. HOLD.
061850,000527: 16,3022 00006 EXTEND
061851,000528: 16,3023 02031 RAND CHAN31
061852,000529: 16,3024 00006 EXTEND
061853,000530: 16,3025 13034 BZF MANMODE
061854,000531:
061855,000532: 16,3026 30111 CA DAPBOOLS
061856,000533: 16,3027 74734 MASK XOVINHIB
061857,000534: 16,3030 00006 EXTEND
061858,000535: 16,3031 13067 BZF DETENTCK # GO CHECK FOR MANUAL X-AXIS OVERRIDE.
061859,000536: 16,3032 00004 INHINT
061860,000537: 16,3033 13145 TCF ZRORCBIT # CLEAR OURRCBIT AND GO DO AUTOMATIC LOGIC
061861,000538:
061862,000539: 16,3034 34726 MANMODE CA PULSES # PULSES IS ONE FOR PULSE MODE
061863,000540:
![]() |
Page 1429 |
061865,000542: 16,3035 70111 MASK DAPBOOLS
061866,000543: 16,3036 00006 EXTEND
061867,000544: 16,3037 13067 BZF DETENTCK # BRANCH FOR RATE COMMAND
061868,000545:
061869,000546: # *** MINIMUM IMPULSE LOGIC ***
061870,000547:
061871,000548: 16,3040 34746 CA ZERO
061872,000549: 16,3041 55464 TS PERROR
061873,000550: 16,3042 30032 CA CDUX
061874,000551: 16,3043 55634 TS CDUXD
061875,000552:
061876,000553: 16,3044 44743 CS CONTRLBT
061877,000554: 16,3045 00004 INHINT
061878,000555: 16,3046 70106 MASK FLGWRD10 # CLEAR FLAG TO CAUSE THE NO CONTROL DSKY
061879,000556: 16,3047 54106 TS FLGWRD10 # LIGHT TO BE LIT BY T4RUPT.
061880,000557:
061881,000558: 16,3050 00003 RELINT
061882,000559:
061883,000560: 16,3051 00006 EXTEND
061884,000561: 16,3052 00031 READ CHAN31
061885,000562: 16,3053 40000 COM # THE CHANNEL BITS ARE INVERSE LOGIC.
061886,000563: 16,3054 75745 MASK OCT14 # BITS 3 AND 4 ARE +P AND -P COMMANDS
061887,000564: 16,3055 57460 XCH OLDPMIN
061888,000565: 16,3056 10000 CCS A # BRANCH TO SKIP THIS PASS IF THERE WAS A
061889,000566: 16,3057 13443 TCF JETSOFF # COMMAND PRESENT LAST TIME OR IF THERE
061890,000567: 16,3060 31460 CA OLDPMIN # IS NO COMMAND THIS TIME.
061891,000568: 16,3061 00006 EXTEND
061892,000569: 16,3062 13443 BZF JETSOFF
061893,000570:
061894,000571: 16,3063 41460 CS OLDPMIN # THERE IS A COMMAND TO BE HONORED. PUT A
061895,000572: 16,3064 66263 AD SIX # SMALL NUMBER OF THE PROPER SIGN IN TJP
061896,000573: 16,3065 55524 TS TJP # IT WILL BE CHANGED TO 14 MSEC LATER.
061897,000574: 16,3066 13351 TCF PJETSLEC -6
061898,000575:
061899,000576: # MANUAL RATE COMMAND MODE
061900,000577: # ========================
061901,000578: # BY ROBERT F. STENGEL
061902,000579:
061903,000580: # THIS MODE PROVIDES RCAH MANUAL CONTROL THRU 2 CONTROL LAWS: 1) DIRECT RATE AND 2) PSEUDO-AUTO.
061904,000581: # THE DIRECT RATE MODE AFFORDS IMMEDIATE CONTROL WITHOUT OVERSHOOT. THE PSEUDO-AUTO MODE PROVIDES PRECISE
061905,000582: # RATE CONTROL AND ATTITUDE HOLD.
061906,000583:
061907,000584: # IN DIRECT RATE, JETS ARE FIRED WHEN STICK POSITION CHANGES BY A FIXED NUMBER OF INCREMENTS IN ONE DAP CYCLE.
061908,000585: # THE 'BREAKOUT LEVEL' IS .6 D/S FOR LM-ONLY AND .3 D/S FOR CSM-DOCKED. THIS LAW NULLS THE RATE ERROR TO WITHIN
061909,000586: # THE 'TARGET DEADBAND', WHICH EQUALS THE BREAKOUT LEVEL.
061910,000587: # IN PSEUDO-AUTO, BODY-FIXED RATE AND ATTITUDE ERRORS ARE SUPPLIED TO TJETLAW, WHICH EXERCISES CONTROL.
061911,000588: # CONTROL SWITCHES FROM DIRECT RATE TO PSEUDO-AUTO IF THE TARGET DB IS ACHIEVED OR IF TIME IN (1) EXCEEDS 4 SEC.
061912,000589: # IF THE INITIAL COMMAND DOES NOT EXCEED THE BREAKOUT LEVEL, CONTROL GOES TO PSEUDO-AUTO IMMEDIATELY.
061913,000590:
061914,000591: # SINCE P-AXIS CONTROL IS SEPARATE FROM Q,R AXES CONTROL, IT IS POSSIBLE TO USE (1) IN P-AXIS AND (2) IN Q,R AXES,
061915,000592:
![]() |
Page 1430 |
061917,000594: # OR VICE VERSA. THIS ALLOWS A DEGREE OF ATTITUDE HOLD IN UNCONTROLLED AXES. DUE TO U,V CONTROL, HOWEVER, Q AND
061918,000595: # R AXES ARE COUPLED AND MUST USE THE SAME CONTROL LAW.
061919,000596:
061920,000597: # HAND CONTROLLER COMMANDS ARE SCALED BY A LINEAR/QUADRATIC LAW. FOR THE LM-ALONE, MAXIMUM COMMANDED RATES ARE 20
061921,000598: # AND 4 D/S IN NORMAL AND FINE SCALING; HOWEVER, STICK SENSITIVITY AT ZERO COUNTS (OBTAINED AT A STICK DEFLECTION
061922,000599: # OF 2 DEGREES FROM THE CENTERED POSITION) IS .5 OR .1 D/S PER DEGREE. NORMAL AND FINE SCALINGS FOR THE CSM-DOCKED
061923,000600: # CASE IS AUTOMATICALLY SET TO 1/10 THE ABOVE VALUES. SCALING IS DETERMINED IN ROUTINE 3.
061924,000601: # ZEROENBL ENABLES COUNTERS SO THEY CAN BE READ NEXT TIME
061925,000602: # JUSTOUT FIRST DETECTION OF OUT OF DETENT (BY OURRCBIT)
061926,000603:
061927,000604:
061928,000605: 16,3067 00006 DETENTCK EXTEND
061929,000606: 16,3070 00031 READ CHAN31
061930,000607: 16,3071 55443 TS CH31TEMP
061931,000608: 16,3072 74726 MASK BIT15 # CHECK OUT-OF-DETENT BIT.
061932,000609: 16,3073 00006 EXTEND
061933,000610: 16,3074 13220 BZF RHCMOVED # BRANCH IF OUT OF DETENT.
061934,000611: 16,3075 34731 CAF OURRCBIT # IN DETENT. CHECK THE RATE COMMAND BIT.
061935,000612: 16,3076 70111 MASK DAPBOOLS
061936,000613: 16,3077 00006 EXTEND
061937,000614: 16,3100 13464 BZF PURGENCY # BRANCH IF NOT IN RATE COMMAND LAST PASS.
061938,000615: # ........................................................................
061939,000616: 16,3101 34734 CA BIT9 # JUST IN DETENT??
061940,000617: 16,3102 71774 MASK RCSFLAGS
061941,000618: 16,3103 00006 EXTEND
061942,000619: 16,3104 13116 BZF RUTH
061943,000620: 16,3105 34730 AUTOCHEK CAF BIT13 # CLEAR JUSTIN AND QRBIT ONLY IF AUTO.
061944,000621: 16,3106 00006 EXTEND
061945,000622: 16,3107 02031 RAND CHAN31
061946,000623: 16,3110 00006 EXTEND
061947,000624: 16,3111 13215 BZF RATEDAMP # BRANCH IF IN ATTITUDE HOLD.
061948,000625:
061949,000626: 16,3112 45005 CS BITS9,11 # IN AUTO.
061950,000627: 16,3113 71774 MASK RCSFLAGS # (X-AXIS OVERRIDE)
061951,000628: 16,3114 55774 TS RCSFLAGS # ZERO ORBIT (BIT 11) AND JUST-IN BIT (9).
061952,000629: 16,3115 13215 TCF RATEDAMP
061953,000630:
061954,000631: 16,3116 31774 RUTH CA RCSFLAGS
061955,000632: 16,3117 74733 MASK PBIT # IN ATTITUDE HOLD.
061956,000633: 16,3120 00006 EXTEND
061957,000634: 16,3121 13123 BZF +2 # BRANCH IF P-RATE DAMPING IS FINISHED.
061958,000635: 16,3122 13215 TCF RATEDAMP
061959,000636: 16,3123 31774 CA RCSFLAGS
061960,000637: 16,3124 74732 MASK QRBIT
061961,000638: 16,3125 00006 EXTEND
061962,000639: 16,3126 13132 BZF RATEDONE # BRANCH IF Q,R RATE DAMPING IS FINISHED.
061963,000640: 16,3127 13105 TCF AUTOCHEK
061964,000641: # ============================================
061965,000642: 16,3130 4744 1/10SEC = BIT1
061966,000643: 16,3130 4762 40CYC = OCT50
061967,000644:
![]() |
Page 1431 |
061969,000646: 16,3130 74777 PQRBIT OCT 74777
061970,000647: 16,3131 5005 BITS9,11 EQUALS EBANK5
061971,000648: 16,3131 00056 LINRATP DEC 46 B-14
061972,000649: # ============================================
061973,000650: 16,3132 00004 RATEDONE INHINT # NULL THE APPROPRIATE ATTITUDE ERRORS.
061974,000651: 16,3133 34730 CAF BIT13
061975,000652: 16,3134 00006 EXTEND
061976,000653: 16,3135 02031 RAND CHAN31
061977,000654: 16,3136 00006 EXTEND
061978,000655: 16,3137 13143 BZF +4
061979,000656: 16,3140 30032 CA CDUX # (X-AXIS OVERRIDE)
061980,000657: 16,3141 55634 TS CDUXD
061981,000658: 16,3142 03145 TC +3
061982,000659: 16,3143 04665 TC IBNKCALL
061983,000660: 16,3144 40154 FCADR ZATTEROR
061984,000661: 16,3145 44731 ZRORCBIT CS OURRCBIT # CLEAR OURRCBIT: MANUAL MODE CLOSED OUT.
061985,000662: 16,3146 70111 MASK DAPBOOLS
061986,000663: 16,3147 54111 TS DAPBOOLS
061987,000664: 16,3150 00003 RELINT
061988,000665: 16,3151 13464 TCF PURGENCY
061989,000666:
061990,000667: 16,3152 55464 JUSTOUT TS PERROR # INITIALIZATION - FIRST MANUAL PASS (A=0)
061991,000668: 16,3153 55446 TS DXERROR
061992,000669: 16,3154 55447 TS DXERROR +1
061993,000670: 16,3155 55450 TS DYERROR
061994,000671: 16,3156 55451 TS DYERROR +1
061995,000672: 16,3157 55452 TS DZERROR
061996,000673: 16,3160 55453 TS DZERROR +1
061997,000674: 16,3161 55454 TS PLAST
061998,000675: 16,3162 55455 TS QLAST
061999,000676: 16,3163 55456 TS RLAST
062000,000677: 16,3164 54042 TS Q-RHCCTR
062001,000678: 16,3165 54044 TS R-RHCCTR
062002,000679: 16,3166 33130 CA PQRBIT
062003,000680: 16,3167 71774 MASK RCSFLAGS
062004,000681: 16,3170 55774 TS RCSFLAGS # BITS 10 AND 11 OF RCSFLAGS ARE 0.
062005,000682: 16,3171 03176 TC ZEROENBL
062006,000683: 16,3172 34731 CA OURRCBIT # SET INTERNAL RATE COMMAND FLAG (WHICH
062007,000684: 16,3173 26111 ADS DAPBOOLS # WAS FOUND TO BE ZERO EARLIER)
062008,000685: 16,3174 00003 RELINT
062009,000686: 16,3175 13443 TCF JETSOFF
062010,000687: 16,3176 22044 ZEROENBL LXCH R-RHCCTR
062011,000688: 16,3177 30042 CA Q-RHCCTR
062012,000689: 16,3200 53463 DXCH SAVEHAND
062013,000690: 16,3201 34746 CA ZERO
062014,000691: 16,3202 54043 TS P-RHCCTR
062015,000692: 16,3203 54042 TS Q-RHCCTR
062016,000693: 16,3204 54044 TS R-RHCCTR
062017,000694: 16,3205 00004 INHINT
062018,000695: 16,3206 00006 EXTEND
062019,000696:
![]() |
Page 1432 |
062021,000698: 16,3207 23265 QXCH C13QSAV
062022,000699: 16,3210 06040 TC C13STALL
062023,000700:
062024,000701: 16,3211 33620 CA BITS8,9
062025,000702: 16,3212 00006 EXTEND
062026,000703: 16,3213 05013 WOR CHAN13 # COUNTERS ZEROED AND ENABLED
062027,000704: 16,3214 01265 TC C13QSAV
062028,000705:
062029,000706: 16,3215 34746 RATEDAMP CA ZERO
062030,000707: 16,3216 54043 TS P-RHCCTR
062031,000708: 16,3217 13227 TCF RATERROR
062032,000709:
062033,000710: 16,3220 41774 RHCMOVED CS RCSFLAGS # SET JUSTIN BIT TO 1
062034,000711: 16,3221 74734 MASK BIT9
062035,000712: 16,3222 27774 ADS RCSFLAGS
062036,000713: 16,3223 34731 CA OURRCBIT # P CONTROL
062037,000714: 16,3224 70111 MASK DAPBOOLS
062038,000715: 16,3225 00006 EXTEND
062039,000716: 16,3226 13152 BZF JUSTOUT
062040,000717: 16,3227 30032 RATERROR CA CDUX # FINDCDUW REQUIRES THAT CDUXD=CDUX DURING
062041,000718: 16,3230 55634 TS CDUXD # X-AXIS OVERRIDE
062042,000719: 16,3231 10043 CCS P-RHCCTR
062043,000720: 16,3232 13235 TCF +3
062044,000721: 16,3233 13235 TCF +2
062045,000722: 16,3234 13235 TCF +1
062046,000723: 16,3235 60000 DOUBLE # LINEAR/QUADRATIC CONTROLLER SCALING
062047,000724: 16,3236 60000 DOUBLE # (SEE EXPLANATION IN Q,R-AXES RCS
062048,000725: 16,3237 63131 AD LINRATP # AUTOPILOT)
062049,000726: 16,3240 00006 EXTEND
062050,000727: 16,3241 70043 MP P-RHCCTR
062051,000728: 16,3242 30001 CA L
062052,000729: 16,3243 00006 EXTEND
062053,000730: 16,3244 71444 MP STIKSENS
062054,000731: 16,3245 57454 XCH PLAST
062055,000732: 16,3246 40000 COM
062056,000733: 16,3247 61454 AD PLAST
062057,000734: 16,3250 55736 TS DAPTEMP1
062058,000735: 16,3251 03176 TC ZEROENBL # INTERVAL. ZERO AND ENABLE ACA COUNTERS.
062059,000736: 16,3252 00003 RELINT
062060,000737: 16,3253 41454 CS PLAST
062061,000738: 16,3254 61421 AD OMEGAP
062062,000739: 16,3255 55427 TS EDOTP
062063,000740: 16,3256 11736 CCS DAPTEMP1 # IF P COMMAND CHANGE EXCEEDS BREAKOUT
062064,000741: 16,3257 13262 TCF +3 # LEVEL, GO TO DIRECT RATE CONTROL. IF NOT
062065,000742: 16,3260 13270 TCF +8D # CHECK FOR DIRECT RATE CONTROL LAST TIME.
062066,000743: 16,3261 13262 TCF +1
062067,000744: 16,3262 61476 AD -RATEDB
062068,000745: 16,3263 00006 EXTEND
062069,000746: 16,3264 63270 BZMF +4
062070,000747: 16,3265 34762 CA 40CYC
062071,000748:
![]() |
Page 1433 |
062073,000750: 16,3266 55445 TS TCP
062074,000751: 16,3267 03301 TC PEGI
062075,000752: 16,3270 31774 CA RCSFLAGS # CHECK FOR DIRECT RATE COMMAND LAST TIME.
062076,000753: 16,3271 74733 MASK PBIT
062077,000754: 16,3272 00006 EXTEND
062078,000755: 16,3273 13275 BZF +2
062079,000756: 16,3274 03301 TC PEGI # TO PURE RATE COMMAND
062080,000757: 16,3275 31446 CA DXERROR # PSEUDO-AUTO CONTROL.
062081,000758: 16,3276 55751 TS E # X-ATTITUDE ERROR (SP)
062082,000759: 16,3277 55464 TS PERROR # LOAD P-AXIS ERROR FOR MODE1 FDAI DISPLAY
062083,000760: 16,3300 03470 TC PURGENCY +4
062084,000761: 16,3301 30032 PEGI CA CDUX # DIRECT RATE CONTROL.
062085,000762: 16,3302 55634 TS CDUXD
062086,000763: 16,3303 34746 CA ZERO
062087,000764: 16,3304 55446 TS DXERROR
062088,000765: 16,3305 55447 TS DXERROR +1
062089,000766: 16,3306 55464 TS PERROR # ZERO P-AXIS ERROR FOR MODE1 FDAI DISPLAY
062090,000767: 16,3307 11427 CCS EDOTP
062091,000768: 16,3310 03313 TC +3
062092,000769: 16,3311 03313 TC +2
062093,000770: 16,3312 03313 TC +1
062094,000771: 16,3313 55736 TS ABSEDOTP
062095,000772: 16,3314 61476 AD TARGETDB
062096,000773: 16,3315 00006 EXTEND # IF RATE ERROR IS LESS THAN DEADBAND,
062097,000774: 16,3316 63326 BZMF LAST # FIRE, AND SWITCH TO PSEUDO-AUTO.
062098,000775: 16,3317 31445 CA TCP
062099,000776: 16,3320 00006 EXTEND # IF TIME IN RATE COMMAND EXCEEDS 4 SEC.,
062100,000777: 16,3321 63326 BZMF LAST
062101,000778: 16,3322 41774 CS RCSFLAGS
062102,000779: 16,3323 74733 MASK PBIT
062103,000780: 16,3324 27774 ADS RCSFLAGS # BIT 10 IS 1.
062104,000781: 16,3325 13331 TCF +4
062105,000782: 16,3326 44733 LAST CS PBIT
062106,000783: 16,3327 71774 MASK RCSFLAGS
062107,000784: 16,3330 55774 TS RCSFLAGS # BIT 10 IS 0.
062108,000785: 16,3331 41427 CS EDOTP
062109,000786: 16,3332 00006 EXTEND
062110,000787: 16,3333 71550 MP 1/ANETP # 1/2JTACC SCALED AT 2EXP(7)/PI
062111,000788: 16,3334 20001 DAS A
062112,000789: 16,3335 02314 TC OVERSUB
062113,000790: 16,3336 00006 EXTEND
062114,000791: 16,3337 77737 MP 25/32 # A CONTAINS TJET SCALED AT 2EXP(4)(16/25)
062115,000792: 16,3340 55524 TS TJP # 4.JET TIME
062116,000793: 16,3341 31736 CA ABSEDOTP
062117,000794: 16,3342 61475 AD -2JETLIM # COMPARING DELTA RATE WITH 2 JET LIMIT
062118,000795: 16,3343 00006 EXTEND
062119,000796: 16,3344 63347 BZMF +3
062120,000797:
062121,000798: 16,3345 36263 CA SIX
062122,000799: 16,3346 13356 TCF +8D
062123,000800:
![]() |
Page 1434 |
062125,000802: 16,3347 31524 CA TJP
062126,000803: 16,3350 27524 ADS TJP
062127,000804: # GOES TO PJETSLEC FOR TWO JETS
062128,000805:
062129,000806: # P-JET-SELECTION-ROUTINE (ROTATION)
062130,000807:
062131,000808: # INPUT: NUMBERT 4,5,6 FOR WHICH PAIR OR 4 JETS
062132,000809: # TJP + FOR +P ROTATION
062133,000810:
062134,000811: # OUTPUT: CHANNEL 6
062135,000812: # PJUMPADR FOR P-AXIS SKIP
062136,000813: # (JTLST CALL) (SMALL TJP)
062137,000814:
062138,000815: # ORDER OF POLICIES TRIED IN CASE OF FAILURE.
062139,000816: # +P -P
062140,000817: # 7,15 8,16
062141,000818: # 4,12 3,11
062142,000819: # 4,7 8,11
062143,000820: # 7,12 11,16
062144,000821: # 12,15 3,16
062145,000822: # 4,15 3,8
062146,000823: # ALARM ALARM
062147,000824: 16,3351 34740 CA AORBSYST
062148,000825: 16,3352 70101 MASK FLAGWRD5
062149,000826: 16,3353 10000 CCS A
062150,000827: 16,3354 34744 CA ONE
062151,000828: 16,3355 64742 AD FOUR
062152,000829: 16,3356 55742 TS NUMBERT
062153,000830: 16,3357 34744 PJETSLEC CA ONE
062154,000831: 16,3360 54001 TS L
062155,000832: 16,3361 11524 CCS TJP
062156,000833: 16,3362 13367 TCF +5
062157,000834: 16,3363 13443 TCF JETSOFF
062158,000835: 16,3364 13366 TCF +2
062159,000836: 16,3365 13443 TCF JETSOFF
062160,000837: 16,3366 22007 ZL
062161,000838: 16,3367 64744 AD ONE
062162,000839: 16,3370 55736 TS ABSTJ
062163,000840: 16,3371 23743 LXCH ROTINDEX
062164,000841: 16,3372 03532 TC SELECTP
062165,000842: 16,3373 46263 CS SIX
062166,000843: 16,3374 61742 AD NUMBERT
062167,000844: 16,3375 00006 EXTEND
062168,000845: 16,3376 13400 BZF +2
062169,000846:
062170,000847: 16,3377 44743 CS TWO
062171,000848: 16,3400 64742 AD FOUR
062172,000849: 16,3401 55521 TS NO.PJETS
062173,000850: 16,3402 31740 CA POLYTEMP
062174,000851: 16,3403 05750 TC WRITEP
062175,000852:
![]() |
Page 1435 |
062177,000854: 16,3404 41736 CS ABSTJ
062178,000855: 16,3405 63613 AD +150MST6
062179,000856: 16,3406 00006 EXTEND
062180,000857: 16,3407 63625 BZMF QRAXIS # GO TO QRAXIS OR TO GTS.
062181,000858:
062182,000859: 16,3410 63573 AD -136MST6
062183,000860: 16,3411 00006 EXTEND
062184,000861: 16,3412 63417 BZMF +5
062185,000862:
062186,000863: 16,3413 27736 ADS ABSTJ
062187,000864: 16,3414 51743 INDEX ROTINDEX
062188,000865: 16,3415 33622 CA MINTIMES
062189,000866: 16,3416 55524 TS TJP
062190,000867:
062191,000868: 16,3417 31736 CA ABSTJ
062192,000869: 16,3420 22007 ZL
062193,000870: 16,3421 00004 INHINT
062194,000871: 16,3422 53471 DXCH T6FURTHA
062195,000872: 16,3423 04665 TC IBNKCALL
062196,000873: 16,3424 37143 CADR JTLST
062197,000874: 16,3425 44731 CS BIT12
062198,000875: 16,3426 71774 MASK RCSFLAGS
062199,000876: 16,3427 55774 TS RCSFLAGS # BIT 12 SET TO 0.
062200,000877: 16,3430 03432 TC ALTSYST
062201,000878: 16,3431 13625 TCF QRAXIS
062202,000879:
062203,000880: 16,3432 30101 ALTSYST CA FLAGWRD5 # ALTERNATE P-AXIS JETS
062204,000881: 16,3433 54001 TS L
062205,000882: 16,3434 34740 CA AORBSYST
062206,000883: 16,3435 00006 EXTEND
062207,000884: 16,3436 06001 RXOR LCHAN
062208,000885: 16,3437 54101 TS FLAGWRD5
062209,000886: 16,3440 00003 RELINT
062210,000887: 16,3441 00002 TC Q
062211,000888:
062212,000889: 16,3442 03432 DKALT TC ALTSYST
062213,000890:
062214,000891: 16,3443 05747 JETSOFF TC WRITEP -1
062215,000892: 16,3444 34746 CA ZERO
062216,000893: 16,3445 55524 TS TJP
062217,000894: 16,3446 13625 TCF QRAXIS
062218,000895: # (NOTE -- M13 = 1 IDENTICALLY IMPLIES NULL MULTIPLICATION.)
062219,000896:
062220,000897: 16,3447 30033 CALCPERR CA CDUY # P-ERROR CALCULATION.
062221,000898: 16,3450 00006 EXTEND
062222,000899: 16,3451 21635 MSU CDUYD # CDU VALUE - ANGLE DESIRED (Y-AXIS)
062223,000900: 16,3452 00006 EXTEND
062224,000901: 16,3453 71414 MP M11 # (CDUY-CDUYD)M11 SCALED AT PI RADIANS
062225,000902: 16,3454 57751 XCH E # SAVE FIRST TERM (OF TWO)
062226,000903: 16,3455 30032 CA CDUX # THIRD COMPONENT
062227,000904:
![]() |
Page 1436 |
062229,000906: 16,3456 00006 EXTEND
062230,000907: 16,3457 21634 MSU CDUXD # CDU VALUE - ANGLE DESIRED (X-AXIS)
062231,000908: # EXTEND
062232,000909: # MP M13
062233,000910: 16,3460 61274 AD DELPEROR # KALCMANU INERFACE ERROR
062234,000911: 16,3461 27751 ADS E # SAVE SUM OF TERMS. COULD BE OVERFLOW.
062235,000912: 16,3462 57464 XCH PERROR # SAVE P-ERROR FOR EIGHT-BALL DISPLAY.
062236,000913: 16,3463 00002 TC Q # RETURN TO CALLER
062237,000914:
062238,000915: # P-AXIS URGENCY FUNCTION CALCULATION.
062239,000916:
062240,000917: 16,3464 03447 PURGENCY TC CALCPERR # CALCULATE P-AXIS ERRORS.
062241,000918: 16,3465 41642 CS OMEGAPD # THIS CODING IS COMMON TO BOTH LM DAP AND
062242,000919: 16,3466 61421 AD OMEGAP # SPS-BACKUP MODE.
062243,000920: 16,3467 55427 TS EDOTP # EDOTP = OMEGAP - OMEGAPD AT PI/4 RAD/SEC
062244,000921:
062245,000922:
062246,000923: 16,3470 44744 CS ONE
062247,000924: 16,3471 55505 TS AXISCTR
062248,000925: 16,3472 30111 CA DAPBOOLS
062249,000926: 16,3473 74730 MASK CSMDOCKD
062250,000927: 16,3474 00006 EXTEND
062251,000928: 16,3475 13506 BZF HEADTJET
062252,000929: 16,3476 00004 INHINT # IF CSMDOCKD = 1, GO TO DOCKED RCS LOGIC
062253,000930: 16,3477 04665 TC IBNKCALL
062254,000931: 16,3500 43667 CADR SPSRCS
062255,000932:
062256,000933: 16,3501 31524 CA TJP
062257,000934: 16,3502 00006 EXTEND
062258,000935: 16,3503 13442 BZF DKALT # IF TJP = ZERO, CHANGE AORBSYST.
062259,000936: 16,3504 00003 RELINT
062260,000937: 16,3505 13351 TCF PJETSLEC -6 # SELECT AORBSYST AND USE TWO JETS
062261,000938: 16,3506 34746 HEADTJET CA ZERO
062262,000939: 16,3507 55500 TS SENSETYP
062263,000940: 16,3510 00004 INHINT
062264,000941: 16,3511 04665 TC IBNKCALL
062265,000942: 16,3512 37304 CADR TJETLAW
062266,000943: 16,3513 00003 RELINT
062267,000944:
062268,000945: 16,3514 41740 CS FIREFCT
062269,000946: 16,3515 63531 AD -FOURDEG
062270,000947: 16,3516 00006 EXTEND
062271,000948: 16,3517 63351 BZMF PJETSLEC -6
062272,000949: 16,3520 11524 CCS TJP
062273,000950: 16,3521 13523 TCF +2
062274,000951: 16,3522 13443 TCF JETSOFF
062275,000952: 16,3523 63530 AD -160MST6
062276,000953: 16,3524 00006 EXTEND
062277,000954: 16,3525 63351 BZMF PJETSLEC -6
062278,000955: 16,3526 36263 CA SIX
062279,000956:
![]() |
Page 1437 |
062281,000958: 16,3527 13356 TCF PJETSLEC -1
062282,000959: 16,3530 77377 -160MST6 DEC -256 B-14
062283,000960: 16,3531 75117 -FOURDEG DEC -.08888
062284,000961:
![]() |
Page 1438 |
062286,000963: # JET POLICY CONSTRUCTION SUBROUTINE
062287,000964:
062288,000965: # INPUT: ROTINDEX, NUMBERT
062289,000966:
062290,000967: # OUTPUT: POLYTEMP (JET POLICY)
062291,000968:
062292,000969: # THIS SUBROUTINE SELECT A SUBSET OF THE DESIRED JETS WHICH HAS NO FAILURE
062293,000970: 16,3532 36263 SELECTP CA SIX
062294,000971: 16,3533 55741 TS TEMPNUM
062295,000972: 16,3534 51742 INDEX NUMBERT
062296,000973: 16,3535 33564 CA TYPEP
062297,000974: 16,3536 51743 INDEX ROTINDEX
062298,000975: 16,3537 73555 MASK JETSALL
062299,000976: 16,3540 55740 TS POLYTEMP
062300,000977: 16,3541 71260 MASK CH6MASK
062301,000978: 16,3542 10000 CCS A
062302,000979: 16,3543 13545 TCF +2
062303,000980: 16,3544 00002 TC Q
062304,000981: 16,3545 11741 CCS TEMPNUM
062305,000982: 16,3546 13552 TCF +4
062306,000983: 16,3547 05571 TC ALARM
062307,000984: 16,3550 02003 OCT 02003
062308,000985: 16,3551 13443 TCF JETSOFF # *****TCF ALARMJET *********************
062309,000986: 16,3552 55742 SELECTYZ TS NUMBERT
062310,000987: 16,3553 13533 TCF SELECTP +1
062311,000988: 16,3554 12777 -1 TCF ABORTYZ +2
062312,000989: 16,3555 00252 JETSALL OCT 00252
062313,000990: 16,3556 00125 OCT 00125 # +P
062314,000991: 16,3557 00140 OCT 00140 # -Y
062315,000992: 16,3560 00006 OCT 00006 # -Z
062316,000993: 16,3561 00220 OCT 00220 # +Y
062317,000994: 16,3562 00011 OCT 00011 # +Z
062318,000995: 16,3563 00151 OCT 00151 # +V
062319,000996: 16,3564 00146 TYPEP OCT 00146 # -U
062320,000997: 16,3565 00226 OCT 00226 # -V
062321,000998: 16,3566 00231 OCT 00231 # +U
062322,000999: 16,3567 00151 OCT 00151 # +V
062323,001000: 16,3570 00132 OCT 00132 # 1-3
062324,001001: 16,3571 00245 OCT 00245 # 2-4
062325,001002: 16,3572 00377 OCT 00377 # ALL
062326,001003: 16,3573 16,3573 INDXYZ = -136MST6
062327,001004: 16,3573 77445 -136MST6 DEC -218 B-14
062328,001005: 16,3574 00004 DEC 4 B-14
062329,001006: 16,3575 00002 DEC 2 B-14
062330,001007: 16,3576 07776 OCT 07776
062331,001008: 16,3577 00005 DEC 5 B-14
062332,001009: 16,3600 00011 DEC 9 B-14
062333,001010: 16,3601 00012 DEC 10 B-14
062334,001011: 16,3602 07776 OCT 07776
062335,001012: 16,3603 00003 DEC 3 B-14
062336,001013:
![]() |
Page 1439 |
062338,001015: 16,3604 00010 DEC 8 B-14
062339,001016: 16,3605 00007 DEC 7 B-14
062340,001017: 16,3606 07776 OCT 07776 # THESE INDEXES OF MASK JETSALL WILL
062341,001018: 16,3607 07776 OCT 07776 # CHANGE THE INSTRUCTION AT SELECTP +4
062342,001019: 16,3610 07776 OCT 07776 # TO BE TC JETSALL -1
062343,001020: 16,3611 07776 OCT 07776 # ONLY USED FOR TRANSLATION FAILURE
062344,001021: 16,3612 07776 OCT 07776
062345,001022: 16,3613 00360 +150MST6 DEC 240 B-14
062346,001023: 16,3614 07400 07400OCT OCT 07400
062347,001024: # T-JET LAW FIXED CONSTANTS
062348,001025:
062349,001026: 16,3615 00266 NORMSCL OCT 266
062350,001027: 16,3616 74631 -100MS DEC -.1
062351,001028: 16,3617 06315 200MS DEC .2
062352,001029: 16,3620 7737 25/32 = PRIO31 # (DEC .78125)
062353,001030: 16,3620 00600 BITS8,9 OCTAL 00600
062354,001031: 16,3621 00632 1/40 DEC .02500
062355,001032: 16,3622 77751 MINTIMES DEC -22 B-14
062356,001033: 16,3623 00026 DEC 22 B-14
062357,001034: 16,3624 02740 PSKIPADR GENADR SKIPPAXS
062358,001035:
062359,001036: # GOES TO Q,R-AXES RCS AUTOPILOT
062360,001037: 16,3625 41644 QRAXIS CS OMEGARD
062361,001038: 16,3626 61423 AD OMEGAR
062362,001039: 16,3627 02314 TC OVERSUB
062363,001040: 16,3630 55437 TS EDOTR
062364,001041: 16,3631 41643 CS OMEGAQD
062365,001042: 16,3632 61422 AD OMEGAQ
062366,001043: 16,3633 02314 TC OVERSUB
062367,001044: 16,3634 55436 TS EDOTQ
062368,001045: 16,3635 00006 EXTEND
062369,001046: 16,3636 33641 DCA QERRCALL
062370,001047: 16,3637 52006 DTCB
062371,001048:
062372,001049: 16,3640 E6,1536 EBANK= AOSQ
062373,001050: 16,3640 02124 36106 QERRCALL 2CADR CALLQERR
End of include-file P-AXIS_RCS_AUTOPILOT.agc. Parent file is MAIN.agc