Source Code

These source-code files are part of a reconstructed copy of Luminary 96, the original release of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction began with reconstructed source code for Luminary 97. Changes between revisions 96 and 97 were backed out, as described by anomal report LNY-59. transcribed from a digitized copy of that program. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152D. Note that page numbers in the reconstructed code match those on the Luminary 099 revision 001 printout, although the added code would likely have changed page numbers for a real Luminary 96 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.

006072,000002:                                                                                                  ## Copyright:   Public domain.
006073,000003:                                                                                                  ## Filename:    INTERRUPT_LEAD_INS.agc
006074,000004:                                                                                                  ## Purpose:     A section of Luminary revision 96.
006075,000005:                                                                                                  ##              It is part of the reconstructed source code for the
006076,000006:                                                                                                  ##              original release of the flight software for the Lunar 
006077,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
006078,000008:                                                                                                  ##              The code has been recreated from a previously reconstructed
006079,000009:                                                                                                  ##              copy of Luminary 97 by undoing changes described in anomaly
006080,000010:                                                                                                  ##              report LNY-59. The code has been adapted such that the
006081,000011:                                                                                                  ##              resulting bugger words exactly match those specified for
006082,000012:                                                                                                  ##              Luminary 96 in NASA drawing 2021152D, which gives relatively
006083,000013:                                                                                                  ##              high confidence that the reconstruction is correct.
006084,000014:                                                                                                  ## Reference:   pp. 153-154
006085,000015:                                                                                                  ## Assembler:   yaYUL
006086,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
006087,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
006088,000018:                                                                                                  ## Mod history: 2019-08-04 MAS  Created from Luminary 97.
006089,000019: 

Page 153

006091,000021:    4000                                           SETLOC   4000                                  
006092,000022: 
006093,000023:    4000                                           COUNT*   $$/RUPTS                              #  FIX-FIX LEAD INS
006094,000024:    4000           00004                           INHINT                                         #  GO
006095,000025:    4001           34054                           CAF      GOBB                                  
006096,000026:    4002           56006                           XCH      BBANK                                 
006097,000027:    4003           12667                           TCF      GOPROG                                
006098,000028: 
006099,000029:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
006100,000030:    4005           00006                           EXTEND                                         
006101,000031:    4006           34056                           DCA      T6ADR                                 
006102,000032:    4007           52006                           DTCB                                           
006103,000033: 
006104,000034:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT - AUTOPILOT
006105,000035:    4011           00006                           EXTEND                                         
006106,000036:    4012           31275                           DCA      T5ADR                                 
006107,000037:    4013           52006                           DTCB                                           
006108,000038: 
006109,000039:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
006110,000040:    4015           34057                           CAF      T3RPTBB                               
006111,000041:    4016           56006                           XCH      BBANK                                 
006112,000042:    4017           13407                           TCF      T3RUPT                                
006113,000043: 
006114,000044:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
006115,000045:    4021           34064                           CAF      T4RPTBB                               
006116,000046:    4022           56006                           XCH      BBANK                                 
006117,000047:    4023           12000                           TCF      T4RUPT                                
006118,000048: 
006119,000049:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
006120,000050:    4025           34060                           CAF      KEYRPTBB                              
006121,000051:    4026           56006                           XCH      BBANK                                 
006122,000052:    4027           13274                           TCF      KEYRUPT1                              
006123,000053: 
006124,000054:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
006125,000055:    4031           34061                           CAF      MKRUPTBB                              
006126,000056:    4032           56006                           XCH      BBANK                                 
006127,000057:    4033           12332                           TCF      MARKRUPT                              
006128,000058: 
006129,000059:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
006130,000060:    4035           34060                           CAF      UPRPTBB                               
006131,000061:    4036           56006                           XCH      BBANK                                 
006132,000062:    4037           13317                           TCF      UPRUPT                                
006133,000063: 
006134,000064:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
006135,000065:    4041           34062                           CAF      DWNRPTBB                              
006136,000066:    4042           56006                           XCH      BBANK                                 
006137,000067:    4043           13506                           TCF      DODOWNTM                              
006138,000068: 
006139,000069:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT
006140,000070:    4045           34063                           CAF      RDRPTBB                               

Page 154

006142,000072:    4046           56006                           XCH      BBANK                                 
006143,000073:    4047           13150                           TCF      RADAREAD                              
006144,000074: 
006145,000075:    4050           52011                           DXCH     ARUPT                                 #  RUPT10 IS USED ONLY BY LANDING GUIDANCE
006146,000076:    4051           34065                           CA       RUPT10BB                              
006147,000077:    4052           56006                           XCH      BBANK                                 
006148,000078:    4053           12275                           TCF      PITFALL                               
006149,000079: 
006150,000080: 
006151,000081:    4054  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0, E3
006152,000082:    4054           12103        GOBB               BBCON    GOPROG                                
006153,000083: 
006154,000084:    4055  E6,1464                                  EBANK=   PERROR                                
006155,000085:    4055           02065 36106  T6ADR              2CADR    DOT6RUPT                              
006156,000086: 
006157,000087:    4057  E3,1400                                  EBANK=   LST1                                  
006158,000088:    4057           02103        T3RPTBB            BBCON    T3RUPT                                
006159,000089: 
006160,000090:    4060     0073                                  EBANK=   KEYTEMP1                              
006161,000091:    4060           10100        KEYRPTBB           BBCON    KEYRUPT1                              
006162,000092: 
006163,000093:    4061  E7,1404                                  EBANK=   AOTAZ                                 
006164,000094:    4061           16107        MKRUPTBB           BBCON    MARKRUPT                              
006165,000095: 
006166,000096:    4062     4060               UPRPTBB            =        KEYRPTBB                              
006167,000097: 
006168,000098:    4062     0340                                  EBANK=   DNTMBUFF                              
006169,000099:    4062           12100        DWNRPTBB           BBCON    DODOWNTM                              
006170,000100: 
006171,000101:    4063     0110                                  EBANK=   RADMODES                              
006172,000102:    4063           52100        RDRPTBB            BBCON    RADAREAD                              
006173,000103: 
006174,000104:    4064  E6,1414                                  EBANK=   M11                                   
006175,000105:    4064           14106        T4RPTBB            BBCON    T4RUPT                                
006176,000106: 
006177,000107:    4065  E7,1647                                  EBANK=   ELVIRA                                
006178,000108:    4065           22107        RUPT10BB           BBCON    PITFALL                               
006179,000109: 

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