Source Code
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part:
YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
DEC 13, 1966
THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37
OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.
|
031886,000002: ## Copyright: Public domain.
031887,000003: ## Filename: MISSION_PHASE_13_-_APS2.agc
031888,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
031889,000005: ## It is part of an early development version of the software
031890,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
031891,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
031892,000008: ## upon which Don Eyles's offline development program Shepatin
031893,000009: ## was based; the listing herein transcribed was actually for
031894,000010: ## the equivalent revision 0 of Shepatin.
031895,000011: ## This file is intended to be a faithful transcription, except
031896,000012: ## that the code format has been changed to conform to the
031897,000013: ## requirements of the yaYUL assembler rather than the
031898,000014: ## original YUL assembler.
031899,000015: ## Reference: pp. 704-710
031900,000016: ## Assembler: yaYUL
031901,000017: ## Contact: Ron Burkey <info@sandroid.org>.
031902,000018: ## Website: www.ibiblio.org/apollo/index.html
031903,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
031904,000020: ## 2017-06-14 HG Transcribed
031905,000021: ## 2017-06-23 RSB Proofed comment text with
031906,000022: ## octopus/ProoferComments.
031907,000023:
|
|
Page 704 |
031909,000025: # MISSION PHASE 13 EXERCISES THE ASCENT GUIDANCE EQUATIONS OF PROG 46
031910,000026: # THE PREREAD TASK IS SET TO OCCUR IN 140 SECS AT TIG-30 AND AVETOMID DONE
031911,000027: # THE PRE-APS2 PROG 34 IS EXECUTED AND KALCMANU JOB IS STARTED
031912,000028: # THE ENGINEON TASK IS STARTED AT TIG-30 AND IGN IS AT 170 SECS AFTER
031913,000029: # START OF MP13
031914,000030: # THE ASCENT GUIDANCE EQUATIONS START BETWEEN TIG+1 AND +2 SECS
031915,000031: # THE ASC FEED TEST STARTS AT TIG+9 AND TERMINATES 365 SECS LATER
031916,000032:
031917,000033: 27,3071 BANK 27
031918,000034: 27,3071 E4,1400 EBANK= AMEMORY
031919,000035:
031920,000036: 27,3071 00006 MP13JOB EXTEND
031921,000037: 27,3072 30025 DCA TIME2 # PICK UP CURRENT TIME
031922,000038: 27,3073 53567 DXCH TDEC
031923,000039: 27,3074 04105 TC NEWMODEX # SET MODE
031924,000040: 27,3075 00034 OCT 34
031925,000041:
031926,000042: 27,3076 22007 ZL # SET TDEC TO TIME AT TIG-30
031927,000043: 27,3077 33253 CAF 140SECS # TIME TO TIGN-30
031928,000044: 27,3100 56001 XCH L
031929,000045: 27,3101 21567 DAS TDEC # TDEC =TIGN-30 FOR MIDTOAVE
031930,000046:
031931,000047: 27,3102 33253 CAF 140SECS
031932,000048: 27,3103 00004 INHINT
031933,000049: 27,3104 05701 TC WAITLIST # SET TASK FOR TIGN-30
031934,000050: 27,3105 E4,1566 EBANK= TDEC
031935,000051:
031936,000052: 27,3105 03142 56004 2CADR TIG13-30
031937,000053:
031938,000054: 27,3107 00003 RELINT
031939,000055:
031940,000056: 27,3110 00006 EXTEND
031941,000057: 27,3111 32454 DCA MIDAVEAD # DO MIDTOAVE COMPUTATION
031942,000058: 27,3112 52006 DXCH Z
031943,000059:
031944,000060: 27,3113 00006 EXTEND
031945,000061: 27,3114 33260 DCA PREAP2AD # DO PRE-APS2 TO GET DESIRED ATTITUDE
031946,000062: 27,3115 52006 DXCH Z # STORES VECTORS POINTVSM AND SCAXIS
031947,000063:
031948,000064: 27,3116 06103 TC INTPRET
031949,000065: 27,3117 43131 SSP SET
031950,000066: 27,3120 01653 RATEINDX # SET KALCMANU FOR ANGULAR RATE OF 5DEG/S
031951,000067: 27,3121 00004 4
031952,000068: 27,3122 01063 33D
031953,000069: 27,3123 77776 EXIT
031954,000070:
031955,000071: 27,3124 35226 CAF PRIO30 # SET ATTITUDE MANEUVER JOB
031956,000072: 27,3125 00004 INHINT
031957,000073: 27,3126 05534 TC FINDVAC
031958,000074: 27,3127 E3,1535 EBANK= MIS
031959,000075: 27,3127 02001 70063 2CADR VECPOINT
031960,000076:
|
|
Page 705 |
031962,000078: 27,3131 37755 CAF BIT1
031963,000079: 27,3132 00004 INHINT
031964,000080: 27,3133 05701 TC WAITLIST # SET UP DFI T/M CALIBRATE TASK
031965,000081: 27,3134 E4,1566 EBANK= TDEC
031966,000082: 27,3134 03274 56004 2CADR DFICAL # DFICAL REQUIRES 14 SECS AND ENDS ITSELF
031967,000083:
031968,000084: 27,3136 05224 TC BANKCALL # PUT MP13 TO SLEEP-KALCMANU WILL WAKE
031969,000085: 27,3137 26754 CADR ATTSTALL
031970,000086: 27,3140 04732 TC CURTAINS # BAD END RETURN FROM KALCMANU
031971,000087:
031972,000088: 27,3141 05605 TC ENDOFJOB # WAIT FOR TIG-30 TASK TO INTERUPT
031973,000089:
031974,000090: 27,3142 37755 TIG13-30 CAF BIT1 # SET PREREAD FOR NOW
031975,000091: 27,3143 05701 TC WAITLIST
031976,000092: 27,3144 E5,1506 EBANK= DVTOTAL
031977,000093: 27,3144 02000 60065 2CADR PREREAD
031978,000094:
031979,000095: 27,3146 37743 CAF BIT11 # SEE IF ATTITUDE MANEUVER DONE
031980,000096: 27,3147 70076 MASK FLAGWRD2
031981,000097: 27,3150 10000 CCS A
031982,000098: 27,3151 13267 TCF CURTJOB # NO-SET UP CURTAINS JOB
031983,000099:
031984,000100: 27,3152 04105 TC NEWMODEX
031985,000101: 27,3153 00046 OCT 46 # SET MODE TO PROG46
031986,000102:
031987,000103: 27,3154 33256 CAF AVEG13AD # GENADR OF AVEG IN DVSELECT
031988,000104: 27,3155 55322 TS DVSELECT
031989,000105:
031990,000106: 27,3156 00006 EXTEND
031991,000107: 27,3157 33266 DCA SVEX13AD # 2CADR SERVEXIT IN AVEGEXIT
031992,000108: 27,3160 53073 DXCH AVGEXIT
031993,000109:
031994,000110: 27,3161 00006 EXTEND
031995,000111: 27,3162 33262 DCA MP13TMAD
031996,000112: 27,3163 53075 DXCH DVMNEXIT # SET MP RETURN FOR ENGINE SHUT DOWN
031997,000113:
031998,000114: 27,3164 06074 TC ENGINOF1 # JUST TO ENSURE ENGINE OFF
031999,000115:
032000,000116: 27,3165 05114 TC 1LMP+DT
032001,000117: 27,3166 00206 DEC 134 B-14 # ENGINE SELECT-APS ARM
032002,000118: 27,3167 03326 DEC 1750 B-14 # DELAY 17.5 SECS
032003,000119:
032004,000120: 27,3170 05307 TC IBNKCALL
032005,000121: 27,3171 34024 CADR ULLAGE # COMMAND 4 JET ULLAGE-ON
032006,000122:
032007,000123: 27,3172 05717 TC FIXDELAY
032008,000124: 27,3173 02342 DEC 1250 B-14 # DELAY 12.5 SECS TO IGNITION
032009,000125:
032010,000126: 27,3174 06054 TIG13 TC ENGINEON # FIRE UP APS ENGINE
032011,000127:
|
|
Page 706 |
032013,000129: 27,3175 05717 TC FIXDELAY
032014,000130: 27,3176 00062 DEC 50 B-14 # DELAY .5 SECS
032015,000131:
032016,000132: 27,3177 05307 TC IBNKCALL
032017,000133: 27,3200 34030 CADR NOULLAGE # ULLAGE JETS OFF AT TIG + .5
032018,000134:
032019,000135: 27,3201 05717 TC FIXDELAY
032020,000136: 27,3202 00062 DEC 50 B-14 # DELAY .5 SEC AND START ASCENT GUIDANCE
032021,000137: 27,3203 00006 EXTEND
032022,000138: 27,3204 33264 DCA ATMAGAD
032023,000139: 27,3205 53073 DXCH AVGEXIT # SET AVEG LOOP TO THRUST MAGNITUDE FILTER
032024,000140:
032025,000141: 27,3206 05717 TC FIXDELAY
032026,000142: 27,3207 01440 DEC 800 B-14 # DELAY 8 SECS AND DO FEED TEST
032027,000143: 27,3210 03306 TC FEEDTEST # START FEED TEST ROUTINE
032028,000144:
032029,000145: 27,3211 00006 EXTEND
032030,000146: 27,3212 33255 DCA 342SECS
032031,000147: 27,3213 05757 TC LONGCALL
032032,000148: 27,3214 E4,1566 EBANK= TDEC
032033,000149: 27,3214 03217 56004 2CADR MP13+544
032034,000150:
032035,000151: 27,3216 05745 TC TASKOVER
032036,000152:
032037,000153: 27,3217 03343 MP13+544 TC FEEDREST # DO FEED TEST RESET ROUTINE
032038,000154:
032039,000155: 27,3220 05745 TC TASKOVER # WAIT FOR GUIDANCE TO DO ENGINE OFF
032040,000156:
032041,000157: 27,3221 37755 MP13TERM CAF BIT1 # SET MP13 TERMINAL TASKS
032042,000158: 27,3222 00004 INHINT
032043,000159: 27,3223 05701 TC WAITLIST
032044,000160: 27,3224 E4,1566 EBANK= TDEC
032045,000161: 27,3224 03227 56004 2CADR MP13OUT
032046,000162:
032047,000163: 27,3226 05605 TC ENDOFJOB # KILL JOB SET BY DVMON
032048,000164:
032049,000165: 27,3227 00006 MP13OUT EXTEND # APS ENGINE OFF-TERMINATE MP13
032050,000166: 27,3230 32456 DCA SVEXITAD # REMOVE ASCENT PROG FROM SERVICER
032051,000167: 27,3231 53073 DXCH AVGEXIT
032052,000168:
032053,000169: 27,3232 05307 TC IBNKCALL # DEADBAND SELECT-MAX
032054,000170: 27,3233 34012 CADR SETMAXDB
032055,000171:
032056,000172: 27,3234 05307 TC IBNKCALL # SET ATTITUDE HOLD
032057,000173: 27,3235 34057 CADR STOPRATE
032058,000174:
032059,000175: 27,3236 03343 TC FEEDREST # DO THIS IN CASE OF EARLY ENG SHUT DOWN
032060,000176:
032061,000177: 27,3237 05717 TC FIXDELAY
032062,000178: 27,3240 00144 DEC 100 B-14 # DELAY 1 SEC
032063,000179:
|
|
Page 707 |
032065,000181: 27,3241 05073 TC 1LMP
032066,000182: 27,3242 00207 DEC 135 B-14 # APS ARM OFF
032067,000183:
032068,000184: 27,3243 05717 TC FIXDELAY
032069,000185: 27,3244 05524 DEC 2900 B-14 # DELAY 29 SECS TO KILL AVEG
032070,000186:
032071,000187: 27,3245 06036 TC FLAG1DWN # KILL AVE G
032072,000188: 27,3246 00001 OCT 1
032073,000189:
032074,000190: 27,3247 05745 TC TASKOVER # MISSION PHASE 13 COMPLETE
032075,000191:
032076,000192: 27,3250 00144 1SEC13 DEC 100 B-14
032077,000193: 27,3251 00310 2SECS13 DEC 200 B-14
032078,000194: 27,3252 02260 12SECS13 DEC 1200 B-14
032079,000195: 27,3253 33260 140SECS DEC 14000 B-14
032080,000196: 27,3254 00002 02630 342SECS 2DEC 34200 B-28 # 342 SECONDS
032081,000197:
032082,000198: 27,3256 02233 AVEG13AD GENADR AVERAGEG
032083,000199: 27,3257 E4,1566 EBANK= TDEC
032084,000200: 27,3257 02000 64064 PREAP2AD 2CADR PREAPS2
032085,000201:
032086,000202: 27,3261 E4,1566 EBANK= TDEC
032087,000203: 27,3261 03221 56004 MP13TMAD 2CADR MP13TERM
032088,000204:
032089,000205: 27,3263 E4,1566 EBANK= TDEC
032090,000206: 27,3263 02713 64064 ATMAGAD 2CADR ATMAG
032091,000207:
032092,000208: 27,3265 E5,1506 EBANK= DVTOTAL
032093,000209: 27,3265 02312 60065 SVEX13AD 2CADR SERVEXIT
032094,000210:
|
|
Page 708 |
032096,000212: 27,3267 35676 CURTJOB CAF PRIO37 # SET UP JOB TO GO TO CURTAINS
032097,000213: 27,3270 05523 TC NOVAC
032098,000214: 27,3271 1361 EBANK= SFAIL
032099,000215: 27,3271 04732 04002 2CADR CURTAINS
032100,000216:
032101,000217: 27,3273 05745 TC TASKOVER
032102,000218:
032103,000219: 27,3274 05114 DFICAL TC 1LMP+DT # LMP COMMAND
032104,000220: 27,3275 00354 DEC 236 B-14 # DFI T/M CALIBRATE - ON
032105,000221: 27,3276 02260 DEC 1200 B-14 # DELAY 12 SECS
032106,000222:
032107,000223: 27,3277 05106 TC 2LMP+DT # LMP COMMANDS
032108,000224: 27,3300 00355 DEC 237 B-14 # DFI T/M CALIBRATE - OFF
032109,000225: 27,3301 00306 DEC 198 B-14 # MASTER C+W ALARM RESET - COMMAND
032110,000226: 27,3302 00310 DEC 200 B-14 # DELAY 2.0 SECONDS
032111,000227:
032112,000228: 27,3303 05073 TC 1LMP # LMP COMMAND
032113,000229: 27,3304 00307 DEC 199 B-14 # MASTER C+W ALARM RESET - COMMAND RESET
032114,000230: 27,3305 05745 TC TASKOVER # TERMINATE DFI CALIBRATE TASK
032115,000231:
|
|
Page 709 |
032117,000233: 27,3306 00006 FEEDTEST EXTEND
032118,000234: 27,3307 23662 QXCH MPRETRN
032119,000235: 27,3310 06027 TC FLAG2UP # SET ASC FEED TEST FLAG
032120,000236: 27,3311 00200 OCT 200
032121,000237:
032122,000238: 27,3312 05114 TC 1LMP+DT # TIME T
032123,000239: 27,3313 00176 DEC 126 B-14 # RCS ASCENT FEED VALVE - ARM
032124,000240: 27,3314 00144 DEC 100 B-14 # DELAY 1 SEC
032125,000241:
032126,000242: 27,3315 05106 TC 2LMP+DT # T+1
032127,000243: 27,3316 00074 DEC 60 B-14 # RCS ASCENT FEED VALVES8 SYS A-OPEN
032128,000244: 27,3317 00254 DEC 172 B-14 # RCS MAIN S/O VALVES SYS A-CLOSE
032129,000245: 27,3320 00310 DEC 200 B-14 # DELAY FOR 2 SECS
032130,000246:
032131,000247: 27,3321 05106 TC 2LMP+DT # T+3
032132,000248: 27,3322 00075 DEC 61 B-14 # RCS ASCENT FEED VALVES SYS A-OPEN RESET
032133,000249: 27,3323 00255 DEC 173 B-14 # RCS MAIN S/O VALVES SYS A-CLOSE RESET
032134,000250: 27,3324 01440 DEC 800 B-14 # DELAY FOR 8 SECS
032135,000251:
032136,000252: 27,3325 05106 TC 2LMP+DT # T+11
032137,000253: 27,3326 00076 DEC 62 B-14 # RCS ASCENT FEED VALVES SYS B-OPEN
032138,000254: 27,3327 00256 DEC 174 B-14 # RCS MAIN S/O VALVES SYS B -CLOSE
032139,000255: 27,3330 00310 DEC 200 B-14 # DELAY FOR 2 SECS
032140,000256:
032141,000257: 27,3331 05106 TC 2LMP+DT # T+13
032142,000258: 27,3332 00077 DEC 63 B-14 # RCS ASCENT FEED VALVES SYS B-OPEN RESET
032143,000259: 27,3333 00257 DEC 175 B-14 # RCS MAIN S/O VALVES SYS B-CLOSE RESET
032144,000260: 27,3334 01440 DEC 800 B-14 # DELAY 8 SECS
032145,000261:
032146,000262: 27,3335 05114 TC 1LMP+DT # T+21
032147,000263: 27,3336 00374 DEC 252 B-14 # RCS MANIFOLD CROSSFEED VALVES-OPEN
032148,000264: 27,3337 00310 DEC 200 B-14 # DELAY FOR 2 SECS
032149,000265:
032150,000266: 27,3340 05073 TC 1LMP # T+23
032151,000267: 27,3341 00375 DEC 253 B-14 # RCS MANIFOLD CROSSFEED VALVES-OPEN RESET
032152,000268:
032153,000269: 27,3342 01662 TC MPRETRN
032154,000270:
|
|
Page 710 |
032156,000272: 27,3343 40076 FEEDREST CS FLAGWRD2 # CHECK FEED TEST FLAG
032157,000273: 27,3344 77746 MASK BIT8
032158,000274: 27,3345 10000 CCS A
032159,000275: 27,3346 00002 TC Q # FLAG DOWN-NO RESET
032160,000276:
032161,000277: 27,3347 00006 EXTEND # FLAG UP - DO FEED TEST RESET
032162,000278: 27,3350 23662 QXCH MPRETRN
032163,000279:
032164,000280: 27,3351 06045 TC FLAG2DWN # FEED TEST FLAG DOWN
032165,000281: 27,3352 00200 OCT 200
032166,000282:
032167,000283: 27,3353 05114 TC 1LMP+DT # TIME T
032168,000284: 27,3354 00376 DEC 254 B-14 # RCS MANIFOLD CROSSFEED VALVES -CLOSE
032169,000285: 27,3355 00144 DEC 100 B-14 # DELAY 1 SEC
032170,000286:
032171,000287: 27,3356 05106 TC 2LMP+DT # T+1
032172,000288: 27,3357 00274 DEC 188 B-14 # RCS MAIN S/O VALVES SYS A-OPEN
032173,000289: 27,3360 00114 DEC 76 B-14 # RCS ASCENT FEED VALVES SYS A-CLOSE
032174,000290: 27,3361 00144 DEC 100 B-14 # DELAY 1 SECS
032175,000291:
032176,000292: 27,3362 05114 TC 1LMP+DT # T+2
032177,000293: 27,3363 00377 DEC 255 B-14 # RCS MANIFOLD CROSSFEED VALVES-CLOSE RESE
032178,000294: 27,3364 00144 DEC 100 B-14 # DELAY 1 SEC
032179,000295:
032180,000296: 27,3365 05106 TC 2LMP+DT # T+3
032181,000297: 27,3366 00275 DEC 189 B-14 # RCS MAIN S/O VALVES SYS A-OPEN RESET
032182,000298: 27,3367 00115 DEC 77 B-14 # RCS ASCENT FEED VALVES SYS A-CLOSE RESET
032183,000299: 27,3370 01440 DEC 800 B-14 # DELAY 8 SECS
032184,000300:
032185,000301: 27,3371 05106 TC 2LMP+DT # T+11
032186,000302: 27,3372 00276 DEC 190 B-14 # RCS MAIN S/O VALVES SYS B-OPEN
032187,000303: 27,3373 00116 DEC 78 B-14 # RCS ASCENT FEED VALVES SYS B-CLOSE
032188,000304: 27,3374 00144 DEC 100 B-14 # DELAY 1 SEC
032189,000305:
032190,000306: 27,3375 05114 TC 1LMP+DT # T+12
032191,000307: 27,3376 00177 DEC 127 B-14 # RCS ASCENT FEED VALVE-SAFE
032192,000308: 27,3377 00144 DEC 100 B-14 # DELAY 1 SEC
032193,000309:
032194,000310: 27,3400 05065 TC 2LMP # T+13
032195,000311: 27,3401 00277 DEC 191 B-14 # RCS MAIN S/O VALVES SYS B-OPEN RESET
032196,000312: 27,3402 00117 DEC 79 B-14 # RCS ASCENT FEED VALVES SYS B-CLOSE RESET
032197,000313:
032198,000314: 27,3403 01662 TC MPRETRN # RETURN TO MISSION PROGRAM
032199,000315:
End of include-file MISSION_PHASE_13_-_APS2.agc. Parent file is MAIN.agc