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. |
030325,000002: ## Copyright: Public domain.
030326,000003: ## Filename: MISSION_PHASE_6_COAST_SIVB_ATTACHED.agc
030327,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
030328,000005: ## is part of the source code for the Lunar Module's
030329,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
030330,000007: ## Assembler: yaYUL
030331,000008: ## Contact: Ron Burkey <info@sandroid.org>.
030332,000009: ## Website: www.ibiblio.org/apollo/index.html
030333,000010: ## Mod history: 2016-09-30 RSB Created draft version.
030334,000011: ## 2016-10-25 MAS Transcribed.
030335,000012: ## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
030336,000013: ## no changes made.
030337,000014:
|
|
Page 709 |
030339,000016: # PROGRAM DESCRIPTION
030340,000017: # COAST SIVB ATTACHED
030341,000018:
030342,000019: # MOD NO 1 DATE - 4 NOV 66
030343,000020:
030344,000021: # MOD BY - OVERBAUGH
030345,000022: # FUNCTIONAL DESCRIPTION
030346,000023: # WHEN THE DV MONITOR DETECTS SIVB SHUTDOWN THE
030347,000024: # THRUST MISSION CONTROL PROGRAM INITIATES MP6.
030348,000025: # DURING THIS PHASE THE ABORT COMMAND MONITOR AND
030349,000026: # THE TUMBLE MONITOR ARE TERMINATED AND THE C-BAND
030350,000027: # XPONDER IS SET TO ON*. WHEN THRUST DUE TO
030351,000028: # VENTING BECOMES NEGLIGIBLE READING OF
030352,000029: # THE PIPAS IS TERMINATED.
030353,000030:
030354,000031: # NORMAL EXIT MODES -
030355,000032: # TC TASKOVER
030356,000033:
030357,000034: # ERASABLE INITIALIZATION REQUIRED
030358,000035: # MP6TO7
030359,000036:
030360,000037: # OUTPUT
030361,000038: # UPDATE MODREG
030362,000039: # TERMINATE ABORT COMMAND MONITOR
030363,000040: # TERMINATE TUMBLE MONITOR
030364,000041: # MISSION SCHEDULING REGISTERS SET TO CALL MP7
030365,000042:
030366,000043: # DEBRIS
030367,000044: # CENTRALS,A,Q,Z
030368,000045:
030369,000046: # SUBROUTINES CALLED
030370,000047: # EXECUTIVE(ENDOFJOB)
030371,000048: # WAITLIST
030372,000049: # LONGCALL
030373,000050: # NEWMODEX
030374,000051: # 1LMP
030375,000052: # FLAG1DWN
030376,000053: # FLAG2DWN
030377,000054: # SCHEDULE ENTRY ROUTINE(MPENTRY)
030378,000055:
030379,000056: 27,2504 BANK 27
030380,000057: 27,2504 E3,1772 EBANK= MP6TO7
030381,000058:
030382,000059: 27,2504 04117 MP6JOB TC NEWMODEX # UPDATE MODREG
030383,000060: 27,2505 00013 OCT 13
030384,000061:
030385,000062: 27,2506 36306 CAF SIX
030386,000063: 27,2507 54764 TS PHASENUM
030387,000064:
030388,000065: 27,2510 04161 TC PHASCHNG
|
|
Page 710 |
030390,000067: 27,2511 47012 OCT 47012
030391,000068: 27,2512 13560 DEC 6000 B-14
030392,000069: 27,2513 E3,1772 EBANK= MP6TO7
030393,000070: 27,2513 02526 56063 2CADR MP6A
030394,000071:
030395,000072: 27,2515 37756 CAF BIT6
030396,000073: 27,2516 04105 TC SETRSTRT # SET RESTART FLAG
030397,000074:
030398,000075: 27,2517 32525 CAF DEC6000 # INITIALIZE 1 MIN DELAY
030399,000076: 27,2520 00004 INHINT
030400,000077: 27,2521 05663 TC WAITLIST
030401,000078: 27,2522 E3,1772 EBANK= MP6TO7
030402,000079: 27,2522 02526 56063 2CADR MP6A
030403,000080:
030404,000081: 27,2524 15567 TCF ENDOFJOB
030405,000082: 27,2525 13560 DEC6000 DEC 6000 B-14
030406,000083:
030407,000084: 27,2526 06076 MP6A TC FLAG2DWN # TERMINATE ABORT COMMAND MONITOR
030408,000085: 27,2527 00400 OCT 00400 # BIT 9
030409,000086:
030410,000087: # TERMINATE TUMBLE MONITOR
030411,000088:
030412,000089: 27,2530 06067 TC FLAG1DWN
030413,000090: 27,2531 20000 OCT 20000 # BIT14
030414,000091: 27,2532 04161 MP6B TC PHASCHNG
030415,000092: 27,2533 27042 OCT 27042
030416,000093: 27,2534 75232 -GENADR 656SEC
030417,000094: 27,2535 E3,1772 EBANK= MP6TO7
030418,000095: 27,2535 02547 56063 2CADR CBXPNDR
030419,000096: # REF 1 27,2536 56063 1 CALL C-BAND TRANSPONDER-ON*
030420,000097:
030421,000098: 27,2537 00006 EXTEND
030422,000099: 27,2540 32546 DCA 656SEC # LONGCALL 10 M 56 S
030423,000100: 27,2541 05741 TC LONGCALL # FOR C-BAND TRANSPONDER-ON*
030424,000101: 27,2542 E3,1772 EBANK= MP6TO7
030425,000102: 27,2542 02547 56063 2CADR CBXPNDR
030426,000103:
030427,000104: 27,2544 15727 TCF TASKOVER
030428,000105: 27,2545 00004 00100 656SEC 2DEC 65600 B-28
030429,000106: # 27,2546 00100 0 C-BAND TRANSPONDER-ON*
030430,000107:
030431,000108: 27,2547 05060 CBXPNDR TC 1LMP
030432,000109: 27,2550 00152 DEC 106 B-14
030433,000110:
030434,000111: 27,2551 04141 TC 2PHSCHNG
030435,000112: 27,2552 00002 OCT 00002
030436,000113: 27,2553 05013 OCT 05013
030437,000114: 27,2554 77777 OCT 77777
030438,000115:
030439,000116: # CALL SCHEDULE ENTRY ROUTINE
030440,000117:
|
|
Page 711 |
030442,000119: 27,2555 05126 TC MPENTRY
030443,000120: 27,2556 00001 DEC 1 B-14 # J=1
030444,000121: 27,2557 00007 DEC 7 B-14 # MP=7
030445,000122: 27,2560 01772 ADRES MP6TO7 # DT = 28 MIN
030446,000123:
030447,000124: # TERMINATE READING OF PIPAS.
030448,000125: # THRUST DUE TO VENTING AFTER SIVB
030449,000126: # SHUTDOWN HAS BECOME NEGLIGIBLE.
030450,000127:
030451,000128: 27,2561 06067 TC FLAG1DWN # TERMINATE SERVICER
030452,000129: 27,2562 00001 OCT 1
030453,000130: 27,2563 15727 TCF TASKOVER
030454,000131:
030455,000132: # END OF MISSION PHASE 6
End of include-file MISSION_PHASE_6_COAST_SIVB_ATTACHED.agc. Parent file is MAIN.agc