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. |
001477,000002: # Copyright: Public domain.
001478,000003: # Filename: ABSOLUTE_LOCATIONS_FOR_UPDATES.agc
001479,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
001480,000005: # build 072. This is for the Command Module's (CM)
001481,000006: # Apollo Guidance Computer (AGC), we believe for
001482,000007: # Apollo 15-17.
001483,000008: # Assembler: yaYUL
001484,000009: # Contact: Onno Hommes <ohommes@alumni.cmu.edu>
001485,000010: # Website: www.ibiblio.org/apollo/index.html
001486,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
001487,000012: # Mod history: 2009-07-29 OH New file created.
001488,000013: # 2009-09-01 JL Commented out =ECADR directives, see note below.
001489,000014: # 2009-09-03 JL Uncommented =ECADR directives, after modifying yaYUL to skip them.
001490,000015: # 2010-01-16 RSB Commented them out again, to eliminate compile-time warnings.
001491,000016: # 2010-02-20 RSB Un-##'d this header.
001492,000017: # 2011-05-07 JL Removed comment.
001493,000018:
001494,000019: # # Page 36
001495,000020: # ABSOLUTE LOCATIONS FOR UPDATES
001496,000021:
001497,000022: # ECADR MNEMONIC
001498,000023: # ----- --------
001499,000024: ??????? =ECADR UPSVFLAG # CSM/LM STATE VECTOR UPDATE
001500,000025:
001501,000026: ??????? =ECADR XSMD # DESIRED REFSMMAT UPDATE
001502,000027:
001503,000028: ??????? =ECADR REFSMMAT # REFSMMAT UPDATE
001504,000029:
001505,000030: ??????? =ECADR DELVSLV # EXTERNAL DELTA-V UPDATE
001506,000031:
001507,000032: ??????? =ECADR LAT(SPL) # RETROFIRE EXT DELTA-V OR ENTRY UPDATE
001508,000033:
001509,000034: ??????? =ECADR TIG # LAMBERT TARGET UPDATE
001510,000035:
001511,000036: ??????? =ECADR RLS # LANDING SITE VECTOR UPDATE
End of include-file ABSOLUTE_LOCATIONS_FOR_UPDATES.agc. Parent file is MAIN.agc