Source Code
|
These source-code files are part of a reconstructed copy of Comanche 67, the
Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.
They have been adapted from sources files for Comanche 55, and updated via
disassembly of binary dumps of original core rope memory modules, part numbers
2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.
Since only binary dumps (rather than listings) of Comanche 67 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.
|
005168,000002: ## Copyright: Public domain.
005169,000003: ## Filename: INTERRUPT_LEAD_INS.agc
005170,000004: ## Purpose: A section of Comanche revision 067.
005171,000005: ## It is part of the reconstructed source code for the flight
005172,000006: ## software for the Command Module's (CM) Apollo Guidance Computer
005173,000007: ## (AGC) for Apollo 12. No original listings of this program are
005174,000008: ## available; instead, this file was created via dissassembly of
005175,000009: ## dumps of Comanche 067 core rope modules and comparison with
005176,000010: ## other AGC programs.
005177,000011: ## Assembler: yaYUL
005178,000012: ## Contact: Ron Burkey <info@sandroid.org>.
005179,000013: ## Website: www.ibiblio.org/apollo/index.html
005180,000014: ## Mod history: 2023-08-16 MAS Created from Comanche 055.
005181,000015: ## 2024-05-13 MAS Updated for Comanche 067.
005182,000016:
005183,000017: 4000 SETLOC 4000
005184,000018:
005185,000019: 4000 COUNT 02/RUPTS
005186,000020:
005187,000021: 4000 00004 INHINT # GO
005188,000022: 4001 34054 CAF GOBB
005189,000023: 4002 56006 XCH BBANK
005190,000024: 4003 12526 TCF GOPROG
005191,000025:
005192,000026: 4004 52011 DXCH ARUPT # T6RUPT
005193,000027: 4005 00006 EXTEND
005194,000028: 4006 31311 DCA T6LOC
005195,000029: 4007 52006 DTCB
005196,000030:
005197,000031: 4010 52011 DXCH ARUPT # T5RUPT
005198,000032: 4011 40030 CS TIME5
005199,000033: 4012 65052 AD .5SEC
005200,000034: 4013 14065 TCF T5RUPT
005201,000035:
005202,000036: 4014 52011 DXCH ARUPT # T3RUPT
005203,000037: 4015 34055 CAF T3RPTBB
005204,000038: 4016 56006 XCH BBANK
005205,000039: 4017 13416 TCF T3RUPT
005206,000040:
005207,000041: 4020 52011 DXCH ARUPT # T4RUPT
005208,000042: 4021 34063 CAF T4RPTBB
005209,000043: 4022 56006 XCH BBANK
005210,000044: 4023 12000 TCF T4RUPT
005211,000045:
005212,000046: 4024 52011 DXCH ARUPT # KEYRUPT1
005213,000047: 4025 34056 CAF KEYRPTBB
005214,000048: 4026 56006 XCH BBANK
005215,000049: 4027 13673 TCF KEYRUPT1
005216,000050:
005217,000051: 4030 52011 DXCH ARUPT # KEYRUPT2
005218,000052: 4031 34057 CAF MKRUPTBB
005219,000053: 4032 56006 XCH BBANK
005220,000054: 4033 12104 TCF MARKRUPT
005221,000055:
005222,000056: 4034 52011 DXCH ARUPT # UPRUPT
005223,000057: 4035 34056 CAF UPRPTBB
005224,000058: 4036 56006 XCH BBANK
005225,000059: 4037 13716 TCF UPRUPT
005226,000060:
005227,000061: 4040 52011 DXCH ARUPT # DOWNRUPT
005228,000062: 4041 34060 CAF DWNRPTBB
005229,000063: 4042 56006 XCH BBANK
005230,000064: 4043 14662 TCF DODOWNTM
005231,000065:
005232,000066: 4044 52011 DXCH ARUPT # RADAR RUPT
005233,000067: 4045 34061 CAF RDRPTBB
005234,000068: 4046 56006 XCH BBANK
005235,000069: 4047 12505 TCF VHFREAD
005236,000070:
005237,000071: 4050 52011 DXCH ARUPT # HAND CONTROL RUPT
005238,000072: 4051 34062 CAF HCRUPTBB
005239,000073: 4052 56006 XCH BBANK
005240,000074: 4053 15352 TCF RESUME +3 # NOT USED
005241,000075:
005242,000076: 4054 E3,1400 EBANK= LST1 # RESTART USES E0,E3
005243,000077: 4054 12063 GOBB BBCON GOPROG
005244,000078:
005245,000079: 4055 E3,1400 EBANK= LST1
005246,000080: 4055 02063 T3RPTBB BBCON T3RUPT
005247,000081:
005248,000082: 4056 0073 EBANK= KEYTEMP1
005249,000083: 4056 16060 KEYRPTBB BBCON KEYRUPT1
005250,000084:
005251,000085: 4057 E7,1725 EBANK= MRKBUF1
005252,000086: 4057 16067 MKRUPTBB BBCON MARKRUPT
005253,000087:
005254,000088: 4060 4056 UPRPTBB = KEYRPTBB
005255,000089:
005256,000090: 4060 0337 EBANK= DNTMBUFF
005257,000091: 4060 12060 DWNRPTBB BBCON DNPHASE1
005258,000092:
005259,000093: 4061 E7,1603 EBANK= DATATEST
005260,000094: 4061 56067 RDRPTBB BBCON VHFREAD
005261,000095:
005262,000096: 4062 0025 EBANK= TIME1
005263,000097: 4062 04060 HCRUPTBB BBCON RESUME # NOT USED
005264,000098:
005265,000099: 4063 1302 EBANK= DSRUPTSW
005266,000100: 4063 14062 T4RPTBB BBCON T4RUPT
005267,000101:
005268,000102: 4064 0025 EBANK= TIME1
005269,000103: 4064 04060 T5RPTBB BBCON T5RUPT
005270,000104:
005271,000105: 4065 00006 T5RUPT EXTEND
005272,000106: 4066 65353 BZMF NOQBRSM
005273,000107: 4067 00006 EXTEND
005274,000108: 4070 31313 DCA T5LOC
005275,000109: 4071 52006 DTCB
005276,000110:
005277,000111:
005278,000112:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc