Source Code

These source-code files derive from a printout of Luminary 116 (the Apollo 12 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Ron Burkey, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

006384,000002:                                                                                                  ## Copyright:   Public domain.
006385,000003:                                                                                                  ## Filename:    INTERRUPT_LEAD_INS.agc
006386,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
006387,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
006388,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
006389,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
006390,000008:                                                                                                  ##              that the code format has been changed to conform to the
006391,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
006392,000010:                                                                                                  ##              original YUL assembler.
006393,000011:                                                                                                  ## Reference:   pp. 154-155
006394,000012:                                                                                                  ## Assembler:   yaYUL
006395,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
006396,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
006397,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
006398,000016:                                                                                                  ##              2017-02-25 HG   Transcribed
006399,000017:                                                                                                  ##              2017-03-01 RSB  Proofed comment text by diff vs Luminary 131
006400,000018:                                                                                                  ##                              but no errors found.
006401,000019: 

Page 154

006403,000021:    4000                                           SETLOC   4000                                  
006404,000022: 
006405,000023:    4000                                           COUNT*   $$/RUPTS                              #  FIX-FIX LEAD INS
006406,000024:    4000           00004                           INHINT                                         #  GO
006407,000025:    4001           34054                           CAF      GOBB                                  
006408,000026:    4002           56006                           XCH      BBANK                                 
006409,000027:    4003           12665                           TCF      GOPROG                                
006410,000028: 
006411,000029:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
006412,000030:    4005           00006                           EXTEND                                         
006413,000031:    4006           34056                           DCA      T6ADR                                 
006414,000032:    4007           52006                           DTCB                                           
006415,000033: 
006416,000034:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT - AUTOPILOT
006417,000035:    4011           00006                           EXTEND                                         
006418,000036:    4012           31264                           DCA      T5ADR                                 
006419,000037:    4013           52006                           DTCB                                           
006420,000038: 
006421,000039:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
006422,000040:    4015           34057                           CAF      T3RPTBB                               
006423,000041:    4016           56006                           XCH      BBANK                                 
006424,000042:    4017           13410                           TCF      T3RUPT                                
006425,000043: 
006426,000044:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
006427,000045:    4021           34064                           CAF      T4RPTBB                               
006428,000046:    4022           56006                           XCH      BBANK                                 
006429,000047:    4023           12000                           TCF      T4RUPT                                
006430,000048: 
006431,000049:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
006432,000050:    4025           34060                           CAF      KEYRPTBB                              
006433,000051:    4026           56006                           XCH      BBANK                                 
006434,000052:    4027           13256                           TCF      KEYRUPT1                              
006435,000053: 
006436,000054:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
006437,000055:    4031           34061                           CAF      MKRUPTBB                              
006438,000056:    4032           56006                           XCH      BBANK                                 
006439,000057:    4033           12332                           TCF      MARKRUPT                              
006440,000058: 
006441,000059:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
006442,000060:    4035           34060                           CAF      UPRPTBB                               
006443,000061:    4036           56006                           XCH      BBANK                                 
006444,000062:    4037           13301                           TCF      UPRUPT                                
006445,000063: 
006446,000064:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
006447,000065:    4041           34062                           CAF      DWNRPTBB                              
006448,000066:    4042           56006                           XCH      BBANK                                 
006449,000067:    4043           13472                           TCF      DODOWNTM                              
006450,000068: 
006451,000069:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT
006452,000070:    4045           34063                           CAF      RDRPTBB                               
006453,000071: 

Page 155

006455,000073:    4046           56006                           XCH      BBANK                                 
006456,000074:    4047           13157                           TCF      RADAREAD                              
006457,000075: 
006458,000076:    4050           52011                           DXCH     ARUPT                                 #  RUPT10 IS USED ONLY BY LANDING GUIDANCE
006459,000077:    4051           34065                           CA       RUPT10BB                              
006460,000078:    4052           56006                           XCH      BBANK                                 
006461,000079:    4053           12302                           TCF      PITFALL                               
006462,000080: 
006463,000081: 
006464,000082:    4054  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0, E3
006465,000083:    4054           12103        GOBB               BBCON    GOPROG                                
006466,000084: 
006467,000085:    4055  E6,1464                                  EBANK=   PERROR                                
006468,000086:    4055           02117 36106  T6ADR              2CADR    DOT6RUPT                              
006469,000087: 
006470,000088:    4057  E3,1400                                  EBANK=   LST1                                  
006471,000089:    4057           02103        T3RPTBB            BBCON    T3RUPT                                
006472,000090: 
006473,000091:    4060     0073                                  EBANK=   KEYTEMP1                              
006474,000092:    4060           10100        KEYRPTBB           BBCON    KEYRUPT1                              
006475,000093: 
006476,000094:    4061  E7,1404                                  EBANK=   AOTAZ                                 
006477,000095:    4061           16107        MKRUPTBB           BBCON    MARKRUPT                              
006478,000096: 
006479,000097:    4062     4060               UPRPTBB            =        KEYRPTBB                              
006480,000098: 
006481,000099:    4062     0340                                  EBANK=   DNTMBUFF                              
006482,000100:    4062           12100        DWNRPTBB           BBCON    DODOWNTM                              
006483,000101: 
006484,000102:    4063  E7,1453                                  EBANK=   TTOGO                                 
006485,000103:    4063           52107        RDRPTBB            BBCON    RADAREAD                              
006486,000104: 
006487,000105:    4064  E6,1414                                  EBANK=   M11                                   
006488,000106:    4064           14106        T4RPTBB            BBCON    T4RUPT                                
006489,000107: 
006490,000108:    4065  E7,1444                                  EBANK=   ELVIRA                                
006491,000109:    4065           22107        RUPT10BB           BBCON    PITFALL                               

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