473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source code files have been transcribed or otherwise adapted from
digitized images of a hardcopy from the private collection of
Don Eyles. The digitization was performed by archive.org, and
transcription was performed by a team of volunteers.
Note that the page images
presented online are of reduced quality, and that the original
high-quality images are available at archive.org.
Report any conversion errors or legibility problems in page images to info@sandroid.org.
Notations on the program listing read, in part:
473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.
|
017699,000002: ## Copyright: Public domain.
017700,000003: ## Filename: LEM_FLIGHT_CONTROL_SYSTEM_TEST.agc
017701,000004: ## Purpose: Part of the source code for Aurora (revision 12).
017702,000005: ## Assembler: yaYUL
017703,000006: ## Contact: Ron Burkey <info@sandroid.org>.
017704,000007: ## Website: https://www.ibiblio.org/apollo.
017705,000008: ## Pages: 431-443
017706,000009: ## Mod history: 2016-09-20 JL Created.
017707,000010: ## 2016-09-27 MAS Filled out.
017708,000011: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
017709,000012: ## and fixed the errors found.
017710,000013: ## 2017-06-05 MAS Made comment corrections found during Sunburst 37
017711,000014: ## transcription.
017712,000015:
017713,000016:
017714,000017: ## This source code has been transcribed or otherwise adapted from
017715,000018: ## digitized images of a hardcopy from the private collection of
017716,000019: ## Don Eyles. The digitization was performed by archive.org.
017717,000020:
017718,000021: ## Notations on the hardcopy document read, in part:
017719,000022:
017720,000023: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
017721,000024: ## NOV 10, 1966
017722,000025:
017723,000026: ## [Note that this is the date the hardcopy was made, not the
017724,000027: ## date of the program revision or the assembly.]
017725,000028:
017726,000029: ## The scan images (with suitable reduction in storage size and consequent
017727,000030: ## reduction in image quality) are available online at
017728,000031: ## https://www.ibiblio.org/apollo.
017729,000032: ## The original high-quality digital images are available at archive.org:
017730,000033: ## https://archive.org/details/aurora00dapg
017731,000034:
|
|
Page 431 |
017733,000036: 06,2000 BANK 6
017734,000037: 06,2000 E4,1407 EBANK= JETSTEP
017735,000038:
017736,000039: # LEM FCS TEST ENTRY AND INITIALIZATION JOB.
017737,000040:
017738,000041: # THIS JOB INITIALIZES THE ERASABLE TABLES FOR THE FCS TEST AND PUTS THE FOLLOWING PROGRAMS UNDER
017739,000042: # WAITLIST CONTROL.
017740,000043: # (1) RCS JET SET TASK
017741,000044: # (2) ENGINE ON - OFF TASK
017742,000045: # (3) DESCENT ENGINE GIMBAL TRIM TASK
017743,000046: # (4) DESCENT ENGINE THROTTLE TASK
017744,000047: # (5) INTERFACE CHANNEL LOOK TASK
017745,000048:
017746,000049:
017747,000050: 06,2000 05317 FCSSTART TC GRABWAIT # SO NOTHING DISRUPTS THE LOAD.
017748,000051: 06,2001 32054 CAF JSTEPADR # THE START OF THE LIST.
017749,000052: 06,2002 10000 FCS3 CCS A
017750,000053: 06,2003 54142 TS MPAC +2
017751,000054: 06,2004 32057 FCS2 CAF V04N01K # DISPLAY PRESENT CONTENTS IN R2.
017752,000055: 06,2005 05332 TC NVSBWAIT
017753,000056: 06,2006 24142 INCR MPAC +2
017754,000057: 06,2007 32055 CAF V21N02K
017755,000058: 06,2010 05332 TC NVSBWAIT # IN CASE IT,S BUSY BUT IT SHOULDN,T BE.
017756,000059: 06,2011 05140 TC ENDIDLE # WHILE LOADING.
017757,000060: 06,2012 02015 TC +3 # V34E. TERMINATE LOAD OF THIS LIST
017758,000061: # SECTION, GO TO NEW SECTION OR TO TEST.
017759,000062: 06,2013 02014 TC +1 # V33E. PRESENT CONTENTS OK, PROCEED TO
017760,000063: # NEXT LOCATION IN LIST.
017761,000064: 06,2014 02004 TC FCS2
017762,000065: 06,2015 32056 CAF V21N30K
017763,000066: 06,2016 05332 TC NVSBWAIT
017764,000067: 06,2017 05140 TC ENDIDLE
017765,000068: 06,2020 04437 TC EJFREE
017766,000069: 06,2021 02024 TC FCSTEST1 # PROCEED TO TEST.
017767,000070: 06,2022 30333 CAE DSPTEM1 # NEW ADDRESS.
017768,000071: 06,2023 02002 TC FCS3
017769,000072: 06,2024 32060 FCSTEST1 CAF V47K
017770,000073: 06,2025 05332 TC NVSBWAIT # OUR VERB IN THE LIGHTS.
017771,000074: 06,2026 00004 FCSTEST INHINT
017772,000075: 06,2027 E4,1407 EBANK= JETSTEP
017773,000076: 06,2027 37656 CAF TWO # 20MS.
017774,000077: 06,2030 04536 TC WAITLIST
017775,000078: 06,2031 E4,1407 EBANK= JETSTEP
017776,000079: 06,2031 02065 14004 2CADR JETSTART
017777,000080:
017778,000081: 06,2033 37657 CAF BIT1 # 10MS.
017779,000082: 06,2034 04536 TC WAITLIST
017780,000083: 06,2035 E4,1407 EBANK= JETSTEP
|
|
Page 432 |
017782,000085: 06,2035 02220 14004 2CADR ENGSTART
017783,000086:
017784,000087: 06,2037 36165 CAF THREE # 30MS.
017785,000088: 06,2040 E4,1407 EBANK= JETSTEP
017786,000089: 06,2040 04536 TC WAITLIST
017787,000090: 06,2041 02315 14004 2CADR TRIMTOP
017788,000091:
017789,000092: 06,2043 37655 CAF FOUR # 40MS.
017790,000093: 06,2044 04536 TC WAITLIST
017791,000094: 06,2045 E4,1407 EBANK= JETSTEP
017792,000095: 06,2045 02435 14004 2CADR THRSTART
017793,000096:
017794,000097: 06,2047 37664 CAF FIVE # 50MS.
017795,000098: 06,2050 04536 TC WAITLIST
017796,000099: 06,2051 E4,1407 EBANK= JETSTEP
017797,000100: 06,2051 02523 14004 2CADR LOOKTOP
017798,000101:
017799,000102: 06,2053 04437 TC EJFREE # NOW THEY START.
017800,000103:
017801,000104: 06,2054 02007 JSTEPADR ECADR JETSTEP
017802,000105: 06,2055 02102 V21N02K OCT 02102
017803,000106: 06,2056 02130 V21N30K OCT 02130
017804,000107: 06,2057 00401 V04N01K OCT 00401
017805,000108: 06,2060 04700 V47K OCT 04700
017806,000109:
|
|
Page 433 |
017808,000111: # LEM FCS TEST RCS JETSET TASK
017809,000112: # THIS JOB ISSUES A PROFILE OF JET ON-OFF SIGNALS AS DETERMINED BY THE CONSTANTS IN A SET OF SIX REGISTERS.
017810,000113: # THE SIX REGISTERS ARE, (1) NTIMES, THE NUMBER OF TIMES A PARTICULAR STEP WILL BE PERFORMED. (2) NEXTTIME, THE
017811,000114: # TIME BETWEEN STEPS, A MAXIMUM OF 2 MINUTES, (3) JETONTM, THE TIME TO TURN THE JETS ON, SCALED FOR T3, (4) JET-
017812,000115: # OFFTM, THE TIME AFTER ONTM TO TURN THE JETS OFF, (5) XJETS, THE PARTICULAR X JETS TO BE TURNED ON AND OFF
017813,000116: # DURING EACH REPEAT OF A STEP, AND (6) YZJETS,, THE Y AND Z JETS TO BE TURNED ON AND OFF DURING EACH REPEAT OF A
017814,000117: # STEP. XJETS AND YZJETS MUST BE IN THE SAME FORMAT AS CHANNELS 5 AND6 RESPECTIVELY. THERE ARE EIGHT SETS OF
017815,000118: # THESE SIX REGISTERS.
017816,000119: # THE REGISTER JETSTEP IS USED TO INDEX THE 8 SETS OF REGISTERS, THE ALLOWABLE VALUES OF JETSTEP ARE +0 THRU 7
017817,000120: # THIS JOB WILL BE ENTERED BUT IMMEDIATELY ENDED IF THE INITIAL VALUES OF JETSTEP AND NTIMES ARE +0.
017818,000121:
017819,000122:
017820,000123: 06,2061 11407 NEXTSET CCS JETSTEP # IT MAY BE ZERO.
017821,000124: 06,2062 02064 TC +2 # NOPE
017822,000125: 06,2063 04602 TC TASKOVER # IT IS SO WE ARE DONE WITH THIS TASK.
017823,000126: 06,2064 55407 TS JETSTEP
017824,000127:
017825,000128: 06,2065 51407 JETSTART NDX JETSTEP # ENTER HERE.
017826,000129: 06,2066 11410 CCS NTIMES # SEE IF THIS STEP IS FINISHED.
017827,000130: 06,2067 02071 TC +2 # NO
017828,000131: 06,2070 02061 TC NEXTSET # YES
017829,000132: 06,2071 51407 NDX JETSTEP
017830,000133: 06,2072 31420 CAE NEXTTIME # MUST BE SCALED FOR T3. REMEMBER TO BIAS
017831,000134: # THIS FOR ON TIME.
017832,000135: 06,2073 04536 TC WAITLIST
017833,000136: 06,2074 E4,1407 EBANK= JETSTEP
017834,000137: 06,2074 02110 14004 2CADR JTOP
017835,000138:
017836,000139: 06,2076 04602 TC TASKOVER
017837,000140:
017838,000141: 06,2077 37665 JETOFF CAF ZERO
017839,000142: 06,2100 00006 EXTEND
017840,000143: 06,2101 01005 WRITE 5
017841,000144: 06,2102 00006 EXTEND
017842,000145: 06,2103 01006 WRITE 6
017843,000146: 06,2104 51407 NDX JETSTEP
017844,000147: 06,2105 11410 CCS NTIMES
017845,000148: 06,2106 51407 NDX JETSTEP
017846,000149: 06,2107 55410 TS NTIMES # ONE LESS TIME.
017847,000150: 06,2110 51407 JTOP NDX JETSTEP
017848,000151: 06,2111 11410 CCS NTIMES # FOR LOOPING.
017849,000152: 06,2112 02114 TC +2
017850,000153: 06,2113 02061 TC NEXTSET
017851,000154: 06,2114 51407 NDX JETSTEP
017852,000155: 06,2115 31430 CAE JETONTM # SCALED FOR T3. TIME FOR JETS ON.
017853,000156: 06,2116 04536 TC WAITLIST
017854,000157: 06,2117 E4,1407 EBANK= JETSTEP
017855,000158: 06,2117 02122 14004 2CADR JETON
017856,000159:
|
|
Page 434 |
017858,000161: 06,2121 04602 TC TASKOVER
017859,000162:
017860,000163: 06,2122 51407 JETON NDX JETSTEP
017861,000164: 06,2123 31440 CAE XJETS # MUST BE IN CHANNEL 5 FORMAT.
017862,000165: 06,2124 55401 TS XJBUF
017863,000166: 06,2125 51407 NDX JETSTEP
017864,000167: 06,2126 31450 CAE YZJETS # MUST BE IN CHANNEL 6 FORMAT.
017865,000168: 06,2127 55402 TS YZJBUF
017866,000169: 06,2130 00006 JFAILCK EXTEND # THIS ROUTINE EXAMINES EACH JETFAIL BIT
017867,000170: 06,2131 00032 READ 32 # AND IF A FAILURE IS INDICATED THE CORRES
017868,000171: 06,2132 40000 COM # PONDING COMMANDS ARE MASKED OUT .
017869,000172: 06,2133 55403 TS JFBUF # SAVE 32 REINVERTED.
017870,000173: 06,2134 37663 CAF SEVEN
017871,000174: 06,2135 55404 JF3 TS FCNTR
017872,000175: 06,2136 31403 CAE JFBUF
017873,000176: 06,2137 51404 NDX FCNTR
017874,000177: 06,2140 77650 MASK BIT8
017875,000178: 06,2141 10000 CCS A
017876,000179: 06,2142 02161 TC JFAIL
017877,000180: 06,2143 11404 JFAIL1 CCS FCNTR
017878,000181: 06,2144 02135 TC JF3
017879,000182: 06,2145 31401 CAE XJBUF
017880,000183: 06,2146 00006 EXTEND
017881,000184: 06,2147 01005 WRITE 5 # XJETS GO ON.
017882,000185: 06,2150 31402 CAE YZJBUF
017883,000186: 06,2151 00006 EXTEND
017884,000187: 06,2152 01006 WRITE 6 # YZJETS GO ON.
017885,000188: 06,2153 51407 NDX JETSTEP
017886,000189: 06,2154 31460 CAE JETOFFTM # JET OFF TIME SCALED FOR T3.
017887,000190: 06,2155 04536 TC WAITLIST
017888,000191: 06,2156 E4,1407 EBANK= JETSTEP
017889,000192: 06,2156 02077 14004 2CADR JETOFF
017890,000193:
017891,000194: 06,2160 04602 TC TASKOVER
017892,000195:
017893,000196: 06,2161 51404 JFAIL NDX FCNTR
017894,000197: 06,2162 42204 CS XJETMASK
017895,000198: 06,2163 71401 MASK XJBUF
017896,000199: 06,2164 55401 TS XJBUF
017897,000200: 06,2165 51404 NDX FCNTR
017898,000201: 06,2166 42174 CS YZJETMSK
017899,000202: 06,2167 71402 MASK YZJBUF
017900,000203: 06,2170 55402 TS YZJBUF
017901,000204: 06,2171 05413 TC ALARM
017902,000205: 06,2172 01410 OCT 01410 # TEMPORARY JET FAIL ALARM CODE.
017903,000206: 06,2173 02143 TC JFAIL1
017904,000207:
|
|
Page 435 |
017906,000209: 06,2174 00010 YZJETMSK OCT 00010 # JET 11
017907,000210: 06,2175 00020 OCT 00020 # JET 12
017908,000211: 06,2176 00004 OCT 00004 # JET 15
017909,000212: 06,2177 00200 OCT 00200 # JET 16
017910,000213: 06,2200 00001 OCT 00001 # JET 7
017911,000214: 06,2201 00002 OCT 00002 # JET 3
017912,000215: 06,2202 00040 OCT 00040 # JET 8
017913,000216: 06,2203 00100 OCT 00100 # JET 4
017914,000217:
017915,000218: 06,2204 00040 XJETMASK OCT 00040 # JET 10
017916,000219: 06,2205 00020 OCT 00020 # JET 9
017917,000220: 06,2206 00100 OCT 00100 # JET 13
017918,000221: 06,2207 00200 OCT 00200 # JET 14
017919,000222: 06,2210 00010 OCT 00010 # JET 6
017920,000223: 06,2211 00001 OCT 00001 # JET 1
017921,000224: 06,2212 00004 OCT 00004 # JET 5
017922,000225: 06,2213 00002 OCT 00002 # JET 2
017923,000226:
|
|
Page 436 |
017925,000228: # LEM FCS TEST ENGINE ON - OFF TASK
017926,000229: # THIS TASK TURNS THE LEM ASCENT OR DESCENT ENGINE ON AND OFF ACCORDING TOTHE CONSTANTS STORED IN THE FIVE SETS OF
017927,000230: # REGISTERS, (1) CYLTIMES, WHICH CONTAINS THE NUMBER OF TIMES A PARTICULARSTEP WILL BE REPEATED, (2) NEXTCYLT,
017928,000231: # WHICH CONTAINS THE TIME BETWEEN STEPS SCALED FOR T3, (3) ONTIME, WHICH CONTAINS THE TIME TO TURN THE ENGINE ON
017929,000232: # WHICH ALSO DETERMINES THE LENGTH OF TIME THE ENGIME WILL BE OFF WITHIN A SERIES OF ON:OFF CYCLES, (4) OFFTIME,
017930,000233: # WHICH CONTAINS THE NUMBER OF 2 MINUTES BEFORE THE ENGINE WILL BE TURNED OFF, AND (5) OFFTIMER, WHICH
017931,000234: # CONTAINS THE RESIDUAL TIME BEFORE THE ENGINE WILL BE TURNED OFF. OFFTIME AND OFFTIMER DETERMINE THE LENGTH
017932,000235: # OF TIME THE ENGINE WILL BE ON IN ANY ONE CYCLE. THERE ARE THREE SETS OF THESE REGISTERS.
017933,000236: # THE ENGSTEP REGISTER IS USED AS AN INDEX TO PICK UP A PARTICULAR SET OF THE ABOVE 5 REGISTERS. THIS TASK
017934,000237: # WILL BE ENTERED BUT IMMEDIATELY ENDED IF ENGSTEP AND CYLTIMES = +0. THE ALLOWABLE VALUES OF ENGSTEP ARE +0,
017935,000238: # 1 AND 2.
017936,000239:
017937,000240: 06,2214 11470 NXTONOFF CCS ENGSTEP
017938,000241: 06,2215 02217 TC +2
017939,000242: 06,2216 04602 TC TASKOVER # EXIT HERE WHEN STEP AND CYL ARE +0.
017940,000243: 06,2217 55470 TS ENGSTEP # ONE LESS.
017941,000244:
017942,000245: 06,2220 51470 ENGSTART NDX ENGSTEP # ENTER HERE.
017943,000246: 06,2221 11471 CCS CYLTIMES # NUM OF EACH ON/OFF SET
017944,000247: 06,2222 02224 TC +2
017945,000248: 06,2223 02214 TC NXTONOFF # NO MORE OF THIS SET
017946,000249: 06,2224 51470 NDX ENGSTEP
017947,000250: 06,2225 31474 CAE NEXTCYLT # START OF NEXT CYCLE.
017948,000251: 06,2226 04536 TC WAITLIST
017949,000252: 06,2227 E4,1470 EBANK= ENGSTEP
017950,000253: 06,2227 02250 14004 2CADR ENGONTM
017951,000254:
017952,000255: 06,2231 04602 TC TASKOVER
017953,000256:
017954,000257: 06,2232 44526 ENGRESET CS PRIO30 # BITS 13 AND 14.
017955,000258: 06,2233 00006 EXTEND
017956,000259: 06,2234 02011 RAND 11
017957,000260: 06,2235 67642 AD BIT14
017958,000261: 06,2236 00006 EXTEND
017959,000262: 06,2237 01011 WRITE 11 # ENG ON = 0, ENG OFF = 1.
017960,000263: 06,2240 51470 NDX ENGSTEP
017961,000264: 06,2241 11471 CCS CYLTIMES
017962,000265: 06,2242 10000 CCS A
017963,000266: 06,2243 02245 TC +2
017964,000267: 06,2244 02214 TC NXTONOFF # WAS ONE.
017965,000268: 06,2245 67657 AD ONE # WAS MORE THAN ONE.
017966,000269: 06,2246 51470 NDX ENGSTEP
017967,000270: 06,2247 55471 TS CYLTIMES
017968,000271:
017969,000272: 06,2250 51470 ENGONTM NDX ENGSTEP
017970,000273: 06,2251 31502 CAE OFFTIME
017971,000274: 06,2252 55406 TS OFFTMBUF
017972,000275: 06,2253 51470 NDX ENGSTEP
|
|
Page 437 |
017974,000277: 06,2254 31477 CAE ONTIME
017975,000278: 06,2255 04536 TC WAITLIST
017976,000279: 06,2256 E4,1470 EBANK= ENGSTEP
017977,000280: 06,2256 02261 14004 2CADR ENGSET
017978,000281:
017979,000282: 06,2260 04602 TC TASKOVER
017980,000283:
017981,000284: 06,2261 44526 ENGSET CS PRIO30
017982,000285: 06,2262 00006 EXTEND
017983,000286: 06,2263 02011 RAND 11
017984,000287: 06,2264 67643 AD BIT13
017985,000288: 06,2265 00006 EXTEND
017986,000289: 06,2266 01011 WRITE 11 # ENG ON = 1, ENG OFF = 0.
017987,000290: 06,2267 11406 ENGRST CCS OFFTMBUF
017988,000291: 06,2270 02277 TC LTIMEON # AT LEAST 2MIN. BEFORE ENGINE OFF.
017989,000292: 06,2271 51470 NDX ENGSTEP
017990,000293: 06,2272 31505 CAE OFFTIMER # LESS THAN 2MIN. TO ENGINE OFF.
017991,000294: 06,2273 04536 TC WAITLIST
017992,000295: 06,2274 E4,1470 EBANK= ENGSTEP
017993,000296: 06,2274 02232 14004 2CADR ENGRESET
017994,000297:
017995,000298: 06,2276 04602 TC TASKOVER
017996,000299:
017997,000300: 06,2277 11406 LTIMEON CCS OFFTMBUF # IS THERE ANY MORE.
017998,000301: 06,2300 02302 TC +2 # YES.
017999,000302: 06,2301 02267 TC ENGRST # NO.
018000,000303: 06,2302 55406 TS OFFTMBUF
018001,000304: 06,2303 32310 CAF 2MIN
018002,000305: 06,2304 04536 TC WAITLIST
018003,000306: 06,2305 E4,1470 EBANK= ENGSTEP
018004,000307: 06,2305 02277 14004 2CADR LTIMEON
018005,000308:
018006,000309: 06,2307 04602 TC TASKOVER
018007,000310:
018008,000311: 06,2310 27340 2MIN DEC 12000 B-14
018009,000312:
|
|
Page 438 |
018011,000314: # LEM FCS TEST TRIM TASK
018012,000315: # THIS PROGRAM ISSUES A PROFILE OF PITCH AND ROLL TRIM COMMANDS TO THE LEM DESCENT ENGINE GIMBAL IN ACCORDANCEWITH
018013,000316: # THE VALUE S IN THE TRIMSTEP REGISTER AND THE 12 SETS OF 5 REGISTERS CALLED NUMTIMES, STEPDLYT, TRIMONT, TRIMOFFT
018014,000317: # AND TRIMIND. TRIMSTEP IS USED TO PICK UP A PARTICULAR SET OF THE 5 REGISTERS AND HAS ALLOWABLE VALUES FROM +0
018015,000318: # THROUGH +11 DECIMAL. THE 5 REGISTERS IN EACH SET ARE DEFINED AS FOLLOWS
018016,000319: # (1) NUMTIMES DETERMINES THE NUMBER OF TIMES THE COMMAND IN TRIMIND WILL BE ISSUED. VALUES FROM +0 TO
018017,000320: # OCT 37777 ARE PERMITTED.
018018,000321: # (2) STEPDLYT DETERMINES THE TIME BETWEEN THE START OF A STEP AND THE BEGINNING OF TRIMONT. STEPDLYT MUST BE
018019,000322: # FORMATTED FOR T3, ITS MAXIMUM VALUE IS 2 MINUTES.
018020,000323: # (3) TRIMONT DETERMINES THE TIME BETWEEN THE END OF STEPDLYT OR TRIMOFFT AND THE TIME THE TRIM COMMANDS ARE
018021,000324: # ISSUED. IT MUST BE FORMATTED FOR T3.
018022,000325: # (4) TRIMOFFT DETERMINES THE LENGTH OF TIME THE TRIM COMMAND WILL BE ON, FORMATTED FOR T3.
018023,000326: # (5) TRIMIND DETERMINES THE PITCH AND ROLL COMMAND TO BE ISSUED. THE FORMAT IS, BIT9=1=+ PITCH COMMAND,
018024,000327: # BIT10=1=-PITCH, BIT11=1= +ROLL, BIT12=1= -ROLL. A BIT=0 INDICATES NO COMMAND. ANY COMBINATION OF COMMANDS IS
018025,000328: # PERMITTED.
018026,000329: # THIS TASK WILL BE ENTERED BUT IMMEDIATELY ENDED IF TRIMSTEP AND NUMTIMES = +0.
018027,000330:
018028,000331:
018029,000332: 06,2311 11510 NEXTTRIM CCS TRIMSTEP
018030,000333: 06,2312 02314 TC +2
018031,000334: 06,2313 04602 TC TASKOVER # EXIT HERE.
018032,000335: 06,2314 55510 TS TRIMSTEP # LESS ONE.
018033,000336:
018034,000337: 06,2315 51510 TRIMTOP NDX TRIMSTEP # ENTER HERE.
018035,000338: 06,2316 11511 CCS NUMTIMES
018036,000339: 06,2317 02321 TC +2
018037,000340: 06,2320 02311 TC NEXTTRIM
018038,000341: 06,2321 51510 NDX TRIMSTEP
018039,000342: 06,2322 31525 CAE STEPDLYT
018040,000343: 06,2323 04536 TC WAITLIST
018041,000344: 06,2324 E4,1510 EBANK= TRIMSTEP
018042,000345: 06,2324 02342 14004 2CADR TRIMSET
018043,000346:
018044,000347: 06,2326 04602 TC TASKOVER
018045,000348:
018046,000349: 06,2327 42426 TRIMOFF CS TRIMMASK
018047,000350: 06,2330 00006 EXTEND
018048,000351: 06,2331 03012 WAND 12 # TRIM GOES OFF.
018049,000352: 06,2332 51510 NUMSTEP NDX TRIMSTEP
018050,000353: 06,2333 11511 CCS NUMTIMES
018051,000354: 06,2334 10000 CCS A
018052,000355: 06,2335 02337 TC +2
018053,000356: 06,2336 02311 TC NEXTTRIM # WAS ONE.
018054,000357: 06,2337 67657 AD ONE
018055,000358: 06,2340 51510 NDX TRIMSTEP
018056,000359: 06,2341 55511 TS NUMTIMES
018057,000360: 06,2342 51510 TRIMSET NDX TRIMSTEP
018058,000361: 06,2343 31541 CAE TRIMONT
018059,000362: 06,2344 04536 TC WAITLIST
|
|
Page 439 |
018061,000364: 06,2345 E4,1510 EBANK= TRIMSTEP
018062,000365: 06,2345 02350 14004 2CADR TRIMON
018063,000366:
018064,000367: 06,2347 04602 TC TASKOVER
018065,000368:
018066,000369: 06,2350 32425 TRIMON CAF BITS9,10 # CHECK PITCH AND ROLL TRIM FAIL BITS.
018067,000370: 06,2351 00006 EXTEND
018068,000371: 06,2352 06032 RXOR 32
018069,000372: 06,2353 72425 MASK BITS9,10
018070,000373: 06,2354 00006 EXTEND
018071,000374: 06,2355 12363 BZF TRIMON1
018072,000375: 06,2356 34533 CAF PRIO35 # FAIL IS ON. FLASH FAIL CODE (01400) AND
018073,000376: 06,2357 04363 TC NOVAC # IDLE UNTIL SOMEONE RESETS IT, TERMINATES
018074,000377: 06,2360 02376 14004 2CADR PERFORM # THE TASK, OR DECIDES TO PROCEED WITH IT.
018075,000378:
018076,000379: 06,2362 04602 TC TASKOVER
018077,000380:
018078,000381: 06,2363 51510 TRIMON1 NDX TRIMSTEP
018079,000382: 06,2364 31571 CAE TRIMIND
018080,000383: 06,2365 72426 MASK TRIMMASK # SAFETY PLAY
018081,000384: 06,2366 00006 EXTEND
018082,000385: 06,2367 05012 WOR 12 # TRIM STARTS.
018083,000386: 06,2370 51510 NDX TRIMSTEP
018084,000387: 06,2371 31555 CAE TRIMOFFT
018085,000388: 06,2372 04536 TC WAITLIST
018086,000389: 06,2373 E4,1510 EBANK= TRIMSTEP
018087,000390: 06,2373 02327 14004 2CADR TRIMOFF
018088,000391:
018089,000392: 06,2375 04602 TC TASKOVER
018090,000393:
018091,000394: 06,2376 05317 PERFORM TC GRABWAIT # KEY RELEASE MAY COME ON.
018092,000395: 06,2377 32425 CAF TRIMCODE # 01400
018093,000396: 06,2400 54333 TS DSPTEM1
018094,000397: 06,2401 32427 CAF V01N25K
018095,000398: 06,2402 05332 TC NVSBWAIT
018096,000399: 06,2403 32430 CAF V50K # PLEASE PERFORM.
018097,000400: 06,2404 05332 TC NVSBWAIT
018098,000401: 06,2405 05274 TC FLASHON # ANY RESPONSE TURNS IT OFF.
018099,000402: 06,2406 05140 TC ENDIDLE # WAIT FOR SOMEONE TO DO SOMETHING.
018100,000403: 06,2407 04437 TC EJFREE # V34E. TERMINATE THE TASK.
018101,000404: 06,2410 02417 TC TR1 # V33E. PROCEED WITH THE FAIL ON.
018102,000405: 06,2411 00004 INHINT # ENTER. THE FAIL HAS BEEN RESET.
018103,000406: 06,2412 37656 CAF BIT2 # 20MS.
018104,000407: 06,2413 04536 TC WAITLIST
018105,000408: 06,2414 02350 14004 2CADR TRIMON # CHECK AGAIN TO BE SURE. THEN PROCEED..
018106,000409:
018107,000410: 06,2416 04437 TC EJFREE
018108,000411:
018109,000412: 06,2417 00004 TR1 INHINT # PROCEED WITH THE FAIL.
018110,000413: 06,2420 37656 CAF BIT2 # 20MS.
|
|
Page 440 |
018112,000415: 06,2421 04536 TC WAITLIST
018113,000416: 06,2422 02363 14004 2CADR TRIMON1 # BYPASS THE RECHECK.
018114,000417:
018115,000418: 06,2424 04437 TC EJFREE
018116,000419:
018117,000420: 06,2425 01400 BITS9,10 OCT 01400
018118,000421: 06,2426 06,2425 TRIMCODE EQUALS BITS9,10
018119,000422: 06,2426 07400 TRIMMASK OCT 07400
018120,000423: 06,2427 00125 V01N25K OCT 00125
018121,000424: 06,2430 05000 V50K OCT 05000
018122,000425:
|
|
Page 441 |
018124,000427: # LEM FCS TEST THROTTLE TASK
018125,000428: # THIS PROGRAM ISSUES A PROFILE OF THROTTLE COMMANDS TO THE LEM DESCENT ENGINE. THE PROFILE IS DETERMINED BY
018126,000429: # THE VALUES IN THE THRTSTEP REGISTER AND THE 6 SETS OF REGISTERS, 5 PER SET, CALLED DOTIMES, DELAY, THR1TIME,
018127,000430: # THCOMM1 AND THCOMM2. THE THRTSTEP REGISTER VALUE IS USED TO INDEX THE 6 SETS OF 5 REGISTERS AND HAS ALLOWABLE
018128,000431: # VALUES OF +0 THROUGH +5. THE 5 REGISTERS PER SET ARE DEFINED AS FOLLOWS
018129,000432: # (1) DOTIMES DETERMINES THE NUMBER OF TIMES THE THROTTLE WILL BE EXERCISED AS PER THE VALUES OF THR1TIME,
018130,000433: # THCOMM1 AND THCOMM2 OF THE CURRENT STEP. IT HAS ALLOWABLE VALUES OF +0 THROUGH 37777 OCT.
018131,000434: # (2) DELAY DETERMINES THE TIME BETWEEN THE START OF A STEP AND THE BE GINNING OF THR1TIME. ITIS CALLED ONLY
018132,000435: # ONCE PER STEP,I.E., REPEATS OF THE SAME THCOMM1 AND THCOMM2 START AT THR1TIME. DELAY MUST BE FORMATTED FOR T3
018133,000436: # AND HENCE HAS A MAXIMUM VALUE OF 2 MINUTES.
018134,000437: # (3) THR1TIME DETERMINES THE TIME BETWEEN THE END OF DELAY OR THE END OF THCOMM2 AND THE START OF
018135,000438: # THCOMM1. IT MUST BE FORMATTED FOR T3.
018136,000439: # (4) THCOMM1 AND (5) THCOMM2 DETERMINE THE NUMBER OF THRUST INCREASE OR DECREASE PULSES TOBE ISSUED AT A
018137,000440: # 3.2KPPS RATE. THE RANGE OF POSSIBLE VALUES OF EITHER IS FROM POSMAX (OCT 37777) TO NEGMAX (OCT 40000) ALTHOUGH
018138,000441: # THE ACTUAL THROTTLE RANGE IS FROM OCT 6116 TO OCT 71661 (+,- 3150 DEC).
018139,000442: # THIS TASK WILL BE ENTERED BUT IMMEDIATELY ENDED IF THE INITIAL VALUES OF THRTSTEP AND DOTIMES ARE +0.
018140,000443:
018141,000444:
018142,000445: 06,2431 11605 NEXTTHRT CCS THRTSTEP
018143,000446: 06,2432 02434 TC +2
018144,000447: 06,2433 04602 TC TASKOVER # EXIT HERE.
018145,000448: 06,2434 55605 TS THRTSTEP
018146,000449:
018147,000450: 06,2435 51605 THRSTART NDX THRTSTEP # ENTER HERE.
018148,000451: 06,2436 11606 CCS DOTIMES # NUMBER OF TIMES COMMANDS 1 AND 2 DONE.
018149,000452: 06,2437 02441 TC +2
018150,000453: 06,2440 02431 TC NEXTTHRT
018151,000454: 06,2441 51605 NDX THRTSTEP
018152,000455: 06,2442 31614 CAE DELAY # TIME BETWEEN STEPS. BIAS FOR THR1TIME.
018153,000456: # MUST BE SCALED FOR T3.
018154,000457: 06,2443 04536 TC WAITLIST
018155,000458: 06,2444 E4,1605 EBANK= THRTSTEP
018156,000459: 06,2444 02467 14004 2CADR THROTON1
018157,000460:
018158,000461: 06,2446 04602 TC TASKOVER
018159,000462:
018160,000463: 06,2447 51605 THR2COMM NDX THRTSTEP
018161,000464: 06,2450 31636 CAE THCOMM2 # SAME REMARKS AS FOR THCOMM1.
018162,000465: 06,2451 02505 TC THROTON
018163,000466: 06,2452 67657 AD BIT1 # 10MS IN CASE OF NO THCOMM2.
018164,000467: 06,2453 04536 TC WAITLIST
018165,000468: 06,2454 E4,1605 EBANK= THRTSTEP
018166,000469: 06,2454 02457 14004 2CADR CKDOTIME
018167,000470:
018168,000471: 06,2456 04602 TC TASKOVER
018169,000472:
018170,000473: 06,2457 51605 CKDOTIME NDX THRTSTEP
018171,000474: 06,2460 11606 CCS DOTIMES
018172,000475: 06,2461 10000 CCS A
|
|
Page 442 |
018174,000477: 06,2462 02464 TC +2
018175,000478: 06,2463 02431 TC NEXTTHRT # WAS ONE.
018176,000479: 06,2464 67657 AD ONE
018177,000480: 06,2465 51605 NDX THRTSTEP
018178,000481: 06,2466 55606 TS DOTIMES
018179,000482: 06,2467 51605 THROTON1 NDX THRTSTEP
018180,000483: 06,2470 31622 CAE THR1TIME # TIME BETWEEN DOTIMES. SCALED FOR T3.
018181,000484: 06,2471 04536 TC WAITLIST
018182,000485: 06,2472 E4,1605 EBANK= THRTSTEP
018183,000486: 06,2472 02475 14004 2CADR THR1COMM
018184,000487:
018185,000488: 06,2474 04602 TC TASKOVER
018186,000489:
018187,000490: 06,2475 51605 THR1COMM NDX THRTSTEP
018188,000491: 06,2476 31630 CAE THCOMM1 # SHOULD BE NO LARGER THAN 3150DEC.
018189,000492: 06,2477 02505 TC THROTON
018190,000493: 06,2500 62522 AD 250MS # SO ACE CAN SAMPLE.
018191,000494: 06,2501 04536 TC WAITLIST
018192,000495: 06,2502 E4,1605 EBANK= THRTSTEP
018193,000496: 06,2502 02447 14004 2CADR THR2COMM
018194,000497:
018195,000498: 06,2504 04602 TC TASKOVER
018196,000499:
018197,000500: 06,2505 54055 THROTON TS THRUST # THROTTLE OUTPUT COUNTER.
018198,000501: 06,2506 55405 TS THBUF # SAVE FOR BZMF.
018199,000502: 06,2507 37654 CAF BIT4
018200,000503: 06,2510 00006 EXTEND
018201,000504: 06,2511 05014 WOR 14 # ENABLE THRUST DRIVE. COMMAND STARTS NOW
018202,000505: 06,2512 31405 CAE THBUF
018203,000506: 06,2513 00006 EXTEND
018204,000507: 06,2514 62516 BZMF +2
018205,000508: 06,2515 40000 COM
018206,000509: 06,2516 40000 COM
018207,000510: 06,2517 00006 EXTEND
018208,000511: 06,2520 77646 MP BIT10 # SCALES FOR T3.
018209,000512: 06,2521 00002 TC Q
018210,000513:
018211,000514: 06,2522 00031 250MS OCT 00031
018212,000515:
|
|
Page 443 |
018214,000517: # LEM FCS TEST INTERFACE LOOK TASK.
018215,000518:
018216,000519: # THIS PROGRAM KEEPS A RUNNING HISTORY OF THE STATE OF ALL THE BITS IN INPUT CHANNELS 30, 31, 32 AND 33.
018217,000520: # IT DOES THIS BY DETECTING A CHANGE OF AN INPUT BIT FROM AN INITIAL ONE STATE TO A ZERO STATE OR FROM AN INITIAL
018218,000521: # ZERO TO A ONE. THE HISTORY IS MAINTAINED IN TWO BUFFER REGISTERS FOR EACH CHANNEL, ONE FOR STORING ONE TO ZERO
018219,000522: # CHANGES (30BUF1, +1, +2, AND +3) AND ONE FOR ZERO TO ONE CHANGES (30BUF0, +1 +2 AND +3). THE OPERATOR MUST
018220,000523: # LOAD THE INITIAL STATES OF THE INPUT CHANNELS INTO THEIR RESPECTIVE BUFFER REGISTERS BEFORE THIS PROGRAM IS IN-
018221,000524: # ITIATED.
018222,000525: # TO ALLOW THIS PROGRAM TO RUN C(QUITLOOK) MUST BE SET GREATER THAN +0 BEFORE IT IS STARTED. IF THE OPERATOR
018223,000526: # DOES NOT DESIRE THIS PROGRAM TO RUN HE SHOULD SET C(QUITLOOK)=+0 BEFORE STARTING THE FCS TEST. AFTER THIS TASK
018224,000527: # IS RUNNING THE OPERATOR CAN STOP IT BY SETTING C(QUITLOOK) = +0.
018225,000528: # NO DISPLAYS OF EITHER THE BUFFER REGISTERS OR CHANNELS ARE INCORPORATED INTO THIS PROGRAM. THIS WAS DONE TO
018226,000529: # ALLOW THE TEST OPERATOR MONITORING FLEXIBILITY. FOR REAL TIME MONITORING IT IS SUGGESTED THAT THE BUFFER
018227,000530: # REGISTERS BE DISPLAYED WITH THE MONITOR VERBS (11 THROUGH 15). ON THE OTHER HAND, THE OPERATOR MAY ELECT TO
018228,000531: # PERFORM NO REAL TIME MONITORING UNTIL THE TEST IS COMPLETED, WHEN THE BUFFER REGISTERS WOULD BE CALLED FOR
018229,000532: # DISPLAY (VERB 01) AND RECORDED.
018230,000533: # THIS PROGRAM IS PRIMARILY INTENDED FOR INTERFACE MONITORING DURING THE LEM VIBRATION TEST AT BETHPAGE, N.Y.,
018231,000534: # ALTHOUGH IT MAY ALSO BE USEFUL DURING VEHICAL LEVEL EMI TESTS.
018232,000535:
018233,000536: 06,2523 11654 LOOKTOP CCS QUITLOOK # IS THIS TASK WANTED.
018234,000537: 06,2524 02526 TC +2 # YES.
018235,000538: 06,2525 04602 TC TASKOVER # NO.
018236,000539: 06,2526 36165 CAF THREE # START SCAN OF CHANNELS.
018237,000540: 06,2527 55655 LOOKLOOP TS CHCNTR # 3, 2, 1, 0.
018238,000541: 06,2530 51655 NDX CHCNTR
018239,000542: 06,2531 31644 CAE 30BUF1
018240,000543: 06,2532 00006 EXTEND
018241,000544: 06,2533 51655 NDX CHCNTR
018242,000545: 06,2534 02030 RAND 30 # DETECTS CHANGES FROM 1 TO 0.
018243,000546: 06,2535 51655 NDX CHCNTR
018244,000547: 06,2536 57644 XCH 30BUF1 # STORE NEW ZEROS.
018245,000548: 06,2537 51655 NDX CHCNTR
018246,000549: 06,2540 31650 CAE 30BUF0
018247,000550: 06,2541 00006 EXTEND
018248,000551: 06,2542 51655 NDX CHCNTR
018249,000552: 06,2543 04030 ROR 30 # DETECTS CHANGES FROM 0 TO 1.
018250,000553: 06,2544 51655 NDX CHCNTR
018251,000554: 06,2545 57650 XCH 30BUF0 # STORE NEW ONES.
018252,000555: 06,2546 11655 CCS CHCNTR # IS THIS SCAN DONE.
018253,000556: 06,2547 02527 TC LOOKLOOP # NO.
018254,000557: 06,2550 37661 CAF TEN # YES. 100MS RECALL.
018255,000558: 06,2551 04536 TC WAITLIST
018256,000559: 06,2552 E4,1654 EBANK= QUITLOOK
018257,000560: 06,2552 02523 14004 2CADR LOOKTOP
018258,000561:
018259,000562: 06,2554 04602 TC TASKOVER
018260,000563: 06,2555 ENDLFCSS =
End of include-file LEM_FLIGHT_CONTROL_SYSTEM_TEST.agc. Parent file is MAIN.agc