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