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, 1966Note that the date is the date of the printout, not the date of the program revision. |
023698,000002: ## Copyright: Public domain.
023699,000003: ## Filename: Q,R-AXES_REACTION_CONTROL_SYSTEM_AUTOPILOT.agc
023700,000004: ## Purpose: Part of the source code for Aurora (revision 12).
023701,000005: ## Assembler: yaYUL
023702,000006: ## Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
023703,000007: ## Website: https://www.ibiblio.org/apollo.
023704,000008: ## Pages: 562-593
023705,000009: ## Mod history: 2016-09-20 JL Created.
023706,000010: ## 2016-09-30 HG Started transcribing from scan
023707,000011: ## 2016-10-08 HG Change TS Q -> TC Q (p. 584)
023708,000012: ## 2016-10-15 HG fix label MAXJET -> MAXTJET
023709,000013: ## ORGTOA -> URGTOA
023710,000014: ## TQRGTTM1 -> TQRGTTMI
023711,000015: ## NEGQERROR -> NEGQEROR
023712,000016: ## fix operand NEGSCP -> NEGCSP
023713,000017: ## UREGNCYQ -> URGENCYQ
023714,000018: ## .5ACCMNS -> .5ACCMNE
023715,000019: ## 25,32.QR -> 25/32.QR
023716,000020: ## Q-NORTJS -> Q-NORJTS
023717,000021: ## -RATDEB -> -RATEDB
023718,000022: ## CHECKSTIK -> CHEKSTIK
023719,000023: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
023720,000024: ## and fixed the errors found.
023721,000025:
023722,000026: ## This source code has been transcribed or otherwise adapted from
023723,000027: ## digitized images of a hardcopy from the private collection of
023724,000028: ## Don Eyles. The digitization was performed by archive.org.
023725,000029:
023726,000030: ## Notations on the hardcopy document read, in part:
023727,000031:
023728,000032: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
023729,000033: ## NOV 10, 1966
023730,000034:
023731,000035: ## [Note that this is the date the hardcopy was made, not the
023732,000036: ## date of the program revision or the assembly.]
023733,000037:
023734,000038: ## The scan images (with suitable reduction in storage size and consequent
023735,000039: ## reduction in image quality) are available online at
023736,000040: ## https://www.ibiblio.org/apollo.
023737,000041: ## The original high-quality digital images are available at archive.org:
023738,000042: ## https://archive.org/details/aurora00dapg
023739,000043:
![]() |
Page 562 |
023741,000045: 24,2000 BANK 24
023742,000046: 24,2000 E6,1551 EBANK= DT
023743,000047: # THE FOLLOWING T5RUPT ENTRY BEGINS THE PROGRAM WHICH CONTROLS THE Q,R-AXIS ACTION OF THE LEM USING THE RCS JETS.
023744,000048: # THE NOMINAL TIME BETWEEN THE Q,R-AXIS RUPTS IS 100 MS (UNLESS THE TRIM GIMBAL CONTROL SYSTEM IS USED, IN WHICH
023745,000049: # CASE THIS PROGRAM IS IDLE).
023746,000050:
023747,000051: 24,2000 02555 54006 NULLFILT 2CADR FILDUMMY
023748,000052:
023749,000053: 24,2002 32705 QRAXIS CAF MS30QR # RESET TIME IMMEDIATELY: DT = 30 MS
023750,000054: 24,2003 54030 TS TIME5
023751,000055:
023752,000056: 24,2004 22016 LXCH BANKRUPT # INTERRUPT LEAD IN (CONTINUED)
023753,000057: 24,2005 00006 EXTEND
023754,000058: 24,2006 22012 QXCH QRUPT
023755,000059:
023756,000060: # SET UP A DUMMY KALMAN FILTER T5RUPT. (THIS MAY BE RESET TO THE KALMAN FILTER INITIALIZATION PASS, IF THE TRIM
023757,000061: # GIMBAL CONTROL SYSTEM SHOULD BE USED.)
023758,000062:
023759,000063: 24,2007 00006 EXTEND
023760,000064: 24,2010 32001 DCA NULLFILT
023761,000065: 24,2011 52346 DXCH T5ADR
023762,000066:
023763,000067: # CALCULATE LEM BODY RATES FOR Q AND R AXES:
023764,000068:
023765,000069: # THIS COMPUTATION IS VALID FOR BOTH ASCENT AND DESCENT SINCE THE OFFSET ACCELERATION TERM IS INCLUDED ALWAYS,
023766,000070: # BUT HAS VALUE ZERO IN DESCENT, AND SINCE THE WEIGHTING FACTORS ARE IN ERASABLE AND DISTINCT.
023767,000071:
023768,000072: # FIRST, CONSTRUCT Y AND Z CDU INCREMENTS:
023769,000073:
023770,000074: 24,2012 30033 CAE CDUY # 2'S COMPLEMENT MEASUREMENT SCALED AT PI
023771,000075: 24,2013 54001 TS L # (SAVE FOR UPDATING OF OLDYFORQ)
023772,000076: 24,2014 00006 EXTEND # FORM INCREMENT IN CDUY FOR LAST 100 MS
023773,000077: 24,2015 21433 MSU OLDYFORQ # (100 MS OLD CDUY SAVED FROM LAST PASS)
023774,000078: 24,2016 23433 LXCH OLDYFORQ # UPDATE OLDYFORQ WITH NEW CDUY VALUE
023775,000079: 24,2017 00006 EXTEND # RESCALE DELTA CDUY FROM PI RADIANS TO
023776,000080: 24,2020 77651 MP BIT7 # PI/2(6) RADIANS BY MULTIPLYING BY 64
023777,000081: 24,2021 22065 LXCH ITEMP1 # SAVE 1'S COMPLEMENT VALUE TEMPORARILY
023778,000082: 24,2022 30034 CAE CDUZ # 2'S COMPLEMENT MEASUREMENT SCALED AT PI
023779,000083: 24,2023 54001 TS L # (SAVE FOR UPDATING OF OLDZFORQ)
023780,000084: 24,2024 00006 EXTEND # FORM INCREMENT IN CDUZ FOR LAST 100 MS
023781,000085: 24,2025 21434 MSU OLDZFORQ # (100 MS OLD CDUZ SAVED FROM LAST PASS)
023782,000086: 24,2026 23434 LXCH OLDZFORQ # UPDATE OLDZFORQ WITH NEW CDUZ VALUE
023783,000087: 24,2027 00006 EXTEND # RESCALE DELTA CDUZ FROM PI RADIANS TO
023784,000088: 24,2030 77651 MP BIT7 # PI/2(6) RADIANS BY MULTIPLYING BY 64
023785,000089: 24,2031 22066 LXCH ITEMP2 # SAVE 1'S COMPLEMENT VALUE TEMPORARILY
023786,000090:
![]() |
Page 563 |
023788,000092:
023789,000093: # SECOND, TRANSFORM CPU INCREMENTS TO BODY-ANGLE INCREMENTS:
023790,000094: 24,2032 31406 CAE M31 # MATRIX*VECTOR(WITH X COMPONENT ZERO)
023791,000095: 24,2033 00006 EXTEND
023792,000096: 24,2034 70065 MP ITEMP1 # M31 * ITEMP1 = M31 * DELTA CDUY
023793,000097: 24,2035 54070 TS ITEMP3
023794,000098: 24,2036 31403 CAE M32 # M32 * ITEMP2 = M32 * DELTA CDUZ
023795,000099: 24,2037 00006 EXTEND
023796,000100: 24,2040 70066 MP ITEMP2 # DELTAR = M31*(DEL CDUY) + M32*(DEL CDUZ)
023797,000101: 24,2041 26070 ADS ITEMP3 # R-BODY-ANGLE INCREMENT SCALED AT PI/2(6)
023798,000102:
023799,000103: 24,2042 31405 CAE M21 # MATRIX*VECTOR(WITH X COMPONENT ZERO)
023800,000104: 24,2043 00006 EXTEND # CLOBBERS ITEMP2=DEL CDUZ, FOR EFFICIENCY
023801,000105: 24,2044 70065 MP ITEMP1 # M21 * ITEMP1 = M21 * DELTA CDUY
023802,000106: 24,2045 56066 XCH ITEMP2 # M22 * ITEMP2 = M22 * DELTA CDUZ
023803,000107: 24,2046 00006 EXTEND
023804,000108: 24,2047 71401 MP M22 # DELTAQ = M21*(DEL CDUY) + M22*(DEL CDUZ)
023805,000109: 24,2050 26066 ADS ITEMP2 # Q-BODY-ANGLE INCREMENT SCALED AT PI/2(6)
023806,000110:
023807,000111: # FINALLY, DERIVE Q AND R BODY ANGULAR RATES:
023808,000112:
023809,000113: 24,2051 00006 EXTEND # WFORQR IS K/(NOMINAL DT) SCALED AT 16
023810,000114: 24,2052 71656 MP WFORQR # FORM WEIGHTED VALUE OF MEASURED DATA
023811,000115: 24,2053 57417 XCH OMEGAQ # SAVE AND BEGIN TO WEIGHT VALUE OF OLD W
023812,000116: 24,2054 00006 EXTEND # (1-K) IS SCALED AT 1 FOR EFFICIENT CALC
023813,000117: 24,2055 71657 MP (1-K)QR # (K CHANGES EVERY 2 SECS IN ASCENT)
023814,000118: 24,2056 61616 AD JETRATEQ # WEIGHTED TERM DUE TO JET ACCELERATION
023815,000119: 24,2057 61642 AD AOSQTERM # TERM DUE TO ASCENT OFFSET ACCELERATION
023816,000120: 24,2060 27417 ADS OMEGAQ # TOTAL RATE ESTIMATE SCALED AT PI/4
023817,000121:
023818,000122: 24,2061 30070 CAE ITEMP3 # GET DELTAR
023819,000123: 24,2062 00006 EXTEND # WFORQR IS K/(NOMINAL DT) SCALED AT 16
023820,000124: 24,2063 71656 MP WFORQR # FORM WEIGHTED VALUE OF MEASURED DATA
023821,000125: 24,2064 57421 XCH OMEGAR # SAVE AND BEGIN TO WEIGHT VALUE OF OLD W
023822,000126: 24,2065 00006 EXTEND # (1-K) IS SCALED AT 1 FOR EFFICIENT CALC
023823,000127: 24,2066 71657 MP (1-K)QR # (K CHANGES EVERY 2 SECS IN ASCENT)
023824,000128: 24,2067 61617 AD JETRATER # WEIGHTED TERM DUE TO JET ACCELERATION
023825,000129: 24,2070 61643 AD AOSRTERM # TERM DUE TO ASCENT OFFSET ACCELERATION
023826,000130: 24,2071 27421 ADS OMEGAR # TOTAL RATE ESTIMATE SCALED AT PI/4
023827,000131:
023828,000132: 24,2072 01614 TC QJUMPADR
023829,000133: 24,2073 32164 SKIPQRAX CA NORMQADR
023830,000134: 24,2074 55614 TS QJUMPADR
023831,000135: 24,2075 37665 CA ZERO
023832,000136: 24,2076 55616 TS JETRATEQ
023833,000137: 24,2077 55617 TS JETRATER
023834,000138: 24,2100 31626 CA TQR
023835,000139: 24,2101 62721 AD NEGCSP2
023836,000140: 24,2102 10000 CCS A
023837,000141: 24,2103 02113 TC QRTORQUE
023838,000142:
![]() |
Page 564 |
023840,000144: 24,2104 14606 TCF RESUME
023841,000145: 24,2105 02113 TC QRTORQUE
023842,000146: 24,2106 41616 CS JETRATEQ
023843,000147: 24,2107 27417 ADS OMEGAQ
023844,000148: 24,2110 41617 CS JETRATER
023845,000149: 24,2111 27421 ADS OMEGAR
023846,000150: 24,2112 14606 TCF RESUME
023847,000151: 24,2113 67657 QRTORQUE AD ONE
023848,000152: 24,2114 00006 EXTEND
023849,000153: 24,2115 77653 MP BIT5
023850,000154: 24,2116 30001 CA L
023851,000155: 24,2117 00006 EXTEND
023852,000156: 24,2120 72722 MP 16/25QR
023853,000157: 24,2121 55626 TS TQR
023854,000158: 24,2122 00006 EXTEND
023855,000159: 24,2123 71620 MP NO.QJETS
023856,000160: 24,2124 30001 CAE L
023857,000161: 24,2125 00006 EXTEND
023858,000162: 24,2126 71630 MP 1JACCQ
023859,000163: 24,2127 55616 TS JETRATEQ
023860,000164: 24,2130 27640 ADS SUMRATEQ
023861,000165: 24,2131 31626 CAE TQR
023862,000166: 24,2132 00006 EXTEND
023863,000167: 24,2133 71621 MP NO.RJETS
023864,000168: 24,2134 30001 CAE L
023865,000169: 24,2135 00006 EXTEND
023866,000170: 24,2136 71631 MP 1JACCR
023867,000171: 24,2137 55617 TS JETRATER
023868,000172: 24,2140 27641 ADS SUMRATER
023869,000173: 24,2141 31656 CAE WFORQR
023870,000174: 24,2142 00006 EXTEND
023871,000175: 24,2143 71626 MP TQR
023872,000176: 24,2144 61660 AD (1-K)/8
023873,000177: 24,2145 00006 EXTEND
023874,000178: 24,2146 77654 MP BIT4
023875,000179: 24,2147 22065 LXCH ITEMP1
023876,000180: 24,2150 31616 CAE JETRATEQ
023877,000181: 24,2151 00006 EXTEND
023878,000182: 24,2152 70065 MP ITEMP1
023879,000183: 24,2153 55616 TS JETRATEQ
023880,000184: 24,2154 31617 CAE JETRATER
023881,000185: 24,2155 00006 EXTEND
023882,000186: 24,2156 70065 MP ITEMP1
023883,000187: 24,2157 55617 TS JETRATER
023884,000188: 24,2160 37665 CA ZERO
023885,000189: 24,2161 55620 TS NO.QJETS
023886,000190: 24,2162 55621 TS NO.RJETS
023887,000191: 24,2163 00002 TC Q
023888,000192: 24,2164 02165 NORMQADR GENADR NORMALQ
023889,000193: 24,2165 37643 NORMALQ CAF BIT13 # CHECKING ATTITUDE HOLD BIT
023890,000194:
![]() |
Page 565 |
023892,000196: 24,2166 00006 EXTEND
023893,000197: 24,2167 02031 RAND 31 # BITS INVERTED
023894,000198: 24,2170 00006 EXTEND
023895,000199: 24,2171 12205 BZF CHKBIT10
023896,000200: 24,2172 37642 CAF BIT14 # ATT HOLD BIT NOT PRESENT. CHECK FOR AUTO
023897,000201: 24,2173 00006 EXTEND
023898,000202: 24,2174 02031 RAND 31
023899,000203: 24,2175 00006 EXTEND
023900,000204: 24,2176 12743 BZF ATTSTEER # AUTOMATIC STEERING, CHECK FOR RATE HOLD
023901,000205: 24,2177 00006 EXTEND # IF MODE SELECT SW OFF DO DAPIDLER NEXT
023902,000206: 24,2200 32204 DCA IDLEADRQ
023903,000207: 24,2201 52346 DXCH T5ADR
023904,000208: 24,2202 14606 TCF RESUME
023905,000209:
023906,000210: 24,2203 03141 46006 IDLEADRQ 2CADR DAPIDLER
023907,000211:
023908,000212: 24,2205 37646 CHKBIT10 CAF BIT10 # BIT10=1 FOR MIN IMP USE OF RHC
023909,000213: 24,2206 70765 MASK DAPBOOLS
023910,000214: 24,2207 00006 EXTEND
023911,000215: 24,2210 12250 BZF CHEKSTIK # IN ATT-HOLD/RATE-COMMAND IF BIT10=0
023912,000216:
023913,000217: 24,2211 30773 CAE DELAYCTR # SET TO 2 BY RUPT 10
023914,000218: 24,2212 00006 EXTEND
023915,000219: 24,2213 12504 BZF XTRANS
023916,000220:
023917,000221: 24,2214 32713 CA MINTADR
023918,000222: 24,2215 55514 TS TJETADR
023919,000223:
023920,000224: 24,2216 37657 CA BIT1
023921,000225: 24,2217 00006 EXTEND
023922,000226: 24,2220 02031 RAND 31
023923,000227: 24,2221 00006 EXTEND
023924,000228: 24,2222 13453 BZF 2JETS+Q
023925,000229:
023926,000230: 24,2223 37656 CA BIT2
023927,000231: 24,2224 00006 EXTEND
023928,000232: 24,2225 02031 RAND 31
023929,000233: 24,2226 00006 EXTEND
023930,000234: 24,2227 13271 BZF 2JETS-Q
023931,000235:
023932,000236: 24,2230 37653 CA BIT5
023933,000237: 24,2231 00006 EXTEND
023934,000238: 24,2232 02031 RAND 31
023935,000239: 24,2233 00006 EXTEND
023936,000240: 24,2234 13433 BZF 2JETS+R
023937,000241:
023938,000242: 24,2235 37652 CA BIT6
023939,000243: 24,2236 00006 EXTEND
023940,000244: 24,2237 02031 RAND 31
023941,000245: 24,2240 00006 EXTEND
023942,000246:
![]() |
Page 566 |
023944,000248: 24,2241 13224 BZF 2JETS-R
023945,000249:
023946,000250: 24,2242 12504 TCF XTRANS
023947,000251:
023948,000252: 24,2243 32702 MINTJET CAF +T6TJMIN
023949,000253: 24,2244 55626 TS TQR
023950,000254: 24,2245 37665 CA ZERO
023951,000255: 24,2246 54773 TS DELAYCTR
023952,000256: 24,2247 12554 TCF TORQUEV
023953,000257:
023954,000258: 24,2250 37641 CHEKSTIK CAF BIT15 # OUT-OF-DETENT BIT
023955,000259: 24,2251 00006 EXTEND
023956,000260: 24,2252 02031 RAND 31 # BITS INVERTED
023957,000261:
023958,000262: 24,2253 00006 EXTEND
023959,000263: 24,2254 12317 BZF RHCACTIV # BRANCH IF OUT OF DETENT
023960,000264: 24,2255 37657 CA BIT1 # OUR RATE COMMAND BIT
023961,000265: 24,2256 70765 MASK DAPBOOLS
023962,000266:
023963,000267: 24,2257 00006 EXTEND
023964,000268: 24,2260 62743 BZMF ATTSTEER # AUTOMATIC STEERING, CHECK FOR RATE HOLD
023965,000269: # WE WERE IN RATE COMMAND AND RATES MUST BE MADE SMALLER
023966,000270:
023967,000271: # ARE RATES SMALL ENOUGH NOW
023968,000272: 24,2261 31416 CA OMEGAP
023969,000273: 24,2262 00006 EXTEND
023970,000274: 24,2263 70000 SQUARE
023971,000275: 24,2264 52066 DXCH ITEMP1
023972,000276:
023973,000277: 24,2265 31417 CA OMEGAQ
023974,000278: 24,2266 00006 EXTEND
023975,000279: 24,2267 70000 SQUARE
023976,000280: 24,2270 20066 DAS ITEMP1
023977,000281:
023978,000282: 24,2271 31421 CA OMEGAR
023979,000283: 24,2272 00006 EXTEND
023980,000284: 24,2273 70000 SQUARE
023981,000285: 24,2274 20066 DAS ITEMP1
023982,000286:
023983,000287: # WE NOW HAVE SQUARED MAGNITUDE OF RATE VECTOR IN ITEMP1
023984,000288: 24,2275 42707 CS 16/32400 # 1DEG/SEC SCALED AT PI.PI/16
023985,000289: 24,2276 60065 AD ITEMP1
023986,000290: 24,2277 00006 EXTEND
023987,000291: 24,2300 62306 BZMF RATESMAL
023988,000292:
023989,000293: # THE RATE IS NOT SMALL ENOUGH YET.
023990,000294:
023991,000295: 24,2301 31417 CA OMEGAQ
023992,000296: 24,2302 55424 TS QRATEDIF
023993,000297: 24,2303 31421 CA OMEGAR
023994,000298:
![]() |
Page 567 |
023996,000300: 24,2304 55425 TS RRATEDIF
023997,000301: 24,2305 12352 TCF OBEYQRRC
023998,000302:
023999,000303: 24,2306 47657 RATESMAL CS BIT1
024000,000304: 24,2307 70765 MASK DAPBOOLS # RATE COMMAND BIT SET TO ZERO
024001,000305: 24,2310 54765 TS DAPBOOLS
024002,000306:
024003,000307: 24,2311 30032 CAE CDUX
024004,000308: 24,2312 54774 TS CDUXD
024005,000309: 24,2313 30033 CAE CDUY
024006,000310: 24,2314 54775 TS CDUYD
024007,000311: 24,2315 30034 CAE CDUZ
024008,000312: 24,2316 54776 TS CDUZD
024009,000313:
024010,000314: 24,2317 37657 RHCACTIV CAF BIT1
024011,000315: 24,2320 70765 MASK DAPBOOLS
024012,000316: 24,2321 00006 EXTEND
024013,000317: 24,2322 12504 BZF XTRANS # LET P AXIS SET THE RATE COMMAND BIT
024014,000318: # COMPUTE RATE ERRORS
024015,000319: 24,2323 30042 CAE Q-RHCCTR
024016,000320: 24,2324 00006 EXTEND
024017,000321: 24,2325 77647 MP BIT9
024018,000322: 24,2326 32714 CA -.88975
024019,000323: 24,2327 00006 EXTEND
024020,000324: 24,2330 70001 MP L # -Q RATE COMMAND SCALED AT PI/4
024021,000325: 24,2331 61417 AD OMEGAQ
024022,000326: 24,2332 55424 TS QRATEDIF
024023,000327:
024024,000328: 24,2333 30044 CAE R-RHCCTR
024025,000329: 24,2334 00006 EXTEND
024026,000330: 24,2335 77647 MP BIT9
024027,000331: 24,2336 32714 CA -.88975
024028,000332: 24,2337 00006 EXTEND
024029,000333: 24,2340 70001 MP L # -R RATE COMMAND SCALED AT PI/4.
024030,000334: 24,2341 61421 AD OMEGAR
024031,000335: 24,2342 55425 TS RRATEDIF
024032,000336:
024033,000337: # ZERO,ENABLE,AND START COUNTERS
024034,000338: 24,2343 37665 CAF ZERO
024035,000339: 24,2344 54043 TS P-RHCCTR
024036,000340: 24,2345 54042 TS Q-RHCCTR
024037,000341: 24,2346 54044 TS R-RHCCTR
024038,000342: 24,2347 32710 CAF BIT8,9
024039,000343: 24,2350 00006 EXTEND
024040,000344: 24,2351 05013 WOR 13
024041,000345:
024042,000346: 24,2352 32734 OBEYQRRC CA RTJETADR
024043,000347: 24,2353 55514 TS TJETADR
024044,000348:
024045,000349: 24,2354 11424 CCS QRATEDIF
024046,000350:
![]() |
Page 568 |
024048,000352: 24,2355 12416 TCF POSQEROR
024049,000353: 24,2356 12360 TCF NOQJETS
024050,000354: 24,2357 12365 TCF NEGQEROR
024051,000355:
024052,000356: 24,2360 11425 NOQJETS CCS RRATEDIF # CHECK SIGN OF RATE ERROR AND GET ABVAL
024053,000357: 24,2361 12445 TCF R+,CHKDB
024054,000358: 24,2362 12504 TCF XTRANS
024055,000359: 24,2363 12456 TCF R-,CHKDB
024056,000360: 24,2364 12504 TCF XTRANS
024057,000361:
024058,000362: 24,2365 61506 NEGQEROR AD -RATEDB
024059,000363: 24,2366 00006 EXTEND
024060,000364: 24,2367 62360 BZMF NOQJETS
024061,000365:
024062,000366: 24,2370 11425 CCS RRATEDIF
024063,000367: 24,2371 12402 TCF R+Q-CHKR
024064,000368: 24,2372 12374 TCF Q-NORJTS
024065,000369: 24,2373 12407 TCF R-Q-CHKR
024066,000370:
024067,000371: 24,2374 41424 Q-NORJTS CS QRATEDIF
024068,000372: 24,2375 55443 TS RATEDIF
024069,000373: 24,2376 61507 AD -2JETLIM
024070,000374: 24,2377 00006 EXTEND
024071,000375: 24,2400 63453 BZMF 2JETS+Q
024072,000376: 24,2401 13447 TCF 4JETS+Q
024073,000377:
024074,000378: 24,2402 61506 R+Q-CHKR AD -RATEDB
024075,000379: 24,2403 00006 EXTEND
024076,000380: 24,2404 62374 BZMF Q-NORJTS
024077,000381: 24,2405 03656 TC EDOTVGEN
024078,000382: 24,2406 13360 TCF 2-V.RATE
024079,000383:
024080,000384: 24,2407 61506 R-Q-CHKR AD -RATEDB
024081,000385: 24,2410 00006 EXTEND
024082,000386: 24,2411 62374 BZMF Q-NORJTS
024083,000387: 24,2412 03652 TC EDOTUGEN
024084,000388: 24,2413 00006 EXTEND
024085,000389: 24,2414 61425 SU RRATEDIF
024086,000390: 24,2415 13405 TCF 2+U.RATE
024087,000391:
024088,000392: 24,2416 61506 POSQEROR AD -RATEDB
024089,000393: 24,2417 00006 EXTEND
024090,000394: 24,2420 62360 BZMF NOQJETS
024091,000395:
024092,000396: 24,2421 11425 CCS RRATEDIF
024093,000397: 24,2422 12433 TCF R+Q+CHKR
024094,000398: 24,2423 12425 TCF Q+NORJTS
024095,000399: 24,2424 12440 TCF R-Q+CHKR
024096,000400:
024097,000401: 24,2425 31424 Q+NORJTS CA QRATEDIF
024098,000402:
![]() |
Page 569 |
024100,000404: 24,2426 55443 TS RATEDIF
024101,000405: 24,2427 61507 AD -2JETLIM
024102,000406: 24,2430 00006 EXTEND
024103,000407: 24,2431 63271 BZMF 2JETS-Q
024104,000408: 24,2432 13265 TCF 4JETS-Q
024105,000409:
024106,000410: 24,2433 61506 R+Q+CHKR AD -RATEDB
024107,000411: 24,2434 00006 EXTEND
024108,000412: 24,2435 62425 BZMF Q+NORJTS
024109,000413: 24,2436 03652 TC EDOTUGEN
024110,000414: 24,2437 13245 TCF 2-U.RATE
024111,000415:
024112,000416: 24,2440 61506 R-Q+CHKR AD -RATEDB
024113,000417: 24,2441 00006 EXTEND
024114,000418: 24,2442 62425 BZMF Q+NORJTS
024115,000419: 24,2443 03656 TC EDOTVGEN
024116,000420: 24,2444 13312 TCF 2+V.RATE
024117,000421:
024118,000422: 24,2445 61506 R+,CHKDB AD -RATEDB
024119,000423: 24,2446 00006 EXTEND
024120,000424: 24,2447 62504 BZMF XTRANS
024121,000425: 24,2450 31425 CA RRATEDIF
024122,000426: 24,2451 55443 TS RATEDIF
024123,000427: 24,2452 61507 AD -2JETLIM
024124,000428: 24,2453 00006 EXTEND
024125,000429: 24,2454 63224 BZMF 2JETS-R
024126,000430: 24,2455 13220 TCF 4JETS-R
024127,000431:
024128,000432: 24,2456 61506 R-,CHKDB AD -RATEDB
024129,000433: 24,2457 00006 EXTEND
024130,000434: 24,2460 62504 BZMF XTRANS
024131,000435: 24,2461 41425 CS RRATEDIF
024132,000436: 24,2462 55443 TS RATEDIF
024133,000437: 24,2463 61507 AD -2JETLIM
024134,000438: 24,2464 00006 EXTEND
024135,000439: 24,2465 63433 BZMF 2JETS+R
024136,000440: 24,2466 13427 TCF 4JETS+R
024137,000441:
024138,000442: 24,2467 11443 RTJETIME CCS RATEDIF # SCALED AT PI/4 RADIANS/SECOND
024139,000443: 24,2470 67657 AD ONE
024140,000444: 24,2471 12473 TCF +2
024141,000445: 24,2472 67657 AD ONE # ABS(RATEDIF)
024142,000446: 24,2473 00006 EXTEND
024143,000447: 24,2474 71471 MP 1/NJETAC # SCALED AT 2(8)/PI SECOND(2)/RADIANS
024144,000448: 24,2475 00006 EXTEND
024145,000449: 24,2476 77654 MP BIT4 # SCALED AT 2(3) SECONDS
024146,000450: 24,2477 30001 CAE L
024147,000451: 24,2500 00006 EXTEND
024148,000452: 24,2501 72703 MP 25/32.QR # TJET NOW PROPERLY SCALED IN A
024149,000453: 24,2502 55626 TS TQR # AT 2(4)16/25 SECONDS
024150,000454:
![]() |
Page 570 |
024152,000456: 24,2503 12554 TCF TORQUEV
024153,000457:
024154,000458:
024155,000459:
024156,000460: # TRANSLATION WITHOUT ROTATION IS ACCOMPLISHED IN XTRANS SECTION
024157,000461:
024158,000462: 24,2504 37665 XTRANS CA ZERO
024159,000463: 24,2505 55504 TS ADDTLT6
024160,000464: 24,2506 55503 TS ADDT6JTS
024161,000465: 24,2507 37652 CA BIT6
024162,000466: 24,2510 70765 MASK DAPBOOLS # CHECKING THE ULLAGE BIT
024163,000467:
024164,000468: 24,2511 00006 EXTEND
024165,000469: 24,2512 12516 BZF +4
024166,000470: 24,2513 32723 CA ALL+XJTS # ULLAGE JETS
024167,000471: 24,2514 04225 WRITEON TC WRITEQR
024168,000472: 24,2515 14606 TCF RESUME
024169,000473: 24,2516 37651 +4 CAF BIT7
024170,000474: 24,2517 00006 EXTEND
024171,000475: 24,2520 02031 RAND 31
024172,000476: 24,2521 00006 EXTEND
024173,000477: 24,2522 12532 BZF +XTRANS
024174,000478:
024175,000479: 24,2523 37650 CA BIT8 # -X TRANS BIT.INVERTED
024176,000480: 24,2524 00006 EXTEND
024177,000481: 24,2525 02031 RAND 31
024178,000482: 24,2526 00006 EXTEND
024179,000483: 24,2527 12543 BZF -XTRANS
024180,000484: 24,2530 37665 NOTORQUE CA ZERO
024181,000485: 24,2531 12514 TCF WRITEON
024182,000486: 24,2532 32724 +XTRANS CAF 2,10-OUT # CHECK FOR FAILURE OF 2 OR 10
024183,000487: 24,2533 00006 EXTEND
024184,000488: 24,2534 06032 RXOR 32
024185,000489: 24,2535 00006 EXTEND
024186,000490: 24,2536 12541 BZF +3 # 2 AND 10 GOOD
024187,000491: 24,2537 32726 CA +X,B # SINCE 2 OR 10 FAILED, USE 6 AND 14 OF B
024188,000492: 24,2540 12514 TCF WRITEON
024189,000493: 24,2541 32725 +3 CA +X,A # 2 AND 10 SYSTEM A
024190,000494: 24,2542 12514 TCF WRITEON
024191,000495: 24,2543 32727 -XTRANS CAF 1,9-OUT # CHECK FOR FAILURE OF 1 OR 9
024192,000496: 24,2544 00006 EXTEND
024193,000497: 24,2545 06032 RXOR 32
024194,000498: 24,2546 00006 EXTEND
024195,000499: 24,2547 12552 BZF +3 # 1 AND 9 GOOD
024196,000500: 24,2550 32730 CA -X,A # SINCE 1 OR 9 FAILED, USE 5 AND 13 OF A
024197,000501: 24,2551 12514 TCF WRITEON
024198,000502: 24,2552 32731 +3 CA -X,B # 1 AND 9 SYSTEM B
024199,000503: 24,2553 12514 TCF WRITEON
024200,000504:
![]() |
Page 571 |
024202,000506: # DO NECESSARY PARTS OF Q,R-AXES TORQUE VECTOR RECONSTRUCTION HERE AND NOW. FOR OTHER PARTS WAIT UNTIL THE NEXT
024203,000507: # P-AXIS RCS DAP T5RUPT.
024204,000508:
024205,000509: 24,2554 41626 TORQUEV CS TQR # CALCULATED Q,R JET TIME (AS IN TIME6)
024206,000510: 24,2555 62702 AD +T6TJMIN
024207,000511: 24,2556 00006 EXTEND # CORRECT BRANCH.
024208,000512: 24,2557 62567 BZMF TQRGTTMI # BRANCH FOR TQR = OR GREATER THAN MINIMP.
024209,000513: 24,2560 37665 CA ZERO
024210,000514: 24,2561 55505 TS TOFJTCHG # SINCE TQR LESS THAN A MINIMUM IMPULSE,
024211,000515: 24,2562 55616 TS JETRATEQ # ZERO ALL OF THESE REGISTERS AND GO TO
024212,000516: 24,2563 55617 TS JETRATER # JET LIST.
024213,000517: 24,2564 31502 CA JTSATCHG
024214,000518: 24,2565 04225 TC WRITEQR
024215,000519: 24,2566 14606 TCF RESUME
024216,000520: 24,2567 31626 TQRGTTMI CA TQR
024217,000521: 24,2570 55505 TS TOFJTCHG
024218,000522: 24,2571 62701 AD -1.5CSP
024219,000523: 24,2572 00006 EXTEND
024220,000524: 24,2573 62630 BZMF DOQRSKIP
024221,000525: 24,2574 31630 CA 1JACCQ
024222,000526: 24,2575 00006 EXTEND
024223,000527: 24,2576 71620 MP NO.QJETS
024224,000528: 24,2577 30001 CA L
024225,000529: 24,2600 54065 TS ITEMP1
024226,000530: 24,2601 00006 EXTEND
024227,000531: 24,2602 71623 MP QR.1STOQ
![]() |
Note: in the scan the two statements above (EXTEND, MP QR.1STOQ) are boxed in (red) and a marked with a question mark I.E. ---------------------------- | EXTEND | | MP QR.1STOQ | ? ---------------------------- |
024233,000537: 24,2603 55616 TS JETRATEQ
024234,000538: 24,2604 30065 CA ITEMP1
024235,000539: 24,2605 00006 EXTEND
024236,000540: 24,2606 72627 MP 0.1AT1
024237,000541: 24,2607 27640 ADS SUMRATEQ
024238,000542: 24,2610 31631 CA 1JACCR
024239,000543: 24,2611 00006 EXTEND
024240,000544: 24,2612 71621 MP NO.RJETS
024241,000545: 24,2613 30001 CA L
024242,000546: 24,2614 54065 TS ITEMP1
024243,000547: 24,2615 00006 EXTEND
024244,000548: 24,2616 71623 MP QR.1STOQ
![]() |
Note: in the scan the two statements above (EXTEND, MP QR.1STOQ) are boxed in (red) and a marked with a question mark See above. |
024247,000551: 24,2617 55617 TS JETRATER
024248,000552: 24,2620 30065 CA ITEMP1
024249,000553: 24,2621 00006 EXTEND
024250,000554: 24,2622 72627 MP 0.1AT1
024251,000555: 24,2623 27641 ADS SUMRATER
024252,000556: 24,2624 31501 CA JTSONNOW
024253,000557: 24,2625 12514 TCF WRITEON
024254,000558: 24,2626 02073 SKIPQRAD GENADR SKIPQRAX
024255,000559: 24,2627 03146 0.1AT1 DEC +0.10000
024256,000560: 24,2630 32626 DOQRSKIP CA SKIPQRAD
024257,000561: 24,2631 55614 TS QJUMPADR
024258,000562: # CHANGE JET ON AND OFF BITS TO ACCOUNT FOR THE PRESENT STATE OF THE
![]() |
Page 572 |
024260,000564: # CHANNEL. THE CHANGES ACCOUNT FOR PURE ROTATION ONLY- NOT TRANSLATION.
024261,000565: 24,2632 31501 CA JTSONNOW # = JETS WHICH ARE TO GO ON NOW.
024262,000566: 24,2633 00006 EXTEND
024263,000567: 24,2634 02005 RAND 5 # MASK THE CHANNEL WITH THE DESIRED STATE.
024264,000568: 24,2635 00006 EXTEND
024265,000569: 24,2636 12663 BZF NOQRON # A IS ZERO IF NO JETS TO GO ON ARE ON.
024266,000570: 24,2637 67641 AD BIT15 # MAKE DIFFERENCE CORRESPOND TO A QR JET.
024267,000571: 24,2640 00006 EXTEND
024268,000572: 24,2641 61501 SU JTSONNOW # RESULT IS COMPLEMENT OF JET BITS WHICH
024269,000573: 24,2642 54001 TS L # ARE TO BE ON FOR 6.5MS MORE THAN CALC.
024270,000574: 24,2643 00006 EXTEND
024271,000575: 24,2644 12670 BZF JTSAREON # A=0,THUS ALL JETS TO GO ON ARE NOW ON.
024272,000576: 24,2645 31502 TRSLTMN2 CAE JTSATCHG
024273,000577: 24,2646 77637 MASK POSMAX # REMOVE BIT15 FROM JTSATCHG.
024274,000578: 24,2647 00006 EXTEND
024275,000579: 24,2650 12654 BZF NOTRANS # IF JTSATCHG = 0 THEN NO TRANSLATION NOW.
024276,000580: 24,2651 32712 CA 14-TQRMN
024277,000581: 24,2652 27505 ADS TOFJTCHG # INSURE T GREATER THAN 14 MS.
024278,000582: 24,2653 12674 TCF TOJTLST
024279,000583: 24,2654 40001 NOTRANS CS L
024280,000584: 24,2655 67641 AD BIT15 # MAKE JET BITS CORRESPOND TO QR AXIS.
024281,000585: 24,2656 57502 XCH JTSATCHG # JTSONNOW - L = JETS ON AT TOFJTCHG.
024282,000586: 24,2657 55503 TS ADDT6JTS # JTS ON AT TOFJTCHG +ONDELAY.
024283,000587: 24,2660 32712 CA 14-TQRMN
024284,000588: 24,2661 55504 TS ADDTLT6
024285,000589: 24,2662 12674 TCF TOJTLST
024286,000590: 24,2663 32712 NOQRON CA 14-TQRMN
024287,000591: 24,2664 27505 ADS TOFJTCHG
024288,000592: 24,2665 37665 CA ZERO
024289,000593: 24,2666 55504 TS ADDTLT6
024290,000594: 24,2667 12674 TCF TOJTLST
024291,000595: 24,2670 32711 JTSAREON CA MCOMPTQR
024292,000596: 24,2671 27505 ADS TOFJTCHG
024293,000597: 24,2672 37665 CA ZERO
024294,000598: 24,2673 55504 TS ADDTLT6
024295,000599: 24,2674 31501 TOJTLST CA JTSONNOW
024296,000600: 24,2675 04225 TC WRITEQR
024297,000601: 24,2676 00006 EXTEND
024298,000602: 24,2677 32733 DCA JTLSTADR
024299,000603: 24,2700 52006 DTCB
024300,000604: 24,2701 77417 -1.5CSP DEC -0.01465
024301,000605: 24,2702 00014 +T6TJMIN DEC +.00073
024302,000606: 24,2703 31000 25/32.QR DEC 0.78125
024303,000607: 24,2704 37776 MS20QR OCTAL 37776
024304,000608: 24,2705 37775 MS30QR OCTAL 37775
024305,000609: 24,2706 37773 MS50QR OCTAL 37773
024306,000610: 24,2707 00010 16/32400 DEC 0.00049
024307,000611: 24,2710 00600 BIT8,9 OCTAL 00600
024308,000612: 24,2711 77765 MCOMPTQR OCTAL 77765 # -10 MS COMPUTATION TIME
024309,000613: 24,2712 00013 14-TQRMN DEC 11 B-14
024310,000614:
![]() |
Page 573 |
024312,000616: 24,2713 02243 MINTADR GENADR MINTJET
024313,000617: 24,2714 43415 -.88975 DEC -.88975
024314,000618: 24,2715 20000 (1-K),QR DEC 0.50000 # K = 1/2
024315,000619: 24,2716 02000 (1-KQ)/8 DEC 0.06250
024316,000620: 24,2717 77557 -90MS DEC -.00879
024317,000621: 24,2720 00220 +90MS DEC 0.00879
024318,000622: 24,2721 77537 NEGCSP2 DEC -.00977
024319,000623: 24,2722 24366 16/25QR DEC 0.64000
024320,000624: 24,2723 40252 ALL+XJTS OCTAL 40252
024321,000625: 24,2724 00201 2,10-OUT OCTAL 00201
024322,000626: 24,2725 40042 +X,A OCTAL 40042
024323,000627: 24,2726 40210 +X,B OCTAL 40210
024324,000628: 24,2727 00104 1,9-OUT OCTAL 00104
024325,000629: 24,2730 40104 -X,A OCTAL 40104
024326,000630: 24,2731 40021 -X,B OCTAL 40021
024327,000631: 24,2732 02716 46006 JTLSTADR 2CADR JTLST
024328,000632:
024329,000633: 24,2734 02467 RTJETADR GENADR RTJETIME
024330,000634:
![]() |
Page 574 |
024332,000636: # Q,R-AXES ATTITUDE STEERING CALCULATIONS:
024333,000637:
024334,000638: # (EXECUTED WHEN LGC IS IN AUTOMATIC SCSMODE OR IF SCSMODE IS ATTITUDE HOLD AND THE ROTATIONAL HAND CONTROLLER IS
024335,000639: # NEITHER OUT OF DETENT NOR IS THE RATE COMMAND BIT SET IN DAPBOOLS)
024336,000640:
024337,000641: # IMMEDIATELY AFTER CALCULATING THE ATTITUDE ERRORS, THE FOLLOWING TESTS ARE MADE TO DETERMINE WHETHER THE DESCENT
024338,000642: # ENGINE TRIM GIMBAL SHOULD BE USED TO CONTROL THE LEM ATTITUDE RATHER THAN THE RCS JETS:
024339,000643:
024340,000644: # 1) IS THE TRIM GIMBAL FUNCTIONALLY OPERATIVE?
024341,000645: # 2) ARE THE Q,R-AXES RCS JETS OFF?
024342,000646: # 3) ARE BOTH TRIM GIMBAL DRIVES OFF?
024343,000647: # 4) IS THE LEM RATE LESS THAN .5 DEG/SEC ABOUT BOTH AXES?
024344,000648:
024345,000649: 24,2735 32742 GOTOGTS CAF INITFILT # ERRORS NOW CONTROLLABLE BY TRIM GIMBAL
024346,000650: 24,2736 54345 TS T5ADR # SET T5RUPT TO GO TO FILTER INITIALIZING
024347,000651: 24,2737 14606 TCF RESUME # PROGRAM
024348,000652:
024349,000653: 24,2740 07400 BGIM24 OCTAL 07400
024350,000654: 24,2741 03644 DESCADR GENADR TJET-LAW # RETURN ADDRESS FOR JET SELECT LOGIC
024351,000655: 24,2742 02000 INITFILT GENADR FILTINIT # ADDRESS OF FILTER INITIALIZATION RUPT
024352,000656:
024353,000657: # "ATTSTEER" IS THE NOMINAL ENTRY POINT FOR REACTION CONTROL SYSTEM ATTITUDE STEERING:
024354,000658: # BEGIN ATTSTEER BY CHECKING IF RATE HOLD MODE(CURRENTLY USED ONLY AT SIVB
024355,000659: # -LEM SEPARATION-206 MISSION PHASE 6) IS REQUESTED(BIT 14 OF DAPBOOLS ON)
024356,000660: # IF BIT 14 IS OFF, BRANCH TO QERRCALC DIRECTLY AND BEGIN AUTOMATIC
024357,000661: # STEERING. IF BIT 14 IS ON, TEST BIT 3 OF DAPBOOLS TO SEE IF THE DESIRED
024358,000662: # RATE HAS BEEN SAVED YET. IF IT IS ON, THIS IS NOT THE FIRST PASS AND
024359,000663: # THE RATE HAS BEEN SAVED. GO DIRECTLY TO QERRCALC FOR AUTOMATIC STEERING
024360,000664: # IF THE BIT IS OFF, THE RATE MUST BE SAVED. TRANSFER TO SAVERATE(BANK25)
024361,000665: # AND RETURN AFTER FIRST PASS TO RESUME AND DAPIDLER.
024362,000666:
024363,000667: # IN ORDER TO USE RATE HOLD, THE MISSION PROGRAMMER MUST SET BIT 14 OF
024364,000668: # DAPBOOLS ON AND SET BIT 3 OF DAPBOOLS TO ZERO. UPON RETURNING FROM THE
024365,000669: # FIRST PASS AT LEAST THROUGH RATE HOLD, THE MISSION PROGRAMMER MUST RESET
024366,000670: # BIT 3 TO ITS PREVIOUS VALUE IF THIS IS NOT 1, BECAUSE SAVERATE SETS BIT3
024367,000671: # TO 1 FOR ALL PASSES AFTER THE FIRST IN ORDER NOT TO SAVE THE RATE AGAIN.
024368,000672:
024369,000673: # IN ADDITION TO NON-RATE HOLD MODE AND NON-FIRST PASS RATE HOLD MODE
024370,000674: # EXITS TO QERRCALC, THE FIRST PASS EXITS TO RESUME, IE. OUT OF INTERRUPT
024371,000675: # AND BACK TO DAPIDLER TO AWAIT THE NEXT CALL TO DAP.
024372,000676:
024373,000677: # RATE HOLD PRODUCES THE FOLLOWING OUTPUT IN ERASABLE --
024374,000678:
024375,000679: # CDUD - SCALED AT +/-PI, DESIRED GIMBAL ANGLE
024376,000680:
024377,000681: # DELCDU - SCALED AT +/-PI, INCREMENT TO CDUD EVERY 100 MS.
024378,000682:
024379,000683: # OMEGAPD, QD, RD - SCALED AT +/-PI/4, BODY AXIS RATES
024380,000684:
024381,000685: # ALL THESE ARE USED BY AUTOMATIC STEERING MODE EQUATIONS.
024382,000686:
![]() |
Page 575 |
024384,000688: # RATE HOLD REQUIRES OMEGAP, Q, R EVERY .25 SEC, AND ALSO REQUIRES PILOT-
024385,000689: # TO-GIMBAL AXIS MATRIX ELEMENTS, MR12, 22, 13, 23 TO BE LOCATED IN THAT
024386,000690: # ORDER.
024387,000691:
024388,000692: # FINALLY, RATE HOLD LEAVES DEBRIS IN --
024389,000693:
024390,000694: # DLCDUIDX - LOOP INDEX USED IN COMPUTING DELCDUS, = 1, 0
024391,000695:
024392,000696: # ITEMP1 - STORES TEMPORARY PRODUCTS AND SUMS, LEFT WITH DELCDUY IN 1S.
024393,000697:
024394,000698:
024395,000699:
024396,000700: 24,2743 40765 ATTSTEER CS DAPBOOLS # DOES BIT14 OF DAPBOOLS REQUEST RATE HOLD
024397,000701: 24,2744 77642 MASK BIT14 # (SIVB-LEM SEPARATION)
024398,000702: 24,2745 10000 CCS A
024399,000703: 24,2746 13025 TCF QERRCALC # NO, GO DIRECTLY TO AUTOMATIC STEERING
024400,000704:
024401,000705: # CHECK DAPBOOLS, BIT3, TO SEE IF DESIRED RATE HAS BEEN SAVED YET
024402,000706:
024403,000707: 24,2747 30765 CAE DAPBOOLS # DOES BIT3 SHOW THAT THE DESIRED RATE HAS
024404,000708: 24,2750 77655 MASK BIT3 # BEEN SAVED(NOT FIRST PASS). IF NOT, GO
024405,000709: 24,2751 10000 CCS A # SAVE DESIRED RATES IN THE OMEGADS
024406,000710: 24,2752 12771 TCF NEXDLCDU -1 # YES, COMPUTE THE DELCDUS.
024407,000711:
024408,000712: # SAVERATE IS ENTERED ONLY DURING THE FIRST PASS THROUGH RATE HOLD. IT
024409,000713: # SAVES THE CURRENT CDUS FIRST IN CDUDS AND THEN SAVES THE BODY RATES,
024410,000714: # OMEGAP, Q, R IN OMEGAPD, QD, RD. NEXT, WE SET BIT 3 OF DAPBOOLS TO 1.
024411,000715:
024412,000716: 24,2753 00006 SAVERATE EXTEND # COME HERE FIRST TIME INTO RATE HOLD IN
024413,000717: 24,2754 30034 DCA CDUY
024414,000718: 24,2755 52776 DXCH CDUYD # ORDER TO SET UP RATES, CDUS, AND DELCDUS
024415,000719: 24,2756 30032 CAE CDUX
024416,000720: 24,2757 54774 TS CDUXD # FIRST, CDUDS = CDUS AT SIVB SEPARATION
024417,000721:
024418,000722: 24,2760 00006 EXTEND # NEXT, SAVE CURRENT SIVB SEPARATION RATES
024419,000723: 24,2761 31417 DCA OMEGAP
024420,000724: 24,2762 53427 DXCH OMEGAPD # OMEGAP AND OMEGAR, IN OMEGAPD AND
024421,000725: 24,2763 31421 CAE OMEGAR
024422,000726: 24,2764 55430 TS OMEGARD # OMEGARD. LEM HELD TO RATES FOR 13 SECS.
024423,000727:
024424,000728: 24,2765 37655 CAF BIT3 # RESET BIT 3 = 1 SO THAT RATES NOT SAVED
024425,000729: 24,2766 26765 ADS DAPBOOLS # AGAIN IN RATE HOLD PASSES
024426,000730: 24,2767 14606 TCF RESUME # RETURN TO IDLE AFTER SAVING RATE
024427,000731:
024428,000732: 24,2770 00632 100MSCAL DEC .025 # 100 MS. SCALED AT 4 SEC. RATE HOLD DELT
024429,000733:
024430,000734: # TO COMPUTE TEH DELCDUS, Y AND Z, WE SET UP A LOOP AND SOLVE THE EQUATION
024431,000735:
024432,000736: # C(DELCDUY+DLCDUIDX)=(OMEGAQD.C(MR12+DLCDUIDX)+OMEGARD.C(MR13+DLCDUIDX))
024433,000737: # .(100MS) SCALED AT PI IN 2S COMPLEMENT(LIKE CDUS)
024434,000738:
![]() |
Page 576 |
024436,000740: # DURING THIS COMPUTATION, ITEMP1 IS USED TO STORE THE PARTIAL SUMS AND
024437,000741: # PRODUCTS. DELCDUY IS RESCALED TO 1 AS MR12 AND MR13 ARE SCALED AT 2.
024438,000742: # AFTER CONVERTING TO TWOS COMPLEMENT, WE SET DELCDUX TO ZERO TO AVOID ANY
024439,000743: # ROLL DURING RATE HOLD MODE. NOTE THAT DELCDUS ARE COMPUTED IN THE NEGA-
024440,000744: # TIVE TO ALLOW 2S COMP. MOD. SUBTRACT LATER ON (CDU-(-DELCDU))
024441,000745:
024442,000746: 24,2771 37657 CAF ONE # SET UP LOOP INDEX TO COMPUTE DELCDUS.
024443,000747: 24,2772 55672 NEXDLCDU TS DLCDUIDX # DLCDUIDX = C(A)
024444,000748:
024445,000749: 24,2773 41427 CS OMEGAQD # DLCDUIDX = 1 DLCDUIDX = 0
024446,000750: 24,2774 00006 EXTEND # ITEMP1=-OMEGAQD.MR22
024447,000751: 24,2775 51672 INDEX DLCDUIDX
024448,000752: 24,2776 71400 MP MR12 # MR22 SCALED AT 1 MR12 SCALED AT 2
024449,000753: 24,2777 54065 TS ITEMP1 # ITEMP1=-OMEGAQD.MR12
024450,000754:
024451,000755: 24,3000 41430 CS OMEGARD # C(A)=ITEMP1 -OMEGARD.MR23
024452,000756: 24,3001 00006 EXTEND
024453,000757: 24,3002 51672 INDEX DLCDUIDX # C(A)=ITEMP1 -OMEGARD.MR13
024454,000758: 24,3003 71402 MP MR13 # MR23 SCALED AT 1 MR13 SCALED AT 2
024455,000759: 24,3004 60065 AD ITEMP1
024456,000760: 24,3005 00006 EXTEND # DELT = 100 MS. SCALED AT 4 SEC.
024457,000761: 24,3006 72770 MP 100MSCAL
024458,000762: 24,3007 54065 TS ITEMP1 # ITEMP1 = C(A) . DELT
024459,000763:
024460,000764: 24,3010 11672 CCS DLCDUIDX # CHECK INDEX FOR RESCALING
024461,000765: 24,3011 13014 TCF +3 # DELCDUZ SCALED AT PI/4, RESCALE UNNEEDED
024462,000766: 24,3012 30065 CAE ITEMP1 # DELCDUY SCALED AT PI/2, RESCALE BY
024463,000767: 24,3013 26065 ADS ITEMP1 # ADDING TO ITSELF
024464,000768:
024465,000769: 24,3014 10065 CCS ITEMP1 # CONVERT DELCDUS TO TWOS COMPLEMENT (SAME
024466,000770: 24,3015 67657 AD ONE # AS CDUS). ADD ONE TO RESTORE PRE-CCS A
024467,000771: 24,3016 13020 TCF STODLCDU # STORE DIRECT IF POSITIVE ZERO
024468,000772: 24,3017 40000 COM # COMPLEMENT IF NEGATIVE, CCS INCREMENTS
024469,000773: 24,3020 51672 STODLCDU INDEX DLCDUIDX # IF NEGATIVE ZERO, STORE POSITIVE ZERO
024470,000774: 24,3021 55674 TS DELCDUY # STORE FINAL DELCDUZ OR DELCDUY
024471,000775:
024472,000776: 24,3022 11672 CCS DLCDUIDX # TEST INDEX DLCDUIDX, EITHER 1 OR 0
024473,000777: 24,3023 12772 TCF NEXDLCDU # IF 1, DO DELCDUY
024474,000778: 24,3024 55673 TS DELCDUX # DELCDUZ,Y DONE, 0 TO DELCDUX-NO ROLL
024475,000779:
024476,000780: 24,3025 30033 QERRCALC CAE CDUY # Q-ERROR CALCULATION
024477,000781: 24,3026 00006 EXTEND
024478,000782: 24,3027 20775 MSU CDUYD # CDU ANGLE - ANGLE DESIRED (Y-AXIS)
024479,000783: 24,3030 54065 TS ITEMP1 # SAVE FOR RERRCALC
024480,000784: 24,3031 00006 EXTEND
024481,000785: 24,3032 71405 MP M21 # (CDUY-CDUYD)*M21 SCALED AT PI RADIANS
024482,000786: 24,3033 57413 XCH ER # SAVE FIRST TERM (OF TWO) IN OPP.AXIS REG
024483,000787: 24,3034 30034 CAE CDUZ # SECOND TERM CALCULATION:
024484,000788: 24,3035 00006 EXTEND
024485,000789: 24,3036 20776 MSU CDUZD # CDU ANGLE -ANGLE DESIRED (Z-AXIS)
024486,000790:
![]() |
Page 577 |
024488,000792: 24,3037 54066 TS ITEMP2 # SAVE FOR RERRCALC
024489,000793: 24,3040 00006 EXTEND
024490,000794: 24,3041 71401 MP M22 # (CDUZ-CDUZD)*M22 SCALED AT PI RADIANS
024491,000795: 24,3042 27413 ADS ER # SAVE SUM OF TERMS, NO OVERFLOW EVER
024492,000796: 24,3043 55477 TS QERROR # SAVE QERROR FOR EIGHT-BALL DISPLAY
024493,000797:
024494,000798: 24,3044 30065 RERRCALC CAE ITEMP1 # R-ERROR CALCULATION:
024495,000799: 24,3045 00006 EXTEND # CDU ANGLE -ANGLE DESIRED (Y-AXIS)
024496,000800: 24,3046 71406 MP M31 # (CDUY-CDUYD)*M31 SCALED AT PI RADIANS
024497,000801: 24,3047 57411 XCH E # SAVE FIRST TERM (OF TWO) IN OPP.AXIS REG
024498,000802: 24,3050 30066 CAE ITEMP2 # SECOND TERM CALCULATION:
024499,000803: 24,3051 00006 EXTEND # CDU ANGLE -ANGLE DESIRED (Z-AXIS)
024500,000804: 24,3052 71403 MP M32 # (CDUZ-CDUZD)*M32 SCALED AT PI RADIANS
024501,000805: 24,3053 27411 ADS E # SAVE SUM OF TERMS, NO OVERFLOW EVER
024502,000806: 24,3054 55500 TS RERROR # SAVE R-ERROR FOR EIGHT-BALL DISPLAY
024503,000807:
024504,000808: # TEST (1): IS THE TRIM GIMBAL FUNCTIONALLY OPERATIVE?
024505,000809:
024506,000810: 24,3055 37656 CAF BIT2 # TEST TO SEE IF LEM AND DAP MODES ALLOW
024507,000811: 24,3056 70765 MASK DAPBOOLS # USE OF TRIM GIMBAL CONTROL SYSTEM:
024508,000812: 24,3057 10000 CCS A # BIT2 = 0 MEANS THAT TRIM GIMBAL CONTROL
024509,000813: 24,3060 13122 TCF STILLRCS # IS POSSIBLE, SO TEST OTHER TG CONDITIONS
024510,000814:
024511,000815: # TEST (2): ARE THE Q,R-AXES RCS JETS OFF?
024512,000816: 24,3061 00006 EXTEND # BUT, IF JETS ARE OFF AND TRIM GIMBAL MAY
024513,000817: 24,3062 00005 READ 5 # POSSIBLY BE USED: BEING IN THE JET COAST
024514,000818: 24,3063 10000 CCS A # REGION OF THE PHASE PLANE IS A NECESSARY
024515,000819: 24,3064 13122 TCF STILLRCS # BUT INSUFFICIENT REASON FOR GTS USE
024516,000820:
024517,000821: # TEST (3): ARE BOTH TRIM GIMBAL DRIVES OFF?
024518,000822:
024519,000823: 24,3065 00006 EXTEND # BITS 9-12 OF CHANNEL 12 ARE THE SIGNALS
024520,000824: 24,3066 00012 READ 12 # WHICH DRIVE THE TRIM GIMBAL ENGINE:
024521,000825: 24,3067 72740 MASK BGIM24 # IF NONE OF THESE BITS ARE ON, THEN BOTH
024522,000826: 24,3070 10000 CCS A # WAITLIST TASKS TO TURN OFF THE DRIVES
024523,000827: 24,3071 13122 TCF STILLRCS # HAVE BEEN DONE AND GTS CONTROL CAN OCCUR
024524,000828:
024525,000829: # TEST (4): IS THE LEM RATE LESS THAN .5 DEG/SEC ABOUT BOTH AXES?
024526,000830:
024527,000831: 24,3072 37657 CA BIT1
024528,000832: 24,3073 54073 LOOPTOP TS QRCNTR
024529,000833: 24,3074 60000 DOUBLE
024530,000834: 24,3075 50000 INDEX A
024531,000835: 24,3076 11417 CCS OMEGAQ # IS ERROR RATE SMALL ENOUGH FOR GTS.
024532,000836: 24,3077 63120 AD -RATLM+1 # -.5 DEG/SEC SCALED AT PI/4 + 1 BIT
024533,000837: 24,3100 13102 TCF +2
024534,000838: 24,3101 63120 AD -RATLM+1
024535,000839: 24,3102 00006 EXTEND
024536,000840: 24,3103 63105 BZMF +2 # IS RATE LESS,EQUAL .5 DEG/SEC.
024537,000841: 24,3104 13122 TCF STILLRCS # NO. SO USE RCS.
024538,000842:
![]() |
Page 578 |
024540,000844: 24,3105 50073 INDEX QRCNTR # YES. TRY THE ERROR MAGNITUDE.
024541,000845: 24,3106 11477 CCS QDIFF # IS ERROR SMALL ENOUGH FOR GTS.
024542,000846: 24,3107 63121 AD -XBND+1 # -1.4 DEG SCALED AT PI + 1 BIT
024543,000847: 24,3110 13112 TCF +2
024544,000848: 24,3111 63121 AD -XBND+1
024545,000849: 24,3112 00006 EXTEND
024546,000850: 24,3113 63115 BZMF +2 # IS ERROR LESS,EQUAL 1.4 DEG.
024547,000851: 24,3114 13122 TCF STILLRCS # NO. USE RCS CONTROL.
024548,000852: 24,3115 10073 CCS QRCNTR # THIS AXIS IS FINE. ARE BOTH DONE.
024549,000853: 24,3116 13073 TCF LOOPTOP # NOW TRY THE Q AXIS.
024550,000854: 24,3117 12735 TCF GOTOGTS # TRANSFER TO TRIM GIMBAL CONTROL
024551,000855: 24,3120 77512 -RATLM+1 OCT 77512 # -.5 DEG/SEC SCALED AT PI/4 + 1 BIT
024552,000856: 24,3121 77601 -XBND+1 OCT 77601 # -1.4 DEG SCALED AT PI. + 1 BIT.
024553,000857: # "STILLRCS" IS THE ENTRY POINT TO RCS ATTITUDE STEERING WHENEVER IT IS FOUND THAT THE TRIM GIMBAL CONTROL
024554,000858: # SYSTEM SHOULD NOT BE USED:
024555,000859:
024556,000860: 24,3122 32741 STILLRCS CAF DESCADR # SET JET SELECT LOGIC RETURN ADDRESS TO
024557,000861: 24,3123 55514 TS TJETADR # THE Q,R-AXIS TJETLAW CALCULATION
024558,000862:
024559,000863: 24,3124 04177 TC T6JOBCHK # CHECK T6 CLOCK RUPT BEFORE SUBROUTINE
024560,000864:
024561,000865: 24,3125 31662 RURGENCY CAE 1/NJTSR # SET-UP URGENCY SUBROUTINE
024562,000866: 24,3126 55471 TS 1/NJETAC
![]() |
Note: Target (See below) |
024564,000868: 24,3127 41430 CS OMEGARD # EDOTR = OMEGAR - OMEGARD
024565,000869: 24,3130 61421 AD OMEGAR
024566,000870: 24,3131 55425 TS EDOTR # SCALED AT PI/4 RADIANS
024567,000871: 24,3132 03525 TC URGROUTN # *** SUBROUTINE CALL ***
024568,000872: 24,3133 55516 TS URGENCYR # URGENCY LEFT IN A SCALED AT 2(4) SECS
024569,000873:
024570,000874: 24,3134 53412 DXCH E # MOVE R-AXIS VARIABLES TO R-AXIS ERASABLE
024571,000875: 24,3135 53414 DXCH ER # FROM Q-XIS (COMMON) ERASABLE
024572,000876: 24,3136 55411 TS E
024573,000877: 24,3137 31407 CAE EDOT # (LLOK AT REORG FOR EFFIC: JDA 7/17/66)
024574,000878: 24,3140 55410 TS EDOT(R)
024575,000879:
024576,000880: 24,3141 31661 QURGENCY CAE 1/NJTSQ # SET-UP URGENCY SUBROUTINE
024577,000881: 24,3142 55471 TS 1/NJETAC
024578,000882: 24,3143 41427 CS OMEGAQD # EDOTQ = OMEGAQ - OMEGAQD
024579,000883: 24,3144 61417 AD OMEGAQ
024580,000884: 24,3145 55424 TS EDOTQ # SCALED AT PI/4 RADIANS
024581,000885: 24,3146 03525 TC URGROUTN # *** SUBROUTINE CALL ***
024582,000886:
024583,000887: 24,3147 55515 TS URGENCYQ # URGENCY LEFT IN A SCALED AT 2(4) SECS
![]() |
Note: in the scan the statements starting with QURGENCY are marked with red side bars and a red box. The box has the marker CAE EDOTQ and an arrow pointing in between the two statements marked as 'Target' above. |
024587,000891: ##
![]() |
... TS 1/NJETAC <------| CS OMEGARD | | ... | | QURGENCY | CAE 1/NJTSQ | | | TS 1/NJETAC | | |---------------------------| | | CS OMEGAQD | | CAE | AD OMEGAQ |---| EDOTQ | TS EDOTQ | |---------------------------| | TC URGROUTN | | TS URGENCYQ | |
024604,000908: ##
024605,000909:
024606,000910: 24,3150 00006 EXTEND
024607,000911: 24,3151 13321 BZF BURGZERO # TEST FOR BOTH URGENCIES ZERO
024608,000912:
024609,000913: 24,3152 00006 EXTEND
024610,000914: 24,3153 73336 MP -TAN22.5
024611,000915: 24,3154 61516 AD URGENCYR
024612,000916: 24,3155 00006 EXTEND
024613,000917:
![]() |
Page 579 |
024615,000919: 24,3156 73334 MP COS22.5
024616,000920: 24,3157 55521 TS TERMA # UR.COS(22.5)-UQ.SIN(22.5)
024617,000921:
024618,000922: 24,3160 41516 CS URGENCYR
024619,000923: 24,3161 00006 EXTEND
024620,000924: 24,3162 73336 MP -TAN22.5
024621,000925: 24,3163 61515 AD URGENCYQ
024622,000926: 24,3164 00006 EXTEND
024623,000927: 24,3165 73334 MP COS22.5
024624,000928: 24,3166 55522 TS TERMB # UR.SIN(22.5)+UQ.COS(22.5)
024625,000929:
024626,000930: 24,3167 61521 A+B/A-B AD TERMA
024627,000931: 24,3170 55517 TS A+B
024628,000932: 24,3171 41522 A-B/ONLY CS TERMB
024629,000933: 24,3172 61521 AD TERMA
024630,000934: 24,3173 55520 TS A-B
024631,000935:
024632,000936: # AXIS AND MODE SELECTION
024633,000937:
024634,000938: 24,3174 31522 CAE TERMB # B URGENCY TEST
024635,000939: 24,3175 00006 EXTEND
024636,000940: 24,3176 63337 BZMF NEGBURG
024637,000941:
024638,000942: 24,3177 31521 POSBURG CAE TERMA # A URGENCY TEST
024639,000943: 24,3200 00006 EXTEND
024640,000944: 24,3201 63254 BZMF NEGAPOSB
024641,000945:
024642,000946: 24,3202 31520 POSAPOSB CA A-B
024643,000947: 24,3203 00006 EXTEND
024644,000948: 24,3204 63232 BZMF MINUSU # NEGATIVE U-AXIS SELECTED
024645,000949:
024646,000950: 24,3205 00006 2/4JET-R EXTEND
024647,000951: 24,3206 31414 DCA ER
024648,000952: 24,3207 53412 DXCH E
024649,000953: 24,3210 31410 CAE EDOT(R)
024650,000954: 24,3211 55407 TS EDOT
024651,000955: 24,3212 31652 CAE .5ACCMNR
024652,000956: 24,3213 55650 TS .5ACCMNE
024653,000957: 24,3214 33524 CAF URM # 2/4 JET URGENCY TEST -R AXIS
024654,000958: 24,3215 61516 AD URGENCYR
024655,000959: 24,3216 00006 EXTEND
024656,000960: 24,3217 63224 BZMF 2JETS-R
024657,000961:
024658,000962: 24,3220 31446 4JETS-R CAE 1/2JTSR # MOVE 1/NJETAC UNMODIFIED
024659,000963: 24,3221 55471 TS 1/NJETAC
024660,000964: 24,3222 47663 CS SEVEN
024661,000965: 24,3223 13460 TCF POLTYPE # GO FIND BEST POLICY
024662,000966:
024663,000967: 24,3224 11666 2JETS-R CCS RMANDACC # ASCENT 4-JET OVER-RIDE TEST
024664,000968: 24,3225 13220 TCF 4JETS-R
024665,000969:
![]() |
Page 580 |
024667,000971: 24,3226 31446 CAE 1/2JTSR
024668,000972: 24,3227 55471 TS 1/NJETAC
024669,000973: 24,3230 46162 CS SIX
024670,000974: 24,3231 13460 TCF POLTYPE # GO FIND BEST POLICY
024671,000975:
024672,000976: 24,3232 31653 MINUSU CAE .5ACCMNU
024673,000977: 24,3233 55650 TS .5ACCMNE
024674,000978: 24,3234 31515 CAE URGENCYQ # 2 JET OPT/MAND TEST: -U AXIS
024675,000979: 24,3235 61516 AD URGENCYR
024676,000980: 24,3236 10000 CCS A
024677,000981: 24,3237 63524 AD NEGURGUM
024678,000982: 24,3240 13242 TCF +2
024679,000983: 24,3241 63524 AD NEGURGUM
024680,000984: 24,3242 00006 EXTEND
024681,000985: 24,3243 63247 BZMF 2JETS-U
024682,000986:
024683,000987: 24,3244 03474 2JETSM-U TC UXFORM
024684,000988: 24,3245 47664 2-U.RATE CS FIVE
024685,000989: 24,3246 13460 TCF POLTYPE # GO FIND BEST POLICY
024686,000990:
024687,000991: 24,3247 11667 2JETS-U CCS UMANDACC # ASCENT 2-JET MANDATORY OVER-RIDE TEST
024688,000992: 24,3250 13244 TCF 2JETSM-U
024689,000993: 24,3251 03474 TC UXFORM
024690,000994: 24,3252 47655 CS FOUR
024691,000995: 24,3253 13460 TCF POLTYPE # GO FIND BEST POLICY
024692,000996:
024693,000997: 24,3254 31517 NEGAPOSB CAE A+B
024694,000998: 24,3255 00006 EXTEND
024695,000999: 24,3256 63277 BZMF PLUSV
024696,001000:
024697,001001: 24,3257 31651 2/4JET-Q CAE .5ACCMNQ
024698,001002: 24,3260 55650 TS .5ACCMNE
024699,001003: 24,3261 33524 CAF UQM # 204 JET URGENCY TEST: -Q AXIS
024700,001004: 24,3262 61515 AD URGENCYQ
024701,001005: 24,3263 00006 EXTEND
024702,001006: 24,3264 63273 BZMF 2JETS-Q +2 # (FIRST TWO INSTRUCTIONS UNNECESSARY)
024703,001007:
024704,001008: 24,3265 31445 4JETS-Q CAE 1/2JTSQ # MOVE 1/NJETAC UNMODIFIED
024705,001009: 24,3266 55471 TS 1/NJETAC
024706,001010: 24,3267 46165 CS THREE
024707,001011: 24,3270 13460 TCF POLTYPE # GO FIND BEST POLICY
024708,001012:
024709,001013: 24,3271 11665 2JETS-Q CCS QMANDACC # ASCENT 4-JET OVER-RIDE TEST
024710,001014: 24,3272 13265 TCF 4JETS-Q
024711,001015: 24,3273 31445 CAE 1/2JTSQ
024712,001016: 24,3274 55471 TS 1/NJETAC
024713,001017: 24,3275 47656 CS TWO
024714,001018: 24,3276 13460 TCF POLTYPE # GO FIND BEST POLICY
024715,001019:
024716,001020: 24,3277 31654 PLUSV CAE .5ACCMNV
024717,001021:
![]() |
Page 581 |
024719,001023: 24,3300 55650 TS .5ACCMNE
024720,001024: 24,3301 41515 CS URGENCYQ # 2 JET OPT/MAND TEST: +V AXIS
024721,001025: 24,3302 61516 AD URGENCYR
024722,001026: 24,3303 10000 CCS A
024723,001027: 24,3304 63524 AD NEGURGVM
024724,001028: 24,3305 13307 TCF +2
024725,001029: 24,3306 63524 AD NEGURGVM
024726,001030: 24,3307 00006 EXTEND
024727,001031: 24,3310 63314 BZMF 2JETS+V
024728,001032:
024729,001033: 24,3311 03466 2JETSM+V TC VXFORM
024730,001034: 24,3312 47657 2+V.RATE CS ONE
024731,001035: 24,3313 13460 TCF POLTYPE # GO FIND BEST POLICY
024732,001036:
024733,001037: 24,3314 11670 2JETS+V CCS VMANDACC # ASCENT 2-JET MANDATORY OVER-RIDE TEST
024734,001038: 24,3315 13311 TCF 2JETSM+V
024735,001039: 24,3316 03466 TC VXFORM
024736,001040: 24,3317 37665 CAF ZERO
024737,001041: 24,3320 13460 TCF POLTYPE # GO FIND BEST POLICY
024738,001042:
024739,001043: 24,3321 31516 BURGZERO CAE URGENCYR # TEST FOR SECOND URGENCY ALSO ZERO
024740,001044: 24,3322 00006 EXTEND
024741,001045: 24,3323 12504 BZF XTRANS # NO ROTATION NEEDED NOW
024742,001046:
024743,001047: 24,3324 00006 EXTEND # TIME SAVING A+B CALCULATION
024744,001048: 24,3325 73335 MP SIN22.5
024745,001049: 24,3326 55522 TS TERMB # US.SIN(22.5)
024746,001050: 24,3327 31516 CAE URGENCYR
024747,001051: 24,3330 00006 EXTEND
024748,001052: 24,3331 73334 MP COS22.5
024749,001053: 24,3332 55521 TS TERMA # UR.COS(22.5)
024750,001054: 24,3333 13171 TCF A-B/ONLY
024751,001055: 24,3334 35441 COS22.5 DEC 0.92388 # COSINE OF 22.5 DEGREES
024752,001056: 24,3335 14176 SIN22.5 DEC 0.38268 # SINE OF 22.5 DEGREES
024753,001057: 24,3336 62575 -TAN22.5 DEC -.41421 # NEGATIVE OF TANGENT OF 22.5 DEGREES
024754,001058:
024755,001059: 24,3337 31521 NEGBURG CAE TERMA # A URGENCY TEST
024756,001060: 24,3340 00006 EXTEND
024757,001061: 24,3341 63367 BZMF NEGANEGB
024758,001062:
024759,001063: 24,3342 31517 POSANEGB CAE A+B
024760,001064: 24,3343 00006 EXTEND
024761,001065: 24,3344 63441 BZMF 2/4JET+Q
024762,001066:
024763,001067: 24,3345 31654 MINUSV CAE .5ACCMNV
024764,001068: 24,3346 55650 TS .5ACCMNE
024765,001069: 24,3347 41515 CS URGENCYQ # 2 JET OPT/MAND TEST: -V AXIS
024766,001070: 24,3350 61516 AD URGENCYR
024767,001071: 24,3351 10000 CCS A
024768,001072: 24,3352 63524 AD NEGURGVM
024769,001073:
![]() |
Page 582 |
024771,001075: 24,3353 13355 TCF +2
024772,001076: 24,3354 63524 AD NEGURGVM
024773,001077: 24,3355 00006 EXTEND
024774,001078: 24,3356 63362 BZMF 2JETS-V
024775,001079:
024776,001080: 24,3357 03466 2JETSM-V TC VXFORM
024777,001081: 24,3360 37657 2-V.RATE CAF ONE
024778,001082: 24,3361 13460 TCF POLTYPE # GO FIND BEST POLICY
024779,001083:
024780,001084: 24,3362 11670 2JETS-V CCS VMANDACC # ASCENT 2-JET MANDATORY OVER-RIDE TEST
024781,001085: 24,3363 13357 TCF 2JETSM-V
024782,001086: 24,3364 03466 TC VXFORM
024783,001087: 24,3365 37656 CAF TWO
024784,001088: 24,3366 13460 TCF POLTYPE # GO FIND BEST POLICY
024785,001089:
024786,001090: 24,3367 31520 NEGANEGB CAE A-B
024787,001091: 24,3370 00006 EXTEND
024788,001092: 24,3371 63414 BZMF 2/4JET+R
024789,001093:
024790,001094: 24,3372 31653 PLUSU CAE .5ACCMNU
024791,001095: 24,3373 55650 TS .5ACCMNE
024792,001096: 24,3374 31515 CAE URGENCYQ # 2 JET OPT/MAND TEST: +U AXIS
024793,001097: 24,3375 61516 AD URGENCYR
024794,001098: 24,3376 10000 CCS A
024795,001099: 24,3377 63524 AD NEGURGUM
024796,001100: 24,3400 13402 TCF +2
024797,001101: 24,3401 63524 AD NEGURGUM
024798,001102: 24,3402 00006 EXTEND
024799,001103: 24,3403 63407 BZMF 2JETS+U
024800,001104:
024801,001105: 24,3404 03474 2JETSM+U TC UXFORM
024802,001106: 24,3405 36165 2+U.RATE CAF THREE
024803,001107: 24,3406 13460 TCF POLTYPE # GO FIND BEST POLICY
024804,001108:
024805,001109: 24,3407 11667 2JETS+U CCS UMANDACC # ASCENT 2-JET MANDATORY OVER-RIDE TEST
024806,001110: 24,3410 13404 TCF 2JETSM+U
024807,001111: 24,3411 03474 TC UXFORM
024808,001112: 24,3412 37655 CAF FOUR
024809,001113: 24,3413 13460 TCF POLTYPE # GO FIND BEST POLICY
024810,001114:
024811,001115: 24,3414 00006 2/4JET+R EXTEND
024812,001116: 24,3415 31414 DCA ER
024813,001117: 24,3416 53412 DXCH E
024814,001118: 24,3417 31410 CAE EDOT(R)
024815,001119: 24,3420 55407 TS EDOT
024816,001120: 24,3421 31652 CAE .5ACCMNR
024817,001121: 24,3422 55650 TS .5ACCMNE
024818,001122: 24,3423 33524 CAF URM # 2/4 JET URGENCY TEST +R AXIS
024819,001123: 24,3424 61516 AD URGENCYR
024820,001124: 24,3425 00006 EXTEND
024821,001125:
![]() |
Page 583 |
024823,001127: 24,3426 63433 BZMF 2JETS+R
024824,001128:
024825,001129: 24,3427 31446 4JETS+R CAE 1/2JTSR # MOVE 1/NJETAC UNMODIFIED
024826,001130: 24,3430 55471 TS 1/NJETAC
024827,001131: 24,3431 37664 CAF FIVE
024828,001132: 24,3432 13460 TCF POLTYPE # GO FIND BEST POLICY
024829,001133:
024830,001134: 24,3433 11666 2JETS+R CCS RMANDACC # ASCENT 4-JET OVER-RIDE TEST
024831,001135: 24,3434 13427 TCF 4JETS+R
024832,001136: 24,3435 31446 CAE 1/2JTSR
024833,001137: 24,3436 55471 TS 1/NJETAC
024834,001138: 24,3437 36162 CAF SIX
024835,001139: 24,3440 13460 TCF POLTYPE # GO FIND BEST POLICY
024836,001140:
024837,001141: 24,3441 31651 2/4JET+Q CAE .5ACCMNQ
024838,001142: 24,3442 55650 TS .5ACCMNE
024839,001143: 24,3443 33524 CAF UQM # 2/4 JET URGENCY TEST: + Q AXIS
024840,001144: 24,3444 61515 AD URGENCYQ
024841,001145: 24,3445 00006 EXTEND
024842,001146: 24,3446 63455 BZMF 2JETS+Q +2 # (FIRST TWO INSTRUCTIONS UNNECESSARY)
024843,001147:
024844,001148: 24,3447 31445 4JETS+Q CAE 1/2JTSQ # MOVE 1/NJETAC UNMODIFIED
024845,001149: 24,3450 55471 TS 1/NJETAC
024846,001150: 24,3451 37663 CAF SEVEN
024847,001151: 24,3452 13460 TCF POLTYPE # GO FIND BEST POLICY
024848,001152:
024849,001153: 24,3453 11665 2JETS+Q CCS QMANDACC # ASCENT 4-JET OVER-RIDE TEST
024850,001154: 24,3454 13447 TCF 4JETS+Q
024851,001155: 24,3455 31445 CAE 1/2JTSQ
024852,001156: 24,3456 55471 TS 1/NJETAC
024853,001157: 24,3457 37654 CAF EIGHT
024854,001158:
024855,001159: 24,3460 55523 POLTYPE TS POLRELOC
024856,001160: 24,3461 00006 EXTEND
024857,001161: 24,3462 33465 DCA POLADR
024858,001162: 24,3463 52006 DTCB
024859,001163: 24,3464 02216 52006 POLADR 2CADR POLTYPEP
024860,001164:
![]() |
Page 584 |
024862,001166: # SUBROUTINES UXFORM AND VXFORM CALCULATE NEEDED VALUES FOR T-JET LAW
024863,001167: # (THEY GO OFF TO REDUCE RATE, IF NECESSARY, AND THEN DO NOT RETURN)
024864,001168:
024865,001169: 24,3466 31450 VXFORM CAE 1/2JETSV # GET INVERSE OF V-JET ACCELERATION
024866,001170: 24,3467 55471 TS 1/NJETAC
024867,001171: 24,3470 41411 CS EQ # COMPLEMENT FOR TRANSFORMATION
024868,001172: 24,3471 55411 TS EQ
024869,001173: 24,3472 41424 CS EDOTQ
024870,001174: 24,3473 13477 TCF UVXFORM +1
024871,001175: 24,3474 31447 UXFORM CAE 1/2JETSU # SET INVERSE OF U-JET ACCELERATION
024872,001176: 24,3475 55471 TS 1/NJETAC
024873,001177:
024874,001178: 24,3476 31424 UVXFORM CAE EDOTQ # TRANSFORM ANGULAR RATE TO U/V-AXIS
024875,001179: 24,3477 61425 AD EDOTR
024876,001180: 24,3500 00006 EXTEND
024877,001181: 24,3501 73523 MP .707
024878,001182: 24,3502 55407 TS EDOT # SAVE FOR REDUCEUV
024879,001183: 24,3503 00006 EXTEND
024880,001184: 24,3504 77655 MP BIT3
024881,001185: 24,3505 00006 EXTEND
024882,001186: 24,3506 13510 BZF +2 # CHECK FOR VALUE BEYOND SCALING RANGE
024883,001187: 24,3507 13672 TCF REDUCEQR # SAME AS REDUCEUV
024884,001188: 24,3510 30001 CAE L
024885,001189: 24,3511 55407 TS EDOT # SAVE RATE SCALED AT PI/16
024886,001190: 24,3512 00006 EXTEND
024887,001191: 24,3513 70000 SQUARE
024888,001192: 24,3514 55412 TS EDOT(2) # SAVE RATE SQUARED SCALED AT PI(2)/2(8)
024889,001193:
024890,001194: 24,3515 31411 CAE EQ # TRANSFORM ANGULAR ERROR TO U/V-AXIS
024891,001195: 24,3516 61413 AD ER
024892,001196: 24,3517 00006 EXTEND
024893,001197: 24,3520 73523 MP .707
024894,001198: 24,3521 55411 TS E # SAVE ERROR SCALED AT PI
024895,001199: 24,3522 00002 TC Q
024896,001200:
024897,001201: 24,3523 26501 .707 DEC 0.70711 # SQRT(1/2)
024898,001202:
024899,001203:
024900,001204:
024901,001205: 24,3524 71777 NEGURGUM DEC -.18750
024902,001206: 24,3525 24,3524 NEGURGVM EQUALS NEGURGUM
024903,001207: 24,3525 24,3524 UQM EQUALS NEGURGUM
024904,001208: 24,3525 24,3524 URM EQUALS NEGURGUM
024905,001209:
024906,001210:
![]() |
Page 585 |
024908,001212: # GENERALIZED URGENCY SUBROUTINE FOR USE ON ALL PILOT AXES (P,Q,R)...
024909,001213:
024910,001214: # DEPENDING ON THE AXIS PROBLEM, EDOTP,EDOTQ,EDOTR IS EXPECTED TO ARRIVE IN A AND 1/2JTSP,1/2JTSQ,1/2JTSR IN
024911,001215: # 1/NJETAC. NOTE THAT THE Q,R-AXIS PROBLEM IS EXPECTED TO DO THE R-AXIS PROBLEM FIRST (FOR EFFICIENT USE OF
024912,001216: # ERASABLE) AND THE Q,R-AXIS PROBLEM DOES NOT USE TPSIG.
024913,001217: # (THIS ROUTINE SHOULD BE IN THE FIXED BANK OF THE Q,R-AXIS PROBLEM SINCE IT IS CALLED ONLY ONCE FROM THE P-AXIS.)
024914,001218:
024915,001219: 24,3525 55407 URGROUTN TS EDOT # SAVE FOR REDUCEQR
024916,001220: 24,3526 00006 EXTEND # EXPECT EDOT IN A SCALED AT PI/4 RAD/SEC
024917,001221: 24,3527 77655 MP BIT3 # TRY TO RESCALE TO PI/16 RADIANS/SECOND
024918,001222: 24,3530 00006 EXTEND
024919,001223: 24,3531 13533 BZF +2 # OVERFLOW CHECK ON NEW SCALING
024920,001224: 24,3532 13666 TCF REDUCERA # DISTINGUISH BETWEEN P AND Q,R
024921,001225: 24,3533 10001 +2 CCS L # INSURE NON-ZERO EDOT (TPSIG FLAG)
024922,001226: 24,3534 67656 AD TWO
024923,001227: 24,3535 13537 TCF +2
024924,001228: 24,3536 40000 COM
024925,001229: 24,3537 67667 +2 AD NEG1
024926,001230: 24,3540 55440 TS TPSIG # (FOR P-AXIS PROBLEM ONLY)
024927,001231: 24,3541 55407 TS EDOT # SAVE FOR T-JET LAW SCALED AT PI/16
024928,001232:
024929,001233: 24,3542 00006 EXTEND
024930,001234: 24,3543 70000 SQUARE
024931,001235: 24,3544 55412 TS EDOT(2) # SCALED AT PI(2)/2(8) RAD(2)/SEC(2)
024932,001236:
024933,001237: 24,3545 00006 EXTEND # 1/2JTSP,1/2JTSQ,1/2JTSR IN 1/NJETAC
024934,001238: 24,3546 71471 MP 1/NJETAC # SCALED AT 2(8)/PI SEC(2)/RAD
024935,001239: 24,3547 00006 EXTEND
024936,001240: 24,3550 61415 SU DB # DEADBAND SCALED AT PI RADIANS
024937,001241: 24,3551 55451 TS FPQR # .5(1/ACC)EDOT(2) - DB SCALED AT PI RADS
024938,001242:
024939,001243: 24,3552 31412 CAE EDOT(2) # SCALED AT PI(2)/2(8) RAD(2)/SEC(2)
024940,001244: 24,3553 00006 EXTEND
024941,001245: 24,3554 71650 MP .5ACCMNE # .5(1/ACCMIN) AT 2(8)/PI SEC(2)/RAD
024942,001246: 24,3555 61415 AD DB # SCALED AT PI RADIANS
024943,001247: 24,3556 55467 TS FPQRMIN # .5(1/ACCMIN)EDOT(2) + DB AT PI RADIANS
024944,001248:
024945,001249: 24,3557 11407 CCS EDOT # EDOT TEST ON SIGN
024946,001250: 24,3560 31411 CAE E # P,Q,R-AXIS ERROR SCALED AT PI RADIANS
024947,001251: 24,3561 13563 TCF +2
024948,001252: 24,3562 13602 TCF EDOTNEG
024949,001253: 24,3563 27451 +2 ADS FPQR # E + .5(1/ACC)EDOT(2) - DB AT PI RADIANS
024950,001254:
024951,001255: 24,3564 11407 FTEST CCS EDOT # EDOT GUARANTEED NOT +0 OR -0
024952,001256: 24,3565 11451 CCS FPQR # FPQR GUARANTEED NOT +0
024953,001257: 24,3566 13573 TCF TPSIGCHG # EDOT.G.+0, FPQR.G.+0
024954,001258: 24,3567 11451 CCS FPQR # EDOT.L.-0
024955,001259: 24,3570 13606 TCF FPMINCAL # EDOT.L.-0,FPQR.G.+0/EDOT.G.+0,FPQR.L.-0
024956,001260: 24,3571 13606 TCF FPMINCAL # EDOT.G.+0, FPQR.E.-0 (FROM FIRST CCS)
024957,001261: 24,3572 13573 TCF TPSIGCHG # EDOT.L.-0, FPQR.L.-0
024958,001262:
![]() |
Page 586 |
024960,001264: 24,3573 41440 TPSIGCHG CS TPSIG # EDOT.L.-0, FPQR.E.-0 (FROM 2ND CCS)
024961,001265: 24,3574 55440 TS TPSIG # (SIGN OF P-AXIS JETS IF NEEDED)
024962,001266: 24,3575 31407 CAE EDOT # SCALED AT PI/16 RADIANS/SECOND
024963,001267: 24,3576 00006 EXTEND
024964,001268: 24,3577 77645 MP BIT11 # SCALE TO PI RADIANS/SECOND
024965,001269: 24,3600 61451 AD FPQR # (IMPLICIT MULT OF FPQR BY 1/SEC)
024966,001270: 24,3601 13626 TCF URGMULT # THIS URGENCY = (1/ACC)(FPQR+EDOT)
024967,001271:
024968,001272: 24,3602 41451 EDOTNEG CS FPQR # SCALED AT PI RADIANS
024969,001273: 24,3603 61411 AD E
024970,001274: 24,3604 55451 TS FPQR # E - .5(1/ACC)EDOT(2) + DB
024971,001275: 24,3605 13564 TCF FTEST
024972,001276:
024973,001277: 24,3606 11451 FPMINCAL CCS FPQR # NECESSARY RETEST ON FPQR
024974,001278: 24,3607 41467 CS FPQRMIN
024975,001279: 24,3610 13612 TCF +2 # E - .5(1/ACCMIN)EDOT(2) - DB
024976,001280: 24,3611 31467 CAE FPQRMIN
024977,001281: 24,3612 61411 AD E # E + .5(1/ACCMIN)EDOT(2) + DB
024978,001282: 24,3613 55467 TS FPQRMIN # (SCALED AT PI RADIANS)
024979,001283:
024980,001284: 24,3614 11407 CCS EDOT # EDOT GUARANTEED NOT +0 OR -0
024981,001285: 24,3615 11467 CCS FPQRMIN # FPQRMIN GUARANTEED NOT +0 (CALL IT F)
024982,001286: 24,3616 13623 TCF ZEROURG # EDOT.G.+0, F.G.+0
024983,001287: 24,3617 11467 CCS FPQRMIN # EDOT.L.-0
024984,001288: 24,3620 13625 TCF NORMURG # EDOT.L.-0, F.G.+0 / EDOT.G.+0, F.L.-0
024985,001289: 24,3621 13625 TCF NORMURG # EDOT.G.+0, F.E.-0 (FROM FIRST CCS)
024986,001290: 24,3622 13623 TCF ZEROURG # EDOT.L.-0, F.L.-0
024987,001291: 24,3623 37665 ZEROURG CAF ZERO # EDOT.L.-0, F.E.-0 (FROM SECOND CCS)
024988,001292: 24,3624 13642 TCF URGSTORE # THIS URGENCY ZERO (IN COAST REGIAN)
024989,001293:
024990,001294: 24,3625 31467 NORMURG CAE FPQRMIN # THIS URGENCY FPQRMIN(1/ACC)
024991,001295: 24,3626 00006 URGMULT EXTEND
024992,001296: 24,3627 71471 MP 1/NJETAC
024993,001297: 24,3630 00006 EXTEND # SCALE FROM 2(9) TO 2(4) SECONDS
024994,001298: 24,3631 77652 MP BIT6 # 1/NJETAC = 1/2JETAC, WANT 1/1JETAC
024995,001299: 24,3632 00006 EXTEND
024996,001300: 24,3633 13641 BZF URGTOA
024997,001301: 24,3634 10000 CCS A
024998,001302: 24,3635 37637 CA POSMAX
024999,001303: 24,3636 13642 TCF URGSTORE
025000,001304: 24,3637 47637 CS POSMAX
025001,001305: 24,3640 13642 TCF URGSTORE
025002,001306: 24,3641 30001 URGTOA CA L
025003,001307: 24,3642 00002 URGSTORE TC Q # *** RETURN ***
025004,001308:
![]() |
Page 587 |
025006,001310: # GENERALIZED T-JET LAW SUBROUTINE FOR USE BY BOTH THE P-AXIS AND Q,R-AXIS PROBLEMS (ONCE EACH)...
025007,001311:
025008,001312: # DEPENDING ON THE AXIS ABOUT WHICH ROTATION IS DEEMED MOST URGENT, 1/JACC FOR THAT AXIS IS EXPECTED IN 1/NJETAC
025009,001313: # AND THE CORRESPONDING VALUES FOR E, EDOT, AND EDOT(2) ARE ALSO EXPECTED TO BE SET UP IN ADVANCE.
025010,001314: # (THIS ROUTINE MAY RESIDE IN THE FIXED BANK OF EITHER THE P-AXIS OR Q,R-AXIS PROBLEM.)
025011,001315:
025012,001316: # ***** IMPORTANT NOTICE *****
025013,001317:
025014,001318: # NOTE THAT TJETLOC IS THE LOCAL ENTRY POINT FOR THIS PROGRAM AND TJETLAW IS THE CROSS-BANK ENTRY. SEE BELOW
025015,001319: # FOR THE TWO CALLING SEQUENCES FOR OPTIMAL USE AND BE ASSURED THAT FOR EITHER CASE ISWRETRN MUST BE USED AND
025016,001320: # RUPTREG3 CONTAINS THE EVENTUAL RETURN ADDRESS.
025017,001321:
025018,001322: # LOCAL CALL:
025019,001323: # TC TJETLOC
025020,001324: # TCF NO ROTATION JETS
025021,001325: # TS TIME CALCULATED
025022,001326:
025023,001327: # CROSS-BANK CALL:
025024,001328: # CAF TJETLAWCADR
025025,001329: # TC ISWCALL
025026,001330: # TCF NO ROTATION JETS
025027,001331: # TS TIME CALCULATED
025028,001332:
025029,001333:
025030,001334:
025031,001335: # ***** VERY IMPORTANT NOTICE *****
025032,001336:
025033,001337: # SINCE THE Q,R-AXES SWITCHED FIXED BANK BECAME VERY FULL (DUE TO THE ADDITION OF RATE-HOLD MODE AND A BETTER
025034,001338: # RCS-GTS INTERFACE), THE LOCAL CALL AND LOCAL ENTRY POINT FOR THE T-JET LAW HAVE BEEN DELETED AS OF REVISION 7
025035,001339: # OF AURORA (BY JON ADDELSTON 10/24/66).
025036,001340:
025037,001341:
025038,001342:
025039,001343: # FOR CONVENIENCE, WE INCLUDE HERE THE CALL FROM THE Q,R-AXIS PROBLEM:
025040,001344:
025041,001345: 24,3643 BANK 24
025042,001346: 24,3643 51644 QR-JETLW CADR TJET-LAW # CADR OF Q,R-ENTRY TO TJETLAW SUBROUTINE
025043,001347:
025044,001348: 24,3644 04177 TJET-LAW TC T6JOBCHK # CHECK T6 CLOCK RUPT BEFORE SUBROUTINE
025045,001349:
025046,001350: 24,3645 33643 CAF QR-JETLW # T-JETLAW CALLING SEQUENCE (LIKE P-AXIS)
025047,001351: 24,3646 04162 TC ISWCALL # (IN INTERBANK COMMUNICATION LOG SECTION)
025048,001352: 24,3647 12504 TCF XTRANS # GO TO XTRANS SINCE NO ROTATION IS USED
025049,001353: 24,3650 55626 TS TQR # SAVE CALCULATED TIME FOR THE TORQUE
025050,001354: 24,3651 12554 TCF TORQUEV # VECTOR RECONSTRUCTION PROBLEM
025051,001355:
025052,001356:
![]() |
Note: the following seems to be fully assembled code injected as comment. See the VERY IMPORTANT NOTICE above . |
025054,001358: # 24,1000 0 0006 1 TJETLOC EXTEND LOCAL ENTRY FAKES CROSS-BANK IN SMALL DT
025055,001359:
![]() |
Page 588 |
025057,001361: # 24,1001 22 076 0 QXCH RUPTREG3 SAVE RETURN WHERE ISWCALL DOES
025058,001362: # 24,1002 3 4174 1 CAF ISWRETRN +3 GET CADR OF RUPTREG3 FROM TC INSTRUCTION
025059,001363: # 24,1003 54 002 1 TS Q SO TC Q GOES TO RUPTREG3 FOR RETURN
025060,001364:
025061,001365: 25,2000 BANK 25
025062,001366:
025063,001367: 25,2000 41407 TJETLAW CS EDOT # TEST EDOT SIGN
025064,001368: 25,2001 00006 EXTEND
025065,001369: 25,2002 62006 BZMF +4
025066,001370: 25,2003 55407 TS EDOT # SIGNS OF E AND EDOT CHANGED IF EDOT NEG
025067,001371: 25,2004 41411 CS E # TO CONSIDER FUNCTIONS IN UPPER HALF OF
025068,001372: 25,2005 55411 TS E # THE E,EDOT PHASE PLANE
025069,001373:
025070,001374: 25,2006 31412 CAE EDOT(2) # SCALED AT PI(2)/2(8) RAD(2)/SEC(2)
025071,001375: 25,2007 00006 EXTEND # (1/NJETAC HAS BEEN SET FOR N JETS)
025072,001376: 25,2010 71471 MP 1/NJETAC # SCALED AT 2(8)/PI SEC(2)/RAD
025073,001377: 25,2011 00006 EXTEND
025074,001378: 25,2012 77642 MP BIT14 # .5EDOT(2)/NJETACC SCALED AT PI RADIANS
025075,001379: 25,2013 61411 AD E # SCALED AT PI RADIANS (ERROR)
025076,001380: 25,2014 00006 EXTEND
025077,001381: 25,2015 61415 SU DB # SCALED AT PI RADIANS (DEADBAND)
025078,001382: 25,2016 55454 TS HDAP # E + .5EDOT(2)/NJETACC - DB
025079,001383:
025080,001384: 25,2017 00006 EXTEND
025081,001385: 25,2020 62070 BZMF NEGHDAP
025082,001386:
025083,001387: 25,2021 31407 CAE EDOT # SCALED AT PI/16 RAD/SEC (RATE)
025084,001388: 25,2022 00006 EXTEND
025085,001389: 25,2023 71471 MP 1/NJETAC # SCALED AT 2(8)/PI SEC(2)/RAD (ACC) (-1)
025086,001390: 25,2024 55521 TS TERMA # SCALED AT 2(4) SEC (CNTRL SMPL PERIOD)
025087,001391: 25,2025 62205 AD NEGCSP # EDOT/NJETACC - CSP SCALED AT 16 SECONDS
025088,001392:
025089,001393: 25,2026 00006 EXTEND
025090,001394: 25,2027 62032 BZMF +3
025091,001395:
025092,001396: 25,2030 37642 MAXTJET CAF BIT14 # (1/2) IS LIKE POSMAX AT THIS SCALING
025093,001397: 25,2031 12057 TCF NORMRETN # (OVERFLOW IS THUS PREVENTED)
025094,001398:
025095,001399: 25,2032 41454 CS HDAP # -DBMINIMP + E + EDOT(2)/NJETACC - DB
025096,001400: 25,2033 61647 AD MINIMPDB # SCALED AT PI RADIANS
025097,001401: 25,2034 00006 EXTEND
025098,001402: 25,2035 62116 BZMF MAINBRCH
025099,001403:
025100,001404: 25,2036 31521 CAE TERMA # EDOT/NJETACC - .5TJMIN SCALED AT 16 SECS
025101,001405: 25,2037 62211 AD -20MS # - 20 MS SCALED AT 16.
025102,001406: 25,2040 00006 EXTEND
025103,001407: 25,2041 62044 BZMF TJMIN
025104,001408:
025105,001409: 25,2042 62210 AD 23.75MS # WE GET TERMA + 3.75 MS.
025106,001410: 25,2043 12164 TCF TJETSCAL
025107,001411:
![]() |
Page 589 |
025109,001413: 25,2044 42067 TJMIN CS PAXCALL # WE KNOW WE DO P AXIS SINCE WE HAVE RUPT-
025110,001414: 25,2045 60076 AD RUPTREG3 # REG3 = T-JETLAW +3(Q-AXIS CALL NOT AT
025111,001415: 25,2046 00006 EXTEND # SAME LOCATION-- WE HOPE - AND INSURE.).
025112,001416: 25,2047 12061 BZF WEDOP
025113,001417: 25,2050 31620 CAE NO.QJETS # NO. OF Q JETS ON
025114,001418: 25,2051 00006 EXTEND
025115,001419: 25,2052 12063 BZF WEDOR
025116,001420: 25,2053 31621 CAE NO.RJETS # NO. OF R JETS ON
025117,001421: 25,2054 00006 EXTEND
025118,001422: 25,2055 12065 BZF WEDOQ
025119,001423: 25,2056 32206 DOTJMIN CAF +TJMINT6
025120,001424: 25,2057 24076 NORMRETN INCR RUPTREG3 # *** RETURN +1 ***
025121,001425: 25,2060 00002 TC Q # BACK TO ISWRETRN
025122,001426: 25,2061 55416 WEDOP TS OMEGAP
025123,001427: 25,2062 12056 TCF DOTJMIN
025124,001428: 25,2063 55421 WEDOR TS OMEGAR
025125,001429: 25,2064 12056 TCF DOTJMIN
025126,001430: 25,2065 55417 WEDOQ TS OMEGAQ
025127,001431: 25,2066 12056 TCF DOTJMIN
025128,001432: 25,2067 02666 PAXCALL GENADR T-JETLAW +3
025129,001433: 25,2070 31412 NEGHDAP CAE EDOT(2) # SCALED AT PI(2)/2(8) RAD(2)/SEC(2)
025130,001434: 25,2071 00006 EXTEND
025131,001435: 25,2072 71650 MP .5ACCMNE # .5(1/ACCMIN) AT 2(8)/PI SEC(2)/RAD
025132,001436: 25,2073 61411 AD E # SCALED AT PI RADIANS (ERROR)
025133,001437: 25,2074 61415 AD DB # SCALED AT PI RADIANS (DEADBAND)
025134,001438: 25,2075 61646 AD DBMINIMP
025135,001439: 25,2076 00006 EXTEND
025136,001440: 25,2077 62101 BZMF +2
025137,001441: 25,2100 00002 TC Q # *** RETURN *** (NO JETS)
025138,001442:
025139,001443: 25,2101 42212 +2 CS MAXRATE # 10 DEG/SEC SCALED AT PI/16 RAD/SEC
025140,001444: 25,2102 61407 AD EDOT # EDOT - MAXRATE
025141,001445: 25,2103 00006 EXTEND
025142,001446: 25,2104 62106 BZMF +2
025143,001447: 25,2105 00002 TC Q # *** RETURN *** (NO JETS)
025144,001448:
025145,001449: 25,2106 41407 +2 CS EDOT # SCALED AT PI/16 RAD/SEC (RATE)
025146,001450: 25,2107 00006 EXTEND
025147,001451: 25,2110 71471 MP 1/NJETAC # SCALED AT 2(8)/PI SEC(2)/RAD (ACC)(-1)
025148,001452: 25,2111 55521 TS TERMA # -EDOT/NJETACC SCALED AT 2(4) SECONDS
025149,001453:
025150,001454: 25,2112 41454 CS HDAP # - E + .5EDOT(2)/NJETACC + DB
025151,001455: 25,2113 61411 AD E
025152,001456: 25,2114 61411 AD E # TWICE ERROR NEGATES E OF HDAP(OLD)
025153,001457: 25,2115 61647 AD MINIMPDB
025154,001458: 25,2116 55454 MAINBRCH TS HDAP # -HDAP(OLD) + 2E + DBMINIMP AT PI RADS
025155,001459:
025156,001460: 25,2117 31471 CAE 1/NJETAC # SCALED AT 2(8)/PI SEC(2)/RAD
025157,001461: 25,2120 00006 EXTEND
025158,001462: 25,2121 77642 MP BIT14 # (1/2)(1/NJETAC)
025159,001463:
![]() |
Page 590 |
025161,001465: 25,2122 61650 AD .5ACCMNE
025162,001466: 25,2123 55456 TS DENOM # .5(1/NJETACC) + .5(1/ACCMIN) AT 2(8)/PI
025163,001467:
025164,001468: 25,2124 00006 EXTEND
025165,001469: 25,2125 72213 MP MAXRATE2 # SCALED AT PI(2)/2(8) RAD(2)/SEC(2)
025166,001470: 25,2126 61454 AD HDAP # DENOM.MAXRATE(2) + HDAP AT PI RADIANS
025167,001471: 25,2127 00006 EXTEND
025168,001472: 25,2130 62170 BZMF NOROOT
025169,001473:
025170,001474: 25,2131 31454 CAE HDAP # SCALED AT PI RADIANS
025171,001475: 25,2132 00006 EXTEND
025172,001476: 25,2133 11456 DV DENOM # SCALED AT 2(8)/PI SEC(2)/RAD(2)
025173,001477: 25,2134 00006 EXTEND
025174,001478: 25,2135 71471 MP 1/NJETAC
025175,001479: 25,2136 00006 EXTEND
025176,001480: 25,2137 71471 MP 1/NJETAC
025177,001481: 25,2140 55522 TS TERMB # -(HDAP/DENOM)(1/NJETACC)(2) AT 2(8) SECS
025178,001482:
025179,001483: 25,2141 32205 CAF NEGCSP # SCALED AT 2(4) SECONDS
025180,001484: 25,2142 61521 AD TERMA
025181,001485: 25,2143 00006 EXTEND
025182,001486: 25,2144 70000 SQUARE # SCALED AT 2(8) SECONDS
025183,001487: 25,2145 61522 AD TERMB
025184,001488: 25,2146 00006 EXTEND # (TERMA - CSP)(2) + TERMB
025185,001489: 25,2147 62030 BZMF MAXTJET
025186,001490: 25,2150 32207 CAF -TJMIN16
025187,001491: 25,2151 61521 AD TERMA # TERMA - TJMIN SCALED AT 2(4) SECONDS
025188,001492: 25,2152 00006 EXTEND
025189,001493: 25,2153 62175 BZMF MAYNOJET
025190,001494:
025191,001495: 25,2154 00006 PREROOT EXTEND # MUST SAVE Q .
025192,001496:
025193,001497: 25,2155 23517 QXCH A+B
025194,001498: 25,2156 04177 TC T6JOBCHK
025195,001499: 25,2157 41522 CS TERMB
025196,001500: 25,2160 04275 TC SPROOT # SQRT(-TERMB) SCALED AT 2(4) SECONDS
025197,001501:
025198,001502: 25,2161 00006 EXTEND # MUST RESTORE OLD Q AFTER SPROOT
025199,001503: 25,2162 23517 QXCH A+B
025200,001504:
025201,001505: 25,2163 61521 TJSUM AD TERMA # TERMA + SQRT(-TERMB)
025202,001506: 25,2164 60000 TJETSCAL DOUBLE # NOW SCALED AT 2(3) SECONDS
025203,001507: 25,2165 00006 EXTEND
025204,001508: 25,2166 72215 MP 25/32QR # SCALED T O 16/25 2(4) SECONDS.
025205,001509: 25,2167 12057 TCF NORMRETN # *** RETURN +1 ***
025206,001510:
025207,001511: 25,2170 32212 NOROOT CAF MAXRATE
025208,001512: 25,2171 62214 AD .6DEG/SC # MAXRATE + DEL SCALED AT PI/16 RAD/SEC
025209,001513: 25,2172 00006 EXTEND
025210,001514: 25,2173 71471 MP 1/NJETAC # SCALED AT 2(8)/PI SEC(2)/RAD
025211,001515:
![]() |
Page 591 |
025213,001517: 25,2174 12163 TCF TJSUM # SCALED AT 2(4) RADIANS
025214,001518:
025215,001519: 25,2175 32207 MAYNOJET CAF -TJMIN16
025216,001520: 25,2176 61521 AD TERMA # TERMA - TJMIN SCALED AT 2(4) SECONDS
025217,001521: 25,2177 00006 EXTEND
025218,001522: 25,2200 70000 SQUARE # SCALED AT 2(8) SEC(2)
025219,001523: 25,2201 61522 AD TERMB
025220,001524: 25,2202 00006 EXTEND
025221,001525: 25,2203 62154 BZMF PREROOT # (TERMA - TJMIN)(2) + TERMB AT 2(8)
025222,001526: 25,2204 00002 TC Q # *** RETURN *** (NO JETS)
025223,001527:
025224,001528: 25,2205 77631 NEGCSP DEC -.00625 # 100 MS SCALED AT 2(4) SECONDS
025225,001529: 25,2206 00014 +TJMINT6 DEC +.00073
025226,001530: 25,2207 77767 -TJMIN16 DEC -.00047
025227,001531: 25,2210 25,2207 -TJMINQR EQUALS -TJMIN16
025228,001532: 25,2210 00030 23.75MS DEC 0.00148 # 23.75 MS SCALED AT 16 SECONDS.
025229,001533: 25,2211 77753 -20MS DEC -.00125 # - 20 MS SCALED AT 16 SECONDS.
025230,001534: 25,2212 34344 MAXRATE DEC 0.88889 # 10 DEGREES/SECOND SCALED AT PI/16
025231,001535: 25,2213 31221 MAXRATE2 DEC 0.79012 # 100 DEG(2)/SEC(2) SCALED AT PI(2)/2(8)
025232,001536: 25,2214 01552 .6DEG/SC DEC 0.05333 # 6/10 DEGREES/SECOND SCALED AT PI/16
025233,001537: 25,2215 31000 25/32QR DEC 0.78125
025234,001538:
![]() |
Page 592 |
025236,001540: # THESE TWO SUBROUTINES TRANSFORM EDOTQ,EDOTR INTO THE U/V-AXIS (RESPECTIVELY) FOR THE RATE COMMAND MODE (ONLY).
025237,001541: # VALUE IS STORED IN EDOTGEN SCALED AT PI/4 RADIANS/SECOND.
025238,001542:
025239,001543: 24,3652 BANK 24
025240,001544:
025241,001545: 24,3652 31447 EDOTUGEN CAE 1/2JETSU # FOR U-AXIS TRANSFORMATION
025242,001546: 24,3653 55471 TS 1/NJETAC
025243,001547: 24,3654 31424 CAE EDOTQ
025244,001548: 24,3655 13661 TCF +4
025245,001549: 24,3656 31450 EDOTVGEN CAE 1/2JETSV # FOR V-AXIS TRANSFORMATION
025246,001550: 24,3657 55471 TS 1/NJETAC
025247,001551: 24,3660 41424 CS EDOTQ
025248,001552: 24,3661 61425 AD EDOTR
025249,001553: 24,3662 00006 EXTEND
025250,001554: 24,3663 73523 MP .707
025251,001555: 24,3664 55443 TS RATEDIF
025252,001556: 24,3665 00002 TC Q
025253,001557:
025254,001558:
025255,001559:
025256,001560: # THESE PROGRAMS REDUCE THE RATE ERROR TO 10.6 DEGREES/SECOND.
025257,001561:
025258,001562: 24,3666 41407 REDUCERA CS EDOT # TEST FOR P-AXIS PROBLEM
025259,001563: 24,3667 61423 AD EDOTP # EXACT MATCH MEANS P-AXIS
025260,001564: 24,3670 00006 EXTEND
025261,001565: 24,3671 13703 BZF REDUCEP # P-AXIS SUM IS ALWAYS MINUS ZERO
025262,001566:
025263,001567: 24,3672 03715 REDUCEQR TC REDUCESC # GET SHRINK FACTOR
025264,001568: 24,3673 00006 EXTEND # SHRINK Q-AXIS COMPONENT
025265,001569: 24,3674 71424 MP EDOTQ
025266,001570: 24,3675 55424 TS QRATEDIF
025267,001571:
025268,001572: 24,3676 31425 CAE EDOTR # SHRINK R-AXIS COMPONENT
025269,001573: 24,3677 00006 EXTEND
025270,001574: 24,3700 71407 MP EDOT
025271,001575: 24,3701 55425 TS RRATEDIF
025272,001576:
025273,001577: 24,3702 12352 TCF OBEYQRRC
025274,001578:
025275,001579: 24,3703 03715 REDUCEP TC REDUCESC # GET SHRINK FACTOR
025276,001580: 24,3704 00006 EXTEND # SHRINK P-AXIS COMPONENT
025277,001581: 24,3705 71423 MP EDOTP
025278,001582: 24,3706 55423 TS EDOTP
025279,001583: 24,3707 55440 TS TPSIG
025280,001584:
025281,001585: 24,3710 00006 EXTEND
025282,001586: 24,3711 33714 DCA +2
025283,001587: 24,3712 52006 DTCB
025284,001588: 24,3713 02424 46006 2CADR OBEYRAPE
025285,001589:
![]() |
Page 593 |
025287,001591: 24,3715 33722 REDUCESC CAF 10.6D/S # SCALED AT PI/4
025288,001592: 24,3716 00006 EXTEND
025289,001593: 24,3717 11407 DV EDOT # RESULT SCALED AT 1
025290,001594: 24,3720 55407 TS EDOT # SAVE FACTOR IN EDOT FOR R SHRINKAGE
025291,001595: 24,3721 00002 TC Q # *** RETURN ***
025292,001596:
025293,001597: 24,3722 07313 10.6D/S DEC 0.23111 # 10.6 DEGRESS/SECOND SCALED AT PI/4
025294,001598:
025295,001599:
025296,001600:
025297,001601: 24,3723 ENDDAP24 EQUALS
End of include-file Q,R-AXES_REACTION_CONTROL_SYSTEM_AUTOPILOT.agc. Parent file is MAIN.agc