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.

032413,000002:                                                                                                  ## Copyright:    Public domain.
032414,000003:                                                                                                  ## Filename:     MISSION_PHASE_13-APS2.agc
032415,000004:                                                                                                  ## Purpose:      A module for revision 0 of BURST120 (Sunburst). It 
032416,000005:                                                                                                  ##               is part of the source code for the Lunar Module's
032417,000006:                                                                                                  ##               (LM) Apollo Guidance Computer (AGC) for Apollo 5.
032418,000007:                                                                                                  ## Assembler:    yaYUL
032419,000008:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
032420,000009:                                                                                                  ## Website:      www.ibiblio.org/apollo/index.html
032421,000010:                                                                                                  ## Mod history:  2016-09-30 RSB  Created draft version.
032422,000011:                                                                                                  ##               2016-10-29 MAS  Transcribed
032423,000012:                                                                                                  ##               2016-10-31 RSB  Typos.
032424,000013:                                                                                                  ##               2016-11-01 RSB  More typos.
032425,000014:                                                                                                  ##               2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
032426,000015:                                                                                                  ##                               changes made.
032427,000016: 

Page 754

032429,000018:                                                                                                  #  MISSION PHASE 13 EXERCISES THE ASCENT GUIDANCE EQUATIONS OF PROG 46
032430,000019:                                                                                                  #  THE PREREAD TASK IS SET TO OCCUR IN 140 SECS AT TIG-30 AND AVETOMID DONE
032431,000020:                                                                                                  #  THE PRE-APS2 PROG 34 IS EXECUTED AND KALCMANU JOB IS STARTED
032432,000021:                                                                                                  #  THE ENGINEON TASK IS STARTED AT TIG-30 AND IGN IS AT 170 SECS AFTER
032433,000022:                                                                                                  #  START OF MP13
032434,000023:                                                                                                  #  THE ASCENT GUIDANCE EQUATIONS START BETWEEN TIG+1 AND +2 SECS
032435,000024:                                                                                                  #  THE ASC FEED TEST STARTS AT TIG+9 AND TERMINATES 365 SECS LATER
032436,000025: 
032437,000026: 27,3114                                           BANK     27                                    
032438,000027: 27,3114  E4,1400                                  EBANK=   AMEMORY                               
032439,000028: 
032440,000029: 27,3114           06067        MP13JOB            TC       FLAG1DWN                              
032441,000030: 27,3115           04000                           OCT      04000                                 #  KNOCK DOWN RESTART FLAG
032442,000031: 
032443,000032: 27,3116           00006                           EXTEND                                         
032444,000033: 27,3117           30025                           DCA      TIME2                                 #  PICK UP CURRENT TIME
032445,000034: 27,3120           53567                           DXCH     TDEC                                  
032446,000035: 27,3121           04117                           TC       NEWMODEX                              #  SET MODE
032447,000036: 27,3122           00034                           OCT      34                                    
032448,000037: 
032449,000038: 27,3123           22007                           ZL                                             #  SET TDEC TO TIME AT TIG-30
032450,000039: 27,3124           33320                           CAF      140SECS                               #  TIME TO TIGN-30
032451,000040: 27,3125           56001                           XCH      L                                     
032452,000041: 27,3126           21567                           DAS      TDEC                                  #  TDEC =TIGN-30 FOR MIDTOAVE
032453,000042: 
032454,000043: 27,3127           33320                           CAF      140SECS                               
032455,000044: 27,3130           00004                           INHINT                                         
032456,000045: 27,3131           05663                           TC       WAITLIST                              #  SET TASK FOR TIGN-30
032457,000046: 27,3132  E4,1566                                  EBANK=   TDEC                                  
032458,000047: 27,3132           03175 56064                     2CADR    TIG13-30                              
032459,000048: 
032460,000049: 27,3134           00006                           EXTEND                                         
032461,000050: 27,3135           31567                           DCA      TDEC                                  
032462,000051: 27,3136           53670                           DXCH     TIGN                                  
032463,000052: 27,3137           00006                           EXTEND                                         
032464,000053: 27,3140           33317                           DCA      30SECS13                              
032465,000054: 27,3141           21670                           DAS      TIGN                                  #  DISPLAY TIGN FOR DOWNLINK.
032466,000055: 
032467,000056: 27,3142           00003                           RELINT                                         
032468,000057: 
032469,000058: 27,3143           00006                           EXTEND                                         
032470,000059: 27,3144           32441                           DCA      MIDAVEAD                              #  DO MIDTOAVE COMPUTATION
032471,000060: 27,3145           52006                           DXCH     Z                                     
032472,000061: 
032473,000062: 27,3146           00006                           EXTEND                                         
032474,000063: 27,3147           33325                           DCA      PREAP2AD                              #  DO PRE-APS2 TO GET DESIRED ATTITUDE
032475,000064: 27,3150           52006                           DXCH     Z                                     #  STORES VECTORS POINTVSM AND SCAXIS
032476,000065: 
032477,000066: 27,3151           06112                           TC       INTPRET                               
032478,000067: 27,3152           43131                           SSP      SET                                   

