Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, 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 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

007026,000002:                                                                                                  ## Copyright:   Public domain.
007027,000003:                                                                                                  ## Filename:    INTERRUPT_LEAD_INS.agc
007028,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
007029,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
007030,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
007031,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
007032,000008:                                                                                                  ##              that the code format has been changed to conform to the
007033,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
007034,000010:                                                                                                  ##              original YUL assembler.
007035,000011:                                                                                                  ## Reference:   pp. 163-164
007036,000012:                                                                                                  ## Assembler:   yaYUL
007037,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
007038,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
007039,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
007040,000016:                                                                                                  ##              2017-11-20 HG   Transcribed
007041,000017:                                                                                                  ##              2016-12-23 RSB  Proofed comment text with octopus/ProoferComments
007042,000018:                                                                                                  ##                              and fixed all errors found.
007043,000019: 

Page 163

007045,000021:    4000                                           SETLOC   4000                                  
007046,000022: 
007047,000023:    4000                                           COUNT*   $$/RUPTS                              #  FIX-FIX LEAD INS
007048,000024:    4000           00004                           INHINT                                         #  GO
007049,000025:    4001           34054                           CAF      GOBB                                  
007050,000026:    4002           56006                           XCH      BBANK                                 
007051,000027:    4003           12671                           TCF      GOPROG                                
007052,000028: 
007053,000029:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
007054,000030:    4005           00006                           EXTEND                                         
007055,000031:    4006           34056                           DCA      T6ADR                                 
007056,000032:    4007           52006                           DTCB                                           
007057,000033: 
007058,000034:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT - AUTOPILOT
007059,000035:    4011           00006                           EXTEND                                         
007060,000036:    4012           31263                           DCA      T5ADR                                 
007061,000037:    4013           52006                           DTCB                                           
007062,000038: 
007063,000039:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
007064,000040:    4015           34057                           CAF      T3RPTBB                               
007065,000041:    4016           56006                           XCH      BBANK                                 
007066,000042:    4017           13412                           TCF      T3RUPT                                
007067,000043: 
007068,000044:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
007069,000045:    4021           34064                           CAF      T4RPTBB                               
007070,000046:    4022           56006                           XCH      BBANK                                 
007071,000047:    4023           12000                           TCF      T4RUPT                                
007072,000048: 
007073,000049:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
007074,000050:    4025           34060                           CAF      KEYRPTBB                              
007075,000051:    4026           56006                           XCH      BBANK                                 
007076,000052:    4027           13257                           TCF      KEYRUPT1                              
007077,000053: 
007078,000054:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
007079,000055:    4031           34061                           CAF      MKRUPTBB                              
007080,000056:    4032           56006                           XCH      BBANK                                 
007081,000057:    4033           12354                           TCF      MARKRUPT                              
007082,000058: 
007083,000059:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
007084,000060:    4035           34060                           CAF      UPRPTBB                               
007085,000061:    4036           56006                           XCH      BBANK                                 
007086,000062:    4037           13302                           TCF      UPRUPT                                
007087,000063: 
007088,000064:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
007089,000065:    4041           34062                           CAF      DWNRPTBB                              
007090,000066:    4042           56006                           XCH      BBANK                                 
007091,000067:    4043           13507                           TCF      DODOWNTM                              
007092,000068: 
007093,000069:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT
007094,000070:    4045           34063                           CAF      RDRPTBB                               

Page 164

007096,000072:    4046           56006                           XCH      BBANK                                 
007097,000073:    4047           13157                           TCF      RADAREAD                              
007098,000074: 
007099,000075:    4050           52011                           DXCH     ARUPT                                 #  RUPT10 IS USED ONLY BY LANDING GUIDANCE
007100,000076:    4051           34065                           CA       RUPT10BB                              
007101,000077:    4052           56006                           XCH      BBANK                                 
007102,000078:    4053           12302                           TCF      PITFALL                               
007103,000079: 
007104,000080:    4054  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0,E3
007105,000081:    4054           12103        GOBB               BBCON    GOPROG                                
007106,000082: 
007107,000083:    4055  E6,1464                                  EBANK=   PERROR                                
007108,000084:    4055           02117 36106  T6ADR              2CADR    DOT6RUPT                              
007109,000085: 
007110,000086:    4057  E3,1400                                  EBANK=   LST1                                  
007111,000087:    4057           02103        T3RPTBB            BBCON    T3RUPT                                
007112,000088: 
007113,000089:    4060     0073                                  EBANK=   KEYTEMP1                              
007114,000090:    4060           10100        KEYRPTBB           BBCON    KEYRUPT1                              
007115,000091: 
007116,000092:    4061  E7,1404                                  EBANK=   AOTAZ                                 
007117,000093:    4061           16107        MKRUPTBB           BBCON    MARKRUPT                              
007118,000094: 
007119,000095:    4062     4060               UPRPTBB            =        KEYRPTBB                              
007120,000096: 
007121,000097:    4062     0340                                  EBANK=   DNTMBUFF                              
007122,000098:    4062           12100        DWNRPTBB           BBCON    DODOWNTM                              
007123,000099: 
007124,000100:    4063  E7,1453                                  EBANK=   TTOGO                                 
007125,000101:    4063           52107        RDRPTBB            BBCON    RADAREAD                              
007126,000102: 
007127,000103:    4064  E6,1414                                  EBANK=   M11                                   
007128,000104:    4064           14106        T4RPTBB            BBCON    T4RUPT                                
007129,000105: 
007130,000106:    4065  E7,1647                                  EBANK=   ELVIRA                                
007131,000107:    4065           22107        RUPT10BB           BBCON    PITFALL                               
007132,000108: 

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