Source Code
|
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. 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, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
051521,000002: # Copyright: Public domain.
051522,000003: # Filename: INTERPRETIVE_CONSTANTS.agc
051523,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
051524,000005: # build 072. This is for the Command Module's (CM)
051525,000006: # Apollo Guidance Computer (AGC), we believe for
051526,000007: # Apollo 15-17.
051527,000008: # Assembler: yaYUL
051528,000009: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
051529,000010: # Website: www.ibiblio.org/apollo/index.html
051530,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
051531,000012: # Mod history: 2009-08-22 JL Adapted from corresponding Comanche 055 file.
051532,000013: # 2010-02-20 RSB Un-##'d this header.
051533,000014:
|
|
Page 1205 |
051535,000016: 26,2000 SETLOC INTPRET1
051536,000017: 26,2000 BANK
051537,000018:
051538,000019: 26,3325 COUNT* $$/ICONS
051539,000020: 26,3325 10000 00000 DP1/4TH 2DEC .25
051540,000021: 26,3327 00000 00000 UNITZ 2DEC 0 B-28
051541,000022: 26,3331 00000 00000 UNITY 2DEC 0 B-28
051542,000023: 26,3333 20000 00000 UNITX 2DEC .5
051543,000024: 26,3335 00000 00000 ZEROVECS 2DEC 0 B-28
051544,000025: 26,3337 00000 00000 2DEC 0 B-28
051545,000026: 26,3341 00000 00000 2DEC 0 B-28
051546,000027: 26,3343 26,3333 DPHALF = UNITX
051547,000028: 26,3343 37777 DPPOSMAX OCT 37777
051548,000029: 26,3344 37777 OCT 37777
051549,000030:
|
|
Page 1206 |
051551,000032:
051552,000033: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
051553,000034:
051554,000035: 04,2000 SETLOC INTPRET2
051555,000036: 04,2000 BANK
051556,000037:
051557,000038: 04,3753 COUNT* $$/ICONS
051558,000039: 04,3753 00000 00000 ZUNIT 2DEC 0 B-28
051559,000040: 04,3755 00000 00000 YUNIT 2DEC 0 B-28
051560,000041: 04,3757 20000 00000 XUNIT 2DEC .5
051561,000042: 04,3761 00000 00000 ZEROVEC 2DEC 0 B-28
051562,000043: 04,3763 00000 00000 2DEC 0 B-28
051563,000044: 04,3765 00000 00000 2DEC 0 B-28
051564,000045:
051565,000046: 04,3767 77777 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
051566,000047: 04,3770 77771 DEC-6 DEC -6 B-14
051567,000048: 04,3771 77763 DEC-12 DEC -12 B-14
051568,000049: 04,3772 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
051569,000050: 04,3774 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
051570,000051:
051571,000052: 04,3776 04,3761 ZERODP = ZEROVEC
051572,000053: 04,3776 04,3757 HALFDP = XUNIT
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc