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.

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

Page 1200

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

Page 1201

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

Page 1202

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

Page 1203

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

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

Page 1204

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

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