Source Code
|
These source-code files are part of a reconstructed copy of Comanche 051, the
original release of the Apollo 11 Command Module (CM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Comanche 055 previously transcribed
from a digitized copy of that program. The code was then updated by undoing
changes related to the R-2 lunar potential model, using hints from program
comments and change-indicating asterisks in the Comanche 055 listing as a guide.
The reconstruction was verified by matching memory-bank checksums to those listed
in drawing 2021153D. Note that page numbers in the reconstructed code match those
on the Comanche 055 printout, although the added code would likely have changed page
numbers for a real Comanche 051 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.
|
005315,000002: ## Copyright: Public domain.
005316,000003: ## Filename: INTERRUPT_LEAD_INS.agc
005317,000004: ## Purpose: A section of Comanche revision 051.
005318,000005: ## It is part of the reconstructed source code for the
005319,000006: ## original release of the flight software for the Command
005320,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 11.
005321,000008: ## The code has been recreated from a copy of Comanche 055. It
005322,000009: ## has been adapted such that the resulting bugger words
005323,000010: ## exactly match those specified for Comanche 51 in NASA drawing
005324,000011: ## 2021153D, which gives relatively high confidence that the
005325,000012: ## reconstruction is correct.
005326,000013: ## Reference: pp. 131-132
005327,000014: ## Assembler: yaYUL
005328,000015: ## Contact: Ron Burkey <info@sandroid.org>.
005329,000016: ## Website: www.ibiblio.org/apollo/index.html
005330,000017: ## Mod history: 2019-07-30 MAS Created from Comanche 55.
005331,000018:
|
|
Page 131
|
005333,000020: 4000 SETLOC 4000
005334,000021:
005335,000022: 4000 COUNT 02/RUPTS
005336,000023:
005337,000024: 4000 00004 INHINT # GO
005338,000025: 4001 34054 CAF GOBB
005339,000026: 4002 56006 XCH BBANK
005340,000027: 4003 12526 TCF GOPROG
005341,000028:
005342,000029: 4004 52011 DXCH ARUPT # T6RUPT
005343,000030: 4005 00006 EXTEND
005344,000031: 4006 31311 DCA T6LOC
005345,000032: 4007 52006 DTCB
005346,000033:
005347,000034: 4010 52011 DXCH ARUPT # T5RUPT
005348,000035: 4011 40030 CS TIME5
005349,000036: 4012 65036 AD .5SEC
005350,000037: 4013 14065 TCF T5RUPT
005351,000038:
005352,000039: 4014 52011 DXCH ARUPT # T3RUPT
005353,000040: 4015 34055 CAF T3RPTBB
005354,000041: 4016 56006 XCH BBANK
005355,000042: 4017 13416 TCF T3RUPT
005356,000043:
005357,000044: 4020 52011 DXCH ARUPT # T4RUPT
005358,000045: 4021 34063 CAF T4RPTBB
005359,000046: 4022 56006 XCH BBANK
005360,000047: 4023 12000 TCF T4RUPT
005361,000048:
005362,000049: 4024 52011 DXCH ARUPT # KEYRUPT1
005363,000050: 4025 34056 CAF KEYRPTBB
005364,000051: 4026 56006 XCH BBANK
005365,000052: 4027 13673 TCF KEYRUPT1
005366,000053:
005367,000054: 4030 52011 DXCH ARUPT # KEYRUPT2
005368,000055: 4031 34057 CAF MKRUPTBB
005369,000056: 4032 56006 XCH BBANK
005370,000057: 4033 12104 TCF MARKRUPT
005371,000058:
005372,000059: 4034 52011 DXCH ARUPT # UPRUPT
005373,000060: 4035 34056 CAF UPRPTBB
005374,000061: 4036 56006 XCH BBANK
005375,000062: 4037 13716 TCF UPRUPT
005376,000063:
005377,000064: 4040 52011 DXCH ARUPT # DOWNRUPT
005378,000065: 4041 34060 CAF DWNRPTBB
005379,000066: 4042 56006 XCH BBANK
005380,000067: 4043 13521 TCF DODOWNTM
005381,000068:
005382,000069: 4044 52011 DXCH ARUPT # RADAR RUPT
|
|
Page 132
|
005384,000071: 4045 34061 CAF RDRPTBB
005385,000072: 4046 56006 XCH BBANK
005386,000073: 4047 12504 TCF VHFREAD
005387,000074:
005388,000075: 4050 52011 DXCH ARUPT # HAND CONTROL RUPT
005389,000076: 4051 34062 CAF HCRUPTBB
005390,000077: 4052 56006 XCH BBANK
005391,000078: 4053 15336 TCF RESUME +3 # NOT USED
005392,000079:
005393,000080: 4054 E3,1400 EBANK= LST1 # RESTART USES E0,E3
005394,000081: 4054 12063 GOBB BBCON GOPROG
005395,000082:
005396,000083: 4055 E3,1400 EBANK= LST1
005397,000084: 4055 02063 T3RPTBB BBCON T3RUPT
005398,000085:
005399,000086: 4056 0073 EBANK= KEYTEMP1
005400,000087: 4056 16060 KEYRPTBB BBCON KEYRUPT1
005401,000088:
005402,000089: 4057 E7,1725 EBANK= MRKBUF1
005403,000090: 4057 16067 MKRUPTBB BBCON MARKRUPT
005404,000091:
005405,000092: 4060 4056 UPRPTBB = KEYRPTBB
005406,000093:
005407,000094: 4060 0340 EBANK= DNTMBUFF
005408,000095: 4060 12060 DWNRPTBB BBCON DODOWNTM
005409,000096:
005410,000097: 4061 E7,1603 EBANK= DATATEST
005411,000098: 4061 56067 RDRPTBB BBCON VHFREAD
005412,000099:
005413,000100: 4062 0025 EBANK= TIME1
005414,000101: 4062 04060 HCRUPTBB BBCON RESUME # NOT USED
005415,000102:
005416,000103: 4063 1302 EBANK= DSRUPTSW
005417,000104: 4063 14062 T4RPTBB BBCON T4RUPT
005418,000105:
005419,000106: 4064 0025 EBANK= TIME1
005420,000107: 4064 04060 T5RPTBB BBCON T5RUPT
005421,000108:
005422,000109: 4065 00006 T5RUPT EXTEND
005423,000110: 4066 65337 BZMF NOQBRSM
005424,000111: 4067 00006 EXTEND
005425,000112: 4070 31313 DCA T5LOC
005426,000113: 4071 52006 DTCB
005427,000114:
005428,000115:
005429,000116:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc