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