Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

007405,000002:                                                                                                  ## Copyright:   Public domain.
007406,000003:                                                                                                  ## Filename:    INTERRUPT_LEAD_INS.agc
007407,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
007408,000005:                                                                                                  ##              It is part of the source code for the original release
007409,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
007410,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
007411,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
007412,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
007413,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
007414,000011:                                                                                                  ##              that the code format has been changed to conform to the
007415,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
007416,000013:                                                                                                  ##              original YUL assembler.
007417,000014:                                                                                                  ## Reference:   pp. 168-169
007418,000015:                                                                                                  ## Assembler:   yaYUL
007419,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
007420,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
007421,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
007422,000019:                                                                                                  ##              2017-01-05 HG   Transcribed
007423,000020:                                                                                                  ##              2017-01-25 RSB  Proofed comment text using octopus/prooferComments
007424,000021:                                                                                                  ##                              but no errors found.
007425,000022: 

Page 168

007427,000024:    4000                                           SETLOC   4000                                  
007428,000025: 
007429,000026:    4000                                           COUNT*   $$/RUPTS                              #  FIX-FIX LEAD INS
007430,000027:    4000           00004                           INHINT                                         #  GO
007431,000028:    4001           34054                           CAF      GOBB                                  
007432,000029:    4002           56006                           XCH      BBANK                                 
007433,000030:    4003           12667                           TCF      GOPROG                                
007434,000031: 
007435,000032:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
007436,000033:    4005           00006                           EXTEND                                         
007437,000034:    4006           34056                           DCA      T6ADR                                 
007438,000035:    4007           52006                           DTCB                                           
007439,000036: 
007440,000037:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT - AUTOPILOT
007441,000038:    4011           00006                           EXTEND                                         
007442,000039:    4012           31275                           DCA      T5ADR                                 
007443,000040:    4013           52006                           DTCB                                           
007444,000041: 
007445,000042:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
007446,000043:    4015           34057                           CAF      T3RPTBB                               
007447,000044:    4016           56006                           XCH      BBANK                                 
007448,000045:    4017           13404                           TCF      T3RUPT                                
007449,000046: 
007450,000047:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
007451,000048:    4021           34064                           CAF      T4RPTBB                               
007452,000049:    4022           56006                           XCH      BBANK                                 
007453,000050:    4023           12000                           TCF      T4RUPT                                
007454,000051: 
007455,000052:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
007456,000053:    4025           34060                           CAF      KEYRPTBB                              
007457,000054:    4026           56006                           XCH      BBANK                                 
007458,000055:    4027           13215                           TCF      KEYRUPT1                              
007459,000056: 
007460,000057:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
007461,000058:    4031           34061                           CAF      MKRUPTBB                              
007462,000059:    4032           56006                           XCH      BBANK                                 
007463,000060:    4033           12332                           TCF      MARKRUPT                              
007464,000061: 
007465,000062:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
007466,000063:    4035           34060                           CAF      UPRPTBB                               
007467,000064:    4036           56006                           XCH      BBANK                                 
007468,000065:    4037           13240                           TCF      UPRUPT                                
007469,000066: 
007470,000067:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
007471,000068:    4041           34062                           CAF      DWNRPTBB                              
007472,000069:    4042           56006                           XCH      BBANK                                 
007473,000070:    4043           13430                           TCF      DODOWNTM                              
007474,000071: 
007475,000072:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT
007476,000073:    4045           34063                           CAF      RDRPTBB                               
007477,000074: 

Page 169

007479,000076:    4046           56006                           XCH      BBANK                                 
007480,000077:    4047           13150                           TCF      RADAREAD                              
007481,000078: 
007482,000079:    4050           52011                           DXCH     ARUPT                                 #  RUPT10 IS USED ONLY BY LANDING GUIDANCE
007483,000080:    4051           34065                           CA       RUPT10BB                              
007484,000081:    4052           56006                           XCH      BBANK                                 
007485,000082:    4053           12006                           TCF      PITFALL                               
007486,000083: 
007487,000084: 
007488,000085:    4054  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0, E3
007489,000086:    4054           12103        GOBB               BBCON    GOPROG                                
007490,000087: 
007491,000088:    4055  E6,1462                                  EBANK=   PERROR                                
007492,000089:    4055           02036 36106  T6ADR              2CADR    DOT6RUPT                              
007493,000090: 
007494,000091:    4057  E3,1400                                  EBANK=   LST1                                  
007495,000092:    4057           02103        T3RPTBB            BBCON    T3RUPT                                
007496,000093: 
007497,000094:    4060     0073                                  EBANK=   KEYTEMP1                              
007498,000095:    4060           10100        KEYRPTBB           BBCON    KEYRUPT1                              
007499,000096: 
007500,000097:    4061  E7,1404                                  EBANK=   AOTAZ                                 
007501,000098:    4061           16107        MKRUPTBB           BBCON    MARKRUPT                              
007502,000099: 
007503,000100:    4062     4060               UPRPTBB            =        KEYRPTBB                              
007504,000101: 
007505,000102:    4062     0340                                  EBANK=   DNTMBUFF                              
007506,000103:    4062           12100        DWNRPTBB           BBCON    DODOWNTM                              
007507,000104: 
007508,000105:    4063     0110                                  EBANK=   RADMODES                              
007509,000106:    4063           52100        RDRPTBB            BBCON    RADAREAD                              
007510,000107: 
007511,000108:    4064  E6,1412                                  EBANK=   M11                                   
007512,000109:    4064           14106        T4RPTBB            BBCON    T4RUPT                                
007513,000110: 
007514,000111:    4065  E7,1645                                  EBANK=   ELVIRA                                
007515,000112:    4065           42107        RUPT10BB           BBCON    PITFALL                               
007516,000113: 
007517,000114: 

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