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.

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

Page 34

001527,000037: 37,2001                                           SUBRO    KILERASE                              
001528,000038: 37,2001                                           SUBRO    KOOLADE                               
001529,000039: 37,2001                                           SUBRO    SMOOCH                                
001530,000040: 37,2001                                           SUBRO    PANDORA                               
001531,000041: 37,2001                                           SUBRO    DAPCSM                                
001532,000042: 37,2001                                           SUBRO    SATRAP                                

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