Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

031379,000002:                                                                                                  ## Copyright:   Public domain.
031380,000003:                                                                                                  ## Filename:    MISSION_PHASE_11_-_DPS2_FITH_APS1.agc
031381,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
031382,000005:                                                                                                  ##              It is part of an early development version of the software
031383,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
031384,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
031385,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
031386,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
031387,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
031388,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
031389,000012:                                                                                                  ##              that the code format has been changed to conform to the
031390,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
031391,000014:                                                                                                  ##              original YUL assembler.
031392,000015:                                                                                                  ## Reference:   pp. 693-703
031393,000016:                                                                                                  ## Assembler:   yaYUL
031394,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
031395,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
031396,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
031397,000020:                                                                                                  ##              2017-06-06 HG   Transcribed
031398,000021:                                                                                                  ##              2017-06-15 HG   Fix operator TCF -> TC
031399,000022:                                                                                                  ##                                  operand  IBNKCALL -> BANKCALL
031400,000023:                                                                                                  ##              2017-06-23 RSB  Proofed comment text with
031401,000024:                                                                                                  ##                              octopus/ProoferComments.
031402,000025: 

Page 693

031404,000027: 36,2000                                           BANK     36                                    
031405,000028: 36,2000  E4,1566                                  EBANK=   TDEC                                  
031406,000029: 36,2000  E4,1662               EMP11JOB           EQUALS   MPRETRN                               
031407,000030:                                                                                                  #  MISSION PHASE 11 DOES PROG32-PREDPS2, PROG42-DPS2 BURN BRAKING GUIDANCE,
031408,000031:                                                                                                  #  PROG43-APPROACH GUIDANCE, PROG43-RANDOM THROTTLE PROGRAM AND PROG74-THE
031409,000032:                                                                                                  #  FIRE-IN-THE-HOLE AND APS1 BURN
031410,000033: 
031411,000034:                                                                                                  #  THE APPROXIMATE STARTING TIME OF THESE PROG IS SHOWN BELOW
031412,000035: 
031413,000036:                                                                                                  #  T       PROG32
031414,000037:                                                                                                  #  T+187   DPS2 IGNITION (TIG11)
031415,000038:                                                                                                  #  TIG+26  PROG42
031416,000039:                                                                                                  #  TIG+705 PROG44
031417,000040:                                                                                                  #  TIG+757 PROG74
031418,000041:                                                                                                  #  TIG+792 MISSION TERMINATED
031419,000042: 
031420,000043: 
031421,000044: 
031422,000045: 36,2000           00006        MP11JOB            EXTEND                                         
031423,000046: 36,2001           30025                           DCA      TIME2                                 
031424,000047: 36,2002           53567                           DXCH     TDEC                                  
031425,000048: 36,2003           04105                           TC       NEWMODEX                              #  SET DISPLAY
031426,000049: 36,2004           00032                           OCT      32                                    
031427,000050: 
031428,000051: 36,2005           32311                           CAF      1SEC11                                #  SETUP MP11 TASK-REQUIRES 75 SECS AND
031429,000052: 36,2006           00004                           INHINT                                         #  TERMINATES ITSELF
031430,000053: 36,2007           05701                           TC       WAITLIST                              
031431,000054: 36,2010  E4,1566                                  EBANK=   TDEC                                  
031432,000055: 36,2010           02401 74064                     2CADR    MP11TASK                              
031433,000056: 
031434,000057: 36,2012           00003                           RELINT                                         
031435,000058: 
031436,000059: 36,2013           32336                           CAF      135SECS                               #  SET TDEC =TIG-50
031437,000060: 36,2014           54001                           TS       L                                     
031438,000061: 36,2015           37761                           CAF      ZERO                                  
031439,000062: 36,2016           21567                           DAS      TDEC                                  
031440,000063: 
031441,000064: 36,2017           00006                           EXTEND                                         #  SET RETURN FROM MIDTOAVE TO INTRTN
031442,000065: 36,2020           32361                           DCA      MDAVADR                               
031443,000066: 36,2021           52006                           DXCH     Z                                     #  DO MIDTOAVE VIA RVUPDATE
031444,000067: 
031445,000068: 36,2022           00006        INTRTN             EXTEND                                         
031446,000069: 36,2023           32353                           DCA      DPS2ADR                               #  INTEGRATION DONE-DO PRE-DPS2
031447,000070: 36,2024           52006                           DXCH     Z                                     #  STATE AT RIGNTION-TIME AT TET FOR PREDPS
031448,000071: 
031449,000072:                                                                                                  #   PRE-DPS2 RETURN TO RETPREB WITH ULLAGE-ON TIME AT TULLG, (TIG-7.5).
031450,000073:                                                                                                  #  THE DESIRED 1/2 UNIT THRUST VECTOR AT POINTVSM.
031451,000074:                                                                                                  #   STATE VECTOR IN SM COORDINATES STORED AT RN, VN WITH CORRESPONDING
031452,000075:                                                                                                  #   TIME AT PIPTIME WHERE (TULLG - PIPTIME)IS BETWEEN
031453,000076:                                                                                                  #   3.8 AND 6 SECS.
031454,000077: 

Page 694

031456,000079: 
031457,000080: 36,2025           00004        RETPREB            INHINT                                         
031458,000081: 36,2026           00006                           EXTEND                                         
031459,000082: 36,2027           31457                           DCA      TULLG                                 #  C(TULLG)=TIG-7.5
031460,000083: 36,2030           52145                           DXCH     MPAC                                  
031461,000084: 36,2031           42337                           CS       22.5SECS                              
031462,000085: 36,2032           54001                           TS       L                                     
031463,000086: 36,2033           37761                           CAF      ZERO                                  
031464,000087: 36,2034           54146                           TS       MPAC       +2                         
031465,000088: 36,2035           20145                           DAS      MPAC                                  #  C(MPAC)=TIG-30
031466,000089: 36,2036           00006                           EXTEND                                         
031467,000090: 36,2037           40025                           DCS      TIME2                                 #  GET CURRENT TIME
031468,000091: 36,2040           20145                           DAS      MPAC                                  #  C(MPAC)=DELTA(TIG-30)
031469,000092: 36,2041           07320                           TC       TPAGREE                               #  MAKE SIGNS AGREE
031470,000093: 36,2042           52145                           DXCH     MPAC                                  
031471,000094: 
031472,000095: 36,2043           05757                           TC       LONGCALL                              
031473,000096: 36,2044  E4,1566                                  EBANK=   TDEC                                  
031474,000097: 36,2044           02102 74064                     2CADR    TIG11-30                              
031475,000098: 
031476,000099: 36,2046           00003                           RELINT                                         
031477,000100: 
031478,000101: 36,2047           06103                           TC       INTPRET                               
031479,000102: 36,2050           77775                           VLOAD                                          
031480,000103: 36,2051           01011                                    RN                                    #  STATE STORED IN RAVEGON AND VAVEGON FOR
031481,000104: 36,2052           26115                           STOVL    RAVEGON                               #  AVERAGE G INITIALIZATION AT PIPTIME
031482,000105: 36,2053           01017                                    VN                                    
031483,000106: 36,2054           16123                           STODL    VAVEGON                               
031484,000107: 36,2055           35451                                    D1/2                                  #  JAM .5,0,0 IN SCAXIS FOR KALCMANU
031485,000108: 36,2056           15664                           STODL    SCAXIS                                
031486,000109: 36,2057           35076                                    DZERO                                 
031487,000110: 36,2060           01666                           STORE    SCAXIS     +2                         
031488,000111: 36,2061           15670                           STODL    SCAXIS     +4                         
031489,000112: 36,2062           01321                                    PIPTIME                               #  THIS TIME CONSISTANT WITH STATE-RAVEGON
031490,000113: 36,2063           02264                           STORE    DT11TEMP                              #  USED AFTER KALCMANU TO CALL PREREAD
031491,000114: 36,2064           43131                           SSP      SET                                   
031492,000115: 36,2065           01653                                    RATEINDX                              #  SET KALCMANU FOR ANGULAR RATE OF 5 DEG/S
031493,000116: 36,2066           00004                                    4                                     
031494,000117: 36,2067           01063                                    33D                                   
031495,000118: 
031496,000119: 36,2070           77776                           EXIT                                           
031497,000120: 
031498,000121: 36,2071           35226                           CAF      PRIO30                                #  DO ATTITUDE MANEUVER JOB
031499,000122: 36,2072           00004                           INHINT                                         
031500,000123: 36,2073           05534                           TC       FINDVAC                               
031501,000124: 36,2074  E3,1535                                  EBANK=   MIS                                   
031502,000125: 36,2074           02001 70063                     2CADR    VECPOINT                              
031503,000126: 
031504,000127: 36,2076           05224                           TC       BANKCALL                              
031505,000128: 36,2077           26754                           CADR     ATTSTALL                              #  PUT MP11 TO SLEEP - KALCMANU WILL WAKE
031506,000129: 
031507,000130: 36,2100           04732                           TC       CURTAINS                              #  KALCMANU HAS GIMBALOC PROBLEMS-CURTAINS
031508,000131: 36,2101           05605                           TC       ENDOFJOB                              #  WAIT FOR TIG-30
031509,000132: 

