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.

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