Source Code
046752,000001: # Copyright: Public domain.
046753,000002: # Filename: INTERPRETIVE_CONSTANT.agc
046754,000003: # Purpose: Part of the source code for Luminary 1A build 099.
046755,000004: # It is part of the source code for the Lunar Module's (LM)
046756,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
046757,000006: # Assembler: yaYUL
046758,000007: # Contact: Ron Burkey <info@sandroid.org>.
046759,000008: # Website: www.ibiblio.org/apollo.
046760,000009: # Pages: 1100-1101
046761,000010: # Mod history: 2009-05-25 RSB Adapted from the corresponding
046762,000011: # Luminary131 file, using page
046763,000012: # images from Luminary 1A.
046764,000013:
046765,000014: # This source code has been transcribed or otherwise adapted from
046766,000015: # digitized images of a hardcopy from the MIT Museum. The digitization
046767,000016: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of
046768,000017: # the Museum. Many thanks to both. The images (with suitable reduction
046769,000018: # in storage size and consequent reduction in image quality as well) are
046770,000019: # available online at www.ibiblio.org/apollo. If for some reason you
046771,000020: # find that the images are illegible, contact me at info@sandroid.org
046772,000021: # about getting access to the (much) higher-quality images which Paul
046773,000022: # actually created.
046774,000023:
046775,000024: # Notations on the hardcopy document read, in part:
046776,000025:
046777,000026: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
046778,000027: # 16:27 JULY 14, 1969
046779,000028:
046780,000029: # Page 1100
046781,000030: 23,2000 SETLOC INTPRET1
046782,000031: 23,2000 BANK
046783,000032:
046784,000033: 23,2511 COUNT* $$/ICONS
046785,000034: 23,2511 10000 00000 DP1/4TH 2DEC .25
046786,000035:
046787,000036: 23,2513 00000 00000 UNITZ 2DEC 0 B-28
046788,000037:
046789,000038: 23,2515 00000 00000 UNITY 2DEC 0 B-28
046790,000039:
046791,000040: 23,2517 20000 00000 UNITX 2DEC .5
046792,000041:
046793,000042: 23,2521 00000 00000 ZEROVECS 2DEC 0 B-28
046794,000043:
046795,000044: 23,2523 00000 00000 2DEC 0 B-28
046796,000045:
046797,000046: 23,2525 00000 00000 2DEC 0 B-28
046798,000047:
046799,000048: 23,2527 23,2517 DPHALF = UNITX
046800,000049: 23,2527 37777 DPPOSMAX OCT 37777
046801,000050: 23,2530 37777 OCT 37777
046802,000051:
046803,000052: # Page 1101
046804,000053: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
046805,000054:
046806,000055: 12,2000 SETLOC INTPRET2
046807,000056: 12,2000 BANK
046808,000057:
046809,000058: 12,2000 COUNT* $$/ICONS
046810,000059: 12,2000 00000 00000 ZUNIT 2DEC 0 B-28
046811,000060:
046812,000061: 12,2002 00000 00000 YUNIT 2DEC 0 B-28
046813,000062:
046814,000063: 12,2004 20000 00000 XUNIT 2DEC .5
046815,000064:
046816,000065: 12,2006 00000 00000 ZEROVEC 2DEC 0 B-28
046817,000066:
046818,000067: 12,2010 00000 00000 2DEC 0 B-28
046819,000068:
046820,000069: 12,2012 00000 00000 2DEC 0 B-28
046821,000070:
046822,000071: 12,2014 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
046823,000072: 12,2015 77771 DFC-6 DEC -6 B-14
046824,000073: 12,2016 77763 DFC-12 DEC -12 B-14
046825,000074: 12,2017 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
046826,000075:
046827,000076: 12,2021 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
046828,000077:
046829,000078: 12,2023 12,2006 ZERODP = ZEROVEC
046830,000079: 12,2023 12,2004 HALFDP = XUNIT
046831,000080:
046832,000081:
End of include-file INTERPRETIVE_CONSTANT.agc. Parent file is MAIN.agc