Source Code

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

The reconstruction began with source code of Zerlina 56, Luminary 210, and Luminary 131, previously transcribed from digitized copies of those programs. The code was created by combining the three, using Zerlina 56 as a base, since it was based off of Luminary 183. The differences between the three were carefully merged using the Luminary memos as a guide, with all changes made after Luminary 178 being backed out. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152N. Note that page numbers in the reconstructed code match those for the baseline log section mentioned in each file's changelog; the page numbers for a real Luminary 178 listing would be different.

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.

006813,000002:                                                                                                  ## Copyright:   Public domain.
006814,000003:                                                                                                  ## Filename:    INTERRUPT_LEAD_INS.agc
006815,000004:                                                                                                  ## Purpose:     A section of Luminary revision 178.
006816,000005:                                                                                                  ##              It is part of the reconstructed source code for the final
006817,000006:                                                                                                  ##              release of the flight software for the Lunar Module's
006818,000007:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 14. The
006819,000008:                                                                                                  ##              code has been recreated from copies of Zerlina 56, Luminary
006820,000009:                                                                                                  ##              210, and Luminary 131, as well as many Luminary memos.
006821,000010:                                                                                                  ##              It has been adapted such that the resulting bugger words
006822,000011:                                                                                                  ##              exactly match those specified for Luminary 178 in NASA
006823,000012:                                                                                                  ##              drawing 2021152N, which gives relatively high confidence
006824,000013:                                                                                                  ##              that the reconstruction is correct.
006825,000014:                                                                                                  ## Reference:   pp. 159-160
006826,000015:                                                                                                  ## Assembler:   yaYUL
006827,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
006828,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
006829,000018:                                                                                                  ## Mod history: 2019-08-14 MAS  Created from Zerlina 56.
006830,000019: 

Page 159

006832,000021:    4000                                           SETLOC   4000                                  
006833,000022: 
006834,000023:    4000                                           COUNT*   $$/RUPTS                              #  FIX-FIX LEAD INS
006835,000024:    4000           00004                           INHINT                                         #  GO
006836,000025:    4001           34054                           CAF      GOBB                                  
006837,000026:    4002           56006                           XCH      BBANK                                 
006838,000027:    4003           12677                           TCF      GOPROG                                
006839,000028: 
006840,000029:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
006841,000030:    4005           00006                           EXTEND                                         
006842,000031:    4006           34056                           DCA      T6ADR                                 
006843,000032:    4007           52006                           DTCB                                           
006844,000033: 
006845,000034:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT - AUTOPILOT
006846,000035:    4011           00006                           EXTEND                                         
006847,000036:    4012           31264                           DCA      T5ADR                                 
006848,000037:    4013           52006                           DTCB                                           
006849,000038: 
006850,000039:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
006851,000040:    4015           34057                           CAF      T3RPTBB                               
006852,000041:    4016           56006                           XCH      BBANK                                 
006853,000042:    4017           13412                           TCF      T3RUPT                                
006854,000043: 
006855,000044:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
006856,000045:    4021           34064                           CAF      T4RPTBB                               
006857,000046:    4022           56006                           XCH      BBANK                                 
006858,000047:    4023           12000                           TCF      T4RUPT                                
006859,000048: 
006860,000049:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
006861,000050:    4025           34060                           CAF      KEYRPTBB                              
006862,000051:    4026           56006                           XCH      BBANK                                 
006863,000052:    4027           13261                           TCF      KEYRUPT1                              
006864,000053: 
006865,000054:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
006866,000055:    4031           34061                           CAF      MKRUPTBB                              
006867,000056:    4032           56006                           XCH      BBANK                                 
006868,000057:    4033           12332                           TCF      MARKRUPT                              
006869,000058: 
006870,000059:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
006871,000060:    4035           34060                           CAF      UPRPTBB                               
006872,000061:    4036           56006                           XCH      BBANK                                 
006873,000062:    4037           13304                           TCF      UPRUPT                                
006874,000063: 
006875,000064:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
006876,000065:    4041           34062                           CAF      DWNRPTBB                              
006877,000066:    4042           56006                           XCH      BBANK                                 
006878,000067:    4043           13510                           TCF      DODOWNTM                              
006879,000068: 
006880,000069:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT
006881,000070:    4045           34063                           CAF      RDRPTBB                               

Page 160

006883,000072:    4046           56006                           XCH      BBANK                                 
006884,000073:    4047           13157                           TCF      RADAREAD                              
006885,000074: 
006886,000075:    4050           52011                           DXCH     ARUPT                                 #  RUPT10 IS USED ONLY BY LANDING GUIDANCE
006887,000076:    4051           34065                           CA       RUPT10BB                              
006888,000077:    4052           56006                           XCH      BBANK                                 
006889,000078:    4053           12302                           TCF      PITFALL                               
006890,000079: 
006891,000080: 
006892,000081:    4054  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0, E3
006893,000082:    4054           12103        GOBB               BBCON    GOPROG                                
006894,000083: 
006895,000084:    4055  E6,1464                                  EBANK=   PERROR                                
006896,000085:    4055           02117 36106  T6ADR              2CADR    DOT6RUPT                              
006897,000086: 
006898,000087: 
006899,000088:    4057  E3,1400                                  EBANK=   LST1                                  
006900,000089:    4057           02103        T3RPTBB            BBCON    T3RUPT                                
006901,000090: 
006902,000091:    4060     0073                                  EBANK=   KEYTEMP1                              
006903,000092:    4060           10100        KEYRPTBB           BBCON    KEYRUPT1                              
006904,000093: 
006905,000094:    4061  E7,1404                                  EBANK=   AOTAZ                                 
006906,000095:    4061           16107        MKRUPTBB           BBCON    MARKRUPT                              
006907,000096: 
006908,000097:    4062     4060               UPRPTBB            =        KEYRPTBB                              
006909,000098: 
006910,000099:    4062     0340                                  EBANK=   DNTMBUFF                              
006911,000100:    4062           12100        DWNRPTBB           BBCON    DODOWNTM                              
006912,000101: 
006913,000102:    4063  E7,1453                                  EBANK=   TTOGO                                 
006914,000103:    4063           52107        RDRPTBB            BBCON    RADAREAD                              
006915,000104: 
006916,000105:    4064  E6,1414                                  EBANK=   M11                                   
006917,000106:    4064           14106        T4RPTBB            BBCON    T4RUPT                                
006918,000107: 
006919,000108:    4065  E7,1647                                  EBANK=   ELVIRA                                
006920,000109:    4065           22107        RUPT10BB           BBCON    PITFALL                               

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