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, 1969
Note 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.

006210,000002:                                                                                                  ## Copyright:   Public domain.
006211,000003:                                                                                                  ## Filename:    INTERRUT_LEAD_INS.agc
006212,000004:                                                                                                  ## Purpose:     This is the interrupt table for Luminary 1C, revision 131.
006213,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
006214,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13.
006215,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
006216,000008:                                                                                                  ##              that the code format has been changed to conform to the
006217,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the 
006218,000010:                                                                                                  ##              original YUL assembler.
006219,000011:                                                                                                  ## Reference:   pp. 155-156
006220,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
006221,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
006222,000014:                                                                                                  ## Mod history: 04/11/03 RSB.   Began transcribing.
006223,000015:                                                                                                  ##              05/14/05 RSB    Corrected website reference above.
006224,000016:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
006225,000017:                                                                                                  ##                              original harcopy, as opposed to the PDF page
006226,000018:                                                                                                  ##                              numbers in 1701.pdf.
006227,000019:                                                                                                  ##              2017-02-12 RSB  Proofed comment text using octopus/ProoferComments.
006228,000020: 

Page 155

006230,000022:    4000                                           SETLOC   4000                                  
006231,000023: 
006232,000024:    4000                                           COUNT*   $$/RUPTS                              #  FIX-FIX LEAD INS
006233,000025:    4000           00004                           INHINT                                         #  GO
006234,000026:    4001           34054                           CAF      GOBB                                  
006235,000027:    4002           56006                           XCH      BBANK                                 
006236,000028:    4003           12665                           TCF      GOPROG                                
006237,000029: 
006238,000030:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
006239,000031:    4005           00006                           EXTEND                                         
006240,000032:    4006           34056                           DCA      T6ADR                                 
006241,000033:    4007           52006                           DTCB                                           
006242,000034: 
006243,000035:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT - AUTOPILOT
006244,000036:    4011           00006                           EXTEND                                         
006245,000037:    4012           31264                           DCA      T5ADR                                 
006246,000038:    4013           52006                           DTCB                                           
006247,000039: 
006248,000040:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
006249,000041:    4015           34057                           CAF      T3RPTBB                               
006250,000042:    4016           56006                           XCH      BBANK                                 
006251,000043:    4017           13410                           TCF      T3RUPT                                
006252,000044: 
006253,000045:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
006254,000046:    4021           34064                           CAF      T4RPTBB                               
006255,000047:    4022           56006                           XCH      BBANK                                 
006256,000048:    4023           12000                           TCF      T4RUPT                                
006257,000049: 
006258,000050:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
006259,000051:    4025           34060                           CAF      KEYRPTBB                              
006260,000052:    4026           56006                           XCH      BBANK                                 
006261,000053:    4027           13253                           TCF      KEYRUPT1                              
006262,000054: 
006263,000055:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
006264,000056:    4031           34061                           CAF      MKRUPTBB                              
006265,000057:    4032           56006                           XCH      BBANK                                 
006266,000058:    4033           12332                           TCF      MARKRUPT                              
006267,000059: 
006268,000060:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
006269,000061:    4035           34060                           CAF      UPRPTBB                               
006270,000062:    4036           56006                           XCH      BBANK                                 
006271,000063:    4037           13276                           TCF      UPRUPT                                
006272,000064: 
006273,000065:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
006274,000066:    4041           34062                           CAF      DWNRPTBB                              
006275,000067:    4042           56006                           XCH      BBANK                                 
006276,000068:    4043           13505                           TCF      DODOWNTM                              
006277,000069: 
006278,000070:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT
006279,000071:    4045           34063                           CAF      RDRPTBB                               

Page 156

006281,000073:    4046           56006                           XCH      BBANK                                 
006282,000074:    4047           13157                           TCF      RADAREAD                              
006283,000075: 
006284,000076:    4050           52011                           DXCH     ARUPT                                 #  RUPT10 IS USED ONLY BY LANDING GUIDANCE
006285,000077:    4051           34065                           CA       RUPT10BB                              
006286,000078:    4052           56006                           XCH      BBANK                                 
006287,000079:    4053           12302                           TCF      PITFALL                               
006288,000080: 
006289,000081:    4054  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0,E3
006290,000082:    4054           12103        GOBB               BBCON    GOPROG                                
006291,000083: 
006292,000084:    4055  E6,1464                                  EBANK=   PERROR                                
006293,000085:    4055           02117 36106  T6ADR              2CADR    DOT6RUPT                              
006294,000086: 
006295,000087:    4057  E3,1400                                  EBANK=   LST1                                  
006296,000088:    4057           02103        T3RPTBB            BBCON    T3RUPT                                
006297,000089: 
006298,000090:    4060     0073                                  EBANK=   KEYTEMP1                              
006299,000091:    4060           10100        KEYRPTBB           BBCON    KEYRUPT1                              
006300,000092: 
006301,000093:    4061  E7,1404                                  EBANK=   AOTAZ                                 
006302,000094:    4061           16107        MKRUPTBB           BBCON    MARKRUPT                              
006303,000095: 
006304,000096:    4062     4060               UPRPTBB            =        KEYRPTBB                              
006305,000097: 
006306,000098:    4062     0340                                  EBANK=   DNTMBUFF                              
006307,000099:    4062           12100        DWNRPTBB           BBCON    DODOWNTM                              
006308,000100: 
006309,000101:    4063  E7,1453                                  EBANK=   TTOGO                                 
006310,000102:    4063           52107        RDRPTBB            BBCON    RADAREAD                              
006311,000103: 
006312,000104:    4064  E6,1414                                  EBANK=   M11                                   
006313,000105:    4064           14106        T4RPTBB            BBCON    T4RUPT                                
006314,000106: 
006315,000107:    4065  E7,1444                                  EBANK=   ELVIRA                                
006316,000108:    4065           22107        RUPT10BB           BBCON    PITFALL                               
006317,000109: 

End of include-file INTERRUPT_LEAD_INS.agc.  Parent file is MAIN.agc