Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

001489,000002:                                                                                                  ## Copyright:   Public domain.
001490,000003:                                                                                                  ## Filename:    SUBROUTINE_CALLS.agc
001491,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
001492,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
001493,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
001494,000007:                                                                                                  ## Assembler:   yaYUL
001495,000008:                                                                                                  ## Reference:   pp. 34
001496,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
001497,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
001498,000011:                                                                                                  ## Mod history: 2017-01-05 RSB  Split off from TAGS_FOR_RELATIVE_SETLOC.agc.
001499,000012:                                                                                                  ###
001500,000013:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
001501,000014:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
001502,000015:                                                                                                  ## document read, in part:
001503,000016:                                                                                                  ##
001504,000017:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
001505,000018:                                                                                                  ##      2021111-041.  October 28, 1968.  
001506,000019:                                                                                                  ##
001507,000020:                                                                                                  ##      This AGC program shall also be referred to as
001508,000021:                                                                                                  ##                              Colossus 1A
001509,000022:                                                                                                  ##
001510,000023:                                                                                                  ##      Prepared by
001511,000024:                                                                                                  ##                      Massachusetts Institute of Technology
001512,000025:                                                                                                  ##                      75 Cambridge Parkway
001513,000026:                                                                                                  ##                      Cambridge, Massachusetts
001514,000027:                                                                                                  ##      under NASA contract NAS 9-4065.
001515,000028:                                                                                                  ##
001516,000029:                                                                                                  ## Refer directly to the online document mentioned above for further information.
001517,000030:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
001518,000031:                                                                                                  ##
001519,000032:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
001520,000033:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
001521,000034:                                                                                                  ## source file, and then is proofed to incorporate any changes.
001522,000035: 

Page 34

001524,000037: 37,2001                                           SUBRO    KILERASE                              
001525,000038: 37,2001                                           SUBRO    KOOLADE                               
001526,000039: 37,2001                                           SUBRO    SMOOCH                                
001527,000040: 37,2001                                           SUBRO    PANDORA                               
001528,000041: 37,2001                                           SUBRO    DAPCSM                                
001529,000042: 37,2001                                           SUBRO    SATRAP                                

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