Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. 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

005564,000002:                                                                                                 #  Copyright:     Public domain.
005565,000003:                                                                                                 #  Filename:      INTERRUPT_LEAD_INS.agc
005566,000004:                                                                                                 #  Purpose:       Part of the source code for Colossus build 237.  
005567,000005:                                                                                                 #                 This is for the Command Module's (CM) Apollo Guidance
005568,000006:                                                                                                 #                 Computer (AGC), we believe for Apollo 8.
005569,000007:                                                                                                 #  Assembler:     yaYUL
005570,000008:                                                                                                 #  Reference:     pp. 126-127
005571,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
005572,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo.
005573,000011:                                                                                                 #  Mod history:   2010-12-04 JL   Adapted from similar Colossus 249 file.
005574,000012: 
005575,000013:                                                                                                 # # Page 126
005576,000014:    4000                                          SETLOC   4000                                  
005577,000015: 
005578,000016:    4000                                          COUNT    02/RUPTS                              
005579,000017: 
005580,000018:    4000           00004                          INHINT                                         #  GO
005581,000019:    4001           34054                          CAF      GOBB                                  
005582,000020:    4002           56006                          XCH      BBANK                                 
005583,000021:    4003           12511                          TCF      GOPROG                                
005584,000022: 
005585,000023:    4004           52011                          DXCH     ARUPT                                 #  T6RUPT
005586,000024:    4005           00006                          EXTEND                                         
005587,000025:    4006           31311                          DCA      T6LOC                                 
005588,000026:    4007           52006                          DTCB                                           
005589,000027: 
005590,000028:    4010           52011                          DXCH     ARUPT                                 #  T5RUPT
005591,000029:    4011           40030                          CS       TIME5                                 
005592,000030:    4012           64731                          AD       .5SEC                                 
005593,000031:    4013           14065                          TCF      T5RUPT                                
005594,000032: 
005595,000033:    4014           52011                          DXCH     ARUPT                                 #  T3RUPT
005596,000034:    4015           34055                          CAF      T3RPTBB                               
005597,000035:    4016           56006                          XCH      BBANK                                 
005598,000036:    4017           13416                          TCF      T3RUPT                                
005599,000037: 
005600,000038:    4020           52011                          DXCH     ARUPT                                 #  T4RUPT
005601,000039:    4021           34063                          CAF      T4RPTBB                               
005602,000040:    4022           56006                          XCH      BBANK                                 
005603,000041:    4023           12000                          TCF      T4RUPT                                
005604,000042: 
005605,000043:    4024           52011                          DXCH     ARUPT                                 #  KEYRUPT1
005606,000044:    4025           34056                          CAF      KEYRPTBB                              
005607,000045:    4026           56006                          XCH      BBANK                                 
005608,000046:    4027           13613                          TCF      KEYRUPT1                              
005609,000047: 
005610,000048:    4030           52011                          DXCH     ARUPT                                 #  KEYRUPT2
005611,000049:    4031           34057                          CAF      MKRUPTBB                              
005612,000050:    4032           56006                          XCH      BBANK                                 
005613,000051:    4033           12103                          TCF      MARKRUPT                              
005614,000052: 
005615,000053:    4034           52011                          DXCH     ARUPT                                 #  UPRUPT
005616,000054:    4035           34056                          CAF      UPRPTBB                               
005617,000055:    4036           56006                          XCH      BBANK                                 
005618,000056:    4037           13636                          TCF      UPRUPT                                
005619,000057: 
005620,000058:    4040           52011                          DXCH     ARUPT                                 #  DOWNRUPT
005621,000059:    4041           34060                          CAF      DWNRPTBB                              
005622,000060:    4042           56006                          XCH      BBANK                                 
005623,000061:    4043           13331                          TCF      DODOWNTM                              
005624,000062: 
005625,000063:    4044           52011                          DXCH     ARUPT                                 #  RADAR RUPT
005626,000064:                                                                                                 # # Page 127
005627,000065:    4045           34061                          CAF      RDRPTBB                               
005628,000066:    4046           56006                          XCH      BBANK                                 
005629,000067:    4047           12476                          TCF      VHFREAD                               
005630,000068: 
005631,000069:    4050           52011                          DXCH     ARUPT                                 #  HAND CONTROL RUPT
005632,000070:    4051           34062                          CA       HCRUPTBB                              
005633,000071:    4052           56006                          XCH      BBANK                                 
005634,000072:    4053           15225                          TCF      RESUME     +3                         #  NOT USED
005635,000073:    4054  E3,1400                                 EBANK=   LST1                                  #  RESTART USES E0,E3
005636,000074:    4054           12063        GOBB              BBCON    GOPROG                                
005637,000075: 
005638,000076:    4055  E3,1400                                 EBANK=   LST1                                  
005639,000077:    4055           02063        T3RPTBB           BBCON    T3RUPT                                
005640,000078: 
005641,000079:    4056     0073                                 EBANK=   KEYTEMP1                              
005642,000080:    4056           16060        KEYRPTBB          BBCON    KEYRUPT1                              
005643,000081: 
005644,000082:    4057  E7,1725                                 EBANK=   MRKBUF1                               
005645,000083:    4057           16067        MKRUPTBB          BBCON    MARKRUPT                              
005646,000084: 
005647,000085:    4060     4056               UPRPTBB           =        KEYRPTBB                              
005648,000086: 
005649,000087:    4060     0340                                 EBANK=   DNTMBUFF                              
005650,000088:    4060           12060        DWNRPTBB          BBCON    DODOWNTM                              
005651,000089: 
005652,000090:    4061  E7,1603                                 EBANK=   DATATEST                              
005653,000091:    4061           56067        RDRPTBB           BBCON    VHFREAD                               
005654,000092:    4062     0025                                 EBANK=   TIME1                                 
005655,000093:    4062           04060        HCRUPTBB          BBCON    RESUME                                #  NOT USED
005656,000094:    4063     1302                                 EBANK=   DSRUPTSW                              
005657,000095:    4063           14062        T4RPTBB           BBCON    T4RUPT                                
005658,000096:    4064     0025                                 EBANK=   TIME1                                 
005659,000097:    4064           04060        T5RPTBB           BBCON    T5RUPT                                
005660,000098: 
005661,000099:    4065           00006        T5RUPT            EXTEND                                         
005662,000100:    4066           65226                          BZMF     NOQBRSM                               
005663,000101:    4067           00006                          EXTEND                                         
005664,000102:    4070           31313                          DCA      T5LOC                                 
005665,000103:    4071           52006                          DTCB                                           

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