GAP: ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091 17:53 DEC. 19, 1969Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.
Source Code
|
|
This source code is very close to the Apollo Guidance Computer software for the
Apollo 13 Lunar module. This revision of the Luminary 131 program is from December
of 1969, whereas there was a later revision in January of 1970, and still another
revision in February, which is the code that flew on the mission.
As far as this transcription is concerned, it was originally from a copy made in 1991 of
a printout from the collection of AGC developer Don Eyles for collector David Craig.
It was subsequently scanned by Gary Neff, reprocessed for online
presentation at the now-discontinued History of Recent Science and Technology (HRST) website
of MIT's Dibner Institute (the full-quality scans being discarded in the process),
and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a
high-quality replacement scan for a completely illegible page was later provided by Gary
Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many
errors to be introduced into the transcription. Accordingly, a second scan of the same physical
printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive,
and used to correct the transcription errors. All of the scanned materials mentioned,
as well as other Luminary 131 related material, are available online.
Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017,
so the two scans are not identical in that respect. The page-headings in the printout read, in part:GAP: ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091 17:53 DEC. 19, 1969Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together. |
006220,000002: ## Copyright: Public domain.
006221,000003: ## Filename: INTERRUT_LEAD_INS.agc
006222,000004: ## Purpose: This is the interrupt table for Luminary 1C, revision 131.
006223,000005: ## It is part of the source code for the Lunar Module's (LM)
006224,000006: ## Apollo Guidance Computer (AGC) for Apollo 13.
006225,000007: ## This file is intended to be a faithful transcription, except
006226,000008: ## that the code format has been changed to conform to the
006227,000009: ## requirements of the yaYUL assembler rather than the
006228,000010: ## original YUL assembler.
006229,000011: ## Reference: pp. 155-156
006230,000012: ## Contact: Ron Burkey <info@sandroid.org>.
006231,000013: ## Website: www.ibiblio.org/apollo/index.html
006232,000014: ## Mod history: 04/11/03 RSB. Began transcribing.
006233,000015: ## 05/14/05 RSB Corrected website reference above.
006234,000016: ## 2017-01-06 RSB Page numbers now agree with those on the
006235,000017: ## original harcopy, as opposed to the PDF page
006236,000018: ## numbers in 1701.pdf.
006237,000019: ## 2017-02-12 RSB Proofed comment text using octopus/ProoferComments.
006238,000020:
|
|
Page 155 |
006240,000022: 4000 SETLOC 4000
006241,000023:
006242,000024: 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS
006243,000025: 4000 00004 INHINT # GO
006244,000026: 4001 34054 CAF GOBB
006245,000027: 4002 56006 XCH BBANK
006246,000028: 4003 12665 TCF GOPROG
006247,000029:
006248,000030: 4004 52011 DXCH ARUPT # T6RUPT
006249,000031: 4005 00006 EXTEND
006250,000032: 4006 34056 DCA T6ADR
006251,000033: 4007 52006 DTCB
006252,000034:
006253,000035: 4010 52011 DXCH ARUPT # T5RUPT - AUTOPILOT
006254,000036: 4011 00006 EXTEND
006255,000037: 4012 31264 DCA T5ADR
006256,000038: 4013 52006 DTCB
006257,000039:
006258,000040: 4014 52011 DXCH ARUPT # T3RUPT
006259,000041: 4015 34057 CAF T3RPTBB
006260,000042: 4016 56006 XCH BBANK
006261,000043: 4017 13410 TCF T3RUPT
006262,000044:
006263,000045: 4020 52011 DXCH ARUPT # T4RUPT
006264,000046: 4021 34064 CAF T4RPTBB
006265,000047: 4022 56006 XCH BBANK
006266,000048: 4023 12000 TCF T4RUPT
006267,000049:
006268,000050: 4024 52011 DXCH ARUPT # KEYRUPT1
006269,000051: 4025 34060 CAF KEYRPTBB
006270,000052: 4026 56006 XCH BBANK
006271,000053: 4027 13253 TCF KEYRUPT1
006272,000054:
006273,000055: 4030 52011 DXCH ARUPT # KEYRUPT2
006274,000056: 4031 34061 CAF MKRUPTBB
006275,000057: 4032 56006 XCH BBANK
006276,000058: 4033 12332 TCF MARKRUPT
006277,000059:
006278,000060: 4034 52011 DXCH ARUPT # UPRUPT
006279,000061: 4035 34060 CAF UPRPTBB
006280,000062: 4036 56006 XCH BBANK
006281,000063: 4037 13276 TCF UPRUPT
006282,000064:
006283,000065: 4040 52011 DXCH ARUPT # DOWNRUPT
006284,000066: 4041 34062 CAF DWNRPTBB
006285,000067: 4042 56006 XCH BBANK
006286,000068: 4043 13505 TCF DODOWNTM
006287,000069:
006288,000070: 4044 52011 DXCH ARUPT # RADAR RUPT
006289,000071: 4045 34063 CAF RDRPTBB
|
|
Page 156 |
006291,000073: 4046 56006 XCH BBANK
006292,000074: 4047 13157 TCF RADAREAD
006293,000075:
006294,000076: 4050 52011 DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
006295,000077: 4051 34065 CA RUPT10BB
006296,000078: 4052 56006 XCH BBANK
006297,000079: 4053 12302 TCF PITFALL
006298,000080:
006299,000081: 4054 E3,1400 EBANK= LST1 # RESTART USES E0,E3
006300,000082: 4054 12103 GOBB BBCON GOPROG
006301,000083:
006302,000084: 4055 E6,1464 EBANK= PERROR
006303,000085: 4055 02117 36106 T6ADR 2CADR DOT6RUPT
006304,000086:
006305,000087: 4057 E3,1400 EBANK= LST1
006306,000088: 4057 02103 T3RPTBB BBCON T3RUPT
006307,000089:
006308,000090: 4060 0073 EBANK= KEYTEMP1
006309,000091: 4060 10100 KEYRPTBB BBCON KEYRUPT1
006310,000092:
006311,000093: 4061 E7,1404 EBANK= AOTAZ
006312,000094: 4061 16107 MKRUPTBB BBCON MARKRUPT
006313,000095:
006314,000096: 4062 4060 UPRPTBB = KEYRPTBB
006315,000097:
006316,000098: 4062 0340 EBANK= DNTMBUFF
006317,000099: 4062 12100 DWNRPTBB BBCON DODOWNTM
006318,000100:
006319,000101: 4063 E7,1453 EBANK= TTOGO
006320,000102: 4063 52107 RDRPTBB BBCON RADAREAD
006321,000103:
006322,000104: 4064 E6,1414 EBANK= M11
006323,000105: 4064 14106 T4RPTBB BBCON T4RUPT
006324,000106:
006325,000107: 4065 E7,1444 EBANK= ELVIRA
006326,000108: 4065 22107 RUPT10BB BBCON PITFALL
006327,000109:
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc