Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. 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:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

005308,000002:                                                                                                  ## Copyright:   Public domain.
005309,000003:                                                                                                  ## Filename:    INTERRUPT_LEAD_INS.agc
005310,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
005311,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
005312,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
005313,000007:                                                                                                  ## Assembler:   yaYUL
005314,000008:                                                                                                  ## Reference:   pp. 127-128
005315,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
005316,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
005317,000011:                                                                                                  ## Mod history: 08/06/04 RSB.   Adapted from similar Luminary 131 file.
005318,000012:                                                                                                  ##              2017-01-05 RSB  Page numbers now agree with those on the
005319,000013:                                                                                                  ##                              original harcopy, as opposed to the PDF page
005320,000014:                                                                                                  ##                              numbers in 1701.pdf.
005321,000015:                                                                                                  ##              2017-01-14 RSB  Cross-diff'd comment text (not whitespace)
005322,000016:                                                                                                  ##                              vs the already-proofed corresponding Colossus
005323,000017:                                                                                                  ##                              237 and Comanche 55 source-code files
005324,000018:                                                                                                  ##                              and corrected errors found.  No differences
005325,000019:                                                                                                  ##                              remain.
005326,000020:                                                                                                  ##
005327,000021:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
005328,000022:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
005329,000023:                                                                                                  ## document read, in part:
005330,000024:                                                                                                  ##
005331,000025:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
005332,000026:                                                                                                  ##      2021111-041.  October 28, 1968.  
005333,000027:                                                                                                  ##
005334,000028:                                                                                                  ##      This AGC program shall also be referred to as
005335,000029:                                                                                                  ##                              Colossus 1A
005336,000030:                                                                                                  ##
005337,000031:                                                                                                  ##      Prepared by
005338,000032:                                                                                                  ##                      Massachusetts Institute of Technology
005339,000033:                                                                                                  ##                      75 Cambridge Parkway
005340,000034:                                                                                                  ##                      Cambridge, Massachusetts
005341,000035:                                                                                                  ##      under NASA contract NAS 9-4065.
005342,000036:                                                                                                  ##
005343,000037:                                                                                                  ## Refer directly to the online document mentioned above for further information.
005344,000038:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
005345,000039:                                                                                                  ##
005346,000040:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
005347,000041:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
005348,000042:                                                                                                  ## source file, and then is proofed to incorporate any changes.
005349,000043: 

Page 127

005351,000045:    4000                                           SETLOC   4000                                  
005352,000046: 
005353,000047:    4000                                           COUNT    02/RUPTS                              
005354,000048: 
005355,000049:    4000           00004                           INHINT                                         #  GO
005356,000050:    4001           34054                           CAF      GOBB                                  
005357,000051:    4002           56006                           XCH      BBANK                                 
005358,000052:    4003           12520                           TCF      GOPROG                                
005359,000053: 
005360,000054:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
005361,000055:    4005           00006                           EXTEND                                         
005362,000056:    4006           31311                           DCA      T6LOC                                 
005363,000057:    4007           52006                           DTCB                                           
005364,000058: 
005365,000059:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT
005366,000060:    4011           40030                           CS       TIME5                                 
005367,000061:    4012           64731                           AD       .5SEC                                 
005368,000062:    4013           14065                           TCF      T5RUPT                                
005369,000063: 
005370,000064:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
005371,000065:    4015           34055                           CAF      T3RPTBB                               
005372,000066:    4016           56006                           XCH      BBANK                                 
005373,000067:    4017           13416                           TCF      T3RUPT                                
005374,000068: 
005375,000069:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
005376,000070:    4021           34063                           CAF      T4RPTBB                               
005377,000071:    4022           56006                           XCH      BBANK                                 
005378,000072:    4023           12000                           TCF      T4RUPT                                
005379,000073: 
005380,000074:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
005381,000075:    4025           34056                           CAF      KEYRPTBB                              
005382,000076:    4026           56006                           XCH      BBANK                                 
005383,000077:    4027           13613                           TCF      KEYRUPT1                              
005384,000078: 
005385,000079:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
005386,000080:    4031           34057                           CAF      MKRUPTBB                              
005387,000081:    4032           56006                           XCH      BBANK                                 
005388,000082:    4033           12103                           TCF      MARKRUPT                              
005389,000083: 
005390,000084:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
005391,000085:    4035           34056                           CAF      UPRPTBB                               
005392,000086:    4036           56006                           XCH      BBANK                                 
005393,000087:    4037           13636                           TCF      UPRUPT                                
005394,000088: 
005395,000089:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
005396,000090:    4041           34060                           CAF      DWNRPTBB                              
005397,000091:    4042           56006                           XCH      BBANK                                 
005398,000092:    4043           13342                           TCF      DODOWNTM                              
005399,000093: 
005400,000094:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT

Page 128

005402,000096:    4045           34061                           CAF      RDRPTBB                               
005403,000097:    4046           56006                           XCH      BBANK                                 
005404,000098:    4047           12476                           TCF      VHFREAD                               
005405,000099: 
005406,000100:    4050           52011                           DXCH     ARUPT                                 #  HAND CONTROL RUPT
005407,000101:    4051           34062                           CA       HCRUPTBB                              
005408,000102:    4052           56006                           XCH      BBANK                                 
005409,000103:    4053           15225                           TCF      RESUME     +3                         #  NOT USED
005410,000104: 
005411,000105:    4054  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0,E3
005412,000106:    4054           12063        GOBB               BBCON    GOPROG                                
005413,000107: 
005414,000108:    4055  E3,1400                                  EBANK=   LST1                                  
005415,000109:    4055           02063        T3RPTBB            BBCON    T3RUPT                                
005416,000110: 
005417,000111:    4056     0073                                  EBANK=   KEYTEMP1                              
005418,000112:    4056           16060        KEYRPTBB           BBCON    KEYRUPT1                              
005419,000113: 
005420,000114:    4057  E7,1725                                  EBANK=   MRKBUF1                               
005421,000115:    4057           16067        MKRUPTBB           BBCON    MARKRUPT                              
005422,000116: 
005423,000117:    4060     4056               UPRPTBB            =        KEYRPTBB                              
005424,000118: 
005425,000119:    4060     0340                                  EBANK=   DNTMBUFF                              
005426,000120:    4060           12060        DWNRPTBB           BBCON    DODOWNTM                              
005427,000121: 
005428,000122:    4061  E7,1603                                  EBANK=   DATATEST                              
005429,000123:    4061           56067        RDRPTBB            BBCON    VHFREAD                               
005430,000124: 
005431,000125:    4062     0025                                  EBANK=   TIME1                                 
005432,000126:    4062           04060        HCRUPTBB           BBCON    RESUME                                #  NOT USED
005433,000127: 
005434,000128:    4063     1302                                  EBANK=   DSRUPTSW                              
005435,000129:    4063           14062        T4RPTBB            BBCON    T4RUPT                                
005436,000130: 
005437,000131:    4064     0025                                  EBANK=   TIME1                                 
005438,000132:    4064           04060        T5RPTBB            BBCON    T5RUPT                                
005439,000133: 
005440,000134:    4065           00006        T5RUPT             EXTEND                                         
005441,000135:    4066           65226                           BZMF     NOQBRSM                               
005442,000136:    4067           00006                           EXTEND                                         
005443,000137:    4070           31313                           DCA      T5LOC                                 
005444,000138:    4071           52006                           DTCB                                           
005445,000139: 
005446,000140: 

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