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 '##'.
|
046264,000002: ## Copyright: Public domain.
046265,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
046266,000004: ## Purpose: A section of the reconstructed source code for Luminary 130.
046267,000005: ## This was the original program released for the Apollo 13 LM,
046268,000006: ## although several more revisions would follow. It has been
046269,000007: ## reconstructed from a listing of Luminary 131, from which it
046270,000008: ## differs on only two lines in P70-P71. The difference is
046271,000009: ## described in detail in Luminary memo #129, which was used
046272,000010: ## to perform the reconstruction. This file is intended to be a
046273,000011: ## faithful reconstruction, except that the code format has been
046274,000012: ## changed to conform to the requirements of the yaYUL assembler
046275,000013: ## rather than the original YUL assembler.
046276,000014: ## Reference: pp. 1094-1095
046277,000015: ## Contact: Ron Burkey <info@sandroid.org>.
046278,000016: ## Website: www.ibiblio.org/apollo/index.html
046279,000017: ## Mod history: 05/31/03 RSB. Began transcribing.
046280,000018: ## 05/14/05 RSB Corrected website reference above
046281,000019: ## 2017-01-06 RSB Page numbers now agree with those on the
046282,000020: ## original harcopy, as opposed to the PDF page
046283,000021: ## numbers in 1701.pdf.
046284,000022: ## 2017-02-27 RSB Proofed comment text using octopus/ProoferComments.
046285,000023: ## 2018-09-04 MAS Copied from Luminary 131 for Luminary 130.
046286,000024: ## 2021-05-30 ABS DFC-6 -> DEC-6, DFC-12 -> DEC-12
046287,000025:
|
|
Page 1094
|
046289,000027: 23,2000 SETLOC INTPRET1
046290,000028: 23,2000 BANK
046291,000029:
046292,000030: 23,2513 COUNT* $$/ICONS
046293,000031: 23,2513 10000 00000 DP1/4TH 2DEC .25
046294,000032: 23,2515 00000 00000 UNITZ 2DEC 0 B-28
046295,000033: 23,2517 00000 00000 UNITY 2DEC 0 B-28
046296,000034: 23,2521 20000 00000 UNITX 2DEC .5
046297,000035: 23,2523 00000 00000 ZEROVECS 2DEC 0 B-28
046298,000036: 23,2525 00000 00000 2DEC 0 B-28
046299,000037: 23,2527 00000 00000 2DEC 0 B-28
046300,000038:
046301,000039: 23,2531 23,2521 DPHALF = UNITX
046302,000040: 23,2531 37777 DPPOSMAX OCT 37777
046303,000041: 23,2532 37777 OCT 37777
046304,000042:
|
|
Page 1095
|
046306,000044: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
046307,000045:
046308,000046: 12,2000 SETLOC INTPRET2
046309,000047: 12,2000 BANK
046310,000048:
046311,000049: 12,2000 COUNT* $$/ICONS
046312,000050: 12,2000 00000 00000 ZUNIT 2DEC 0 B-28
046313,000051: 12,2002 00000 00000 YUNIT 2DEC 0 B-28
046314,000052: 12,2004 20000 00000 XUNIT 2DEC .5
046315,000053: 12,2006 00000 00000 ZEROVEC 2DEC 0 B-28
046316,000054: 12,2010 00000 00000 2DEC 0 B-28
046317,000055: 12,2012 00000 00000 2DEC 0 B-28
046318,000056:
046319,000057: 12,2014 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
046320,000058: 12,2015 77771 DEC-6 DEC -6 B-14
046321,000059: 12,2016 77763 DEC-12 DEC -12 B-14
046322,000060: 12,2017 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
046323,000061: 12,2021 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
046324,000062:
046325,000063: 12,2023 12,2006 ZERODP = ZEROVEC
046326,000064: 12,2023 12,2004 HALFDP = XUNIT
046327,000065:
046328,000066:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc