Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

015103,000002:                                                                                                  ## Copyright:   Public domain.
015104,000003:                                                                                                  ## Filename:    LEM_FLIGHT_CONTROL_SYSTEM_TEST.agc
015105,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It 
015106,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
015107,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
015108,000007:                                                                                                  ## Assembler:   yaYUL
015109,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
015110,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
015111,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
015112,000011:                                                                                                  ##              2016-10-18 RSB  Corrected against AURORA 12 version,
015113,000012:                                                                                                  ##                              with which it is seemingly identical other than
015114,000013:                                                                                                  ##                              a handful of comments and EBANK= placements.
015115,000014:                                                                                                  ##              2016-12-05 RSB  Comment-proofing with octopus/ProoferComments
015116,000015:                                                                                                  ##                              completed, changes made.
015117,000016:                                                                                                  ##              2017-06-05 MAS  Made comment corrections found during Sunburst 37
015118,000017:                                                                                                  ##                              transcription.
015119,000018: 

Page 367

015121,000020: 06,2736                                           BANK     6                                     
015122,000021: 06,2736  E4,1407                                  EBANK=   JETSTEP                               
015123,000022: 
015124,000023:                                                                                                  #  LEM FCS TEST  ENTRY AND INITIALIZATION JOB.
015125,000024: 
015126,000025:                                                                                                  #        THIS JOB INITIALIZES THE ERASABLE TABLES FOR THE FCS TEST AND PUTS THE FOLLOWING PROGRAMS UNDER
015127,000026:                                                                                                  #  WAITLIST CONTROL.
015128,000027:                                                                                                  #             (1) RCS JET SET TASK
015129,000028:                                                                                                  #             (2) ENGINE ON - OFF TASK
015130,000029:                                                                                                  #             (3) DESCENT ENGINE GIMBAL TRIM TASK
015131,000030:                                                                                                  #             (4) DESCENT ENGINE THROTTLE TASK
015132,000031:                                                                                                  #             (5) INTERFACE CHANNEL LOOK TASK
015133,000032: 
015134,000033: 
015135,000034: 06,2736           04644        FCSSTART           TC       GRABWAIT                              #  SO NOTHING DISRUPTS THE LOAD.
015136,000035: 06,2737           33012                           CAF      JSTEPADR                              #  THE START OF THE LIST.
015137,000036: 06,2740           10000        FCS3               CCS      A                                     
015138,000037: 06,2741           54146                           TS       MPAC       +2                         
015139,000038: 06,2742           33015        FCS2               CAF      V04N01K                               #  DISPLAY PRESENT CONTENTS IN R2.
015140,000039: 06,2743           04657                           TC       NVSBWAIT                              
015141,000040: 06,2744           24146                           INCR     MPAC       +2                         
015142,000041: 06,2745           33013                           CAF      V21N02K                               
015143,000042: 06,2746           04657                           TC       NVSBWAIT                              #  IN CASE IT,S BUSY BUT IT SHOULDN,T BE.
015144,000043: 06,2747           04475                           TC       ENDIDLE                               #  WHILE LOADING.
015145,000044: 06,2750           02753                           TC       +3                                    #  V34E. TERMINATE LOAD OF THIS LIST
015146,000045:                                                                                                  #  SECTION, GO TO NEW SECTION OR TO TEST.
015147,000046: 06,2751           02752                           TC       +1                                    #  V33E. PRESENT CONTENTS OK, PROCEED TO
015148,000047:                                                                                                  #  NEXT LOCATION IN LIST.
015149,000048: 06,2752           02742                           TC       FCS2                                  
015150,000049: 06,2753           33014                           CAF      V21N30K                               
015151,000050: 06,2754           04657                           TC       NVSBWAIT                              
015152,000051: 06,2755           04475                           TC       ENDIDLE                               
015153,000052: 06,2756           05566                           TC       EJFREE                                
015154,000053: 06,2757           02762                           TC       FCSTEST1                              #  PROCEED TO TEST.
015155,000054: 06,2760           30337                           CAE      DSPTEM1                               #  NEW ADDRESS.
015156,000055: 06,2761           02740                           TC       FCS3                                  
015157,000056: 06,2762           33016        FCSTEST1           CAF      V47K                                  
015158,000057: 06,2763           04657                           TC       NVSBWAIT                              #  OUR VERB IN THE LIGHTS.
015159,000058: 06,2764           00004        FCSTEST            INHINT                                         
015160,000059: 06,2765           37762                           CAF      TWO                                   #  20MS.
015161,000060: 06,2766           05663                           TC       WAITLIST                              
015162,000061: 06,2767  E4,1407                                  EBANK=   JETSTEP                               
015163,000062: 06,2767           03023 14064                     2CADR    JETSTART                              
015164,000063: 
015165,000064: 06,2771           37763                           CAF      BIT1                                  #  10MS.
015166,000065: 06,2772           05663                           TC       WAITLIST                              
015167,000066: 06,2773  E4,1407                                  EBANK=   JETSTEP                               

Page 368

015169,000068: 06,2773           03156 14064                     2CADR    ENGSTART                              
015170,000069: 
015171,000070: 06,2775           36311                           CAF      THREE                                 #  30MS.
015172,000071: 06,2776           05663                           TC       WAITLIST                              
015173,000072: 06,2777  E4,1407                                  EBANK=   JETSTEP                               
015174,000073: 06,2777           03253 14064                     2CADR    TRIMTOP                               
015175,000074: 
015176,000075: 06,3001           37761                           CAF      FOUR                                  #  40MS.
015177,000076: 06,3002           05663                           TC       WAITLIST                              
015178,000077: 06,3003  E4,1407                                  EBANK=   JETSTEP                               
015179,000078: 06,3003           03373 14064                     2CADR    THRSTART                              
015180,000079: 
015181,000080: 06,3005           37766                           CAF      FIVE                                  #  50MS.
015182,000081: 06,3006           05663                           TC       WAITLIST                              
015183,000082: 06,3007  E4,1407                                  EBANK=   JETSTEP                               
015184,000083: 06,3007           03461 14064                     2CADR    LOOKTOP                               
015185,000084: 
015186,000085: 06,3011           05566                           TC       EJFREE                                #  NOW THEY START.
015187,000086: 
015188,000087: 06,3012           02007        JSTEPADR           ECADR    JETSTEP                               
015189,000088: 06,3013           02102        V21N02K            OCT      02102                                 
015190,000089: 06,3014           02130        V21N30K            OCT      02130                                 
015191,000090: 06,3015           00401        V04N01K            OCT      00401                                 
015192,000091: 06,3016           04700        V47K               OCT      04700                                 
015193,000092: 

