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