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, 1971
Note that the date is the date of the printout, not the date of the program revision.

001522,000002:                                                                                                  ## Copyright:   Public domain.
001523,000003:                                                                                                  ## Filename:    SUBROUTINE_CALLS.agc
001524,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
001525,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
001526,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for 
001527,000007:                                                                                                  ##              Apollo 15-17.
001528,000008:                                                                                                  ## Assembler:   yaYUL
001529,000009:                                                                                                  ## Contact:     Onno Hommes <ohommes@alumni.cmu.edu>
001530,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
001531,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
001532,000012:                                                                                                  ## Mod history: 2009-07-29 OH   New file created.
001533,000013:                                                                                                  ##              2009-09-04 JL   Fix typo.
001534,000014:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
001535,000015:                                                                                                  ##              2017-01-04 RSB  Proofed comment text using octopus/ProoferComments
001536,000016:                                                                                                  ##                              and fixed errors found.
001537,000017: 

Page 37

001539,000019: 
001540,000020: ???????                                           SUBRO    ERASTOTL   041                        
001541,000021: ???????                                           SUBRO    DIOGENES   064                        
001542,000022: ???????                                           SUBRO    MEDUSA     035                        
001543,000023: ???????                                           SUBRO    MENLAUS    061                        
001544,000024: ???????                                           SUBRO    ULYSSES    029                        
001545,000025: ???????                                           SUBRO    ZEUS       046                        
001546,000026: 

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