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