Source Code
|
These source-code files are part of a reconstructed copy of Luminary 97, the
second release of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer
(AGC) software. It was created to fix two incorrect ephemeris constants in
Luminary 96, as described by anomaly report LNY-59.
The reconstruction began with source code of Luminary 99 revision 1 previously
transcribed from a digitized copy of that program. The code was then updated
by undoing changes described in original Luminary memos 83 and 85, using asterisks
indicating changed lines in the listing as a guide. The reconstruction was
verified by matching memory-bank checksums to those listed in drawing 2021152D.
Note that page numbers in the reconstructed code match those on the Luminary 099
revision 001 printout, although the added code would likely have changed page
numbers for a real Luminary 97 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.
|
006088,000002: ## Copyright: Public domain.
006089,000003: ## Filename: INTERRUPT_LEAD_INS.agc
006090,000004: ## Purpose: A section of Luminary revision 97.
006091,000005: ## It is part of the reconstructed source code for the
006092,000006: ## second release of the flight software for the Lunar
006093,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
006094,000008: ## It was created to fix two incorrect ephemeris constants in
006095,000009: ## Luminary 96, as described by anomaly report LNY-59.
006096,000010: ## The code has been recreated from a copy of Luminary 99
006097,000011: ## revision 001, using asterisks indicating changed lines in
006098,000012: ## the listing and Luminary Memos #83 and #85, which list
006099,000013: ## changes between Luminary 97 and 98, and 98 and 99. The
006100,000014: ## code has been adapted such that the resulting bugger words
006101,000015: ## exactly match those specified for Luminary 97 in NASA drawing
006102,000016: ## 2021152D, which gives relatively high confidence that the
006103,000017: ## reconstruction is correct.
006104,000018: ## Reference: pp. 153-154
006105,000019: ## Assembler: yaYUL
006106,000020: ## Contact: Ron Burkey <info@sandroid.org>.
006107,000021: ## Website: www.ibiblio.org/apollo/index.html
006108,000022: ## Mod history: 2019-07-28 MAS Created from Luminary 99.
006109,000023:
|
|
Page 153
|
006111,000025: 4000 SETLOC 4000
006112,000026:
006113,000027: 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS
006114,000028: 4000 00004 INHINT # GO
006115,000029: 4001 34054 CAF GOBB
006116,000030: 4002 56006 XCH BBANK
006117,000031: 4003 12667 TCF GOPROG
006118,000032:
006119,000033: 4004 52011 DXCH ARUPT # T6RUPT
006120,000034: 4005 00006 EXTEND
006121,000035: 4006 34056 DCA T6ADR
006122,000036: 4007 52006 DTCB
006123,000037:
006124,000038: 4010 52011 DXCH ARUPT # T5RUPT - AUTOPILOT
006125,000039: 4011 00006 EXTEND
006126,000040: 4012 31275 DCA T5ADR
006127,000041: 4013 52006 DTCB
006128,000042:
006129,000043: 4014 52011 DXCH ARUPT # T3RUPT
006130,000044: 4015 34057 CAF T3RPTBB
006131,000045: 4016 56006 XCH BBANK
006132,000046: 4017 13407 TCF T3RUPT
006133,000047:
006134,000048: 4020 52011 DXCH ARUPT # T4RUPT
006135,000049: 4021 34064 CAF T4RPTBB
006136,000050: 4022 56006 XCH BBANK
006137,000051: 4023 12000 TCF T4RUPT
006138,000052:
006139,000053: 4024 52011 DXCH ARUPT # KEYRUPT1
006140,000054: 4025 34060 CAF KEYRPTBB
006141,000055: 4026 56006 XCH BBANK
006142,000056: 4027 13274 TCF KEYRUPT1
006143,000057:
006144,000058: 4030 52011 DXCH ARUPT # KEYRUPT2
006145,000059: 4031 34061 CAF MKRUPTBB
006146,000060: 4032 56006 XCH BBANK
006147,000061: 4033 12332 TCF MARKRUPT
006148,000062:
006149,000063: 4034 52011 DXCH ARUPT # UPRUPT
006150,000064: 4035 34060 CAF UPRPTBB
006151,000065: 4036 56006 XCH BBANK
006152,000066: 4037 13317 TCF UPRUPT
006153,000067:
006154,000068: 4040 52011 DXCH ARUPT # DOWNRUPT
006155,000069: 4041 34062 CAF DWNRPTBB
006156,000070: 4042 56006 XCH BBANK
006157,000071: 4043 13506 TCF DODOWNTM
006158,000072:
006159,000073: 4044 52011 DXCH ARUPT # RADAR RUPT
006160,000074: 4045 34063 CAF RDRPTBB
|
|
Page 154
|
006162,000076: 4046 56006 XCH BBANK
006163,000077: 4047 13150 TCF RADAREAD
006164,000078:
006165,000079: 4050 52011 DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
006166,000080: 4051 34065 CA RUPT10BB
006167,000081: 4052 56006 XCH BBANK
006168,000082: 4053 12275 TCF PITFALL
006169,000083:
006170,000084:
006171,000085: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
006172,000086: 4054 12103 GOBB BBCON GOPROG
006173,000087:
006174,000088: 4055 E6,1464 EBANK= PERROR
006175,000089: 4055 02065 36106 T6ADR 2CADR DOT6RUPT
006176,000090:
006177,000091: 4057 E3,1400 EBANK= LST1
006178,000092: 4057 02103 T3RPTBB BBCON T3RUPT
006179,000093:
006180,000094: 4060 0073 EBANK= KEYTEMP1
006181,000095: 4060 10100 KEYRPTBB BBCON KEYRUPT1
006182,000096:
006183,000097: 4061 E7,1404 EBANK= AOTAZ
006184,000098: 4061 16107 MKRUPTBB BBCON MARKRUPT
006185,000099:
006186,000100: 4062 4060 UPRPTBB = KEYRPTBB
006187,000101:
006188,000102: 4062 0340 EBANK= DNTMBUFF
006189,000103: 4062 12100 DWNRPTBB BBCON DODOWNTM
006190,000104:
006191,000105: 4063 0110 EBANK= RADMODES
006192,000106: 4063 52100 RDRPTBB BBCON RADAREAD
006193,000107:
006194,000108: 4064 E6,1414 EBANK= M11
006195,000109: 4064 14106 T4RPTBB BBCON T4RUPT
006196,000110:
006197,000111: 4065 E7,1647 EBANK= ELVIRA
006198,000112: 4065 22107 RUPT10BB BBCON PITFALL
006199,000113:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc