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.

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

Page 367

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

Page 368

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

Page 369

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

Page 370

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

Page 371

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

Page 372

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

Page 373

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

Page 374

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

Page 375

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

Page 376

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

Page 377

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

Page 378

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

Page 379

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

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