Source Code
|
These source-code files are part of a reconstructed copy of LM131 revision 1,
the final release of the Apollo 13 Lunar Module (LM) Apollo Guidance Computer
(AGC) software.
The source reconstruction began with source code of Luminary 131 previously
transcribed from a digitized copy of that program. A dump of the flight spare
core rope memory module B5, part number 2010802-171, serial number RAY 411,
was obtained. This module is the only module different between Luminary 131
and LM131 revision 1. The dump was disassembled and all changes were incorporated
into these source files. Note that page numbers in the reconstructed code match
those on the Luminary 131 printout, although the changed code would likely have
changed page numbers for a real LM131 revision 1 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.
|
006151,000002: ## Copyright: Public domain.
006152,000003: ## Filename: INTERRUPT_LEAD_INS.agc
006153,000004: ## Purpose: A section of LM131 revision 1.
006154,000005: ## It is part of the reconstructed source code for the final
006155,000006: ## release of the flight software for the Lunar Module's (LM)
006156,000007: ## Apollo Guidance Computer (AGC) for Apollo 13. The code has
006157,000008: ## been reconstructed from a listing of Luminary 131 and a dump
006158,000009: ## of a core rope memory module B5, part number 2010802-171,
006159,000010: ## which is the only module different between LM131 revision 1
006160,000011: ## and Luminary 131. The executable generated from this source
006161,000012: ## has been verified against the module dump, so while the names,
006162,000013: ## comments, and ordering may not be exactly correct, the
006163,000014: ## resulting binary is.
006164,000015: ## Reference: pp. 155-156
006165,000016: ## Assembler: yaYUL
006166,000017: ## Contact: Ron Burkey <info@sandroid.org>.
006167,000018: ## Website: www.ibiblio.org/apollo/index.html
006168,000019: ## Mod history: 2022-10-28 MAS Created from Luminary 131.
006169,000020:
|
|
Page 155
|
006171,000022: 4000 SETLOC 4000
006172,000023:
006173,000024: 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS
006174,000025: 4000 00004 INHINT # GO
006175,000026: 4001 34054 CAF GOBB
006176,000027: 4002 56006 XCH BBANK
006177,000028: 4003 12665 TCF GOPROG
006178,000029:
006179,000030: 4004 52011 DXCH ARUPT # T6RUPT
006180,000031: 4005 00006 EXTEND
006181,000032: 4006 34056 DCA T6ADR
006182,000033: 4007 52006 DTCB
006183,000034:
006184,000035: 4010 52011 DXCH ARUPT # T5RUPT - AUTOPILOT
006185,000036: 4011 00006 EXTEND
006186,000037: 4012 31264 DCA T5ADR
006187,000038: 4013 52006 DTCB
006188,000039:
006189,000040: 4014 52011 DXCH ARUPT # T3RUPT
006190,000041: 4015 34057 CAF T3RPTBB
006191,000042: 4016 56006 XCH BBANK
006192,000043: 4017 13410 TCF T3RUPT
006193,000044:
006194,000045: 4020 52011 DXCH ARUPT # T4RUPT
006195,000046: 4021 34064 CAF T4RPTBB
006196,000047: 4022 56006 XCH BBANK
006197,000048: 4023 12000 TCF T4RUPT
006198,000049:
006199,000050: 4024 52011 DXCH ARUPT # KEYRUPT1
006200,000051: 4025 34060 CAF KEYRPTBB
006201,000052: 4026 56006 XCH BBANK
006202,000053: 4027 13253 TCF KEYRUPT1
006203,000054:
006204,000055: 4030 52011 DXCH ARUPT # KEYRUPT2
006205,000056: 4031 34061 CAF MKRUPTBB
006206,000057: 4032 56006 XCH BBANK
006207,000058: 4033 12332 TCF MARKRUPT
006208,000059:
006209,000060: 4034 52011 DXCH ARUPT # UPRUPT
006210,000061: 4035 34060 CAF UPRPTBB
006211,000062: 4036 56006 XCH BBANK
006212,000063: 4037 13276 TCF UPRUPT
006213,000064:
006214,000065: 4040 52011 DXCH ARUPT # DOWNRUPT
006215,000066: 4041 34062 CAF DWNRPTBB
006216,000067: 4042 56006 XCH BBANK
006217,000068: 4043 13505 TCF DODOWNTM
006218,000069:
006219,000070: 4044 52011 DXCH ARUPT # RADAR RUPT
006220,000071: 4045 34063 CAF RDRPTBB
|
|
Page 156
|
006222,000073: 4046 56006 XCH BBANK
006223,000074: 4047 13157 TCF RADAREAD
006224,000075:
006225,000076: 4050 52011 DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
006226,000077: 4051 34065 CA RUPT10BB
006227,000078: 4052 56006 XCH BBANK
006228,000079: 4053 12302 TCF PITFALL
006229,000080:
006230,000081: 4054 E3,1400 EBANK= LST1 # RESTART USES E0,E3
006231,000082: 4054 12103 GOBB BBCON GOPROG
006232,000083:
006233,000084: 4055 E6,1464 EBANK= PERROR
006234,000085: 4055 02117 36106 T6ADR 2CADR DOT6RUPT
006235,000086:
006236,000087: 4057 E3,1400 EBANK= LST1
006237,000088: 4057 02103 T3RPTBB BBCON T3RUPT
006238,000089:
006239,000090: 4060 0073 EBANK= KEYTEMP1
006240,000091: 4060 10100 KEYRPTBB BBCON KEYRUPT1
006241,000092:
006242,000093: 4061 E7,1404 EBANK= AOTAZ
006243,000094: 4061 16107 MKRUPTBB BBCON MARKRUPT
006244,000095:
006245,000096: 4062 4060 UPRPTBB = KEYRPTBB
006246,000097:
006247,000098: 4062 0340 EBANK= DNTMBUFF
006248,000099: 4062 12100 DWNRPTBB BBCON DODOWNTM
006249,000100:
006250,000101: 4063 E7,1453 EBANK= TTOGO
006251,000102: 4063 52107 RDRPTBB BBCON RADAREAD
006252,000103:
006253,000104: 4064 E6,1414 EBANK= M11
006254,000105: 4064 14106 T4RPTBB BBCON T4RUPT
006255,000106:
006256,000107: 4065 E7,1444 EBANK= ELVIRA
006257,000108: 4065 22107 RUPT10BB BBCON PITFALL
006258,000109:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc