GAP: ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061 16:27 JULY 14,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061 16:27 JULY 14,1969Note that the date is the date of the printout, not the date of the program revision. |
047084,000002: ## Copyright: Public domain.
047085,000003: ## Filename: INTERPRETIVE_CONSTANT.agc
047086,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
047087,000005: ## It is part of the source code for the Lunar Module's (LM)
047088,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
047089,000007: ## Assembler: yaYUL
047090,000008: ## Contact: Ron Burkey <info@sandroid.org>.
047091,000009: ## Website: www.ibiblio.org/apollo.
047092,000010: ## Pages: 1100-1101
047093,000011: ## Mod history: 2009-05-25 RSB Adapted from the corresponding
047094,000012: ## Luminary131 file, using page
047095,000013: ## images from Luminary 1A.
047096,000014: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments
047097,000015: ## but no errors found.
047098,000016: ## 2021-05-30 ABS DFC-6 -> DEC-6, DFC-12 -> DEC-12
047099,000017: ##
047100,000018: ## This source code has been transcribed or otherwise adapted from
047101,000019: ## digitized images of a hardcopy from the MIT Museum. The digitization
047102,000020: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
047103,000021: ## the Museum. Many thanks to both. The images (with suitable reduction
047104,000022: ## in storage size and consequent reduction in image quality as well) are
047105,000023: ## available online at www.ibiblio.org/apollo. If for some reason you
047106,000024: ## find that the images are illegible, contact me at info@sandroid.org
047107,000025: ## about getting access to the (much) higher-quality images which Paul
047108,000026: ## actually created.
047109,000027: ##
047110,000028: ## Notations on the hardcopy document read, in part:
047111,000029: ##
047112,000030: ## Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
047113,000031: ## 16:27 JULY 14, 1969
047114,000032:
|
|
Page 1100 |
047116,000034: 23,2000 SETLOC INTPRET1
047117,000035: 23,2000 BANK
047118,000036:
047119,000037: 23,2511 COUNT* $$/ICONS
047120,000038: 23,2511 10000 00000 DP1/4TH 2DEC .25
047121,000039:
047122,000040: 23,2513 00000 00000 UNITZ 2DEC 0 B-28
047123,000041:
047124,000042: 23,2515 00000 00000 UNITY 2DEC 0 B-28
047125,000043:
047126,000044: 23,2517 20000 00000 UNITX 2DEC .5
047127,000045:
047128,000046: 23,2521 00000 00000 ZEROVECS 2DEC 0 B-28
047129,000047:
047130,000048: 23,2523 00000 00000 2DEC 0 B-28
047131,000049:
047132,000050: 23,2525 00000 00000 2DEC 0 B-28
047133,000051:
047134,000052: 23,2527 23,2517 DPHALF = UNITX
047135,000053: 23,2527 37777 DPPOSMAX OCT 37777
047136,000054: 23,2530 37777 OCT 37777
047137,000055:
|
|
Page 1101 |
047139,000057: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
047140,000058:
047141,000059: 12,2000 SETLOC INTPRET2
047142,000060: 12,2000 BANK
047143,000061:
047144,000062: 12,2000 COUNT* $$/ICONS
047145,000063: 12,2000 00000 00000 ZUNIT 2DEC 0 B-28
047146,000064:
047147,000065: 12,2002 00000 00000 YUNIT 2DEC 0 B-28
047148,000066:
047149,000067: 12,2004 20000 00000 XUNIT 2DEC .5
047150,000068:
047151,000069: 12,2006 00000 00000 ZEROVEC 2DEC 0 B-28
047152,000070:
047153,000071: 12,2010 00000 00000 2DEC 0 B-28
047154,000072:
047155,000073: 12,2012 00000 00000 2DEC 0 B-28
047156,000074:
047157,000075: 12,2014 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
047158,000076: 12,2015 77771 DEC-6 DEC -6 B-14
047159,000077: 12,2016 77763 DEC-12 DEC -12 B-14
047160,000078: 12,2017 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
047161,000079:
047162,000080: 12,2021 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
047163,000081:
047164,000082: 12,2023 12,2006 ZERODP = ZEROVEC
047165,000083: 12,2023 12,2004 HALFDP = XUNIT
047166,000084:
047167,000085:
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc