Source Code
|
This is a reconstructed version of Luminary 130, the initial AGC program released
in November 1969 for the Apollo 13 LM. Three more releases
followed before the flown revision was finally manufactured in February 1970.
This reconstruction was created from a previous transcription of the original listing of
Luminary 131, combined with Luminary memo #129 which describes the small difference
between the Luminary 130 and 131. The reconstructed source code was verified by
matching memory-bank checksums to those listed for Luminary 130 in drawing 2021152G.
In this source code, program comments from the original (Luminary 131) code are
prefixed with '#', while those added later by the Virtual AGC project are prefixed
with '##'.
|
046239,000002: ## Copyright: Public domain.
046240,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
046241,000004: ## Purpose: A section of the reconstructed source code for Luminary 130.
046242,000005: ## This was the original program released for the Apollo 13 LM,
046243,000006: ## although several more revisions would follow. It has been
046244,000007: ## reconstructed from a listing of Luminary 131, from which it
046245,000008: ## differs on only two lines in P70-P71. The difference is
046246,000009: ## described in detail in Luminary memo #129, which was used
046247,000010: ## to perform the reconstruction. This file is intended to be a
046248,000011: ## faithful reconstruction, except that the code format has been
046249,000012: ## changed to conform to the requirements of the yaYUL assembler
046250,000013: ## rather than the original YUL assembler.
046251,000014: ## Reference: pp. 1094-1095
046252,000015: ## Contact: Ron Burkey <info@sandroid.org>.
046253,000016: ## Website: www.ibiblio.org/apollo/index.html
046254,000017: ## Mod history: 05/31/03 RSB. Began transcribing.
046255,000018: ## 05/14/05 RSB Corrected website reference above
046256,000019: ## 2017-01-06 RSB Page numbers now agree with those on the
046257,000020: ## original harcopy, as opposed to the PDF page
046258,000021: ## numbers in 1701.pdf.
046259,000022: ## 2017-02-27 RSB Proofed comment text using octopus/ProoferComments.
046260,000023: ## 2018-09-04 MAS Copied from Luminary 131 for Luminary 130.
046261,000024:
|
|
Page 1094
|
046263,000026: 23,2000 SETLOC INTPRET1
046264,000027: 23,2000 BANK
046265,000028:
046266,000029: 23,2513 COUNT* $$/ICONS
046267,000030: 23,2513 10000 00000 DP1/4TH 2DEC .25
046268,000031: 23,2515 00000 00000 UNITZ 2DEC 0 B-28
046269,000032: 23,2517 00000 00000 UNITY 2DEC 0 B-28
046270,000033: 23,2521 20000 00000 UNITX 2DEC .5
046271,000034: 23,2523 00000 00000 ZEROVECS 2DEC 0 B-28
046272,000035: 23,2525 00000 00000 2DEC 0 B-28
046273,000036: 23,2527 00000 00000 2DEC 0 B-28
046274,000037:
046275,000038: 23,2531 23,2521 DPHALF = UNITX
046276,000039: 23,2531 37777 DPPOSMAX OCT 37777
046277,000040: 23,2532 37777 OCT 37777
046278,000041:
|
|
Page 1095
|
046280,000043: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
046281,000044:
046282,000045: 12,2000 SETLOC INTPRET2
046283,000046: 12,2000 BANK
046284,000047:
046285,000048: 12,2000 COUNT* $$/ICONS
046286,000049: 12,2000 00000 00000 ZUNIT 2DEC 0 B-28
046287,000050: 12,2002 00000 00000 YUNIT 2DEC 0 B-28
046288,000051: 12,2004 20000 00000 XUNIT 2DEC .5
046289,000052: 12,2006 00000 00000 ZEROVEC 2DEC 0 B-28
046290,000053: 12,2010 00000 00000 2DEC 0 B-28
046291,000054: 12,2012 00000 00000 2DEC 0 B-28
046292,000055:
046293,000056: 12,2014 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
046294,000057: 12,2015 77771 DFC-6 DEC -6 B-14
046295,000058: 12,2016 77763 DFC-12 DEC -12 B-14
046296,000059: 12,2017 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
046297,000060: 12,2021 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
046298,000061:
046299,000062: 12,2023 12,2006 ZERODP = ZEROVEC
046300,000063: 12,2023 12,2004 HALFDP = XUNIT
046301,000064:
046302,000065:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc