Source Code

These source-code files derive from a printout of Luminary 116 (the Apollo 12 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Ron Burkey, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

046259,000002:                                                                                                  ## Copyright:   Public domain.
046260,000003:                                                                                                  ## Filename:    INTERPRETIVE_CONSTANTS.agc
046261,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
046262,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM) 
046263,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
046264,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
046265,000008:                                                                                                  ##              that the code format has been changed to conform to the
046266,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
046267,000010:                                                                                                  ##              original YUL assembler.
046268,000011:                                                                                                  ## Reference:   pp. 1092-1093
046269,000012:                                                                                                  ## Assembler:   yaYUL
046270,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
046271,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
046272,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
046273,000016:                                                                                                  ##              2017-01-30 RRB  Updated for Luminary 116.
046274,000017:                                                                                                  ##              2017-03-13 RSB  Proofed comment text via 3-way diff vs
046275,000018:                                                                                                  ##                              Luminary 99 and 131 ... no problems found.
046276,000019: 

Page 1092

046278,000021: 23,2000                                           SETLOC   INTPRET1                              
046279,000022: 23,2000                                           BANK                                           
046280,000023: 
046281,000024: 23,2513                                           COUNT*   $$/ICONS                              
046282,000025: 23,2513           10000 00000  DP1/4TH            2DEC     .25                                   
046283,000026: 
046284,000027: 23,2515           00000 00000  UNITZ              2DEC     0          B-28                       
046285,000028: 
046286,000029: 23,2517           00000 00000  UNITY              2DEC     0          B-28                       
046287,000030: 
046288,000031: 23,2521           20000 00000  UNITX              2DEC     .5                                    
046289,000032: 
046290,000033: 23,2523           00000 00000  ZEROVECS           2DEC     0          B-28                       
046291,000034: 
046292,000035: 23,2525           00000 00000                     2DEC     0          B-28                       
046293,000036: 
046294,000037: 23,2527           00000 00000                     2DEC     0          B-28                       
046295,000038: 
046296,000039: 23,2531  23,2521               DPHALF             =        UNITX                                 
046297,000040: 23,2531           37777        DPPOSMAX           OCT      37777                                 
046298,000041: 23,2532           37777                           OCT      37777                                 
046299,000042: 

Page 1093

046301,000044:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
046302,000045: 
046303,000046: 12,2000                                           SETLOC   INTPRET2                              
046304,000047: 12,2000                                           BANK                                           
046305,000048: 
046306,000049: 12,2000                                           COUNT*   $$/ICONS                              
046307,000050: 12,2000           00000 00000  ZUNIT              2DEC     0          B-28                       
046308,000051: 
046309,000052: 12,2002           00000 00000  YUNIT              2DEC     0          B-28                       
046310,000053: 
046311,000054: 12,2004           20000 00000  XUNIT              2DEC     .5                                    
046312,000055: 
046313,000056: 12,2006           00000 00000  ZEROVEC            2DEC     0          B-28                       
046314,000057: 
046315,000058: 12,2010           00000 00000                     2DEC     0          B-28                       
046316,000059: 
046317,000060: 12,2012           00000 00000                     2DEC     0          B-28                       
046318,000061: 
046319,000062: 12,2014           77777                           OCT      77777                                 #  -0,-6,-12 MUST REMAIN IN THIS ORDER
046320,000063: 12,2015           77771        DFC-6              DEC      -6         B-14                       
046321,000064: 12,2016           77763        DFC-12             DEC      -12        B-14                       
046322,000065: 12,2017           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
046323,000066: 
046324,000067: 12,2021           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
046325,000068: 
046326,000069: 12,2023  12,2006               ZERODP             =        ZEROVEC                               
046327,000070: 12,2023  12,2004               HALFDP             =        XUNIT                                 
046328,000071: 
046329,000072: 

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