Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
047482,000002: ## Copyright: Public domain.
047483,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
047484,000004: ## Purpose: The main source file for Luminary revision 069.
047485,000005: ## It is part of the source code for the original release
047486,000006: ## of the flight software for the Lunar Module's (LM) Apollo
047487,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
047488,000008: ## version was Luminary 69 revision 2, which included a
047489,000009: ## newer lunar gravity model and only affected module 2.
047490,000010: ## This file is intended to be a faithful transcription, except
047491,000011: ## that the code format has been changed to conform to the
047492,000012: ## requirements of the yaYUL assembler rather than the
047493,000013: ## original YUL assembler.
047494,000014: ## Reference: pp. 1095-1096
047495,000015: ## Assembler: yaYUL
047496,000016: ## Contact: Ron Burkey <info@sandroid.org>.
047497,000017: ## Website: www.ibiblio.org/apollo/index.html
047498,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
047499,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
047500,000020: ## 2016-12-26 RRB Updated for Luminary 69.
047501,000021: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
047502,000022: ## but no errors found.
047503,000023:
![]() |
Page 1095 |
047505,000025: 23,2000 SETLOC INTPRET1
047506,000026: 23,2000 BANK
047507,000027:
047508,000028: 23,2413 COUNT* $$/ICONS
047509,000029: 23,2413 10000 00000 DP1/4TH 2DEC .25
047510,000030:
047511,000031: 23,2415 00000 00000 UNITZ 2DEC 0 B-28
047512,000032:
047513,000033: 23,2417 00000 00000 UNITY 2DEC 0 B-28
047514,000034:
047515,000035: 23,2421 20000 00000 UNITX 2DEC .5
047516,000036:
047517,000037: 23,2423 00000 00000 ZEROVECS 2DEC 0 B-28
047518,000038:
047519,000039: 23,2425 00000 00000 2DEC 0 B-28
047520,000040:
047521,000041: 23,2427 00000 00000 2DEC 0 B-28
047522,000042:
047523,000043: 23,2431 23,2421 DPHALF = UNITX
047524,000044: 23,2431 37777 DPPOSMAX OCT 37777
047525,000045: 23,2432 37777 OCT 37777
047526,000046:
![]() |
Page 1096 |
047528,000048: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
047529,000049:
047530,000050: 11,2000 SETLOC INTPRET2
047531,000051: 11,2000 BANK
047532,000052:
047533,000053: 11,2266 COUNT* $$/ICONS
047534,000054: 11,2266 00000 00000 ZUNIT 2DEC 0 B-28
047535,000055:
047536,000056: 11,2270 00000 00000 YUNIT 2DEC 0 B-28
047537,000057:
047538,000058: 11,2272 20000 00000 XUNIT 2DEC .5
047539,000059:
047540,000060: 11,2274 00000 00000 ZEROVEC 2DEC 0 B-28
047541,000061:
047542,000062: 11,2276 00000 00000 2DEC 0 B-28
047543,000063:
047544,000064: 11,2300 00000 00000 2DEC 0 B-28
047545,000065:
047546,000066: 11,2302 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
047547,000067: 11,2303 77771 DFC-6 DEC -6 B-14
047548,000068: 11,2304 77763 DFC-12 DEC -12 B-14
047549,000069: 11,2305 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
047550,000070:
047551,000071: 11,2307 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
047552,000072:
047553,000073: 11,2311 11,2274 ZERODP = ZEROVEC
047554,000074: 11,2311 11,2272 HALFDP = XUNIT
047555,000075:
047556,000076:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc