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.

031760,000002:                                                                                                  ## Copyright:    Public domain.
031761,000003:                                                                                                  ## Filename:     MISSION_PHASE_11-DPS2_FITH_APS1.agc
031762,000004:                                                                                                  ## Purpose:      A module for revision 0 of BURST120 (Sunburst). It 
031763,000005:                                                                                                  ##               is part of the source code for the Lunar Module's
031764,000006:                                                                                                  ##               (LM) Apollo Guidance Computer (AGC) for Apollo 5.
031765,000007:                                                                                                  ## Assembler:    yaYUL
031766,000008:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
031767,000009:                                                                                                  ## Website:      www.ibiblio.org/apollo/index.html
031768,000010:                                                                                                  ## Mod history:  2016-09-30 RSB  Created draft version.
031769,000011:                                                                                                  ##               2016-10-28 MAS  Transcribed.
031770,000012:                                                                                                  ##               2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
031771,000013:                                                                                                  ##                               changes made.
031772,000014: 

Page 739

031774,000016: 36,2000                                           BANK     36                                    
031775,000017: 36,2000  E4,1566                                  EBANK=   TDEC                                  
031776,000018: 36,2000  E4,1662               EMP11JOB           EQUALS   MPRETRN                               
031777,000019:                                                                                                  #  MISSION PHASE 11 DOES PROG32-PREDPS2, PROG42-DPS2 BURN BRAKING GUIDANCE,
031778,000020:                                                                                                  #  PROG43-APPROACH GUIDANCE, PROG43-RANDOM THROTTLE PROGRAM AND PROG74-THE
031779,000021:                                                                                                  #  FIRE-IN-THE-HOLE AND APS1 BURN
031780,000022: 
031781,000023:                                                                                                  #  THE APPROXIMATE STARTING TIME OF THESE PROG IS SHOWN BELOW
031782,000024: 
031783,000025:                                                                                                  #  T       PROG32
031784,000026:                                                                                                  #  T+187   DPS2 IGNITION (TIG11)
031785,000027:                                                                                                  #  TIG+26  PROG42
031786,000028:                                                                                                  #  TIG+705 PROG44
031787,000029:                                                                                                  #  TIG+757 PROG74
031788,000030:                                                                                                  #  TIG+792 MISSION TERMINATED
031789,000031: 
031790,000032: 
031791,000033: 
031792,000034: 36,2000           37751        MP11JOB            CAF      BIT11                                 
031793,000035: 36,2001           04105                           TC       SETRSTRT                              #  SET RESTART FLAG
031794,000036: 
031795,000037: 36,2002           00006                           EXTEND                                         
031796,000038: 36,2003           30025                           DCA      TIME2                                 
031797,000039: 36,2004           53305                           DXCH     TDECTEMP                              
031798,000040: 
031799,000041: 36,2005           04117                           TC       NEWMODEX                              #  SET DISPLAY
031800,000042: 36,2006           00032                           OCT      32                                    
031801,000043: 
031802,000044: 36,2007           32465                           CAF      1SEC11                                #  SETUP MP11 TASK-REQUIRES 75 SECS AND
031803,000045: 36,2010           00004                           INHINT                                         #  TERMINATES ITSELF
031804,000046: 36,2011           05663                           TC       WAITLIST                              
031805,000047: 36,2012  E4,1566                                  EBANK=   TDEC                                  
031806,000048: 36,2012           02545 74064                     2CADR    MP11TASK                              
031807,000049: 
031808,000050: 36,2014           04141                           TC       2PHSCHNG                              
031809,000051: 36,2015           40253                           OCT      40253                                 #  3.25SPOT FOR MP11TASK.
031810,000052: 36,2016           00312                           OCT      00312                                 #  2.31 SPOT TO CONTINUE MP11JOB.
031811,000053: 
031812,000054: 36,2017           00006        11REDO1            EXTEND                                         #  SET TDEC TO TIME OF START OF MP 11
031813,000055: 36,2020           31305                           DCA      TDECTEMP                              #     PLUS 135 SECONDS.
031814,000056: 36,2021           53567                           DXCH     TDEC                                  
031815,000057: 36,2022           00006                           EXTEND                                         
031816,000058: 36,2023           32517                           DCA      135SECS                               
031817,000059: 36,2024           21567                           DAS      TDEC                                  
031818,000060: 
031819,000061: 36,2025           00006                           EXTEND                                         #  SET RETURN FROM MIDTOAVE TO INTRTN
031820,000062: 36,2026           32542                           DCA      MDAVADR                               
031821,000063: 36,2027           52006                           DXCH     Z                                     #  DO MIDTOAVE VIA RVUPDATE
031822,000064: 
031823,000065: 36,2030           04161                           TC       PHASCHNG                              

Page 740

031825,000067: 36,2031           00332                           OCT      00332                                 
031826,000068: 
031827,000069: 36,2032           00006        INTRTN             EXTEND                                         
031828,000070: 36,2033           32534                           DCA      DPS2ADR                               #  INTEGRATION DONE-DO PRE-DPS2
031829,000071: 36,2034           52006                           DXCH     Z                                     #  STATE AT RIGNTION-TIME AT TET FOR PREDPS
031830,000072: 
031831,000073:                                                                                                  #   PRE-DPS2 RETURN TO RETPREB WITH ULLAGE-ON TIME AT TULLG, (TIG-7.5).
031832,000074:                                                                                                  #  THE DESIRED 1/2 UNIT THRUST VECTOR AT POINTVSM.
031833,000075:                                                                                                  #   STATE VECTOR IN SM COORDINATES STORED AT RN, VN WITH CORRESPONDING
031834,000076:                                                                                                  #   TIME AT PIPTIME WHERE (TULLG - PIPTIME)IS BETWEEN
031835,000077:                                                                                                  #   3.8 AND 6 SECS.
031836,000078: 
031837,000079: 
031838,000080: 
031839,000081: 36,2035           00004        RETPREB            INHINT                                         
031840,000082: 36,2036           00006                           EXTEND                                         
031841,000083: 36,2037           31457                           DCA      TULLG                                 #  C(TULLG)=TIG-7.5
031842,000084: 36,2040           52145                           DXCH     MPAC                                  
031843,000085: 36,2041           42520                           CS       22.5SECS                              
031844,000086: 36,2042           54001                           TS       L                                     
031845,000087: 36,2043           37767                           CAF      ZERO                                  
031846,000088: 36,2044           54146                           TS       MPAC       +2                         
031847,000089: 36,2045           20145                           DAS      MPAC                                  #  C(MPAC)=TIG-30
031848,000090: 36,2046           00006                           EXTEND                                         
031849,000091: 36,2047           40025                           DCS      TIME2                                 #  GET CURRENT TIME
031850,000092: 36,2050           20145                           DAS      MPAC                                  #  C(MPAC)=DELTA(TIG-30)
031851,000093: 36,2051           07327                           TC       TPAGREE                               #  MAKE SIGNS AGREE
031852,000094: 36,2052           00006                           EXTEND                                         
031853,000095: 36,2053           30145                           DCA      MPAC                                  
031854,000096: 36,2054           53305                           DXCH     TDECTEMP                              
031855,000097: 36,2055           52145                           DXCH     MPAC                                  
031856,000098: 36,2056           05741                           TC       LONGCALL                              
031857,000099: 36,2057  E4,1566                                  EBANK=   TDEC                                  
031858,000100: 36,2057           02120 74064                     2CADR    TIG11-30                              
031859,000101: 
031860,000102: 36,2061           04161                           TC       PHASCHNG                              
031861,000103: 36,2062           20022                           OCT      20022                                 
031862,000104: 
031863,000105: 36,2063           06112        11REDO2            TC       INTPRET                               
031864,000106: 36,2064           77775                           VLOAD                                          
031865,000107: 36,2065           01011                                    RN                                    #  STATE STORED IN RAVEGON AND VAVEGON FOR
031866,000108: 36,2066           26115                           STOVL    RAVEGON                               #  AVERAGE G INITIALIZATION AT PIPTIME
031867,000109: 36,2067           01017                                    VN                                    
031868,000110: 36,2070           16123                           STODL    VAVEGON                               
031869,000111: 36,2071           35646                                    D1/2                                  #  JAM .5,0,0 IN SCAXIS FOR KALCMANU
031870,000112: 36,2072           15664                           STODL    SCAXIS                                
031871,000113: 36,2073           35273                                    DZERO                                 
031872,000114: 36,2074           01666                           STORE    SCAXIS     +2                         
031873,000115: 36,2075           15670                           STODL    SCAXIS     +4                         
031874,000116: 36,2076           01307                                    PIPTIME                               #  THIS TIME CONSISTANT WITH STATE-RAVEGON
031875,000117: 

Page 741

031877,000119: 36,2077           02264                           STORE    DT11TEMP                              #  USED AFTER KALCMANU TO CALL PREREAD
031878,000120: 36,2100           43131                           SSP      SET                                   
031879,000121: 36,2101           01653                                    RATEINDX                              #  SET KALCMANU FOR ANGULAR RATE OF 5 DEG/S
031880,000122: 36,2102           00004                                    4                                     
031881,000123: 36,2103           01063                                    33D                                   
031882,000124: 36,2104           77776                           EXIT                                           
031883,000125: 
031884,000126: 36,2105           35642                           CAF      PRIO16                                #  DO ATTITUDE MANEUVER JOB.
031885,000127: 36,2106           00004                           INHINT                                         
031886,000128: 36,2107           05516                           TC       FINDVAC                               
031887,000129: 36,2110  E3,1535                                  EBANK=   MIS                                   
031888,000130: 36,2110           02001 70063                     2CADR    VECPOINT                              
031889,000131: 
031890,000132: 36,2112           05206                           TC       BANKCALL                              
031891,000133: 36,2113           26743                           CADR     ATTSTALL                              #  PUT MP11 TO SLEEP - KALCMANU WILL WAKE
031892,000134: 
031893,000135: 36,2114           04743                           TC       CURTAINS                              #  KALCMANU HAS GIMBALOC PROBLEMS-CURTAINS
031894,000136: 36,2115           04161                           TC       PHASCHNG                              
031895,000137: 36,2116           00352                           OCT      00352                                 
031896,000138: 
031897,000139: 36,2117           05567                           TC       ENDOFJOB                              #  WAIT FOR TIG-30
031898,000140: 
031899,000141: 36,2120           37751        TIG11-30           CAF      BIT11                                 #  SEE IF ATTITUDE MANEUVER DONE
031900,000142: 36,2121           70076                           MASK     FLAGWRD2                              
031901,000143: 36,2122           10000                           CCS      A                                     
031902,000144: 36,2123           02450                           TC       DOCURTN                               #  KALCMANU NOT-DO CURTJOB
031903,000145: 36,2124           04117                           TC       NEWMODEX                              #  SET MODE TO PROG42
031904,000146: 36,2125           00042                           OCT      42                                    
031905,000147: 
031906,000148: 36,2126           32530                           CAF      AVEG11AD                              #  SET UP SERVICER.
031907,000149: 36,2127           55310                           TS       DVSELECT                              
031908,000150: 
031909,000151: 36,2130           00006                           EXTEND                                         
031910,000152: 36,2131           32544                           DCA      ADROFSER                              
031911,000153: 36,2132           53073                           DXCH     AVGEXIT                               
031912,000154: 
031913,000155: 36,2133           00006                           EXTEND                                         
031914,000156: 36,2134           32540                           DCA      MP11TMAD                              
031915,000157: 36,2135           53075                           DXCH     DVMNEXIT                              
031916,000158: 
031917,000159: 36,2136           40025                           CS       TIME1                                 
031918,000160: 36,2137           61664                           AD       DT11TEMP   +1                         #  FIND DT TO PIPTIME
031919,000161: 36,2140           10000                           CCS      A                                     #  CORRECT NEG DT OR NEGATIVE OVERFLOW DT.
031920,000162: 36,2141           67763                           AD       ONE                                   
031921,000163: 36,2142           12147                           TCF      +5                                    
031922,000164: 36,2143           66153                           AD       OCT40001                              
031923,000165: 36,2144           67771                           AD       MINUS1                                #  ALLOWS FOR REMOTE CHANCE FO ZERO DT.
031924,000166: 36,2145           40000                           COM                                            
031925,000167: 36,2146           12140                           TCF      -6                                    
031926,000168: 36,2147           55342                           TS       RSDTTEMP                              #  SAVED FOR RESTARTS.
031927,000169: 

Page 742

031929,000171: 36,2150           05663                           TC       WAITLIST                              
031930,000172: 36,2151  E5,1506                                  EBANK=   DVTOTAL                               
031931,000173: 36,2151           02000 60065                     2CADR    PREREAD                               
031932,000174: 
031933,000175: 36,2153           04141                           TC       2PHSCHNG                              
031934,000176: 36,2154           40355                           OCT      40355                                 #  5.35 SPOT FOR PREREAD.
031935,000177: 36,2155           00212                           OCT      00212                                 #  2.21 SPOT FOR DPSTART.
031936,000178: 
031937,000179: 36,2156           05270        DPSTART            TC       IBNKCALL                              
031938,000180: 36,2157           40277                           CADR     ENGINOF1                              
031939,000181: 
031940,000182: 36,2160           05101                           TC       1LMP+DT                               
031941,000183: 36,2161           00226                           DEC      150        B-14                       #  ARM DESCENT ENGINE
031942,000184: 36,2162           01750                           DEC      1000       B-14                       #  DELAY 10 SECONDS
031943,000185: 
031944,000186: 36,2163           05101        TIG11-20           TC       1LMP+DT                               
031945,000187: 36,2164           00126                           DEC      86         B-14                       #  SET MANUAL THROTTLE TO 10 %
031946,000188: 36,2165           00620                           DEC      400        B-14                       #  DELAY 4 SECONDS
031947,000189: 
031948,000190: 36,2166           05073        TIG11-16           TC       2LMP+DT                               
031949,000191: 36,2167           00344                           DEC      228        B-14                       #  ENABLE DPS PQGS ARM 1
031950,000192: 36,2170           00304                           DEC      196        B-14                       #  ENABLE DPS PQGS ARM 2
031951,000193: 36,2171           00144                           DEC      100        B-14                       #  DELAY 1 SECOND
031952,000194: 
031953,000195: 36,2172           05073        TIG11-15           TC       2LMP+DT                               
031954,000196: 36,2173           00364                           DEC      244        B-14                       #  DPS PQGS =1 ON
031955,000197: 36,2174           00324                           DEC      212        B-14                       #  DPS PQGS =2 ON
031956,000198: 36,2175           01356                           DEC      750        B-14                       #  DELAY 7.5 SECONDS
031957,000199: 
031958,000200: 36,2176           05270        TIG-7.5            TC       IBNKCALL                              
031959,000201: 36,2177           40062                           CADR     ULLAGE                                #  CALL FOR 4 JET ULLAGE
031960,000202: 
031961,000203: 36,2200           37763                           CAF      BIT1                                  #  START UP ABORT STAGE MONITOR.
031962,000204: 36,2201           05663                           TC       WAITLIST                              
031963,000205: 36,2202  E4,1566                                  EBANK=   TDEC                                  
031964,000206: 36,2202           02362 74064                     2CADR    ABMON                                 
031965,000207: 
031966,000208: 36,2204           04141                           TC       2PHSCHNG                              
031967,000209: 36,2205           40033                           OCT      40033                                 #  3.3 SPOT FOR ABMON
031968,000210: 36,2206           40232                           OCT      40232                                 #  2.23 SPOT FOR TIG11
031969,000211: 
031970,000212: 36,2207           05701                           TC       FIXDELAY                              
031971,000213: 36,2210           01356                           DEC      750        B-14                       #  DELAY 7.5 SECONDS, UNTIL ENGINEON
031972,000214: 
031973,000215: 36,2211           05270        TIG11              TC       IBNKCALL                              
031974,000216: 36,2212           40226                           CADR     DPSENGON                              

"DPSENGON" in the above line has a green arrow pointing to it.

031976,000218: 
031977,000219: 36,2213           04161                           TC       PHASCHNG                              
031978,000220: 36,2214           47012                           OCT      47012                                 

Page 743

031980,000222: 36,2215           00062                           DEC      50         B-14                       
031981,000223: 36,2216  E4,1566                                  EBANK=   TDEC                                  
031982,000224: 36,2216           02222 74064                     2CADR    TIG11A                                
031983,000225: 
031984,000226: 36,2220           05701                           TC       FIXDELAY                              
031985,000227: 36,2221           00062                           DEC      50         B-14                       #  DELAY HALF A SECOND
031986,000228: 
031987,000229: 36,2222           05270        TIG11A             TC       IBNKCALL                              
031988,000230: 36,2223           40066                           CADR     NOULLAGE                              
031989,000231: 
031990,000232: 36,2224           04161                           TC       PHASCHNG                              
031991,000233: 36,2225           47012                           OCT      47012                                 
031992,000234: 36,2226           04766                           DEC      2550       B-14                       
031993,000235: 36,2227  E4,1566                                  EBANK=   TDEC                                  
031994,000236: 36,2227           02233 74064                     2CADR    TIG11+26                              
031995,000237: 
031996,000238: 36,2231           05701                           TC       FIXDELAY                              
031997,000239: 36,2232           04766                           DEC      2550       B-14                       #  WAIT 25.5 SECONDS
031998,000240: 
031999,000241: 36,2233           37743        TIG11+26           CAF      POSMAX                                #  HAVE BEEN AT 10% THROTTLE FOR 26 SECONDS
032000,000242: 36,2234           55323                           TS       PCNTF                                 #  NOW CALL FOR MAXIMUM THRUST (92.5%)
032001,000243: 
032002,000244: 36,2235           00006                           EXTEND                                         
032003,000245: 36,2236           32536                           DCA      PCNTFAD                               
032004,000246: 36,2237           52006                           DXCH     Z                                     
032005,000247: 
032006,000248: 36,2240           00006                           EXTEND                                         
032007,000249: 36,2241           32532                           DCA      BURNADR                               #  STARTING DPS2 GUIDANCE: TIG +26 SECONDS
032008,000250: 36,2242           53073                           DXCH     AVGEXIT                               
032009,000251: 
032010,000252: 36,2243           31345                           CA       DAPOFFDT                              #  SKIP AUTOMATIC TURN-OFF OF DAP IF
032011,000253: 36,2244           00006                           EXTEND                                         #  DAPOFFDT IS NEGATIVE OR ZERO.
032012,000254: 36,2245           62253                           BZMF     NODAPOFF                              
032013,000255: 
032014,000256: 36,2246           05663                           TC       WAITLIST                              
032015,000257: 36,2247  E7,1407                                  EBANK=   DNTMBUFF                              
032016,000258: 36,2247           02273 74067                     2CADR    11DAPOFF                              
032017,000259: 
032018,000260: 36,2251           04161                           TC       PHASCHNG                              
032019,000261: 36,2252           40116                           OCT      40116                                 #  6.11 FOR 11DAPOFF TASK.
032020,000262: 
032021,000263: 36,2253           04141        NODAPOFF           TC       2PHSCHNG                              
032022,000264: 36,2254           00002                           OCT      00002                                 
032023,000265: 36,2255           00114                           OCT      00114                                 #  4.11 SPOT FOR THRUSTING
032024,000266: 
032025,000267: 36,2256           05727                           TC       TASKOVER                              
032026,000268: 
032027,000269: 36,2257           00006        RETBURN            EXTEND                                         #  RETURN FROM BURN GUIDANCE
032028,000270: 36,2260           32544                           DCA      ADROFSER                              #  SET SERVICER EXIT TO KILL BURN GUID
032029,000271: 36,2261           53073                           DXCH     AVGEXIT                               
032030,000272: 

Page 744

032032,000274: 36,2262           04161                           TC       PHASCHNG                              
032033,000275: 36,2263           45022                           OCT      45022                                 
032034,000276: 36,2264           20000                           OCT      20000                                 
032035,000277: 
032036,000278: 36,2265           37763                           CAF      BIT1                                  #  SET TASK FOR RANDOM THROTTLE
032037,000279: 36,2266           00004                           INHINT                                         
032038,000280: 36,2267           05663                           TC       WAITLIST                              #  PROGRAM P44
032039,000281: 36,2270  E4,1566                                  EBANK=   TDEC                                  
032040,000282: 36,2270           02300 74064                     2CADR    PROG44                                
032041,000283: 
032042,000284: 36,2272           15567                           TCF      ENDOFJOB                              #  READACCS STILL ACTIVE.
032043,000285: 
032044,000286: 
032045,000287: 
032046,000288: 36,2273           35210        11DAPOFF           CA       PRIO30                                #  CALL JOB TO TURN OFF DAP & START
032047,000289: 36,2274           05505                           TC       NOVAC                                 #  SPECIAL CDU-ONLY DOWNLINK.
032048,000290: 36,2275  E7,1407                                  EBANK=   DNTMBUFF                              
032049,000291: 36,2275           02530 22067                     2CADR    BEGINCDU                              
032050,000292: 
032051,000293: 36,2277           15727                           TCF      TASKOVER                              
032052,000294: 

Page 745

032054,000296:                                                                                                  #  THE DPS2 RANDOM THROTTLE PROG44 STARTS APPROXIMATELY AT TIG+705. THE
032055,000297:                                                                                                  #  EXACT TIME AND THRUST LEVEL SETTING AT THE START OF PROG44 ARE COMPUTED
032056,000298:                                                                                                  #  BY BURN GUIDANCE PROG43.  THE SUBSEQUENT THRUST COMMANDS ARE LISTED.
032057,000299: 
032058,000300:                                                                                                  #  T    10 PERCENT THRUST
032059,000301:                                                                                                  #  T+10 50 PERCENT
032060,000302:                                                                                                  #  T+30 30 PERCENT
032061,000303:                                                                                                  #  T+40 20 PERCENT
032062,000304:                                                                                                  #  T+50 92.5 PERCENT FOR 2 SECS THEN FIRE-IN-THE-HOLE
032063,000305: 
032064,000306: 36,2300           04117        PROG44             TC       NEWMODEX                              
032065,000307: 36,2301           00044                           OCT      44                                    #  SET MODE TO RANDOM THROTTLE
032066,000308: 
032067,000309: 36,2302           04161                           TC       PHASCHNG                              
032068,000310: 36,2303           05012                           OCT      05012                                 
032069,000311: 36,2304           77777                           OCT      77777                                 
032070,000312: 
032071,000313: 36,2305           37761        INDPCT             CAF      FOUR                                  
032072,000314: 36,2306           55342                           TS       RSDTTEMP                              #  INDEX.
032073,000315: 
032074,000316: 36,2307           50000                           INDEX    A                                     #  OFFSET POINTER
032075,000317: 36,2310           32523                           CAF      20PCTHR                               #  AMOUNT OF THROTTLE
032076,000318: 36,2311           55323                           TS       PCNTF                                 
032077,000319: 
032078,000320: 36,2312           00006                           EXTEND                                         
032079,000321: 36,2313           32536                           DCA      PCNTFAD                               #  GO TO THRUSTING ROUTINE
032080,000322: 36,2314           52006                           DTCB                                           
032081,000323: 
032082,000324: 36,2315           47762                           CS       TWO                                   #  WATER VALVE DUE 22 SEC AFTER RANDOM
032083,000325: 36,2316           61342                           AD       RSDTTEMP                              #  THROTTLE PHASE BEGINS.  THAT PUTS IT
032084,000326: 36,2317           00006                           EXTEND                                         #  2 SEC AFTER MPRETRN = 2.
032085,000327: 36,2320           12604                           BZF      SETWATER                              
032086,000328: 
032087,000329: 36,2321           04141                           TC       2PHSCHNG                              
032088,000330: 36,2322           00114                           OCT      00114                                 #  4.11SPOT FOR THRUSTING
032089,000331: 36,2323           00372                           OCT      00372                                 #  2.37 FOR MOVENDX TASK.
032090,000332: 
032091,000333: 36,2324           31342        MOVENDX            CA       RSDTTEMP                              
032092,000334: 36,2325           55662                           TS       MPRETRN                               
032093,000335: 
032094,000336: 36,2326           04161                           TC       PHASCHNG                              
032095,000337: 36,2327           40412                           OCT      40412                                 #  2.41 FOR CCSMPRET TASK.
032096,000338: 
032097,000339: 36,2330           05701                           TC       FIXDELAY                              
032098,000340: 36,2331           01750        10SECS11           DEC      1000       B-14                       #  DELAY 10 SECS
032099,000341: 
032100,000342: 36,2332           11662        CCSMPRET           CCS      MPRETRN                               #  DECREMENT INDEX
032101,000343: 36,2333           02306                           TC       INDPCT     +1                         #  NO
032102,000344: 
032103,000345: 36,2334           37743                           CAF      925PCTHR                              #  TURN ON 92.5 THRUST
032104,000346: 

Page 746

032106,000348: 36,2335           55323                           TS       PCNTF                                 
032107,000349: 36,2336           00006                           EXTEND                                         
032108,000350: 36,2337           32536                           DCA      PCNTFAD                               #  GO FOR THRUSTING
032109,000351: 36,2340           52006                           DXCH     Z                                     
032110,000352: 
032111,000353: 36,2341           32465                           CAF      1SEC11                                #  THRUST AT MAX FOR 2 SEC, 1 SEC HERE AND
032112,000354: 36,2342           05663                           TC       WAITLIST                              #  1 MORE IN FITHCMD
032113,000355: 36,2343  E4,1566                                  EBANK=   TDEC                                  
032114,000356: 36,2343           02354 74064                     2CADR    FITHCMD                               
032115,000357: 
032116,000358: 36,2345           04141                           TC       2PHSCHNG                              
032117,000359: 36,2346           00114                           OCT      00114                                 #  4.11SPOT FOR THRUSTING
032118,000360: 36,2347           47012                           OCT      47012                                 
032119,000361: 36,2350           00144                           DEC      100        B-14                       
032120,000362: 36,2351  E4,1566                                  EBANK=   TDEC                                  
032121,000363: 36,2351           02354 74064                     2CADR    FITHCMD                               
032122,000364: 
032123,000365: 36,2353           05727                           TC       TASKOVER                              
032124,000366: 

Page 747

032126,000368:                                                                                                  #  FITH/APS1 PROGRAM 74
032127,000369:                                                                                                  #  WITH DETECTION OF THE ABORT STAGE DISCRETE BY THE ABORT STAGE MONITOR
032128,000370:                                                                                                  #  THE FOLLOWING EVENTS OCCUR BY PROGRAM OR ARE PROCESSED AUTOMATICALLY
032129,000371:                                                                                                  #  BY THE LEM SEQUENCER.
032130,000372: 
032131,000373:                                                                                                  #   T-1.0 ABORT STAGE ARM (PROGRAMMED)
032132,000374:                                                                                                  #   T     ABORT STAGE COMMAND (PROGRAMMED)
032133,000375:                                                                                                  #        ATTITUDE HOLD (PROGRAMMED)
032134,000376:                                                                                                  #   T+.04 ASCENT PRESSURIZED
032135,000377:                                                                                                  #   T+.15 DESCENT ENGINE-OFF
032136,000378:                                                                                                  #   T+.42 ASCENT ENGINE ARM
032137,000379:                                                                                                  #         ASCENT/DESCENT STAGING INITIATED
032138,000380:                                                                                                  #         STAGE VERIFIED
032139,000381:                                                                                                  #   T+.46 INTERSTAGE BOLTS FIRED
032140,000382:                                                                                                  #         ASCENT STAGE UMBILICAL ELECTRICAL DEADFACE
032141,000383:                                                                                                  #   T+.50 DESCENT STAGE UMBILICAL ELEC. DEADFACE
032142,000384:                                                                                                  #   T+.55 ASCENT/DESCENT STAGE UMBILICAL CUT
032143,000385:                                                                                                  #   T+.78 ASCENT ENGINE REACHES 90 PC THRUST
032144,000386:                                                                                                  #  T+1.0 CHANGE LEM MASS (PROGRAMMED)
032145,000387:                                                                                                  #        DESCENT ENGINE ARM-OFF (PROGRAMMED)
032146,000388:                                                                                                  #  T+5.0 ASCENT ENGINE-OFF (PROGRAMMED)
032147,000389: 
032148,000390: 36,2354           05101        FITHCMD            TC       1LMP+DT                               #  THRUST AT MAX FOR 1 MORE SEC AND ABORT
032149,000391: 36,2355           00046                           DEC      38         B-14                       
032150,000392: 36,2356           00144                           DEC      100        B-14                       #  DELAY 1.0 SEC.
032151,000393: 
032152,000394: 36,2357           05060                           TC       1LMP                                  #  INITIATE ABORT STAGE COMMAND
032153,000395: 36,2360           00026                           DEC      22         B-14                       
032154,000396: 36,2361           05727                           TC       TASKOVER                              #  LET ABORT MONITOR TAKE IT FROM HERE
032155,000397: 
032156,000398: 36,2362           37762        ABMON              CAF      BIT2                                  #  ABORT STAGE MONITOR SAMPLES CHANNEL
032157,000399: 36,2363           00006                           EXTEND                                         #  30 FOR ABORT STAGE DISCRETE EVERY .5 SEC
032158,000400: 36,2364           02030                           RAND     30                                    
032159,000401: 36,2365           00006                           EXTEND                                         
032160,000402: 36,2366           12374                           BZF      FITHGCMD                              #  ABORT DISCRETE PRESENT-KILL MONITOR
032161,000403: 
032162,000404: 36,2367           40025                           CS       TIME1                                 
032163,000405: 36,2370           55117                           TS       TBASE3                                
032164,000406: 36,2371           05701                           TC       FIXDELAY                              #  NO ABORT DISCRETE-CONTINUE TO MONITOR
032165,000407: 36,2372           00062                           DEC      50         B-14                       #  DELAY .5 SECS
032166,000408: 36,2373           12362                           TCF      ABMON                                 
032167,000409: 
032168,000410: 36,2374           00006        FITHGCMD           EXTEND                                         #  BYPASS GUIDANCE, ASSURE ULLAGE OFF, AND
032169,000411: 36,2375           32544                           DCA      ADROFSER                              #  CLEAR OUT CURRENT ACTIVITY BY ENEMA - -
032170,000412: 36,2376           53073                           DXCH     AVGEXIT                               #  ALL THIS TO PROTECT IN CASE OF EARLY
032171,000413: 36,2377           05270                           TC       IBNKCALL                              #  ABORT STAGE COMMAND BY GROUND.
032172,000414: 36,2400           40066                           CADR     NOULLAGE                              
032173,000415: 
032174,000416: 36,2401           04141                           TC       2PHSCHNG                              
032175,000417: 36,2402           00001                           OCT      1                                     

Page 748

032177,000419: 36,2403           00003                           OCT      3                                     
032178,000420: 
032179,000421: 36,2404           04141                           TC       2PHSCHNG                              
032180,000422: 36,2405           00004                           OCT      4                                     
032181,000423: 36,2406           00006                           OCT      6                                     
032182,000424: 
032183,000425: 36,2407           04161                           TC       PHASCHNG                              
032184,000426: 36,2410           00252                           OCT      00252                                 #  2.25 SPOT FOR MP11HOLD.
032185,000427: 
032186,000428: 36,2411           35660                           CAF      PRIO37                                
032187,000429: 36,2412           05505                           TC       NOVAC                                 
032188,000430: 36,2413  E3,1400                                  EBANK=   LST1                                  
032189,000431: 36,2413           02354 02063                     2CADR    ENEMA                                 #  ENEMA AS SOON AS POSSIBLE.
032190,000432: 
032191,000433: 36,2415           05727                           TC       TASKOVER                              
032192,000434: 
032193,000435: 36,2416           05270        MP11HOLD           TC       IBNKCALL                              #  ENEMA SHOULD PICK UP HERE.
032194,000436: 36,2417           40114                           CADR     STOPRATE                              #  SET ATTITUDE HOLD
032195,000437: 
032196,000438: 36,2420           04117                           TC       NEWMODEX                              #  SET MODE TO FIRE-IN-THE-HOLE
032197,000439: 36,2421           00074                           OCT      74                                    #  PROG74
032198,000440: 
032199,000441: 36,2422  E7,1776                                  EBANK=   LEMMASS2                              
032200,000442: 36,2422           35662                           CAF      EBANK7                                
032201,000443: 36,2423           54003                           TS       EBANK                                 #  SET  EBANK= 7
032202,000444: 36,2424           00006                           EXTEND                                         
032203,000445: 36,2425           31777                           DCA      LEMMASS2                              #  CHANGE LEM MASS AT DPS/APS SEPARATION
032204,000446: 36,2426           53321                           DXCH     MASS                                  
032205,000447: 36,2427           37751                           CAF      BIT11                                 #  RETURN EBANK TO 04
032206,000448: 36,2430           54003                           TS       EBANK                                 
032207,000449: 36,2431  E4,1566                                  EBANK=   TDEC                                  
032208,000450: 
032209,000451: 36,2431           05270                           TC       IBNKCALL                              #  SET UP DAP FOR APS BURN
032210,000452: 36,2432           40175                           CADR     APSENGON                              
032211,000453: 
032212,000454: 36,2433           04161                           TC       PHASCHNG                              
032213,000455: 36,2434           47012                           OCT      47012                                 
032214,000456: 36,2435           00144                           DEC      100        B-14                       
032215,000457: 36,2436  E4,1566                                  EBANK=   TDEC                                  
032216,000458: 36,2436           02442 74064                     2CADR    ENGLECT                               
032217,000459: 
032218,000460: 36,2440           05701                           TC       FIXDELAY                              
032219,000461: 36,2441           00144                           DEC      100        B-14                       #  DELAY 1 SEC TO DPS ARM OFF
032220,000462: 
032221,000463: 36,2442           05101        ENGLECT            TC       1LMP+DT                               #  ENGINE SELECT-DESC ARM OFF
032222,000464: 36,2443           00227                           DEC      151        B-14                       #  APS BURN FOR 5 SECS
032223,000465: 36,2444           00620                           DEC      400        B-14                       #  DELAY 4.0 SECONDS
032224,000466: 
032225,000467: 36,2445           05270                           TC       IBNKCALL                              
032226,000468: 36,2446           40263                           CADR     ENGINOFF                              
032227,000469: 

Page 749

