Source Code
|
These source-code files are part of a reconstructed copy of LUM69 Revision 2, the
flown Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction began with source code of Luminary 69 revision 0 previously
transcribed from a digitized copy of that program. The code was then updated
by back-porting the R-2 lunar potential model from previously-transcribed source
code of Luminary 99. These required changes were described in the original
Luminary memos 75 and 78. The reconstructed code was verified by
matching memory-bank checksums to those listed in drawing 2021152G. Note that
page numbers in the reconstructed code match those on the Luminary 069 printout,
although the added code would likely have changed page numbers for a real LUM69
Revision 2 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.
|
007382,000002: ## Copyright: Public domain.
007383,000003: ## Filename: INTERRUPT_LEAD_INS.agc
007384,000004: ## Purpose: A section of LUM69 revision 2.
007385,000005: ## It is part of the reconstructed source code for the flown
007386,000006: ## version of the flight software for the Lunar Module's (LM)
007387,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
007388,000008: ## been recreated from a copy of Luminary revsion 069, using
007389,000009: ## changes present in Luminary 099 which were described in
007390,000010: ## Luminary memos 75 and 78. The code has been adapted such
007391,000011: ## that the resulting bugger words exactly match those specified
007392,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
007393,000013: ## relatively high confidence that the reconstruction is correct.
007394,000014: ## Reference: pp. 168-169
007395,000015: ## Assembler: yaYUL
007396,000016: ## Contact: Ron Burkey <info@sandroid.org>.
007397,000017: ## Website: www.ibiblio.org/apollo/index.html
007398,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
007399,000019:
|
|
Page 168
|
007401,000021: 4000 SETLOC 4000
007402,000022:
007403,000023: 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS
007404,000024: 4000 00004 INHINT # GO
007405,000025: 4001 34054 CAF GOBB
007406,000026: 4002 56006 XCH BBANK
007407,000027: 4003 12667 TCF GOPROG
007408,000028:
007409,000029: 4004 52011 DXCH ARUPT # T6RUPT
007410,000030: 4005 00006 EXTEND
007411,000031: 4006 34056 DCA T6ADR
007412,000032: 4007 52006 DTCB
007413,000033:
007414,000034: 4010 52011 DXCH ARUPT # T5RUPT - AUTOPILOT
007415,000035: 4011 00006 EXTEND
007416,000036: 4012 31275 DCA T5ADR
007417,000037: 4013 52006 DTCB
007418,000038:
007419,000039: 4014 52011 DXCH ARUPT # T3RUPT
007420,000040: 4015 34057 CAF T3RPTBB
007421,000041: 4016 56006 XCH BBANK
007422,000042: 4017 13404 TCF T3RUPT
007423,000043:
007424,000044: 4020 52011 DXCH ARUPT # T4RUPT
007425,000045: 4021 34064 CAF T4RPTBB
007426,000046: 4022 56006 XCH BBANK
007427,000047: 4023 12000 TCF T4RUPT
007428,000048:
007429,000049: 4024 52011 DXCH ARUPT # KEYRUPT1
007430,000050: 4025 34060 CAF KEYRPTBB
007431,000051: 4026 56006 XCH BBANK
007432,000052: 4027 13215 TCF KEYRUPT1
007433,000053:
007434,000054: 4030 52011 DXCH ARUPT # KEYRUPT2
007435,000055: 4031 34061 CAF MKRUPTBB
007436,000056: 4032 56006 XCH BBANK
007437,000057: 4033 12332 TCF MARKRUPT
007438,000058:
007439,000059: 4034 52011 DXCH ARUPT # UPRUPT
007440,000060: 4035 34060 CAF UPRPTBB
007441,000061: 4036 56006 XCH BBANK
007442,000062: 4037 13240 TCF UPRUPT
007443,000063:
007444,000064: 4040 52011 DXCH ARUPT # DOWNRUPT
007445,000065: 4041 34062 CAF DWNRPTBB
007446,000066: 4042 56006 XCH BBANK
007447,000067: 4043 13430 TCF DODOWNTM
007448,000068:
007449,000069: 4044 52011 DXCH ARUPT # RADAR RUPT
007450,000070: 4045 34063 CAF RDRPTBB
007451,000071:
|
|
Page 169
|
007453,000073: 4046 56006 XCH BBANK
007454,000074: 4047 13150 TCF RADAREAD
007455,000075:
007456,000076: 4050 52011 DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
007457,000077: 4051 34065 CA RUPT10BB
007458,000078: 4052 56006 XCH BBANK
007459,000079: 4053 12006 TCF PITFALL
007460,000080:
007461,000081:
007462,000082: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
007463,000083: 4054 12103 GOBB BBCON GOPROG
007464,000084:
007465,000085: 4055 E6,1462 EBANK= PERROR
007466,000086: 4055 02036 36106 T6ADR 2CADR DOT6RUPT
007467,000087:
007468,000088: 4057 E3,1400 EBANK= LST1
007469,000089: 4057 02103 T3RPTBB BBCON T3RUPT
007470,000090:
007471,000091: 4060 0073 EBANK= KEYTEMP1
007472,000092: 4060 10100 KEYRPTBB BBCON KEYRUPT1
007473,000093:
007474,000094: 4061 E7,1404 EBANK= AOTAZ
007475,000095: 4061 16107 MKRUPTBB BBCON MARKRUPT
007476,000096:
007477,000097: 4062 4060 UPRPTBB = KEYRPTBB
007478,000098:
007479,000099: 4062 0340 EBANK= DNTMBUFF
007480,000100: 4062 12100 DWNRPTBB BBCON DODOWNTM
007481,000101:
007482,000102: 4063 0110 EBANK= RADMODES
007483,000103: 4063 52100 RDRPTBB BBCON RADAREAD
007484,000104:
007485,000105: 4064 E6,1412 EBANK= M11
007486,000106: 4064 14106 T4RPTBB BBCON T4RUPT
007487,000107:
007488,000108: 4065 E7,1645 EBANK= ELVIRA
007489,000109: 4065 42107 RUPT10BB BBCON PITFALL
007490,000110:
007491,000111:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc