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.

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

Page 163

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

Page 164

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

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