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.
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. |
051716,000002: ## Copyright: Public domain.
051717,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
051718,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
051719,000005: ## build 072. This is for the Command Module's (CM)
051720,000006: ## Apollo Guidance Computer (AGC), for
051721,000007: ## Apollo 15-17.
051722,000008: ## Assembler: yaYUL
051723,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
051724,000010: ## Website: www.ibiblio.org/apollo/index.html
051725,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
051726,000012: ## Mod history: 2009-08-22 JL Adapted from corresponding Comanche 055 file.
051727,000013: ## 2010-02-20 RSB Un-##'d this header.
051728,000014: ## 2017-02-05 RSB Proofed comment text by diff'ing vs Comanche 55
051729,000015: ## but no differences found.
051730,000016:
|
|
Page 1205 |
051732,000018: 26,2000 SETLOC INTPRET1
051733,000019: 26,2000 BANK
051734,000020:
051735,000021: 26,3325 COUNT* $$/ICONS
051736,000022: 26,3325 10000 00000 DP1/4TH 2DEC .25
051737,000023: 26,3327 00000 00000 UNITZ 2DEC 0 B-28
051738,000024: 26,3331 00000 00000 UNITY 2DEC 0 B-28
051739,000025: 26,3333 20000 00000 UNITX 2DEC .5
051740,000026: 26,3335 00000 00000 ZEROVECS 2DEC 0 B-28
051741,000027: 26,3337 00000 00000 2DEC 0 B-28
051742,000028: 26,3341 00000 00000 2DEC 0 B-28
051743,000029: 26,3343 26,3333 DPHALF = UNITX
051744,000030: 26,3343 37777 DPPOSMAX OCT 37777
051745,000031: 26,3344 37777 OCT 37777
051746,000032:
|
|
Page 1206 |
051748,000034:
051749,000035: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
051750,000036:
051751,000037: 04,2000 SETLOC INTPRET2
051752,000038: 04,2000 BANK
051753,000039:
051754,000040: 04,3753 COUNT* $$/ICONS
051755,000041: 04,3753 00000 00000 ZUNIT 2DEC 0 B-28
051756,000042: 04,3755 00000 00000 YUNIT 2DEC 0 B-28
051757,000043: 04,3757 20000 00000 XUNIT 2DEC .5
051758,000044: 04,3761 00000 00000 ZEROVEC 2DEC 0 B-28
051759,000045: 04,3763 00000 00000 2DEC 0 B-28
051760,000046: 04,3765 00000 00000 2DEC 0 B-28
051761,000047:
051762,000048: 04,3767 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
051763,000049: 04,3770 77771 DEC-6 DEC -6 B-14
051764,000050: 04,3771 77763 DEC-12 DEC -12 B-14
051765,000051: 04,3772 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
051766,000052: 04,3774 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
051767,000053:
051768,000054: 04,3776 04,3761 ZERODP = ZEROVEC
051769,000055: 04,3776 04,3757 HALFDP = XUNIT
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc