Source Code

These source-code files were obtained by digitally photographing an Artemis 72 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.

051222,000002:                                                                                                  ## Copyright:   Public domain.
051223,000003:                                                                                                  ## Filename:    FIXED_FIXED_CONSTANT_POOL.agc
051224,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
051225,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
051226,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), we believe for
051227,000007:                                                                                                  ##              Apollo 15-17.
051228,000008:                                                                                                  ## Assembler:   yaYUL
051229,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
051230,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
051231,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
051232,000012:                                                                                                  ## Mod history: 2009-08-22 JL   Adapted from corresponding Comanche 055 file.
051233,000013:                                                                                                  ##              2010-02-01 JL   Fixed build errors.
051234,000014:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
051235,000015:                                                                                                  ##              2012-10-07 JL   Fixed typo in comment on p1201.
051236,000016: 

Page 1200

051238,000018:    4000                                           SETLOC   FFTAG1                                
051239,000019:    4000                                           BANK                                           
051240,000020: 
051241,000021:    4747                                           COUNT*   $$/FCONS                              
051242,000022: 
051243,000023:                                                                                                  #  THE FOLLOWING TABLE OF 18 VALUES IS INDEXED. DO NOT INSERT OR REMOVE ANY QUANTITIES
051244,000024: 
051245,000025:    4747           37777        DPOSMAX            OCT      37777                                 #  MUST PRECEDE POSMAX
051246,000026:    4750           37777        POSMAX             OCT      37777                                 
051247,000027: 
051248,000028:    4751     4751               LIMITS             =        NEG1/2                                
051249,000029: 
051250,000030:    4751           57777        NEG1/2             OCT      -20000                                #  USED BY SIN ROUTINE (MUST BE TWO 
051251,000031:                                                                                                  #  LOCATIONS IN FRONT OF BIT14)
051252,000032: 
051253,000033:                                                                                                  #  BIT TABLE                                     
051254,000034: 
051255,000035:    4752           40000        BIT15              OCT      40000                                 
051256,000036:    4753           20000        BIT14              OCT      20000                                 
051257,000037:    4754           10000        BIT13              OCT      10000                                 
051258,000038:    4755           04000        BIT12              OCT      04000                                 
051259,000039:    4756           02000        BIT11              OCT      02000                                 
051260,000040:    4757           01000        BIT10              OCT      01000                                 
051261,000041:    4760           00400        BIT9               OCT      00400                                 
051262,000042:    4761           00200        BIT8               OCT      00200                                 
051263,000043:    4762           00100        BIT7               OCT      00100                                 
051264,000044:    4763           00040        BIT6               OCT      00040                                 
051265,000045:    4764           00020        BIT5               OCT      00020                                 
051266,000046:    4765           00010        BIT4               OCT      00010                                 
051267,000047:    4766           00004        BIT3               OCT      00004                                 
051268,000048:    4767           00002        BIT2               OCT      00002                                 
051269,000049:    4770           00001        BIT1               OCT      00001                                 
051270,000050: 
051271,000051:                                                                                                  #  DO NOT DESTROY THIS COMBINATION, SINCE IT IS USED IN DOUBLE PRECISION INSTRUCTIONS.
051272,000052: 
051273,000053:    4771           77777        NEG0               OCT      -0                                    #  MUST PRECEDE ZERO
051274,000054:    4772           00000        ZERO               OCT      0                                     #  MUST FOLLOW NEG0
051275,000055:                                                                                                  #  BIT1          OCT     00001
051276,000056:                                                                                                  #  NO.WDS        OCT     2               # INTERPRETER
051277,000057:                                                                                                  #  OCTAL3        OCT     3               # INTERPRETER
051278,000058:                                                                                                  #  R3D1          OCT     4               # PINBALL
051279,000059:    4773           00005        FIVE               OCT      5                                     
051280,000060:                                                                                                  #  REVCNT        OCT     6               # INTERPRETER
051281,000061:    4774           00007        SEVEN              OCT      7                                     
051282,000062:                                                                                                  #  BIT4          OCT     00010
051283,000063:                                                                                                  #  R2D1          OCT     11              # PINBALL
051284,000064:    4775     4322               OCT11              =        R2D1                                  #  P20S
051285,000065:                                                                                                  #  BINCON        DEC     10              # PINBALL               (OCTAL 12)
051286,000066:    4775           00013        ELEVEN             DEC      11         B-14                       
051287,000067:                                                                                                  #  OCT14         OCT     14              # ALARM AND ABORT (FILLER)
051288,000068:    4776           00015        OCT15              OCT      15                                    
051289,000069:                                                                                                  #  R1D1          OCT     16              # PINBALL

Page 1201

051291,000071:    4777           00017        LOW4               OCT      17                                    
051292,000072:                                                                                                  #  BIT5          OCT     00020
051293,000073:                                                                                                  #  ND1           OCT     21              # PINBALL
051294,000074:    5000           00022        OCT22              OCT      22                                    
051295,000075:                                                                                                  #  VD1           OCT     23              # PINBALL
051296,000076:                                                                                                  #  OCT24         OCT     24              # SERVICE ROUTINES
051297,000077:                                                                                                  #  MD1           OCT     25              # PINBALL
051298,000078:                                                                                                  #  VBSP2LD       DEC     22              # PINBALL       (OCT26)
051299,000079:                                                                                                  #  DEC23         DEC     23              # AUTO MAN.     (OCT27)
051300,000080:    5001           00030        BITS4&5            OCT      30                                    
051301,000081:                                                                                                  #  OCT31         OCT     31              # SERVICE ROUTINES
051302,000082:    5002           00032        CALLCODE           OCT      00032                                 
051303,000083:    5003     4342               OCT37              =        LOW5                                  
051304,000084:                                                                                                  #  LOW5          OCT     37              # PINBALL
051305,000085:    5003           00041        33DEC              DEC      33         B-14                       
051306,000086:                                                                                                  #  34DEC         DEC     34              # PINBALL               (OCTAL 42)
051307,000087:                                                                                                  #  BIT6          OCT     00040
051308,000088:    5004           00050        OCT50              OCT      50                                    
051309,000089:    5005           00054        LTHVACA            DEC      44         B-14                       
051310,000090:    5006           00055        DEC45              DEC      45         B-14                       
051311,000091:    5007           00056        MINDB              DEC      46         B-14                       #  OCT 56
051312,000092:    5010           00060        SUPER011           OCT      60                                    #  BITS FOR SUPERBNK SETTING 011.
051313,000093:    5011           00062        .5SEC              DEC      50         B-14                       
051314,000094:    5012           00075        OCT75              OCT      75                                    
051315,000095:                                                                                                  #  BIT7          OCT     00100
051316,000096: 
051317,000097:    5013     4762               SUPER100           =        BIT7                                  #  BITS FOR SUPERBNK SETTING 100
051318,000098:                                                                                                  #  (LAST 4K OF ROPE)
051319,000099:    5013           00110        BITS7+4            OCT      110                                   
051320,000100:    5014           00120        SUPER101           OCT      120                                   #  BITS FOR SUPERBNK SETTING 101
051321,000101:                                                                                                  #  OCT121        OCT     121             # SERVICE ROUTINES
051322,000102:                                                                                                  #  (FIRST 8K OF ACM)
051323,000103:    5015           00140        SUPER110           OCT      140                                   #  BITS FOR SUPERBNK SETTING 110.
051324,000104:                                                                                                  #  (LAST 8K OF ACM)
051325,000105:    5016           00144        1SEC               DEC      100        B-14                       
051326,000106:                                                                                                  #  LOW7          OCT     177             # INTERPRETER
051327,000107:                                                                                                  #  BIT8          OCT     00200
051328,000108:                                                                                                  #  OT215         OCT     215             # ALARM AND ABORT
051329,000109:                                                                                                  #  8,5           OCT     00220           # P20-P25 SUNDANCE
051330,000110:    5017           00310        2SECS              DEC      200        B-14                       
051331,000111:                                                                                                  #  LOW8          OCT     377             # PINBALL
051332,000112:                                                                                                  #  BIT9          OCT     00400
051333,000113:    5020           00620        4SECS              DEC      400        B-14                       
051334,000114:    5021           00777        LOW9               OCT      777                                   
051335,000115:                                                                                                  #  BIT10         OCT     01000
051336,000116:                                                                                                  #  5.5DEGS       DEC     .03056          # P20-P25 SUNDANCE      (OCTAL 00765)
051337,000117:                                                                                                  #  OCT1103       OCT     1103            # ALARM AND ABORT
051338,000118:    5022           01124        C5/2               DEC      .0363551                              #                        (OCTAL 01124)
051339,000119:    5023           01211        V05N09             VN       0509                                  #  (SAME AS OCTAL 1211)
051340,000120:    5024           01400        OCT1400            OCT      01400                                 

