Source Code

These source-code files are part of a reconstructed copy of Luminary 97, the second release of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer (AGC) software. It was created to fix two incorrect ephemeris constants in Luminary 96, as described by anomaly report LNY-59.

The reconstruction began with source code of Luminary 99 revision 1 previously transcribed from a digitized copy of that program. The code was then updated by undoing changes described in original Luminary memos 83 and 85, using asterisks indicating changed lines in the listing as a guide. 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 97 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.

006088,000002:                                                                                                  ## Copyright:   Public domain.
006089,000003:                                                                                                  ## Filename:    INTERRUPT_LEAD_INS.agc
006090,000004:                                                                                                  ## Purpose:     A section of Luminary revision 97.
006091,000005:                                                                                                  ##              It is part of the reconstructed source code for the
006092,000006:                                                                                                  ##              second release of the flight software for the Lunar 
006093,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
006094,000008:                                                                                                  ##              It was created to fix two incorrect ephemeris constants in
006095,000009:                                                                                                  ##              Luminary 96, as described by anomaly report LNY-59.
006096,000010:                                                                                                  ##              The code has been recreated from a copy of Luminary 99
006097,000011:                                                                                                  ##              revision 001, using asterisks indicating changed lines in
006098,000012:                                                                                                  ##              the listing and Luminary Memos #83 and #85, which list 
006099,000013:                                                                                                  ##              changes between Luminary 97 and 98, and 98 and 99. The
006100,000014:                                                                                                  ##              code has been adapted such that the resulting bugger words
006101,000015:                                                                                                  ##              exactly match those specified for Luminary 97 in NASA drawing
006102,000016:                                                                                                  ##              2021152D, which gives relatively high confidence that the
006103,000017:                                                                                                  ##              reconstruction is correct.
006104,000018:                                                                                                  ## Reference:   pp. 153-154
006105,000019:                                                                                                  ## Assembler:   yaYUL
006106,000020:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
006107,000021:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
006108,000022:                                                                                                  ## Mod history: 2019-07-28 MAS  Created from Luminary 99.
006109,000023: 

Page 153

006111,000025:    4000                                           SETLOC   4000                                  
006112,000026: 
006113,000027:    4000                                           COUNT*   $$/RUPTS                              #  FIX-FIX LEAD INS
006114,000028:    4000           00004                           INHINT                                         #  GO
006115,000029:    4001           34054                           CAF      GOBB                                  
006116,000030:    4002           56006                           XCH      BBANK                                 
006117,000031:    4003           12667                           TCF      GOPROG                                
006118,000032: 
006119,000033:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
006120,000034:    4005           00006                           EXTEND                                         
006121,000035:    4006           34056                           DCA      T6ADR                                 
006122,000036:    4007           52006                           DTCB                                           
006123,000037: 
006124,000038:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT - AUTOPILOT
006125,000039:    4011           00006                           EXTEND                                         
006126,000040:    4012           31275                           DCA      T5ADR                                 
006127,000041:    4013           52006                           DTCB                                           
006128,000042: 
006129,000043:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
006130,000044:    4015           34057                           CAF      T3RPTBB                               
006131,000045:    4016           56006                           XCH      BBANK                                 
006132,000046:    4017           13407                           TCF      T3RUPT                                
006133,000047: 
006134,000048:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
006135,000049:    4021           34064                           CAF      T4RPTBB                               
006136,000050:    4022           56006                           XCH      BBANK                                 
006137,000051:    4023           12000                           TCF      T4RUPT                                
006138,000052: 
006139,000053:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
006140,000054:    4025           34060                           CAF      KEYRPTBB                              
006141,000055:    4026           56006                           XCH      BBANK                                 
006142,000056:    4027           13274                           TCF      KEYRUPT1                              
006143,000057: 
006144,000058:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
006145,000059:    4031           34061                           CAF      MKRUPTBB                              
006146,000060:    4032           56006                           XCH      BBANK                                 
006147,000061:    4033           12332                           TCF      MARKRUPT                              
006148,000062: 
006149,000063:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
006150,000064:    4035           34060                           CAF      UPRPTBB                               
006151,000065:    4036           56006                           XCH      BBANK                                 
006152,000066:    4037           13317                           TCF      UPRUPT                                
006153,000067: 
006154,000068:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
006155,000069:    4041           34062                           CAF      DWNRPTBB                              
006156,000070:    4042           56006                           XCH      BBANK                                 
006157,000071:    4043           13506                           TCF      DODOWNTM                              
006158,000072: 
006159,000073:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT
006160,000074:    4045           34063                           CAF      RDRPTBB                               

Page 154

006162,000076:    4046           56006                           XCH      BBANK                                 
006163,000077:    4047           13150                           TCF      RADAREAD                              
006164,000078: 
006165,000079:    4050           52011                           DXCH     ARUPT                                 #  RUPT10 IS USED ONLY BY LANDING GUIDANCE
006166,000080:    4051           34065                           CA       RUPT10BB                              
006167,000081:    4052           56006                           XCH      BBANK                                 
006168,000082:    4053           12275                           TCF      PITFALL                               
006169,000083: 
006170,000084: 
006171,000085:    4054  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0, E3
006172,000086:    4054           12103        GOBB               BBCON    GOPROG                                
006173,000087: 
006174,000088:    4055  E6,1464                                  EBANK=   PERROR                                
006175,000089:    4055           02065 36106  T6ADR              2CADR    DOT6RUPT                              
006176,000090: 
006177,000091:    4057  E3,1400                                  EBANK=   LST1                                  
006178,000092:    4057           02103        T3RPTBB            BBCON    T3RUPT                                
006179,000093: 
006180,000094:    4060     0073                                  EBANK=   KEYTEMP1                              
006181,000095:    4060           10100        KEYRPTBB           BBCON    KEYRUPT1                              
006182,000096: 
006183,000097:    4061  E7,1404                                  EBANK=   AOTAZ                                 
006184,000098:    4061           16107        MKRUPTBB           BBCON    MARKRUPT                              
006185,000099: 
006186,000100:    4062     4060               UPRPTBB            =        KEYRPTBB                              
006187,000101: 
006188,000102:    4062     0340                                  EBANK=   DNTMBUFF                              
006189,000103:    4062           12100        DWNRPTBB           BBCON    DODOWNTM                              
006190,000104: 
006191,000105:    4063     0110                                  EBANK=   RADMODES                              
006192,000106:    4063           52100        RDRPTBB            BBCON    RADAREAD                              
006193,000107: 
006194,000108:    4064  E6,1414                                  EBANK=   M11                                   
006195,000109:    4064           14106        T4RPTBB            BBCON    T4RUPT                                
006196,000110: 
006197,000111:    4065  E7,1647                                  EBANK=   ELVIRA                                
006198,000112:    4065           22107        RUPT10BB           BBCON    PITFALL                               
006199,000113: 

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