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: 

Page 36

001494,000019:                                                                                                 #  ABSOLUTE LOCATIONS FOR UPDATES
001495,000020: 

(JL 2009-09-01: The =ECADR directive doesn't seem to produce any binary, define any symbols, or allocate any memory. It appears to be there to create a convenient reference table of certain addresses.) ... (RSB 2010-01-16: Therefore, I've commented them out.)

001499,000024: 
001500,000025:                                                                                                 #  ECADR                  MNEMONIC
001501,000026:                                                                                                 #  -----                  --------
001502,000027:                                                                                                 #                 =ECADR  UPSVFLAG        # CSM/LM STATE VECTOR UPDATE
001503,000028: 
001504,000029:                                                                                                 #                 =ECADR  XSMD            # DESIRED REFSMMAT UPDATE
001505,000030: 
001506,000031:                                                                                                 #                 =ECADR  REFSMMAT        # REFSMMAT UPDATE
001507,000032: 
001508,000033:                                                                                                 #                 =ECADR  DELVSLV         # EXTERNAL DELTA-V UPDATE
001509,000034: 
001510,000035:                                                                                                 #                 =ECADR  LAT(SPL)        # RETROFIRE EXT DELTA-V OR ENTRY UPDATE
001511,000036: 
001512,000037:                                                                                                 #                 =ECADR  TIG             # LAMBERT TARGET UPDATE
001513,000038: 
001514,000039:                                                                                                 #                 =ECADR  RLS             # LANDING SITE VECTOR UPDATE

End of include-file ABSOLUTE_LOCATIONS_FOR_UPDATES.agc.  Parent file is MAIN.agc