Source Code
![]() |
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, 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 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
047332,000002: ## Copyright: Public domain.
047333,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
047334,000004: ## Purpose: A section of Luminary revision 210.
047335,000005: ## It is part of the source code for the Lunar Module's (LM)
047336,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
047337,000007: ## This file is intended to be a faithful transcription, except
047338,000008: ## that the code format has been changed to conform to the
047339,000009: ## requirements of the yaYUL assembler rather than the
047340,000010: ## original YUL assembler.
047341,000011: ## Reference: pp. 1098-1099
047342,000012: ## Assembler: yaYUL
047343,000013: ## Contact: Ron Burkey <info@sandroid.org>.
047344,000014: ## Website: www.ibiblio.org/apollo/index.html
047345,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
047346,000016: ## 2016-11-29 RRB Updated to Luminary210.
047347,000017: ## 2016-12-26 RSB Comment-text proofed using ProoferComments
047348,000018: ## but no errors found.
047349,000019:
![]() |
Page 1098 |
047351,000021: 23,2000 SETLOC INTPRET1
047352,000022: 23,2000 BANK
047353,000023:
047354,000024: 23,2474 COUNT* $$/ICONS
047355,000025: 23,2474 10000 00000 DP1/4TH 2DEC .25
047356,000026: 23,2476 00000 00000 UNITZ 2DEC 0 B-28
047357,000027: 23,2500 00000 00000 UNITY 2DEC 0 B-28
047358,000028: 23,2502 20000 00000 UNITX 2DEC .5
047359,000029: 23,2504 00000 00000 ZEROVECS 2DEC 0 B-28
047360,000030: 23,2506 00000 00000 2DEC 0 B-28
047361,000031: 23,2510 00000 00000 2DEC 0 B-28
047362,000032:
047363,000033: 23,2512 23,2502 DPHALF = UNITX
047364,000034: 23,2512 37777 DPPOSMAX OCT 37777
047365,000035: 23,2513 37777 OCT 37777
047366,000036:
![]() |
Page 1099 |
047368,000038: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
047369,000039:
047370,000040: 12,2000 SETLOC INTPRET2
047371,000041: 12,2000 BANK
047372,000042:
047373,000043: 12,2000 COUNT* $$/ICONS
047374,000044: 12,2000 00000 00000 ZUNIT 2DEC 0 B-28
047375,000045: 12,2002 00000 00000 YUNIT 2DEC 0 B-28
047376,000046: 12,2004 20000 00000 XUNIT 2DEC .5
047377,000047: 12,2006 00000 00000 ZEROVEC 2DEC 0 B-28
047378,000048: 12,2010 00000 00000 2DEC 0 B-28
047379,000049: 12,2012 00000 00000 2DEC 0 B-28
047380,000050:
047381,000051: 12,2014 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
047382,000052: 12,2015 77771 DFC-6 DEC -6 B-14
047383,000053: 12,2016 77763 DFC-12 DEC -12 B-14
047384,000054: 12,2017 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
047385,000055: 12,2021 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
047386,000056:
047387,000057: 12,2023 12,2006 ZERODP = ZEROVEC
047388,000058: 12,2023 12,2004 HALFDP = XUNIT
047389,000059:
047390,000060:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc