Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

051438,000002:                                                                                                  ## Copyright:   Public domain.
051439,000003:                                                                                                  ## Filename:    FIXED_FIXED_CONSTANT_POOL.agc
051440,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
051441,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
051442,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
051443,000007:                                                                                                  ##              Apollo 15-17.
051444,000008:                                                                                                  ## Assembler:   yaYUL
051445,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
051446,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
051447,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
051448,000012:                                                                                                  ## Mod history: 2009-08-22 JL   Adapted from corresponding Comanche 055 file.
051449,000013:                                                                                                  ##              2010-02-01 JL   Fixed build errors.
051450,000014:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
051451,000015:                                                                                                  ##              2012-10-07 JL   Fixed typo in comment on p1201.
051452,000016:                                                                                                  ##              2017-02-04 RSB  Proofed comment text by diff'ing vs Comanche 55
051453,000017:                                                                                                  ##                              and corrected errors found.
051454,000018:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 4-way side-by-side
051455,000019:                                                                                                  ##                              diff of Colossus237/249/Comanche55/Artemis72.
051456,000020: 

Page 1200

051458,000022:    4000                                           SETLOC   FFTAG1                                
051459,000023:    4000                                           BANK                                           
051460,000024: 
051461,000025:    4747                                           COUNT*   $$/FCONS                              
051462,000026: 
051463,000027:                                                                                                  #  THE FOLLOWING TABLE OF 18 VALUES IS INDEXED. DO NOT INSERT OR REMOVE ANY QUANTITIES.
051464,000028: 
051465,000029:    4747           37777        DPOSMAX            OCT      37777                                 #  MUST PRECEDE POSMAX
051466,000030:    4750           37777        POSMAX             OCT      37777                                 
051467,000031: 
051468,000032:    4751     4751               LIMITS             =        NEG1/2                                
051469,000033: 
051470,000034:    4751           57777        NEG1/2             OCT      -20000                                #  USED BY SIN ROUTINE (MUST BE TWO 
051471,000035:                                                                                                  #  LOCATIONS IN FRONT OF BIT14)
051472,000036: 
051473,000037:                                                                                                  #  BIT TABLE                                     
051474,000038: 
051475,000039:    4752           40000        BIT15              OCT      40000                                 
051476,000040:    4753           20000        BIT14              OCT      20000                                 
051477,000041:    4754           10000        BIT13              OCT      10000                                 
051478,000042:    4755           04000        BIT12              OCT      04000                                 
051479,000043:    4756           02000        BIT11              OCT      02000                                 
051480,000044:    4757           01000        BIT10              OCT      01000                                 
051481,000045:    4760           00400        BIT9               OCT      00400                                 
051482,000046:    4761           00200        BIT8               OCT      00200                                 
051483,000047:    4762           00100        BIT7               OCT      00100                                 
051484,000048:    4763           00040        BIT6               OCT      00040                                 
051485,000049:    4764           00020        BIT5               OCT      00020                                 
051486,000050:    4765           00010        BIT4               OCT      00010                                 
051487,000051:    4766           00004        BIT3               OCT      00004                                 
051488,000052:    4767           00002        BIT2               OCT      00002                                 
051489,000053:    4770           00001        BIT1               OCT      00001                                 
051490,000054: 
051491,000055:                                                                                                  #  DO NOT DESTROY THIS COMBINATION, SINCE IT IS USED IN DOUBLE PRECISION INSTRUCTIONS.
051492,000056: 
051493,000057:    4771           77777        NEG0               OCT      -0                                    #  MUST PRECEDE ZERO
051494,000058:    4772           00000        ZERO               OCT      0                                     #  MUST FOLLOW NEG0
051495,000059:                                                                                                  #  BIT1          OCT     00001
051496,000060:                                                                                                  #  NO.WDS        OCT     2               INTERPRETER
051497,000061:                                                                                                  #  OCTAL3        OCT     3               INTERPRETER
051498,000062:                                                                                                  #  R3D1          OCT     4               PINBALL
051499,000063:    4773           00005        FIVE               OCT      5                                     
051500,000064:                                                                                                  #  REVCNT        OCT     6               INTERPRETER
051501,000065:    4774           00007        SEVEN              OCT      7                                     
051502,000066:                                                                                                  #  BIT4          OCT     00010
051503,000067:                                                                                                  #  R2D1          OCT     11              PINBALL
051504,000068:    4775     4322               OCT11              =        R2D1                                  #  P20S
051505,000069:                                                                                                  #  BINCON        DEC     10              PINBALL         (OCTAL 12)
051506,000070:    4775           00013        ELEVEN             DEC      11         B-14                       
051507,000071:                                                                                                  #  OCT14         OCT     14              ALARM AND ABORT (FILLER)
051508,000072:    4776           00015        OCT15              OCT      15                                    
051509,000073:                                                                                                  #  R1D1          OCT     16              PINBALL

Page 1201

051511,000075:    4777           00017        LOW4               OCT      17                                    
051512,000076:                                                                                                  #  BIT5          OCT     00020
051513,000077:                                                                                                  #  ND1           OCT     21              PINBALL
051514,000078:    5000           00022        OCT22              OCT      22                                    
051515,000079:                                                                                                  #  VD1           OCT     23              PINBALL
051516,000080:                                                                                                  #  OCT24         OCT     24              SERVICE ROUTINES
051517,000081:                                                                                                  #  MD1           OCT     25              PINBALL
051518,000082:                                                                                                  #  VBSP2LD       DEC     22              PINBALL (OCT26)
051519,000083:                                                                                                  #  DEC23         DEC     23              AUTO MAN.       (OCT27)
051520,000084:    5001           00030        BITS4&5            OCT      30                                    
051521,000085:                                                                                                  #  OCT31         OCT     31              SERVICE ROUTINES
051522,000086:    5002           00032        CALLCODE           OCT      00032                                 
051523,000087:    5003     4342               OCT37              =        LOW5                                  
051524,000088:                                                                                                  #  LOW5          OCT     37              PINBALL
051525,000089:    5003           00041        33DEC              DEC      33         B-14                       
051526,000090:                                                                                                  #  34DEC         DEC     34              PINBALL         (OCTAL 42)
051527,000091:                                                                                                  #  BIT6          OCT     00040
051528,000092:    5004           00050        OCT50              OCT      50                                    
051529,000093:    5005           00054        LTHVACA            DEC      44         B-14                       
051530,000094:    5006           00055        DEC45              DEC      45         B-14                       
051531,000095:    5007           00056        MINDB              DEC      46         B-14                       #  OCT 56
051532,000096:    5010           00060        SUPER011           OCT      60                                    #  BITS FOR SUPERBNK SETTING 011.
051533,000097:    5011           00062        .5SEC              DEC      50         B-14                       
051534,000098:    5012           00075        OCT75              OCT      75                                    
051535,000099:                                                                                                  #  BIT7          OCT     00100
051536,000100: 
051537,000101:    5013     4762               SUPER100           =        BIT7                                  #  BITS FOR SUPERBNK SETTING 100
051538,000102:                                                                                                  #  (LAST 4K OF ROPE)
051539,000103:    5013           00110        BITS7+4            OCT      110                                   
051540,000104:    5014           00120        SUPER101           OCT      120                                   #  BITS FOR SUPERBNK SETTING 101
051541,000105:                                                                                                  #  OCT121        OCT     121             SERVICE ROUTINES
051542,000106:                                                                                                  #  (FIRST 8K OF ACM)
051543,000107:    5015           00140        SUPER110           OCT      140                                   #  BITS FOR SUPERBNK SETTING 110.
051544,000108:                                                                                                  #  (LAST 8K OF ACM)
051545,000109:    5016           00144        1SEC               DEC      100        B-14                       
051546,000110:                                                                                                  #  LOW7          OCT     177             INTERPRETER
051547,000111:                                                                                                  #  BIT8          OCT     00200
051548,000112:                                                                                                  #  OT215         OCT     215             ALARM AND ABORT
051549,000113:                                                                                                  #  8,5           OCT     00220           P20-P25 SUNDANCE
051550,000114:    5017           00310        2SECS              DEC      200        B-14                       
051551,000115:                                                                                                  #  LOW8          OCT     377             PINBALL
051552,000116:                                                                                                  #  BIT9          OCT     00400
051553,000117:    5020           00620        4SECS              DEC      400        B-14                       
051554,000118:    5021           00777        LOW9               OCT      777                                   
051555,000119:                                                                                                  #  BIT10         OCT     01000
051556,000120:                                                                                                  #  5.5DEGS       DEC     .03056          P20-P25 SUNDANCE        (OCTAL 00765)
051557,000121:                                                                                                  #  OCT1103       OCT     1103            ALARM AND ABORT
051558,000122:    5022           01124        C5/2               DEC      .0363551                              #                        (OCTAL 01124)
051559,000123:    5023           01211        V05N09             VN       0509                                  #  (SAME AS OCTAL 1211)
051560,000124:    5024           01400        OCT1400            OCT      01400                                 

Page 1202

051562,000126:    5025     5025               7.9SEC             EQUALS   V06N22                                
051563,000127:    5025           01426        V06N22             VN       0622                                  
051564,000128:    5026           01441        V06N33             VN       0633                                  
051565,000129:    5027           01442        V06N34             VN       0634                                  
051566,000130:    5030           01461        V06N49             VN       0649                                  
051567,000131:    5031           01422        V06N18             VN       0618                                  
051568,000132:    5032           01451        V06N41             VN       0641                                  
051569,000133:    5033           01474        V06N60             VN       0660                                  
051570,000134:    5034           01475        V06N61             VN       0661                                  
051571,000135:    5035           01530        V06N88             VN       0688                                  
051572,000136:    5036           01531        V06N89             VN       0689                                  
051573,000137:    5037           01532        V06N90             VN       0690                                  
051574,000138:    5040           01535        V06N93             VN       0693                                  
051575,000139:                                                                                                  #  MID5          OCT     1740            PINBALL
051576,000140:    5041           01777        LOW10              OCT      1777                                  
051577,000141:                                                                                                  #  BIT11         OCT     02000
051578,000142:                                                                                                  #  2K+3          OCT     2003            PINBALL
051579,000143:    5042           02177        LOW7+2K            OCT      2177                                  
051580,000144:    5043           02400        EBANK5             OCT      02400                                 
051581,000145:    5044           02600        OCT2600            OCT      2600                                  
051582,000146:    5045           03000        PRIO3              OCT      03000                                 
051583,000147:    5046           03400        EBANK7             OCT      03400                                 
051584,000148:                                                                                                  #  LOW11         OCT     3777            PINBALL
051585,000149:                                                                                                  #  BIT12         OCT     04000
051586,000150:                                                                                                  #  RELTAB        OCT     04025           T4RUPT
051587,000151:    5047           05000        PRIO5              OCT      05000                                 
051588,000152:    5050           06000        PRIO6              OCT      06000                                 
051589,000153:    5051           07000        PRIO7              OCT      07000                                 
051590,000154: 
051591,000155:                                                                                                  #  BIT13         OCT     10000
051592,000156:                                                                                                  #                OCT     10003           T4RUPT  RELTAB +1D
051593,000157:                                                                                                  #  13,7,2        OCT     10102           P20-P25 SUNDANCE
051594,000158:                                                                                                  #  PRIO12        OCT     12000           BANKCALL
051595,000159:    5052           13000        PRIO13             OCT      13000                                 
051596,000160:    5053           14000        PRIO14             OCT      14000                                 
051597,000161:                                                                                                  #                OCT     14031           T4RUPT  RELTAB +2D
051598,000162:    5054           15000        PRIO15             OCT      15000                                 
051599,000163:    5055           16000        PRIO16             OCT      16000                                 
051600,000164:                                                                                                  #  85DEGS        DEC     .45556          P20-P25 SUNDANCE        (OCTAL 16450)
051601,000165:    5056           17770        OCT17770           OCT      17770                                 
051602,000166:                                                                                                  #  BIT14         OCT     20000
051603,000167:                                                                                                  #                OCT     20033           T4RUPT  RELTAB +3D
051604,000168:    5057           21000        PRIO21             OCT      21000                                 
051605,000169:    6000                                           SETLOC   FFTAG6                                
051606,000170:    6000                                           BANK                                           
051607,000171: 
051608,000172:    7644                                           COUNT*   $$/FCONS                              
051609,000173:    7644           22000        PRIO22             OCT      22000                                 #  SERVICE ROUTINES
051610,000174:    7645           24000        PRIO24             OCT      24000                                 
051611,000175:                                                                                                  #  5/8+1         OCT     24001           SINGLE PRECISION SUBROUTINES

Page 1203

051613,000177:                                                                                                  #                OCT     24017           T4RUPT  RELTAB +4D
051614,000178:    7646           24100        14,12,7            OCT      24100                                 
051615,000179:    7647           25000        PRIO25             OCT      25000                                 
051616,000180:    7650           26000        PRIO26             OCT      26000                                 
051617,000181:    7651           27000        PRIO27             OCT      27000                                 
051618,000182:                                                                                                  #  CHRPRIO       OCT     30000           PINBALL
051619,000183:                                                                                                  #                OCT     30036           T4RUPT  RELTAB +5D
051620,000184:    7652           31000        PRIO31             OCT      31000                                 
051621,000185:    7653           31103        C1/2               DEC      .7853134                              #                        (OCTAL 31103)
051622,000186:    7654           32000        PRIO32             OCT      32000                                 
051623,000187:    7655           33000        PRIO33             OCT      33000                                 
051624,000188:    7656           34000        PRIO34             OCT      34000                                 
051625,000189:                                                                                                  #                OCT     34034           T4RUPT  RELTAB +6D              
051626,000190:    7657           35000        PRIO35             OCT      35000                                 
051627,000191:    7660           37000        PRIO37             OCT      37000                                 
051628,000192:                                                                                                  #  MID7          OCT     37600           PINBALL
051629,000193:    7661           37766        OCT37766           OCT      37766                                 
051630,000194:    7662           37774        OCT37774           OCT      37774                                 
051631,000195:    7663           37776        OCT37776           OCT      37776                                 
051632,000196:                                                                                                  #  DPOSMAX       OCT     37777
051633,000197:                                                                                                  #  BIT15         OCT     40000
051634,000198:                                                                                                  #  OCT40001      OCT     40001           INTERPRETER (CS 1 INSTRUCTION)
051635,000199:    7664           40010        OT40010            OCT      40010                                 
051636,000200:    7665           40014        DLOADCOD           OCT      40014                                 
051637,000201:    7666           40015        DLOAD*             OCT      40015                                 
051638,000202:                                                                                                  #                OCT     40023           T4RUPT  RELTAB +7D
051639,000203:    7667           40040        BIT15+6            OCT      40040                                 
051640,000204:    7670           40200        OCT40200           OCT      40200                                 
051641,000205:                                                                                                  #                OCT     44035           T4RUPT  RELTAB +8D
051642,000206:    7671           47777        NEG30000           OCT      47777                                 
051643,000207:                                                                                                  #                OCT     50037           T4RUPT  RELTAB +9D
051644,000208:                                                                                                  #                OCT     54000           T4RUPT  RELTAB +10D
051645,000209:    7672     4751               -BIT14             EQUALS   NEG1/2                                

In the printout, the following line seemingly says "6000", however I believe the trailing '0' in "60000" is simply too faint to see, and is present in the source code, since it is present in the 8 other presently-available version of Colossus and Luminary. — RSB 2017.

051651,000215:                                                                                                  #  RELTAB11      OCT     60000           T4RUPT
051652,000216:    7672           65552        C3/2               DEC      -.3216147                             #                        (OCTAL 65552)
051653,000217:    7673           70000        13,14,15           OCT      70000                                 
051654,000218:    7674           73777        -1/8               OCT      73777                                 
051655,000219:    7675           74000        HIGH4              OCT      74000                                 
051656,000220:    7676           74056        -ENDERAS           DEC      -2001      B-14                       #                        (OCTAL 74056)
051657,000221:                                                                                                  #  HI5           OCT     76000           PINBALL
051658,000222:    7677           77700        HIGH9              OCT      77700                                 
051659,000223:                                                                                                  #  -ENDVAC       DEC     -45             INTERPRETER             (OCTAL 77722)
051660,000224:                                                                                                  #  DECNEG23      DEC     -23             AUTO MAN. (OCT77750)
051661,000225:                                                                                                  #  -OCT10        OCT     -10                                     (OCT 77767)
051662,000226:                                                                                                  #  NEG4          DEC     -4                                      (OCTAL 77773)
051663,000227:    7700           77774        NEG3               DEC      -3         B-14                       
051664,000228:    7701           77775        NEG2               OCT      77775                                 
051665,000229:    7702           77776        NEGONE             DEC      -1         B-14                       
051666,000230: 

Page 1204

051668,000232: 
051669,000233:                                                                                                  #  DEFINED BY EQUALS
051670,000234: 
051671,000235:                                                                                                  #  IT WOULD BE TO THE USERS ADVANTAGE TO OCCASIONALLY CHECK ANY OF THESE SYMBOLS IN ORDER TO PREVENT ANY
051672,000236:                                                                                                  #  ACCIDENTAL DEFINITION CHANGES.
051673,000237: 
051674,000238:    7703     7702               MINUS1             =        NEG1                                  
051675,000239:    7703     7702               NEG1               =        NEGONE                                
051676,000240:    7703     4770               ONE                =        BIT1                                  
051677,000241:    7703     4767               TWO                =        BIT2                                  
051678,000242:    7703     6214               THREE              =        OCTAL3                                
051679,000243:    7703     6214               LOW2               =        THREE                                 
051680,000244:    7703     4766               FOUR               =        BIT3                                  
051681,000245:    7703     6211               SIX                =        REVCNT                                
051682,000246:    7703     4774               LOW3               =        SEVEN                                 
051683,000247:    7703     4765               EIGHT              =        BIT4                                  
051684,000248:    7703     4322               NINE               =        R2D1                                  
051685,000249:    7703     4355               TEN                =        BINCON                                
051686,000250:    7703     4775               NOUTCON            =        ELEVEN                                
051687,000251:    7703     4351               OCT23              =        VD1                                   
051688,000252:    7703     4353               OCT25              =        MD1                                   
051689,000253:    7703     4757               PRIO1              =        BIT10                                 
051690,000254:    7703     5024               EBANK3             =        OCT1400                               
051691,000255:    7703     4756               PRIO2              =        BIT11                                 
051692,000256:    7703     5014               OCT120             =        SUPER101                              
051693,000257:    7703     5015               OCT140             =        SUPER110                              
051694,000258:    7703     4756               2K                 =        BIT11                                 
051695,000259:    7703     4756               EBANK4             =        BIT11                                 
051696,000260:    7703     4755               PRIO4              =        BIT12                                 
051697,000261:    7703     5045               EBANK6             =        PRIO3                                 
051698,000262:    7703     4754               QUARTER            =        BIT13                                 
051699,000263:    7703     4754               PRIO10             =        BIT13                                 
051700,000264:    7703     7617               OCT10001           =        CCSL                                  
051701,000265:    7703     4753               POS1/2             =        HALF                                  
051702,000266:    7703     4753               PRIO20             =        BIT14                                 
051703,000267:    7703     4753               HALF               =        BIT14                                 
051704,000268:    7703     4346               PRIO30             =        CHRPRIO                               
051705,000269:    7703     4346               BIT13-14           =        PRIO30                                #  INTERPRETER USES IN PROCESSING STORECODE
051706,000270:    7703     6440               OCT30002           =        TLOAD      +1                         
051707,000271:    7703     7656               B12T14             =        PRIO34                                
051708,000272:    7703     4752               NEGMAX             =        BIT15                                 
051709,000273:    7703     4752               VLOADCOD           =        BIT15                                 
051710,000274:    7703     6056               VLOAD*             =        OCT40001                              
051711,000275:    7703     4076               OCT60000           =        RELTAB11                              
051712,000276:    7703     4344               BANKMASK           =        HI5                                   
051713,000277: 

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