Page 695

031511,000134: 
031512,000135: 36,2102           37743        TIG11-30           CAF      BIT11                                 #  SEE IF ATTITUDE MANEUVER DONE
031513,000136: 36,2103           70076                           MASK     FLAGWRD2                              
031514,000137: 36,2104           10000                           CCS      A                                     
031515,000138: 36,2105           02277                           TC       DOCURTN                               #  KALCMANU NOT-DO CURTJOB
031516,000139: 36,2106           04105                           TC       NEWMODEX                              #  SET MODE TO PROG42
031517,000140: 36,2107           00042                           OCT      42                                    
031518,000141: 
031519,000142: 36,2110           00006                           EXTEND                                         
031520,000143: 36,2111           40025                           DCS      TIME2                                 #  GET PIPTIME-TIME2
031521,000144: 36,2112           21664                           DAS      DT11TEMP                              
031522,000145: 36,2113           11664                           CCS      DT11TEMP   +1                         
031523,000146: 36,2114           67755                           AD       ONE                                   #  MAKE SURE OF POSITIVE WAITLIST CALL
031524,000147: 36,2115           12120                           TCF      +3                                    
031525,000148: 36,2116           40000                           COM                                            
031526,000149: 36,2117           67735                           AD       POSMAX                                
031527,000150: 36,2120           05701                           TC       WAITLIST                              
031528,000151: 36,2121  E4,1566                                  EBANK=   TDEC                                  
031529,000152: 36,2121           02364 74064                     2CADR    PREAVEG                               
031530,000153: 
031531,000154: 36,2123           06074        DPSTART            TC       ENGINOF1                              
031532,000155: 
031533,000156: 36,2124           05114                           TC       1LMP+DT                               
031534,000157: 36,2125           00226                           DEC      150        B-14                       #  ARM DESCENT ENGINE
031535,000158: 36,2126           01750                           DEC      1000       B-14                       #  DELAY 10 SECONDS
031536,000159: 
031537,000160: 36,2127           37755                           CAF      BIT1                                  #   START UP ABORT STAGE MONITOR
031538,000161: 36,2130           05701                           TC       WAITLIST                              
031539,000162: 36,2131  E4,1566                                  EBANK=   TDEC                                  
031540,000163: 36,2131           02245 74064                     2CADR    ABMON                                 
031541,000164: 36,2133           05114        TIG11-20           TC       1LMP+DT                               
031542,000165: 36,2134           00126                           DEC      86         B-14                       #  SET MANUAL THROTTLE TO 10 %
031543,000166: 36,2135           00620                           DEC      400        B-14                       #  DELAY 4 SECONDS
031544,000167: 
031545,000168: 36,2136           05106        TIG11-16           TC       2LMP+DT                               
031546,000169: 36,2137           00344                           DEC      228        B-14                       #  ENABLE DPS PQGS ARM 1
031547,000170: 36,2140           00304                           DEC      196        B-14                       #  ENABLE DPS PQGS ARM 2
031548,000171: 36,2141           00144                           DEC      100        B-14                       #  DELAY 1 SECOND
031549,000172: 
031550,000173: 36,2142           05106        TIG11-15           TC       2LMP+DT                               
031551,000174: 36,2143           00364                           DEC      244        B-14                       #  DPS PQGS =1 ON
031552,000175: 36,2144           00324                           DEC      212        B-14                       #  DPS PQGS =2 ON
031553,000176: 
031554,000177: 36,2145           01356                           DEC      750        B-14                       #  DELAY 7.5 SECONDS
031555,000178: 
031556,000179: 36,2146           05307        TIG-7.5            TC       IBNKCALL                              
031557,000180: 36,2147           34024                           CADR     ULLAGE                                #  CALL FOR 4 JET ULLAGE
031558,000181: 
031559,000182: 36,2150           05717                           TC       FIXDELAY                              
031560,000183: 36,2151           01356                           DEC      750        B-14                       #  DELAY 7.5 SECONDS, UNTIL ENGINEON
031561,000184: 

Page 696

