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