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