Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

006212,000002:                                                                                                  ## Copyright:   Public domain.
006213,000003:                                                                                                  ## Filename:    INTERRUT_LEAD_INS.agc
006214,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
006215,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
006216,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
006217,000007:                                                                                                  ## Assembler:   yaYUL
006218,000008:                                                                                                  ## Contact:     Onno Hommes <ohommes@cmu.edu>.
006219,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
006220,000010:                                                                                                  ## Pages:       0153-0154
006221,000011:                                                                                                  ## Mod history: 2009-05-14 OH   Transcribed from page images.
006222,000012:                                                                                                  ##              2016-12-13 RSB  Proofed text comments with octopus/ProoferComments
006223,000013:                                                                                                  ##                              and corrected the errors found.
006224,000014:                                                                                                  ##
006225,000015:                                                                                                  ## This source code has been transcribed or otherwise adapted from
006226,000016:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
006227,000017:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
006228,000018:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
006229,000019:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
006230,000020:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
006231,000021:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
006232,000022:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
006233,000023:                                                                                                  ## actually created.
006234,000024:                                                                                                  ##
006235,000025:                                                                                                  ## Notations on the hardcopy document read, in part:
006236,000026:                                                                                                  ##
006237,000027:                                                                                                  ##      Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
006238,000028:                                                                                                  ##      16:27 JULY 14, 1969 
006239,000029: 
006240,000030: 

Page 153

006242,000032:    4000                                           SETLOC   4000                                  
006243,000033: 
006244,000034:    4000                                           COUNT*   $$/RUPTS                              #  FIX-FIX LEAD INS
006245,000035:    4000           00004                           INHINT                                         #  GO
006246,000036:    4001           34054                           CAF      GOBB                                  
006247,000037:    4002           56006                           XCH      BBANK                                 
006248,000038:    4003           12667                           TCF      GOPROG                                
006249,000039: 
006250,000040:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
006251,000041:    4005           00006                           EXTEND                                         
006252,000042:    4006           34056                           DCA      T6ADR                                 
006253,000043:    4007           52006                           DTCB                                           
006254,000044: 
006255,000045:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT - AUTOPILOT
006256,000046:    4011           00006                           EXTEND                                         
006257,000047:    4012           31275                           DCA      T5ADR                                 
006258,000048:    4013           52006                           DTCB                                           
006259,000049: 
006260,000050:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
006261,000051:    4015           34057                           CAF      T3RPTBB                               
006262,000052:    4016           56006                           XCH      BBANK                                 
006263,000053:    4017           13407                           TCF      T3RUPT                                
006264,000054: 
006265,000055:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
006266,000056:    4021           34064                           CAF      T4RPTBB                               
006267,000057:    4022           56006                           XCH      BBANK                                 
006268,000058:    4023           12000                           TCF      T4RUPT                                
006269,000059: 
006270,000060:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
006271,000061:    4025           34060                           CAF      KEYRPTBB                              
006272,000062:    4026           56006                           XCH      BBANK                                 
006273,000063:    4027           13274                           TCF      KEYRUPT1                              
006274,000064: 
006275,000065:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
006276,000066:    4031           34061                           CAF      MKRUPTBB                              
006277,000067:    4032           56006                           XCH      BBANK                                 
006278,000068:    4033           12332                           TCF      MARKRUPT                              
006279,000069: 
006280,000070:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
006281,000071:    4035           34060                           CAF      UPRPTBB                               
006282,000072:    4036           56006                           XCH      BBANK                                 
006283,000073:    4037           13317                           TCF      UPRUPT                                
006284,000074: 
006285,000075:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
006286,000076:    4041           34062                           CAF      DWNRPTBB                              
006287,000077:    4042           56006                           XCH      BBANK                                 
006288,000078:    4043           13506                           TCF      DODOWNTM                              
006289,000079: 
006290,000080:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT
006291,000081:    4045           34063                           CAF      RDRPTBB                               

Page 154

006293,000083:    4046           56006                           XCH      BBANK                                 
006294,000084:    4047           13150                           TCF      RADAREAD                              
006295,000085: 
006296,000086:    4050           52011                           DXCH     ARUPT                                 #  RUPT10 IS USED ONLY BY LANDING GUIDANCE
006297,000087:    4051           34065                           CA       RUPT10BB                              
006298,000088:    4052           56006                           XCH      BBANK                                 
006299,000089:    4053           12275                           TCF      PITFALL                               
006300,000090: 
006301,000091: 
006302,000092:    4054  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0, E3
006303,000093:    4054           12103        GOBB               BBCON    GOPROG                                
006304,000094: 
006305,000095:    4055  E6,1464                                  EBANK=   PERROR                                
006306,000096:    4055           02065 36106  T6ADR              2CADR    DOT6RUPT                              
006307,000097: 
006308,000098:    4057  E3,1400                                  EBANK=   LST1                                  
006309,000099:    4057           02103        T3RPTBB            BBCON    T3RUPT                                
006310,000100: 
006311,000101:    4060     0073                                  EBANK=   KEYTEMP1                              
006312,000102:    4060           10100        KEYRPTBB           BBCON    KEYRUPT1                              
006313,000103: 
006314,000104:    4061  E7,1404                                  EBANK=   AOTAZ                                 
006315,000105:    4061           16107        MKRUPTBB           BBCON    MARKRUPT                              
006316,000106: 
006317,000107:    4062     4060               UPRPTBB            =        KEYRPTBB                              
006318,000108: 
006319,000109:    4062     0340                                  EBANK=   DNTMBUFF                              
006320,000110:    4062           12100        DWNRPTBB           BBCON    DODOWNTM                              
006321,000111: 
006322,000112:    4063     0110                                  EBANK=   RADMODES                              
006323,000113:    4063           52100        RDRPTBB            BBCON    RADAREAD                              
006324,000114: 
006325,000115:    4064  E6,1414                                  EBANK=   M11                                   
006326,000116:    4064           14106        T4RPTBB            BBCON    T4RUPT                                
006327,000117: 
006328,000118:    4065     1265                                  EBANK=   ELVIRA                                
006329,000119:    4065           22102        RUPT10BB           BBCON    PITFALL                               
006330,000120: 

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