Page 369

015195,000094:                                                                                                  #  LEM FCS TEST   RCS JETSET TASK
015196,000095:                                                                                                  #      THIS JOB ISSUES A PROFILE OF  JET ON-OFF SIGNALS AS DETERMINED BY THE CONSTANTS IN A SET OF SIX REGISTERS.
015197,000096:                                                                                                  #  THE SIX REGISTERS ARE, (1) NTIMES, THE NUMBER OF TIMES A PARTICULAR STEP WILL BE PERFORMED. (2) NEXTTIME, THE
015198,000097:                                                                                                  #  TIME BETWEEN STEPS, A MAXIMUM OF 2 MINUTES, (3) JETONTM, THE TIME TO TURN THE JETS ON, SCALED FOR T3, (4) JET-
015199,000098:                                                                                                  #  OFFTM, THE TIME AFTER ONTM TO TURN THE JETS OFF, (5) XJETS, THE PARTICULAR X JETS TO BE TURNED ON AND OFF
015200,000099:                                                                                                  #  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
015201,000100:                                                                                                  #  STEP.  XJETS AND YZJETS MUST BE IN THE SAME FORMAT AS CHANNELS 5 AND6 RESPECTIVELY.  THERE ARE EIGHT SETS OF
015202,000101:                                                                                                  #  THESE SIX REGISTERS.
015203,000102:                                                                                                  #      THE REGISTER JETSTEP IS USED TO INDEX THE 8 SETS OF REGISTERS, THE ALLOWABLE VALUES OF JETSTEP ARE +0 THRU 7
015204,000103:                                                                                                  #      THIS JOB WILL BE ENTERED BUT IMMEDIATELY ENDED IF THE INITIAL VALUES OF JETSTEP AND NTIMES ARE +0.
015205,000104: 
015206,000105: 
015207,000106: 06,3017           11407        NEXTSET            CCS      JETSTEP                               #  IT MAY BE ZERO.
015208,000107: 06,3020           03022                           TC       +2                                    #  NOPE
015209,000108: 06,3021           05727                           TC       TASKOVER                              #  IT IS SO WE ARE DONE WITH THIS TASK.
015210,000109: 06,3022           55407                           TS       JETSTEP                               
015211,000110: 
015212,000111: 06,3023           51407        JETSTART           NDX      JETSTEP                               #  ENTER HERE.
015213,000112: 06,3024           11410                           CCS      NTIMES                                #  SEE IF THIS STEP IS FINISHED.
015214,000113: 06,3025           03027                           TC       +2                                    #  NO
015215,000114: 06,3026           03017                           TC       NEXTSET                               #  YES
015216,000115: 06,3027           51407                           NDX      JETSTEP                               
015217,000116: 06,3030           31420                           CAE      NEXTTIME                              #  MUST BE SCALED FOR T3.  REMEMBER TO BIAS
015218,000117:                                                                                                  #  THIS FOR ON TIME.
015219,000118: 06,3031           05663                           TC       WAITLIST                              
015220,000119: 06,3032  E4,1407                                  EBANK=   JETSTEP                               
015221,000120: 06,3032           03046 14064                     2CADR    JTOP                                  
015222,000121: 
015223,000122: 06,3034           05727                           TC       TASKOVER                              
015224,000123: 
015225,000124: 06,3035           37767        JETOFF             CAF      ZERO                                  
015226,000125: 06,3036           00006                           EXTEND                                         
015227,000126: 06,3037           01005                           WRITE    5                                     
015228,000127: 06,3040           00006                           EXTEND                                         
015229,000128: 06,3041           01006                           WRITE    6                                     
015230,000129: 06,3042           51407                           NDX      JETSTEP                               
015231,000130: 06,3043           11410                           CCS      NTIMES                                
015232,000131: 06,3044           51407                           NDX      JETSTEP                               
015233,000132: 06,3045           55410                           TS       NTIMES                                #  ONE LESS TIME.
015234,000133: 06,3046           51407        JTOP               NDX      JETSTEP                               
015235,000134: 06,3047           11410                           CCS      NTIMES                                #  FOR LOOPING.
015236,000135: 06,3050           03052                           TC       +2                                    
015237,000136: 06,3051           03017                           TC       NEXTSET                               
015238,000137: 06,3052           51407                           NDX      JETSTEP                               
015239,000138: 06,3053           31430                           CAE      JETONTM                               #  SCALED FOR T3.  TIME FOR JETS ON.
015240,000139: 06,3054           05663                           TC       WAITLIST                              
015241,000140: 06,3055  E4,1407                                  EBANK=   JETSTEP                               
015242,000141: 06,3055           03060 14064                     2CADR    JETON                                 
015243,000142: 

Page 370

015245,000144: 06,3057           05727                           TC       TASKOVER                              
015246,000145: 
015247,000146: 06,3060           51407        JETON              NDX      JETSTEP                               
015248,000147: 06,3061           31440                           CAE      XJETS                                 #  MUST BE IN CHANNEL 5 FORMAT.
015249,000148: 06,3062           55401                           TS       XJBUF                                 
015250,000149: 06,3063           51407                           NDX      JETSTEP                               
015251,000150: 06,3064           31450                           CAE      YZJETS                                #  MUST BE IN CHANNEL 6 FORMAT.
015252,000151: 06,3065           55402                           TS       YZJBUF                                
015253,000152: 06,3066           00006        JFAILCK            EXTEND                                         #  THIS ROUTINE EXAMINES EACH JETFAIL BIT
015254,000153: 06,3067           00032                           READ     32                                    #  AND IF A FAILURE IS INDICATED THE CORRES
015255,000154: 06,3070           40000                           COM                                            #  PONDING COMMANDS ARE MASKED OUT .
015256,000155: 06,3071           55403                           TS       JFBUF                                 #  SAVE 32 REINVERTED.
015257,000156: 06,3072           37765                           CAF      SEVEN                                 
015258,000157: 06,3073           55404        JF3                TS       FCNTR                                 
015259,000158: 06,3074           31403                           CAE      JFBUF                                 
015260,000159: 06,3075           51404                           NDX      FCNTR                                 
015261,000160: 06,3076           77754                           MASK     BIT8                                  
015262,000161: 06,3077           10000                           CCS      A                                     
015263,000162: 06,3100           03117                           TC       JFAIL                                 
015264,000163: 06,3101           11404        JFAIL1             CCS      FCNTR                                 
015265,000164: 06,3102           03073                           TC       JF3                                   
015266,000165: 06,3103           31401                           CAE      XJBUF                                 
015267,000166: 06,3104           00006                           EXTEND                                         
015268,000167: 06,3105           01005                           WRITE    5                                     #  XJETS GO ON.
015269,000168: 06,3106           31402                           CAE      YZJBUF                                
015270,000169: 06,3107           00006                           EXTEND                                         
015271,000170: 06,3110           01006                           WRITE    6                                     #  YZJETS GO ON.
015272,000171: 06,3111           51407                           NDX      JETSTEP                               
015273,000172: 06,3112           31460                           CAE      JETOFFTM                              #  JET OFF TIME SCALED FOR T3.
015274,000173: 06,3113           05663                           TC       WAITLIST                              
015275,000174: 06,3114  E4,1407                                  EBANK=   JETSTEP                               
015276,000175: 06,3114           03035 14064                     2CADR    JETOFF                                
015277,000176: 
015278,000177: 06,3116           05727                           TC       TASKOVER                              
015279,000178: 
015280,000179: 06,3117           51404        JFAIL              NDX      FCNTR                                 
015281,000180: 06,3120           43142                           CS       XJETMASK                              
015282,000181: 06,3121           71401                           MASK     XJBUF                                 
015283,000182: 06,3122           55401                           TS       XJBUF                                 
015284,000183: 06,3123           51404                           NDX      FCNTR                                 
015285,000184: 06,3124           43132                           CS       YZJETMSK                              
015286,000185: 06,3125           71402                           MASK     YZJBUF                                
015287,000186: 06,3126           55402                           TS       YZJBUF                                
015288,000187: 06,3127           04755                           TC       ALARM                                 
015289,000188: 06,3130           01410                           OCT      01410                                 #  TEMPORARY JET FAIL ALARM CODE.
015290,000189: 06,3131           03101                           TC       JFAIL1                                
015291,000190: 

Page 371

015293,000192: 06,3132           00010        YZJETMSK           OCT      00010                                 #  JET 11
015294,000193: 06,3133           00020                           OCT      00020                                 #  JET 12
015295,000194: 06,3134           00004                           OCT      00004                                 #  JET 15
015296,000195: 06,3135           00200                           OCT      00200                                 #  JET 16
015297,000196: 06,3136           00001                           OCT      00001                                 #  JET 7
015298,000197: 06,3137           00002                           OCT      00002                                 #  JET 3
015299,000198: 06,3140           00040                           OCT      00040                                 #  JET 8
015300,000199: 06,3141           00100                           OCT      00100                                 #  JET 4
015301,000200: 
015302,000201: 06,3142           00040        XJETMASK           OCT      00040                                 #  JET 10
015303,000202: 06,3143           00020                           OCT      00020                                 #  JET 9
015304,000203: 06,3144           00100                           OCT      00100                                 #  JET 13
015305,000204: 06,3145           00200                           OCT      00200                                 #  JET 14
015306,000205: 06,3146           00010                           OCT      00010                                 #  JET 6
015307,000206: 06,3147           00001                           OCT      00001                                 #  JET 1
015308,000207: 06,3150           00004                           OCT      00004                                 #  JET 5
015309,000208: 06,3151           00002                           OCT      00002                                 #  JET 2
015310,000209: 

Page 372

015312,000211:                                                                                                  #  LEM FCS TEST  ENGINE ON - OFF TASK
015313,000212:                                                                                                  #  THIS TASK TURNS THE LEM ASCENT OR DESCENT ENGINE ON AND OFF ACCORDING TOTHE CONSTANTS STORED IN THE FIVE SETS OF
015314,000213:                                                                                                  #  REGISTERS, (1) CYLTIMES, WHICH CONTAINS THE NUMBER OF TIMES A PARTICULARSTEP WILL BE REPEATED, (2) NEXTCYLT,
015315,000214:                                                                                                  #   WHICH CONTAINS THE TIME BETWEEN STEPS SCALED FOR T3, (3) ONTIME, WHICH CONTAINS THE TIME TO TURN THE ENGINE ON
015316,000215:                                                                                                  #  WHICH ALSO DETERMINES THE LENGTH OF TIME THE ENGIME WILL BE OFF WITHIN A SERIES OF ON:OFF CYCLES, (4) OFFTIME,
015317,000216:                                                                                                  #   WHICH CONTAINS THE NUMBER OF 2 MINUTES BEFORE THE ENGINE WILL BE TURNED OFF, AND (5) OFFTIMER, WHICH
015318,000217:                                                                                                  #  CONTAINS THE RESIDUAL TIME BEFORE THE ENGINE WILL BE TURNED OFF.  OFFTIME AND OFFTIMER DETERMINE THE LENGTH
015319,000218:                                                                                                  #  OF TIME THE ENGINE WILL BE ON IN ANY ONE CYCLE. THERE ARE THREE SETS OF THESE REGISTERS.
015320,000219:                                                                                                  #      THE ENGSTEP REGISTER IS USED AS AN INDEX TO PICK UP A PARTICULAR SET  OF THE ABOVE 5 REGISTERS.  THIS TASK
015321,000220:                                                                                                  #  WILL BE ENTERED BUT IMMEDIATELY ENDED IF ENGSTEP AND CYLTIMES = +0.     THE ALLOWABLE VALUES OF ENGSTEP ARE +0,
015322,000221:                                                                                                  #  1 AND 2.
015323,000222: 
015324,000223: 
015325,000224: 06,3152           11470        NXTONOFF           CCS      ENGSTEP                               
015326,000225: 06,3153           03155                           TC       +2                                    
015327,000226: 06,3154           05727                           TC       TASKOVER                              #  EXIT HERE WHEN STEP AND CYL ARE +0.
015328,000227: 06,3155           55470                           TS       ENGSTEP                               #  ONE LESS.
015329,000228: 
015330,000229: 06,3156           51470        ENGSTART           NDX      ENGSTEP                               #  ENTER HERE.
015331,000230: 06,3157           11471                           CCS      CYLTIMES                              #  NUM OF EACH  ON/OFF SET
015332,000231: 06,3160           03162                           TC       +2                                    
015333,000232: 06,3161           03152                           TC       NXTONOFF                              #  NO MORE OF THIS SET
015334,000233: 06,3162           51470                           NDX      ENGSTEP                               
015335,000234: 06,3163           31474                           CAE      NEXTCYLT                              #  START OF NEXT CYCLE.
015336,000235: 06,3164           05663                           TC       WAITLIST                              
015337,000236: 06,3165  E4,1470                                  EBANK=   ENGSTEP                               
015338,000237: 06,3165           03206 14064                     2CADR    ENGONTM                               
015339,000238: 
015340,000239: 06,3167           05727                           TC       TASKOVER                              
015341,000240: 
015342,000241: 06,3170           45210        ENGRESET           CS       PRIO30                                #  BITS 13 AND 14.
015343,000242: 06,3171           00006                           EXTEND                                         
015344,000243: 06,3172           02011                           RAND     11                                    
015345,000244: 06,3173           67746                           AD       BIT14                                 
015346,000245: 06,3174           00006                           EXTEND                                         
015347,000246: 06,3175           01011                           WRITE    11                                    #  ENG ON = 0, ENG OFF = 1.
015348,000247: 06,3176           51470                           NDX      ENGSTEP                               
015349,000248: 06,3177           11471                           CCS      CYLTIMES                              
015350,000249: 06,3200           10000                           CCS      A                                     
015351,000250: 06,3201           03203                           TC       +2                                    
015352,000251: 06,3202           03152                           TC       NXTONOFF                              #  WAS ONE.
015353,000252: 06,3203           67763                           AD       ONE                                   #  WAS MORE THAN ONE.
015354,000253: 06,3204           51470                           NDX      ENGSTEP                               
015355,000254: 06,3205           55471                           TS       CYLTIMES                              
015356,000255: 
015357,000256: 06,3206           51470        ENGONTM            NDX      ENGSTEP                               
015358,000257: 06,3207           31502                           CAE      OFFTIME                               
015359,000258: 06,3210           55406                           TS       OFFTMBUF                              
015360,000259: 06,3211           51470                           NDX      ENGSTEP                               

Page 373

015362,000261: 06,3212           31477                           CAE      ONTIME                                
015363,000262: 06,3213           05663                           TC       WAITLIST                              
015364,000263: 06,3214  E4,1470                                  EBANK=   ENGSTEP                               
015365,000264: 06,3214           03217 14064                     2CADR    ENGSET                                
015366,000265: 
015367,000266: 06,3216           05727                           TC       TASKOVER                              
015368,000267: 
015369,000268: 06,3217           45210        ENGSET             CS       PRIO30                                
015370,000269: 06,3220           00006                           EXTEND                                         
015371,000270: 06,3221           02011                           RAND     11                                    
015372,000271: 06,3222           67747                           AD       BIT13                                 
015373,000272: 06,3223           00006                           EXTEND                                         
015374,000273: 06,3224           01011                           WRITE    11                                    #  ENG ON = 1, ENG OFF = 0.
015375,000274: 06,3225           11406        ENGRST             CCS      OFFTMBUF                              
015376,000275: 06,3226           03235                           TC       LTIMEON                               #  AT LEAST 2MIN. BEFORE ENGINE OFF.
015377,000276: 06,3227           51470                           NDX      ENGSTEP                               
015378,000277: 06,3230           31505                           CAE      OFFTIMER                              #  LESS THAN 2MIN. TO ENGINE OFF.
015379,000278: 06,3231           05663                           TC       WAITLIST                              
015380,000279: 06,3232  E4,1470                                  EBANK=   ENGSTEP                               
015381,000280: 06,3232           03170 14064                     2CADR    ENGRESET                              
015382,000281: 
015383,000282: 06,3234           05727                           TC       TASKOVER                              
015384,000283: 
015385,000284: 06,3235           11406        LTIMEON            CCS      OFFTMBUF                              #  IS THERE ANY MORE.
015386,000285: 06,3236           03240                           TC       +2                                    #  YES.
015387,000286: 06,3237           03225                           TC       ENGRST                                #  NO.
015388,000287: 06,3240           55406                           TS       OFFTMBUF                              #  ONE LESS.
015389,000288: 06,3241           33246                           CAF      2MIN                                  
015390,000289: 06,3242           05663                           TC       WAITLIST                              
015391,000290: 06,3243  E4,1470                                  EBANK=   ENGSTEP                               
015392,000291: 06,3243           03235 14064                     2CADR    LTIMEON                               
015393,000292: 
015394,000293: 06,3245           05727                           TC       TASKOVER                              
015395,000294: 
015396,000295: 06,3246           27340        2MIN               DEC      12000      B-14                       
015397,000296: 

Page 374

015399,000298:                                                                                                  #  LEM FCS TEST  TRIM TASK
015400,000299:                                                                                                  #  THIS PROGRAM ISSUES A PROFILE OF PITCH AND ROLL TRIM COMMANDS TO THE LEM DESCENT ENGINE GIMBAL IN ACCORDANCEWITH
015401,000300:                                                                                                  #  THE VALUE S IN THE TRIMSTEP REGISTER AND THE 12 SETS OF 5 REGISTERS CALLED NUMTIMES, STEPDLYT, TRIMONT, TRIMOFFT
015402,000301:                                                                                                  #  AND TRIMIND.  TRIMSTEP IS USED TO PICK UP A PARTICULAR SET OF THE 5 REGISTERS AND HAS ALLOWABLE VALUES FROM +0
015403,000302:                                                                                                  #  THROUGH +11 DECIMAL.  THE 5 REGISTERS IN EACH SET ARE DEFINED AS FOLLOWS
015404,000303:                                                                                                  #      (1) NUMTIMES DETERMINES THE NUMBER OF TIMES THE COMMAND IN TRIMIND  WILL BE ISSUED.  VALUES FROM +0 TO
015405,000304:                                                                                                  #  OCT 37777 ARE PERMITTED.
015406,000305:                                                                                                  #      (2) STEPDLYT DETERMINES THE TIME BETWEEN THE START OF A STEP AND THE BEGINNING OF TRIMONT.  STEPDLYT MUST BE
015407,000306:                                                                                                  #  FORMATTED FOR T3, ITS MAXIMUM VALUE IS 2 MINUTES.
015408,000307:                                                                                                  #      (3) TRIMONT DETERMINES THE TIME BETWEEN THE END OF STEPDLYT OR TRIMOFFT AND THE TIME THE TRIM COMMANDS ARE
015409,000308:                                                                                                  #  ISSUED.  IT MUST BE FORMATTED FOR T3.
015410,000309:                                                                                                  #      (4) TRIMOFFT DETERMINES THE LENGTH OF TIME THE TRIM COMMAND WILL BE ON, FORMATTED FOR T3.
015411,000310:                                                                                                  #      (5) TRIMIND DETERMINES THE PITCH AND ROLL COMMAND TO BE ISSUED.  THE FORMAT IS, BIT9=1=+ PITCH COMMAND,
015412,000311:                                                                                                  #  BIT10=1=-PITCH, BIT11=1= +ROLL, BIT12=1= -ROLL.  A BIT=0 INDICATES NO COMMAND.  ANY COMBINATION OF COMMANDS IS
015413,000312:                                                                                                  #  PERMITTED.
015414,000313:                                                                                                  #     THIS TASK WILL BE ENTERED BUT IMMEDIATELY ENDED IF TRIMSTEP AND NUMTIMES = +0.
015415,000314: 
015416,000315: 
015417,000316: 06,3247           11510        NEXTTRIM           CCS      TRIMSTEP                              
015418,000317: 06,3250           03252                           TC       +2                                    
015419,000318: 06,3251           05727                           TC       TASKOVER                              #  EXIT HERE.
015420,000319: 06,3252           55510                           TS       TRIMSTEP                              #  LESS ONE.
015421,000320: 
015422,000321: 06,3253           51510        TRIMTOP            NDX      TRIMSTEP                              #  ENTER HERE.
015423,000322: 06,3254           11511                           CCS      NUMTIMES                              
015424,000323: 06,3255           03257                           TC       +2                                    
015425,000324: 06,3256           03247                           TC       NEXTTRIM                              
015426,000325: 06,3257           51510                           NDX      TRIMSTEP                              
015427,000326: 06,3260           31525                           CAE      STEPDLYT                              
015428,000327: 06,3261           05663                           TC       WAITLIST                              
015429,000328: 06,3262  E4,1510                                  EBANK=   TRIMSTEP                              
015430,000329: 06,3262           03300 14064                     2CADR    TRIMSET                               
015431,000330: 
015432,000331: 06,3264           05727                           TC       TASKOVER                              
015433,000332: 
015434,000333: 06,3265           43364        TRIMOFF            CS       TRIMMASK                              
015435,000334: 06,3266           00006                           EXTEND                                         
015436,000335: 06,3267           03012                           WAND     12                                    #  TRIM GOES OFF.
015437,000336: 06,3270           51510        NUMSTEP            NDX      TRIMSTEP                              
015438,000337: 06,3271           11511                           CCS      NUMTIMES                              
015439,000338: 06,3272           10000                           CCS      A                                     
015440,000339: 06,3273           03275                           TC       +2                                    
015441,000340: 06,3274           03247                           TC       NEXTTRIM                              #  WAS ONE.
015442,000341: 06,3275           67763                           AD       ONE                                   
015443,000342: 06,3276           51510                           NDX      TRIMSTEP                              
015444,000343: 06,3277           55511                           TS       NUMTIMES                              
015445,000344: 06,3300           51510        TRIMSET            NDX      TRIMSTEP                              
015446,000345: 06,3301           31541                           CAE      TRIMONT                               
015447,000346: 06,3302           05663                           TC       WAITLIST                              

Page 375

015449,000348: 06,3303  E4,1510                                  EBANK=   TRIMSTEP                              
015450,000349: 06,3303           03306 14064                     2CADR    TRIMON                                
015451,000350: 
015452,000351: 06,3305           05727                           TC       TASKOVER                              
015453,000352: 
015454,000353: 06,3306           33363        TRIMON             CAF      BITS9,10                              #  CHECK PITCH AND ROLL TRIM FAIL BITS.
015455,000354: 06,3307           00006                           EXTEND                                         
015456,000355: 06,3310           06032                           RXOR     32                                    
015457,000356: 06,3311           73363                           MASK     BITS9,10                              
015458,000357: 06,3312           00006                           EXTEND                                         
015459,000358: 06,3313           13321                           BZF      TRIMON1                               
015460,000359: 06,3314           35656                           CAF      PRIO35                                #  FAIL IS ON. FLASH FAIL CODE (01400) AND
015461,000360: 06,3315           05505                           TC       NOVAC                                 #  IDLE UNTIL SOMEONE RESETS IT, TERMINATES
015462,000361: 06,3316  E4,1407                                  EBANK=   JETSTEP                               
015463,000362: 06,3316           03334 14064                     2CADR    PERFORM                               #  THE TASK, OR DECIDES TO PROCEED WITH IT.
015464,000363: 
015465,000364: 06,3320           05727                           TC       TASKOVER                              
015466,000365: 
015467,000366: 06,3321           51510        TRIMON1            NDX      TRIMSTEP                              
015468,000367: 06,3322           31571                           CAE      TRIMIND                               
015469,000368: 06,3323           73364                           MASK     TRIMMASK                              #  SAFETY PLAY
015470,000369: 06,3324           00006                           EXTEND                                         
015471,000370: 06,3325           05012                           WOR      12                                    #  TRIM STARTS.
015472,000371: 06,3326           51510                           NDX      TRIMSTEP                              
015473,000372: 06,3327           31555                           CAE      TRIMOFFT                              
015474,000373: 06,3330           05663                           TC       WAITLIST                              
015475,000374: 06,3331  E4,1510                                  EBANK=   TRIMSTEP                              
015476,000375: 06,3331           03265 14064                     2CADR    TRIMOFF                               
015477,000376: 
015478,000377: 06,3333           05727                           TC       TASKOVER                              
015479,000378: 
015480,000379: 06,3334           04644        PERFORM            TC       GRABWAIT                              #  KEY RELEASE MAY COME ON.
015481,000380: 06,3335           33363                           CAF      TRIMCODE                              #  01400
015482,000381: 06,3336           54337                           TS       DSPTEM1                               
015483,000382: 06,3337           33365                           CAF      V01N25K                               
015484,000383: 06,3340           04657                           TC       NVSBWAIT                              
015485,000384: 06,3341           33366                           CAF      V50K                                  #  PLEASE PERFORM.
015486,000385: 06,3342           04657                           TC       NVSBWAIT                              
015487,000386: 06,3343           04622                           TC       FLASHON                               #  ANY RESPONSE TURNS IT OFF.
015488,000387: 06,3344           04475                           TC       ENDIDLE                               #  WAIT FOR SOMEONE TO DO SOMETHING.
015489,000388: 06,3345           05566                           TC       EJFREE                                #  V34E. TERMINATE THE TASK.
015490,000389: 06,3346           03355                           TC       TR1                                   #  V33E. PROCEED WITH THE FAIL ON.
015491,000390: 06,3347           00004                           INHINT                                         #  ENTER. THE FAIL HAS BEEN RESET.
015492,000391: 06,3350           37762                           CAF      BIT2                                  #  20MS.
015493,000392: 06,3351           05663                           TC       WAITLIST                              
015494,000393: 06,3352           03306 14064                     2CADR    TRIMON                                #  CHECK AGAIN TO BE SURE. THEN PROCEED..
015495,000394: 
015496,000395: 06,3354           05566                           TC       EJFREE                                
015497,000396: 

Page 376

015499,000398: 06,3355           00004        TR1                INHINT                                         #  PROCEED WITH THE FAIL.
015500,000399: 06,3356           37762                           CAF      BIT2                                  #  20MS.
015501,000400: 06,3357           05663                           TC       WAITLIST                              
015502,000401: 06,3360  E4,1407                                  EBANK=   JETSTEP                               
015503,000402: 06,3360           03321 14064                     2CADR    TRIMON1                               #  BYPASS THE RECHECK.
015504,000403: 
015505,000404: 06,3362           05566                           TC       EJFREE                                
015506,000405: 
015507,000406: 06,3363           01400        BITS9,10           OCT      01400                                 
015508,000407: 06,3364  06,3363               TRIMCODE           EQUALS   BITS9,10                              
015509,000408: 06,3364           07400        TRIMMASK           OCT      07400                                 
015510,000409: 06,3365           00125        V01N25K            OCT      00125                                 
015511,000410: 06,3366           05000        V50K               OCT      05000                                 
015512,000411: 

Page 377

015514,000413:                                                                                                  #  LEM FCS TEST  THROTTLE TASK
015515,000414:                                                                                                  #     THIS PROGRAM ISSUES A PROFILE OF THROTTLE COMMANDS TO THE LEM DESCENT ENGINE.  THE PROFILE IS DETERMINED BY
015516,000415:                                                                                                  #  THE VALUES IN THE THRTSTEP REGISTER AND THE 6  SETS OF REGISTERS, 5 PER SET, CALLED  DOTIMES, DELAY, THR1TIME,
015517,000416:                                                                                                  #  THCOMM1 AND THCOMM2.  THE THRTSTEP REGISTER VALUE IS USED TO INDEX THE  6  SETS OF 5 REGISTERS AND HAS ALLOWABLE
015518,000417:                                                                                                  #  VALUES OF +0 THROUGH +5.  THE 5 REGISTERS PER SET ARE DEFINED AS FOLLOWS
015519,000418:                                                                                                  #      (1) DOTIMES DETERMINES THE NUMBER OF TIMES THE THROTTLE WILL BE EXERCISED AS PER THE VALUES OF THR1TIME,
015520,000419:                                                                                                  #  THCOMM1 AND THCOMM2 OF THE CURRENT STEP.  IT HAS ALLOWABLE VALUES OF +0 THROUGH 37777 OCT.
015521,000420:                                                                                                  #      (2) DELAY DETERMINES THE TIME BETWEEN THE START OF A STEP AND THE BE GINNING OF THR1TIME. ITIS CALLED ONLY
015522,000421:                                                                                                  #  ONCE PER STEP,I.E., REPEATS OF THE SAME THCOMM1 AND THCOMM2 START AT THR1TIME.  DELAY MUST BE FORMATTED FOR T3
015523,000422:                                                                                                  #  AND HENCE HAS A MAXIMUM VALUE OF 2 MINUTES.
015524,000423:                                                                                                  #      (3) THR1TIME DETERMINES THE TIME BETWEEN THE END OF DELAY OR THE END   OF THCOMM2 AND THE START OF
015525,000424:                                                                                                  #  THCOMM1.  IT MUST BE FORMATTED FOR T3.
015526,000425:                                                                                                  #      (4) THCOMM1 AND (5) THCOMM2 DETERMINE THE NUMBER OF THRUST INCREASE  OR DECREASE PULSES TOBE ISSUED AT A
015527,000426:                                                                                                  #  3.2KPPS RATE.  THE RANGE OF POSSIBLE VALUES OF EITHER IS FROM POSMAX (OCT 37777) TO NEGMAX (OCT 40000) ALTHOUGH
015528,000427:                                                                                                  #  THE ACTUAL THROTTLE RANGE IS FROM OCT 6116 TO OCT 71661 (+,- 3150 DEC).
015529,000428:                                                                                                  #     THIS TASK WILL BE ENTERED BUT IMMEDIATELY ENDED IF THE INITIAL VALUES OF THRTSTEP AND DOTIMES ARE +0.
015530,000429: 
015531,000430: 
015532,000431: 06,3367           11605        NEXTTHRT           CCS      THRTSTEP                              
015533,000432: 06,3370           03372                           TC       +2                                    
015534,000433: 06,3371           05727                           TC       TASKOVER                              #  EXIT HERE.
015535,000434: 06,3372           55605                           TS       THRTSTEP                              
015536,000435: 
015537,000436: 06,3373           51605        THRSTART           NDX      THRTSTEP                              #  ENTER HERE.
015538,000437: 06,3374           11606                           CCS      DOTIMES                               #  NUMBER OF TIMES COMMANDS 1 AND 2 DONE.
015539,000438: 06,3375           03377                           TC       +2                                    
015540,000439: 06,3376           03367                           TC       NEXTTHRT                              
015541,000440: 06,3377           51605                           NDX      THRTSTEP                              
015542,000441: 06,3400           31614                           CAE      DELAY                                 #  TIME BETWEEN STEPS.  BIAS FOR THR1TIME.
015543,000442:                                                                                                  #  MUST BE SCALED FOR T3.
015544,000443: 06,3401           05663                           TC       WAITLIST                              
015545,000444: 06,3402  E4,1605                                  EBANK=   THRTSTEP                              
015546,000445: 06,3402           03425 14064                     2CADR    THROTON1                              
015547,000446: 
015548,000447: 06,3404           05727                           TC       TASKOVER                              
015549,000448: 
015550,000449: 06,3405           51605        THR2COMM           NDX      THRTSTEP                              
015551,000450: 06,3406           31636                           CAE      THCOMM2                               #  SAME REMARKS AS FOR THCOMM1.
015552,000451: 06,3407           03443                           TC       THROTON                               
015553,000452: 06,3410           67763                           AD       BIT1                                  #  10MS IN CASE OF NO THCOMM2.
015554,000453: 06,3411           05663                           TC       WAITLIST                              
015555,000454: 06,3412  E4,1605                                  EBANK=   THRTSTEP                              
015556,000455: 06,3412           03415 14064                     2CADR    CKDOTIME                              
015557,000456: 
015558,000457: 06,3414           05727                           TC       TASKOVER                              
015559,000458: 
015560,000459: 06,3415           51605        CKDOTIME           NDX      THRTSTEP                              
015561,000460: 06,3416           11606                           CCS      DOTIMES                               
015562,000461: 06,3417           10000                           CCS      A                                     

Page 378

015564,000463: 06,3420           03422                           TC       +2                                    
015565,000464: 06,3421           03367                           TC       NEXTTHRT                              #  WAS ONE.
015566,000465: 06,3422           67763                           AD       ONE                                   
015567,000466: 06,3423           51605                           NDX      THRTSTEP                              
015568,000467: 06,3424           55606                           TS       DOTIMES                               
015569,000468: 06,3425           51605        THROTON1           NDX      THRTSTEP                              
015570,000469: 06,3426           31622                           CAE      THR1TIME                              #  TIME BETWEEN DOTIMES.  SCALED FOR T3.
015571,000470: 06,3427           05663                           TC       WAITLIST                              
015572,000471: 06,3430  E4,1605                                  EBANK=   THRTSTEP                              
015573,000472: 06,3430           03433 14064                     2CADR    THR1COMM                              
015574,000473: 
015575,000474: 06,3432           05727                           TC       TASKOVER                              
015576,000475: 
015577,000476: 06,3433           51605        THR1COMM           NDX      THRTSTEP                              
015578,000477: 06,3434           31630                           CAE      THCOMM1                               #  SHOULD BE NO LARGER THAN 3150DEC.
015579,000478: 06,3435           03443                           TC       THROTON                               
015580,000479: 06,3436           63460                           AD       250MS                                 #  SO ACE CAN SAMPLE.
015581,000480: 06,3437           05663                           TC       WAITLIST                              
015582,000481: 06,3440  E4,1605                                  EBANK=   THRTSTEP                              
015583,000482: 06,3440           03405 14064                     2CADR    THR2COMM                              
015584,000483: 
015585,000484: 06,3442           05727                           TC       TASKOVER                              
015586,000485: 
015587,000486: 06,3443           54055        THROTON            TS       THRUST                                #  THROTTLE OUTPUT COUNTER.
015588,000487: 06,3444           55405                           TS       THBUF                                 #  SAVE FOR BZMF.
015589,000488: 06,3445           37760                           CAF      BIT4                                  
015590,000489: 06,3446           00006                           EXTEND                                         
015591,000490: 06,3447           05014                           WOR      14                                    #  ENABLE THRUST DRIVE.  COMMAND STARTS NOW
015592,000491: 06,3450           31405                           CAE      THBUF                                 
015593,000492: 06,3451           00006                           EXTEND                                         
015594,000493: 06,3452           63454                           BZMF     +2                                    
015595,000494: 06,3453           40000                           COM                                            
015596,000495: 06,3454           40000                           COM                                            
015597,000496: 06,3455           00006                           EXTEND                                         
015598,000497: 06,3456           77752                           MP       BIT10                                 #  SCALES FOR T3.
015599,000498: 06,3457           00002                           TC       Q                                     
015600,000499: 
015601,000500: 06,3460           00031        250MS              OCT      00031                                 
015602,000501: 

