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