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