GAP: ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091 17:53 DEC. 19, 1969Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.
Source Code
|
|
This source code is very close to the Apollo Guidance Computer software for the
Apollo 13 Lunar module. This revision of the Luminary 131 program is from December
of 1969, whereas there was a later revision in January of 1970, and still another
revision in February, which is the code that flew on the mission.
As far as this transcription is concerned, it was originally from a copy made in 1991 of
a printout from the collection of AGC developer Don Eyles for collector David Craig.
It was subsequently scanned by Gary Neff, reprocessed for online
presentation at the now-discontinued History of Recent Science and Technology (HRST) website
of MIT's Dibner Institute (the full-quality scans being discarded in the process),
and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a
high-quality replacement scan for a completely illegible page was later provided by Gary
Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many
errors to be introduced into the transcription. Accordingly, a second scan of the same physical
printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive,
and used to correct the transcription errors. All of the scanned materials mentioned,
as well as other Luminary 131 related material, are available online.
Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017,
so the two scans are not identical in that respect. The page-headings in the printout read, in part:GAP: ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091 17:53 DEC. 19, 1969Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together. |
046027,000002: ## Copyright: Public domain.
046028,000003: ## Filename: INTERPRETIVE_CONSTANT.agc
046029,000004: ## Purpose: A section of Luminary 1C, revision 131.
046030,000005: ## It is part of the source code for the Lunar Module's (LM)
046031,000006: ## Apollo Guidance Computer (AGC) for Apollo 13.
046032,000007: ## This file is intended to be a faithful transcription, except
046033,000008: ## that the code format has been changed to conform to the
046034,000009: ## requirements of the yaYUL assembler rather than the
046035,000010: ## original YUL assembler.
046036,000011: ## Reference: pp. 1094-1095
046037,000012: ## Contact: Ron Burkey <info@sandroid.org>.
046038,000013: ## Website: www.ibiblio.org/apollo/index.html
046039,000014: ## Mod history: 05/31/03 RSB. Began transcribing.
046040,000015: ## 05/14/05 RSB Corrected website reference above
046041,000016: ## 2017-01-06 RSB Page numbers now agree with those on the
046042,000017: ## original harcopy, as opposed to the PDF page
046043,000018: ## numbers in 1701.pdf.
046044,000019: ## 2017-02-27 RSB Proofed comment text using octopus/ProoferComments.
046045,000020: ## 2021-05-30 ABS DFC-6 -> DEC-6, DFC-12 -> DEC-12
046046,000021:
|
|
Page 1094 |
046048,000023: 23,2000 SETLOC INTPRET1
046049,000024: 23,2000 BANK
046050,000025:
046051,000026: 23,2513 COUNT* $$/ICONS
046052,000027: 23,2513 10000 00000 DP1/4TH 2DEC .25
046053,000028: 23,2515 00000 00000 UNITZ 2DEC 0 B-28
046054,000029: 23,2517 00000 00000 UNITY 2DEC 0 B-28
046055,000030: 23,2521 20000 00000 UNITX 2DEC .5
046056,000031: 23,2523 00000 00000 ZEROVECS 2DEC 0 B-28
046057,000032: 23,2525 00000 00000 2DEC 0 B-28
046058,000033: 23,2527 00000 00000 2DEC 0 B-28
046059,000034:
046060,000035: 23,2531 23,2521 DPHALF = UNITX
046061,000036: 23,2531 37777 DPPOSMAX OCT 37777
046062,000037: 23,2532 37777 OCT 37777
046063,000038:
|
|
Page 1095 |
046065,000040: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
046066,000041:
046067,000042: 12,2000 SETLOC INTPRET2
046068,000043: 12,2000 BANK
046069,000044:
046070,000045: 12,2000 COUNT* $$/ICONS
046071,000046: 12,2000 00000 00000 ZUNIT 2DEC 0 B-28
046072,000047: 12,2002 00000 00000 YUNIT 2DEC 0 B-28
046073,000048: 12,2004 20000 00000 XUNIT 2DEC .5
046074,000049: 12,2006 00000 00000 ZEROVEC 2DEC 0 B-28
046075,000050: 12,2010 00000 00000 2DEC 0 B-28
046076,000051: 12,2012 00000 00000 2DEC 0 B-28
046077,000052:
046078,000053: 12,2014 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
046079,000054: 12,2015 77771 DEC-6 DEC -6 B-14
046080,000055: 12,2016 77763 DEC-12 DEC -12 B-14
046081,000056: 12,2017 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
046082,000057: 12,2021 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
046083,000058:
046084,000059: 12,2023 12,2006 ZERODP = ZEROVEC
046085,000060: 12,2023 12,2004 HALFDP = XUNIT
046086,000061:
046087,000062:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc