Assembly listing generated by yaYUL

Source Code

These source-code files are part of a reconstructed copy of Aurora 88, the final release of the Lunar Module (LM) Apollo Guidance Computer (AGC) system test software.

They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-011, 2003972-091, and 2003972-111, belonging to Steve Jurvetson.

Since only binary dumps (rather than listings) of Aurora 88 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

016450,000002: 016451,000003: 016452,000004: 016453,000005: 016454,000006: 016455,000007: 016456,000008: 016457,000009: 016458,000010: 016459,000011: 016460,000012: 016461,000013: 016462,000014: 016463,000015: 016464,000016: 06,2000 016465,000017: 06,2000 E4,1407 016466,000018: 016467,000019: 016468,000020: 016469,000021: 016470,000022: 016471,000023: 016472,000024: 016473,000025: 016474,000026: 016475,000027: 016476,000028: 016477,000029: < 016589,000141: 06,2123 016590,000142: 06,2124 016591,000143: 06,2125 016592,000144: 06,2126 016593,000145: 06,2127 016599,000151: 016600,000152: 06,2136 016601,000153: 06,2137 016602,000154: 06,2140 016603,000155: 06,2141 016604,000156: 06,2142 < 016622,000174: 06,2162 016623,000175: 06,2163 016624,000176: 06,2164 016625,000177: 06,2165 016626,000178: 06,2166 016627,000179: 06,2167 016628,000180: 06,2170 016629,000181: 06,2171 016630,000182: 06,2172 016631,000183: 06,2173 016632,000184: 016832,000384: 016833,000385: 06,2420 016834,000386: 06,2421 016835,000387: 06,2422 016836,000388: 016837,000389: 06,2424 016838,000390: < 016932,000484: 016933,000485: 016934,000486: 016935,000487: 016936,000488: 016937,000489: 016938,000490: 016939,000491: 016940,000492: 016941,000493: 016942,000494: 016943,000495: 016944,000496: 016945,000497: 016946,000498: 016947,000499: 016948,000500: 016949,000501: 016950,000502: 016951,000503: ## Copyright: Public domain. ## Filename: LEM_FLIGHT_CONTROL_SYSTEM_TEST.agc ## Purpose: A section of Aurora 88. ## It is part of the reconstructed source code for the final ## release of the Lunar Module system test software. No original ## listings of this program are available; instead, this file ## was created via disassembly of dumps of Aurora 88 core rope ## modules and comparison with other AGC programs. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2023-06-30 MAS Created from Aurora 12. BANK 6 EBANK= JETSTEP # LEM FCS TEST ENTRY AND INITIALIZATION JOB. # THIS JOB INITIALIZES THE ERASABLE TABLES FOR THE FCS TEST AND PUTS THE FOLLOWING PROGRAMS UNDER # WAITLIST CONTROL. # (1) RCS JET SET TASK # (2) ENGINE ON - OFF TASK # (3) DESCENT ENGINE GIMBAL TRIM TASK # (4) DESCENT ENGINE THROTTLE TASK # (5) INTERFACE CHANNEL LOOK TASK 254">016478,000030: 06,2000 05221 FCSSTART TC GRABWAIT # SO NOTHING DISRUPTS THE LOAD. 32054 CAF JSTEPADR # THE START OF THE LIST. >016480,000032: 06,2002 10000 FCS3 CCS A 54142 TS MPAC +2 >016482,000034: 06,2004 32057 FCS2 CAF V04N01K # DISPLAY PRESENT CONTENTS IN R2. 05234 TC NVSBWAIT 24142 INCR MPAC +2 32055 CAF V21N02K 05234 TC NVSBWAIT # IN CASE IT,S BUSY BUT IT SHOULDN,T BE. 05042 TC ENDIDLE # WHILE LOADING. 02015 TC +3 # V34E. TERMINATE LOAD OF THIS LIST # SECTION, GO TO NEW SECTION OR TO TEST. 02014 TC +1 # V33E. PRESENT CONTENTS OK, PROCEED TO # NEXT LOCATION IN LIST. 02004 TC FCS2 32056 CAF V21N30K 05234 TC NVSBWAIT 05042 TC ENDIDLE 04352 TC EJFREE 02024 TC FCSTEST1 # PROCEED TO TEST. 30333 CAE DSPTEM1 # NEW ADDRESS. 02002 TC FCS3 431">016500,000052: 06,2024 32060 FCSTEST1 CAF V47K 05234 TC NVSBWAIT # OUR VERB IN THE LIGHTS. 4">016502,000054: 06,2026 00004 FCSTEST INHINT EBANK= JETSTEP 37651 CAF TWO # 20MS. 04451 TC WAITLIST EBANK= JETSTEP 02065 14004 2CADR JETSTART 37652 CAF BIT1 # 10MS. 04451 TC WAITLIST EBANK= JETSTEP 02220 14004 2CADR ENGSTART 36165 CAF THREE # 30MS. EBANK= JETSTEP 04451 TC WAITLIST 02315 14004 2CADR TRIMTOP 37650 CAF FOUR # 40MS. 04451 TC WAITLIST EBANK= JETSTEP 02435 14004 2CADR THRSTART 37227 CAF FIVE # 50MS. 04451 TC WAITLIST EBANK= JETSTEP 02523 14004 2CADR LOOKTOP 04352 TC EJFREE # NOW THEY START. 452">016531,000083: 06,2054 02007 JSTEPADR ECADR JETSTEP B">016532,000084: 06,2055 02102 V21N02K OCT 02102 B">016533,000085: 06,2056 02130 V21N30K OCT 02130 B">016534,000086: 06,2057 00401 V04N01K OCT 00401 >016535,000087: 06,2060 04700 V47K OCT 04700 # LEM FCS TEST RCS JETSET TASK # THIS JOB ISSUES A PROFILE OF JET ON-OFF SIGNALS AS DETERMINED BY THE CONSTANTS IN A SET OF SIX REGISTERS. # THE SIX REGISTERS ARE, (1) NTIMES, THE NUMBER OF TIMES A PARTICULAR STEP WILL BE PERFORMED. (2) NEXTTIME, THE # TIME BETWEEN STEPS, A MAXIMUM OF 2 MINUTES, (3) JETONTM, THE TIME TO TURN THE JETS ON, SCALED FOR T3, (4) JET- # OFFTM, THE TIME AFTER ONTM TO TURN THE JETS OFF, (5) XJETS, THE PARTICULAR X JETS TO BE TURNED ON AND OFF # 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 # STEP. XJETS AND YZJETS MUST BE IN THE SAME FORMAT AS CHANNELS 5 AND6 RESPECTIVELY. THERE ARE EIGHT SETS OF # THESE SIX REGISTERS. # THE REGISTER JETSTEP IS USED TO INDEX THE 8 SETS OF REGISTERS, THE ALLOWABLE VALUES OF JETSTEP ARE +0 THRU 7 # THIS JOB WILL BE ENTERED BUT IMMEDIATELY ENDED IF THE INITIAL VALUES OF JETSTEP AND NTIMES ARE +0. 4">016549,000101: 06,2061 11407 NEXTSET CCS JETSTEP # IT MAY BE ZERO. 02064 TC +2 # NOPE 04505 TC TASKOVER # IT IS SO WE ARE DONE WITH THIS TASK. 55407 TS JETSTEP 254">016554,000106: 06,2065 51407 JETSTART NDX JETSTEP # ENTER HERE. 11410 CCS NTIMES # SEE IF THIS STEP IS FINISHED. 02071 TC +2 # NO 02061 TC NEXTSET # YES 51407 NDX JETSTEP 31420 CAE NEXTTIME # MUST BE SCALED FOR T3. REMEMBER TO BIAS # THIS FOR ON TIME. 04451 TC WAITLIST EBANK= JETSTEP 02110 14004 2CADR JTOP 04505 TC TASKOVER >016567,000119: 06,2077 37657 JETOFF CAF ZERO 00006 EXTEND 01005 WRITE 5 00006 EXTEND 01006 WRITE 6 51407 NDX JETSTEP 11410 CCS NTIMES 51407 NDX JETSTEP 55410 TS NTIMES # ONE LESS TIME. >016576,000128: 06,2110 51407 JTOP NDX JETSTEP 11410 CCS NTIMES # FOR LOOPING. 02114 TC +2 02061 TC NEXTSET 51407 NDX JETSTEP 31430 CAE JETONTM # SCALED FOR T3. TIME FOR JETS ON. 04451 TC WAITLIST EBANK= JETSTEP 02122 14004 2CADR JETON 04505 TC TASKOVER /a>016588,000140: 06,2122 51407 JETON NDX JETSTEP 31440 CAE XJETS # MUST BE IN CHANNEL 5 FORMAT. 55401 TS XJBUF 51407 NDX JETSTEP 31450 CAE YZJETS # MUST BE IN CHANNEL 6 FORMAT. 55402 TS YZJBUF B">016594,000146: 06,2130 00006 JFAILCK EXTEND # THIS ROUTINE EXAMINES EACH JETFAIL BIT 00032 READ 32 # AND IF A FAILURE IS INDICATED THE CORRES 40000 COM # PONDING COMMANDS ARE MASKED OUT . 55403 TS JFBUF # SAVE 32 REINVERTED. 37656 CAF SEVEN 06,2135 55404 JF3 TS FCNTR 31403 CAE JFBUF 51404 NDX FCNTR 77643 MASK BIT8 10000 CCS A 02161 TC JFAIL >016605,000157: 06,2143 11404 JFAIL1 CCS FCNTR 02135 TC JF3 31401 CAE XJBUF 00006 EXTEND 01005 WRITE 5 # XJETS GO ON. 31402 CAE YZJBUF 00006 EXTEND 01006 WRITE 6 # YZJETS GO ON. 51407 NDX JETSTEP 31460 CAE JETOFFTM # JET OFF TIME SCALED FOR T3. 04451 TC WAITLIST EBANK= JETSTEP 02077 14004 2CADR JETOFF 04505 TC TASKOVER /a>016621,000173: 06,2161 51404 JFAIL NDX FCNTR 42204 CS XJETMASK 71401 MASK XJBUF 55401 TS XJBUF 51404 NDX FCNTR 42174 CS YZJETMSK 71402 MASK YZJBUF 55402 TS YZJBUF 05315 TC ALARM 01410 OCT 01410 # TEMPORARY JET FAIL ALARM CODE. 02143 TC JFAIL1 34B">016633,000185: 06,2174 00010 YZJETMSK OCT 00010 # JET 11 00020 OCT 00020 # JET 12 00004 OCT 00004 # JET 15 00200 OCT 00200 # JET 16 00001 OCT 00001 # JET 7 00002 OCT 00002 # JET 3 00040 OCT 00040 # JET 8 00100 OCT 00100 # JET 4 34B">016642,000194: 06,2204 00040 XJETMASK OCT 00040 # JET 10 00020 OCT 00020 # JET 9 00100 OCT 00100 # JET 13 00200 OCT 00200 # JET 14 00010 OCT 00010 # JET 6 00001 OCT 00001 # JET 1 00004 OCT 00004 # JET 5 00002 OCT 00002 # JET 2 # LEM FCS TEST ENGINE ON - OFF TASK # THIS TASK TURNS THE LEM ASCENT OR DESCENT ENGINE ON AND OFF ACCORDING TOTHE CONSTANTS STORED IN THE FIVE SETS OF # REGISTERS, (1) CYLTIMES, WHICH CONTAINS THE NUMBER OF TIMES A PARTICULARSTEP WILL BE REPEATED, (2) NEXTCYLT, # WHICH CONTAINS THE TIME BETWEEN STEPS SCALED FOR T3, (3) ONTIME, WHICH CONTAINS THE TIME TO TURN THE ENGINE ON # WHICH ALSO DETERMINES THE LENGTH OF TIME THE ENGIME WILL BE OFF WITHIN A SERIES OF ON:OFF CYCLES, (4) OFFTIME, # WHICH CONTAINS THE NUMBER OF 2 MINUTES BEFORE THE ENGINE WILL BE TURNED OFF, AND (5) OFFTIMER, WHICH # CONTAINS THE RESIDUAL TIME BEFORE THE ENGINE WILL BE TURNED OFF. OFFTIME AND OFFTIMER DETERMINE THE LENGTH # OF TIME THE ENGINE WILL BE ON IN ANY ONE CYCLE. THERE ARE THREE SETS OF THESE REGISTERS. # THE ENGSTEP REGISTER IS USED AS AN INDEX TO PICK UP A PARTICULAR SET OF THE ABOVE 5 REGISTERS. THIS TASK # WILL BE ENTERED BUT IMMEDIATELY ENDED IF ENGSTEP AND CYLTIMES = +0. THE ALLOWABLE VALUES OF ENGSTEP ARE +0, # 1 AND 2. 646">016663,000215: 06,2214 11470 NXTONOFF CCS ENGSTEP 02217 TC +2 04505 TC TASKOVER # EXIT HERE WHEN STEP AND CYL ARE +0. 55470 TS ENGSTEP # ONE LESS. 254">016668,000220: 06,2220 51470 ENGSTART NDX ENGSTEP # ENTER HERE. 11471 CCS CYLTIMES # NUM OF EACH ON/OFF SET 02224 TC +2 02214 TC NXTONOFF # NO MORE OF THIS SET 51470 NDX ENGSTEP 31474 CAE NEXTCYLT # START OF NEXT CYCLE. 04451 TC WAITLIST EBANK= ENGSTEP 02250 14004 2CADR ENGONTM 04505 TC TASKOVER 554">016680,000232: 06,2232 44441 ENGRESET CS PRIO30 # BITS 13 AND 14. 00006 EXTEND 02011 RAND 11 67635 AD BIT14 00006 EXTEND 01011 WRITE 11 # ENG ON = 0, ENG OFF = 1. 51470 NDX ENGSTEP 11471 CCS CYLTIMES 10000 CCS A 02245 TC +2 02214 TC NXTONOFF # WAS ONE. 67652 AD ONE # WAS MORE THAN ONE. 51470 NDX ENGSTEP 55471 TS CYLTIMES D">016695,000247: 06,2250 51470 ENGONTM NDX ENGSTEP 31502 CAE OFFTIME 55406 TS OFFTMBUF 51470 NDX ENGSTEP 31477 CAE ONTIME 04451 TC WAITLIST EBANK= ENGSTEP 02261 14004 2CADR ENGSET 04505 TC TASKOVER >016706,000258: 06,2261 44441 ENGSET CS PRIO30 00006 EXTEND 02011 RAND 11 67636 AD BIT13 00006 EXTEND 01011 WRITE 11 # ENG ON = 1, ENG OFF = 0. >016712,000264: 06,2267 11406 ENGRST CCS OFFTMBUF 02277 TC LTIMEON # AT LEAST 2MIN. BEFORE ENGINE OFF. 51470 NDX ENGSTEP 31505 CAE OFFTIMER # LESS THAN 2MIN. TO ENGINE OFF. 04451 TC WAITLIST EBANK= ENGSTEP 02232 14004 2CADR ENGRESET 04505 TC TASKOVER E">016722,000274: 06,2277 11406 LTIMEON CCS OFFTMBUF # IS THERE ANY MORE. 02302 TC +2 # YES. 02267 TC ENGRST # NO. 55406 TS OFFTMBUF 32310 CAF 2MIN 04451 TC WAITLIST EBANK= ENGSTEP 02277 14004 2CADR LTIMEON 04505 TC TASKOVER >016733,000285: 06,2310 27340 2MIN DEC 12000 B-14 # LEM FCS TEST TRIM TASK # THIS PROGRAM ISSUES A PROFILE OF PITCH AND ROLL TRIM COMMANDS TO THE LEM DESCENT ENGINE GIMBAL IN ACCORDANCEWITH # THE VALUE S IN THE TRIMSTEP REGISTER AND THE 12 SETS OF 5 REGISTERS CALLED NUMTIMES, STEPDLYT, TRIMONT, TRIMOFFT # AND TRIMIND. TRIMSTEP IS USED TO PICK UP A PARTICULAR SET OF THE 5 REGISTERS AND HAS ALLOWABLE VALUES FROM +0 # THROUGH +11 DECIMAL. THE 5 REGISTERS IN EACH SET ARE DEFINED AS FOLLOWS # (1) NUMTIMES DETERMINES THE NUMBER OF TIMES THE COMMAND IN TRIMIND WILL BE ISSUED. VALUES FROM +0 TO # OCT 37777 ARE PERMITTED. # (2) STEPDLYT DETERMINES THE TIME BETWEEN THE START OF A STEP AND THE BEGINNING OF TRIMONT. STEPDLYT MUST BE # FORMATTED FOR T3, ITS MAXIMUM VALUE IS 2 MINUTES. # (3) TRIMONT DETERMINES THE TIME BETWEEN THE END OF STEPDLYT OR TRIMOFFT AND THE TIME THE TRIM COMMANDS ARE # ISSUED. IT MUST BE FORMATTED FOR T3. # (4) TRIMOFFT DETERMINES THE LENGTH OF TIME THE TRIM COMMAND WILL BE ON, FORMATTED FOR T3. # (5) TRIMIND DETERMINES THE PITCH AND ROLL COMMAND TO BE ISSUED. THE FORMAT IS, BIT9=1=+ PITCH COMMAND, # BIT10=1=-PITCH, BIT11=1= +ROLL, BIT12=1= -ROLL. A BIT=0 INDICATES NO COMMAND. ANY COMBINATION OF COMMANDS IS # PERMITTED. # THIS TASK WILL BE ENTERED BUT IMMEDIATELY ENDED IF TRIMSTEP AND NUMTIMES = +0. 94D">016753,000305: 06,2311 11510 NEXTTRIM CCS TRIMSTEP 02314 TC +2 04505 TC TASKOVER # EXIT HERE. 55510 TS TRIMSTEP # LESS ONE. 0">016758,000310: 06,2315 51510 TRIMTOP NDX TRIMSTEP # ENTER HERE. 11511 CCS NUMTIMES 02321 TC +2 02311 TC NEXTTRIM 51510 NDX TRIMSTEP 31525 CAE STEPDLYT 04451 TC WAITLIST EBANK= TRIMSTEP 02342 14004 2CADR TRIMSET 04505 TC TASKOVER 6">016770,000322: 06,2327 42426 TRIMOFF CS TRIMMASK 00006 EXTEND 03012 WAND 12 # TRIM GOES OFF. 0">016773,000325: 06,2332 51510 NUMSTEP NDX TRIMSTEP 11511 CCS NUMTIMES 10000 CCS A 02337 TC +2 02311 TC NEXTTRIM # WAS ONE. 67652 AD ONE 51510 NDX TRIMSTEP 55511 TS NUMTIMES 4">016781,000333: 06,2342 51510 TRIMSET NDX TRIMSTEP 31541 CAE TRIMONT 04451 TC WAITLIST EBANK= TRIMSTEP 02350 14004 2CADR TRIMON 04505 TC TASKOVER >016789,000341: 06,2350 32425 TRIMON CAF BITS9,10 # CHECK PITCH AND ROLL TRIM FAIL BITS. 00006 EXTEND 06032 RXOR 32 72425 MASK BITS9,10 00006 EXTEND 12363 BZF TRIMON1 34446 CAF PRIO35 # FAIL IS ON. FLASH FAIL CODE (01400) AND 04276 TC NOVAC # IDLE UNTIL SOMEONE RESETS IT, TERMINATES 02376 14004 2CADR PERFORM # THE TASK, OR DECIDES TO PROCEED WITH IT. 04505 TC TASKOVER 1">016801,000353: 06,2363 51510 TRIMON1 NDX TRIMSTEP 31571 CAE TRIMIND 72426 MASK TRIMMASK # SAFETY PLAY 00006 EXTEND 05012 WOR 12 # TRIM STARTS. 51510 NDX TRIMSTEP 31555 CAE TRIMOFFT 04451 TC WAITLIST EBANK= TRIMSTEP 02327 14004 2CADR TRIMOFF 04505 TC TASKOVER D">016814,000366: 06,2376 05221 PERFORM TC GRABWAIT # KEY RELEASE MAY COME ON. 32425 CAF TRIMCODE # 01400 54333 TS DSPTEM1 32427 CAF V01N25K 05234 TC NVSBWAIT 32430 CAF V50K # PLEASE PERFORM. 05234 TC NVSBWAIT 05176 TC FLASHON # ANY RESPONSE TURNS IT OFF. 05042 TC ENDIDLE # WAIT FOR SOMEONE TO DO SOMETHING. 04352 TC EJFREE # V34E. TERMINATE THE TASK. 02417 TC TR1 # V33E. PROCEED WITH THE FAIL ON. 00004 INHINT # ENTER. THE FAIL HAS BEEN RESET. 37651 CAF BIT2 # 20MS. 04451 TC WAITLIST 02350 14004 2CADR TRIMON # CHECK AGAIN TO BE SURE. THEN PROCEED.. 04352 TC EJFREE 06,2417 00004 TR1 INHINT # PROCEED WITH THE FAIL. 37651 CAF BIT2 # 20MS. 04451 TC WAITLIST 02363 14004 2CADR TRIMON1 # BYPASS THE RECHECK. 04352 TC EJFREE 130">016839,000391: 06,2425 01400 BITS9,10 OCT 01400 445">016840,000392: 06,2426 06,2425 TRIMCODE EQUALS BITS9,10 34B">016841,000393: 06,2426 07400 TRIMMASK OCT 07400 B">016842,000394: 06,2427 00125 V01N25K OCT 00125 >016843,000395: 06,2430 05000 V50K OCT 05000 # LEM FCS TEST THROTTLE TASK # THIS PROGRAM ISSUES A PROFILE OF THROTTLE COMMANDS TO THE LEM DESCENT ENGINE. THE PROFILE IS DETERMINED BY # THE VALUES IN THE THRTSTEP REGISTER AND THE 6 SETS OF REGISTERS, 5 PER SET, CALLED DOTIMES, DELAY, THR1TIME, # THCOMM1 AND THCOMM2. THE THRTSTEP REGISTER VALUE IS USED TO INDEX THE 6 SETS OF 5 REGISTERS AND HAS ALLOWABLE # VALUES OF +0 THROUGH +5. THE 5 REGISTERS PER SET ARE DEFINED AS FOLLOWS # (1) DOTIMES DETERMINES THE NUMBER OF TIMES THE THROTTLE WILL BE EXERCISED AS PER THE VALUES OF THR1TIME, # THCOMM1 AND THCOMM2 OF THE CURRENT STEP. IT HAS ALLOWABLE VALUES OF +0 THROUGH 37777 OCT. # (2) DELAY DETERMINES THE TIME BETWEEN THE START OF A STEP AND THE BE GINNING OF THR1TIME. ITIS CALLED ONLY # ONCE PER STEP,I.E., REPEATS OF THE SAME THCOMM1 AND THCOMM2 START AT THR1TIME. DELAY MUST BE FORMATTED FOR T3 # AND HENCE HAS A MAXIMUM VALUE OF 2 MINUTES. # (3) THR1TIME DETERMINES THE TIME BETWEEN THE END OF DELAY OR THE END OF THCOMM2 AND THE START OF # THCOMM1. IT MUST BE FORMATTED FOR T3. # (4) THCOMM1 AND (5) THCOMM2 DETERMINE THE NUMBER OF THRUST INCREASE OR DECREASE PULSES TOBE ISSUED AT A # 3.2KPPS RATE. THE RANGE OF POSSIBLE VALUES OF EITHER IS FROM POSMAX (OCT 37777) TO NEGMAX (OCT 40000) ALTHOUGH # THE ACTUAL THROTTLE RANGE IS FROM OCT 6116 TO OCT 71661 (+,- 3150 DEC). # THIS TASK WILL BE ENTERED BUT IMMEDIATELY ENDED IF THE INITIAL VALUES OF THRTSTEP AND DOTIMES ARE +0. 254">016863,000415: 06,2431 11605 NEXTTHRT CCS THRTSTEP 02434 TC +2 04505 TC TASKOVER # EXIT HERE. 55605 TS THRTSTEP 254">016868,000420: 06,2435 51605 THRSTART NDX THRTSTEP # ENTER HERE. 11606 CCS DOTIMES # NUMBER OF TIMES COMMANDS 1 AND 2 DONE. 02441 TC +2 02431 TC NEXTTHRT 51605 NDX THRTSTEP 31614 CAE DELAY # TIME BETWEEN STEPS. BIAS FOR THR1TIME. # MUST BE SCALED FOR T3. 04451 TC WAITLIST EBANK= THRTSTEP 02467 14004 2CADR THROTON1 04505 TC TASKOVER D4D">016881,000433: 06,2447 51605 THR2COMM NDX THRTSTEP 31636 CAE THCOMM2 # SAME REMARKS AS FOR THCOMM1. 02505 TC THROTON 67652 AD BIT1 # 10MS IN CASE OF NO THCOMM2. 04451 TC WAITLIST EBANK= THRTSTEP 02457 14004 2CADR CKDOTIME 04505 TC TASKOVER D45">016891,000443: 06,2457 51605 CKDOTIME NDX THRTSTEP 11606 CCS DOTIMES 10000 CCS A 02464 TC +2 02431 TC NEXTTHRT # WAS ONE. 67652 AD ONE 51605 NDX THRTSTEP 55606 TS DOTIMES E31">016899,000451: 06,2467 51605 THROTON1 NDX THRTSTEP 31622 CAE THR1TIME # TIME BETWEEN DOTIMES. SCALED FOR T3. 04451 TC WAITLIST EBANK= THRTSTEP 02475 14004 2CADR THR1COMM 04505 TC TASKOVER D4D">016907,000459: 06,2475 51605 THR1COMM NDX THRTSTEP 31630 CAE THCOMM1 # SHOULD BE NO LARGER THAN 3150DEC. 02505 TC THROTON 62522 AD 250MS # SO ACE CAN SAMPLE. 04451 TC WAITLIST EBANK= THRTSTEP 02447 14004 2CADR THR2COMM 04505 TC TASKOVER E">016917,000469: 06,2505 54055 THROTON TS THRUST # THROTTLE OUTPUT COUNTER. 55405 TS THBUF # SAVE FOR BZMF. 37647 CAF BIT4 00006 EXTEND 05014 WOR 14 # ENABLE THRUST DRIVE. COMMAND STARTS NOW 31405 CAE THBUF 00006 EXTEND 62516 BZMF +2 40000 COM 40000 COM 00006 EXTEND 77641 MP BIT10 # SCALES FOR T3. 00002 TC Q /a>016931,000483: 06,2522 00031 250MS OCT 00031 # LEM FCS TEST INTERFACE LOOK TASK. # THIS PROGRAM KEEPS A RUNNING HISTORY OF THE STATE OF ALL THE BITS IN INPUT CHANNELS 30, 31, 32 AND 33. # IT DOES THIS BY DETECTING A CHANGE OF AN INPUT BIT FROM AN INITIAL ONE STATE TO A ZERO STATE OR FROM AN INITIAL # ZERO TO A ONE. THE HISTORY IS MAINTAINED IN TWO BUFFER REGISTERS FOR EACH CHANNEL, ONE FOR STORING ONE TO ZERO # CHANGES (30BUF1, +1, +2, AND +3) AND ONE FOR ZERO TO ONE CHANGES (30BUF0, +1 +2 AND +3). THE OPERATOR MUST # LOAD THE INITIAL STATES OF THE INPUT CHANNELS INTO THEIR RESPECTIVE BUFFER REGISTERS BEFORE THIS PROGRAM IS IN- # ITIATED. # TO ALLOW THIS PROGRAM TO RUN C(QUITLOOK) MUST BE SET GREATER THAN +0 BEFORE IT IS STARTED. IF THE OPERATOR # DOES NOT DESIRE THIS PROGRAM TO RUN HE SHOULD SET C(QUITLOOK)=+0 BEFORE STARTING THE FCS TEST. AFTER THIS TASK # IS RUNNING THE OPERATOR CAN STOP IT BY SETTING C(QUITLOOK) = +0. # NO DISPLAYS OF EITHER THE BUFFER REGISTERS OR CHANNELS ARE INCORPORATED INTO THIS PROGRAM. THIS WAS DONE TO # ALLOW THE TEST OPERATOR MONITORING FLEXIBILITY. FOR REAL TIME MONITORING IT IS SUGGESTED THAT THE BUFFER # REGISTERS BE DISPLAYED WITH THE MONITOR VERBS (11 THROUGH 15). ON THE OTHER HAND, THE OPERATOR MAY ELECT TO # PERFORM NO REAL TIME MONITORING UNTIL THE TEST IS COMPLETED, WHEN THE BUFFER REGISTERS WOULD BE CALLED FOR # DISPLAY (VERB 01) AND RECORDED. # THIS PROGRAM IS PRIMARILY INTENDED FOR INTERFACE MONITORING DURING THE LEM VIBRATION TEST AT BETHPAGE, N.Y., # ALTHOUGH IT MAY ALSO BE USEFUL DURING VEHICAL LEVEL EMI TESTS. 0">016952,000504: 06,2523 11654 LOOKTOP CCS QUITLOOK # IS THIS TASK WANTED. 02526 TC +2 # YES. 04505 TC TASKOVER # NO. 36165 CAF THREE # START SCAN OF CHANNELS. F50">016956,000508: 06,2527 55655 LOOKLOOP TS CHCNTR # 3, 2, 1, 0. 51655 NDX CHCNTR 31644 CAE 30BUF1 00006 EXTEND 51655 NDX CHCNTR 02030 RAND 30 # DETECTS CHANGES FROM 1 TO 0. 51655 NDX CHCNTR 57644 XCH 30BUF1 # STORE NEW ZEROS. 51655 NDX CHCNTR 31650 CAE 30BUF0 00006 EXTEND 51655 NDX CHCNTR 04030 ROR 30 # DETECTS CHANGES FROM 0 TO 1. 51655 NDX CHCNTR 57650 XCH 30BUF0 # STORE NEW ONES. 11655 CCS CHCNTR # IS THIS SCAN DONE. 02527 TC LOOKLOOP # NO. 37654 CAF TEN # YES. 100MS RECALL. 04451 TC WAITLIST EBANK= QUITLOOK 02523 14004 2CADR LOOKTOP 04505 TC TASKOVER 353">016979,000531: 06,2555 ENDLFCSS = LEM_FLIGHT_CONTROL_SYSTEM_TEST.agc. Parent file is MAIN.agc