Source Code
045464,000001: # Copyright: Public domain.
045465,000002: # Filename: INTERPRETIVE_CONSTANT.agc
045466,000003: # Purpose: A section of Luminary 1C, revision 131.
045467,000004: # It is part of the source code for the Lunar Module's (LM)
045468,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14.
045469,000006: # This file is intended to be a faithful transcription, except
045470,000007: # that the code format has been changed to conform to the
045471,000008: # requirements of the yaYUL assembler rather than the
045472,000009: # original YUL assembler.
045473,000010: # Reference: pp. 1099-1100 of 1729.pdf.
045474,000011: # Contact: Ron Burkey <info@sandroid.org>.
045475,000012: # Website: www.ibiblio.org/apollo/index.html
045476,000013: # Mod history: 05/31/03 RSB. Began transcribing.
045477,000014: # 05/14/05 RSB Corrected website reference above
045478,000015:
045479,000016: # Page 1099
045480,000017: 23,2000 SETLOC INTPRET1
045481,000018: 23,2000 BANK
045482,000019:
045483,000020: 23,2513 COUNT* $$/ICONS
045484,000021: 23,2513 10000 00000 DP1/4TH 2DEC .25
045485,000022: 23,2515 00000 00000 UNITZ 2DEC 0 B-28
045486,000023: 23,2517 00000 00000 UNITY 2DEC 0 B-28
045487,000024: 23,2521 20000 00000 UNITX 2DEC .5
045488,000025: 23,2523 00000 00000 ZEROVECS 2DEC 0 B-28
045489,000026: 23,2525 00000 00000 2DEC 0 B-28
045490,000027: 23,2527 00000 00000 2DEC 0 B-28
045491,000028:
045492,000029: 23,2531 23,2521 DPHALF = UNITX
045493,000030: 23,2531 37777 DPPOSMAX OCT 37777
045494,000031: 23,2532 37777 OCT 37777
045495,000032:
045496,000033: # Page 1100
045497,000034: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
045498,000035:
045499,000036: 12,2000 SETLOC INTPRET2
045500,000037: 12,2000 BANK
045501,000038:
045502,000039: 12,2000 COUNT* $$/ICONS
045503,000040: 12,2000 00000 00000 ZUNIT 2DEC 0 B-28
045504,000041: 12,2002 00000 00000 YUNIT 2DEC 0 B-28
045505,000042: 12,2004 20000 00000 XUNIT 2DEC .5
045506,000043: 12,2006 00000 00000 ZEROVEC 2DEC 0 B-28
045507,000044: 12,2010 00000 00000 2DEC 0 B-28
045508,000045: 12,2012 00000 00000 2DEC 0 B-28
045509,000046:
045510,000047: 12,2014 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
045511,000048: 12,2015 77771 DFC-6 DEC -6 B-14
045512,000049: 12,2016 77763 DFC-12 DEC -12 B-14
045513,000050: 12,2017 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUS REMAIN
045514,000051: 12,2021 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
045515,000052:
045516,000053: 12,2023 12,2006 ZERODP = ZEROVEC
045517,000054: 12,2023 12,2004 HALFDP = XUNIT
045518,000055:
045519,000056:
End of include-file INTERPRETIVE_CONSTANT.agc. Parent file is MAIN.agc