032229,000471: 36,2447           05727                           TC       TASKOVER                              
032230,000472: 
032231,000473: 
032232,000474: 
032233,000475: 36,2450           05270        DOCURTN            TC       IBNKCALL                              #   GO SET UP CURTAIN JOB
032234,000476: 36,2451           57334                           CADR     CURTJOB                               
032235,000477: 
032236,000478: 36,2452           32465        MP11TERM           CAF      1SEC11                                #  SET TO DO MP11 TERMINAL TASKS IN 1 SEC
032237,000479: 36,2453           00004                           INHINT                                         
032238,000480: 36,2454           05663                           TC       WAITLIST                              
032239,000481: 36,2455  E4,1566                                  EBANK=   TDEC                                  
032240,000482: 36,2455           02463 74064                     2CADR    MP11OUT                               
032241,000483: 
032242,000484: 36,2457           04141                           TC       2PHSCHNG                              
032243,000485: 36,2460           00035                           OCT      35                                    #  5.3 SPOT FOR SERVICER.
032244,000486: 36,2461           40272                           OCT      40272                                 #  2.27 SPOT FOR MP11OUT.
032245,000487: 
032246,000488: 36,2462           05567                           TC       ENDOFJOB                              
032247,000489: 
032248,000490: 36,2463           05101        MP11OUT            TC       1LMP+DT                               
032249,000491: 36,2464           00047                           DEC      39         B-14                       #  INITIATE ABORT STAGE COMMAND RESET
032250,000492: 36,2465           00144        1SEC11             DEC      100        B-14                       #  DELAY 1 SEC
032251,000493: 
032252,000494: 36,2466           05101                           TC       1LMP+DT                               
032253,000495: 36,2467           00267                           DEC      183        B-14                       #  LANDING RADAR POWER OFF
032254,000496: 36,2470           01440                           DEC      800        B-14                       #  DELAY 8 SECS
032255,000497: 
032256,000498: 36,2471           05073                           TC       2LMP+DT                               
032257,000499: 36,2472           00365                           DEC      245        B-14                       #  DPS PQGS U AND 2 OFF
032258,000500: 36,2473           00325                           DEC      213        B-14                       
032259,000501: 36,2474           00144                           DEC      100        B-14                       #  DELAY 1 SEC
032260,000502: 
032261,000503: 36,2475           05073                           TC       2LMP+DT                               
032262,000504: 36,2476           00345                           DEC      229        B-14                       #  DPS PQGS ARM 1 AND 2 DISABLE
032263,000505: 36,2477           00305                           DEC      197        B-14                       
032264,000506: 36,2500           03554                           DEC      1900       B-14                       #  DELAY 19 SECS TO KILL AVEG
032265,000507: 
032266,000508: 36,2501           06067                           TC       FLAG1DWN                              #  KILL AVERAGE G
032267,000509: 36,2502           00001                           OCT      1                                     
032268,000510: 
032269,000511: 36,2503           05270                           TC       IBNKCALL                              
032270,000512: 36,2504           40054                           CADR     SETMAXDB                              
032271,000513: 
032272,000514: 36,2505           04141                           TC       2PHSCHNG                              
032273,000515: 36,2506           00002                           OCT      2                                     
032274,000516: 36,2507           05013                           OCT      05013                                 #  GROUP 3 FOR MISSION SCHEDULER.
032275,000517: 36,2510           77777                           OCT      77777                                 
032276,000518: 
032277,000519: 36,2511           05126                           TC       MPENTRY                               #  SETUP MISSION PHASE SCHEDULING
032278,000520: 36,2512           00002                           DEC      2          B-14                       #  TIMER -2-

Page 750

032280,000522: 36,2513           00015                           DEC      13         B-14                       #  MISSION PHASE -13-
032281,000523: 36,2514           01753                           ADRES    MP11TO13                              
032282,000524: 36,2515           05727                           TC       TASKOVER                              #  MISSION PHASE 11 COMPLETE
032283,000525: 

Page 751

032285,000527:                                                                                                  #  ????????????????????????????????
032286,000528:                                                                                                  #  NUMERICAL AND ADDRESS CONSTANTS
032287,000529:                                                                                                  #  ????????????????????????????????
032288,000530: 
032289,000531: 
032290,000532: 
032291,000533:                                                                                                  #                                          ** TIME CONSTANTS **
032292,000534: 
032293,000535: 36,2516           00000 32274  135SECS            2DEC     13500      B-28                       
032294,000536: 
032295,000537: 36,2520           04312        22.5SECS           DEC      2250       B-14                       
032296,000538: 36,2521           04766        25.5SECS           DEC      2550       B-14                       
032297,000539: 36,2522           04230        22SECS11           DEC      2200       B-14                       
032298,000540: 
032299,000541: 
032300,000542: 
032301,000543:                                                                                                  #                                          ** THRUST LEVEL CONSTANTS **
032302,000544: 
032303,000545: 36,2523           06315        20PCTHR            DEC      .2                                    
032304,000546: 36,2524           14632                           DEC      .4                                    
032305,000547: 36,2525           11463                           DEC      .3                                    
032306,000548: 36,2526           20000                           DEC      .5                                    
032307,000549: 36,2527           03146                           DEC      .1                                    
032308,000550: 36,2530     7743               925PCTHR           =        POSMAX                                #  FOR MAXIMUM PERMITTED THRUST (92.5%)
032309,000551: 
032310,000552: 
032311,000553: 
032312,000554:                                                                                                  #                                          ** ADDRESS CONSTANTS **
032313,000555: 
032314,000556: 36,2530           02251        AVEG11AD           GENADR   AVERAGEG                              
032315,000557: 36,2531  E4,1400                                  EBANK=   E2DPS                                 
032316,000558: 36,2531           02043 44064  BURNADR            2CADR    BURN                                  
032317,000559: 
032318,000560: 36,2533  E4,1400                                  EBANK=   E2DPS                                 
032319,000561: 36,2533           02000 44064  DPS2ADR            2CADR    PREBURN                               
032320,000562: 
032321,000563: 36,2535  E5,1565                                  EBANK=   ETHROT                                #  EBANK 5
032322,000564: 36,2535           03466 60065  PCNTFAD            2CADR    PCNTFMAX                              
032323,000565: 
032324,000566: 36,2537  E4,1566                                  EBANK=   TDEC                                  
032325,000567: 36,2537           02452 74064  MP11TMAD           2CADR    MP11TERM                              
032326,000568: 
032327,000569: 36,2541  E4,1566                                  EBANK=   TDEC                                  
032328,000570: 36,2541           02336 16064  MDAVADR            2CADR    RVUPDATE                              
032329,000571: 
032330,000572: 36,2543  E5,1511                                  EBANK=   DVCNTR                                
032331,000573: 36,2543           02324 60065  ADROFSER           2CADR    SERVEXIT                              
032332,000574: 

Page 752

032334,000576:                                                                                                  #  ????????????????????????????????
032335,000577:                                                                                                  #  TASKS CALLED ELSEWHERE IN MP11
032336,000578:                                                                                                  #  ????????????????????????????????
032337,000579: 
032338,000580: 
032339,000581: 
032340,000582: 36,2545           05060        MP11TASK           TC       1LMP                                  
032341,000583: 36,2546           00354                           DEC      236        B-14                       #  DFI T/M CALIBRATION - ON
032342,000584: 
032343,000585: 36,2547           04161                           TC       PHASCHNG                              
032344,000586: 36,2550           40153                           OCT      40153                                 
032345,000587: 
032346,000588: 36,2551           05701                           TC       FIXDELAY                              
032347,000589: 36,2552           02260                           DEC      1200       B-14                       
032348,000590: 
032349,000591: 36,2553           05052        NEXLMP             TC       2LMP                                  
032350,000592: 36,2554           00355                           DEC      237        B-14                       #  DFI T/M CALIBRATE - OFF
032351,000593: 36,2555           00306                           DEC      198        B-14                       #  C+W ALARM RESET - COMMAND
032352,000594: 
032353,000595: 36,2556           04161                           TC       PHASCHNG                              
032354,000596: 36,2557           40173                           OCT      40173                                 
032355,000597: 
032356,000598: 36,2560           05701                           TC       FIXDELAY                              
032357,000599: 36,2561           00310        2SECS11            DEC      200        B-14                       
032358,000600: 
032359,000601: 36,2562           05060        NEXLMP1            TC       1LMP                                  
032360,000602: 36,2563           00307                           DEC      199        B-14                       #  C+W ALARM RESET - COMMAND RESET
032361,000603: 
032362,000604: 36,2564           04161                           TC       PHASCHNG                              
032363,000605: 36,2565           40213                           OCT      40213                                 
032364,000606: 
032365,000607: 36,2566           05701                           TC       FIXDELAY                              
032366,000608: 36,2567           00144                           DEC      100        B-14                       
032367,000609: 
032368,000610: 36,2570           05052        NEXLMP2            TC       2LMP                                  
032369,000611: 36,2571           00266                           DEC      182        B-14                       #  LR POWER - ON
032370,000612: 36,2572           00032                           DEC      26         B-14                       #  RADAR SELFTEST -ON
032371,000613: 
032372,000614: 36,2573           04161                           TC       PHASCHNG                              
032373,000615: 36,2574           40233                           OCT      40233                                 
032374,000616: 
032375,000617: 36,2575           05701                           TC       FIXDELAY                              
032376,000618: 36,2576           13560                           DEC      6000       B-14                       
032377,000619: 
032378,000620: 36,2577           05060        NEXLMP3            TC       1LMP                                  
032379,000621: 36,2600           00033                           DEC      27         B-14                       #  RADAR SELFTEST-OFF
032380,000622: 
032381,000623: 36,2601           04161                           TC       PHASCHNG                              
032382,000624: 36,2602           00003                           OCT      3                                     
032383,000625: 

Page 753

032385,000627: 36,2603           05727                           TC       TASKOVER                              
032386,000628: 
032387,000629: 
032388,000630: 
032389,000631: 36,2604           04141        SETWATER           TC       2PHSCHNG                              
032390,000632: 36,2605           00114                           OCT      00114                                 #  4.11 FOR PCNTJOB JOB.
032391,000633: 36,2606           47012                           OCT      47012                                 
032392,000634: 36,2607           00310                           DEC      200        B-14                       
032393,000635: 36,2610  E4,1566                                  EBANK=   TDEC                                  
032394,000636: 36,2610           02614 74064                     2CADR    ASWTVLON                              
032395,000637: 
032396,000638: 36,2612           05701                           TC       FIXDELAY                              
032397,000639: 36,2613           00310                           DEC      200        B-14                       
032398,000640: 
032399,000641: 36,2614           05101        ASWTVLON           TC       1LMP+DT                               
032400,000642: 36,2615           00336                           DEC      222        B-14                       #  ASCENT WATER COOLANT VALVE - OPEN
032401,000643: 36,2616           00310                           DEC      200        B-14                       
032402,000644: 
032403,000645: 36,2617           05101                           TC       1LMP+DT                               
032404,000646: 36,2620           00337                           DEC      223        B-14                       #  ASCENT WATER COOLANT VALVE - OPEN RESET
032405,000647: 36,2621           01130                           DEC      600        B-14                       
032406,000648: 
032407,000649: 36,2622           31342                           CA       RSDTTEMP                              
032408,000650: 36,2623           55662                           TS       MPRETRN                               
032409,000651: 
032410,000652: 36,2624           12332                           TCF      CCSMPRET                              

End of include-file MISSION_PHASE_11-DPS2_FITH_APS1.agc.  Parent file is MAIN.agc