Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional 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 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

005574,000002:                                                                                                  ## Copyright:   Public domain.
005575,000003:                                                                                                  ## Filename:    INTERRUPT_LEAD_INS.agc
005576,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.  
005577,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
005578,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
005579,000007:                                                                                                  ## Assembler:   yaYUL
005580,000008:                                                                                                  ## Reference:   pp. 126-127
005581,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
005582,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
005583,000011:                                                                                                  ## Mod history: 2010-12-04 JL   Adapted from similar Colossus 249 file.
005584,000012:                                                                                                  ##              2016-12-29 RSB  Proofed comment text using octopus/ProoferComments,
005585,000013:                                                                                                  ##                              but no errors found.
005586,000014: 

Page 126

005588,000016:    4000                                           SETLOC   4000                                  
005589,000017: 
005590,000018:    4000                                           COUNT    02/RUPTS                              
005591,000019: 
005592,000020:    4000           00004                           INHINT                                         #  GO
005593,000021:    4001           34054                           CAF      GOBB                                  
005594,000022:    4002           56006                           XCH      BBANK                                 
005595,000023:    4003           12511                           TCF      GOPROG                                
005596,000024: 
005597,000025:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
005598,000026:    4005           00006                           EXTEND                                         
005599,000027:    4006           31311                           DCA      T6LOC                                 
005600,000028:    4007           52006                           DTCB                                           
005601,000029: 
005602,000030:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT
005603,000031:    4011           40030                           CS       TIME5                                 
005604,000032:    4012           64731                           AD       .5SEC                                 
005605,000033:    4013           14065                           TCF      T5RUPT                                
005606,000034: 
005607,000035:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
005608,000036:    4015           34055                           CAF      T3RPTBB                               
005609,000037:    4016           56006                           XCH      BBANK                                 
005610,000038:    4017           13416                           TCF      T3RUPT                                
005611,000039: 
005612,000040:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
005613,000041:    4021           34063                           CAF      T4RPTBB                               
005614,000042:    4022           56006                           XCH      BBANK                                 
005615,000043:    4023           12000                           TCF      T4RUPT                                
005616,000044: 
005617,000045:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
005618,000046:    4025           34056                           CAF      KEYRPTBB                              
005619,000047:    4026           56006                           XCH      BBANK                                 
005620,000048:    4027           13613                           TCF      KEYRUPT1                              
005621,000049: 
005622,000050:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
005623,000051:    4031           34057                           CAF      MKRUPTBB                              
005624,000052:    4032           56006                           XCH      BBANK                                 
005625,000053:    4033           12103                           TCF      MARKRUPT                              
005626,000054: 
005627,000055:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
005628,000056:    4035           34056                           CAF      UPRPTBB                               
005629,000057:    4036           56006                           XCH      BBANK                                 
005630,000058:    4037           13636                           TCF      UPRUPT                                
005631,000059: 
005632,000060:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
005633,000061:    4041           34060                           CAF      DWNRPTBB                              
005634,000062:    4042           56006                           XCH      BBANK                                 
005635,000063:    4043           13331                           TCF      DODOWNTM                              
005636,000064: 
005637,000065:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT

Page 127

005639,000067:    4045           34061                           CAF      RDRPTBB                               
005640,000068:    4046           56006                           XCH      BBANK                                 
005641,000069:    4047           12476                           TCF      VHFREAD                               
005642,000070: 
005643,000071:    4050           52011                           DXCH     ARUPT                                 #  HAND CONTROL RUPT
005644,000072:    4051           34062                           CA       HCRUPTBB                              
005645,000073:    4052           56006                           XCH      BBANK                                 
005646,000074:    4053           15225                           TCF      RESUME     +3                         #  NOT USED
005647,000075:    4054  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0,E3
005648,000076:    4054           12063        GOBB               BBCON    GOPROG                                
005649,000077: 
005650,000078:    4055  E3,1400                                  EBANK=   LST1                                  
005651,000079:    4055           02063        T3RPTBB            BBCON    T3RUPT                                
005652,000080: 
005653,000081:    4056     0073                                  EBANK=   KEYTEMP1                              
005654,000082:    4056           16060        KEYRPTBB           BBCON    KEYRUPT1                              
005655,000083: 
005656,000084:    4057  E7,1725                                  EBANK=   MRKBUF1                               
005657,000085:    4057           16067        MKRUPTBB           BBCON    MARKRUPT                              
005658,000086: 
005659,000087:    4060     4056               UPRPTBB            =        KEYRPTBB                              
005660,000088: 
005661,000089:    4060     0340                                  EBANK=   DNTMBUFF                              
005662,000090:    4060           12060        DWNRPTBB           BBCON    DODOWNTM                              
005663,000091: 
005664,000092:    4061  E7,1603                                  EBANK=   DATATEST                              
005665,000093:    4061           56067        RDRPTBB            BBCON    VHFREAD                               
005666,000094:    4062     0025                                  EBANK=   TIME1                                 
005667,000095:    4062           04060        HCRUPTBB           BBCON    RESUME                                #  NOT USED
005668,000096:    4063     1302                                  EBANK=   DSRUPTSW                              
005669,000097:    4063           14062        T4RPTBB            BBCON    T4RUPT                                
005670,000098:    4064     0025                                  EBANK=   TIME1                                 
005671,000099:    4064           04060        T5RPTBB            BBCON    T5RUPT                                
005672,000100: 
005673,000101:    4065           00006        T5RUPT             EXTEND                                         
005674,000102:    4066           65226                           BZMF     NOQBRSM                               
005675,000103:    4067           00006                           EXTEND                                         
005676,000104:    4070           31313                           DCA      T5LOC                                 
005677,000105:    4071           52006                           DTCB                                           

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