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