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.

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

Page 754

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

Page 755

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

Page 756

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

Page 757

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

Page 758

032640,000223: 27,3330           03005 64064  ATMAGAD            2CADR    ATMAG                                 
032641,000224: 
032642,000225: 27,3332  E5,1506                                  EBANK=   DVTOTAL                               
032643,000226: 27,3332           02324 60065  SVEX13AD           2CADR    SERVEXIT                              
032644,000227: 

Page 759

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

Page 760

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

Page 761

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

Page 762

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

Page 763

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

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