473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source code files have been transcribed or otherwise adapted from
digitized images of a hardcopy from the private collection of
Don Eyles. The digitization was performed by archive.org, and
transcription was performed by a team of volunteers.
Note that the page images
presented online are of reduced quality, and that the original
high-quality images are available at archive.org.
Report any conversion errors or legibility problems in page images to info@sandroid.org.
Notations on the program listing read, in part:
473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.
|
025312,000002: ## Copyright: Public domain.
025313,000003: ## Filename: JET_FAILURE_CONTROL_LOGIC.agc
025314,000004: ## Purpose: Part of the source code for Aurora (revision 12).
025315,000005: ## Assembler: yaYUL
025316,000006: ## Contact: Hartmuth GUtsche<hgutsche@xplornet.com>.
025317,000007: ## Website: https://www.ibiblio.org/apollo.
025318,000008: ## Pages: 594-603
025319,000009: ## Mod history: 2016-09-20 JL Created.
025320,000010: ## 2016-10-04 HG transcription from scan
025321,000011: ## 2016-10-05 HG BIT14 -> BIT4
025322,000012: ## 2016-10-15 HG fix operand PLOTAB2 -> POLTAB2
025323,000013: ## ASNTPOOL-> ASCNTPOL
025324,000014: ## fix label POLFIND -> POLFND
025325,000015: ## 2016-10-16 HG fix operand BIT17 -> bit7
025326,000016: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
025327,000017: ## and fixed the errors found.
025328,000018:
025329,000019: ## This source code has been transcribed or otherwise adapted from
025330,000020: ## digitized images of a hardcopy from the private collection of
025331,000021: ## Don Eyles. The digitization was performed by archive.org.
025332,000022:
025333,000023: ## Notations on the hardcopy document read, in part:
025334,000024:
025335,000025: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
025336,000026: ## NOV 10, 1966
025337,000027:
025338,000028: ## [Note that this is the date the hardcopy was made, not the
025339,000029: ## date of the program revision or the assembly.]
025340,000030:
025341,000031: ## The scan images (with suitable reduction in storage size and consequent
025342,000032: ## reduction in image quality) are available online at
025343,000033: ## https://www.ibiblio.org/apollo.
025344,000034: ## The original high-quality digital images are available at archive.org:
025345,000035: ## https://archive.org/details/aurora00dapg
025346,000036:
|
|
Page 594 |
025348,000038: 25,2216 BANK 25
025349,000039: 25,2216 E6,1551 EBANK= DT
025350,000040:
025351,000041:
025352,000042:
025353,000043: # DETERMINE MODE - +XTRANS, -XTRANS, ASCENT, MANDATORY ROTATION, OR NORMAL
025354,000044: 25,2216 37651 POLTYPEP CA BIT7 # CHECK + X TRANSLATION
025355,000045: 25,2217 00006 EXTEND
025356,000046: 25,2220 02031 RAND 31
025357,000047: 25,2221 00006 EXTEND
025358,000048: 25,2222 12245 BZF POSXPOLS
025359,000049:
025360,000050: 25,2223 37650 CA BIT8 # CHECK -X TRANSLATION
025361,000051: 25,2224 00006 EXTEND
025362,000052: 25,2225 02031 RAND 31
025363,000053: 25,2226 00006 EXTEND
025364,000054: 25,2227 12242 BZF NEGXPOLS # CHECK U,V-MANDATORY AND 4-JET Q,R
025365,000055:
025366,000056: 25,2230 30765 CA DAPBOOLS # CHECK ASCENT BIT OF DAPBOOLS
025367,000057: 25,2231 77650 MASK BIT8
025368,000058: 25,2232 00006 EXTEND
025369,000059: 25,2233 12237 BZF NORMATT
025370,000060:
025371,000061: 25,2234 51523 ASCFLGHT INDEX POLRELOC
025372,000062: 25,2235 33013 CA ASCNTPOL
025373,000063: 25,2236 12247 TCF +9D
025374,000064: 25,2237 51523 NORMATT INDEX POLRELOC
025375,000065: 25,2240 32773 CA NORMLPOL
025376,000066: 25,2241 12247 TCF +6
025377,000067: 25,2242 51523 NEGXPOLS INDEX POLRELOC
025378,000068: 25,2243 33053 CA -XPOLADR
025379,000069: 25,2244 12247 TCF +3
025380,000070: 25,2245 51523 POSXPOLS INDEX POLRELOC
025381,000071: 25,2246 33033 CA +XPOLADR
025382,000072: 25,2247 55523 TS POLRELOC # RESET POLRELOC TO NEW TABLE ENTRY
025383,000073:
025384,000074: 25,2250 51523 INDEX POLRELOC # USE POLRELOC POINTER TO FIND AND
025385,000075: 25,2251 32364 CA POLTAB1 # EXTRACT THE NUMBER OF TESTABLE
025386,000076: 25,2252 00006 EXTEND # POLICIES AND SAVE IN LOOPCTR
025387,000077: 25,2253 77651 MP BIT7
025388,000078: 25,2254 77663 MASK SEVEN
025389,000079: 25,2255 55524 TS LOOPCTR
025390,000080: 25,2256 12262 TCF +4
025391,000081:
025392,000082: 25,2257 55524 POLLOOP TS LOOPCTR # RESTORE COUNTER
025393,000083: 25,2260 00006 EXTEND # CHANGE EFFECTIVE ADDRESS TO NEXT POLICY
025394,000084: 25,2261 27523 DIM POLRELOC
025395,000085: 25,2262 51523 INDEX POLRELOC
025396,000086: 25,2263 32364 CA POLTAB1 # PICK UP ROTATIONAL JETS
025397,000087: 25,2264 54001 TS L
025398,000088:
|
|
Page 595 |
025400,000090: 25,2265 51523 INDEX POLRELOC
025401,000091: 25,2266 32564 CA POLTAB2 # PICK UP TRANSLATIONAL JETS (MAY BE NONE)
025402,000092: 25,2267 00006 EXTEND # GET ALL JETS USED IN THIS POLICY
025403,000093: 25,2270 05001 WOR L # (LOW ORDER 8 BITS ONLY)
025404,000094: 25,2271 71512 MASK CH5MASK # TEST FOR POLICY FEASIBILITY -
025405,000095: 25,2272 10000 CCS A # REJECT POLICY IF ANY OF THE JETS IT USES
025406,000096: 25,2273 12275 TCF +2 # ARE THOUGHT TO HAVE FAILED
025407,000097: 25,2274 12301 TCF POLFND
025408,000098: 25,2275 11524 CCS LOOPCTR # TEST FOR EXISTENCE OF ADDITIONAL
025409,000099: 25,2276 12257 TCF POLLOOP # TESTABLE POLICY
025410,000100:
025411,000101: 25,2277 00006 EXTEND # LAST FEASIBLE CHOICE -
025412,000102: 25,2300 27523 DIM POLRELOC # CREATE UNTESTED POLICY ADDRESS
025413,000103:
025414,000104: 25,2301 51523 POLFND INDEX POLRELOC
025415,000105: 25,2302 32364 CA POLTAB1
025416,000106: 25,2303 75235 MASK LOW8 # GET CHANNEL 5 BIT CONFIGURATION FOR
025417,000107: 25,2304 67641 AD BIT15 # SET SIGN FOR Q,R AXIS FLAG
025418,000108: 25,2305 55501 TS JTSONNOW # JETS TO BE TURNED ON IMMEDIATELY
025419,000109: 25,2306 51523 INDEX POLRELOC
025420,000110: 25,2307 32364 CA POLTAB1
025421,000111: 25,2310 00006 EXTEND
025422,000112: 25,2311 77654 MP BIT4 # GET CODE FOR NUMBER OF TORQUING JETS
025423,000113: 25,2312 10000 CCS A
025424,000114: 25,2313 12315 TCF +2
025425,000115: 25,2314 12326 TCF TORKSETP # N=2, CODE=0
025426,000116: 25,2315 10000 CCS A
025427,000117: 25,2316 12322 TCF 1/4JETAC
025428,000118: 25,2317 31471 CA 1/NJETAC # N=4, CODE=2
025429,000119: 25,2320 60000 DOUBLE # N = 1, CODE = 1
025430,000120: 25,2321 12325 TCF NJETCORR
025431,000121: 25,2322 31471 1/4JETAC CA 1/NJETAC # N = 4, CODE = 2
025432,000122: 25,2323 00006 EXTEND
025433,000123: 25,2324 77642 MP BIT14
025434,000124: 25,2325 55471 NJETCORR TS 1/NJETAC
025435,000125:
025436,000126: 25,2326 51523 TORKSETP INDEX POLRELOC
025437,000127: 25,2327 32564 CA POLTAB2
025438,000128: 25,2330 00006 EXTEND
025439,000129: 25,2331 77654 MP BIT4 # GET CODE FOR NUMBER OF Q-JETS
025440,000130: 25,2332 50000 INDEX A
025441,000131: 25,2333 32355 CA TORKTABL # GET NUMBER OF Q-JETS FROM TABLE AND
025442,000132: 25,2334 55620 TS NO.QJETS # SAVE FOR TORQUE VECTOR RECONSTRUCTION
025443,000133: 25,2335 30001 CA L
025444,000134: 25,2336 00006 EXTEND
025445,000135: 25,2337 77654 MP BIT4 # GET CODE FOR NUMBER OF R-JETS
025446,000136: 25,2340 50000 INDEX A
025447,000137: 25,2341 32355 CA TORKTABL # GET NUMBER OF R-JETS FROM TABLE AND
025448,000138: 25,2342 55621 TS NO.RJETS # SAVE FOR TORQUE VECTOR RECONSTRUCTION
025449,000139: 25,2343 30001 CA L
025450,000140:
|
|
Page 596 |
025452,000142: 25,2344 00006 EXTEND
025453,000143: 25,2345 77647 MP BIT9 # GET CHANNEL 5 BIT CONFIGURATION FOR
025454,000144: 25,2346 67641 AD BIT15 # SET SIGN FOR Q,R AXIS FLAG
025455,000145: 25,2347 55502 TS JTSATCHG # JETS TO BE TURNED ON AFTER TORQUING
025456,000146:
025457,000147: 25,2350 32354 CA BBANKSET
025458,000148: 25,2351 54001 TS L
025459,000149: 25,2352 31514 CA TJETADR
025460,000150: 25,2353 52006 DTCB # RETURN TO FBANK 24
025461,000151:
025462,000152: 25,2354 50006 BBANKSET OCTAL 50006
025463,000153:
025464,000154:
025465,000155:
025466,000156:
025467,000157: # TABLE OF Q,R-JET NUMBERS AND DIRECTIONS FOR TORQUE RECONSTRUCTION
025468,000158:
025469,000159: 25,2355 77773 TORKTABL DEC -4 B-14
025470,000160: 25,2356 77775 DEC -2 B-14
025471,000161: 25,2357 77776 DEC -1 B-14
025472,000162: 25,2360 00000 DEC 0 B-14
025473,000163: 25,2361 00001 DEC +1 B-14
025474,000164: 25,2362 00002 DEC +2 B-14
025475,000165: 25,2363 00004 DEC +4 B-14
025476,000166:
025477,000167: # POLTAB1 LISTS Q,R-AXIS ROTATIONAL JET POLICIES
025478,000168:
025479,000169: 25,2364 00220 POLTAB1 OCTAL 220 # JETS 9 14 0 0 NO 2 CTR 0
025480,000170: 25,2365 00006 OCTAL 6 # JETS 2 5 0 0 NO 2 CTR 0
025481,000171: 25,2366 00602 OCTAL 602 # JETS 2 14 0 0 NO 2 CTR 1
025482,000172: 25,2367 10226 OCTAL 10226 # JETS 2 5 9 14 NO 4 CTR 0
025483,000173: 25,2370 11626 OCTAL 11626 # JETS 2 5 9 14 NO 4 CTR 3
025484,000174: 25,2371 00201 OCTAL 201 # JETS 1 14 0 0 NO 2 CTR 0
025485,000175: 25,2372 00044 OCTAL 44 # JETS 5 10 0 0 NO 2 CTR 0
025486,000176: 25,2373 00640 OCTAL 640 # JETS 10 14 0 0 NO 2 CTR 1
025487,000177: 25,2374 10245 OCTAL 10245 # JETS 1 5 10 14 NO 4 CTR 0
025488,000178: 25,2375 11645 OCTAL 11645 # JETS 1 5 10 14 NO 4 CTR 3
025489,000179: 25,2376 00140 OCTAL 140 # JETS 10 13 0 0 NO 2 CTR 0
025490,000180: 25,2377 00011 OCTAL 11 # JETS 1 6 0 0 NO 2 CTR 0
025491,000181: 25,2400 00450 OCTAL 450 # JETS 6 10 0 0 NO 2 CTR 1
025492,000182: 25,2401 10151 OCTAL 10151 # JETS 1 6 10 13 NO 4 CTR 0
025493,000183: 25,2402 11551 OCTAL 11551 # JETS 2 6 10 13 NO 4 CTR 3
025494,000184: 25,2403 00102 OCTAL 102 # JETS 2 13 0 0 NO 2 CTR 0
025495,000185: 25,2404 00030 OCTAL 30 # JETS 6 9 0 0 NO 2 CTR 0
025496,000186: 25,2405 00412 OCTAL 412 # JETS 2 6 0 0 NO 1 CTR 1
025497,000187: 25,2406 10132 OCTAL 10132 # JETS 2 6 9 13 NO 4 CTR 0
025498,000188: 25,2407 11532 OCTAL 11532 # JETS 2 5 9 13 NO 4 CTR 3
025499,000189: 25,2410 00220 OCTAL 220 # JETS 9 14 0 0 NO 2 CTR 0
025500,000190: 25,2411 00006 OCTAL 6 # JETS 2 5 0 0 NO 2 CTR 0
025501,000191: 25,2412 00424 OCTAL 424 # JETS 5 9 0 0 NO 2 CTR 1
025502,000192: 25,2413 10226 OCTAL 10226 # JETS 2 5 9 14 NO 4 CTR 0
025503,000193:
|
|
Page 597 |
025505,000195: 25,2414 11626 OCTAL 11626 # JETS 2 5 9 14 NO 4 CTR 3
025506,000196: 25,2415 00044 OCTAL 44 # JETS 5 10 0 0 NO 2 CTR 3
025507,000197: 25,2416 00201 OCTAL 201 # JETS 1 14 0 0 NO 2 CTR 0
025508,000198: 25,2417 00405 OCTAL 405 # JETS 1 5 0 0 NO 2 CTR 1
025509,000199: 25,2420 10245 OCTAL 10245 # JETS 1 5 10 14 NO 4 CTR 0
025510,000200: 25,2421 11645 OCTAL 11645 # JETS 1 5 10 14 NO 4 CTR 3
025511,000201: 25,2422 00140 OCTAL 140 # JETS 10 13 0 0 NO 2 CTR 0
025512,000202: 25,2423 00011 OCTAL 11 # JETS 1 6 0 0 NO 2 CTR 0
025513,000203: 25,2424 00501 OCTAL 501 # JETS 1 13 0 0 NO 2 CTR 1
025514,000204: 25,2425 10151 OCTAL 10151 # JETS 1 6 10 13 NO 4 CTR 0
025515,000205: 25,2426 11551 OCTAL 11551 # JETS 1 6 10 13 NO 4 CTR 3
025516,000206: 25,2427 00030 OCTAL 30 # JETS 6 9 0 0 NO 2 CTR 0
025517,000207: 25,2430 00102 OCTAL 102 # JETS 2 13 0 0 NO 2 CTR 0
025518,000208: 25,2431 00520 OCTAL 520 # JETS 9 13 0 0 NO 2 CTR 1
025519,000209: 25,2432 10132 OCTAL 10132 # JETS 2 6 9 13 NO 4 CTR 0
025520,000210: 25,2433 11532 OCTAL 11532 # JETS 2 6 9 13 NO 4 CTR 3
025521,000211: 25,2434 04046 OCTAL 4046 # JETS 2 5 10 0 NO 1 CTR 0
025522,000212: 25,2435 04242 OCTAL 4242 # JETS 2 10 14 0 NO 1 CTR 0
025523,000213: 25,2436 04600 OCTAL 4600 # JETS 14 0 0 0 NO 1 CTR 1
025524,000214: 25,2437 00204 OCTAL 204 # JETS 5 14 0 0 NO 2 CTR 0
025525,000215: 25,2440 01604 OCTAL 1604 # JETS 5 14 0 0 NO 2 CTR 3
025526,000216: 25,2441 04142 OCTAL 4142 # JETS 2 10 13 0 NO 1 CTR 0
025527,000217: 25,2442 04052 OCTAL 4052 # JETS 2 6 10 0 NO 1 CTR 0
025528,000218: 25,2443 04410 OCTAL 4410 # JETS 6 0 0 0 NO 1 CTR 1
025529,000219: 25,2444 00110 OCTAL 110 # JETS 6 13 0 0 NO 2 CTR 0
025530,000220: 25,2445 01510 OCTAL 1510 # JETS 6 13 0 0 NO 2 CTR 3
025531,000221: 25,2446 04211 OCTAL 4211 # JETS 1 6 14 0 NO 1 CTR 0
025532,000222: 25,2447 04250 OCTAL 4250 # JETS 6 10 14 0 NO 1 CTR 0
025533,000223: 25,2450 04440 OCTAL 4440 # JETS 10 0 0 0 NO 1 CTR 1
025534,000224: 25,2451 00041 OCTAL 41 # JETS 1 10 0 0 NO 2 CTR 0
025535,000225: 25,2452 01441 OCTAL 1441 # JETS 1 10 0 0 NO 2 CTR 3
025536,000226: 25,2453 04230 OCTAL 4230 # JETS 6 9 14 0 NO 1 CTR 0
025537,000227: 25,2454 04212 OCTAL 4212 # JETS 2 6 14 0 NO 1 CTR 0
025538,000228: 25,2455 04402 OCTAL 4402 # JETS 2 0 0 0 NO 1 CTR 1
025539,000229: 25,2456 00022 OCTAL 22 # JETS 2 9 0 0 NO 2 CTR 0
025540,000230: 25,2457 01422 OCTAL 1422 # JETS 2 9 0 0 NO 2 CTR 3
025541,000231: 25,2460 04221 OCTAL 4221 # JETS 1 9 14 0 NO 1 CTR 0
025542,000232: 25,2461 04025 OCTAL 4025 # JETS 1 5 9 0 NO 1 CTR 0
025543,000233: 25,2462 04404 OCTAL 4404 # JETS 5 0 0 0 NO 1 CTR 1
025544,000234: 25,2463 00204 OCTAL 204 # JETS 5 14 0 0 NO 2 CTR 0
025545,000235: 25,2464 01604 OCTAL 1604 # JETS 5 14 0 0 NO 2 CTR 3
025546,000236: 25,2465 04031 OCTAL 4031 # JETS 1 6 9 0 NO 1 CTR 0
025547,000237: 25,2466 04121 OCTAL 4121 # JETS 1 9 13 0 NO 1 CTR 0
025548,000238: 25,2467 04500 OCTAL 4500 # JETS 13 0 0 0 NO 1 CTR 1
025549,000239: 25,2470 00110 OCTAL 110 # JETS 6 13 0 0 NO 2 CTR 0
025550,000240: 25,2471 01510 OCTAL 1510 # JETS 6 13 0 0 NO 2 CTR 3
025551,000241: 25,2472 04144 OCTAL 4144 # JETS 5 10 13 0 NO 1 CTR 0
025552,000242: 25,2473 04105 OCTAL 4105 # JETS 1 5 13 0 NO 1 CTR 0
025553,000243: 25,2474 04401 OCTAL 4401 # JETS 1 0 0 0 NO 1 CTR 1
025554,000244: 25,2475 00041 OCTAL 41 # JETS 1 10 0 0 NO 2 CTR 0
025555,000245:
|
|
Page 598 |
025557,000247: 25,2476 01441 OCTAL 1441 # JETS 1 10 0 0 NO 2 CTR 3
025558,000248: 25,2477 04106 OCTAL 4106 # JETS 2 5 13 0 NO 1 CTR 0
025559,000249: 25,2500 04124 OCTAL 4124 # JETS 5 9 13 0 NO 1 CTR 0
025560,000250: 25,2501 04420 OCTAL 4420 # JETS 9 0 0 0 NO 1 CTR 1
025561,000251: 25,2502 00022 OCTAL 22 # JETS 2 9 0 0 NO 2 CTR 0
025562,000252: 25,2503 01422 OCTAL 1422 # JETS 2 9 0 0 NO 2 CTR 3
025563,000253: 25,2504 04004 OCTAL 4004 # JETS 5 0 0 0 NO 1 CTR 0
025564,000254: 25,2505 04200 OCTAL 4200 # JETS 14 0 0 0 NO 1 CTR 0
025565,000255: 25,2506 00604 OCTAL 604 # JETS 5 14 0 0 NO 2 CTR 1
025566,000256: 25,2507 04001 OCTAL 4001 # JETS 1 0 0 0 NO 1 CTR 0
025567,000257: 25,2510 04040 OCTAL 4040 # JETS 10 0 0 0 NO 1 CTR 0
025568,000258: 25,2511 00441 OCTAL 441 # JETS 1 10 0 0 NO 1 CTR 1
025569,000259: 25,2512 04100 OCTAL 4100 # JETS 13 0 0 0 NO 1 CTR 0
025570,000260: 25,2513 04010 OCTAL 4010 # JETS 6 0 0 0 NO 1 CTR 0
025571,000261: 25,2514 00510 OCTAL 510 # JETS 6 13 0 0 NO 2 CTR 1
025572,000262: 25,2515 04020 OCTAL 4020 # JETS 9 0 0 0 NO 1 CTR 0
025573,000263: 25,2516 04002 OCTAL 4002 # JETS 2 0 0 0 NO 1 CTR 0
025574,000264: 25,2517 00422 OCTAL 422 # JETS 2 9 0 0 NO 2 CTR 1
025575,000265: 25,2520 00024 OCTAL 24 # JETS 5 9 0 0 NO 2 CTR 0
025576,000266: 25,2521 00220 OCTAL 220 # JETS 9 14 0 0 NO 2 CTR 0
025577,000267: 25,2522 00006 OCTAL 6 # JETS 2 5 0 0 NO 2 CTR 0
025578,000268: 25,2523 01202 OCTAL 1202 # JETS 2 14 0 0 NO 2 CTR 2
025579,000269: 25,2524 00005 OCTAL 5 # JETS 1 5 0 0 NO 2 CTR 0
025580,000270: 25,2525 00201 OCTAL 201 # JETS 1 14 0 0 NO 2 CTR 0
025581,000271: 25,2526 00044 OCTAL 44 # JETS 5 10 0 0 NO 2 CTR 0
025582,000272: 25,2527 01240 OCTAL 1240 # JETS 10 14 0 0 NO 2 CTR 2
025583,000273: 25,2530 00101 OCTAL 101 # JETS 1 13 0 0 NO 2 CTR 0
025584,000274: 25,2531 00140 OCTAL 140 # JETS 10 13 0 0 NO 2 CTR 0
025585,000275: 25,2532 00011 OCTAL 11 # JETS 1 6 0 0 NO 2 CTR 0
025586,000276: 25,2533 01050 OCTAL 1050 # JETS 6 10 0 0 NO 2 CTR 2
025587,000277: 25,2534 00120 OCTAL 120 # JETS 9 13 0 0 NO 2 CTR 0
025588,000278: 25,2535 00102 OCTAL 102 # JETS 2 13 0 0 NO 2 CTR 0
025589,000279: 25,2536 00030 OCTAL 30 # JETS 6 9 0 0 NO 2 CTR 0
025590,000280: 25,2537 01012 OCTAL 1012 # JETS 2 6 0 0 NO 2 CTR 2
025591,000281: 25,2540 00024 OCTAL 24 # JETS 5 9 0 0 NO 2 CTR 0
025592,000282: 25,2541 00202 OCTAL 202 # JETS 2 14 0 0 NO 2 CTR 0
025593,000283: 25,2542 00220 OCTAL 220 # JETS 9 14 0 0 NO 2 CTR 0
025594,000284: 25,2543 01006 OCTAL 1006 # JETS 2 5 0 0 NO 2 CTR 2
025595,000285: 25,2544 11626 OCTAL 11626 # JETS 2 5 9 14 NO 4 CTR 3
025596,000286: 25,2545 00005 OCTAL 5 # JETS 1 5 0 0 NO 2 CTR 0
025597,000287: 25,2546 00240 OCTAL 240 # JETS 10 14 0 0 NO 2 CTR 0
025598,000288: 25,2547 00201 OCTAL 201 # JETS 1 14 0 0 NO 2 CTR 0
025599,000289: 25,2550 01044 OCTAL 1044 # JETS 5 10 0 0 NO 2 CTR 2
025600,000290: 25,2551 11645 OCTAL 11645 # JETS 1 5 10 14 NO 4 CTR 3
025601,000291: 25,2552 00050 OCTAL 50 # JETS 6 10 0 0 NO 2 CTR 0
025602,000292: 25,2553 00101 OCTAL 101 # JETS 1 13 0 0 NO 2 CTR 0
025603,000293: 25,2554 00140 OCTAL 140 # JETS 10 13 0 0 NO 2 CTR 0
025604,000294: 25,2555 01011 OCTAL 1011 # JETS 1 6 0 0 NO 2 CTR 2
025605,000295: 25,2556 11551 OCTAL 11551 # JETS 1 6 10 13 NO 4 CTR 3
025606,000296: 25,2557 00120 OCTAL 120 # JETS 9 13 0 0 NO 2 CTR 0
025607,000297:
|
|
Page 599 |
025609,000299: 25,2560 00012 OCTAL 12 # JETS 2 6 0 0 NO 2 CTR 0
025610,000300: 25,2561 00102 OCTAL 102 # JETS 2 13 0 0 NO 2 CTR 0
025611,000301: 25,2562 01030 OCTAL 1030 # JETS 6 9 0 0 NO 2 CTR 2
025612,000302: 25,2563 11532 OCTAL 11532 # JETS 2 6 9 13 NO 4 CTR 3
025613,000303:
025614,000304: # POLTAB2 LISTS Q,R-AXIS TRANSLATIONAL POLICIES
025615,000305:
025616,000306: 25,2564 25610 POLTAB2 OCTAL 25610 # JETS 6 14 QNO 2 RNO 0
025617,000307: 25,2565 25442 OCTAL 25442 # JETS 2 10 QNO 2 RNO 0
025618,000308: 25,2566 25400 OCTAL 25400 # JETS 0 0 QNO 2 RNO 0
025619,000309: 25,2567 31610 OCTAL 31610 # JETS 6 14 QNO 4 RNO 0
025620,000310: 25,2570 31442 OCTAL 31442 # JETS 2 10 QNO 4 RNO 0
025621,000311: 25,2571 16610 OCTAL 16610 # JETS 6 14 QNO 0 RNO 2
025622,000312: 25,2572 16442 OCTAL 16442 # JETS 2 10 QNO 0 RNO 2
025623,000313: 25,2573 16400 OCTAL 16400 # JETS 0 0 QNO 0 RNO 2
025624,000314: 25,2574 17210 OCTAL 17210 # JETS 6 14 QNO 0 RNO 4
025625,000315: 25,2575 17042 OCTAL 17042 # JETS 2 10 QNO 0 RNO 4
025626,000316: 25,2576 05442 OCTAL 5442 # JETS 2 10 QNO- 2 RNO 0
025627,000317: 25,2577 05610 OCTAL 5610 # JETS 6 14 QNO- 2 RNO 0
025628,000318: 25,2600 05400 OCTAL 5400 # JETS 0 0 QNO- 2 RNO 0
025629,000319: 25,2601 01610 OCTAL 1610 # JETS 6 14 QNO- 4 RNO 0
025630,000320: 25,2602 01442 OCTAL 1442 # JETS 2 10 QNO- 4 RNO 0
025631,000321: 25,2603 14442 OCTAL 14442 # JETS 2 10 QNO 0 RNO- 2
025632,000322: 25,2604 14610 OCTAL 14610 # JETS 6 14 QNO 0 RNO- 2
025633,000323: 25,2605 14400 OCTAL 14400 # JETS 0 0 QNO 0 RNO- 2
025634,000324: 25,2606 14210 OCTAL 14210 # JETS 6 14 QNO 0 RNO- 4
025635,000325: 25,2607 14042 OCTAL 14042 # JETS 2 10 QNO 0 RNO- 4
025636,000326: 25,2610 25421 OCTAL 25421 # JETS 1 9 QNO 2 RNO 0
025637,000327: 25,2611 25504 OCTAL 25504 # JETS 5 13 QNO 2 RNO 0
025638,000328: 25,2612 25400 OCTAL 25400 # JETS 0 0 QNO 2 RNO 0
025639,000329: 25,2613 31504 OCTAL 31504 # JETS 5 13 QNO 4 RNO 0
025640,000330: 25,2614 31421 OCTAL 31421 # JETS 1 9 QNO 4 RNO 0
025641,000331: 25,2615 16504 OCTAL 16504 # JETS 5 13 QNO 0 RNO 2
025642,000332: 25,2616 16421 OCTAL 16421 # JETS 1 9 QNO 0 RNO 2
025643,000333: 25,2617 16400 OCTAL 16400 # JETS 0 0 QNO 0 RNO 2
025644,000334: 25,2620 17104 OCTAL 17104 # JETS 5 13 QNO 0 RNO 4
025645,000335: 25,2621 17021 OCTAL 17021 # JETS 1 9 QNO 0 RNO 4
025646,000336: 25,2622 05504 OCTAL 5504 # JETS 5 13 QNO- 2 RNO 0
025647,000337: 25,2623 05421 OCTAL 5421 # JETS 1 9 QNO- 2 RNO 0
025648,000338: 25,2624 05400 OCTAL 5400 # JETS 0 0 QNO- 2 RNO 0
025649,000339: 25,2625 01504 OCTAL 1504 # JETS 5 13 QNO- 4 RNO 0
025650,000340: 25,2626 01421 OCTAL 1421 # JETS 1 9 QNO- 4 RNO 0
025651,000341: 25,2627 14421 OCTAL 14421 # JETS 1 9 QNO 0 RNO- 2
025652,000342: 25,2630 14504 OCTAL 14504 # JETS 5 13 QNO 0 RNO- 2
025653,000343: 25,2631 14400 OCTAL 14400 # JETS 0 0 QNO 0 RNO- 2
025654,000344: 25,2632 14104 OCTAL 14104 # JETS 5 13 QNO 0 RNO- 4
025655,000345: 25,2633 14021 OCTAL 14021 # JETS 1 9 QNO 0 RNO- 4
025656,000346: 25,2634 22042 OCTAL 22042 # JETS 2 10 QNO 1 RNO 1
025657,000347: 25,2635 22042 OCTAL 22042 # JETS 2 10 QNO 1 RNO 1
025658,000348: 25,2636 22210 OCTAL 22210 # JETS 6 14 QNO 1 RNO 1
025659,000349:
|
|
Page 600 |
025661,000351: 25,2637 26610 OCTAL 26610 # JETS 6 14 QNO 2 RNO 2
025662,000352: 25,2640 26442 OCTAL 26442 # JETS 2 10 QNO 2 RNO 2
025663,000353: 25,2641 11042 OCTAL 11042 # JETS 2 10 QNO- 1 RNO- 1
025664,000354: 25,2642 11042 OCTAL 11042 # JETS 2 10 QNO- 1 RNO- 1
025665,000355: 25,2643 11210 OCTAL 11210 # JETS 6 14 QNO- 1 RNO- 1
025666,000356: 25,2644 04610 OCTAL 4610 # JETS 6 14 QNO- 2 RNO- 2
025667,000357: 25,2645 04442 OCTAL 4442 # JETS 2 10 QNO- 2 RNO- 2
025668,000358: 25,2646 12210 OCTAL 12210 # JETS 6 14 QNO- 1 RNO 1
025669,000359: 25,2647 12210 OCTAL 12210 # JETS 6 14 QNO- 1 RNO 1
025670,000360: 25,2650 12042 OCTAL 12042 # JETS 2 10 QNO- 1 RNO 1
025671,000361: 25,2651 06442 OCTAL 6442 # JETS 2 10 QNO- 2 RNO 2
025672,000362: 25,2652 06610 OCTAL 6610 # JETS 6 14 QNO- 2 RNO 2
025673,000363: 25,2653 21210 OCTAL 21210 # JETS 6 14 QNO 1 RNO- 1
025674,000364: 25,2654 21210 OCTAL 21210 # JETS 6 14 QNO 1 RNO- 1
025675,000365: 25,2655 21042 OCTAL 21042 # JETS 2 10 QNO 1 RNO- 1
025676,000366: 25,2656 24442 OCTAL 24442 # JETS 2 10 QNO 2 RNO- 2
025677,000367: 25,2657 24610 OCTAL 24610 # JETS 6 14 QNO 2 RNO- 2
025678,000368: 25,2660 22021 OCTAL 22021 # JETS 1 9 QNO 1 RNO 1
025679,000369: 25,2661 22021 OCTAL 22021 # JETS 1 9 QNO 1 RNO 1
025680,000370: 25,2662 22104 OCTAL 22104 # JETS 5 13 QNO 1 RNO 1
025681,000371: 25,2663 26504 OCTAL 26504 # JETS 5 13 QNO 2 RNO 2
025682,000372: 25,2664 26421 OCTAL 26421 # JETS 1 9 QNO 2 RNO 2
025683,000373: 25,2665 11021 OCTAL 11021 # JETS 1 9 QNO- 1 RNO- 1
025684,000374: 25,2666 11021 OCTAL 11021 # JETS 1 9 QNO- 1 RNO- 1
025685,000375: 25,2667 11104 OCTAL 11104 # JETS 5 13 QNO- 1 RNO- 1
025686,000376: 25,2670 04504 OCTAL 4504 # JETS 5 13 QNO- 2 RNO- 2
025687,000377: 25,2671 04421 OCTAL 4421 # JETS 1 9 QNO- 2 RNO- 2
025688,000378: 25,2672 12104 OCTAL 12104 # JETS 5 13 QNO- 1 RNO 1
025689,000379: 25,2673 12104 OCTAL 12104 # JETS 5 13 QNO- 1 RNO 1
025690,000380: 25,2674 12021 OCTAL 12021 # JETS 1 9 QNO- 1 RNO 1
025691,000381: 25,2675 06421 OCTAL 6421 # JETS 1 9 QNO- 2 RNO 2
025692,000382: 25,2676 06504 OCTAL 6504 # JETS 5 13 QNO- 2 RNO 2
025693,000383: 25,2677 21104 OCTAL 21104 # JETS 5 13 QNO 1 RNO- 1
025694,000384: 25,2700 21104 OCTAL 21104 # JETS 5 13 QNO 1 RNO- 1
025695,000385: 25,2701 21021 OCTAL 21021 # JETS 1 9 QNO 1 RNO- 1
025696,000386: 25,2702 24421 OCTAL 24421 # JETS 1 9 QNO 2 RNO- 2
025697,000387: 25,2703 24504 OCTAL 24504 # JETS 5 13 QNO 2 RNO- 2
025698,000388: 25,2704 22000 OCTAL 22000 # JETS 0 0 QNO 1 RNO 1
025699,000389: 25,2705 22000 OCTAL 22000 # JETS 0 0 QNO 1 RNO 1
025700,000390: 25,2706 26400 OCTAL 26400 # JETS 0 0 QNO 2 RNO 2
025701,000391: 25,2707 12000 OCTAL 12000 # JETS 0 0 QNO- 1 RNO 1
025702,000392: 25,2710 12000 OCTAL 12000 # JETS 0 0 QNO- 1 RNO 1
025703,000393: 25,2711 06400 OCTAL 6400 # JETS 0 0 QNO- 2 RNO 2
025704,000394: 25,2712 11000 OCTAL 11000 # JETS 0 0 QNO- 1 RNO- 1
025705,000395: 25,2713 11000 OCTAL 11000 # JETS 0 0 QNO- 1 RNO- 1
025706,000396: 25,2714 04400 OCTAL 4400 # JETS 0 0 QNO- 2 RNO- 2
025707,000397: 25,2715 21000 OCTAL 21000 # JETS 0 0 QNO 1 RNO- 1
025708,000398: 25,2716 21000 OCTAL 21000 # JETS 0 0 QNO 1 RNO- 1
025709,000399: 25,2717 24400 OCTAL 24400 # JETS 0 0 QNO 2 RNO- 2
025710,000400: 25,2720 25400 OCTAL 25400 # JETS 0 0 QNO 2 RNO 0
025711,000401:
|
|
Page 601 |
025713,000403: 25,2721 25400 OCTAL 25400 # JETS 0 0 QNO 2 RNO 0
025714,000404: 25,2722 25400 OCTAL 25400 # JETS 0 0 QNO 2 RNO 0
025715,000405: 25,2723 25400 OCTAL 25400 # JETS 0 0 QNO 2 RNO 0
025716,000406: 25,2724 16400 OCTAL 16400 # JETS 0 0 QNO 0 RNO 2
025717,000407: 25,2725 16400 OCTAL 16400 # JETS 0 0 QNO 0 RNO 2
025718,000408: 25,2726 16400 OCTAL 16400 # JETS 0 0 QNO 0 RNO 2
025719,000409: 25,2727 16400 OCTAL 16400 # JETS 0 0 QNO 0 RNO 2
025720,000410: 25,2730 05400 OCTAL 5400 # JETS 0 0 QNO- 2 RNO 0
025721,000411: 25,2731 05400 OCTAL 5400 # JETS 0 0 QNO- 2 RNO 0
025722,000412: 25,2732 05400 OCTAL 5400 # JETS 0 0 QNO- 2 RNO 0
025723,000413: 25,2733 05400 OCTAL 5400 # JETS 0 0 QNO- 2 RNO 0
025724,000414: 25,2734 14400 OCTAL 14400 # JETS 0 0 QNO 0 RNO- 2
025725,000415: 25,2735 14400 OCTAL 14400 # JETS 0 0 QNO 0 RNO- 2
025726,000416: 25,2736 14400 OCTAL 14400 # JETS 0 0 QNO 0 RNO- 2
025727,000417: 25,2737 14400 OCTAL 14400 # JETS 0 0 QNO 0 RNO- 2
025728,000418: 25,2740 25400 OCTAL 25400 # JETS 0 0 QNO 2 RNO 0
025729,000419: 25,2741 25400 OCTAL 25400 # JETS 0 0 QNO 2 RNO 0
025730,000420: 25,2742 25400 OCTAL 25400 # JETS 0 0 QNO 2 RNO 0
025731,000421: 25,2743 25400 OCTAL 25400 # JETS 0 0 QNO 2 RNO 0
025732,000422: 25,2744 31400 OCTAL 31400 # JETS 0 0 QNO 4 RNO 0
025733,000423: 25,2745 16400 OCTAL 16400 # JETS 0 0 QNO 0 RND 2
025734,000424: 25,2746 16400 OCTAL 16400 # JETS 0 0 QNO 0 RND 2
025735,000425: 25,2747 16400 OCTAL 16400 # JETS 0 0 QNO 0 RNO 2
025736,000426: 25,2750 16400 OCTAL 16400 # JETS 0 0 QNO 0 RNO 2
025737,000427: 25,2751 17000 OCTAL 17000 # JETS 0 0 QNO 0 RNO 4
025738,000428: 25,2752 05400 OCTAL 5400 # JETS 0 0 QNO- 2 RNO 0
025739,000429: 25,2753 05400 OCTAL 5400 # JETS 0 0 QNO- 2 RNO 0
025740,000430: 25,2754 05400 OCTAL 5400 # JETS 0 0 QNO- 2 RNO 0
025741,000431: 25,2755 05400 OCTAL 5400 # JETS 0 0 QNO- 2 RNO 0
025742,000432: 25,2756 01400 OCTAL 1400 # JETS 0 0 QNO- 4 RNO 0
025743,000433: 25,2757 14400 OCTAL 14400 # JETS 0 0 QNO 0 RNO- 2
025744,000434: 25,2760 14400 OCTAL 14400 # JETS 0 0 QNO 0 RNO- 2
025745,000435: 25,2761 14400 OCTAL 14400 # JETS 0 0 QNO 0 RNO- 2
025746,000436: 25,2762 14400 OCTAL 14400 # JETS 0 0 QNO 0 RNO- 2
025747,000437: 25,2763 14000 OCTAL 14000 # JETS 0 0 QNO 0 RNO- 4
025748,000438:
025749,000439:
025750,000440:
025751,000441: # NORMLPOL LISTS THE ENTRY POINTS OF NORMAL POLICIES
025752,000442: 25,2764 00177 DEC 127 B-14
025753,000443: 25,2765 00176 DEC 126 B-14
025754,000444: 25,2766 00130 DEC 88 B-14
025755,000445: 25,2767 00130 DEC 88 B-14
025756,000446: 25,2770 00172 DEC 122 B-14
025757,000447: 25,2771 00171 DEC 121 B-14
025758,000448: 25,2772 00125 DEC 85 B-14
025759,000449: 25,2773 00125 NORMLPOL DEC 85 B-14
025760,000450: 25,2774 00133 DEC 91 B-14
025761,000451: 25,2775 00133 DEC 91 B-14
025762,000452:
|
|
Page 602 |
025764,000454: 25,2776 00122 DEC 82 B-14
025765,000455: 25,2777 00122 DEC 82 B-14
025766,000456: 25,3000 00165 DEC 117 B-14
025767,000457: 25,3001 00164 DEC 116 B-14
025768,000458: 25,3002 00160 DEC 112 B-14
025769,000459: 25,3003 00157 DEC 111 B-14
025770,000460:
025771,000461: # ASCNTPOL LISTS THE ENTRY POINTS UNDER ASCENT CONDITIONS
025772,000462:
025773,000463: 25,3004 00177 DEC 127 B-14
025774,000464: 25,3005 00153 DEC 107 B-14
025775,000465: 25,3006 00130 DEC 88 B-14
025776,000466: 25,3007 00130 DEC 88 B-14
025777,000467: 25,3010 00172 DEC 122 B-14
025778,000468: 25,3011 00147 DEC 103 B-14
025779,000469: 25,3012 00125 DEC 85 B-14
025780,000470: 25,3013 00125 ASCNTPOL DEC 85 B-14
025781,000471: 25,3014 00133 DEC 91 B-14
025782,000472: 25,3015 00133 DEC 91 B-14
025783,000473: 25,3016 00122 DEC 82 B-14
025784,000474: 25,3017 00122 DEC 82 B-14
025785,000475: 25,3020 00165 DEC 117 B-14
025786,000476: 25,3021 00143 DEC 99 B-14
025787,000477: 25,3022 00160 DEC 112 B-14
025788,000478: 25,3023 00137 DEC 95 B-14
025789,000479:
025790,000480: # +XPOLADR LISTS THE ENTRY POINTS UNDER +X TRANSLATION CONDITIONS
025791,000481:
025792,000482: 25,3024 00023 DEC 19 B-14
025793,000483: 25,3025 00021 DEC 17 B-14
025794,000484: 25,3026 00061 DEC 49 B-14
025795,000485: 25,3027 00057 DEC 47 B-14
025796,000486: 25,3030 00016 DEC 14 B-14
025797,000487: 25,3031 00014 DEC 12 B-14
025798,000488: 25,3032 00066 DEC 54 B-14
025799,000489: 25,3033 00064 +XPOLADR DEC 52 B-14
025800,000490: 25,3034 00073 DEC 59 B-14
025801,000491: 25,3035 00071 DEC 57 B-14
025802,000492: 25,3036 00054 DEC 44 B-14
025803,000493: 25,3037 00052 DEC 42 B-14
025804,000494: 25,3040 00011 DEC 9 B-14
025805,000495: 25,3041 00007 DEC 7 B-14
025806,000496: 25,3042 00004 DEC 4 B-14
025807,000497: 25,3043 00002 DEC 2 B-14
025808,000498:
025809,000499: # -XPOLADR LISTS THE ENTRY POINTS UNDER -X TRANSLATION CONDITIONS
025810,000500:
025811,000501: 25,3044 00047 DEC 39 B-14
025812,000502: 25,3045 00045 DEC 37 B-14
025813,000503: 25,3046 00105 DEC 69 B-14
025814,000504:
|
|
Page 603 |
025816,000506: 25,3047 00103 DEC 67 B-14
025817,000507: 25,3050 00042 DEC 34 B-14
025818,000508: 25,3051 00040 DEC 32 B-14
025819,000509: 25,3052 00112 DEC 74 B-14
025820,000510: 25,3053 00110 -XPOLADR DEC 72 B-14
025821,000511: 25,3054 00117 DEC 79 B-14
025822,000512: 25,3055 00115 DEC 77 B-14
025823,000513: 25,3056 00100 DEC 64 B-14
025824,000514: 25,3057 00076 DEC 62 B-14
025825,000515: 25,3060 00035 DEC 29 B-14
025826,000516: 25,3061 00033 DEC 27 B-14
025827,000517: 25,3062 00030 DEC 24 B-14
025828,000518: 25,3063 00026 DEC 22 B-14
End of include-file JET_FAILURE_CONTROL_LOGIC.agc. Parent file is MAIN.agc