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

049393,000002:                                                                                                 #  Copyright:    Public domain.
049394,000003:                                                                                                 #  Filename:      FIXED-FIXED_CONSTANT_POOL.agc
049395,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
049396,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
049397,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
049398,000007:                                                                                                 #  Assembler:    yaYUL
049399,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
049400,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
049401,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
049402,000011:                                                                                                 #  Mod history:  2011-04-11 JL    Adapted from corresponding Colossus 249 file.
049403,000012: 
049404,000013:                                                                                                 # # Page 1167
049405,000014:    4671                                          BLOCK    02                                    
049406,000015: 
049407,000016:    4671                                          COUNT*   02/FCONS                              
049408,000017: 
049409,000018:                                                                                                 #   THE FOLLOWING TABLE OF 18 VALUES IS INDEXED. DO NOT INSERT OR REMOVE ANY QUANTITIES.
049410,000019: 
049411,000020:    4671           37777        DPOSMAX           OCT      37777                                 #  MUST PRECEDE POSMAX
049412,000021:    4672           37777        POSMAX            OCT      37777                                 
049413,000022: 
049414,000023:    4673     4673               LIMITS            =        NEG1/2                                
049415,000024: 
049416,000025:    4673           57777        NEG1/2            OCT      -20000                                #  USED BY SIN ROUTINE (MUST BE TWO 
049417,000026:                                                                                                 #                                           LOCATIONS IN FRONT OF BIT14)
049418,000027:                                                                                                 #           BIT TABLE                                     
049419,000028: 
049420,000029:    4674           40000        BIT15             OCT      40000                                 
049421,000030:    4675           20000        BIT14             OCT      20000                                 
049422,000031:    4676           10000        BIT13             OCT      10000                                 
049423,000032:    4677           04000        BIT12             OCT      04000                                 
049424,000033:    4700           02000        BIT11             OCT      02000                                 
049425,000034:    4701           01000        BIT10             OCT      01000                                 
049426,000035:    4702           00400        BIT9              OCT      00400                                 
049427,000036:    4703           00200        BIT8              OCT      00200                                 
049428,000037:    4704           00100        BIT7              OCT      00100                                 
049429,000038:    4705           00040        BIT6              OCT      00040                                 
049430,000039:    4706           00020        BIT5              OCT      00020                                 
049431,000040:    4707           00010        BIT4              OCT      00010                                 
049432,000041:    4710           00004        BIT3              OCT      00004                                 
049433,000042:    4711           00002        BIT2              OCT      00002                                 
049434,000043:    4712           00001        BIT1              OCT      00001                                 
049435,000044: 
049436,000045: 
049437,000046:                                                                                                 #  DO NOT DESTROY THIS COMBINATION, SINCE IT IS USED IN DOUBLE PRECISION INSTRUCTIONS.
049438,000047:    4713           77777        NEG0              OCT      -0                                    #  MUST PRECEDE ZERO
049439,000048:    4714           00000        ZERO              OCT      0                                     #  MUST FOLLOW NEG0
049440,000049:                                                                                                 # BIT1            OCT     00001
049441,000050:                                                                                                 # NO.WDS          OCT     2               # INTERPRETER
049442,000051:                                                                                                 # OCTAL3          OCT     3               # INTERPRETER
049443,000052:                                                                                                 # R3D1            OCT     4               # PINBALL
049444,000053:    4715           00005        FIVE              OCT      5                                     
049445,000054:                                                                                                 # REVCNT          OCT     6               # INTERPRETER
049446,000055:    4716           00007        SEVEN             OCT      7                                     
049447,000056:                                                                                                 # BIT4            OCT     00010
049448,000057:                                                                                                 # R2D1            OCT     11              # PINBALL
049449,000058:    4717     4334               OCT11             =        R2D1                                  #  P20S
049450,000059:                                                                                                 # BINCON          DEC     10              # PINBALL            (OCTAL 12)
049451,000060:    4717           00013        ELEVEN            DEC      11         B-14                       
049452,000061:                                                                                                 # OCT14           OCT     14              # ALARM AND ABORT (FILLER)
049453,000062:    4720           00015        OCT15             OCT      15                                    
049454,000063:                                                                                                 # R1D1            OCT     16              # PINBALL
049455,000064:                                                                                                 # # Page 1168
049456,000065:    4721           00017        LOW4              OCT      17                                    
049457,000066:                                                                                                 # BIT5            OCT     00020
049458,000067:                                                                                                 # ND1             OCT     21              # PINBALL
049459,000068:                                                                                                 # VD1             OCT     23              # PINBALL
049460,000069:                                                                                                 # OCT24           OCT     24              # SERVICE ROUTINES
049461,000070:                                                                                                 # MD1             OCT     25              # PINBALL
049462,000071:    4722           00030        BITS4&5           OCT      30                                    
049463,000072:                                                                                                 # OCT31           OCT     31              # SERVICE ROUTINES
049464,000073:    4723           00032        CALLCODE          OCT      00032                                 
049465,000074:                                                                                                 # LOW5            OCT     37              # PINBALL
049466,000075:                                                                                                 # 33DEC           DEC     33              # PINBALL            (OCTAL 41)
049467,000076:                                                                                                 # 34DEC           DEC     34              # PINBALL            (OCTAL 42)
049468,000077:    4724           00045        TBUILDFX          DEC      37         B-14                       #  BUILDUP FOR CONVIENCE IN DAPTESTING
049469,000078:    4725           00046        TDECAYFX          DEC      38         B-14                       #  CONVENIENCE FOR DAPTESTING
049470,000079:                                                                                                 # BIT6            OCT     00040
049471,000080:    4726           00050        OCT50             OCT      50                                    
049472,000081:    4727           00055        DEC45             DEC      45         B-14                       
049473,000082:    4730           00060        SUPER011          OCT      60                                    #  BITS FOR SUPERBNK SETTING 011.
049474,000083:    4731           00062        .5SEC             DEC      50         B-14                       
049475,000084:                                                                                                 # BIT7            OCT     00100
049476,000085: 
049477,000086:    4732     4704               SUPER100          =        BIT7                                  #  BITS FOR SUPERBNK SETTING 100
049478,000087:                                                                                                 #                                           (LAST 4K OF ROPE)
049479,000088:    4732           00120        SUPER101          OCT      120                                   #  BITS FOR SUPERBNK SETTING 101
049480,000089:                                                                                                 # OCT121          OCT     121             # SERVICE ROUTINES
049481,000090:                                                                                                 #                                           (FIRST 8K OF ACM)
049482,000091:    4733           00140        SUPER110          OCT      140                                   #  BITS FOR SUPERBNK SETTING 110.
049483,000092:                                                                                                 #                                           (LAST BK OF ACM)
049484,000093:    4734           00144        1SEC              DEC      100        B-14                       
049485,000094:                                                                                                 # LOW7            OCT     177             # INTERPRETER
049486,000095:                                                                                                 # BIT8            OCT     00200
049487,000096:                                                                                                 # OT215           OCT     215             # ALARM AND ABORT
049488,000097:                                                                                                 # 8,5             OCT     00220           # P20-P25 SUNDANCE
049489,000098:    4735           00310        2SECS             DEC      200        B-14                       
049490,000099:                                                                                                 # LOW8            OCT     377             # PINBALL
049491,000100:                                                                                                 # BIT9            OCT     00400
049492,000101:    4736           00401        GN/CCODE          OCT      00401                                 #  SET S/C CONTROL SWITCH TO G/N
049493,000102:    4737           00454        3SECS             DEC      300        B-14                       
049494,000103:    4740           00620        4SECS             DEC      400        B-14                       
049495,000104:    4741           00777        LOW9              OCT      777                                   
049496,000105:                                                                                                 # BIT10           OCT     01000
049497,000106:                                                                                                 # 5.5DEGS DEC     .03056          # P20-P25 SUNDANCE   (OCTAL 00765)
049498,000107:                                                                                                 # OCT1103 OCT     1103            # ALARM AND ABORT
049499,000108:    4742           01124        C5/2              DEC      .0363551                              #                     (OCTAL 01124)
049500,000109:    4743           01211        V05N09            VN       0509                                  #  (SAME AS OCTAL 1211)
049501,000110:    4744           01400        OCT1400           OCT      01400                                 
049502,000111:    4745           01426        V06N22            VN       0622                                  
049503,000112:                                                                                                 # MID5            OCT     1740            # PINBALL
049504,000113:    4746           01776        BITS2-10          OCT      1776                                  
049505,000114:    4747           01777        LOW10             OCT      1777                                  
049506,000115:                                                                                                 # # Page 1169
049507,000116:                                                                                                 # BIT11           OCT     02000
049508,000117:                                                                                                 # 2K+3            OCT     2003            # PINBALL
049509,000118:    4750           02177        LOW7+2K           OCT      2177                                  #  OP CODE MASK + BANK 1 FBANK SETTING.
049510,000119:    4751           02400        EBANK5            OCT      02400                                 
049511,000120:    4752           03000        PRIO3             OCT      03000                                 
049512,000121:    4753           03400        EBANK7            OCT      03400                                 
049513,000122:                                                                                                 # LOW11           OCT     3777            # PINBALL
049514,000123:                                                                                                 # BIT12           OCT     04000
049515,000124:                                                                                                 # RELTAB          OCT     04025           # T4RUPT
049516,000125:    4754           05000        PRIO5             OCT      05000                                 
049517,000126:    4755           06000        PRIO6             OCT      06000                                 
049518,000127:    4756           07000        PRIO7             OCT      07000                                 
049519,000128: 
049520,000129:                                                                                                 # BIT13           OCT     10000
049521,000130:                                                                                                 #                 OCT     10003           # T4RUPT     RELTAB +1D
049522,000131:                                                                                                 # 13,7,2          OCT     10102           # P20-P25 SUNDANCE
049523,000132:    4757           11000        PRIO11            OCT      11000                                 
049524,000133:                                                                                                 # PRIO12          OCT     12000           # BANKCALL
049525,000134:    4760           13000        PRIO13            OCT      13000                                 
049526,000135:    4761           14000        PRIO14            OCT      14000                                 
049527,000136:                                                                                                 #                 OCT     14031           # T4RUPT     RELTAB +2D
049528,000137:    4762           15000        PRIO15            OCT      15000                                 
049529,000138:    4763           16000        PRIO16            OCT      16000                                 
049530,000139:                                                                                                 # 85DEGS          DEC     .45556          # P20-P25 SUNDANCE   (OCTAL 16450)
049531,000140:    4764           17000        PRIO17            OCT      17000                                 
049532,000141:    4765           17770        OCT17770          OCT      17770                                 
049533,000142:                                                                                                 # BIT14           OCT     20000
049534,000143:                                                                                                 #                 OCT     20033           # T4RUPT     RELTAB +3D
049535,000144:    4766           21000        PRIO21            OCT      21000                                 
049536,000145:    7657                                          BLOCK    03                                    
049537,000146:    7657                                          COUNT*   03/FCONS                              
049538,000147: 
049539,000148:    7657           22000        PRIO22            OCT      22000                                 #  SERVICE ROUTINES
049540,000149:    7660           23000        PRIO23            OCT      23000                                 
049541,000150:    7661           24000        PRIO24            OCT      24000                                 
049542,000151:                                                                                                 # 5/8+1           OCT     24001           # SINGLE PRECISION SUBROUTINES
049543,000152:                                                                                                 #                 OCT     24017           # T4RUPT     RELTAB +4D
049544,000153:    7662           25000        PRIO25            OCT      25000                                 
049545,000154:    7663           26000        PRIO26            OCT      26000                                 
049546,000155:    7664           27000        PRIO27            OCT      27000                                 
049547,000156:                                                                                                 # CHRPRIO OCT     30000           # PINBALL
049548,000157:                                                                                                 #                 OCT     30036           # T4RUPT     RELTAB +5D
049549,000158:    7665           31000        PRIO31            OCT      31000                                 
049550,000159:    7666           31103        C1/2              DEC      .7853134                              #                     (OCTAL 31103)
049551,000160:    7667           32000        PRIO32            OCT      32000                                 
049552,000161:    7670           33000        PRIO33            OCT      33000                                 
049553,000162:    7671           34000        PRIO34            OCT      34000                                 
049554,000163:                                                                                                 #                 OCT     34034           # T4RUPT     RELTAB +6D         
049555,000164:    7672           35000        PRIO35            OCT      35000                                 
049556,000165:    7673           36000        PRIO36            OCT      36000                                 
049557,000166:                                                                                                 # # Page 1170
049558,000167:    7674           37000        PRIO37            OCT      37000                                 
049559,000168:    7675           37401        63/64+1           OCT      37401                                 
049560,000169:                                                                                                 # MID7            OCT     37600           # PINBALL
049561,000170:    7676           37766        OCT37766          OCT      37766                                 
049562,000171:    7677           37774        OCT37774          OCT      37774                                 
049563,000172:    7700           37776        OCT37776          OCT      37776                                 
049564,000173:                                                                                                 # DPOSMAX OCT     37777
049565,000174:                                                                                                 # BIT15           OCT     40000
049566,000175:                                                                                                 # OCT40001        OCT     40001           # INTERPRETER  ( CS   1   INSTRUCTION)
049567,000176:    7701           40014        DLOADCOD          OCT      40014                                 
049568,000177:    7702           40015        DLOAD*            OCT      40015                                 
049569,000178:                                                                                                 #                 OCT     40023           # T4RUPT     RELTAB +7D
049570,000179:    7703           40040        BIT15+6           OCT      40040                                 
049571,000180:    7704           40200        OCT40200          OCT      40200                                 
049572,000181:                                                                                                 #                 OCT     44035           # T4RUPT    RELTAB +8D
049573,000182:                                                                                                 #                 OCT     50037           # T4RUPT     RELTAB +9D
049574,000183:                                                                                                 #                 OCT     54000           # T4RUPT     RELTAB +10D
049575,000184:    7705           57777        -BIT14            OCT      57777                                 
049576,000185:                                                                                                 # RELTAB11        OCT     60000           # T4RUPT
049577,000186:    7706           65552        C3/2              DEC      -.3216147                             #                     (OCTAL 65552)
049578,000187:    7707           70000        13,14,15          OCT      70000                                 
049579,000188:    7710           73777        -1/8              OCT      73777                                 
049580,000189:    7711           74000        HIGH4             OCT      74000                                 
049581,000190:    7712           74056        -ENDERAS          DEC      -2001      B-14                       #                     (OCTAL 74056)
049582,000191:                                                                                                 # HI5             OCT     76000           # PINBALL
049583,000192:    7713           77700        HIGH9             OCT      77700                                 
049584,000193:                                                                                                 # -ENDVAC DEC     -45             # INTERPRETER        (OCTAL 77722)
049585,000194:                                                                                                 # -OCT10          OCT     -10             #                     (OCT 77767)
049586,000195:                                                                                                 # NEG4            DEC     -4              #                    (OCTAL 77773)
049587,000196:    7714           77774        NEG3              DEC      -3         B-14                       
049588,000197:    7715           77775        NEG2              OCT      77775                                 
049589,000198:    7716           77776        NEGONE            DEC      -1         B-14                       
049590,000199: 
049591,000200:                                                                                                 # # Page 1171
049592,000201:                                                                                                 #  DEFINED BY EQUALS
049593,000202: 
049594,000203:                                                                                                 #  IT WOULD BE TO THE USERS ADVANTAGE TO OCCASIONALLY CHECK ANY OF THESE SYMBOLS IN ORDER TO PREVENT ANY
049595,000204:                                                                                                 #  ACCIDENTAL DEFINITION CHANGES.
049596,000205: 
049597,000206:    7717     7716               MINUS1            =        NEG1                                  
049598,000207:    7717     7716               NEG1              =        NEGONE                                
049599,000208:    7717     4712               ONE               =        BIT1                                  
049600,000209:    7717     4711               TWO               =        BIT2                                  
049601,000210:    7717     6214               THREE             =        OCTAL3                                
049602,000211:    7717     6214               LOW2              =        THREE                                 
049603,000212:    7717     4710               FOUR              =        BIT3                                  
049604,000213:    7717     6211               SIX               =        REVCNT                                
049605,000214:    7717     4716               LOW3              =        SEVEN                                 
049606,000215:    7717     4707               EIGHT             =        BIT4                                  
049607,000216:    7717     4334               NINE              =        R2D1                                  
049608,000217:    7717     4377               TEN               =        BINCON                                
049609,000218:    7717     4717               NOUTCON           =        ELEVEN                                
049610,000219:    7717     4374               OCT23             =        VD1                                   
049611,000220:    7717     4376               OCT25             =        MD1                                   
049612,000221:    7717     4701               PRIO1             =        BIT10                                 
049613,000222:    7717     4744               EBANK3            =        OCT1400                               
049614,000223:    7717     4700               PRIO2             =        BIT11                                 
049615,000224:    7717     4732               OCT120            =        SUPER101                              
049616,000225:    7717     4733               OCT140            =        SUPER110                              
049617,000226:    7717     4700               2K                =        BIT11                                 
049618,000227:    7717     4700               EBANK4            =        BIT11                                 
049619,000228:    7717     4677               PRIO4             =        BIT12                                 
049620,000229:    7717     4752               EBANK6            =        PRIO3                                 
049621,000230:    7717     4676               QUARTER           =        BIT13                                 
049622,000231:    7717     4676               PRIO10            =        BIT13                                 
049623,000232:    7717     7632               OCT10001          =        CCSL                                  
049624,000233:    7717     4675               POS1/2            =        HALF                                  
049625,000234:    7717     4675               PRIO20            =        BIT14                                 
049626,000235:    7717     4675               HALF              =        BIT14                                 
049627,000236:    7717     4371               PRIO30            =        CHRPRIO                               
049628,000237:    7717     4371               BIT13-14          =        PRIO30                                #  INTERPRETER USES IN PROCESSING STORECODE
049629,000238:    7717     6440               OCT30002          =        TLOAD      +1                         
049630,000239:    7717     7671               B12T14            =        PRIO34                                
049631,000240:    7717     4674               NEGMAX            =        BIT15                                 
049632,000241:    7717     4674               VLOADCOD          =        BIT15                                 
049633,000242:    7717     6056               VLOAD*            =        OCT40001                              
049634,000243:    7717     4105               OCT60000          =        RELTAB11                              
049635,000244:    7717     4364               BANKMASK          =        HI5                                   

End of include-file FIXED-FIXED_CONSTANT_POOL.agc.  Parent file is MAIN.agc