Page 379

015604,000503:                                                                                                  #  LEM FCS TEST  INTERFACE LOOK TASK.
015605,000504: 
015606,000505:                                                                                                  #      THIS PROGRAM KEEPS A RUNNING HISTORY OF THE STATE OF ALL THE BITS IN INPUT CHANNELS 30, 31, 32 AND 33.
015607,000506:                                                                                                  #  IT DOES THIS BY DETECTING A CHANGE OF AN INPUT BIT FROM AN INITIAL ONE STATE TO A ZERO STATE OR FROM AN INITIAL
015608,000507:                                                                                                  #  ZERO TO A ONE.  THE HISTORY IS MAINTAINED IN TWO BUFFER REGISTERS FOR EACH CHANNEL, ONE FOR STORING ONE TO ZERO
015609,000508:                                                                                                  #  CHANGES (30BUF1, +1, +2, AND +3) AND ONE FOR ZERO TO ONE CHANGES (30BUF0, +1 +2 AND +3).  THE OPERATOR MUST
015610,000509:                                                                                                  #  LOAD THE INITIAL STATES OF THE INPUT CHANNELS INTO THEIR RESPECTIVE BUFFER REGISTERS BEFORE THIS PROGRAM IS IN-
015611,000510:                                                                                                  #  ITIATED.
015612,000511:                                                                                                  #      TO ALLOW THIS PROGRAM TO RUN C(QUITLOOK) MUST BE SET GREATER THAN +0 BEFORE IT IS STARTED.  IF THE OPERATOR
015613,000512:                                                                                                  #  DOES NOT DESIRE THIS PROGRAM TO RUN HE SHOULD SET C(QUITLOOK)=+0 BEFORE STARTING THE FCS TEST.  AFTER THIS TASK
015614,000513:                                                                                                  #  IS RUNNING THE OPERATOR CAN STOP IT BY SETTING C(QUITLOOK) = +0.
015615,000514:                                                                                                  #      NO DISPLAYS OF EITHER THE BUFFER REGISTERS OR CHANNELS ARE INCORPORATED INTO THIS PROGRAM.  THIS WAS DONE TO
015616,000515:                                                                                                  #  ALLOW THE TEST OPERATOR MONITORING FLEXIBILITY.  FOR REAL TIME MONITORING IT IS SUGGESTED THAT THE BUFFER
015617,000516:                                                                                                  #  REGISTERS BE DISPLAYED WITH THE MONITOR VERBS (11 THROUGH 15).  ON THE OTHER HAND, THE OPERATOR MAY ELECT TO
015618,000517:                                                                                                  #  PERFORM NO REAL TIME MONITORING UNTIL THE TEST IS COMPLETED, WHEN THE BUFFER REGISTERS WOULD BE CALLED FOR
015619,000518:                                                                                                  #  DISPLAY (VERB 01) AND RECORDED.
015620,000519:                                                                                                  #      THIS PROGRAM IS PRIMARILY INTENDED FOR INTERFACE MONITORING DURING THE LEM VIBRATION TEST AT BETHPAGE, N.Y.,
015621,000520:                                                                                                  #  ALTHOUGH IT MAY ALSO BE USEFUL DURING VEHICAL LEVEL EMI TESTS.
015622,000521: 
015623,000522: 06,3461           11654        LOOKTOP            CCS      QUITLOOK                              #  IS THIS TASK WANTED.
015624,000523: 06,3462           03464                           TC       +2                                    #  YES.
015625,000524: 06,3463           05727                           TC       TASKOVER                              #  NO.
015626,000525: 06,3464           36311                           CAF      THREE                                 #  START SCAN OF CHANNELS.
015627,000526: 06,3465           55655        LOOKLOOP           TS       CHCNTR                                #  3, 2, 1, 0.
015628,000527: 06,3466           51655                           NDX      CHCNTR                                
015629,000528: 06,3467           31644                           CAE      30BUF1                                
015630,000529: 06,3470           00006                           EXTEND                                         
015631,000530: 06,3471           51655                           NDX      CHCNTR                                
015632,000531: 06,3472           02030                           RAND     30                                    #  DETECTS CHANGES FROM 1 TO 0.
015633,000532: 06,3473           51655                           NDX      CHCNTR                                
015634,000533: 06,3474           57644                           XCH      30BUF1                                #  STORE NEW ZEROS.
015635,000534: 06,3475           51655                           NDX      CHCNTR                                
015636,000535: 06,3476           31650                           CAE      30BUF0                                
015637,000536: 06,3477           00006                           EXTEND                                         
015638,000537: 06,3500           51655                           NDX      CHCNTR                                
015639,000538: 06,3501           04030                           ROR      30                                    #  DETECTS CHANGES FROM 0 TO 1.
015640,000539: 06,3502           51655                           NDX      CHCNTR                                
015641,000540: 06,3503           57650                           XCH      30BUF0                                #  STORE NEW ONES.
015642,000541: 06,3504           11655                           CCS      CHCNTR                                #  IS THIS SCAN DONE.
015643,000542: 06,3505           03465                           TC       LOOKLOOP                              #  NO.
015644,000543: 06,3506           34570                           CAF      TEN                                   #  YES.  100MS RECALL.
015645,000544: 06,3507           05663                           TC       WAITLIST                              
015646,000545: 06,3510  E4,1654                                  EBANK=   QUITLOOK                              
015647,000546: 06,3510           03461 14064                     2CADR    LOOKTOP                               
015648,000547: 
015649,000548: 06,3512           05727                           TC       TASKOVER                              
015650,000549: 

End of include-file LEM_FLIGHT_CONTROL_SYSTEM_TEST.agc.  Parent file is MAIN.agc