Source Code
|
This is a reconstructed version of Luminary 130, the initial AGC program released
in November 1969 for the Apollo 13 LM. Three more releases
followed before the flown revision was finally manufactured in February 1970.
This reconstruction was created from a previous transcription of the original listing of
Luminary 131, combined with Luminary memo #129 which describes the small difference
between the Luminary 130 and 131. The reconstructed source code was verified by
matching memory-bank checksums to those listed for Luminary 130 in drawing 2021152G.
In this source code, program comments from the original (Luminary 131) code are
prefixed with '#', while those added later by the Virtual AGC project are prefixed
with '##'.
|
006251,000002: ## Copyright: Public domain.
006252,000003: ## Filename: INTERRUPT_LEAD_INS.agc
006253,000004: ## Purpose: A section of the reconstructed source code for Luminary 130.
006254,000005: ## This was the original program released for the Apollo 13 LM,
006255,000006: ## although several more revisions would follow. It has been
006256,000007: ## reconstructed from a listing of Luminary 131, from which it
006257,000008: ## differs on only two lines in P70-P71. The difference is
006258,000009: ## described in detail in Luminary memo #129, which was used
006259,000010: ## to perform the reconstruction. This file is intended to be a
006260,000011: ## faithful reconstruction, except that the code format has been
006261,000012: ## changed to conform to the requirements of the yaYUL assembler
006262,000013: ## rather than the original YUL assembler.
006263,000014: ## Reference: pp. 155-156
006264,000015: ## Contact: Ron Burkey <info@sandroid.org>.
006265,000016: ## Website: www.ibiblio.org/apollo/index.html
006266,000017: ## Mod history: 04/11/03 RSB. Began transcribing.
006267,000018: ## 05/14/05 RSB Corrected website reference above.
006268,000019: ## 2017-01-06 RSB Page numbers now agree with those on the
006269,000020: ## original harcopy, as opposed to the PDF page
006270,000021: ## numbers in 1701.pdf.
006271,000022: ## 2017-02-12 RSB Proofed comment text using octopus/ProoferComments.
006272,000023: ## 2018-09-04 MAS Copied from Luminary 131 for Luminary 130.
006273,000024:
|
|
Page 155
|
006275,000026: 4000 SETLOC 4000
006276,000027:
006277,000028: 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS
006278,000029: 4000 00004 INHINT # GO
006279,000030: 4001 34054 CAF GOBB
006280,000031: 4002 56006 XCH BBANK
006281,000032: 4003 12665 TCF GOPROG
006282,000033:
006283,000034: 4004 52011 DXCH ARUPT # T6RUPT
006284,000035: 4005 00006 EXTEND
006285,000036: 4006 34056 DCA T6ADR
006286,000037: 4007 52006 DTCB
006287,000038:
006288,000039: 4010 52011 DXCH ARUPT # T5RUPT - AUTOPILOT
006289,000040: 4011 00006 EXTEND
006290,000041: 4012 31264 DCA T5ADR
006291,000042: 4013 52006 DTCB
006292,000043:
006293,000044: 4014 52011 DXCH ARUPT # T3RUPT
006294,000045: 4015 34057 CAF T3RPTBB
006295,000046: 4016 56006 XCH BBANK
006296,000047: 4017 13410 TCF T3RUPT
006297,000048:
006298,000049: 4020 52011 DXCH ARUPT # T4RUPT
006299,000050: 4021 34064 CAF T4RPTBB
006300,000051: 4022 56006 XCH BBANK
006301,000052: 4023 12000 TCF T4RUPT
006302,000053:
006303,000054: 4024 52011 DXCH ARUPT # KEYRUPT1
006304,000055: 4025 34060 CAF KEYRPTBB
006305,000056: 4026 56006 XCH BBANK
006306,000057: 4027 13253 TCF KEYRUPT1
006307,000058:
006308,000059: 4030 52011 DXCH ARUPT # KEYRUPT2
006309,000060: 4031 34061 CAF MKRUPTBB
006310,000061: 4032 56006 XCH BBANK
006311,000062: 4033 12332 TCF MARKRUPT
006312,000063:
006313,000064: 4034 52011 DXCH ARUPT # UPRUPT
006314,000065: 4035 34060 CAF UPRPTBB
006315,000066: 4036 56006 XCH BBANK
006316,000067: 4037 13276 TCF UPRUPT
006317,000068:
006318,000069: 4040 52011 DXCH ARUPT # DOWNRUPT
006319,000070: 4041 34062 CAF DWNRPTBB
006320,000071: 4042 56006 XCH BBANK
006321,000072: 4043 13505 TCF DODOWNTM
006322,000073:
006323,000074: 4044 52011 DXCH ARUPT # RADAR RUPT
006324,000075: 4045 34063 CAF RDRPTBB
|
|
Page 156
|
006326,000077: 4046 56006 XCH BBANK
006327,000078: 4047 13157 TCF RADAREAD
006328,000079:
006329,000080: 4050 52011 DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
006330,000081: 4051 34065 CA RUPT10BB
006331,000082: 4052 56006 XCH BBANK
006332,000083: 4053 12302 TCF PITFALL
006333,000084:
006334,000085: 4054 E3,1400 EBANK= LST1 # RESTART USES E0,E3
006335,000086: 4054 12103 GOBB BBCON GOPROG
006336,000087:
006337,000088: 4055 E6,1464 EBANK= PERROR
006338,000089: 4055 02117 36106 T6ADR 2CADR DOT6RUPT
006339,000090:
006340,000091: 4057 E3,1400 EBANK= LST1
006341,000092: 4057 02103 T3RPTBB BBCON T3RUPT
006342,000093:
006343,000094: 4060 0073 EBANK= KEYTEMP1
006344,000095: 4060 10100 KEYRPTBB BBCON KEYRUPT1
006345,000096:
006346,000097: 4061 E7,1404 EBANK= AOTAZ
006347,000098: 4061 16107 MKRUPTBB BBCON MARKRUPT
006348,000099:
006349,000100: 4062 4060 UPRPTBB = KEYRPTBB
006350,000101:
006351,000102: 4062 0340 EBANK= DNTMBUFF
006352,000103: 4062 12100 DWNRPTBB BBCON DODOWNTM
006353,000104:
006354,000105: 4063 E7,1453 EBANK= TTOGO
006355,000106: 4063 52107 RDRPTBB BBCON RADAREAD
006356,000107:
006357,000108: 4064 E6,1414 EBANK= M11
006358,000109: 4064 14106 T4RPTBB BBCON T4RUPT
006359,000110:
006360,000111: 4065 E7,1444 EBANK= ELVIRA
006361,000112: 4065 22107 RUPT10BB BBCON PITFALL
006362,000113:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc