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