031563,000186: 
031564,000187: 36,2152           06054        TIG11              TC       ENGINEON                              
031565,000188: 36,2153           05717                           TC       FIXDELAY                              
031566,000189: 
031567,000190: 36,2154           00062                           DEC      50         B-14                       #  DELAY HALF A SECOND
031568,000191: 
031569,000192: 36,2155           05307                           TC       IBNKCALL                              
031570,000193: 36,2156           34030                           CADR     NOULLAGE                              
031571,000194: 
031572,000195: 36,2157           05717                           TC       FIXDELAY                              
031573,000196: 36,2160           04766                           DEC      2550       B-14                       #  WAIT 25.5 SECONDS
031574,000197: 
031575,000198: 36,2161           37735        TIG11+26           CAF      POSMAX                                #  HAVE BEEN AT 10% THROTTLE FOR 26 SECONDS
031576,000199: 36,2162           55335                           TS       PCNTF                                 #  NOW CALL FOR MAXIMUM THRUST (92.5%)
031577,000200: 
031578,000201: 36,2163           00006                           EXTEND                                         
031579,000202: 36,2164           32355                           DCA      PCNTFAD                               
031580,000203: 36,2165           52006                           DXCH     Z                                     
031581,000204: 
031582,000205: 36,2166           00006                           EXTEND                                         
031583,000206: 36,2167           32351                           DCA      BURNADR                               #  STARTING DPS2 GUIDANCE: TIG +26 SECONDS
031584,000207: 36,2170           53073                           DXCH     AVGEXIT                               
031585,000208: 
031586,000209: 36,2171           05745                           TC       TASKOVER                              
031587,000210: 
031588,000211: 36,2172           00006        RETBURN            EXTEND                                         #  RETURN FROM BURN GUIDANCE
031589,000212: 36,2173           32363                           DCA      ADROFSER                              #  SET SERVICER EXIT TO KILL BURN GUID
031590,000213: 
031591,000214: 36,2174           53073                           DXCH     AVGEXIT                               
031592,000215: 
031593,000216: 36,2175           37755                           CAF      BIT1                                  #  SET TASK FOR RANDOM THROTTLE
031594,000217: 36,2176           00004                           INHINT                                         
031595,000218: 36,2177           05701                           TC       WAITLIST                              #  PROGRAM P44
031596,000219: 36,2200  E4,1566                                  EBANK=   TDEC                                  
031597,000220: 36,2200           02203 74064                     2CADR    PROG44                                
031598,000221: 
031599,000222: 36,2202           05605                           TC       ENDOFJOB                              #  READACCS STILL ACTIVE
031600,000223: 

Page 697

031602,000225: 
031603,000226:                                                                                                  #  THE DPS2 RANDOM THROTTLE PROG44 STARTS APPROXIMATELY AT TIG+705. THE
031604,000227:                                                                                                  #  EXACT TIME AND THRUST LEVEL SETTING AT THE START OF PROG44 ARE COMPUTED
031605,000228:                                                                                                  #  BY BURN GUIDANCE PROG43.  THE SUBSEQUENT THRUST COMMANDS ARE LISTED.
031606,000229: 
031607,000230:                                                                                                  #  T    10 PERCENT THRUST
031608,000231:                                                                                                  #  T+10 50 PERCENT
031609,000232:                                                                                                  #  T+30 30 PERCENT
031610,000233:                                                                                                  #  T+40 20 PERCENT
031611,000234:                                                                                                  #  T+50 92.5 PERCENT FOR 2 SECS THEN FIRE-IN-THE-HOLE
031612,000235: 
031613,000236: 36,2203           04105        PROG44             TC       NEWMODEX                              
031614,000237: 36,2204           00044                           OCT      44                                    #  SET MODE TO RANDOM THROTTLE
031615,000238: 
031616,000239: 36,2205           32341                           CAF      22SECS11                              #  DO ASCENT COOLANT VALVE TASK IN 22 SECS
031617,000240: 36,2206           05701                           TC       WAITLIST                              
031618,000241: 36,2207  E4,1566                                  EBANK=   TDEC                                  
031619,000242: 36,2207           02422 74064                     2CADR    ASWTVLON                              #  COOLANT VALVE CALL
031620,000243: 
031621,000244: 36,2211           37753        INDPCT             CAF      FOUR                                  
031622,000245: 36,2212           55662                           TS       MPRETRN                               #  INDEX
031623,000246: 
031624,000247: 36,2213           50000                           INDEX    A                                     #  OFFSET POINTER
031625,000248: 36,2214           32342                           CAF      20PCTHR                               #  AMOUNT OF THROTTLE
031626,000249: 36,2215           55335                           TS       PCNTF                                 
031627,000250: 
031628,000251: 36,2216           00006                           EXTEND                                         
031629,000252: 36,2217           32355                           DCA      PCNTFAD                               #  GO TO THRUSTING ROUTINE
031630,000253: 36,2220           52006                           DXCH     Z                                     
031631,000254: 
031632,000255: 36,2221           05717                           TC       FIXDELAY                              
031633,000256: 36,2222           01750        10SECS11           DEC      1000       B-14                       #  DELAY 10 SECS
031634,000257: 
031635,000258: 36,2223           11662                           CCS      MPRETRN                               #  DECREMENT INDEX
031636,000259: 36,2224           02212                           TC       INDPCT     +1                         #  NO
031637,000260: 
031638,000261: 36,2225           37735                           CAF      925PCTHR                              #  TURN ON 92.5 THRUST
031639,000262: 36,2226           55335                           TS       PCNTF                                 
031640,000263: 36,2227           00006                           EXTEND                                         
031641,000264: 36,2230           32355                           DCA      PCNTFAD                               #  GO FOR THRUSTING
031642,000265: 36,2231           52006                           DXCH     Z                                     
031643,000266: 
031644,000267: 36,2232           32311                           CAF      1SEC11                                #  THRUST AT MAX FOR 2 SEC, 1 SEC HERE AND
031645,000268: 36,2233           05701                           TC       WAITLIST                              #  1 MORE IN FITHCMD
031646,000269: 36,2234  E4,1566                                  EBANK=   TDEC                                  
031647,000270: 36,2234           02237 74064                     2CADR    FITHCMD                               
031648,000271: 
031649,000272: 36,2236           05745                           TC       TASKOVER                              
031650,000273: 
031651,000274:                                                                                                  #  FITH/APS1 BURN PROGRAM 74
031652,000275: 

Page 698

031654,000277:                                                                                                  #  WITH DETECTION OF THE ABORT STAGE DISCRETE BY THE ABORT STAGE MONITOR
031655,000278:                                                                                                  #  THE FOLLOWING EVENTS OCCUR BY PROGRAM OR ARE PROCESSED AUTOMATICALLY
031656,000279:                                                                                                  #  BY THE LEM SEQUENCER.
031657,000280: 
031658,000281:                                                                                                  #   T-1.0 ABORT STAGE ARM (PROGRAMMED)
031659,000282:                                                                                                  #   T     ABORT STAGE COMMAND (PROGRAMMED)
031660,000283:                                                                                                  #        ATTITUDE HOLD (PROGRAMMED)
031661,000284:                                                                                                  #   T+.04 ASCENT PRESSURIZED
031662,000285:                                                                                                  #   T+.15 DESCENT ENGINE-OFF
031663,000286:                                                                                                  #   T+.42 ASCENT ENGINE ARM
031664,000287:                                                                                                  #         ASCENT/DESCENT STAGING INITIATED
031665,000288:                                                                                                  #         STAGE VERIFIED
031666,000289:                                                                                                  #   T+.46 INTERSTAGE BOLTS FIRED
031667,000290:                                                                                                  #         ASCENT STAGE UMBILICAL ELECTRICAL DEADFACE
031668,000291: 
031669,000292:                                                                                                  #   T+.50 DESCENT STAGE UMBILICAL ELEC. DEADFACE
031670,000293:                                                                                                  #   T+.55 ASCENT/DESCENT STAGE UMBILICAL CUT
031671,000294:                                                                                                  #   T+.78 ASCENT ENGINE REACHES 90 PC THRUST
031672,000295:                                                                                                  #  T+1.0 CHANGE LEM MASS (PROGRAMMED)
031673,000296:                                                                                                  #        DESCENT ENGINE ARM-OFF (PROGRAMMED)
031674,000297:                                                                                                  #  T+5.0 ASCENT ENGINE-OFF (PROGRAMMED)
031675,000298: 
031676,000299: 36,2237           05114        FITHCMD            TC       1LMP+DT                               #  THRUST AT MAX FOR 1 MORE SEC AND ABORT
031677,000300: 36,2240           00026                           DEC      22         B-14                       #  ABORT STAGE ARM
031678,000301: 36,2241           00144                           DEC      100        B-14                       #  DELAY 1.0 SEC.
031679,000302: 
031680,000303: 36,2242           05073                           TC       1LMP                                  #  INITIATE ABORT STAGE COMMAND
031681,000304: 36,2243           00046                           DEC      38         B-14                       
031682,000305: 
031683,000306: 36,2244           05745                           TC       TASKOVER                              #  LET ABORT MONITOR TAKE IT FROM HERE
031684,000307: 
031685,000308: 36,2245           37752        ABMON              CAF      BIT4                                  #  ABORT STAGE MONITOR SAMPLES CHANNEL
031686,000309: 36,2246           00006                           EXTEND                                         #  30 FOR ABORT STAGE DISCRETE EVERY .5 SEC
031687,000310: 36,2247           02030                           RAND     30                                    
031688,000311: 36,2250           00006                           EXTEND                                         
031689,000312: 36,2251           12255                           BZF      FITHGCMD                              #  ABORT DISCRETE PRESENT-KILL MONITOR
031690,000313: 
031691,000314: 36,2252           05717                           TC       FIXDELAY                              #  NO ABORT DISCRETE-CONTINUE TO MONITOR
031692,000315: 
031693,000316: 36,2253           00062                           DEC      50         B-14                       #  DELAY .5 SECS
031694,000317: 36,2254           12245                           TCF      ABMON                                 
031695,000318: 
031696,000319: 36,2255           05307        FITHGCMD           TC       IBNKCALL                              
031697,000320: 36,2256           34057                           CADR     STOPRATE                              #  SET ATTITUDE HOLD
031698,000321: 
031699,000322: 36,2257           04105                           TC       NEWMODEX                              #  SET MODE TO FIRE-IN-THE-HOLE
031700,000323: 36,2260           00074                           OCT      74                                    #  PROG74
031701,000324: 
031702,000325: 36,2261  E5,1540                                  EBANK=   MASSES                                #  EBANK5
031703,000326: 36,2261           35677                           CAF      EBANK5                                
031704,000327: 36,2262           54003                           TS       EBANK                                 #  JAM 05 IN EBANK
031705,000328: 36,2263           00006                           EXTEND                                         
031706,000329: 

