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