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