Page 699

031708,000331: 36,2264           31543                           DCA      LEMMASS2                              #  CHANGE LEM MASS AT DPS/APS SEPARATION
031709,000332: 36,2265           53333                           DXCH     MASS                                  
031710,000333: 36,2266           37743                           CAF      BIT11                                 #  RETURN EBANK TO 04
031711,000334: 36,2267           54003                           TS       EBANK                                 
031712,000335: 36,2270  E4,1566                                  EBANK=   TDEC                                  
031713,000336: 
031714,000337: 36,2270           05717                           TC       FIXDELAY                              
031715,000338: 36,2271           00144                           DEC      100        B-14                       #  DELAY 1 SEC TO DPS ARM OFF
031716,000339: 
031717,000340: 36,2272           05114                           TC       1LMP+DT                               #  ENGINE SELECT-DESC ARM OFF-
031718,000341: 36,2273           00227                           DEC      151        B-14                       #  APS BURN FOR 5 SECS
031719,000342: 36,2274           00620                           DEC      400        B-14                       #  DELAY 4.0 SECONDS
031720,000343: 
031721,000344: 36,2275           06071                           TC       ENGINOFF                              #  GO FOR ENGINE SHUTDOWN
031722,000345: 
031723,000346: 36,2276           05745                           TC       TASKOVER                              
031724,000347: 
031725,000348: 
031726,000349: 
031727,000350: 36,2277           05224        DOCURTN            TC       BANKCALL                              #   GO SET UP CURTAIN JOB
031728,000351: 36,2300           57267                           CADR     CURTJOB                               
031729,000352: 
031730,000353: 36,2301           32311        MP11TERM           CAF      1SEC11                                #  SET TO DO MP11 TERMINAL TASKS IN 1 SEC
031731,000354: 36,2302           00004                           INHINT                                         
031732,000355: 36,2303           05701                           TC       WAITLIST                              
031733,000356: 36,2304  E4,1566                                  EBANK=   TDEC                                  
031734,000357: 36,2304           02307 74064                     2CADR    MP11OUT                               
031735,000358: 
031736,000359: 36,2306           05605                           TC       ENDOFJOB                              #  TERMINATE JOB SET BY DVMON
031737,000360: 
031738,000361: 36,2307           05114        MP11OUT            TC       1LMP+DT                               
031739,000362: 36,2310           00047                           DEC      39         B-14                       #  INITIATE ABORT STAGE COMMAND RESET
031740,000363: 36,2311           00144        1SEC11             DEC      100        B-14                       #  DELAY 1 SEC
031741,000364: 
031742,000365: 36,2312           05114                           TC       1LMP+DT                               
031743,000366: 36,2313           00267                           DEC      183        B-14                       #  LANDING RADAR POWER OFF
031744,000367: 36,2314           01440                           DEC      800        B-14                       #  DELAY 8 SECS
031745,000368: 
031746,000369: 36,2315           05106                           TC       2LMP+DT                               
031747,000370: 36,2316           00365                           DEC      245        B-14                       #  DPS PQGS U AND 2 OFF
031748,000371: 36,2317           00325                           DEC      213        B-14                       
031749,000372: 36,2320           00144                           DEC      100        B-14                       #  DELAY 1 SEC
031750,000373: 
031751,000374: 36,2321           05106                           TC       2LMP+DT                               
031752,000375: 36,2322           00345                           DEC      229        B-14                       #  DPS PQGS ARM 1 AND 2 DISABLE
031753,000376: 36,2323           00305                           DEC      197        B-14                       
031754,000377: 36,2324           03554                           DEC      1900       B-14                       #  DELAY 19 SECS TO KILL AVEG
031755,000378: 
031756,000379: 36,2325           06036                           TC       FLAG1DWN                              #  KILL AVERAGE G
031757,000380: 36,2326           00001                           OCT      1                                     
031758,000381: 

Page 700

031760,000383: 36,2327           05307                           TC       IBNKCALL                              
031761,000384: 36,2330           34012                           CADR     SETMAXDB                              
031762,000385: 
031763,000386: 36,2331           05141                           TC       MPENTRY                               #  SETUP MISSION PHASE SCHEDULING
031764,000387: 36,2332           00002                           DEC      2          B-14                       #  TIMER -2-
031765,000388: 36,2333           00015                           DEC      13         B-14                       #  MISSION PHASE -13-
031766,000389: 36,2334           01753                           ADRES    MP11TO13                              
031767,000390: 36,2335           05745                           TC       TASKOVER                              #  MISSION PHASE 11 COMPLETE
031768,000391: 

Page 701

031770,000393:                                                                                                  #  ????????????????????????????????
031771,000394:                                                                                                  #  NUMERICAL AND ADDRESS CONSTANTS
031772,000395:                                                                                                  #  ????????????????????????????????
031773,000396: 
031774,000397: 
031775,000398: 
031776,000399:                                                                                                  #                                          ** TIME CONSTANTS **
031777,000400: 
031778,000401: 36,2336           32274        135SECS            DEC      13500      B-14                       
031779,000402: 36,2337           04312        22.5SECS           DEC      2250       B-14                       
031780,000403: 36,2340           04766        25.5SECS           DEC      2550       B-14                       
031781,000404: 36,2341           04230        22SECS11           DEC      2200       B-14                       
031782,000405: 
031783,000406: 
031784,000407: 
031785,000408:                                                                                                  #                                          ** THRUST LEVEL CONSTANTS **
031786,000409: 
031787,000410: 36,2342           06315        20PCTHR            DEC      .2                                    
031788,000411: 36,2343           14632                           DEC      .4                                    
031789,000412: 36,2344           11463                           DEC      .3                                    
031790,000413: 36,2345           20000                           DEC      .5                                    
031791,000414: 36,2346           03146                           DEC      .1                                    
031792,000415: 36,2347     7735               925PCTHR           =        POSMAX                                #  FOR MAXIMUM PERMITTED THRUST (92.5%)
031793,000416: 
031794,000417: 
031795,000418: 
031796,000419:                                                                                                  #                                          ** ADDRESS CONSTANTS **
031797,000420: 
031798,000421: 36,2347           02233        AVEG11AD           GENADR   AVERAGEG                              
031799,000422: 36,2350  E4,1566                                  EBANK=   TDEC                                  
031800,000423: 36,2350           02041 44004  BURNADR            2CADR    BURN                                  
031801,000424: 
031802,000425: 
031803,000426: 36,2352  E4,1566                                  EBANK=   TDEC                                  
031804,000427: 36,2352           02000 44004  DPS2ADR            2CADR    PREBURN                               
031805,000428: 
031806,000429: 36,2354  E5,1557                                  EBANK=   ETHROT                                #  EBANK 5
031807,000430: 36,2354           03367 60065  PCNTFAD            2CADR    PCNTFMAX                              
031808,000431: 
031809,000432: 36,2356  E4,1566                                  EBANK=   TDEC                                  
031810,000433: 36,2356           02301 74064  MP11TMAD           2CADR    MP11TERM                              
031811,000434: 
031812,000435: 36,2360  E4,1566                                  EBANK=   TDEC                                  
031813,000436: 36,2360           02301 16004  MDAVADR            2CADR    RVUPDATE                              
031814,000437: 
031815,000438: 36,2362  E5,1511                                  EBANK=   DVCNTR                                
031816,000439: 36,2362           02312 60065  ADROFSER           2CADR    SERVEXIT                              
031817,000440: 

