Source Code
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part:
YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
DEC 13, 1966
THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37
OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.
|
022999,000002: ## Copyright: Public domain.
023000,000003: ## Filename: Q,R-AXES_JET_SELECT_AND_FAILURE_CONTROL_LOGIC.agc
023001,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
023002,000005: ## It is part of an early development version of the software
023003,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
023004,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
023005,000008: ## upon which Don Eyles's offline development program Shepatin
023006,000009: ## was based; the listing herein transcribed was actually for
023007,000010: ## the equivalent revision 0 of Shepatin.
023008,000011: ## This file is intended to be a faithful transcription, except
023009,000012: ## that the code format has been changed to conform to the
023010,000013: ## requirements of the yaYUL assembler rather than the
023011,000014: ## original YUL assembler.
023012,000015: ## Reference: pp. 520-534
023013,000016: ## Assembler: yaYUL
023014,000017: ## Contact: Ron Burkey <info@sandroid.org>.
023015,000018: ## Website: www.ibiblio.org/apollo/index.html
023016,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
023017,000020: ## 2017-05-30 HG Transcribed
023018,000021: ## 2017-06-22 RSB Proofed comment text with
023019,000022: ## octopus/ProoferComments.
023020,000023:
|
|
Page 520 |
023022,000025: # PROGRAM: POLTYPEP MOD. NO. 1 DATE: NOVEMBER 14, 1966
023023,000026:
023024,000027: # AUTHOR: JONATHAN D. ADDELSTON (ADAMS ASSOCIATES)
023025,000028:
023026,000029: # THIS PROGRAM IS DESIGNED TO SELECT A POLICY OF JETS (OF WHICH NONE HAVE FAILED) WHICH CAN BE USED TO CREATE THE
023027,000030: # ROTATION AND/OR TRANSLATION WHICH IS REQUIRED BY THE LM DAP. FROM THE INDEX "NETACNDX" (WHICH MUST BE SET WHEN
023028,000031: # ROTATION IS REQUESTED), THE OPTIMAL POLICY IS SELECTED. WHEN FAILURES ARE DETECTED WITHIN A CHOSEN POLICY, AN
023029,000032: # ALTERNATE POLICY IS SELECTED. IF ALL ALTERNATE POLICIES ARE EXHAUSTED WITHOUT FINDING AN UNFAILED POLICY, A JET
023030,000033: # FAILURE ABORT IS INITIATED. WHEN THE ROUTINE IS USE FOR TRANSLATION JETS ONLY, "TRANONLY" MUST BE SET POSITIVE
023031,000034: # (NONZERO) AND THE ENTRY POINT IS "+/-XTRAN".
023032,000035:
023033,000036: # CALLING SEQUENCES:
023034,000037:
023035,000038: # 1. FOR ROTATION (WITH POSSIBLE +X TRANSLATION):
023036,000039:
023037,000040: # CAF RETURN (GENADR OF RETURN)
023038,000041: # TS TJETADR
023039,000042: # ...
023040,000043: # CAF INDEXVAL INDICATE ROT. AXIS, DIRECTION,
023041,000044: # TS NETACNDX AND NUMBER OF JETS.
023042,000045: # EXTEND
023043,000046: # DCA POLADR TRANSFER ACROSS BANKS TO POLTYPEP.
023044,000047: # DTCB
023045,000048:
023046,000049: # 2. FOR TRANSLATION ONLY:
023047,000050:
023048,000051: # CAF POSMAX/NEGMAX INDICATE -X TRANSLATION BY POSMAX.
023049,000052: # TS ANYTRANS +X TRANSLATION BY NEGMAX.
023050,000053: # CAF ZERO ZERO EXTRANEOUS FLAGS FOR ROUTINE
023051,000054: # TS TRANSNOW ...
023052,000055: # TS TRANSAVE ...
023053,000056: # EXTEND
023054,000057: # DCA JTPOLADR TRANSFER ACROSS BANKS TO +/-XTRAN
023055,000058: # TS TRANONLY (AND SET TRANONLY POSITIVE NONZERO.)
023056,000059: # DTCB
023057,000060:
023058,000061: # SUBROUTINES CALLED: NONE.
023059,000062:
023060,000063: # NORMAL RETURN 1. FOR ROTATION, TO ADDRESS IN BANK 17 SPECIFIED BY C(TJETADR).
023061,000064: # 2. FOR TRANSLATION, RESUME.
023062,000065:
023063,000066: # ALARM/ABORT MODE: WHENEVER THERE IS NO USABLE JET POLICY FOUND, TRANSFER TO JETABORT.
023064,000067:
023065,000068: # INPUT: NETACNDX,CH5MASK,1/NETACS.
023066,000069:
023067,000070: # OUTPUT: JETS ON IN CHANNEL 5, JTSATCHG.
023068,000071:
023069,000072: # DEBRIS: A,L,ALLL ITEMPS,ALL RUPTREGS.
023070,000073:
023071,000074: # INITIALIZATION AT ROTATION REQUEST ENTRY POINT:
023072,000075:
|
|
Page 521 |
023074,000077: 20,2170 BANK 20
023075,000078: 20,2170 E6,1471 EBANK= JTSONNOW
023076,000079:
023077,000080: 20,2170 37761 POLTYPEP CAF ZERO # SET VOLATILE SWITCHES TO INDICATE
023078,000081: 20,2171 54070 TS TRANONLY # 1) TRANSLATION ENTRY NOT MADE (ROTATION)
023079,000082: 20,2172 54071 TS ANYTRANS # 2) NO TRANSLATION KNOWN YET.
023080,000083: 20,2173 54072 TS TRANSNOW # 3) NO TRANS. DURING ROT. KNOWN YET.
023081,000084: 20,2174 54073 TS TRANSAVE # 4) NO TRANSLATION POLICY SELECTED YET.
023082,000085:
023083,000086: # TEST FOR SENSE OF ROTATION JETS. (MAKE TRANSLATION REQUEST FROM THE ASTRONAUT'S STICK OVERRIDE INTERNAL ULLAGE)
023084,000087:
023085,000088: 20,2175 37747 CAF BIT7 # ASTRONAUT +X TRANSLATION REQUEST TEST.
023086,000089: 20,2176 00006 EXTEND
023087,000090: 20,2177 02031 RAND 31
023088,000091: 20,2200 00006 EXTEND
023089,000092: 20,2201 12264 BZF +XTRANSL
023090,000093:
023091,000094: 20,2202 37746 CAF BIT8 # ASTRONAUT -X TRANSLATION REQUEST TEST.
023092,000095: 20,2203 00006 EXTEND
023093,000096: 20,2204 02031 RAND 31
023094,000097: 20,2205 00006 EXTEND
023095,000098: 20,2206 12271 BZF -XSENSE
023096,000099:
023097,000100: # CHECK FOR ULLAGE OR ASCENT BURN:
023098,000101:
023099,000102: 20,2207 32455 ULL/+X CAF BITS6&8 # CHECK FOR ULLAGE OR ASCENT BURN: (EITHER
023100,000103: 20,2210 70077 MASK DAPBOOLS # BIT REQUIRES +X SENSE FOR ROTATION JETS)
023101,000104: 20,2211 10000 CCS A # BIT6: ULLAGE BIT (+X TRANSLATION ASKED)
023102,000105: 20,2212 12260 TCF +XSELECT # BIT8: ASCENT BURN (NO TRANSLATION ASKED)
023103,000106:
023104,000107: # LM IS EITHER IN POWERED DESCENT OR IN COASTING FLIGHT SELECT JETS WHICH ARE PAIRED IN FORCE COUPLES.
023105,000108:
023106,000109: 20,2213 50061 INDEX NETACNDX # PICK UP FORCE-COUPLE TABLE INDEX AND THE
023107,000110: 20,2214 32475 CAF NORMLPOL # NUMBER OF POLICIES TO CHECK (PACKED).
023108,000111:
023109,000112: # UNPACK THE RELATIVE ADDRESS OF THE BEST POLICY AND THE NUMBER OF ALTERNATE POLICIES TO CHECK WITHIN THE LOOP.
023110,000113:
023111,000114: # THIS BITS ARE PACKED THUSLY 0XYYY, WHERE X BECOMES C(LOOPCTR) AND YYY BECOMES C(POLRELOC). BITS8,9 ARE ZERO.
023112,000115:
023113,000116: 20,2215 54001 NUMBALTS TS L # SAVE FULL WORD TO GET BITS 10-12, LATER.
023114,000117: 20,2216 76130 MASK LOW7 # MASK BITS GIVING INDEX VALUE FOR BEST
023115,000118: 20,2217 54063 TS POLRELOC # POLICY (W.R.T. TOP OF POLTABLE).
023116,000119:
023117,000120: 20,2220 37750 CAF BIT6 # EXTRACT BITS 10-12 OF ORIGINAL WORD:
023118,000121: 20,2221 00006 EXTEND # THIS VALUE IS USED AS A LOOP COUNTER TO
023119,000122: 20,2222 70001 MP L # TEST ALL THE FEASIBLE JET POLICIES FOR
023120,000123: 20,2223 54064 BESTPOLS TS LOOPCTR # THE GIVEN REQUEST. (ALSO TOP 0F LOOP.)
023121,000124:
|
|
Page 522 |
023123,000126: # LOOP TP SET UP "TRANSNOW" AND REJECT ALL FAILED POLICIES:
023124,000127:
023125,000128: 20,2224 50063 INDEX POLRELOC # PICK UP NEXT POLICY TO CHECK FOR FAILURE
023126,000129: 20,2225 32553 CAF POLTABLE # (MUST DO A "CAF" THEN "CCS" FOR RANGE.)
023127,000130: 20,2226 10000 CCS A # IF POLICY TABLE ENTRY IS NEGATIVE, THEN
023128,000131: 20,2227 54065 CHKFAILS TS THISPOLY # A FLAG IS SET TO DO SOME TRANSLATION
023129,000132: 20,2230 12233 TCF +3 # WITH THE ROTATION POLICY SELECTED. IF
023130,000133: 20,2231 54072 TS TRANSNOW # REQUESTED. POLTABLE VALUES ARE CCS-ABLE.
023131,000134: 20,2232 12227 TCF CHKFAILS # TRANSNOW (ONCE ON) STAYS ON FOR THIS CSP
023132,000135:
023133,000136: 20,2233 71502 MASK CH5MASK # COMPARE THISPOLY WITH BITS OF FAILED JET
023134,000137: 20,2234 10000 CCS A # IF C(A) = +0, THEN THERE ARE NO FAILURES
023135,000138: 20,2235 12237 TCF +2 # IN THIS POLICY AND THE LM DAP USES IT.
023136,000139: 20,2236 12276 TCF POLFOUND # IF C(A) IS NOT +0, IT IS POSITIVE AND
023137,000140:
023138,000141: 20,2237 00006 EXTEND # FIRST THE RELATIVE ADDRESS INDEXER IS
023139,000142: 20,2240 26063 DIM POLRELOC # DECREMENTED BY ONE FOR THE NEXT POLICY,
023140,000143: 20,2241 10064 CCS LOOPCTR # THEN A CHECK IS MADE FOR ANY MORE USABLE
023141,000144: 20,2242 12223 TCF BESTPOLS # POLICIES, IF NO MORE, C(LOOPCTR) = +0.
023142,000145:
023143,000146: # ***** JET FAILURE ABORT SEQUENCE. *****
023144,000147:
023145,000148: 20,2243 37761 ABORTJET CAF ZERO # TURN OFF ALL JETS.
023146,000149: 20,2244 00006 EXTEND
023147,000150: 20,2245 01005 WRITE 5
023148,000151: 20,2246 00006 EXTEND
023149,000152: 20,2247 01006 WRITE 6
023150,000153:
023151,000154: 20,2250 35676 CAF PRIO37 # ABORT PRIORITY.
023152,000155: 20,2251 05523 TC NOVAC # CALL JETABORT THROUGH EXECUTIVE.
023153,000156: 20,2252 E6,1471 EBANK= JTSONNOW
023154,000157: 20,2252 02070 16006 2CADR JETABORT
023155,000158: 20,2254 47743 CS GODAPGO # SET GODAPGO TO TURN LM DAP OFF WHEN THIS
023156,000159: 20,2255 70077 MASK DAPBOOLS # BIT IS CHECKED IN THE NEXT P-AXIS RUPT.
023157,000160: 20,2256 54077 TS DAPBOOLS
023158,000161:
023159,000162: 20,2257 15751 TCF RESUME
023160,000163:
023161,000164: # ***** END JET FAILURE ABORT SEQUENCE. *****
023162,000165:
|
|
Page 523 |
023164,000167: # ENTER HERE AFTER ULLAGE/ASCENT DETECTION:
023165,000168:
023166,000169: 20,2260 40077 +XSELECT CS DAPBOOLS # CHECK FOR ULLAGE BIT6/DAPBOOLS =1.
023167,000170: 20,2261 77750 MASK ULLAGER # IF THE ULLAGE BIT IS 0, THEN THE LM IS
023168,000171: 20,2262 10000 CCS A # IN AN ASCENT BURN AND NO +X TRANSLATION
023169,000172: 20,2263 12266 TCF +XSENSE # HAS BEEN REQUESTED (SEE ULL/+X).
023170,000173:
023171,000174: # ENTER HERE FOR +X TRANSLATION:
023172,000175:
023173,000176: 20,2264 37737 +XTRANSL CAF NEGMAX # INDICATE +X TRANSLATION FOR CCS LATER.
023174,000177: 20,2265 54071 TS ANYTRANS # (ANYTRANS IS A VOLATILE SWITCH.)
023175,000178:
023176,000179: # ENTER HERE FOR +X SENSE JETS:
023177,000180:
023178,000181: 20,2266 50061 +XSENSE INDEX NETACNDX # PICK UP +X SENSE TABLE INDEX AND THE
023179,000182: 20,2267 32515 CAF +SENSTAB # NUMBER OF ALTERNATE POLICIES TO CHECK.
023180,000183:
023181,000184: 20,2270 12215 TCF NUMBALTS # GO TO BEGIN FAILURE CHECKING (ROTATION).
023182,000185:
023183,000186: # ENTER HERE FOR -X TRANSLATION:
023184,000187:
023185,000188: 20,2271 37735 -XSENSE CAF POSMAX # INDICATE -X TRANSLATION FOR CCS LATER.
023186,000189: 20,2272 54071 TS ANYTRANS # (ANYTRANS IS A VOLATILE SWITCH.)
023187,000190:
023188,000191: 20,2273 50061 INDEX NETACNDX # PICK UP -X SENSE TABLE INDEX AND THE
023189,000192: 20,2274 32535 CAF -SENSTAB # NUMBER OF ALTERNATE POLICIES TO CHECK.
023190,000193:
023191,000194: 20,2275 12215 TCF NUMBALTS # GO TO BEGIN FAILURE CHECKING (ROTATION).
023192,000195:
023193,000196: # ENTER HERE AFTER A ROTATION POLICY HAS BEEN FOUND:
023194,000197:
023195,000198: 20,2276 30065 POLFOUND CAE THISPOLY # GET POSITIVE-VALUED POLICY TABLE ENTRY
023196,000199: 20,2277 00006 EXTEND # WHICH IS INSURED AGAINST FAILURE.
023197,000200: 20,2300 77752 MP BIT4 # UNPACK BITS 12-14 OF TABLE ENTRY GET THE
023198,000201: 20,2301 50000 INDEX A # NUMBER OF Q-AXIS JETS FROM TORQUE TABLE.
023199,000202: 20,2302 32456 CAF TORKTABL # SAVE FOR TORQUE VECTOR RECONSTRUCTION
023200,000203: 20,2303 55606 TS NO.QJETS # AND FOR DETERMINING 1/NETACC.
023201,000204:
023202,000205: 20,2304 30001 CAE L # UNPACK BITS 9-11 OF TABLE ENTRY WHICH
023203,000206: 20,2305 00006 EXTEND # ARE NOW BITS 12-14 OF THE L-REGISTER.
023204,000207: 20,2306 77752 MP BIT4 # (BIT15 OF L IS 0 DUE TO SIGN AGREEMENT.)
023205,000208: 20,2307 50000 INDEX A # GET NUMBER OF R-AXIS JETS FROM TORQUE
023206,000209: 20,2310 32456 CAF TORKTABL # TABLE. SAVE FOR TORQUE VECTOR RECON-
023207,000210:
023208,000211: 20,2311 55607 TS NO.RJETS # STRUCTION AND FOR GETTING 1/NETACC.
023209,000212:
023210,000213: # PICK OUT ROTATION JETS FROM TABLE ENTRY:
023211,000214:
023212,000215: 20,2312 30065 CAE THISPOLY # UNPACK BITS 1-8 OF TABLE ENTRY (DONE
023213,000216: 20,2313 74553 MASK LOW8 # MOST EASILY BY THE MASKING OPERATION).
023214,000217: 20,2314 67737 AD BIT15 # SET SIGN TO INDICATE Q,R-AXES JETS.
023215,000218:
|
|
Page 524 |
023217,000220: 20,2315 55471 TS JTSONNOW # SET POLICY UP FOR IMMEDIATE USE.
023218,000221:
|
|
Page 525 |
023220,000223:
023221,000224: # ENTRY POINT FOR +X TRANS, OR -X TRANS. REQUEST ALONE:
023222,000225:
023223,000226: # (ALSO CONTINUATION OF TRANSLATION-WITH-ROTATION LOGIC.)
023224,000227:
023225,000228: 20,2316 37754 +/-XTRAN CAF TWO # SET UP LOOP TO TEST ALL THREE POSSIBLE
023226,000229: 20,2317 54064 TS LOOPCTR # TRANSLATION POLICIES, IF 4 JETS ASKED.
023227,000230:
023228,000231: 20,2320 10071 CCS ANYTRANS # TEST FOR TRANSLATION REQUESTS: -0 UNUSED
023229,000232:
023230,000233: 20,2321 12325 TCF -XPOLICY # POSMAX: -X TRANSLATION.
023231,000234: 20,2322 12412 TCF LATERJET # +ZERO: NO TRANSLATION.
023232,000235:
023233,000236: # ENTER HERE FOR +X TRANSLATION POLICIES:
023234,000237:
023235,000238: 20,2323 37754 +XPOLICY CAF TWO # NEGMAX: +X TRANSLATION.
023236,000239: 20,2324 12326 TCF +2 # SET POLRELOC FOR +X TRANS. INDEXING.
023237,000240:
023238,000241: # ENTER HERE FOR -X TRANSLATION POLICIES:
023239,000242:
023240,000243: 20,2325 37760 -XPOLICY CAF FIVE # SET POLRELOC FOR -X TRANS. INDEXING.
023241,000244: 20,2326 54063 TS POLRELOC # (INITIAL VALUE ALWAYS FOR 4-JET POLICY.)
023242,000245:
023243,000246: # TEST FOR TRANSLATION TO BE COMBINED WITH ROTATION JETS.
023244,000247:
023245,000248: 20,2327 10072 CCS TRANSNOW # TEST IF TRANSLATION WITH ROTATION IS
023246,000249: 20,2330 12375 TCF TRANCONT # REQUESTED, IF SO, OVER-RIDE 4-JET TEST.
023247,000250:
023248,000251: # DETERMINE IF LM DAP IS IN 2 OR 4 JET TRANSLATION MODE:
023249,000252:
023250,000253: 20,2331 40077 CS DAPBOOLS # TEST FOR 2/4-JET TRANSLATION MODE IN
023251,000254: 20,2332 77752 MASK ACC4OR2X # BIT4/DAPBOOLS (ASTRONAUT DSKY INPUT)
023252,000255: 20,2333 10000 CCS A # 0: 2 JET MODE (SKIP OUT).
023253,000256:
023254,000257: 20,2334 12375 TCF TRANCONT # 1: 4 JET MODE (CONTINUE).
023255,000258:
023256,000259: # TEST TRANSLATION POLICIES FOR JET FAILURES:
023257,000260:
023258,000261: 20,2335 50063 TRANNEXT INDEX POLRELOC # PICK UP POLICY FOR +/-X TRANSLATION
023259,000262: 20,2336 32545 CAF TRANPOLY # FROM TABLE (INDEXED WITHIN REQUESTED
023260,000263: 20,2337 54065 TS THISPOLY # RANGE OF POLICIES); TEST FOR FAILURES
023261,000264: 20,2340 71502 MASK CH5MASK # IF NO FAILURES, C(A) = +0. IF POLICY
023262,000265: 20,2341 10000 CCS A # CANNOT BE USED , C(A) IS POSITIVE.
023263,000266: 20,2342 12373 TCF TRANCNTD # IF FAILED, CHECK FOR STORE GOOD TRANS.
023264,000267:
023265,000268: # SPECIAL TESTS ARE NEEDED FOR TRANSLATION DURING ROTATION:
023266,000269:
023267,000270: 20,2343 10072 CCS TRANSNOW # TEST FOR TRANSLATION DURING ROTATION
023268,000271: 20,2344 12363 TCF TRANSTOR # IF SO, GO TEST THIS POLICY FOR USE NOW.
023269,000272:
023270,000273: # TEST FOR ONLY TRANSLATION REQUEST:
023271,000274:
023272,000275: 20,2345 10070 CCS TRANONLY # TEST FOR PURE TRANSLATION REQUEST
023273,000276:
|
|
Page 526 |
023275,000278: 20,2346 12357 TCF TRANOROT # IF SO, GIVE TRANSLATION, NO ROTATION
023276,000279:
023277,000280: # SPECIAL TEST FOR GOOD 4-JET TRANSLATION:
023278,000281:
023279,000282: 20,2347 47754 CS TWO # TEST IF POLICY IS USING FOUR JETS (WHICH
023280,000283: 20,2350 60064 AD LOOPCTR # IS EQUIVALENT TO LOOPCTR = 2). IF 4-JET
023281,000284: 20,2351 00006 EXTEND # THIS POLICY MUST BE USED AS JTSATCHG.
023282,000285: 20,2352 12355 BZF TRAN4JET # OTHERWISE, MUST CHECK TRANSAVE FIRST.
023283,000286:
023284,000287: # WHEN NOT 4-JET TRANSLATION, CHECK FOR SAVED POLICY:
023285,000288:
023286,000289: 20,2353 10073 CCS TRANSAVE # TEST FOR SAVED POLICY; IF SAVED, USE IT.
023287,000290: 20,2354 12411 TCF TRANUSED # IF NOT SAVED YET, USE THIS POLICY.
023288,000291:
023289,000292: # USE THIS POLICY (EITHER 4 JETS OR BEST 2 JET):
023290,000293:
023291,000294: 20,2355 30065 TRAN4JET CAE THISPOLY # USE THIS UNFAILED POLICY AS THE TRANS-
023292,000295: 20,2356 12412 TCF LATERJET # LATION POLICY AFTER ROTATION.
023293,000296:
023294,000297: # FOR TRANSLATION WITHOUT ROTATION, TURN JETS ON IMMEDIATELY AND RESUME:
023295,000298:
023296,000299: 20,2357 30065 TRANOROT CAE THISPOLY # TURN ON UNFAILED Q,R-AXES JETS AS A PURE
023297,000300: 20,2360 00006 EXTEND # TRANSLATION POLICY WITHOUT ANY TJETLAW
023298,000301: 20,2361 01005 WRITE 5 # CALCULATIONS (AND NO TIME6 SETTING).
023299,000302:
023300,000303: 20,2362 15751 TCF RESUME # END T5RUPT SINCE JETS ON FOR FULL CSP.
023301,000304:
023302,000305: # TEST THIS TRANSLATION FOR USE DURING ROTATION:
023303,000306:
023304,000307: 20,2363 30065 TRANSTOR CAE THISPOLY # SAVE THIS POLICY FOR LATER USE AS THE
023305,000308: 20,2364 54073 TS TRANSAVE # JTSATCHG POLICY UNLESS IT IS SUPERCEDED.
023306,000309: 20,2365 71471 MASK JTSONNOW # TEST FOR USE WITH ROTATION POLICY MUST
023307,000310: 20,2366 10000 CCS A # HAVE NO JETS IN COMMON WITH JTSONNOW.
023308,000311: 20,2367 12375 TCF TRANCONT # C(A) POSITIVE MEANS POLICIES CONFLICT.
023309,000312:
023310,000313: # COINCIDENT TRANSLATION FOUND, GO FIND PURE TRANSLATION POLICY (FOR USE AFTER ROTATION):
023311,000314:
023312,000315: 20,2370 30065 CAE THISPOLY # USE BOTH ROTATION AND TRANSLATION JETS
023313,000316:
023314,000317: 20,2371 27471 ADS JTSONNOW # AT JTSONNOW (BIT 15 IS ALREADY SET).
023315,000318:
023316,000319: 20,2372 12404 TCF TRANSLAT # GO TO START FINDING JTSATCHG POLICY.
023317,000320:
023318,000321: # STOP SEARCH IF GOOD TRANSLATION POLICY ALREADY RECORDED:
023319,000322:
023320,000323: 20,2373 10073 TRANCNTD CCS TRANSAVE # TEST FOR PREVIOUSLY SAVED TRANSLATION
023321,000324: 20,2374 12411 TCF TRANUSED # POLICY, IF IT EXISTS, USE IT.
023322,000325:
023323,000326: # CONTINUE FAILURE CHECKING LOOP:
023324,000327:
023325,000328: 20,2375 00006 TRANCONT EXTEND # CONTINUE THE TRANSLATION-FAIL LOOP
023326,000329:
|
|
Page 527 |
023328,000331: 20,2376 26063 DIM POLRELOC # DECREMENT THE TRANSLATION POLICY INDEX
023329,000332: 20,2377 10064 CCS LOOPCTR # AND THEN TEST LOOPCTR FOR CONTINUATION
023330,000333: 20,2400 12407 TCF TRNRESET # OF JET FAILURE TESTING.
023331,000334:
023332,000335: # IF NO TRANSLATION CAN BE FOUND FOR ROTATION POLICY, ALL IS NOT LOST, OTHERWISE, START JET FAILURE ABORT:
023333,000336:
023334,000337: 20,2401 10072 CCS TRANSNOW # IF FAILURES STOP TRANSLATION DURING
023335,000338: 20,2402 12404 TCF TRANSLAT # ROTATION' CONTINUE BY FINDING JTSATCHG.
023336,000339:
023337,000340: 20,2403 12243 TCF ABORTJET # TURN OFF JETS AND ABORT.
023338,000341:
023339,000342: # BEGIN SEARCH FOR JTSATCHG POLICY:
023340,000343:
023341,000344: 20,2404 37761 TRANSLAT CAF ZERO # SET VOLATILE FLAG TO INDICATE SEARCH IS
023342,000345: 20,2405 54072 TS TRANSNOW # FOR JTSATCHG, AFTER TRANSNOW DONE.
023343,000346:
023344,000347: 20,2406 12316 TCF +/-XTRAN # GO TO RE-INITIALIZE LOOP FROM SCRATCH.
023345,000348:
023346,000349: # "TOP OF LOOP" (FOR ALL BUT FIRST PASS):
023347,000350:
023348,000351: 20,2407 54064 TRNRESET TS LOOPCTR # RESET LOOP COUNTER TO CONTINUE LOOPING
023349,000352: 20,2410 12335 TCF TRANNEXT # GO TO CONTINUATION OF LOOP (AT THE TOP).
023350,000353:
023351,000354: # RECONSTRUCT FLAGGED JET POLICY:
023352,000355:
023353,000356: 20,2411 67755 TRANUSED AD ONE # RESET POLICY THAT WAS POSITIVE AND CCSED
023354,000357: 20,2412 67737 LATERJET AD BIT15 # SET BIT 15 TO INDICATE Q,R-AXES POLICY.
023355,000358: 20,2413 55472 TS JTSATCHG # USE FOR JTSATCHG TRANSLATION POLICY.
023356,000359:
023357,000360: # TRANSFORM INITIAL POINTER TO 2-JET POLICY:
023358,000361:
023359,000362: 20,2414 37755 CAF ONE # FROM THE INDEX VALUE INDICATING NUMBER
023360,000363: 20,2415 70061 MASK NETACNDX # OF JETS, DIRECTION, AND AXIS' COMPUTE
023361,000364: 20,2416 10000 CCS A # THE INDEX VALUE FOR 2 JETS ABOUT THAT
023362,000365: 20,2417 12422 TCF +3 # AXIS (IN THAT DIRECTION). CONTRIVANCE
023363,000366: 20,2420 00006 EXTEND # MAKES THIS EQUIVALENT TO IF BIT1 IS ON.
023364,000367: 20,2421 24061 AUG NETACNDX # (INDEP. OF SIGN) AUGMENT NETACNDX.
023365,000368:
023366,000369: # TRANSFORM POINTER TO CORRESPOND TO JETS ACTUALLY CHOSEN.
023367,000370:
023368,000371: 20,2422 11606 CCS NO.QJETS # TRANSFORM INDEX TO APPROPRIATE VALUE FOR
023369,000372: 20,2423 12425 TCF +2 # THE NUMBER OF JETS SELECTED.
023370,000373: 20,2424 12436 TCF ALLRJETS # IF NO.QJETS ZERO, NO.RJETS IS NONZERO.
023371,000374:
023372,000375: 20,2425 10000 CCS A # IF NO.QJETS +/-1, NO.RJETS IS +/-1 (BY
023373,000376: 20,2426 12430 TCF +2 # DEFINITION) SO SUBTRACT ONE FROM INDEX.
023374,000377: 20,2427 12433 TCF SMALAXIS # GO TRANSFORM FOR 1 U,V-AXIS JET.
023375,000378: 20,2430 10000 CCS A # IF STILL NONZERO ON THIRD CCS, NO.QJETS
023376,000379: 20,2431 24061 INCR NETACNDX # MUST HAVE BEEN +/-4, SO ADD ONE TO THE
023377,000380: 20,2432 12445 TCF NETACGET # INDEX, OTHERWISE, NO CHANGE (2 JETS).
023378,000381:
|
|
Page 528 |
023380,000383: 20,2433 00006 SMALAXIS EXTEND # DECREMENT INDEX FOR 1 JET AROUND EITHER
023381,000384: 20,2434 26061 DIM NETACNDX # THE U- OR V- AXIS.
023382,000385:
023383,000386: 20,2435 12445 TCF NETACGET # (GO PICK UP INVERSE OF NET ACCELERATION)
023384,000387:
023385,000388: 20,2436 11607 ALLRJETS CCS NO.RJETS # WHEN NO.QJETS ZERO, TEST NO.RJETS WHICH
023386,000389: 20,2437 77754 MASK TWO # IS ONLY +/-2 OR +/-4. NOTE LAST THREE
023387,000390: 20,2440 12442 TCF +2 # BITS OF THESE AFTER CCS 001 OR 011.
023388,000391: 20,2441 77754 MASK TWO # ONLY BIT2 DISTINGUISHES BETWEEN THE TWO.
023389,000392: 20,2442 00006 EXTEND # IF BIT2 = 0, THEN TWO JETS, NO CHANGE.
023390,000393: 20,2443 12445 BZF +2 # IF BIT2 = 1, THEN FOUR JETS, SO THE
023391,000394: 20,2444 24061 INCR NETACNDX # INDEX MUST BE INCREMENTED.
023392,000395:
023393,000396: # PICK UP AND SAVE 1/NETACC FOR TJETLAW:
023394,000397:
023395,000398: 20,2445 50061 NETACGET INDEX NETACNDX # USE THE INDEX VALUE FOR THE EXACT JETS
023396,000399: 20,2446 31700 CAE 1/NETACS # USED, PICK UP THE APPROPRIATE 1/NETACC
023397,000400: 20,2447 54066 TS 1/NETACC # AND SAVE FOR USE BY THE TJETLAW.
023398,000401:
023399,000402: # RETURN TO APPROPRIATE TJETLAW:
023400,000403:
023401,000404: 20,2450 32454 CAF BBANKSET # ALWAYS RETURN TO THE FIXED BANK OF THE
023402,000405: 20,2451 54001 TS L # Q,R-AXES REACTION CONTROL SYSTEM LM DAP.
023403,000406: 20,2452 30062 CAE TJETADR # USE VARIABLE GENADR WITH WHICH TO
023404,000407: 20,2453 52006 DTCB # CROSS BANKS TO RETURN.
023405,000408:
023406,000409: 20,2454 E6,1417 EBANK= OMEGAQ
023407,000410: 20,2454 36006 BBANKSET BBCON QRAXIS # BBCON OF Q,R-AXES RCS LM DAP.
023408,000411:
023409,000412: 20,2455 00240 BITS6&8 OCTAL 00240 # ULLAGE AND ASCENT BURN DAPBOOLS BITS.
023410,000413:
|
|
Page 529 |
023412,000415:
023413,000416: # TABLE OF Q,R-JET NUMBERS AND DIRECTIONS:
023414,000417:
023415,000418: 20,2456 00000 TORKTABL DEC 0 B-14 # FROM THE 3 PACKED BITS IN A WORD FROM
023416,000419: 20,2457 00001 DEC +1 B-14 # POLTABLE, THE POLTYPEP PROGRAM SELECTS
023417,000420: 20,2460 77776 DEC -1 B-14 # THE APPROPRIATE NO.QJETS OR NO.RJETS
023418,000421: 20,2461 00002 DEC +2 B-14 # AS FOLLOWS:
023419,000422: 20,2462 77775 DEC -2 B-14 # 000: NO JETS
023420,000423: 20,2463 00004 DEC +4 B-14 # 001: +1 JET 011: +2 JETS 101: +4 JETS
023421,000424:
023422,000425: 20,2464 77773 DEC -4 B-14 # 010: -1 JET 100: -2 JETS 110: -4 JETS
023423,000426:
023424,000427:
023425,000428: # RELATIVE ADDRESSES AND NUMBER OF ALTERNATE POLICIES ARE LISTED IN THE FOLLOWING TABLES. EACH ENTRY HAS THE FORM
023426,000429: # 0XYYY WHERE X INDICATES THE NUMBER OF ALTERNATE POLICIES AND
023427,000430: # YYY IS THE RELATIVE ADDRESS IN POLTABLE OF THE "OPTIMAL" POLICY.
023428,000431:
023429,000432: # FORCE-COUPLE POLICIES:
023430,000433:
023431,000434: 20,2465 03003 OCTAL 03003 # +2 Q-AXIS JETS
023432,000435: 20,2466 04004 OCTAL 04004 # +4 Q-AXIS JETS
023433,000436: 20,2467 03010 OCTAL 03010 # -2 Q-AXIS JETS
023434,000437: 20,2470 04011 OCTAL 04011 # -4 Q-AXIS JETS
023435,000438: 20,2471 03015 OCTAL 03015 # +2 R-AXIS JETS
023436,000439: 20,2472 04016 OCTAL 04016 # +4 R-AXIS JETS
023437,000440: 20,2473 03022 OCTAL 03022 # -2 R-AXIS JETS
023438,000441: 20,2474 04023 OCTAL 04023 # -4 R-AXIS JETS
023439,000442: 20,2475 02026 NORMLPOL OCTAL 02026 # +2 U-AXIS JETS
023440,000443: 20,2476 02026 OCTAL 02026 # +2 U-AXIS JETS
023441,000444: 20,2477 02031 OCTAL 02031 # -2 U-AXIS JETS
023442,000445: 20,2500 02031 OCTAL 02031 # -2 U-AXIS JETS
023443,000446: 20,2501 02034 OCTAL 02034 # +2 V-AXIS JETS
023444,000447:
023445,000448: 20,2502 02034 OCTAL 02034 # +2 V-AXIS JETS
023446,000449: 20,2503 02037 OCTAL 02037 # -2 V-AXIS JETS
023447,000450: 20,2504 02037 OCTAL 02037 # -2 V-AXIS JETS
023448,000451:
|
|
Page 530 |
023450,000453:
023451,000454: # +X SENSE POLICIES:
023452,000455:
023453,000456: 20,2505 03043 OCTAL 03043 # +2 Q-AXIS JETS
023454,000457: 20,2506 04044 OCTAL 04044 # +4 Q-AXIS JETS
023455,000458: 20,2507 03050 OCTAL 03050 # -2 Q-AXIS JETS
023456,000459: 20,2510 04051 OCTAL 04051 # -4 Q-AXIS JETS
023457,000460: 20,2511 03055 OCTAL 03055 # +2 R-AXIS JETS
023458,000461: 20,2512 04056 OCTAL 04056 # +4 R-AXIS JETS
023459,000462: 20,2513 03062 OCTAL 03062 # -2 R-AXIS JETS
023460,000463: 20,2514 04063 OCTAL 04063 # -4 R-AXIS JETS
023461,000464: 20,2515 01024 +SENSTAB OCTAL 01024 # +1 U-AXIS JETS
023462,000465: 20,2516 02025 OCTAL 02025 # +2 U-AXIS JETS
023463,000466: 20,2517 01027 OCTAL 01027 # -1 U-AXIS JETS
023464,000467: 20,2520 02030 OCTAL 02030 # -2 U-AXIS JETS
023465,000468:
023466,000469: 20,2521 01032 OCTAL 01032 # +1 V-AXIS JETS
023467,000470: 20,2522 02033 OCTAL 02033 # +2 V-AXIS JETS
023468,000471: 20,2523 01036 OCTAL 01036 # -1 V-AXIS JETS
023469,000472: 20,2524 02037 OCTAL 02037 # -2 V-AXIS JETS
023470,000473:
023471,000474: # -X SENSE POLICIES:
023472,000475:
023473,000476: 20,2525 03067 OCTAL 03067 # +2 Q-AXIS JETS
023474,000477: 20,2526 04070 OCTAL 04070 # +4 Q-AXIS JETS
023475,000478: 20,2527 03074 OCTAL 03074 # -2 Q-AXIS JETS
023476,000479: 20,2530 04075 OCTAL 04075 # -4 Q-AXIS JETS
023477,000480: 20,2531 03101 OCTAL 03101 # +2 R-AXIS JETS
023478,000481: 20,2532 04102 OCTAL 04102 # +4 R-AXIS JETS
023479,000482: 20,2533 03106 OCTAL 03106 # -2 R-AXIS JETS
023480,000483: 20,2534 04107 OCTAL 04107 # -4 R-AXIS JETS
023481,000484: 20,2535 01111 -SENSTAB OCTAL 01111 # +1 U-AXIS JETS
023482,000485: 20,2536 02112 OCTAL 02112 # +2 U-AXIS JETS
023483,000486: 20,2537 01114 OCTAL 01114 # -1 U-AXIS JETS
023484,000487: 20,2540 02115 OCTAL 02115 # -2 U-AXIS JETS
023485,000488: 20,2541 01117 OCTAL 01117 # +1 V-AXIS JETS
023486,000489: 20,2542 02120 OCTAL 02120 # +2 V-AXIS JETS
023487,000490: 20,2543 01122 OCTAL 01122 # -1 V-AXIS JETS
023488,000491: 20,2544 02123 OCTAL 02123 # -2 V AXIS JETS
023489,000492:
|
|
Page 531 |
023491,000494:
023492,000495: # X-AXIS TRANSLATION POLICIES:
023493,000496:
023494,000497: 20,2545 00042 TRANPOLY OCTAL +00042 # 2 10 * +X TRANSLATION JETS 0
023495,000498: 20,2546 00210 OCTAL +00210 # 6 14 * 1
023496,000499: 20,2547 00252 OCTAL +00252 # 2 6 10 14 * 2
023497,000500:
023498,000501: 20,2550 00104 OCTAL +00104 # 3 13 * -X TRANSLATION JETS 3
023499,000502: 20,2551 00021 OCTAL +00021 # 1 9 * 4
023500,000503: 20,2552 00125 OCTAL +00125 # 1 5 9 13 * 5
023501,000504:
|
|
Page 532 |
023503,000506:
023504,000507: # ROTATION JET POLICIES;
023505,000508:
023506,000509: # FORCE COUPLE POLICIES:
023507,000510:
023508,000511: 20,2553 14025 POLTABLE OCTAL +14025 # 5 9 * +Q-AXIS FORCE COUPLES 0
023509,000512: 20,2554 14203 OCTAL +14203 # 2 14 * 1
023510,000513: 20,2555 14221 OCTAL +14221 # 9 14 * 2
023511,000514: 20,2556 14007 OCTAL +14007 # 2 5 * 3
023512,000515: 20,2557 24227 OCTAL +24227 # 2 5 9 14 * 4
023513,000516:
023514,000517: 20,2560 20051 OCTAL +20051 # 6 10 * -Q-AXIS FORCE-COUPLES 5
023515,000518: 20,2561 20102 OCTAL +20102 # 1 13 * 6
023516,000519: 20,2562 20141 OCTAL +20141 # 10 13 * 7
023517,000520: 20,2563 20012 OCTAL +20012 # 1 6 * 10
023518,000521: 20,2564 30152 OCTAL +30152 # 1 6 10 13 * 11
023519,000522:
023520,000523: 20,2565 01641 OCTAL +01641 # 10 14 * +R-AXIS FORCE-COUPLES 12
023521,000524: 20,2566 01406 OCTAL +01406 # 1 5 * 13
023522,000525: 20,2567 01445 OCTAL +01445 # 5 10 * 14
023523,000526: 20,2570 01602 OCTAL +01602 # 1 14 * 15
023524,000527: 20,2571 02646 OCTAL +02646 # 1 5 10 14 * 16
023525,000528:
023526,000529: 20,2572 02121 OCTAL +02121 # 9 13 * -R-AXIS FORCE-COUPLES 17
023527,000530: 20,2573 02013 OCTAL +02013 # 2 6 * 20
023528,000531: 20,2574 02103 OCTAL +02103 # 2 13 * 21
023529,000532: 20,2575 02031 OCTAL +02031 # 6 9 * 22
023530,000533:
023531,000534: 20,2576 03133 OCTAL +03133 # 2 6 9 13 * 23
023532,000535:
023533,000536: # FORCE COUPLE AND +X SENSE POLICIES:
023534,000537:
023535,000538: 20,2577 73372 OCTAL -04405 # 5 * +U-AXIS FORCE-COUPLES 24
023536,000539: 20,2600 73176 OCTAL -04601 # 14 * AND +X SENSE 25
023537,000540: 20,2601 62172 OCTAL -15605 # 5 14 * 26
023538,000541:
023539,000542: 20,2602 66676 OCTAL -11101 # 13 * -U-AXIS FORCE-COUPLES 27
023540,000543: 20,2603 66766 OCTAL -11011 # 6 * AND +X SENSE 30
023541,000544: 20,2604 55666 OCTAL -22111 # 6 13 * 31
023542,000545:
023543,000546: 20,2605 67375 OCTAL -10402 # 1 * +V-AXIS FORCE-COUPLES 32
023544,000547: 20,2606 67336 OCTAL -10441 # 10 * AND +X SENSE 33
023545,000548: 20,2607 56335 OCTAL -21442 # 1 10 * 34
023546,000549:
023547,000550: 20,2610 72756 OCTAL -05021 # 9 * -V-AXIS FORCE-COUPLES 35
023548,000551: 20,2611 72774 OCTAL -05003 # 2 * AND +X SENSE 36
023549,000552: 20,2612 61754 OCTAL -16023 # 2 9 * 37
023550,000553:
|
|
Page 533 |
023552,000555:
023553,000556: # +X SENSE POLICIES:
023554,000557:
023555,000558: 20,2613 14025 OCTAL +14025 # 5 9 * +Q-AXIS +X SENSE JETS 40
023556,000559: 20,2614 14221 OCTAL +14221 # 9 14 * 41
023557,000560: 20,2615 14007 OCTAL +14007 # 2 5 * 42
023558,000561: 20,2616 14203 OCTAL +14203 # 2 14 * 43
023559,000562: 20,2617 24227 OCTAL +24227 # 2 5 9 14 * 44
023560,000563:
023561,000564: 20,2620 20102 OCTAL +20102 # 1 13 * -Q-AXIS +X SENSE JETS 45
023562,000565: 20,2621 20141 OCTAL +20141 # 10 13 * 46
023563,000566: 20,2622 20012 OCTAL +20012 # 1 6 * 47
023564,000567: 20,2623 20051 OCTAL +20051 # 6 10 * 50
023565,000568: 20,2624 30152 OCTAL +30152 # 1 6 10 13 * 51
023566,000569:
023567,000570: 20,2625 01406 OCTAL +01406 # 1 5 * +R-AXIS +X SENSE JETS 52
023568,000571: 20,2626 01445 OCTAL +01445 # 5 10 * 53
023569,000572: 20,2627 01602 OCTAL +01602 # 1 14 * 54
023570,000573: 20,2630 01641 OCTAL +01641 # 10 14 * 55
023571,000574: 20,2631 02646 OCTAL +02646 # 1 5 10 14 * 56
023572,000575:
023573,000576: 20,2632 02121 OCTAL +02121 # 9 13 * -R-AXIS +X SENSE JETS 57
023574,000577: 20,2633 02103 OCTAL +02103 # 2 13 * 60
023575,000578: 20,2634 02031 OCTAL +02031 # 6 9 * 61
023576,000579: 20,2635 02013 OCTAL +02013 # 2 6 * 62
023577,000580: 20,2636 03133 OCTAL +03133 # 2 6 9 13 * 63
023578,000581:
|
|
Page 534 |
023580,000583:
023581,000584: # -X SENSE POLICIES:
023582,000585:
023583,000586: 20,2637 14203 OCTAL +14203 # 2 14 * +Q-AXIS -X SENSE JETS 64
023584,000587: 20,2640 14221 OCTAL +14221 # 9 14 * 65
023585,000588: 20,2641 14007 OCTAL +14007 # 2 5 * 66
023586,000589: 20,2642 14025 OCTAL +14025 # 5 9 * 67
023587,000590: 20,2643 24227 OCTAL +24227 # 2 5 9 14 * 70
023588,000591:
023589,000592: 20,2644 20051 OCTAL +20051 # 6 10 * -Q-AXIS -X SENSE JETS 71
023590,000593: 20,2645 20141 OCTAL +20141 # 10 13 * 72
023591,000594: 20,2646 20012 OCTAL +20012 # 1 6 * 73
023592,000595: 20,2647 20102 OCTAL +20102 # 1 13 * 74
023593,000596: 20,2650 30152 OCTAL +30152 # 1 6 10 13 * 75
023594,000597:
023595,000598: 20,2651 01641 OCTAL +01641 # 10 14 * +R-AXIS -X SENSE JETS 76
023596,000599: 20,2652 01445 OCTAL +01445 # 5 10 * 77
023597,000600: 20,2653 01602 OCTAL +01602 # 1 14 * 100
023598,000601: 20,2654 01406 OCTAL +01406 # 1 5 * 101
023599,000602: 20,2655 02646 OCTAL +02646 # 1 5 10 14 * 102
023600,000603:
023601,000604: 20,2656 02013 OCTAL +02013 # 2 6 * -R-AXIS -X SENSE JETS 103
023602,000605: 20,2657 02103 OCTAL +02103 # 2 13 * 104
023603,000606: 20,2660 02031 OCTAL +02031 # 6 9 * 105
023604,000607: 20,2661 02121 OCTAL +02121 # 9 13 * 106
023605,000608: 20,2662 03133 OCTAL +03133 # 2 6 9 13 * 107
023606,000609:
023607,000610: 20,2663 73176 OCTAL -04601 # 14 * +U-AXIS -X SENSE JETS 110
023608,000611: 20,2664 73372 OCTAL -04405 # 5 * 111
023609,000612: 20,2665 62172 OCTAL -15605 # 5 14 * 112
023610,000613:
023611,000614: 20,2666 66766 OCTAL -11011 # 6 * -U-AXIS -X SENSE JETS 113
023612,000615: 20,2667 66676 OCTAL -11101 # 13 * 114
023613,000616: 20,2670 55666 OCTAL -22111 # 6 13 * 115
023614,000617:
023615,000618: 20,2671 67336 OCTAL -10441 # 10 * +V-AXIS -X SENSE JETS 116
023616,000619: 20,2672 67375 OCTAL -10402 # 1 * 117
023617,000620: 20,2673 56335 OCTAL -21442 # 1 10 * 120
023618,000621:
023619,000622: 20,2674 72774 OCTAL -05003 # 2 * -V-AXIS -X SENSE JETS 121
023620,000623: 20,2675 72756 OCTAL -05021 # 9 * 122
023621,000624: 20,2676 61754 OCTAL -16023 # 2 9 * 123
End of include-file Q,R-AXES_JET_SELECT_AND_FAILURE_CONTROL_LOGIC.agc. Parent file is MAIN.agc