Page 1202

051342,000122:    5025     5025               7.9SEC             EQUALS   V06N22                                
051343,000123:    5025           01426        V06N22             VN       0622                                  
051344,000124:    5026           01441        V06N33             VN       0633                                  
051345,000125:    5027           01442        V06N34             VN       0634                                  
051346,000126:    5030           01461        V06N49             VN       0649                                  
051347,000127:    5031           01422        V06N18             VN       0618                                  
051348,000128:    5032           01451        V06N41             VN       0641                                  
051349,000129:    5033           01474        V06N60             VN       0660                                  
051350,000130:    5034           01475        V06N61             VN       0661                                  
051351,000131:    5035           01530        V06N88             VN       0688                                  
051352,000132:    5036           01531        V06N89             VN       0689                                  
051353,000133:    5037           01532        V06N90             VN       0690                                  
051354,000134:    5040           01535        V06N93             VN       0693                                  
051355,000135:                                                                                                  #  MID5          OCT     1740            # PINBALL
051356,000136:    5041           01777        LOW10              OCT      1777                                  
051357,000137:                                                                                                  #  BIT11         OCT     02000
051358,000138:                                                                                                  #  2K+3          OCT     2003            # PINBALL
051359,000139:    5042           02177        LOW7+2K            OCT      2177                                  
051360,000140:    5043           02400        EBANK5             OCT      02400                                 
051361,000141:    5044           02600        OCT2600            OCT      2600                                  
051362,000142:    5045           03000        PRIO3              OCT      03000                                 
051363,000143:    5046           03400        EBANK7             OCT      03400                                 
051364,000144:                                                                                                  #  LOW11         OCT     3777            # PINBALL
051365,000145:                                                                                                  #  BIT12         OCT     04000
051366,000146:                                                                                                  #  RELTAB        OCT     04025           # T4RUPT
051367,000147:    5047           05000        PRIO5              OCT      05000                                 
051368,000148:    5050           06000        PRIO6              OCT      06000                                 
051369,000149:    5051           07000        PRIO7              OCT      07000                                 
051370,000150: 
051371,000151:                                                                                                  #  BIT13         OCT     10000
051372,000152:                                                                                                  #                OCT     10003           # T4RUPT        RELTAB +1D
051373,000153:                                                                                                  #  13,7,2        OCT     10102           # P20-P25 SUNDANCE
051374,000154:                                                                                                  #  PRIO12        OCT     12000           # BANKCALL
051375,000155:    5052           13000        PRIO13             OCT      13000                                 
051376,000156:    5053           14000        PRIO14             OCT      14000                                 
051377,000157:                                                                                                  #                OCT     14031           # T4RUPT        RELTAB +2D
051378,000158:    5054           15000        PRIO15             OCT      15000                                 
051379,000159:    5055           16000        PRIO16             OCT      16000                                 
051380,000160:                                                                                                  #  85DEGS        DEC     .45556          # P20-P25 SUNDANCE      (OCTAL 16450)
051381,000161:    5056           17770        OCT17770           OCT      17770                                 
051382,000162:                                                                                                  #  BIT14         OCT     20000
051383,000163:                                                                                                  #                OCT     20033           # T4RUPT        RELTAB +3D
051384,000164:    5057           21000        PRIO21             OCT      21000                                 
051385,000165:    6000                                           SETLOC   FFTAG6                                
051386,000166:    6000                                           BANK                                           
051387,000167: 
051388,000168:    7644                                           COUNT*   $$/FCONS                              
051389,000169:    7644           22000        PRIO22             OCT      22000                                 #  SERVICE ROUTINES
051390,000170:    7645           24000        PRIO24             OCT      24000                                 
051391,000171:                                                                                                  #  5/8+1         OCT     24001           # SINGLE PRECISION SUBROUTINES

Page 1203

051393,000173:                                                                                                  #                OCT     24017           # T4RUPT        RELTAB +4D
051394,000174:    7646           24100        14,12,7            OCT      24100                                 
051395,000175:    7647           25000        PRIO25             OCT      25000                                 
051396,000176:    7650           26000        PRIO26             OCT      26000                                 
051397,000177:    7651           27000        PRIO27             OCT      27000                                 
051398,000178:                                                                                                  #  CHRPRIO       OCT     30000           # PINBALL
051399,000179:                                                                                                  #                OCT     30036           # T4RUPT        RELTAB +5D
051400,000180:    7652           31000        PRIO31             OCT      31000                                 
051401,000181:    7653           31103        C1/2               DEC      .7853134                              #                        (OCTAL 31103)
051402,000182:    7654           32000        PRIO32             OCT      32000                                 
051403,000183:    7655           33000        PRIO33             OCT      33000                                 
051404,000184:    7656           34000        PRIO34             OCT      34000                                 
051405,000185:                                                                                                  #                OCT     34034           # T4RUPT        RELTAB +6D              
051406,000186:    7657           35000        PRIO35             OCT      35000                                 
051407,000187:    7660           37000        PRIO37             OCT      37000                                 
051408,000188:                                                                                                  #  MID7          OCT     37600           # PINBALL
051409,000189:    7661           37766        OCT37766           OCT      37766                                 
051410,000190:    7662           37774        OCT37774           OCT      37774                                 
051411,000191:    7663           37776        OCT37776           OCT      37776                                 
051412,000192:                                                                                                  #  DPOSMAX       OCT     37777
051413,000193:                                                                                                  #  BIT15         OCT     40000
051414,000194:                                                                                                  #  OCT40001      OCT     40001           # INTERPRETER (CS 1 INSTRUCTION)
051415,000195:    7664           40010        OT40010            OCT      40010                                 
051416,000196:    7665           40014        DLOADCOD           OCT      40014                                 
051417,000197:    7666           40015        DLOAD*             OCT      40015                                 
051418,000198:                                                                                                  #                OCT     40023           # T4RUPT        RELTAB +7D
051419,000199:    7667           40040        BIT15+6            OCT      40040                                 
051420,000200:    7670           40200        OCT40200           OCT      40200                                 
051421,000201:                                                                                                  #                OCT     44035           # T4RUPT        RELTAB +8D
051422,000202:    7671           47777        NEG30000           OCT      47777                                 
051423,000203:                                                                                                  #                OCT     50037           # T4RUPT        RELTAB +9D
051424,000204:                                                                                                  #                OCT     54000           # T4RUPT        RELTAB +10D
051425,000205:    7672     4751               -BIT14             EQUALS   NEG1/2                                
051426,000206:                                                                                                  #  RELTAB11      OCT     6000            # T4RUPT
051427,000207:    7672           65552        C3/2               DEC      -.3216147                             #                        (OCTAL 65552)
051428,000208:    7673           70000        13,14,15           OCT      70000                                 
051429,000209:    7674           73777        -1/8               OCT      73777                                 
051430,000210:    7675           74000        HIGH4              OCT      74000                                 
051431,000211:    7676           74056        -ENDERAS           DEC      -2001      B-14                       #                        (OCTAL 74056)
051432,000212:                                                                                                  #  HI5           OCT     76000           # PINBALL
051433,000213:    7677           77700        HIGH9              OCT      77700                                 
051434,000214:                                                                                                  #  -ENDVAC       DEC     -45             # INTERPRETER           (OCTAL 77722)
051435,000215:                                                                                                  #  DECNEG23      DEC     -23             # AUTO MAN. (OCT77750)
051436,000216:                                                                                                  #  -OCT10        OCT     -10             #                       (OCT 77767)
051437,000217:                                                                                                  #  NEG4          DEC     -4              #                       (OCTAL 77773)
051438,000218:    7700           77774        NEG3               DEC      -3         B-14                       
051439,000219:    7701           77775        NEG2               OCT      77775                                 
051440,000220:    7702           77776        NEGONE             DEC      -1         B-14                       
051441,000221: 

Page 1204

051443,000223: 
051444,000224:                                                                                                  #  DEFINED BY EQUALS
051445,000225: 
051446,000226:                                                                                                  #  IT WOULD BE TO THE USERS ADVANTAGE TO OCCASIONALLY CHECK ANY OF THESE SYMBOLS IN ORDER TO PREVENT ANY
051447,000227:                                                                                                  #  ACCIDENTAL DEFINITION CHANGES.
051448,000228: 
051449,000229:    7703     7702               MINUS1             =        NEG1                                  
051450,000230:    7703     7702               NEG1               =        NEGONE                                
051451,000231:    7703     4770               ONE                =        BIT1                                  
051452,000232:    7703     4767               TWO                =        BIT2                                  
051453,000233:    7703     6214               THREE              =        OCTAL3                                
051454,000234:    7703     6214               LOW2               =        THREE                                 
051455,000235:    7703     4766               FOUR               =        BIT3                                  
051456,000236:    7703     6211               SIX                =        REVCNT                                
051457,000237:    7703     4774               LOW3               =        SEVEN                                 
051458,000238:    7703     4765               EIGHT              =        BIT4                                  
051459,000239:    7703     4322               NINE               =        R2D1                                  
051460,000240:    7703     4355               TEN                =        BINCON                                
051461,000241:    7703     4775               NOUTCON            =        ELEVEN                                
051462,000242:    7703     4351               OCT23              =        VD1                                   
051463,000243:    7703     4353               OCT25              =        MD1                                   
051464,000244:    7703     4757               PRIO1              =        BIT10                                 
051465,000245:    7703     5024               EBANK3             =        OCT1400                               
051466,000246:    7703     4756               PRIO2              =        BIT11                                 
051467,000247:    7703     5014               OCT120             =        SUPER101                              
051468,000248:    7703     5015               OCT140             =        SUPER110                              
051469,000249:    7703     4756               2K                 =        BIT11                                 
051470,000250:    7703     4756               EBANK4             =        BIT11                                 
051471,000251:    7703     4755               PRIO4              =        BIT12                                 
051472,000252:    7703     5045               EBANK6             =        PRIO3                                 
051473,000253:    7703     4754               QUARTER            =        BIT13                                 
051474,000254:    7703     4754               PRIO10             =        BIT13                                 
051475,000255:    7703     7617               OCT10001           =        CCSL                                  
051476,000256:    7703     4753               POS1/2             =        HALF                                  
051477,000257:    7703     4753               PRIO20             =        BIT14                                 
051478,000258:    7703     4753               HALF               =        BIT14                                 
051479,000259:    7703     4346               PRIO30             =        CHRPRIO                               
051480,000260:    7703     4346               BIT13-14           =        PRIO30                                #  INTERPRETER USES IN PROCESSING STORECODE
051481,000261:    7703     6440               OCT30002           =        TLOAD      +1                         
051482,000262:    7703     7656               B12T14             =        PRIO34                                
051483,000263:    7703     4752               NEGMAX             =        BIT15                                 
051484,000264:    7703     4752               VLOADCOD           =        BIT15                                 
051485,000265:    7703     6056               VLOAD*             =        OCT40001                              
051486,000266:    7703     4076               OCT60000           =        RELTAB11                              
051487,000267:    7703     4344               BANKMASK           =        HI5                                   
051488,000268: 

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