Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 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.
|
005200,000002: ## Copyright: Public domain.
005201,000003: ## Filename: INTERRUPT_LEAD_INS.agc
005202,000004: ## Purpose: A section of Comanche revision 072.
005203,000005: ## It is part of the reconstructed source code for the first
005204,000006: ## release of the software for the Command Module's (CM) Apollo
005205,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
005206,000008: ## of this program are available; instead, this file was recreated
005207,000009: ## from a printout of Comanche 055, binary dumps of a set of
005208,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
005209,000011: ## and 072. It has been adapted such that the resulting bugger words
005210,000012: ## exactly match those specified for Comanche 072 in NASA drawing
005211,000013: ## 2021153G, which gives relatively high confidence that the
005212,000014: ## reconstruction is correct.
005213,000015: ## Assembler: yaYUL
005214,000016: ## Contact: Ron Burkey <info@sandroid.org>.
005215,000017: ## Website: www.ibiblio.org/apollo/index.html
005216,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
005217,000019:
005218,000020: 4000 SETLOC 4000
005219,000021:
005220,000022: 4000 COUNT 02/RUPTS
005221,000023:
005222,000024: 4000 00004 INHINT # GO
005223,000025: 4001 34054 CAF GOBB
005224,000026: 4002 56006 XCH BBANK
005225,000027: 4003 12526 TCF GOPROG
005226,000028:
005227,000029: 4004 52011 DXCH ARUPT # T6RUPT
005228,000030: 4005 00006 EXTEND
005229,000031: 4006 31311 DCA T6LOC
005230,000032: 4007 52006 DTCB
005231,000033:
005232,000034: 4010 52011 DXCH ARUPT # T5RUPT
005233,000035: 4011 40030 CS TIME5
005234,000036: 4012 65052 AD .5SEC
005235,000037: 4013 14065 TCF T5RUPT
005236,000038:
005237,000039: 4014 52011 DXCH ARUPT # T3RUPT
005238,000040: 4015 34055 CAF T3RPTBB
005239,000041: 4016 56006 XCH BBANK
005240,000042: 4017 13416 TCF T3RUPT
005241,000043:
005242,000044: 4020 52011 DXCH ARUPT # T4RUPT
005243,000045: 4021 34063 CAF T4RPTBB
005244,000046: 4022 56006 XCH BBANK
005245,000047: 4023 12000 TCF T4RUPT
005246,000048:
005247,000049: 4024 52011 DXCH ARUPT # KEYRUPT1
005248,000050: 4025 34056 CAF KEYRPTBB
005249,000051: 4026 56006 XCH BBANK
005250,000052: 4027 13673 TCF KEYRUPT1
005251,000053:
005252,000054: 4030 52011 DXCH ARUPT # KEYRUPT2
005253,000055: 4031 34057 CAF MKRUPTBB
005254,000056: 4032 56006 XCH BBANK
005255,000057: 4033 12104 TCF MARKRUPT
005256,000058:
005257,000059: 4034 52011 DXCH ARUPT # UPRUPT
005258,000060: 4035 34056 CAF UPRPTBB
005259,000061: 4036 56006 XCH BBANK
005260,000062: 4037 13716 TCF UPRUPT
005261,000063:
005262,000064: 4040 52011 DXCH ARUPT # DOWNRUPT
005263,000065: 4041 34060 CAF DWNRPTBB
005264,000066: 4042 56006 XCH BBANK
005265,000067: 4043 14662 TCF DODOWNTM
005266,000068:
005267,000069: 4044 52011 DXCH ARUPT # RADAR RUPT
005268,000070: 4045 34061 CAF RDRPTBB
005269,000071: 4046 56006 XCH BBANK
005270,000072: 4047 12505 TCF VHFREAD
005271,000073:
005272,000074: 4050 52011 DXCH ARUPT # HAND CONTROL RUPT
005273,000075: 4051 34062 CAF HCRUPTBB
005274,000076: 4052 56006 XCH BBANK
005275,000077: 4053 15352 TCF RESUME +3 # NOT USED
005276,000078:
005277,000079: 4054 E3,1400 EBANK= LST1 # RESTART USES E0,E3
005278,000080: 4054 12063 GOBB BBCON GOPROG
005279,000081:
005280,000082: 4055 E3,1400 EBANK= LST1
005281,000083: 4055 02063 T3RPTBB BBCON T3RUPT
005282,000084:
005283,000085: 4056 0073 EBANK= KEYTEMP1
005284,000086: 4056 16060 KEYRPTBB BBCON KEYRUPT1
005285,000087:
005286,000088: 4057 E7,1725 EBANK= MRKBUF1
005287,000089: 4057 16067 MKRUPTBB BBCON MARKRUPT
005288,000090:
005289,000091: 4060 4056 UPRPTBB = KEYRPTBB
005290,000092:
005291,000093: 4060 0337 EBANK= DNTMBUFF
005292,000094: 4060 12060 DWNRPTBB BBCON DNPHASE1
005293,000095:
005294,000096: 4061 E7,1603 EBANK= DATATEST
005295,000097: 4061 56067 RDRPTBB BBCON VHFREAD
005296,000098:
005297,000099: 4062 0025 EBANK= TIME1
005298,000100: 4062 04060 HCRUPTBB BBCON RESUME # NOT USED
005299,000101:
005300,000102: 4063 1302 EBANK= DSRUPTSW
005301,000103: 4063 14062 T4RPTBB BBCON T4RUPT
005302,000104:
005303,000105: 4064 0025 EBANK= TIME1
005304,000106: 4064 04060 T5RPTBB BBCON T5RUPT
005305,000107:
005306,000108: 4065 00006 T5RUPT EXTEND
005307,000109: 4066 65353 BZMF NOQBRSM
005308,000110: 4067 00006 EXTEND
005309,000111: 4070 31313 DCA T5LOC
005310,000112: 4071 52006 DTCB
005311,000113:
005312,000114:
005313,000115:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc