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.

051716,000002:                                                                                                  ## Copyright:   Public domain.
051717,000003:                                                                                                  ## Filename:    INTERPRETIVE_CONSTANTS.agc
051718,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
051719,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
051720,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
051721,000007:                                                                                                  ##              Apollo 15-17.
051722,000008:                                                                                                  ## Assembler:   yaYUL
051723,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
051724,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
051725,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
051726,000012:                                                                                                  ## Mod history: 2009-08-22 JL   Adapted from corresponding Comanche 055 file.
051727,000013:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
051728,000014:                                                                                                  ##              2017-02-05 RSB  Proofed comment text by diff'ing vs Comanche 55
051729,000015:                                                                                                  ##                              but no differences found.
051730,000016: 

Page 1205

051732,000018: 26,2000                                           SETLOC   INTPRET1                              
051733,000019: 26,2000                                           BANK                                           
051734,000020: 
051735,000021: 26,3325                                           COUNT*   $$/ICONS                              
051736,000022: 26,3325           10000 00000  DP1/4TH            2DEC     .25                                   
051737,000023: 26,3327           00000 00000  UNITZ              2DEC     0          B-28                       
051738,000024: 26,3331           00000 00000  UNITY              2DEC     0          B-28                       
051739,000025: 26,3333           20000 00000  UNITX              2DEC     .5                                    
051740,000026: 26,3335           00000 00000  ZEROVECS           2DEC     0          B-28                       
051741,000027: 26,3337           00000 00000                     2DEC     0          B-28                       
051742,000028: 26,3341           00000 00000                     2DEC     0          B-28                       
051743,000029: 26,3343  26,3333               DPHALF             =        UNITX                                 
051744,000030: 26,3343           37777        DPPOSMAX           OCT      37777                                 
051745,000031: 26,3344           37777                           OCT      37777                                 
051746,000032: 

Page 1206

051748,000034: 
051749,000035:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
051750,000036: 
051751,000037: 04,2000                                           SETLOC   INTPRET2                              
051752,000038: 04,2000                                           BANK                                           
051753,000039: 
051754,000040: 04,3753                                           COUNT*   $$/ICONS                              
051755,000041: 04,3753           00000 00000  ZUNIT              2DEC     0          B-28                       
051756,000042: 04,3755           00000 00000  YUNIT              2DEC     0          B-28                       
051757,000043: 04,3757           20000 00000  XUNIT              2DEC     .5                                    
051758,000044: 04,3761           00000 00000  ZEROVEC            2DEC     0          B-28                       
051759,000045: 04,3763           00000 00000                     2DEC     0          B-28                       
051760,000046: 04,3765           00000 00000                     2DEC     0          B-28                       
051761,000047: 
051762,000048: 04,3767           77777                           OCT      77777                                 #  -0, -6, -12 MUST REMAIN IN THIS ORDER
051763,000049: 04,3770           77771        DEC-6              DEC      -6         B-14                       
051764,000050: 04,3771           77763        DEC-12             DEC      -12        B-14                       
051765,000051: 04,3772           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
051766,000052: 04,3774           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
051767,000053: 
051768,000054: 04,3776  04,3761               ZERODP             =        ZEROVEC                               
051769,000055: 04,3776  04,3757               HALFDP             =        XUNIT                                 

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