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. |
032394,000002: ## Copyright: Public domain.
032395,000003: ## Filename: MISSION_PHASE_13-APS2.agc
032396,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
032397,000005: ## is part of the source code for the Lunar Module's
032398,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
032399,000007: ## Assembler: yaYUL
032400,000008: ## Contact: Ron Burkey <info@sandroid.org>.
032401,000009: ## Website: www.ibiblio.org/apollo/index.html
032402,000010: ## Mod history: 2016-09-30 RSB Created draft version.
032403,000011: ## 2016-10-29 MAS Transcribed
032404,000012: ## 2016-10-31 RSB Typos.
032405,000013: ## 2016-11-01 RSB More typos.
032406,000014: ## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
032407,000015: ## changes made.
032408,000016:
![]() |
Page 754 |
032410,000018: # MISSION PHASE 13 EXERCISES THE ASCENT GUIDANCE EQUATIONS OF PROG 46
032411,000019: # THE PREREAD TASK IS SET TO OCCUR IN 140 SECS AT TIG-30 AND AVETOMID DONE
032412,000020: # THE PRE-APS2 PROG 34 IS EXECUTED AND KALCMANU JOB IS STARTED
032413,000021: # THE ENGINEON TASK IS STARTED AT TIG-30 AND IGN IS AT 170 SECS AFTER
032414,000022: # START OF MP13
032415,000023: # THE ASCENT GUIDANCE EQUATIONS START BETWEEN TIG+1 AND +2 SECS
032416,000024: # THE ASC FEED TEST STARTS AT TIG+9 AND TERMINATES 365 SECS LATER
032417,000025:
032418,000026: 27,3114 BANK 27
032419,000027: 27,3114 E4,1400 EBANK= AMEMORY
032420,000028:
032421,000029: 27,3114 06067 MP13JOB TC FLAG1DWN
032422,000030: 27,3115 04000 OCT 04000 # KNOCK DOWN RESTART FLAG
032423,000031:
032424,000032: 27,3116 00006 EXTEND
032425,000033: 27,3117 30025 DCA TIME2 # PICK UP CURRENT TIME
032426,000034: 27,3120 53567 DXCH TDEC
032427,000035: 27,3121 04117 TC NEWMODEX # SET MODE
032428,000036: 27,3122 00034 OCT 34
032429,000037:
032430,000038: 27,3123 22007 ZL # SET TDEC TO TIME AT TIG-30
032431,000039: 27,3124 33320 CAF 140SECS # TIME TO TIGN-30
032432,000040: 27,3125 56001 XCH L
032433,000041: 27,3126 21567 DAS TDEC # TDEC =TIGN-30 FOR MIDTOAVE
032434,000042:
032435,000043: 27,3127 33320 CAF 140SECS
032436,000044: 27,3130 00004 INHINT
032437,000045: 27,3131 05663 TC WAITLIST # SET TASK FOR TIGN-30
032438,000046: 27,3132 E4,1566 EBANK= TDEC
032439,000047: 27,3132 03175 56064 2CADR TIG13-30
032440,000048:
032441,000049: 27,3134 00006 EXTEND
032442,000050: 27,3135 31567 DCA TDEC
032443,000051: 27,3136 53670 DXCH TIGN
032444,000052: 27,3137 00006 EXTEND
032445,000053: 27,3140 33317 DCA 30SECS13
032446,000054: 27,3141 21670 DAS TIGN # DISPLAY TIGN FOR DOWNLINK.
032447,000055:
032448,000056: 27,3142 00003 RELINT
032449,000057:
032450,000058: 27,3143 00006 EXTEND
032451,000059: 27,3144 32441 DCA MIDAVEAD # DO MIDTOAVE COMPUTATION
032452,000060: 27,3145 52006 DXCH Z
032453,000061:
032454,000062: 27,3146 00006 EXTEND
032455,000063: 27,3147 33325 DCA PREAP2AD # DO PRE-APS2 TO GET DESIRED ATTITUDE
032456,000064: 27,3150 52006 DXCH Z # STORES VECTORS POINTVSM AND SCAXIS
032457,000065:
032458,000066: 27,3151 06112 TC INTPRET
032459,000067: 27,3152 43131 SSP SET
![]() |
Page 755 |
032461,000069: 27,3153 01653 RATEINDX # SET KALCMANU FOR ANGULAR RATE OF 5DEG/S
032462,000070: 27,3154 00004 4
032463,000071: 27,3155 01063 33D
032464,000072: 27,3156 77776 EXIT
032465,000073:
032466,000074: 27,3157 35642 CAF PRIO16 # SET UP ATTITUDE MANEUVER JOB.
032467,000075: 27,3160 00004 INHINT
032468,000076: 27,3161 05516 TC FINDVAC
032469,000077: 27,3162 E3,1535 EBANK= MIS
032470,000078: 27,3162 02001 70063 2CADR VECPOINT
032471,000079:
032472,000080: 27,3164 37763 CAF BIT1
032473,000081: 27,3165 00004 INHINT
032474,000082: 27,3166 05663 TC WAITLIST # SET UP DFI T/M CALIBRATE TASK
032475,000083: 27,3167 E4,1566 EBANK= TDEC
032476,000084: 27,3167 03341 56064 2CADR DFICAL # DFICAL REQUIRES 14 SECS AND ENDS ITSELF
032477,000085:
032478,000086: 27,3171 05206 TC BANKCALL # PUT MP13 TO SLEEP-KALCMANU WILL WAKE
032479,000087: 27,3172 26743 CADR ATTSTALL
032480,000088: 27,3173 04743 TC CURTAINS # BAD END RETURN FROM KALCMANU
032481,000089:
032482,000090: 27,3174 05567 TC ENDOFJOB # WAIT FOR TIG-30 TASK TO INTERUPT
032483,000091:
032484,000092: 27,3175 37763 TIG13-30 CAF BIT1 # SET PREREAD FOR NOW
032485,000093: 27,3176 05663 TC WAITLIST
032486,000094: 27,3177 E5,1506 EBANK= DVTOTAL
032487,000095: 27,3177 02000 60065 2CADR PREREAD
032488,000096:
032489,000097: 27,3201 04161 TC PHASCHNG # PREREAD RESTART PROTECTION
032490,000098: 27,3202 00335 OCT 00335
032491,000099:
032492,000100: 27,3203 37751 CAF BIT11 # SEE IF ATTITUDE MANEUVER DONE
032493,000101: 27,3204 70076 MASK FLAGWRD2
032494,000102: 27,3205 10000 CCS A
032495,000103: 27,3206 13334 TCF CURTJOB # NO-SET UP CURTAINS JOB
032496,000104:
032497,000105: 27,3207 04117 TC NEWMODEX
032498,000106: 27,3210 00046 OCT 46 # SET MODE TO PROG46
032499,000107:
032500,000108: 27,3211 33323 CAF AVEG13AD # GENADR OF AVEG IN DVSELECT
032501,000109: 27,3212 55310 TS DVSELECT
032502,000110:
032503,000111: 27,3213 00006 EXTEND
032504,000112: 27,3214 33333 DCA SVEX13AD # 2CADR SERVEXIT IN AVEGEXIT
032505,000113: 27,3215 53073 DXCH AVGEXIT
032506,000114:
032507,000115: 27,3216 00006 EXTEND
032508,000116: 27,3217 33327 DCA MP13TMAD
032509,000117: 27,3220 53075 DXCH DVMNEXIT # SET MP RETURN FOR ENGINE SHUT DOWN
032510,000118:
![]() |
Page 756 |
032512,000120: 27,3221 05270 TC IBNKCALL
032513,000121: 27,3222 40277 CADR ENGINOF1
032514,000122:
032515,000123: 27,3223 05101 TC 1LMP+DT
032516,000124: 27,3224 00206 DEC 134 B-14 # ENGINE SELECT-APS ARM
032517,000125: 27,3225 03326 DEC 1750 B-14 # DELAY 17.5 SECS
032518,000126:
032519,000127: 27,3226 05270 TC IBNKCALL
032520,000128: 27,3227 40062 CADR ULLAGE # COMMAND 4 JET ULLAGE-ON
032521,000129:
032522,000130: 27,3230 05701 TC FIXDELAY
032523,000131: 27,3231 02342 DEC 1250 B-14 # DELAY 12.5 SECS TO IGNITION
032524,000132:
032525,000133: 27,3232 05270 TIG13 TC IBNKCALL
032526,000134: 27,3233 40175 CADR APSENGON
032527,000135:
032528,000136: 27,3234 05701 TC FIXDELAY
032529,000137: 27,3235 00062 DEC 50 B-14 # DELAY .5 SECS
032530,000138:
032531,000139: 27,3236 05270 TC IBNKCALL
032532,000140: 27,3237 40066 CADR NOULLAGE # ULLAGE JETS OFF AT TIG + .5
032533,000141:
032534,000142: # NOW THAT THE ENGINE IS ON AND ULLAGE IS OFF, SET UP DUMMY MP 13 & PUT RESTARTABILITY FLAG UP:
032535,000143:
032536,000144: 27,3240 04141 TC 2PHSCHNG
032537,000145: 27,3241 00313 OCT 00313 # 3.31 SPOT IS DUMMY13 TASK.
032538,000146: 27,3242 00002 OCT 2 # GROUP 2 OFF.
032539,000147:
032540,000148: 27,3243 37747 CAF BIT13
032541,000149: 27,3244 04105 TC SETRSTRT # SET RESTART FLAG
032542,000150:
032543,000151: 27,3245 05701 TC FIXDELAY
032544,000152: 27,3246 00372 DEC 250 B-14 # DELAY 2.5 SECS AND START GUIDANCE
032545,000153: 27,3247 00006 EXTEND
032546,000154: 27,3250 33331 DCA ATMAGAD
032547,000155: 27,3251 53073 DXCH AVGEXIT # SET AVEG LOOP TO THRUST MAGNITUDE FILTER
032548,000156:
032549,000157: 27,3252 05701 TC FIXDELAY
032550,000158: 27,3253 01130 DEC 600 B-14 # START FEED TEST ROUTINE
032551,000159: 27,3254 03353 TC FEEDTEST # START FEED TEST ROUTINE
032552,000160:
032553,000161: 27,3255 00006 EXTEND
032554,000162: 27,3256 33322 DCA 342SECS
032555,000163: 27,3257 05741 TC LONGCALL
032556,000164: 27,3260 E4,1566 EBANK= TDEC
032557,000165: 27,3260 03263 56064 2CADR MP13+544
032558,000166:
032559,000167: 27,3262 13264 TCGP2OFF TCF GRP2OFF
032560,000168:
032561,000169: 27,3263 03410 MP13+544 TC FEEDREST # DO FEED TEST RESET ROUTINE
032562,000170:
![]() |
Page 757 |
032564,000172: 27,3264 47767 GRP2OFF CS ZERO
032565,000173: 27,3265 22007 ZL
032566,000174: 27,3266 53102 DXCH -PHASE2
032567,000175:
032568,000176: 27,3267 05727 TC TASKOVER # WAIT FOR GUIDANCE TO DO ENGINE OFF
032569,000177:
032570,000178: 27,3270 37763 MP13TERM CAF BIT1 # SET MP13 TERMINAL TASKS
032571,000179: 27,3271 00004 INHINT
032572,000180: 27,3272 05663 TC WAITLIST
032573,000181: 27,3273 E4,1566 EBANK= TDEC
032574,000182: 27,3273 03277 56064 2CADR MP13OUT
032575,000183:
032576,000184: 27,3275 05225 TC POSTJUMP
032577,000185: 27,3276 60324 CADR SERVEXIT
032578,000186:
032579,000187: 27,3277 05270 MP13OUT TC IBNKCALL # DEADBAND SELECT - MAX
032580,000188: 27,3300 40054 CADR SETMAXDB
032581,000189:
032582,000190: 27,3301 03410 TC FEEDREST # DO THIS IN CASE OF EARLY ENG SHUT DOWN
032583,000191:
032584,000192: 27,3302 05701 TC FIXDELAY
032585,000193: 27,3303 00144 DEC 100 B-14 # DELAY 1 SEC
032586,000194:
032587,000195: 27,3304 05060 TC 1LMP
032588,000196: 27,3305 00207 DEC 135 B-14 # APS ARM OFF
032589,000197:
032590,000198: 27,3306 05701 TC FIXDELAY
032591,000199: 27,3307 05524 DEC 2900 B-14 # DELAY 29 SECS TO KILL AVEG
032592,000200:
032593,000201: 27,3310 06067 TC FLAG1DWN # KILL AVE G
032594,000202: 27,3311 00001 OCT 1
032595,000203:
032596,000204: 27,3312 05727 TC TASKOVER # MISSION PHASE 13 COMPLETE
032597,000205:
032598,000206: 27,3313 00144 1SEC13 DEC 100 B-14
032599,000207: 27,3314 00310 2SECS13 DEC 200 B-14
032600,000208: 27,3315 02260 12SECS13 DEC 1200 B-14
032601,000209: 27,3316 00000 05670 30SECS13 2DEC 3000 B-28
032602,000210:
032603,000211: 27,3320 33260 140SECS DEC 14000 B-14
032604,000212: 27,3321 00002 02630 342SECS 2DEC 34200 B-28 # 342 SECONDS
032605,000213:
032606,000214: 27,3323 02251 AVEG13AD GENADR AVERAGEG
032607,000215: 27,3324 E4,1566 EBANK= TDEC
032608,000216: 27,3324 02000 64064 PREAP2AD 2CADR PREAPS2
032609,000217:
032610,000218: 27,3326 E4,1566 EBANK= TDEC
032611,000219: 27,3326 03270 56064 MP13TMAD 2CADR MP13TERM
032612,000220:
032613,000221: 27,3330 E4,1566 EBANK= TDEC
![]() |
Page 758 |
032615,000223: 27,3330 03005 64064 ATMAGAD 2CADR ATMAG
032616,000224:
032617,000225: 27,3332 E5,1506 EBANK= DVTOTAL
032618,000226: 27,3332 02324 60065 SVEX13AD 2CADR SERVEXIT
032619,000227:
![]() |
Page 759 |
032621,000229: 27,3334 35660 CURTJOB CAF PRIO37 # SET UP JOB TO GO TO CURTAINS
032622,000230: 27,3335 05505 TC NOVAC
032623,000231: 27,3336 1357 EBANK= SFAIL
032624,000232: 27,3336 04743 04062 2CADR CURTAINS
032625,000233:
032626,000234: 27,3340 05727 TC TASKOVER
032627,000235:
032628,000236: 27,3341 05101 DFICAL TC 1LMP+DT # LMP COMMAND
032629,000237: 27,3342 00354 DEC 236 B-14 # DFI T/M CALIBRATE - ON
032630,000238: 27,3343 02260 DEC 1200 B-14 # DELAY 12 SECS
032631,000239:
032632,000240: 27,3344 05073 TC 2LMP+DT # LMP COMMANDS
032633,000241: 27,3345 00355 DEC 237 B-14 # DFI T/M CALIBRATE - OFF
032634,000242: 27,3346 00306 DEC 198 B-14 # MASTER C+W ALARM RESET - COMMAND
032635,000243: 27,3347 00310 DEC 200 B-14 # DELAY 2.0 SECONDS
032636,000244:
032637,000245: 27,3350 05060 TC 1LMP # LMP COMMAND
032638,000246: 27,3351 00307 DEC 199 B-14 # MASTER C+W ALARM RESET - COMMAND RESET
032639,000247: 27,3352 05727 TC TASKOVER # TERMINATE DFI CALIBRATE TASK
032640,000248:
![]() |
Page 760 |
032642,000250: 27,3353 00006 FEEDTEST EXTEND
032643,000251: 27,3354 23662 QXCH MPRETRN
032644,000252: 27,3355 06060 TC FLAG2UP # SET ASC FEED TEST FLAG
032645,000253: 27,3356 00200 OCT 200
032646,000254:
032647,000255: 27,3357 05101 TC 1LMP+DT # TIME T
032648,000256: 27,3360 00176 DEC 126 B-14 # RCS ASCENT FEED VALVE - ARM
032649,000257: 27,3361 00144 DEC 100 B-14 # DELAY 1 SEC
032650,000258:
032651,000259: 27,3362 05073 TC 2LMP+DT # T+1
032652,000260: 27,3363 00074 DEC 60 B-14 # RCS ASCENT FEED VALVES8 SYS A-OPEN
032653,000261: 27,3364 00254 DEC 172 B-14 # RCS MAIN S/O VALVES SYS A-CLOSE
032654,000262: 27,3365 00310 DEC 200 B-14 # DELAY FOR 2 SECS
032655,000263:
032656,000264: 27,3366 05073 TC 2LMP+DT # T+3
032657,000265: 27,3367 00075 DEC 61 B-14 # RCS ASCENT FEED VALVES SYS A-OPEN RESET
032658,000266: 27,3370 00255 DEC 173 B-14 # RCS MAIN S/O VALVES SYS A-CLOSE RESET
032659,000267: 27,3371 01440 DEC 800 B-14 # DELAY FOR 8 SECS
032660,000268:
032661,000269: 27,3372 05073 TC 2LMP+DT # T+11
032662,000270: 27,3373 00076 DEC 62 B-14 # RCS ASCENT FEED VALVES SYS B-OPEN
032663,000271: 27,3374 00256 DEC 174 B-14 # RCS MAIN S/O VALVES SYS B -CLOSE
032664,000272: 27,3375 00310 DEC 200 B-14 # DELAY FOR 2 SECS
032665,000273:
032666,000274: 27,3376 05073 TC 2LMP+DT # T+13
032667,000275: 27,3377 00077 DEC 63 B-14 # RCS ASCENT FEED VALVES SYS B-OPEN RESET
032668,000276: 27,3400 00257 DEC 175 B-14 # RCS MAIN S/O VALVES SYS B-CLOSE RESET
032669,000277: 27,3401 01440 DEC 800 B-14 # DELAY 8 SECS
032670,000278:
032671,000279: 27,3402 05101 TC 1LMP+DT # T+21
032672,000280: 27,3403 00374 DEC 252 B-14 # RCS MANIFOLD CROSSFEED VALVES-OPEN
032673,000281: 27,3404 00310 DEC 200 B-14 # DELAY FOR 2 SECS
032674,000282:
032675,000283: 27,3405 05060 TC 1LMP # T+23
032676,000284: 27,3406 00375 DEC 253 B-14 # RCS MANIFOLD CROSSFEED VALVES-OPEN RESET
032677,000285:
032678,000286: 27,3407 01662 TC MPRETRN
032679,000287:
![]() |
Page 761 |
032681,000289: 27,3410 40076 FEEDREST CS FLAGWRD2 # CHECK FEED TEST FLAG
032682,000290: 27,3411 77754 MASK BIT8
032683,000291: 27,3412 10000 CCS A
032684,000292: 27,3413 00002 TC Q # FLAG DOWN-NO RESET
032685,000293:
032686,000294: 27,3414 00006 EXTEND # FLAG UP - DO FEED TEST RESET
032687,000295: 27,3415 23662 QXCH MPRETRN
032688,000296:
032689,000297: 27,3416 06076 TC FLAG2DWN # FEED TEST FLAG DOWN
032690,000298: 27,3417 00200 OCT 200
032691,000299:
032692,000300: 27,3420 05101 TC 1LMP+DT # TIME T
032693,000301: 27,3421 00376 DEC 254 B-14 # RCS MANIFOLD CROSSFEED VALVES -CLOSE
032694,000302: 27,3422 00144 DEC 100 B-14 # DELAY 1 SEC
032695,000303:
032696,000304: 27,3423 05073 TC 2LMP+DT # T+1
032697,000305: 27,3424 00274 DEC 188 B-14 # RCS MAIN S/O VALVES SYS A-OPEN
032698,000306: 27,3425 00114 DEC 76 B-14 # RCS ASCENT FEED VALVES SYS A-CLOSE
032699,000307: 27,3426 00144 DEC 100 B-14 # DELAY 1 SECS
032700,000308:
032701,000309: 27,3427 05101 TC 1LMP+DT # T+2
032702,000310: 27,3430 00377 DEC 255 B-14 # RCS MANIFOLD CROSSFEED VALVES-CLOSE RESE
032703,000311: 27,3431 00144 DEC 100 B-14 # DELAY 1 SEC
032704,000312:
032705,000313: 27,3432 05073 TC 2LMP+DT # T+3
032706,000314: 27,3433 00275 DEC 189 B-14 # RCS MAIN S/O VALVES SYS A-OPEN RESET
032707,000315: 27,3434 00115 DEC 77 B-14 # RCS ASCENT FEED VALVES SYS A-CLOSE RESET
032708,000316: 27,3435 01440 DEC 800 B-14 # DELAY 8 SECS
032709,000317:
032710,000318: 27,3436 05073 TC 2LMP+DT # T+11
032711,000319: 27,3437 00276 DEC 190 B-14 # RCS MAIN S/O VALVES SYS B-OPEN
032712,000320: 27,3440 00116 DEC 78 B-14 # RCS ASCENT FEED VALVES SYS B-CLOSE
032713,000321: 27,3441 00144 DEC 100 B-14 # DELAY 1 SEC
032714,000322:
032715,000323: 27,3442 05101 TC 1LMP+DT # T+12
032716,000324: 27,3443 00177 DEC 127 B-14 # RCS ASCENT FEED VALVE-SAFE
032717,000325: 27,3444 00144 DEC 100 B-14 # DELAY 1 SEC
032718,000326:
032719,000327: 27,3445 05052 TC 2LMP # T+13
032720,000328: 27,3446 00277 DEC 191 B-14 # RCS MAIN S/O VALVES SYS B-OPEN RESET
032721,000329: 27,3447 00117 DEC 79 B-14 # RCS ASCENT FEED VALVES SYS B-CLOSE RESET
032722,000330:
032723,000331: 27,3450 01662 TC MPRETRN # RETURN TO MISSION PROGRAM
032724,000332:
![]() |
Page 762 |
032726,000334: # COME HERE IF WE GET A RESTART AFTER THE ENGINE IS ON & ULLAGE IS OFF. SET UP SERVICER SWITCHES TO CAUSE THE
032727,000335: # BURN TO CONTINUE UNTIL PROPELLANT DEPLETION (UNLESS INTERRUPTED BY ENGINE FAILURE OR V74). EXIT TO POOH AFTER
032728,000336: # SHUTDOWN IS DETECTED.
032729,000337:
032730,000338: 27,3451 E4,1745 EBANK= TTGO
032731,000339:
032732,000340: 27,3451 00006 DUMMY13 EXTEND
032733,000341: 27,3452 33333 DCA SVEX13AD
032734,000342: 27,3453 53073 DXCH AVGEXIT
032735,000343:
032736,000344: 27,3454 33262 CAF TCGP2OFF # TO FINISH FEED TEST OR RESET (WHICH ARE
032737,000345: 27,3455 55662 TS MPRETRN # IN GROUP 2)
032738,000346:
032739,000347: 27,3456 00006 EXTEND
032740,000348: 27,3457 33474 DCA D13TRMAD
032741,000349: 27,3460 53075 DXCH DVMNEXIT
032742,000350:
032743,000351: 27,3461 06067 TC FLAG1DWN # TO GET SERVICER TO RETURN THRU DVMNEXIT
032744,000352: 27,3462 00020 OCT 00020 # WHATEVER CAUSES SHUTDOWN.
032745,000353:
032746,000354: 27,3463 36106 CA PGNSCADR
032747,000355: 27,3464 55310 TS DVSELECT # (SHOULD BE THERE ALREADY.)
032748,000356:
032749,000357: 27,3465 04117 TC NEWMODEX # DISPLAY PROGRAM 47.
032750,000358: 27,3466 00047 OCT 47
032751,000359:
032752,000360: 27,3467 37743 CA POSMAX # DISPLAY LARGE TIME TO GO FOR DOWNLINK.
032753,000361: 27,3470 55745 TS TTGO
032754,000362: 27,3471 55746 TS TTGO +1
032755,000363:
032756,000364: 27,3472 05727 TC TASKOVER
032757,000365:
032758,000366: 27,3473 E4,1745 EBANK= TTGO
032759,000367: 27,3473 03475 56064 D13TRMAD 2CADR DMY13TRM
032760,000368:
032761,000369:
032762,000370: 27,3475 04161 DMY13TRM TC PHASCHNG
032763,000371: 27,3476 40333 OCT 40333 # 3.33 IS TRMDMY13 TASK.
032764,000372: 27,3477 00004 INHINT
032765,000373: 27,3500 33521 CA 25SEC # INSURE THAT FEED ROUTINES ARE FINISHED.
032766,000374: 27,3501 05663 TC WAITLIST
032767,000375: 27,3502 E4,1745 EBANK= TTGO
032768,000376: 27,3502 03505 56064 2CADR TRMDMY13
032769,000377:
032770,000378: 27,3504 05567 TC ENDOFJOB
032771,000379:
032772,000380: 27,3505 05270 TRMDMY13 TC IBNKCALL
032773,000381: 27,3506 40263 CADR ENGINOFF
032774,000382:
032775,000383: 27,3507 05060 TC 1LMP
![]() |
Page 763 |
032777,000385: 27,3510 00207 DEC 135 B-14 # ENGINE SELECT - ASCENT ARM OFF*
032778,000386:
032779,000387: 27,3511 04141 TC 2PHSCHNG
032780,000388: 27,3512 00003 OCT 00003
032781,000389: 27,3513 05012 OCT 05012
032782,000390: 27,3514 77777 OCT 77777
032783,000391:
032784,000392: 27,3515 03410 TC FEEDREST
032785,000393:
032786,000394: 27,3516 06067 TC FLAG1DWN # AVERAGE G OFF & EXIT VIA POOH.
032787,000395: 27,3517 00001 OCT 00001
032788,000396:
032789,000397: 27,3520 05727 TC TASKOVER
032790,000398:
032791,000399: 27,3521 04704 25SEC DEC 2500 B-14
End of include-file MISSION_PHASE_13-APS2.agc. Parent file is MAIN.agc