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 GROUPNote that the date is the date of the printout, not the date of the program revision. |
029985,000002: ## Copyright: Public domain.
029986,000003: ## Filename: MISSION_PHASE_6_COAST_SIVB_ATTACHED.agc
029987,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
029988,000005: ## It is part of an early development version of the software
029989,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
029990,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
029991,000008: ## upon which Don Eyles's offline development program Shepatin
029992,000009: ## was based; the listing herein transcribed was actually for
029993,000010: ## the equivalent revision 0 of Shepatin.
029994,000011: ## This file is intended to be a faithful transcription, except
029995,000012: ## that the code format has been changed to conform to the
029996,000013: ## requirements of the yaYUL assembler rather than the
029997,000014: ## original YUL assembler.
029998,000015: ## Reference: pp. 666-668
029999,000016: ## Assembler: yaYUL
030000,000017: ## Contact: Ron Burkey <info@sandroid.org>.
030001,000018: ## Website: www.ibiblio.org/apollo/index.html
030002,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
030003,000020: ## 2017-06-13 HG Transcribed
030004,000021: ## 2017-06-22 RSB Proofed comment text with
030005,000022: ## octopus/ProoferComments.
030006,000023:
![]() |
Page 666 |
030008,000025: # PROGRAM DESCRIPTION
030009,000026: # COAST SIVB ATTACHED
030010,000027:
030011,000028: # MOD NO 1 DATE - 4 NOV 66
030012,000029:
030013,000030: # MOD BY - OVERBAUGH
030014,000031: # FUNCTIONAL DESCRIPTION
030015,000032: # WHEN THE DV MONITOR DETECTS SIVB SHUTDOWN THE
030016,000033: # THRUST MISSION CONTROL PROGRAM INITIATES MP6.
030017,000034: # DURING THIS PHASE THE ABORT COMMAND MONITOR AND
030018,000035: # THE TUMBLE MONITOR ARE TERMINATED AND THE C-BAND
030019,000036: # XPONDER IS SET TO ON*. WHEN THRUST DUE TO
030020,000037: # VENTING BECOMES NEGLIGIBLE READING OF
030021,000038: # THE PIPAS IS TERMINATED.
030022,000039:
030023,000040: # NORMAL EXIT MODES -
030024,000041: # TC TASKOVER
030025,000042:
030026,000043: # ERASABLE INITIALIZATION REQUIRED
030027,000044: # MP6TO7
030028,000045:
030029,000046: # OUTPUT
030030,000047: # UPDATE MODREG
030031,000048: # TERMINATE ABORT COMMAND MONITOR
030032,000049: # TERMINATE TUMBLE MONITOR
030033,000050: # MISSION SCHEDULING REGISTERS SET TO CALL MP7
030034,000051:
030035,000052: # DEBRIS
030036,000053: # CENTRALS,A,Q,Z
030037,000054:
030038,000055: # SUBROUTINES CALLED
030039,000056: # EXECUTIVE(ENDOFJOB)
030040,000057: # WAITLIST
030041,000058: # LONGCALL
030042,000059: # NEWMODEX
030043,000060: # 1LMP
030044,000061: # FLAG1DWN
030045,000062: # FLAG2DWN
030046,000063: # SCHEDULE ENTRY ROUTINE(MPENTRY)
030047,000064:
030048,000065: 27,2463 BANK 27
030049,000066: 27,2463 E3,1774 EBANK= MP6TO7
030050,000067:
030051,000068: 27,2463 04105 MP6JOB TC NEWMODEX # UPDATE MODREG
030052,000069: 27,2464 00013 OCT 13
030053,000070:
030054,000071: 27,2465 36276 CAF SIX
030055,000072: 27,2466 54765 TS PHASENUM
030056,000073:
030057,000074: 27,2467 04147 TC PHASCHNG
![]() |
Page 667 |
030059,000076: 27,2470 47012 OCT 47012
030060,000077: 27,2471 13560 DEC 6000 B-14
030061,000078: 27,2472 E3,1774 EBANK= MP6TO7
030062,000079: 27,2472 02504 56003 2CADR MP6A
030063,000080:
030064,000081: 27,2474 32503 CAF DEC6000 # INITIALIZE 1 MIN DELAY
030065,000082: 27,2475 00004 INHINT
030066,000083: 27,2476 05701 TC WAITLIST
030067,000084: 27,2477 E3,1774 EBANK= MP6TO7
030068,000085: 27,2477 02504 56003 2CADR MP6A
030069,000086:
030070,000087: 27,2501 00003 RELINT
030071,000088: 27,2502 15605 TCF ENDOFJOB
030072,000089: 27,2503 13560 DEC6000 DEC 6000 B-14
030073,000090:
030074,000091: 27,2504 04147 MP6A TC PHASCHNG
030075,000092: 27,2505 47012 OCT 47012
030076,000093: 27,2506 27340 DEC 12000 B-14
030077,000094: 27,2507 E3,1774 EBANK= MP6TO7
030078,000095: 27,2507 02523 56003 2CADR MP6B
030079,000096:
030080,000097:
030081,000098: 27,2511 32522 CAF DEC12000 # INITIALIZE 2 MIN WAIT
030082,000099: 27,2512 05701 TC WAITLIST
030083,000100: 27,2513 E3,1774 EBANK= MP6TO7
030084,000101: 27,2513 02523 56003 2CADR MP6B
030085,000102: # REF 2 LAST 667 27,2514 56003 1 TERMINATE ABORT COMMAND MONITOR
030086,000103:
030087,000104: 27,2515 06045 TC FLAG2DWN
030088,000105: 27,2516 00400 OCT 00400 # BIT 9
030089,000106:
030090,000107: # TERMINATE TUMBLE MONITOR
030091,000108:
030092,000109: 27,2517 06036 TC FLAG1DWN
030093,000110: 27,2520 20000 OCT 20000 # BIT14
030094,000111: 27,2521 15745 TCF TASKOVER
030095,000112: 27,2522 27340 DEC12000 DEC 12000 B-14
030096,000113:
030097,000114: 27,2523 04147 MP6B TC PHASCHNG
030098,000115: 27,2524 27042 OCT 27042
030099,000116: 27,2525 75241 -GENADR 536SEC
030100,000117: 27,2526 E3,1774 EBANK= MP6TO7
030101,000118: 27,2526 02540 56003 2CADR CBXPNDR
030102,000119: # REF 1 27,2527 56003 1 CALL C-BAND TRANSPONDER-ON*
030103,000120:
030104,000121: 27,2530 00006 EXTEND
030105,000122: 27,2531 32537 DCA 536SEC # SET LONGCALL= T+8M 56S
030106,000123: 27,2532 05757 TC LONGCALL # FOR C-BAND TRANSPONDER-ON*
030107,000124: 27,2533 E3,1774 EBANK= MP6TO7
030108,000125: 27,2533 02540 56003 2CADR CBXPNDR
030109,000126:
![]() |
Page 668 |
030111,000128: 27,2535 15745 TCF TASKOVER
030112,000129: 27,2536 00003 10540 536SEC 2DEC 53600 B-28
030113,000130:
030114,000131: # 27,2537 10540 1 C-BAND TRANSPONDER-ON*
030115,000132:
030116,000133: 27,2540 05073 CBXPNDR TC 1LMP
030117,000134: 27,2541 00152 DEC 106 B-14
030118,000135:
030119,000136: 27,2542 04127 TC 2PHSCHNG
030120,000137: 27,2543 00002 OCT 00002
030121,000138: 27,2544 05013 OCT 05013
030122,000139: 27,2545 77777 OCT 77777
030123,000140:
030124,000141: # CALL SCHEDULE ENTRY ROUTINE
030125,000142:
030126,000143: 27,2546 05141 TC MPENTRY
030127,000144: 27,2547 00001 DEC 1 B-14 # J=1
030128,000145: 27,2550 00007 DEC 7 B-14 # MP=7
030129,000146: 27,2551 01774 ADRES MP6TO7 # DT = 28 MIN
030130,000147:
030131,000148: # TERMINATE READING OF PIPAS.
030132,000149: # THRUST DUE TO VENTING AFTER SIVB
030133,000150: # SHUTDOWN HAS BECOME NEGLIGIBLE.
030134,000151:
030135,000152: 27,2552 06036 TC FLAG1DWN # TERMINATE DV MONITOR
030136,000153: 27,2553 00001 OCT 1
030137,000154: 27,2554 15745 TCF TASKOVER
030138,000155:
030139,000156: # END OF MISSION PHASE 6
End of include-file MISSION_PHASE_6_COAST_SIVB_ATTACHED.agc. Parent file is MAIN.agc