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