Page 755

032480,000069: 27,3153           01653                                    RATEINDX                              #  SET KALCMANU FOR ANGULAR RATE OF 5DEG/S
032481,000070: 27,3154           00004                                    4                                     
032482,000071: 27,3155           01063                                    33D                                   
032483,000072: 27,3156           77776                           EXIT                                           
032484,000073: 
032485,000074: 27,3157           35642                           CAF      PRIO16                                #  SET UP ATTITUDE MANEUVER JOB.
032486,000075: 27,3160           00004                           INHINT                                         
032487,000076: 27,3161           05516                           TC       FINDVAC                               
032488,000077: 27,3162  E3,1535                                  EBANK=   MIS                                   
032489,000078: 27,3162           02001 70063                     2CADR    VECPOINT                              
032490,000079: 
032491,000080: 27,3164           37763                           CAF      BIT1                                  
032492,000081: 27,3165           00004                           INHINT                                         
032493,000082: 27,3166           05663                           TC       WAITLIST                              #  SET UP DFI T/M CALIBRATE TASK
032494,000083: 27,3167  E4,1566                                  EBANK=   TDEC                                  
032495,000084: 27,3167           03341 56064                     2CADR    DFICAL                                #  DFICAL REQUIRES 14 SECS AND ENDS ITSELF
032496,000085: 
032497,000086: 27,3171           05206                           TC       BANKCALL                              #  PUT MP13 TO SLEEP-KALCMANU WILL WAKE
032498,000087: 27,3172           26743                           CADR     ATTSTALL                              
032499,000088: 27,3173           04743                           TC       CURTAINS                              #  BAD END RETURN FROM KALCMANU
032500,000089: 
032501,000090: 27,3174           05567                           TC       ENDOFJOB                              #  WAIT FOR TIG-30 TASK TO INTERUPT
032502,000091: 
032503,000092: 27,3175           37763        TIG13-30           CAF      BIT1                                  #  SET PREREAD FOR NOW
032504,000093: 27,3176           05663                           TC       WAITLIST                              
032505,000094: 27,3177  E5,1506                                  EBANK=   DVTOTAL                               
032506,000095: 27,3177           02000 60065                     2CADR    PREREAD                               
032507,000096: 
032508,000097: 27,3201           04161                           TC       PHASCHNG                              #  PREREAD RESTART PROTECTION
032509,000098: 27,3202           00335                           OCT      00335                                 
032510,000099: 
032511,000100: 27,3203           37751                           CAF      BIT11                                 #  SEE IF ATTITUDE MANEUVER DONE
032512,000101: 27,3204           70076                           MASK     FLAGWRD2                              
032513,000102: 27,3205           10000                           CCS      A                                     
032514,000103: 27,3206           13334                           TCF      CURTJOB                               #  NO-SET UP CURTAINS JOB
032515,000104: 
032516,000105: 27,3207           04117                           TC       NEWMODEX                              
032517,000106: 27,3210           00046                           OCT      46                                    #  SET MODE TO PROG46
032518,000107: 
032519,000108: 27,3211           33323                           CAF      AVEG13AD                              #  GENADR OF AVEG IN DVSELECT
032520,000109: 27,3212           55310                           TS       DVSELECT                              
032521,000110: 
032522,000111: 27,3213           00006                           EXTEND                                         
032523,000112: 27,3214           33333                           DCA      SVEX13AD                              #  2CADR SERVEXIT IN AVEGEXIT
032524,000113: 27,3215           53073                           DXCH     AVGEXIT                               
032525,000114: 
032526,000115: 27,3216           00006                           EXTEND                                         
032527,000116: 27,3217           33327                           DCA      MP13TMAD                              
032528,000117: 27,3220           53075                           DXCH     DVMNEXIT                              #  SET MP RETURN FOR ENGINE SHUT DOWN
032529,000118: 

Page 756

032531,000120: 27,3221           05270                           TC       IBNKCALL                              
032532,000121: 27,3222           40277                           CADR     ENGINOF1                              
032533,000122: 
032534,000123: 27,3223           05101                           TC       1LMP+DT                               
032535,000124: 27,3224           00206                           DEC      134        B-14                       #  ENGINE SELECT-APS ARM
032536,000125: 27,3225           03326                           DEC      1750       B-14                       #  DELAY 17.5 SECS
032537,000126: 
032538,000127: 27,3226           05270                           TC       IBNKCALL                              
032539,000128: 27,3227           40062                           CADR     ULLAGE                                #  COMMAND 4 JET ULLAGE-ON
032540,000129: 
032541,000130: 27,3230           05701                           TC       FIXDELAY                              
032542,000131: 27,3231           02342                           DEC      1250       B-14                       #  DELAY 12.5 SECS TO IGNITION
032543,000132: 
032544,000133: 27,3232           05270        TIG13              TC       IBNKCALL                              
032545,000134: 27,3233           40175                           CADR     APSENGON                              
032546,000135: 
032547,000136: 27,3234           05701                           TC       FIXDELAY                              
032548,000137: 27,3235           00062                           DEC      50         B-14                       #  DELAY .5 SECS
032549,000138: 
032550,000139: 27,3236           05270                           TC       IBNKCALL                              
032551,000140: 27,3237           40066                           CADR     NOULLAGE                              #  ULLAGE JETS OFF AT TIG + .5
032552,000141: 
032553,000142:                                                                                                  #  NOW THAT THE ENGINE IS ON AND ULLAGE IS OFF, SET UP DUMMY MP 13 & PUT RESTARTABILITY FLAG UP:
032554,000143: 
032555,000144: 27,3240           04141                           TC       2PHSCHNG                              
032556,000145: 27,3241           00313                           OCT      00313                                 #  3.31 SPOT IS DUMMY13 TASK.
032557,000146: 27,3242           00002                           OCT      2                                     #  GROUP 2 OFF.
032558,000147: 
032559,000148: 27,3243           37747                           CAF      BIT13                                 
032560,000149: 27,3244           04105                           TC       SETRSTRT                              #  SET RESTART FLAG
032561,000150: 
032562,000151: 27,3245           05701                           TC       FIXDELAY                              
032563,000152: 27,3246           00372                           DEC      250        B-14                       #  DELAY 2.5 SECS AND START GUIDANCE
032564,000153: 27,3247           00006                           EXTEND                                         
032565,000154: 27,3250           33331                           DCA      ATMAGAD                               
032566,000155: 27,3251           53073                           DXCH     AVGEXIT                               #  SET AVEG LOOP TO THRUST MAGNITUDE FILTER
032567,000156: 
032568,000157: 27,3252           05701                           TC       FIXDELAY                              
032569,000158: 27,3253           01130                           DEC      600        B-14                       #  START FEED TEST ROUTINE
032570,000159: 27,3254           03353                           TC       FEEDTEST                              #  START FEED TEST ROUTINE
032571,000160: 
032572,000161: 27,3255           00006                           EXTEND                                         
032573,000162: 27,3256           33322                           DCA      342SECS                               
032574,000163: 27,3257           05741                           TC       LONGCALL                              
032575,000164: 27,3260  E4,1566                                  EBANK=   TDEC                                  
032576,000165: 27,3260           03263 56064                     2CADR    MP13+544                              
032577,000166: 
032578,000167: 27,3262           13264        TCGP2OFF           TCF      GRP2OFF                               
032579,000168: 
032580,000169: 27,3263           03410        MP13+544           TC       FEEDREST                              #  DO FEED TEST RESET ROUTINE
032581,000170: 

Page 757

032583,000172: 27,3264           47767        GRP2OFF            CS       ZERO                                  
032584,000173: 27,3265           22007                           ZL                                             
032585,000174: 27,3266           53102                           DXCH     -PHASE2                               
032586,000175: 
032587,000176: 27,3267           05727                           TC       TASKOVER                              #  WAIT FOR GUIDANCE TO DO ENGINE OFF
032588,000177: 
032589,000178: 27,3270           37763        MP13TERM           CAF      BIT1                                  #  SET MP13 TERMINAL TASKS
032590,000179: 27,3271           00004                           INHINT                                         
032591,000180: 27,3272           05663                           TC       WAITLIST                              
032592,000181: 27,3273  E4,1566                                  EBANK=   TDEC                                  
032593,000182: 27,3273           03277 56064                     2CADR    MP13OUT                               
032594,000183: 
032595,000184: 27,3275           05225                           TC       POSTJUMP                              
032596,000185: 27,3276           60324                           CADR     SERVEXIT                              
032597,000186: 
032598,000187: 27,3277           05270        MP13OUT            TC       IBNKCALL                              #  DEADBAND SELECT - MAX
032599,000188: 27,3300           40054                           CADR     SETMAXDB                              
032600,000189: 
032601,000190: 27,3301           03410                           TC       FEEDREST                              #  DO THIS IN CASE OF EARLY ENG SHUT DOWN
032602,000191: 
032603,000192: 27,3302           05701                           TC       FIXDELAY                              
032604,000193: 27,3303           00144                           DEC      100        B-14                       #  DELAY 1 SEC
032605,000194: 
032606,000195: 27,3304           05060                           TC       1LMP                                  
032607,000196: 27,3305           00207                           DEC      135        B-14                       #  APS ARM OFF
032608,000197: 
032609,000198: 27,3306           05701                           TC       FIXDELAY                              
032610,000199: 27,3307           05524                           DEC      2900       B-14                       #  DELAY 29 SECS TO KILL AVEG
032611,000200: 
032612,000201: 27,3310           06067                           TC       FLAG1DWN                              #  KILL AVE G
032613,000202: 27,3311           00001                           OCT      1                                     
032614,000203: 
032615,000204: 27,3312           05727                           TC       TASKOVER                              #  MISSION PHASE 13 COMPLETE
032616,000205: 
032617,000206: 27,3313           00144        1SEC13             DEC      100        B-14                       
032618,000207: 27,3314           00310        2SECS13            DEC      200        B-14                       
032619,000208: 27,3315           02260        12SECS13           DEC      1200       B-14                       
032620,000209: 27,3316           00000 05670  30SECS13           2DEC     3000       B-28                       
032621,000210: 
032622,000211: 27,3320           33260        140SECS            DEC      14000      B-14                       
032623,000212: 27,3321           00002 02630  342SECS            2DEC     34200      B-28                       #  342 SECONDS
032624,000213: 
032625,000214: 27,3323           02251        AVEG13AD           GENADR   AVERAGEG                              
032626,000215: 27,3324  E4,1566                                  EBANK=   TDEC                                  
032627,000216: 27,3324           02000 64064  PREAP2AD           2CADR    PREAPS2                               
032628,000217: 
032629,000218: 27,3326  E4,1566                                  EBANK=   TDEC                                  
032630,000219: 27,3326           03270 56064  MP13TMAD           2CADR    MP13TERM                              
032631,000220: 
032632,000221: 27,3330  E4,1566                                  EBANK=   TDEC                                  

Page 758

032634,000223: 27,3330           03005 64064  ATMAGAD            2CADR    ATMAG                                 
032635,000224: 
032636,000225: 27,3332  E5,1506                                  EBANK=   DVTOTAL                               
032637,000226: 27,3332           02324 60065  SVEX13AD           2CADR    SERVEXIT                              
032638,000227: 

Page 759

032640,000229: 27,3334           35660        CURTJOB            CAF      PRIO37                                #  SET UP JOB TO GO TO CURTAINS
032641,000230: 27,3335           05505                           TC       NOVAC                                 
032642,000231: 27,3336     1357                                  EBANK=   SFAIL                                 
032643,000232: 27,3336           04743 04062                     2CADR    CURTAINS                              
032644,000233: 
032645,000234: 27,3340           05727                           TC       TASKOVER                              
032646,000235: 
032647,000236: 27,3341           05101        DFICAL             TC       1LMP+DT                               #  LMP COMMAND
032648,000237: 27,3342           00354                           DEC      236        B-14                       #  DFI T/M CALIBRATE - ON
032649,000238: 27,3343           02260                           DEC      1200       B-14                       #  DELAY 12 SECS
032650,000239: 
032651,000240: 27,3344           05073                           TC       2LMP+DT                               #  LMP COMMANDS
032652,000241: 27,3345           00355                           DEC      237        B-14                       #  DFI T/M CALIBRATE - OFF
032653,000242: 27,3346           00306                           DEC      198        B-14                       #  MASTER C+W ALARM RESET - COMMAND
032654,000243: 27,3347           00310                           DEC      200        B-14                       #  DELAY 2.0 SECONDS
032655,000244: 
032656,000245: 27,3350           05060                           TC       1LMP                                  #  LMP COMMAND
032657,000246: 27,3351           00307                           DEC      199        B-14                       #  MASTER C+W ALARM RESET - COMMAND RESET
032658,000247: 27,3352           05727                           TC       TASKOVER                              #  TERMINATE DFI CALIBRATE TASK
032659,000248: 

Page 760

032661,000250: 27,3353           00006        FEEDTEST           EXTEND                                         
032662,000251: 27,3354           23662                           QXCH     MPRETRN                               
032663,000252: 27,3355           06060                           TC       FLAG2UP                               #  SET ASC FEED TEST FLAG
032664,000253: 27,3356           00200                           OCT      200                                   
032665,000254: 
032666,000255: 27,3357           05101                           TC       1LMP+DT                               #  TIME T
032667,000256: 27,3360           00176                           DEC      126        B-14                       #  RCS ASCENT FEED VALVE - ARM
032668,000257: 27,3361           00144                           DEC      100        B-14                       #  DELAY 1 SEC
032669,000258: 
032670,000259: 27,3362           05073                           TC       2LMP+DT                               #  T+1
032671,000260: 27,3363           00074                           DEC      60         B-14                       #  RCS ASCENT FEED VALVES8 SYS A-OPEN
032672,000261: 27,3364           00254                           DEC      172        B-14                       #  RCS MAIN S/O VALVES SYS A-CLOSE
032673,000262: 27,3365           00310                           DEC      200        B-14                       #  DELAY FOR 2 SECS
032674,000263: 
032675,000264: 27,3366           05073                           TC       2LMP+DT                               #  T+3
032676,000265: 27,3367           00075                           DEC      61         B-14                       #  RCS ASCENT FEED VALVES SYS A-OPEN RESET
032677,000266: 27,3370           00255                           DEC      173        B-14                       #  RCS MAIN S/O VALVES SYS A-CLOSE RESET
032678,000267: 27,3371           01440                           DEC      800        B-14                       #  DELAY FOR 8 SECS
032679,000268: 
032680,000269: 27,3372           05073                           TC       2LMP+DT                               #  T+11
032681,000270: 27,3373           00076                           DEC      62         B-14                       #  RCS ASCENT FEED VALVES SYS B-OPEN
032682,000271: 27,3374           00256                           DEC      174        B-14                       #  RCS MAIN S/O VALVES SYS B -CLOSE
032683,000272: 27,3375           00310                           DEC      200        B-14                       #  DELAY FOR 2 SECS
032684,000273: 
032685,000274: 27,3376           05073                           TC       2LMP+DT                               #  T+13
032686,000275: 27,3377           00077                           DEC      63         B-14                       #  RCS ASCENT FEED VALVES SYS B-OPEN RESET
032687,000276: 27,3400           00257                           DEC      175        B-14                       #  RCS MAIN S/O VALVES SYS B-CLOSE RESET
032688,000277: 27,3401           01440                           DEC      800        B-14                       #  DELAY 8 SECS
032689,000278: 
032690,000279: 27,3402           05101                           TC       1LMP+DT                               #  T+21
032691,000280: 27,3403           00374                           DEC      252        B-14                       #  RCS MANIFOLD CROSSFEED VALVES-OPEN
032692,000281: 27,3404           00310                           DEC      200        B-14                       #  DELAY FOR 2 SECS
032693,000282: 
032694,000283: 27,3405           05060                           TC       1LMP                                  #  T+23
032695,000284: 27,3406           00375                           DEC      253        B-14                       #  RCS MANIFOLD CROSSFEED VALVES-OPEN RESET
032696,000285: 
032697,000286: 27,3407           01662                           TC       MPRETRN                               
032698,000287: 

Page 761

032700,000289: 27,3410           40076        FEEDREST           CS       FLAGWRD2                              #  CHECK FEED TEST FLAG
032701,000290: 27,3411           77754                           MASK     BIT8                                  
032702,000291: 27,3412           10000                           CCS      A                                     
032703,000292: 27,3413           00002                           TC       Q                                     #  FLAG DOWN-NO RESET
032704,000293: 
032705,000294: 27,3414           00006                           EXTEND                                         #  FLAG UP - DO FEED TEST RESET
032706,000295: 27,3415           23662                           QXCH     MPRETRN                               
032707,000296: 
032708,000297: 27,3416           06076                           TC       FLAG2DWN                              #  FEED TEST FLAG DOWN
032709,000298: 27,3417           00200                           OCT      200                                   
032710,000299: 
032711,000300: 27,3420           05101                           TC       1LMP+DT                               #  TIME T
032712,000301: 27,3421           00376                           DEC      254        B-14                       #  RCS MANIFOLD CROSSFEED VALVES -CLOSE
032713,000302: 27,3422           00144                           DEC      100        B-14                       #  DELAY 1 SEC
032714,000303: 
032715,000304: 27,3423           05073                           TC       2LMP+DT                               #  T+1
032716,000305: 27,3424           00274                           DEC      188        B-14                       #  RCS MAIN S/O VALVES SYS A-OPEN
032717,000306: 27,3425           00114                           DEC      76         B-14                       #  RCS ASCENT FEED VALVES SYS A-CLOSE
032718,000307: 27,3426           00144                           DEC      100        B-14                       #  DELAY 1 SECS
032719,000308: 
032720,000309: 27,3427           05101                           TC       1LMP+DT                               #  T+2
032721,000310: 27,3430           00377                           DEC      255        B-14                       #  RCS MANIFOLD CROSSFEED VALVES-CLOSE RESE
032722,000311: 27,3431           00144                           DEC      100        B-14                       #  DELAY 1 SEC
032723,000312: 
032724,000313: 27,3432           05073                           TC       2LMP+DT                               #  T+3
032725,000314: 27,3433           00275                           DEC      189        B-14                       #  RCS MAIN S/O VALVES SYS A-OPEN RESET
032726,000315: 27,3434           00115                           DEC      77         B-14                       #  RCS ASCENT FEED VALVES SYS A-CLOSE RESET
032727,000316: 27,3435           01440                           DEC      800        B-14                       #  DELAY 8 SECS
032728,000317: 
032729,000318: 27,3436           05073                           TC       2LMP+DT                               #  T+11
032730,000319: 27,3437           00276                           DEC      190        B-14                       #  RCS MAIN S/O VALVES SYS B-OPEN
032731,000320: 27,3440           00116                           DEC      78         B-14                       #  RCS ASCENT FEED VALVES SYS B-CLOSE
032732,000321: 27,3441           00144                           DEC      100        B-14                       #  DELAY 1 SEC
032733,000322: 
032734,000323: 27,3442           05101                           TC       1LMP+DT                               #  T+12
032735,000324: 27,3443           00177                           DEC      127        B-14                       #  RCS ASCENT FEED VALVE-SAFE
032736,000325: 27,3444           00144                           DEC      100        B-14                       #  DELAY 1 SEC
032737,000326: 
032738,000327: 27,3445           05052                           TC       2LMP                                  #  T+13
032739,000328: 27,3446           00277                           DEC      191        B-14                       #  RCS MAIN S/O VALVES SYS B-OPEN RESET
032740,000329: 27,3447           00117                           DEC      79         B-14                       #  RCS ASCENT FEED VALVES SYS B-CLOSE RESET
032741,000330: 
032742,000331: 27,3450           01662                           TC       MPRETRN                               #  RETURN TO MISSION PROGRAM
032743,000332: 

Page 762

032745,000334:                                                                                                  #  COME HERE IF WE GET A RESTART AFTER THE ENGINE IS ON & ULLAGE IS OFF.  SET UP SERVICER SWITCHES TO CAUSE THE
032746,000335:                                                                                                  #  BURN TO CONTINUE UNTIL PROPELLANT DEPLETION (UNLESS INTERRUPTED BY ENGINE FAILURE OR V74).  EXIT TO POOH AFTER
032747,000336:                                                                                                  #  SHUTDOWN IS DETECTED.
032748,000337: 
032749,000338: 27,3451  E4,1745                                  EBANK=   TTGO                                  
032750,000339: 
032751,000340: 27,3451           00006        DUMMY13            EXTEND                                         
032752,000341: 27,3452           33333                           DCA      SVEX13AD                              
032753,000342: 27,3453           53073                           DXCH     AVGEXIT                               
032754,000343: 
032755,000344: 27,3454           33262                           CAF      TCGP2OFF                              #  TO FINISH FEED TEST OR RESET (WHICH ARE
032756,000345: 27,3455           55662                           TS       MPRETRN                               #      IN GROUP 2)
032757,000346: 
032758,000347: 27,3456           00006                           EXTEND                                         
032759,000348: 27,3457           33474                           DCA      D13TRMAD                              
032760,000349: 27,3460           53075                           DXCH     DVMNEXIT                              
032761,000350: 
032762,000351: 27,3461           06067                           TC       FLAG1DWN                              #  TO GET SERVICER TO RETURN THRU DVMNEXIT
032763,000352: 27,3462           00020                           OCT      00020                                 #  WHATEVER CAUSES SHUTDOWN.
032764,000353: 
032765,000354: 27,3463           36106                           CA       PGNSCADR                              
032766,000355: 27,3464           55310                           TS       DVSELECT                              #  (SHOULD BE THERE ALREADY.)
032767,000356: 
032768,000357: 27,3465           04117                           TC       NEWMODEX                              #  DISPLAY PROGRAM 47.
032769,000358: 27,3466           00047                           OCT      47                                    
032770,000359: 
032771,000360: 27,3467           37743                           CA       POSMAX                                #  DISPLAY LARGE TIME TO GO FOR DOWNLINK.
032772,000361: 27,3470           55745                           TS       TTGO                                  
032773,000362: 27,3471           55746                           TS       TTGO       +1                         
032774,000363: 
032775,000364: 27,3472           05727                           TC       TASKOVER                              
032776,000365: 
032777,000366: 27,3473  E4,1745                                  EBANK=   TTGO                                  
032778,000367: 27,3473           03475 56064  D13TRMAD           2CADR    DMY13TRM                              
032779,000368: 
032780,000369: 
032781,000370: 27,3475           04161        DMY13TRM           TC       PHASCHNG                              
032782,000371: 27,3476           40333                           OCT      40333                                 #  3.33 IS TRMDMY13 TASK.
032783,000372: 27,3477           00004                           INHINT                                         
032784,000373: 27,3500           33521                           CA       25SEC                                 #  INSURE THAT FEED ROUTINES ARE FINISHED.
032785,000374: 27,3501           05663                           TC       WAITLIST                              
032786,000375: 27,3502  E4,1745                                  EBANK=   TTGO                                  
032787,000376: 27,3502           03505 56064                     2CADR    TRMDMY13                              
032788,000377: 
032789,000378: 27,3504           05567                           TC       ENDOFJOB                              
032790,000379: 
032791,000380: 27,3505           05270        TRMDMY13           TC       IBNKCALL                              
032792,000381: 27,3506           40263                           CADR     ENGINOFF                              
032793,000382: 
032794,000383: 27,3507           05060                           TC       1LMP                                  

Page 763

032796,000385: 27,3510           00207                           DEC      135        B-14                       #  ENGINE SELECT - ASCENT ARM OFF*
032797,000386: 
032798,000387: 27,3511           04141                           TC       2PHSCHNG                              
032799,000388: 27,3512           00003                           OCT      00003                                 
032800,000389: 27,3513           05012                           OCT      05012                                 
032801,000390: 27,3514           77777                           OCT      77777                                 
032802,000391: 
032803,000392: 27,3515           03410                           TC       FEEDREST                              
032804,000393: 
032805,000394: 27,3516           06067                           TC       FLAG1DWN                              #  AVERAGE G OFF & EXIT VIA POOH.
032806,000395: 27,3517           00001                           OCT      00001                                 
032807,000396: 
032808,000397: 27,3520           05727                           TC       TASKOVER                              
032809,000398: 
032810,000399: 27,3521           04704        25SEC              DEC      2500       B-14                       

End of include-file MISSION_PHASE_13-APS2.agc.  Parent file is MAIN.agc