Page 702

031819,000442:                                                                                                  #  ????????????????????????????????
031820,000443:                                                                                                  #  TASKS CALLED ELSEWHERE IN MP11
031821,000444:                                                                                                  #  ????????????????????????????????
031822,000445: 
031823,000446: 
031824,000447: 
031825,000448: 36,2364           37755        PREAVEG            CAF      BIT1                                  #  SET UP PREREAD FOR RIGHT NOW
031826,000449: 36,2365           05701                           TC       WAITLIST                              
031827,000450: 36,2366  E5,1506                                  EBANK=   DVTOTAL                               
031828,000451: 36,2366           02000 60065                     2CADR    PREREAD                               
031829,000452: 
031830,000453: 36,2370           32347                           CAF      AVEG11AD                              #  GENADR OF AVERAGE G
031831,000454: 36,2371           55322                           TS       DVSELECT                              
031832,000455: 
031833,000456: 36,2372           00006                           EXTEND                                         #  SET SERVICER EXIT
031834,000457: 36,2373           32363                           DCA      ADROFSER                              
031835,000458: 36,2374           53073                           DXCH     AVGEXIT                               
031836,000459: 
031837,000460: 36,2375           00006                           EXTEND                                         #  SET MP RETURN FOR ENGINE SHUT DOWN
031838,000461: 36,2376           32357                           DCA      MP11TMAD                              
031839,000462: 36,2377           53075                           DXCH     DVMNEXIT                              
031840,000463: 
031841,000464: 36,2400           05745                           TC       TASKOVER                              
031842,000465: 
031843,000466: 
031844,000467: 36,2401           05114        MP11TASK           TC       1LMP+DT                               
031845,000468: 36,2402           00354                           DEC      236        B-14                       #  DFI T/M CALIBRATION -ON
031846,000469: 36,2403           02260                           DEC      1200       B-14                       #  DELAY 12 SECS
031847,000470: 
031848,000471: 36,2404           05106                           TC       2LMP+DT                               
031849,000472: 36,2405           00355                           DEC      237        B-14                       #  DFI T/M CALIBRATE -OFF
031850,000473: 36,2406           00306                           DEC      198        B-14                       #  C+W ALARM RESET -COMMAND
031851,000474: 36,2407           00310        2SECS11            DEC      200        B-14                       #  DELAY 2 SECS
031852,000475: 
031853,000476: 36,2410           05114                           TC       1LMP+DT                               
031854,000477: 36,2411           00307                           DEC      199        B-14                       #  C+W ALARM RESET-COMMAND RESET
031855,000478: 36,2412           00144                           DEC      100        B-14                       #  DELAY 1 SEC
031856,000479: 
031857,000480: 36,2413           05106                           TC       2LMP+DT                               
031858,000481: 36,2414           00266                           DEC      182        B-14                       #  LR POWER -ON
031859,000482: 36,2415           00032                           DEC      26         B-14                       #  RADAR SELFTEST -ON
031860,000483: 36,2416           13560                           DEC      6000       B-14                       #  DELAY 60 SECS.
031861,000484: 
031862,000485: 36,2417           05073                           TC       1LMP                                  
031863,000486: 36,2420           00033                           DEC      27         B-14                       #  RADAR SELFTEST-OFF
031864,000487: 
031865,000488: 36,2421           05745                           TC       TASKOVER                              
031866,000489: 

Page 703

031868,000491: 
031869,000492: 36,2422           05114        ASWTVLON           TC       1LMP+DT                               
031870,000493: 36,2423           00336                           DEC      222        B-14                       #  ASCENT WATER COOLANT VALVE - OPEN
031871,000494: 36,2424           00310                           DEC      200        B-14                       #  DELAY 2.0 SEC.
031872,000495: 
031873,000496: 36,2425           05073                           TC       1LMP                                  
031874,000497: 36,2426           00337                           DEC      223        B-14                       #  ASCENT WATER COOLANT VALVE - OPEN RESET
031875,000498: 
031876,000499: 36,2427           05745                           TC       TASKOVER                              

End of include-file MISSION_PHASE_11_-_DPS2_FITH_APS1.agc.  Parent file is MAIN.agc