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. |
002494,000002: ## Copyright: Public domain.
002495,000003: ## Filename: INTERRUPT_LEAD_INS.agc
002496,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst).
002497,000005: ## It is part of the source code for the Lunar Module's (LM)
002498,000006: ## Apollo Guidance Computer (AGC) for Apollo 5.
002499,000007: ## Assembler: yaYUL
002500,000008: ## Contact: Ron Burkey <info@sandroid.org>.
002501,000009: ## Website: www.ibiblio.org/apollo/index.html
002502,000010: ## Mod history: 2016-09-30 RSB Created draft version.
002503,000011: ## I've also corrected this against the Sunburst120
002504,000012: ## scans, so modulo any errors of mine, should be
002505,000013: ## ready to go.
002506,000014: ## 2016-11-03 RSB Some SBANK= workarounds.
002507,000015: ## 2016-12-03 RSB Fixed 5 comment typos (out of 2 total pages)
002508,000016: ## using octopus/ProoferComments.
002509,000017: ## 2017-06-17 MAS Globally removed all SBANK= workarounds.
002510,000018:
![]() |
Page 60 |
002512,000020: 4000 SETLOC 4000
002513,000021:
002514,000022: 4000 00004 INHINT # GO
002515,000023: 4001 34054 CAF GOBB
002516,000024: 4002 56006 XCH BBANK
002517,000025: 4003 12163 TCF GOPROG
002518,000026:
002519,000027: 4004 52011 DXCH ARUPT # T6RUPT
002520,000028: 4005 00006 EXTEND
002521,000029: 4006 35051 DCA T6ADR
002522,000030: 4007 52006 DTCB
002523,000031:
002524,000032: 4010 52011 DXCH ARUPT # T5RUPT
002525,000033: 4011 00006 EXTEND
002526,000034: 4012 31001 DCA T5ADR
002527,000035: 4013 52006 DTCB
002528,000036:
002529,000037: 4014 52011 DXCH ARUPT # T3RUPT
002530,000038: 4015 34056 CAF T3RPTBB
002531,000039: 4016 56006 XCH BBANK
002532,000040: 4017 13577 TCF T3RUPT
002533,000041:
002534,000042: 4020 52011 DXCH ARUPT # T4RUPT
002535,000043: 4021 34063 CAF T4RPTBB
002536,000044: 4022 56006 XCH BBANK
002537,000045: 4023 12000 TCF T4RUPT
002538,000046:
002539,000047: 4024 52011 DXCH ARUPT # KEYRUPT1
002540,000048: 4025 34057 CAF KEYRPTBB
002541,000049: 4026 56006 XCH BBANK
002542,000050: 4027 13474 TCF KEYRUPT1
002543,000051:
002544,000052: 4030 52011 DXCH ARUPT # KEYRUPT2
002545,000053: 4031 34060 CAF MKRUPTBB
002546,000054: 4032 56006 XCH BBANK
002547,000055: 4033 13221 TCF MARKRUPT
002548,000056:
002549,000057: 4034 52011 DXCH ARUPT # UPRUPT
002550,000058: 4035 34057 CAF UPRPTBB
002551,000059: 4036 56006 XCH BBANK
002552,000060: 4037 13514 TCF UPRUPT
002553,000061:
002554,000062: 4040 52011 DXCH ARUPT # DOWNRUPT
002555,000063: 4041 34061 CAF DWNRPTBB
002556,000064: 4042 56006 XCH BBANK
002557,000065: 4043 12001 TCF DODOWNTM
002558,000066:
002559,000067: 4044 52011 DXCH ARUPT # RADAR RUPT
002560,000068: 4045 34062 CAF RDRPTBB
002561,000069: 4046 56006 XCH BBANK
![]() |
Page 61 |
002563,000071: 4047 15736 TCF NOQRSM +1 # WAS TCF RADAREAD (NO RADAR IN 206).
002564,000072:
002565,000073: # TRAPS 31B AND 32 SHOULD NEVER BE SET. THEREFORE-
002566,000074: # RUPT 10 WILL ALWAYS REFER TO THE HAND CONTROLLER LPD OR MINIMUM IMPULSE
002567,000075: # USE. SEE GEORGE CHERRY FOR RATIONALE REGARDING THE AFORESAID.
002568,000076:
002569,000077: 4050 52011 DXCH ARUPT # RUPT10 USED FOR RHC MINIMP MODE ONLY.
002570,000078: 4051 37762 CAF TWO
002571,000079: 4052 55007 TS DELAYCTR
002572,000080: 4053 15737 TCF NOQBRSM
002573,000081:
002574,000082: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
002575,000083: 4054 02003 GOBB BBCON GOPROG
002576,000084:
002577,000085: 4055 0025 EBANK= TIME1
002578,000086: 4055 04000 T6RPTBB BBCON RESUME # ***FIX LATER***
002579,000087:
002580,000088: 4056 E3,1400 EBANK= LST1
002581,000089: 4056 02003 T3RPTBB BBCON T3RUPT
002582,000090:
002583,000091: 4057 0073 EBANK= KEYTEMP1
002584,000092: 4057 26000 KEYRPTBB BBCON KEYRUPT1
002585,000093:
002586,000094: 4060 E3,1467 EBANK= AOTAZ
002587,000095: 4060 26003 MKRUPTBB BBCON MARKRUPT
002588,000096:
002589,000097: 4061 4057 UPRPTBB = KEYRPTBB
002590,000098:
002591,000099: 4061 E7,1407 EBANK= DNTMBUFF
002592,000100: 4061 32007 DWNRPTBB BBCON DODOWNTM
002593,000101:
002594,000102: 4062 0412 EBANK= RADMODES
002595,000103: 4062 20001 RDRPTBB BBCON RADAREAD
002596,000104:
002597,000105: 4063 E6,1404 EBANK= M11
002598,000106: 4063 24006 T4RPTBB BBCON T4RUPTA
002599,000107:
002600,000108:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc