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