Source Code
|
These source-code files are part of a reconstructed copy of Artemis 071, the
first release of the Apollo 15 through 17 Command Module (CM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with source code of Artemis 072 previously transcribed
from a digitized copy of that program. The code was then updated by undoing
changes between the two versions. The reconstruction was verified by matching
memory-bank checksums to those listed in drawing 2021154-. Note that page
numbers in the reconstructed code match those on the Artemis 072 printout,
although the changed code would likely have changed page numbers for a real
Artemis 071 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
006046,000002: ## Copyright: Public domain.
006047,000003: ## Filename: INTERRUPT_LEAD_INS.agc
006048,000004: ## Purpose: A section of Artemis revision 071.
006049,000005: ## It is part of the reconstructed source code for the first
006050,000006: ## release of the flight software for the Command Module's
006051,000007: ## (CM) Apollo Guidance Computer (AGC) for Apollo 15 through
006052,000008: ## 17. The code has been recreated from a copy of Artemis 072.
006053,000009: ## It has been adapted such that the resulting bugger words
006054,000010: ## exactly match those specified for Artemis 071 in NASA
006055,000011: ## drawing 2021154-, which gives relatively high confidence
006056,000012: ## that the reconstruction is correct.
006057,000013: ## Reference: 139
006058,000014: ## Assembler: yaYUL
006059,000015: ## Contact: Ron Burkey <info@sandroid.org>.
006060,000016: ## Website: www.ibiblio.org/apollo/index.html
006061,000017: ## Mod history: 2019-08-14 MAS Created from Artemis 072.
006062,000018:
|
|
Page 139
|
006064,000020: 4000 SETLOC 4000
006065,000021:
006066,000022: 4000 COUNT* $$/RUPTS
006067,000023:
006068,000024: 4000 00004 INHINT # GO
006069,000025: 4001 34051 CAF GOBB
006070,000026: 4002 56006 XCH BBANK
006071,000027: 4003 12563 TCF GOPROG
006072,000028:
006073,000029: 4004 52011 DXCH ARUPT # T6RUPT
006074,000030: 4005 00006 EXTEND
006075,000031: 4006 30111 DCA T6LOC
006076,000032: 4007 52006 DTCB
006077,000033:
006078,000034: 4010 52011 DXCH ARUPT # T5RUPT
006079,000035: 4011 40030 CS TIME5
006080,000036: 4012 65011 AD .5SEC
006081,000037: 4013 14056 TCF T5RUPT
006082,000038:
006083,000039: 4014 52011 DXCH ARUPT # T3RUPT
006084,000040: 4015 35254 CAF T3RPTBB
006085,000041: 4016 56006 XCH BBANK
006086,000042: 4017 13362 TCF T3RUPT
006087,000043:
006088,000044: 4020 52011 DXCH ARUPT # T4RUPT
006089,000045: 4021 34054 CAF T4RPTBB
006090,000046: 4022 56006 XCH BBANK
006091,000047: 4023 12000 TCF T4RUPT
006092,000048:
006093,000049: 4024 52011 DXCH ARUPT # KEYRUPT1
006094,000050: 4025 34052 CAF KEYRPTBB
006095,000051: 4026 56006 XCH BBANK
006096,000052: 4027 13666 TCF KEYRUPT1
006097,000053:
006098,000054: 4030 52011 DXCH ARUPT # KEYRUPT2
006099,000055: 4031 34052 CAF MKRUPTBB
006100,000056: 4032 56006 XCH BBANK
006101,000057: 4033 12105 TCF MARKRUPT
006102,000058:
006103,000059: 4034 52011 DXCH ARUPT # UPRUPT
006104,000060: 4035 34052 CAF UPRPTBB
006105,000061: 4036 56006 XCH BBANK
006106,000062: 4037 13710 TCF UPRUPT
006107,000063:
006108,000064: 4040 52011 DXCH ARUPT # DOWNRUPT
006109,000065: 4041 34051 CAF DWNRPTBB
006110,000066: 4042 56006 XCH BBANK
006111,000067: 4043 14621 TCF DODOWNTM
006112,000068:
006113,000069: 4044 52011 DXCH ARUPT # RADAR RUPT
006114,000070: 4045 34053 CAF RDRPTBB
|
|
Page 140
|
006116,000072: 4046 56006 XCH BBANK
006117,000073: 4047 12536 TCF VHFREAD
006118,000074:
006119,000075: 4050 50017 RESUME
006120,000076:
006121,000077: 4051 E3,1400 EBANK= LST1 # RESTART USES E0,E3
006122,000078: 4051 12063 GOBB BBCON GOPROG
006123,000079:
006124,000080: 4052 E3,1400 EBANK= LST1
006125,000081: 4052 5254 T3RPTBB EQUALS WAITBB
006126,000082: 4052 4052 KEYRPTBB = MKRUPTBB
006127,000083:
006128,000084: 4052 E7,1722 EBANK= MRKBUF1
006129,000085: 4052 16067 MKRUPTBB BBCON MARKRUPT
006130,000086: 4053 4052 UPRPTBB = KEYRPTBB
006131,000087: 4053 4051 DWNRPTBB = GOBB
006132,000088:
006133,000089: 4053 E7,1703 EBANK= RM
006134,000090: 4053 56067 RDRPTBB BBCON VHFREAD
006135,000091: 4054 1322 EBANK= DSRUPTSW
006136,000092: 4054 14062 T4RPTBB BBCON T4RUPT
006137,000093: 4055 0025 EBANK= TIME1
006138,000094: 4055 04060 T5RPTBB BBCON T5RUPT
006139,000095:
006140,000096: 4056 00006 T5RUPT EXTEND
006141,000097: 4057 65327 BZMF NOQBRSM
006142,000098: 4060 00006 EXTEND
006143,000099: 4061 30113 DCA T5LOC
006144,000100: 4062 52006 DTCB
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc