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. |
047472,000002: ## Copyright: Public domain.
047473,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
047474,000004: ## Purpose: The main source file for Luminary revision 069.
047475,000005: ## It is part of the source code for the original release
047476,000006: ## of the flight software for the Lunar Module's (LM) Apollo
047477,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
047478,000008: ## version was Luminary 69 revision 2, which included a
047479,000009: ## newer lunar gravity model and only affected module 2.
047480,000010: ## This file is intended to be a faithful transcription, except
047481,000011: ## that the code format has been changed to conform to the
047482,000012: ## requirements of the yaYUL assembler rather than the
047483,000013: ## original YUL assembler.
047484,000014: ## Reference: pp. 1095-1096
047485,000015: ## Assembler: yaYUL
047486,000016: ## Contact: Ron Burkey <info@sandroid.org>.
047487,000017: ## Website: www.ibiblio.org/apollo/index.html
047488,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
047489,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
047490,000020: ## 2016-12-26 RRB Updated for Luminary 69.
047491,000021: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
047492,000022: ## but no errors found.
047493,000023:
![]() |
Page 1095 |
047495,000025: 23,2000 SETLOC INTPRET1
047496,000026: 23,2000 BANK
047497,000027:
047498,000028: 23,2413 COUNT* $$/ICONS
047499,000029: 23,2413 10000 00000 DP1/4TH 2DEC .25
047500,000030:
047501,000031: 23,2415 00000 00000 UNITZ 2DEC 0 B-28
047502,000032:
047503,000033: 23,2417 00000 00000 UNITY 2DEC 0 B-28
047504,000034:
047505,000035: 23,2421 20000 00000 UNITX 2DEC .5
047506,000036:
047507,000037: 23,2423 00000 00000 ZEROVECS 2DEC 0 B-28
047508,000038:
047509,000039: 23,2425 00000 00000 2DEC 0 B-28
047510,000040:
047511,000041: 23,2427 00000 00000 2DEC 0 B-28
047512,000042:
047513,000043: 23,2431 23,2421 DPHALF = UNITX
047514,000044: 23,2431 37777 DPPOSMAX OCT 37777
047515,000045: 23,2432 37777 OCT 37777
047516,000046:
![]() |
Page 1096 |
047518,000048: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
047519,000049:
047520,000050: 11,2000 SETLOC INTPRET2
047521,000051: 11,2000 BANK
047522,000052:
047523,000053: 11,2266 COUNT* $$/ICONS
047524,000054: 11,2266 00000 00000 ZUNIT 2DEC 0 B-28
047525,000055:
047526,000056: 11,2270 00000 00000 YUNIT 2DEC 0 B-28
047527,000057:
047528,000058: 11,2272 20000 00000 XUNIT 2DEC .5
047529,000059:
047530,000060: 11,2274 00000 00000 ZEROVEC 2DEC 0 B-28
047531,000061:
047532,000062: 11,2276 00000 00000 2DEC 0 B-28
047533,000063:
047534,000064: 11,2300 00000 00000 2DEC 0 B-28
047535,000065:
047536,000066: 11,2302 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
047537,000067: 11,2303 77771 DFC-6 DEC -6 B-14
047538,000068: 11,2304 77763 DFC-12 DEC -12 B-14
047539,000069: 11,2305 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
047540,000070:
047541,000071: 11,2307 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
047542,000072:
047543,000073: 11,2311 11,2274 ZERODP = ZEROVEC
047544,000074: 11,2311 11,2272 HALFDP = XUNIT
047545,000075:
047546,000076:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc