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 Colossus 249 (Apollo 9) 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 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

005444,000002:                                                                                                  ## Copyright:   Public domain.
005445,000003:                                                                                                  ## Filename:    INTERRUPT_LEAD_INS.agc
005446,000004:                                                                                                  ## Purpose:     Part of the source code for Comanche, build 055.
005447,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
005448,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), Apollo 11.
005449,000007:                                                                                                  ## Assembler:   yaYUL
005450,000008:                                                                                                  ## Reference:   pp. 131-132
005451,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>,
005452,000010:                                                                                                  ##              Fabrizio Bernardini <fabrizio@spacecraft.it>
005453,000011:                                                                                                  ## Website:     http://www.ibiblio.org/apollo.
005454,000012:                                                                                                  ## Mod history: 09/05/09 FB     Transcription of Batch FB-1 Assignment.
005455,000013:                                                                                                  ##              2016-12-10 RSB  Proofed comments with octopus/ProoferComments
005456,000014:                                                                                                  ##                              and fixed the errors found.
005457,000015:                                                                                                  ##
005458,000016:                                                                                                  ## The contents of the "Comanche055" files, in general, are transcribed 
005459,000017:                                                                                                  ## from scanned documents. 
005460,000018:                                                                                                  ##
005461,000019:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
005462,000020:                                                                                                  ##      2021113-051.  April 1, 1969.  
005463,000021:                                                                                                  ##
005464,000022:                                                                                                  ##      This AGC program shall also be referred to as Colossus 2A
005465,000023:                                                                                                  ##
005466,000024:                                                                                                  ##      Prepared by
005467,000025:                                                                                                  ##                      Massachusetts Institute of Technology
005468,000026:                                                                                                  ##                      75 Cambridge Parkway
005469,000027:                                                                                                  ##                      Cambridge, Massachusetts
005470,000028:                                                                                                  ##
005471,000029:                                                                                                  ##      under NASA contract NAS 9-4065.
005472,000030:                                                                                                  ##
005473,000031:                                                                                                  ## Refer directly to the online document mentioned above for further
005474,000032:                                                                                                  ## information.  Please report any errors to info@sandroid.org.
005475,000033: 

Page 131

005477,000035:    4000                                           SETLOC   4000                                  
005478,000036: 
005479,000037:    4000                                           COUNT    02/RUPTS                              
005480,000038: 
005481,000039:    4000           00004                           INHINT                                         #  GO
005482,000040:    4001           34054                           CAF      GOBB                                  
005483,000041:    4002           56006                           XCH      BBANK                                 
005484,000042:    4003           12526                           TCF      GOPROG                                
005485,000043: 
005486,000044:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
005487,000045:    4005           00006                           EXTEND                                         
005488,000046:    4006           31311                           DCA      T6LOC                                 
005489,000047:    4007           52006                           DTCB                                           
005490,000048: 
005491,000049:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT
005492,000050:    4011           40030                           CS       TIME5                                 
005493,000051:    4012           65036                           AD       .5SEC                                 
005494,000052:    4013           14065                           TCF      T5RUPT                                
005495,000053: 
005496,000054:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
005497,000055:    4015           34055                           CAF      T3RPTBB                               
005498,000056:    4016           56006                           XCH      BBANK                                 
005499,000057:    4017           13416                           TCF      T3RUPT                                
005500,000058: 
005501,000059:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
005502,000060:    4021           34063                           CAF      T4RPTBB                               
005503,000061:    4022           56006                           XCH      BBANK                                 
005504,000062:    4023           12000                           TCF      T4RUPT                                
005505,000063: 
005506,000064:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
005507,000065:    4025           34056                           CAF      KEYRPTBB                              
005508,000066:    4026           56006                           XCH      BBANK                                 
005509,000067:    4027           13673                           TCF      KEYRUPT1                              
005510,000068: 
005511,000069:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
005512,000070:    4031           34057                           CAF      MKRUPTBB                              
005513,000071:    4032           56006                           XCH      BBANK                                 
005514,000072:    4033           12104                           TCF      MARKRUPT                              
005515,000073: 
005516,000074:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
005517,000075:    4035           34056                           CAF      UPRPTBB                               
005518,000076:    4036           56006                           XCH      BBANK                                 
005519,000077:    4037           13716                           TCF      UPRUPT                                
005520,000078: 
005521,000079:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
005522,000080:    4041           34060                           CAF      DWNRPTBB                              
005523,000081:    4042           56006                           XCH      BBANK                                 
005524,000082:    4043           13521                           TCF      DODOWNTM                              
005525,000083: 
005526,000084:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT

Page 132

005528,000086:    4045           34061                           CAF      RDRPTBB                               
005529,000087:    4046           56006                           XCH      BBANK                                 
005530,000088:    4047           12504                           TCF      VHFREAD                               
005531,000089: 
005532,000090:    4050           52011                           DXCH     ARUPT                                 #  HAND CONTROL RUPT
005533,000091:    4051           34062                           CAF      HCRUPTBB                              
005534,000092:    4052           56006                           XCH      BBANK                                 
005535,000093:    4053           15336                           TCF      RESUME     +3                         #  NOT USED
005536,000094: 
005537,000095:    4054  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0,E3
005538,000096:    4054           12063        GOBB               BBCON    GOPROG                                
005539,000097: 
005540,000098:    4055  E3,1400                                  EBANK=   LST1                                  
005541,000099:    4055           02063        T3RPTBB            BBCON    T3RUPT                                
005542,000100: 
005543,000101:    4056     0073                                  EBANK=   KEYTEMP1                              
005544,000102:    4056           16060        KEYRPTBB           BBCON    KEYRUPT1                              
005545,000103: 
005546,000104:    4057  E7,1725                                  EBANK=   MRKBUF1                               
005547,000105:    4057           16067        MKRUPTBB           BBCON    MARKRUPT                              
005548,000106: 
005549,000107:    4060     4056               UPRPTBB            =        KEYRPTBB                              
005550,000108: 
005551,000109:    4060     0340                                  EBANK=   DNTMBUFF                              
005552,000110:    4060           12060        DWNRPTBB           BBCON    DODOWNTM                              
005553,000111: 
005554,000112:    4061  E7,1603                                  EBANK=   DATATEST                              
005555,000113:    4061           56067        RDRPTBB            BBCON    VHFREAD                               
005556,000114: 
005557,000115:    4062     0025                                  EBANK=   TIME1                                 
005558,000116:    4062           04060        HCRUPTBB           BBCON    RESUME                                #  NOT USED
005559,000117: 
005560,000118:    4063     1302                                  EBANK=   DSRUPTSW                              
005561,000119:    4063           14062        T4RPTBB            BBCON    T4RUPT                                
005562,000120: 
005563,000121:    4064     0025                                  EBANK=   TIME1                                 
005564,000122:    4064           04060        T5RPTBB            BBCON    T5RUPT                                
005565,000123: 
005566,000124:    4065           00006        T5RUPT             EXTEND                                         
005567,000125:    4066           65337                           BZMF     NOQBRSM                               
005568,000126:    4067           00006                           EXTEND                                         
005569,000127:    4070           31313                           DCA      T5LOC                                 
005570,000128:    4071           52006                           DTCB                                           
005571,000129: 
005572,000130: 
005573,000131: 

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