Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be 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 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
051726,000002: ## Copyright: Public domain.
051727,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
051728,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
051729,000005: ## build 072. This is for the Command Module's (CM)
051730,000006: ## Apollo Guidance Computer (AGC), for
051731,000007: ## Apollo 15-17.
051732,000008: ## Assembler: yaYUL
051733,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
051734,000010: ## Website: www.ibiblio.org/apollo/index.html
051735,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
051736,000012: ## Mod history: 2009-08-22 JL Adapted from corresponding Comanche 055 file.
051737,000013: ## 2010-02-20 RSB Un-##'d this header.
051738,000014: ## 2017-02-05 RSB Proofed comment text by diff'ing vs Comanche 55
051739,000015: ## but no differences found.
051740,000016:
![]() |
Page 1205 |
051742,000018: 26,2000 SETLOC INTPRET1
051743,000019: 26,2000 BANK
051744,000020:
051745,000021: 26,3325 COUNT* $$/ICONS
051746,000022: 26,3325 10000 00000 DP1/4TH 2DEC .25
051747,000023: 26,3327 00000 00000 UNITZ 2DEC 0 B-28
051748,000024: 26,3331 00000 00000 UNITY 2DEC 0 B-28
051749,000025: 26,3333 20000 00000 UNITX 2DEC .5
051750,000026: 26,3335 00000 00000 ZEROVECS 2DEC 0 B-28
051751,000027: 26,3337 00000 00000 2DEC 0 B-28
051752,000028: 26,3341 00000 00000 2DEC 0 B-28
051753,000029: 26,3343 26,3333 DPHALF = UNITX
051754,000030: 26,3343 37777 DPPOSMAX OCT 37777
051755,000031: 26,3344 37777 OCT 37777
051756,000032:
![]() |
Page 1206 |
051758,000034:
051759,000035: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
051760,000036:
051761,000037: 04,2000 SETLOC INTPRET2
051762,000038: 04,2000 BANK
051763,000039:
051764,000040: 04,3753 COUNT* $$/ICONS
051765,000041: 04,3753 00000 00000 ZUNIT 2DEC 0 B-28
051766,000042: 04,3755 00000 00000 YUNIT 2DEC 0 B-28
051767,000043: 04,3757 20000 00000 XUNIT 2DEC .5
051768,000044: 04,3761 00000 00000 ZEROVEC 2DEC 0 B-28
051769,000045: 04,3763 00000 00000 2DEC 0 B-28
051770,000046: 04,3765 00000 00000 2DEC 0 B-28
051771,000047:
051772,000048: 04,3767 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
051773,000049: 04,3770 77771 DEC-6 DEC -6 B-14
051774,000050: 04,3771 77763 DEC-12 DEC -12 B-14
051775,000051: 04,3772 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
051776,000052: 04,3774 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
051777,000053:
051778,000054: 04,3776 04,3761 ZERODP = ZEROVEC
051779,000055: 04,3776 04,3757 HALFDP = XUNIT
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc