Source Code
|
These source-code files are part of a reconstructed copy of Luminary 69/2,
the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction is based on the source code of Luminary 69 — i.e., the
initial, unflown version, "revision 0" — of which
a contemporary listing was available. The code was then updated by incorporating the
differences between Luminary 69 and Luminary 69/2, known from other contemporary
documentation. The only such difference is the implementation in
Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken
from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available.
Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to
executable form and verifying that its memory banks had the correct checksums,
known from still other contemporary documentation.
Note that page numbers in the reconstructed code match those in the original Luminary 69
program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers
would certainly differ somewhat in a contemporary Luminary 69/2 listing.
Moreover, annotations that were not present in the contemporary source code have been added
to the reconstructed code to justify each change in Luminary 69/2 relative to
Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
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.
|
007438,000002: ## Copyright: Public domain.
007439,000003: ## Filename: INTERRUPT_LEAD_INS.agc
007440,000004: ## Purpose: A section of LUM69 revision 2.
007441,000005: ## It is part of the reconstructed source code for the flown
007442,000006: ## version of the flight software for the Lunar Module's (LM)
007443,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
007444,000008: ## been recreated from a copy of Luminary revsion 069, using
007445,000009: ## changes present in Luminary 099 which were described in
007446,000010: ## Luminary memos 75 and 78. The code has been adapted such
007447,000011: ## that the resulting bugger words exactly match those specified
007448,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
007449,000013: ## relatively high confidence that the reconstruction is correct.
007450,000014: ## Reference: pp. 168-169
007451,000015: ## Assembler: yaYUL
007452,000016: ## Contact: Ron Burkey <info@sandroid.org>.
007453,000017: ## Website: www.ibiblio.org/apollo/index.html
007454,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
007455,000019:
|
|
Page 168
|
007457,000021: 4000 SETLOC 4000
007458,000022:
007459,000023: 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS
007460,000024: 4000 00004 INHINT # GO
007461,000025: 4001 34054 CAF GOBB
007462,000026: 4002 56006 XCH BBANK
007463,000027: 4003 12667 TCF GOPROG
007464,000028:
007465,000029: 4004 52011 DXCH ARUPT # T6RUPT
007466,000030: 4005 00006 EXTEND
007467,000031: 4006 34056 DCA T6ADR
007468,000032: 4007 52006 DTCB
007469,000033:
007470,000034: 4010 52011 DXCH ARUPT # T5RUPT - AUTOPILOT
007471,000035: 4011 00006 EXTEND
007472,000036: 4012 31275 DCA T5ADR
007473,000037: 4013 52006 DTCB
007474,000038:
007475,000039: 4014 52011 DXCH ARUPT # T3RUPT
007476,000040: 4015 34057 CAF T3RPTBB
007477,000041: 4016 56006 XCH BBANK
007478,000042: 4017 13404 TCF T3RUPT
007479,000043:
007480,000044: 4020 52011 DXCH ARUPT # T4RUPT
007481,000045: 4021 34064 CAF T4RPTBB
007482,000046: 4022 56006 XCH BBANK
007483,000047: 4023 12000 TCF T4RUPT
007484,000048:
007485,000049: 4024 52011 DXCH ARUPT # KEYRUPT1
007486,000050: 4025 34060 CAF KEYRPTBB
007487,000051: 4026 56006 XCH BBANK
007488,000052: 4027 13215 TCF KEYRUPT1
007489,000053:
007490,000054: 4030 52011 DXCH ARUPT # KEYRUPT2
007491,000055: 4031 34061 CAF MKRUPTBB
007492,000056: 4032 56006 XCH BBANK
007493,000057: 4033 12332 TCF MARKRUPT
007494,000058:
007495,000059: 4034 52011 DXCH ARUPT # UPRUPT
007496,000060: 4035 34060 CAF UPRPTBB
007497,000061: 4036 56006 XCH BBANK
007498,000062: 4037 13240 TCF UPRUPT
007499,000063:
007500,000064: 4040 52011 DXCH ARUPT # DOWNRUPT
007501,000065: 4041 34062 CAF DWNRPTBB
007502,000066: 4042 56006 XCH BBANK
007503,000067: 4043 13430 TCF DODOWNTM
007504,000068:
007505,000069: 4044 52011 DXCH ARUPT # RADAR RUPT
007506,000070: 4045 34063 CAF RDRPTBB
007507,000071:
|
|
Page 169
|
007509,000073: 4046 56006 XCH BBANK
007510,000074: 4047 13150 TCF RADAREAD
007511,000075:
007512,000076: 4050 52011 DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
007513,000077: 4051 34065 CA RUPT10BB
007514,000078: 4052 56006 XCH BBANK
007515,000079: 4053 12006 TCF PITFALL
007516,000080:
007517,000081:
007518,000082: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
007519,000083: 4054 12103 GOBB BBCON GOPROG
007520,000084:
007521,000085: 4055 E6,1462 EBANK= PERROR
007522,000086: 4055 02036 36106 T6ADR 2CADR DOT6RUPT
007523,000087:
007524,000088: 4057 E3,1400 EBANK= LST1
007525,000089: 4057 02103 T3RPTBB BBCON T3RUPT
007526,000090:
007527,000091: 4060 0073 EBANK= KEYTEMP1
007528,000092: 4060 10100 KEYRPTBB BBCON KEYRUPT1
007529,000093:
007530,000094: 4061 E7,1404 EBANK= AOTAZ
007531,000095: 4061 16107 MKRUPTBB BBCON MARKRUPT
007532,000096:
007533,000097: 4062 4060 UPRPTBB = KEYRPTBB
007534,000098:
007535,000099: 4062 0340 EBANK= DNTMBUFF
007536,000100: 4062 12100 DWNRPTBB BBCON DODOWNTM
007537,000101:
007538,000102: 4063 0110 EBANK= RADMODES
007539,000103: 4063 52100 RDRPTBB BBCON RADAREAD
007540,000104:
007541,000105: 4064 E6,1412 EBANK= M11
007542,000106: 4064 14106 T4RPTBB BBCON T4RUPT
007543,000107:
007544,000108: 4065 E7,1645 EBANK= ELVIRA
007545,000109: 4065 42107 RUPT10BB BBCON PITFALL
007546,000110:
007547,000111:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc