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.

031741,000002:                                                                                                  ## Copyright:    Public domain.
031742,000003:                                                                                                  ## Filename:     MISSION_PHASE_11-DPS2_FITH_APS1.agc
031743,000004:                                                                                                  ## Purpose:      A module for revision 0 of BURST120 (Sunburst). It 
031744,000005:                                                                                                  ##               is part of the source code for the Lunar Module's
031745,000006:                                                                                                  ##               (LM) Apollo Guidance Computer (AGC) for Apollo 5.
031746,000007:                                                                                                  ## Assembler:    yaYUL
031747,000008:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
031748,000009:                                                                                                  ## Website:      www.ibiblio.org/apollo/index.html
031749,000010:                                                                                                  ## Mod history:  2016-09-30 RSB  Created draft version.
031750,000011:                                                                                                  ##               2016-10-28 MAS  Transcribed.
031751,000012:                                                                                                  ##               2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
031752,000013:                                                                                                  ##                               changes made.
031753,000014: 

Page 739

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

Page 740

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

Page 741

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

Page 742

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

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

031957,000218: 
031958,000219: 36,2213           04161                           TC       PHASCHNG                              
031959,000220: 36,2214           47012                           OCT      47012                                 

Page 743

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

Page 744

032013,000274: 36,2262           04161                           TC       PHASCHNG                              
032014,000275: 36,2263           45022                           OCT      45022                                 
032015,000276: 36,2264           20000                           OCT      20000                                 
032016,000277: 
032017,000278: 36,2265           37763                           CAF      BIT1                                  #  SET TASK FOR RANDOM THROTTLE
032018,000279: 36,2266           00004                           INHINT                                         
032019,000280: 36,2267           05663                           TC       WAITLIST                              #  PROGRAM P44
032020,000281: 36,2270  E4,1566                                  EBANK=   TDEC                                  
032021,000282: 36,2270           02300 74064                     2CADR    PROG44                                
032022,000283: 
032023,000284: 36,2272           15567                           TCF      ENDOFJOB                              #  READACCS STILL ACTIVE.
032024,000285: 
032025,000286: 
032026,000287: 
032027,000288: 36,2273           35210        11DAPOFF           CA       PRIO30                                #  CALL JOB TO TURN OFF DAP & START
032028,000289: 36,2274           05505                           TC       NOVAC                                 #  SPECIAL CDU-ONLY DOWNLINK.
032029,000290: 36,2275  E7,1407                                  EBANK=   DNTMBUFF                              
032030,000291: 36,2275           02530 22067                     2CADR    BEGINCDU                              
032031,000292: 
032032,000293: 36,2277           15727                           TCF      TASKOVER                              
032033,000294: 

Page 745

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

Page 746

032087,000348: 36,2335           55323                           TS       PCNTF                                 
032088,000349: 36,2336           00006                           EXTEND                                         
032089,000350: 36,2337           32536                           DCA      PCNTFAD                               #  GO FOR THRUSTING
032090,000351: 36,2340           52006                           DXCH     Z                                     
032091,000352: 
032092,000353: 36,2341           32465                           CAF      1SEC11                                #  THRUST AT MAX FOR 2 SEC, 1 SEC HERE AND
032093,000354: 36,2342           05663                           TC       WAITLIST                              #  1 MORE IN FITHCMD
032094,000355: 36,2343  E4,1566                                  EBANK=   TDEC                                  
032095,000356: 36,2343           02354 74064                     2CADR    FITHCMD                               
032096,000357: 
032097,000358: 36,2345           04141                           TC       2PHSCHNG                              
032098,000359: 36,2346           00114                           OCT      00114                                 #  4.11SPOT FOR THRUSTING
032099,000360: 36,2347           47012                           OCT      47012                                 
032100,000361: 36,2350           00144                           DEC      100        B-14                       
032101,000362: 36,2351  E4,1566                                  EBANK=   TDEC                                  
032102,000363: 36,2351           02354 74064                     2CADR    FITHCMD                               
032103,000364: 
032104,000365: 36,2353           05727                           TC       TASKOVER                              
032105,000366: 

Page 747

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

Page 748

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

Page 749

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

Page 750

032261,000522: 36,2513           00015                           DEC      13         B-14                       #  MISSION PHASE -13-
032262,000523: 36,2514           01753                           ADRES    MP11TO13                              
032263,000524: 36,2515           05727                           TC       TASKOVER                              #  MISSION PHASE 11 COMPLETE
032264,000525: 

Page 751

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

Page 752

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

Page 753

032366,000627: 36,2603           05727                           TC       TASKOVER                              
032367,000628: 
032368,000629: 
032369,000630: 
032370,000631: 36,2604           04141        SETWATER           TC       2PHSCHNG                              
032371,000632: 36,2605           00114                           OCT      00114                                 #  4.11 FOR PCNTJOB JOB.
032372,000633: 36,2606           47012                           OCT      47012                                 
032373,000634: 36,2607           00310                           DEC      200        B-14                       
032374,000635: 36,2610  E4,1566                                  EBANK=   TDEC                                  
032375,000636: 36,2610           02614 74064                     2CADR    ASWTVLON                              
032376,000637: 
032377,000638: 36,2612           05701                           TC       FIXDELAY                              
032378,000639: 36,2613           00310                           DEC      200        B-14                       
032379,000640: 
032380,000641: 36,2614           05101        ASWTVLON           TC       1LMP+DT                               
032381,000642: 36,2615           00336                           DEC      222        B-14                       #  ASCENT WATER COOLANT VALVE - OPEN
032382,000643: 36,2616           00310                           DEC      200        B-14                       
032383,000644: 
032384,000645: 36,2617           05101                           TC       1LMP+DT                               
032385,000646: 36,2620           00337                           DEC      223        B-14                       #  ASCENT WATER COOLANT VALVE - OPEN RESET
032386,000647: 36,2621           01130                           DEC      600        B-14                       
032387,000648: 
032388,000649: 36,2622           31342                           CA       RSDTTEMP                              
032389,000650: 36,2623           55662                           TS       MPRETRN                               
032390,000651: 
032391,000652: 36,2624           12332                           TCF      CCSMPRET                              

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