Source Code
|
These source-code files are part of a reconstructed copy of Sundial E, the
final release of the Block II Command Module (CM) Apollo Guidance Computer
(AGC) system test software.
They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003053-121, 2003053-151, and 2003972-211, belonging to the MIT Museum. Since only binary dumps (rather than listings) of Sundial are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
001051,000002: ## Copyright: Public domain.
001052,000003: ## Filename: INTERRUPT_LEAD_INS.agc
001053,000004: ## Purpose: A section of Sundial E.
001054,000005: ## It is part of the reconstructed source code for the final
001055,000006: ## release of the Block II Command Module system test software. No
001056,000007: ## original listings of this program are available; instead, this
001057,000008: ## file was created via disassembly of dumps of Sundial core rope
001058,000009: ## modules and comparison with other AGC programs.
001059,000010: ## Assembler: yaYUL
001060,000011: ## Contact: Ron Burkey <info@sandroid.org>.
001061,000012: ## Website: www.ibiblio.org/apollo/index.html
001062,000013: ## Mod history: 2023-06-22 MAS Created from Aurora 12.
001063,000014: ## 2023-06-30 MAS Updated for Sundial E.
001064,000015:
001065,000016: 4000 SETLOC 4000
001066,000017:
001067,000018: 4000 00004 INHINT # GO
001068,000019: 4001 34054 CAF GOBB
001069,000020: 4002 56006 XCH BBANK
001070,000021: 4003 12064 TCF GOPROG
001071,000022:
001072,000023: 4004 52011 DXCH ARUPT # T6RUPT
001073,000024: 4005 34055 CAF T6RPTBB
001074,000025: 4006 56006 XCH BBANK
001075,000026: 4007 14514 TCF RESUME +3 # ***FIX LATER***
001076,000027:
001077,000028: 4010 52011 DXCH ARUPT # T5RUPT
001078,000029: 4011 00006 EXTEND
001079,000030: 4012 30346 DCA T5LOC # T5LOC EQUALS T5ADR
001080,000031: 4013 52006 DTCB
001081,000032:
001082,000033: 4014 52011 DXCH ARUPT # T3RUPT
001083,000034: 4015 34056 CAF T3RPTBB
001084,000035: 4016 56006 XCH BBANK
001085,000036: 4017 12736 TCF T3RUPT
001086,000037:
001087,000038: 4020 52011 DXCH ARUPT # T4RUPT
001088,000039: 4021 37657 CAF ZERO
001089,000040: 4022 14616 TCF T4RUPT
001090,000041: 4023 0347 EBANK= DSRUPTSW
001091,000042: 4023 24000 T4RPTBB BBCON T4RUPTA
001092,000043:
001093,000044: 4024 52011 DXCH ARUPT # KEYRUPT1
001094,000045: 4025 34057 CAF KEYRPTBB
001095,000046: 4026 56006 XCH BBANK
001096,000047: 4027 12773 TCF KEYRUPT1
001097,000048:
001098,000049: 4030 52011 DXCH ARUPT # KEYRUPT2
001099,000050: 4031 34060 CAF MKRUPTBB
001100,000051: 4032 56006 XCH BBANK
001101,000052: 4033 13046 TCF MARKRUPT
001102,000053:
001103,000054: 4034 52011 DXCH ARUPT # UPRUPT
001104,000055: 4035 34057 CAF UPRPTBB
001105,000056: 4036 56006 XCH BBANK
001106,000057: 4037 13013 TCF UPRUPT
001107,000058:
001108,000059: 4040 52011 DXCH ARUPT # DOWNRUPT
001109,000060: 4041 34061 CAF DWNRPTBB
001110,000061: 4042 56006 XCH BBANK
001111,000062: 4043 13517 TCF DODOWNTM
001112,000063:
001113,000064: 4044 52011 DXCH ARUPT # RADAR RUPT
001114,000065: 4045 34062 CAF RDRPTBB
001115,000066: 4046 56006 XCH BBANK
001116,000067: 4047 14514 TCF RESUME +3 # NOT USED
001117,000068:
001118,000069: 4050 52011 DXCH ARUPT # HAND CONTROL RUPT
001119,000070: 4051 34063 CA HCRUPTBB
001120,000071: 4052 56006 XCH BBANK
001121,000072: 4053 14514 TCF RESUME +3 # NOT USED
001122,000073:
001123,000074: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
001124,000075: 4054 24003 GOBB BBCON GOPROG
001125,000076:
001126,000077: 4055 0025 EBANK= TIME1
001127,000078: 4055 04000 T6RPTBB BBCON RESUME # ***FIX LATER***
001128,000079:
001129,000080: 4056 E3,1400 EBANK= LST1
001130,000081: 4056 02003 T3RPTBB BBCON T3RUPT
001131,000082:
001132,000083: 4057 0077 EBANK= KEYTEMP1
001133,000084: 4057 02000 KEYRPTBB BBCON KEYRUPT1
001134,000085:
001135,000086: 4060 0365 EBANK= MARKSTAT
001136,000087: 4060 26000 MKRUPTBB BBCON MARKRUPT
001137,000088:
001138,000089: 4061 4057 UPRPTBB = KEYRPTBB
001139,000090:
001140,000091: 4061 E7,1430 EBANK= DNTMBUFF
001141,000092: 4061 12007 DWNRPTBB BBCON DODOWNTM
001142,000093:
001143,000094: 4062 0025 EBANK= TIME1
001144,000095: 4062 04000 RDRPTBB BBCON RESUME # NOT USED
001145,000096:
001146,000097: 4063 0025 EBANK= TIME1
001147,000098: 4063 04000 HCRUPTBB BBCON RESUME # NOT USED
001148,000099:
001149,000100: 4064 ENDINTFF EQUALS
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc